qc_checkitemlist.pas

一个MRPII系统源代码版本

unit Qc_CheckItemList;

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_Qc_CheckItemList = Class(TFrm_Base_Qry)
    Label1: TLabel;
    DBText1: TDBText;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);Override;
  end;

var
  Frm_Qc_CheckItemList: TFrm_Qc_CheckItemList;

implementation

uses Qc_CheckItemList_C;

{$R *.DFM}

procedure TFrm_Qc_CheckItemList.InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);
begin
  Caption:='待检物料收发列表';
  Pnl_Title.Caption:='待检物料收发列表';
  inherited;
  SelectFromSQL:=' Select OnCheckBill.VendorCode'
    +',Vendor.VendorName'
    +',OnCheckBill.VendorCode+'' ''+Vendor.VendorName As VendorCodeName'
    +',OnCheckBillLine.ItemCode'
    +',Item.ItemName'
    +',OnCheckBillLine.ItemCode+'' ''+Item.ItemName As ItemCodeName'
    +',Uom.UomName'
    +',OnCheckBill.OnCheckDate'
    +',OnCheckBillLine.OnCheckQty'
    +',Case When OnCheckBillLine.OnCheckStatus=0 Then OnCheckBillLine.ReceivedQty'
    +' Else Null end As ReceivedQty0'
    +',Case When OnCheckBillLine.OnCheckStatus=1 Then OnCheckBillLine.ReceivedQty'
    +' Else Null end As ReceivedQty1'
    +',Case When OnCheckBillLine.OnCheckStatus=1 Then OnCheckBillLine.OnCheckQty'
    +'-OnCheckBillLine.ReceivedQty Else Null end As ReceivedQty2'
    +',BillType.BillTypeName'
    +' From OnCheckBillLine'
    +' Join OnCheckBill On OnCheckBillLine.OnCheckBillId=OnCheckBill.OnCheckBillId'
    +' Join BillType On OnCheckBill.BillTypeCode=BillType.BillTypeCode'
    +' Join Vendor On OnCheckBill.VendorCode=Vendor.VendorCode'
    +' Join Item On OnCheckBillLine.ItemCode=Item.ItemCode'
    +' Join Uom On Item.UomCode=Uom.UomCode';


  {SelectFromSQL:='Select OnCheckBill.VendorCode,Vendor.VendorName,OnCheckBillLine.ItemCode,Item.ItemName,'+
                 'OnCheckBill.VendorCode+'' ''+Vendor.VendorName As VendorCodeName,'+
                 'OnCheckBillLine.ItemCode+'' ''+Item.ItemName As ItemCodeName,Uom.UomName,OnCheckBill.OnCheckDate,'+
                 'sum(OnCheckBillLine.OnCheckQty) as OnCheckQty,sum(OnCheckBillLine.ReceivedQty) as ReceivedQty0,'+
                 'sum(InvInBillLine.InvBillQty) as ReceivedQty1,'+
                 '(sum(OnCheckBillLine.OnCheckQty)-sum(OnCheckBillLine.ReceivedQty)) as ReceivedQty2,BillType.BillTypeName '+
                 'From OnCheckBill left Join OnCheckBillLine On OnCheckBillLine.OnCheckBillId=OnCheckBill.OnCheckBillId '+
                 'left Join BillType On OnCheckBill.BillTypeCode=BillType.BillTypeCode '+
                 'left Join Vendor On OnCheckBill.VendorCode=Vendor.VendorCode '+
                 'left Join Item On OnCheckBillLine.ItemCode=Item.ItemCode '+
                 'left Join Uom On Item.UomCode=Uom.UomCode '+
                 'left join InvInBill on InvInBill.PONo=OnCheckBill.PONo and InvInBill.FromCheckIn=1 '+
                 'left join InvInBillLine on InvInBillLine.InvBillID=InvInBill.InvBillID and OnCheckBillLine.POLineNo=InvInBillLine.POLineNo';}
  OrderByFields:='VendorCode,OnCheckDate,ItemCode';

  Frm_Sys_Condition:=TFrm_Qc_CheckItemList_C.Create(Self);
  Act_Filter.Execute;
end;

end.