ar_qry_gathering.pas

来自「一个MRPII系统源代码版本」· PAS 代码 · 共 107 行

unit Ar_Qry_Gathering;

Interface

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

Type
  TFrm_Ar_Qry_Gathering = Class(TFrm_Base_Qry)
    AdoQry_MainCustomerCode: TStringField;
    AdoQry_MainCustomerName: TStringField;
    AdoQry_MainCustomerFlag: TStringField;
    AdoQry_MainGatheringNo: TStringField;
    AdoQry_MainGatheringDate: TDateTimeField;
    AdoQry_MainBalanceTypeCode: TStringField;
    AdoQry_MainCurrencyCode: TStringField;
    AdoQry_MainCurrencyName: TStringField;
    AdoQry_MainCurrencyFlag: TStringField;
    AdoQry_MainExchangeRate: TFloatField;
    AdoQry_MaInBillNo: TStringField;
    AdoQry_MainTotalTaxAmount: TFloatField;
    AdoQry_MainTotalCancelAmount: TFloatField;
    AdoQry_MainCustomerBank: TStringField;
    AdoQry_MainCustomerBankActNo: TStringField;
    AdoQry_MainSaleDeptCode: TStringField;
    AdoQry_MainDeptName: TStringField;
    AdoQry_MainDeptFlag: TStringField;
    AdoQry_MainSaleEmployeeCode: TStringField;
    AdoQry_MainEmployeeName: TStringField;
    AdoQry_MainEmployeeFlag: TStringField;
    AdoQry_MaInBillDate: TDateTimeField;
    AdoQry_MainInvoiceNo: TStringField;
    AdoQry_MainTotalAmount: TFloatField;
    AdoQry_MainThiSCancelAmount: TFloatField;
    AdoQry_MainRemArk: TStringField;
    AdoQry_MainBalanceTypeName: TStringField;
    AdoQry_MainBalanceTypeFlag: TStringField;
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    procedure InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);Override;
    { Public declarations }
  end;

var
  Frm_Ar_Qry_Gathering: TFrm_Ar_Qry_Gathering;

implementation
 uses Sys_Global;
{$R *.DFM}
procedure TFrm_Ar_Qry_Gathering.InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);
var sqltext:string;
begin
  Application.ProcessMessages;
  inherited;
  SelectFromSql := ' select Ar_Gathering.CustomerCode,   '
             +'        Customer.CustomerName,      '
             +'        Ar_Gathering.CustomerCode+'' ''+Customer.CustomerName  as CustomerFlag,   '
             +'        Ar_Gatheringline.GatheringNo,   '
             +'        Ar_Gathering.GatheringDate,     '
             +'        Ar_Gathering.BalanceTypeCode,   '
             +'        BalanceType.BalanceTypeName,    '
             +'        Ar_Gathering.BalanceTypeCode+'' ''+BalanceType.BalanceTypeName as BalanceTypeFlag,  '
             +'        Ar_Gathering.CurrencyCode,       '
             +'          Currency.CurrencyName ,        '
             +'        Ar_Gathering.CurrencyCode+'' ''+Currency.CurrencyName as CurrencyFlag,  '
             +'        Ar_Gathering.ExchangeRate,       '
             +'        Ar_Gathering.BillNo,             '
             +'        Ar_Gathering.TotalTaxAmount,     '
             +'        Ar_Gathering.TotalCancelAmount,  '
             +'        Ar_Gathering.CustomerBank,       '
             +'        Ar_Gathering.CustomerBankActNo,  '
             +'        Ar_Gathering.SaleDeptCode,       '
             +'           Dept.DeptName,                '
             +'        Ar_Gathering.SaleDeptCode+'' ''+Dept.DeptName as DeptFlag,  '
             +'        Ar_Gathering.SaleEmployeeCode,   '
             +'           Employee.EmployeeName,        '
             +'        Ar_Gathering.SaleEmployeeCode+'' ''+Employee.EmployeeName as EmployeeFlag,  '
             +'        Sa_SaleInvoice.BillDate,              '
             +'        Ar_Gatheringline.BillNo as InvoiceNo, '
             +'        Ar_Gatheringline.TotalAmount,         '
             +'        Ar_Gatheringline.ThiSCancelAmount,    '
             +'        Ar_Gathering.RemArk                   '
             +' from Ar_Gatheringline                        '
             +' join Ar_Gathering on Ar_Gatheringline.GatheringNo=Ar_Gathering.GatheringNo  '
             +' left join Sa_SaleInvoice on Ar_Gatheringline.BillNo=Sa_SaleInvoice.InvoiceNo '
             +' left join Customer on Ar_Gathering.CustomerCode=Customer.CustomerCode       '
             +' left join Dept on Ar_Gathering.SaleDeptCode=Dept.DeptCode                   '
             +' left join Employee on Ar_Gathering.SaleEmployeeCode=Employee.EmployeeCode   '
             +' left join Currency on Ar_Gathering.CurrencyCode=Currency.CurrencyCode       '
             +' left join BalanceType on Ar_Gathering.BalanceTypeCode=BalanceType.BalanceTypeCode  ' ;
  Orderbyfields:='customerCode,GatheringDate,GatheringNo';
  GetData;
//  lbl_Condition.Caption:='开票日期>='+formatdatetime('yyyy.mm.dd',strtodatetime(GetServerDateTime(dbconnect))-30);
end;

procedure TFrm_Ar_Qry_Gathering.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Ar_Qry_Gathering:=nil;
end;

end.