inv_amountadjust_h.pas

一个MRPII系统源代码版本

unit Inv_AmountAdjust_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_AmountAdjust_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;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
  end;

var
  Frm_Inv_AmountAdjust_H: TFrm_Inv_AmountAdjust_H;

implementation

uses Inv_AmountAdjust_B;

{$R *.DFM}

procedure TFrm_Inv_AmountAdjust_H.InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);
begin
  inherited;
  Caption:='金额调整';
  Pnl_Title.Caption:='金额调整';
  SelectFromSQL:='Select'
    +' InvInBill.WHCode'
    +',Warehouse.WHName'
    +',InvInBill.InvBillNo'
    +',InvInBill.InvBillDate'
    +',InvInBill.InvBillRemArk'
    +',InvInBill.BillType2Code'
    +',BillType2.BillType2Name'
    +' From InvInBill'
    +' Join Warehouse On InvInBill.whCode=Warehouse.WHCode'
    +' Join BillType2 On InvInBill.BillType2Code=BillType2.BillType2Code';

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


end.