inv_checkin_h1.pas

一个MRPII系统源代码版本

unit Inv_CheckIn_H1;

Interface

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

Type
  TFrm_Inv_CheckIn_H1 = Class(TFrm_Base_Entry_Head)
    AdoQry_HeadWHCodeName: TStringField;
    AdoQry_HeadWHCode: TStringField;
    AdoQry_HeadPONO: TStringField;
    AdoQry_HeadWHName: TStringField;
    AdoQry_HeadOnCheckBillNo: TStringField;
    AdoQry_HeadOnCheckBillId: TAutoIncField;
    AdoQry_HeadBillTypeName: TStringField;
    AdoQry_HeadOnCheckDate: TDateTimeField;
    AdoQry_HeadOnCheckMonth: TStringField;
    AdoQry_HeadVendorCode: TStringField;
    AdoQry_HeadVendorName: TStringField;
    AdoQry_HeadVendorBillNo: TStringField;
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
  end;

var
  Frm_Inv_CheckIn_H1: TFrm_Inv_CheckIn_H1;

implementation

uses Inv_CheckIn_B1;

{$R *.DFM}

{ TFrm_Inv_CheckIn_H }

procedure TFrm_Inv_CheckIn_H1.InitForm(AdOConnection: TAdOConnection;
  ReadOnly: Boolean);
begin
  inherited;
  if Param1='Over' then
  begin
    Caption:='自制件待检超订单入库制单';
    Pnl_Title.Caption:='自制件待检超订单入库制单';
  end
  else
  begin
    Caption:='自制件待检入库单制单';
    Pnl_Title.Caption:='自制件待检入库单制单';
  end;
  SelectFromSQL:='Select OnCheckBill.WHCode+'' ''+Warehouse.WHName As WHCodeName'
    +',OnCheckBill.WHCode'
    +',OnCheckBill.PONO'
    +',Warehouse.WHName'
    +',OnCheckBill.OnCheckBillNo'
    +',OnCheckBill.OnCheckBillId'
    +',BillType.BillTypeName'
    +',OnCheckBill.OnCheckDate'
    +',OnCheckBill.VendorCode'
    +',OnCheckBill.OnCheckMonth'
    +',OnCheckBill.VendorBillNo'
    +',Dept.DeptName as VendorName'
    +' From OnCheckBill'
    +' left  Join Warehouse On OnCheckBill.WHCode=Warehouse.WHCode'
    +' left Join Dept On OnCheckBill.VendorCode=Dept.DeptCode'
    +' left Join BillType On OnCheckBill.BillTypeCode=BillType.BillTypeCode';
  OrderByFields:='WHCode,OnCheckBillNo';
  if LowerCase(Param1)='Over' then            
    ConditionUserDefine:='OnCheckBill.OnCheckBillId In'
      +' (Select Distinct OnCheckBillId From OnCheckBillLine Where OnCheckStatus=0)'
      +' And OnCheckBill.WHCode In'
      +' (Select WHCode From WHAccessCtrl Where EmployeeCode='''+UserCode+''')'
      +' and OnCheckBill.OnCheckType=2 '
      +' And OnCheckBill.OverPlan=1'
  else
    ConditionUserDefine:='OnCheckBill.OnCheckBillId In'
      +' (Select Distinct OnCheckBillId From OnCheckBillLine Where OnCheckStatus=0)'
      +' And OnCheckBill.WHCode In'
      +' (Select WHCode From WHAccessCtrl Where EmployeeCode='''+UserCode+''')'
      +' and OnCheckBill.OnCheckType=2 '
      +' And OnCheckBill.OverPlan=0';
  GetData;
  Frm_Entry_Body:=TFrm_Inv_CheckIn_B1.Create(Self);
end;

procedure TFrm_Inv_CheckIn_H1.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Inv_CheckIn_H1:=nil;
end;

end.