ar_enter_passsaleinvoiceh.pas

一个MRPII系统源代码版本

unit Ar_Enter_PassSaleInvoiceH;

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_Ar_Enter_PassSaleInvoiceH = Class(TFrm_Base_Check_Head)
    AdoQry_HeadInvoiceNo: TStringField;
    AdoQry_HeadInvoiceType: TIntegerField;
    AdoQry_HeadCustomerCode: TStringField;
    AdoQry_HeadBank: TStringField;
    AdoQry_HeadBankActNo: TStringField;
    AdoQry_HeadCurrencyCode: TStringField;
    AdoQry_HeadTotalTaxAmount: TFloatField;
    AdoQry_HeadAssess: TIntegerField;
    AdoQry_HeadAssessorEmployeeCode: TStringField;
    AdoQry_HeadAssessDate: TDateTimeField;
    AdoQry_HeadRemArk: TStringField;
    AdoQry_HeadCreateDate: TDateTimeField;
    AdoQry_HeadCreateEmployeeCode: TStringField;
    AdoQry_HeadEditDate: TDateTimeField;
    AdoQry_HeadEdItEmployeeCode: TStringField;
    AdoQry_HeadCustomerName: TStringField;
    AdoQry_HeadCustomerFalg: TStringField;
    AdoQry_HeadCurrencyName: TStringField;
    AdoQry_HeadCurrencyFalg: TStringField;
    AdoQry_HeadcreateEmployeeName: TStringField;
    AdoQry_HeadcreateEmployeeFalg: TStringField;
    AdoQry_HeadassessName: TStringField;
    AdoQry_Headassessflag: TStringField;
    AdoQry_HeadedItEmployeeName: TStringField;
    AdoQry_HeadedItEmployeeFalg: TStringField;
    AdoQry_HeadExchangeRate: TFloatField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
  procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
    { Public declarations }
  end;

var
  Frm_Ar_Enter_PassSaleInvoiceH: TFrm_Ar_Enter_PassSaleInvoiceH;

implementation

uses Sys_Global,Ar_Enter_PassSaleInvoice;

{$R *.DFM}

{ TFrm_Sa_Enter_PassShipOrderH }

procedure TFrm_Ar_Enter_PassSaleInvoiceH.InitForm(
  AdOConnection: TAdOConnection; ReadOnly: Boolean);
var sqltext:string;
begin
  inherited;
    sqltext:=' Select sa_SaleInvoice.*,CustomerName,'
                +'       sa_SaleInvoice.CustomerCode+'' ''+ CustomerName as CustomerFalg,'
           //     +'   RemArk,sa_SaleInvoice.ShipAddresSCode,sa_SaleInvoice.ShipModeCode, CreateEmployeeCode,sa_SaleInvoice.PayTermCode, sa_SaleInvoice.CurrencyCode,  CreateDate,ShipNo,SaleType, sa_SaleInvoice.SaleDeptCode,SaleEmployeeCode, '
                +'       CurrencyName,'
                +'       sa_SaleInvoice.CurrencyCode+'' ''+CurrencyName As CurrencyFalg, '
                +'       PayTerm.PayTermName,   '
                +'       sa_SaleInvoice.SaleTermCode+'' ''+PayTerm.PayTermName As PayTermFalg,'
                +'       t1.EmployeeName as edItEmployeeName, '
                +'       edItEmployeeCode+'' ''+t1.EmployeeName As edItEmployeeFalg, '
                +'       tt.EmployeeName as createEmployeeName, '
                +'       CreateEmployeeCode+'' ''+tt.EmployeeName As createEmployeeFalg, '
                +'        Employee2.EmployeeName as assessName,  '
                +'       sa_SaleInvoice.assessorEmployeeCode+'' ''+Employee2.EmployeeName as assessflag '
                +' into #InvoicePass  '
                +' From sa_SaleInvoice left outer Join Customer '
                +'     On sa_SaleInvoice.CustomerCode=Customer.CustomerCode '
                +'     left outer Join Currency  '
                +'     On sa_SaleInvoice.CurrencyCode=Currency.CurrencyCode '
                +'     left outer Join PayTerm '
                +'     On sa_SaleInvoice.SaleTermCode=PayTerm.PayTermCode   '
                +'     left outer Join Employee tt '
                +'     On sa_SaleInvoice.CreateEmployeeCode=tt.EmployeeCode '
                +'     left outer Join Employee t1 '
                +'     On sa_SaleInvoice.edItEmployeeCode=t1.EmployeeCode '
                +'     left outer join Employee Employee2 '
                +'     on sa_SaleInvoice.assessorEmployeeCode=Employee2.EmployeeCode ';
selectfromsql:='select * from #InvoicePass';
Executesql(AdoQry_Head,sqltext,1);
Executesql(AdoQry_Head,'select * from #InvoicePass where assess=0 Order by createdate,Invoiceno',0);
Frm_Check_Body:=TFrm_Ar_Enter_PassSaleInvoice.Create(Application);
end;

procedure TFrm_Ar_Enter_PassSaleInvoiceH.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
try
 Executesql(AdoQry_tmp,'drop table #InvoicePass',1);
except
end;

end;

end.