inv_oppoinvqry.pas

一个MRPII系统源代码版本

unit Inv_OpPoInvQry;
//程序员：
{ 组合最后的SQL语句
select
   a.pono,
   a.polineno,
   a.ItemCode,
   a.ItemCode+' '+i.ItemName as ItemCodeName,
   u.UomName,
   a.poCtrlqty,
   a.opBillqty,
   a.InvBillqty,
   a.remnant
from
  (select l.pono,
          l.polineno,
          l.ItemCode,
          sum(isnull(l.poCtrlqty,0)) as poCtrlqty,
          sum(isnull(o.opBillqty,0)) as opBillqty,
          sum(isnull(i.InvBillqty,0)) as InvBillqty,
          sum(isnull(o.opBillqty,0))-sum(isnull(i.InvBillqty,0)) as remnant
   from po p
      left  join opItemList l on     p.pono=l.pono
      left join InvOutBillline i on  l.pono=i.pono and  l.polineno=i.polineno and  l.ItemCode=i.ItemCode
      left join InvInBillline il on  l.pono=il.pono and  l.polineno=il.polineno
      left join opBill o on  il.InvBillid=o.InvBillid and  il.InvBilllineno=o.InvBilllineno
   where (p.VendorCode ='0102' and p.pono>='Po0063' and p.pono<='Po0065')
   group by l.pono,  l.polineno, l.ItemCode) a
left join Item i   on a.ItemCode=i.ItemCode
left join Uom u   on i.UomCode=u.UomCode
}
Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Qry, Menus, ExtPrintReport, Db, ActnList, AdODB, Grids, DBGridEh,
  StdCtrls, ExtCtrls, ComCtrls, ToolWin, DBCtrls, jpeg;

Type
  TFrm_Inv_OpPoInvQry = Class(TFrm_Base_Qry)
    Label1: TLabel;
    DBText1: TDBText;
  private
    { Private declarations }
  public
    procedure InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);Override;
    procedure getData;Override;
    { Public declarations }
  end;

var
  Frm_Inv_OpPoInvQry: TFrm_Inv_OpPoInvQry;

implementation

uses Sys_Condition,Inv_OpPoInvQry_C;

{$R *.DFM}

procedure TFrm_Inv_OpPoInvQry.getData;
begin
  AdoQry_Main.Close;
  AdoQry_Main.sql.clear;
  AdoQry_Main.sql.text:=condition;
  AdoQry_Main.Open;
  AdoQry_Main.Sort:='ItemCode';

end;

procedure TFrm_Inv_OpPoInvQry.InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);

begin
  inherited;
  lbl_Order.Caption:='物料代码';
  Frm_Sys_Condition:=TFrm_Inv_OpPoInvQry_C.Create(Self);
  Act_Filter.Execute;
end;

end.