ar_enter_araph.pas

一个MRPII系统源代码版本

unit Ar_Enter_ArApH;
Interface

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

Type
  TFrm_Ar_Enter_ArApH = Class(TFrm_Base_Entry_Head)
    AdoQry_HeadArApNo: TStringField;
    AdoQry_HeadInvoiceNo: TStringField;
    AdoQry_HeadCancelTotalAmount: TFloatField;
    AdoQry_HeadRemArk: TStringField;
    AdoQry_HeadCreateDate: TDateTimeField;
    AdoQry_HeadCreateEmployeeCode: TStringField;
    AdoQry_HeadEditDate: TDateTimeField;
    AdoQry_HeadEdItEmployeeCode: TStringField;
    AdoQry_HeadcustomerCode: TStringField;
    AdoQry_HeadcustomerName: TStringField;
    AdoQry_HeadTotaltaxAmount: TFloatField;
    AdoQry_HeadcurrencyCode: TStringField;
    AdoQry_HeadcurrencyName: TStringField;
    AdoQry_HeadExchangeRate: TFloatField;
    AdoQry_HeadEmployeeName: TStringField;
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
    { Public declarations }
  end;

var
  Frm_Ar_Enter_ArApH: TFrm_Ar_Enter_ArApH;

implementation

uses  Ar_Enter_ArAp;

{$R *.DFM}

procedure TFrm_Ar_Enter_ArApH.InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);
begin
  Application.ProcessMessages;
  inherited;
  If (ReadOnly) Then
  begin
    Act_New.Enabled:=False;
    Act_New.Visible:=False;
    Act_Modify.Enabled:=False;
    Act_Modify.Visible:=False;
    Pnl_Title.Caption:='应收帐款--应付帐款对冲查询';
    Frm_Ar_Enter_ArApH.Caption:='应收帐款--应付帐款对冲查询';
  end
  Else
  begin
    Pnl_Title.Caption:='应收帐款--应付帐款对冲';
    Frm_Ar_Enter_ArApH.Caption:='应收帐款--应付帐款对冲';
  end;
  SelectFromSql:= 'select sa_ArAp.*, '
                  +'         sa_SaleInvoice.customerCode,'
                  +'         customer.customerName,       '
                  +'         sa_SaleInvoice.TotaltaxAmount,'
                  +'         sa_SaleInvoice.currencyCode,   '
                  +'         currency.currencyName,          '
                  +'         sa_SaleInvoice.ExchangeRate,     '
                  +'         Employee.EmployeeName             '
                  +'  from  sa_ArAp                             '
                  +'  join  sa_SaleInvoice on sa_ArAp.Invoiceno=sa_SaleInvoice.Invoiceno'
                  +'  left join customer on sa_SaleInvoice.customerCode=customer.customerCode'
                  +'  left join currency on sa_SaleInvoice.currencyCode=currency.currencyCode '
                  +'  left join Employee on sa_ArAp.CreateEmployeeCode=Employee.EmployeeCode   ';
  Condition:='sa_ArAp.Createdate>= '+quotedstr(formatdatetime('yyyy.mm.dd',date-30));
  OrderByFields:='customerCode,createDate,InvoiceNo';
  GetData;
  lbl_Condition.Caption:='对冲日期>='+formatdatetime('yyyy.mm.dd',date-30);
  Frm_Entry_Body:=TFrm_Ar_Enter_ArAp.Create(Application);
end;


procedure TFrm_Ar_Enter_ArApH.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Ar_Enter_ArApH:=Nil;
end;

end.