inv_salematerialaudit_h.pas

一个MRPII系统源代码版本

unit Inv_SaleMaterialAudit_H;

Interface

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

Type
  TFrm_Inv_SaleMaterialAudit_H = Class(TFrm_Base_Check_Head)
    AdoQry_HeadInvBillNo: TStringField;
    AdoQry_HeadInvBillId: TBCDField;
    AdoQry_HeadInvBillTAXRATE: TFloatField;
    AdoQry_HeadInvBillDate: TDateTimeField;
    AdoQry_HeadCustomerCode: TStringField;
    AdoQry_HeadCustomerName: TStringField;
    AdoQry_HeadWhPositionCodeName: TStringField;
    AdoQry_HeadWhPositionCode: TStringField;
    AdoQry_HeadInvBillRemArk: TStringField;
    AdoQry_HeadWhPositionName: TStringField;
    AdoQry_HeadWHCodeName: TStringField;
    AdoQry_HeadWHCode: TStringField;
    AdoQry_HeadWHName: TStringField;
    AdoQry_HeadInvBillWHChck: TIntegerField;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
  end;

var
  Frm_Inv_SaleMaterialAudit_H: TFrm_Inv_SaleMaterialAudit_H;

implementation

uses Inv_SaleMaterialAudit_B;

{$R *.DFM}

{ TFrm_Inv_SaleMaterialAudit_H }

procedure TFrm_Inv_SaleMaterialAudit_H.InitForm(
  AdOConnection: TAdOConnection; ReadOnly: Boolean);
begin
  inherited;
  SelectFromSQL:='Select InvOutBill.WHCode+'' ''+Warehouse.WHName As WHCodeName'
    +',InvOutBill.WHCode'
    +',Warehouse.WHName'
    +',InvOutBill.InvBillNo'
    +',InvOutBill.InvBillWHChck'
    +',InvOutBill.InvBillId'
    +',InvOutBill.InvBillTAXRATE'
    +',InvOutBill.InvBillDate'
    +',InvOutBill.CustomerCode'
    +',Customer.CustomerName'
    +',InvOutBill.InvBillWHChck'
    +',InvOutBill.WhPositionCode+'' ''+WhPosition.WhPositionName As WhPositionCodeName'
    +',InvOutBill.WhPositionCode'
    +',InvOutBill.InvBillRemArk'
    +',WhPosition.WhPositionName'
    +' From InvOutBill'
    +' Join Warehouse On InvOutBill.WHCode=Warehouse.WHCode'
    +' Join Customer On InvOutBill.CustomerCode=Customer.CustomerCode'
    +' Join WhPosition On'
    +' (InvOutBill.WhPositionCode=WhPosition.WhPositionCode)and'
    +' (InvOutBill.WHCode=WhPosition.WHCode)';
  OrderByFields:='InvBillNo';
  ConditionUserDefine:='(InvOutBill.BillTypeCode='''+Param1+
    ''' And InvOutBill.InvBillWHChck=0 And InvOutBill.WHCode in '+
    '(Select WHCode From WHAccessCtrl Where EmployeeCode='''+UserCode+'''))';
  GetData;
  Frm_Check_Body:=TFrm_Inv_SaleMaterialAudit_B.Create(Self);
end;

end.