inv_checkinbillqry.pas

来自「一个MRPII系统源代码版本」· PAS 代码 · 共 113 行

unit Inv_CheckInBillQry;

Interface

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

Type
  TFrm_Inv_CheckInBillQry = Class(TFrm_Base_Entry_Body)
    Label8: TLabel;
    DBText1: TDBText;
    Lbl_Warehouse: TLabel;
    Lbl_Vendor: TLabel;
    Lbl_PoNo: TLabel;
    Lbl_BillType: TLabel;
    Lbl_BillNo: TLabel;
    Lbl_BillDate: TLabel;
    Label4: TLabel;
    Label2: TLabel;
    Label1: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    procedure Act_PreviewExecute(Sender: TObject);
    procedure Act_PrintExecute(Sender: TObject);
  private
    { Private declarations }
    InvBillNo,WHCode: String;
  public
    { Public declarations }
    procedure InitControls; Override;
    procedure Getvar(InvBillNo,WHCode:String);
  end;

var
  Frm_Inv_CheckInBillQry: TFrm_Inv_CheckInBillQry;

implementation

uses Inv_Global,Sys_Global;

{$R *.DFM}

{ TFrm_Sfc_MnOutBillQry }

procedure TFrm_Inv_CheckInBillQry.InitControls;
begin
  Caption:='待检入库单';
  inherited;
  AdoQry_Tmp.Close;
  AdoQry_Tmp.SQL.Text:='Select OnCheckBill.WHCode+'' ''+Warehouse.WHName As WHCodeName'
    +',OnCheckBill.WHCode+'' ''+Warehouse.WHName As WHCodeName'
    +',OnCheckBill.OnCheckBillId'
    +',OnCheckBill.PONO'
    +',OnCheckBill.OnCheckBillNo'
    +',OnCheckBill.OnCheckBillId'
    +',BillType.BillTypeName'
    +',OnCheckBill.OnCheckDate'
    +',OnCheckBill.VendorCode+'' ''+Vendor.VendorName As VendorCodeName'
    +',OnCheckBill.OnCheckMonth'
    +' From OnCheckBill'
    +' Join Warehouse On OnCheckBill.WHCode=Warehouse.WHCode'
    +' Join Vendor On OnCheckBill.VendorCode=Vendor.VendorCode'
    +' Join BillType On OnCheckBill.BillTypeCode=BillType.BillTypeCode'
    +' Where OnCheckBill.WHCode='''+WHCode+''''
    +' And OnCheckBill.OnCheckBillNo='''+InvBillNo+'''';
  AdoQry_Tmp.Open;

  Lbl_Warehouse.Caption:=AdoQry_Tmp.fieldbyname('WHCodeName').AsString;
  Lbl_Vendor.Caption:=AdoQry_Tmp.fieldbyname('VendorCodeName').AsString;
  Lbl_PoNo.Caption:=AdoQry_Tmp.fieldbyname('PoNo').AsString;
  Lbl_BillType.Caption:=AdoQry_Tmp.fieldbyname('BillTypeName').AsString;
  Lbl_BillNo.Caption:=AdoQry_Tmp.fieldbyname('OnCheckBillNo').AsString;
  Lbl_BillDate.Caption:=AdoQry_Tmp.fieldbyname('OnCheckDate').AsString;

  AdoQry_Body.Close;
  AdoQry_Body.SQL.Text:='Select OnCheckBillLine.POLineNo'
    +',OnCheckBillLine.ItemCode'
    +',OnCheckBillLine.QcStatus'
    +',Item.ItemName'
    +',Uom.UomName'
    +',OnCheckBillLine.OnCheckQty'
    +',OnCheckBillLine.BillLineRemArk'
    +' From OnCheckBillLine'
    +' Join Item On OnCheckBillLine.ItemCode=Item.ItemCode'
    +' Join Uom On Item.UomCode=Uom.UomCode'
    +' Where OnCheckBillLine.OnCheckBillId='+AdoQry_Tmp.fieldbyname('OnCheckBillId').AsString+'';
  AdoQry_Body.Open;
end;

procedure TFrm_Inv_CheckInBillQry.Act_PreviewExecute(Sender: TObject);
begin
  BillPrint(DBConnect,GetCode(Lbl_Warehouse.Caption),
    Lbl_BillNo.Caption,'1102',ModuleCode,True,False,True,'');
end;

procedure TFrm_Inv_CheckInBillQry.Act_PrintExecute(Sender: TObject);
begin
  inherited;
  BillPrint(DBConnect,GetCode(Lbl_Warehouse.Caption),
    Lbl_BillNo.Caption,'1102',ModuleCode,False,False,True,'');
end;

procedure TFrm_Inv_CheckInBillQry.Getvar(InvBillNo, WHCode: String);
begin
  self.InvBillNo:=InvBillNo;
  self.WHCode:=WHCode;
end;

end.