sal_enter_othersaleinvoiceh.pas

一个MRPII系统源代码版本

unit Sal_Enter_OtherSaleInvoiceH;

Interface

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

Type
  TFrm_Sal_Enter_OtherSaleInvoiceH = Class(TFrm_Base_Entry_Head)
    AdoQry_HeadInvoiceNo: TStringField;
    AdoQry_HeadCreateDate: TDateTimeField;
    AdoQry_HeadCreateEmployeeCode: TStringField;
    AdoQry_HeadCustomerCode: TStringField;
    AdoQry_HeadCustomerBank: TStringField;
    AdoQry_HeadCustomerBankActNo: TStringField;
    AdoQry_HeadCurrencyCode: TStringField;
    AdoQry_HeadExchangeRate: TFloatField;
    AdoQry_HeadSaleTermCode: TStringField;
    AdoQry_HeadTotalTaxAmount: TFloatField;
    AdoQry_HeadAssess: TIntegerField;
    AdoQry_HeadAssessorEmployeeCode: TStringField;
    AdoQry_HeadRemArk: TStringField;
    AdoQry_HeadCustomerName: TStringField;
    AdoQry_HeadCurrencyName: TStringField;
    AdoQry_HeadEmployeeName: TStringField;
    AdoQry_HeadPayTermName: TStringField;
  private
    { Private declarations }
  public
  procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
    { Public declarations }
  end;

var
  Frm_Sal_Enter_OtherSaleInvoiceH: TFrm_Sal_Enter_OtherSaleInvoiceH;

implementation

uses  Sal_Enter_OtherSaleInvoice;

{$R *.DFM}


procedure TFrm_Sal_Enter_OtherSaleInvoiceH.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_Sal_Enter_OtherSaleInvoiceH.Caption:='其它销售开票查询';
  end
  Else
  begin
    Pnl_Title.Caption:='其它销售开票准备';
    Frm_Sal_Enter_OtherSaleInvoiceH.Caption:='其它销售开票准备';
  end;
  SelectFromSql:=' Select Sa_SaleInvoice.*,Customer.CustomerName,Currency.CurrencyName,Employee.EmployeeName ,PayTermName'
                +' From Sa_SaleInvoice '
                +' Join Customer '
                +'   On Sa_SaleInvoice.CustomerCode=Customer.CustomerCode '
                +' Join Currency '
                +'   On Sa_SaleInvoice.CurrencyCode=Currency.CurrencyCode '
                +' Join PayTerm '
                +'   On Sa_SaleInvoice.SaleTermCode=PayTermCode '
                +' Join Employee '
                +'   On Sa_SaleInvoice.CreateEmployeeCode=Employee.EmployeeCode ';
  ConditionUserDefine:=' Sa_SaleInvoice.BillType=1';
  Condition:=' CreateDate>=Getdate()-30 ';
  OrderByFields:=' CustomerCode,CreateDate ';
  GetData;
  Lbl_Condition.Caption:=FormatDateTime('YYYY.MM.DD',Date())+'-开票日期<=30';
  Frm_Entry_Body:=TFrm_Sal_Enter_OtherSaleInvoice.Create(Application);
end;

end.