inv_amountoutadjust_h.pas

一个MRPII系统源代码版本

unit Inv_AmountOutAdjust_H;

Interface

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

Type
  TFrm_Inv_AmountOutAdjust_H = Class(TFrm_Base_Entry_Head)
    AdoQry_HeadWHCode: TStringField;
    AdoQry_HeadWHName: TStringField;
    AdoQry_HeadInvBillNo: TStringField;
    AdoQry_HeadInvBillDate: TDateTimeField;
    AdoQry_HeadInvBillRemArk: TStringField;
    AdoQry_HeadBillType2Code: TStringField;
    AdoQry_HeadBillType2Name: TStringField;
    AdoQry_HeadDeptCode: TStringField;
    AdoQry_HeadDeptName: TStringField;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
  end;

var
  Frm_Inv_AmountOutAdjust_H: TFrm_Inv_AmountOutAdjust_H;

implementation

uses Inv_AmountoutAdjust_B;

{$R *.DFM}

procedure TFrm_Inv_AmountOutAdjust_H.InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);
begin
  inherited;
  Caption:='金额调整出库单';
  Pnl_Title.Caption:='金额调整出库单';
  SelectFromSQL:='Select'
    +' InvOutBill.WHCode'
    +',Warehouse.WHName'
    +',InvOutBill.InvBillNo'
    +',InvOutBill.InvBillDate'
    +',InvOutBill.InvBillRemArk'
    +',InvOutBill.BillType2Code'
    +',InvOutBill.DeptCode as DeptCode'
    +',Dept.DeptName as DeptName'
    +',BillType2.BillType2Name'
    +' From InvOutBill'
    +' Join Warehouse On InvOutBill.whCode=Warehouse.WHCode'
    +' left join Dept on InvOutBill.DeptCode=Dept.DeptCode'
    +' Join BillType2 On InvOutBill.BillType2Code=BillType2.BillType2Code';

  ConditionUserDefine:='InvOutBill.BillTypeCode='''+Param1+''''
    +' And InvOutBill.AmountAdjust=1'
    +' And InvOutBill.InvBillMonth='''+FormatDateTime('yyyy.mm',Now)+'''';
  OrderByFields:='WHCode,InvBillNo';
  GetData;
  Frm_Entry_Body:=TFrm_Inv_AmountoutAdjust_B.Create(Self);
end;


end.