ar_enter_saleinvoice3h.pas

一个MRPII系统源代码版本

unit Ar_Enter_SaleInvoice3H;

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_SaleInvoice3H = Class(TFrm_Base_Entry_Head)
    AdoQry_HeadInvoiceNo: TStringField;
    AdoQry_HeadCreateDate: TDateTimeField;
    AdoQry_HeadCreateEmployeeCode: TStringField;
    AdoQry_HeadCustomerCode: TStringField;
    AdoQry_HeadCurrencyCode: TStringField;
    AdoQry_HeadExchangeRate: TFloatField;
    AdoQry_HeadSaleTermCode: TStringField;
    AdoQry_HeadTotalTaxAmount: TFloatField;
    AdoQry_HeadRemArk: TStringField;
    AdoQry_HeadCustomerName: TStringField;
    AdoQry_HeadCurrencyName: TStringField;
    AdoQry_HeadPayTermName: TStringField;
    AdoQry_HeadBank: TStringField;
    AdoQry_HeadBankActNo: TStringField;
    AdoQry_HeadEditDate: TDateTimeField;
    AdoQry_HeadEdItEmployeeCode: TStringField;
    AdoQry_HeadcreaterName: TStringField;
    AdoQry_HeadActive: TIntegerField;
    AdoQry_HeadSaleTypeCode: TStringField;
    AdoQry_HeadSaleEmployeeCode: TStringField;
    AdoQry_HeadSaleDeptCode: TStringField;
    AdoQry_HeadDeptName: TStringField;
    AdoQry_HeadSaleEmployeeName: TStringField;
    AdoQry_HeadSaleTypeName: TStringField;
    AdoQry_HeadInvoiceNoId: TAutoIncField;
    AdoQry_HeadInvoiceType: TIntegerField;
    AdoQry_HeadBillType: TIntegerField;
    AdoQry_HeadOrderType: TIntegerField;
    AdoQry_HeadActSubjectCode: TStringField;
    AdoQry_HeadTaxActNo: TStringField;
    AdoQry_HeadCancelAmount: TFloatField;
    AdoQry_HeadTaxRate: TFloatField;
    AdoQry_HeadTotalNoTaxAmount: TFloatField;
    AdoQry_HeadTotalTax: TFloatField;
    AdoQry_HeadTotalTaxAmountC: TFloatField;
    AdoQry_HeadTotalNoTaxAmountC: TFloatField;
    AdoQry_HeadTotalTaxC: TFloatField;
    AdoQry_HeadCancelAmountC: TFloatField;
    AdoQry_HeadBillDate: TDateTimeField;
    AdoQry_HeadISCredence: TIntegerField;
    AdoQry_HeadExportTradeTypeCode: TStringField;
    AdoQry_HeadExportTradeTypeName: TStringField;
    AdoQry_HeadInAccountDate: TDateTimeField;
    procedure Act_NewExecute(Sender: TObject);
    procedure Act_ModifyExecute(Sender: TObject);
    procedure Act_LookExecute(Sender: TObject);
    procedure DBGridEhGetCellParams(Sender: TObject; Column: TColumnEh;
      AFont: TFont; var Background: TColor; State: TGridDrawState);
    procedure Act_CancelCheckExecute(Sender: TObject);
    procedure Act_DeleteExecute(Sender: TObject);
    procedure AdoQry_HeadAfterScroll(DataSet: TDataSet);
    procedure FormCreate(Sender: TObject);
    procedure AdoQry_HeadCancelAmountGetText(Sender: TField;
      var Text: String; DisplayText: Boolean);
    procedure AdoQry_HeadTotalNoTaxAmountGetText(Sender: TField;
      var Text: String; DisplayText: Boolean);
    procedure AdoQry_HeadTotalTaxGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure AdoQry_HeadTotalTaxAmountCGetText(Sender: TField;
      var Text: String; DisplayText: Boolean);
    procedure AdoQry_HeadTotalNoTaxAmountCGetText(Sender: TField;
      var Text: String; DisplayText: Boolean);
    procedure AdoQry_HeadTotalTaxCGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure AdoQry_HeadCancelAmountCGetText(Sender: TField;
      var Text: String; DisplayText: Boolean);
    procedure AdoQry_HeadTotalTaxAmountGetText(Sender: TField;
      var Text: String; DisplayText: Boolean);
  private
    { Private declarations }
  public
  procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
    { Public declarations }
  end;

var
  Frm_Ar_Enter_SaleInvoice3H: TFrm_Ar_Enter_SaleInvoice3H;

implementation

uses //Sal_Enter_ShipOrder_C1, Sal_Enter_ShipOrder,
  Ar_Enter_SaleInvoice3_C1,
  Ar_Enter_SaleInvoice3,Sys_Global;

{$R *.DFM}


procedure TFrm_Ar_Enter_SaleInvoice3H.InitForm(AdOConnection: TAdOConnection;
  ReadOnly: Boolean);
begin
  Application.ProcessMessages;
  If (ReadOnly) Then
  begin
    Act_New.Enabled:=False;
    Act_New.Visible:=False;
    Act_Modify.Enabled:=False;
    Act_Modify.Visible:=False;
    act_Cancelcheck.Enabled:=False;
    act_Cancelcheck.Visible:=False;
    act_Delete.Enabled:=False;
    act_Delete.Visible:=False;
    Pnl_Title.Caption := IIfString(Param1='0','普通发票查询','出口发票查询');
    Pnl_Title.Refresh;
    Pnl_Title.Repaint;
    Frm_Ar_Enter_SaleInvoice3H.Caption := IIfString(Param1='0','普通发票查询','出口发票查询');
    Repaint;    
  end
  Else
  begin
    Act_New.Enabled:=False;
    Act_New.Visible:=False;
    Act_New.Enabled:=True;
    Act_New.Visible:=True;
    Pnl_Title.Caption := IIfString(Param1='0','普通发票','出口发票');
    Pnl_Title.Refresh;
    Pnl_Title.Repaint;
    Frm_Ar_Enter_SaleInvoice3H.Caption := IIfString(Param1='0','普通发票','出口发票');
    Repaint;    
  end;
  inherited;
  SelectFromSql:=' Select Sa_SaleInvoice.*,Customer.CustomerName,'
                +'  Dept.DeptName,  '
                +'  Sa_ExportTradeType.ExportTradeTypeName, '
                +'  Employee3.EmployeeName as SaleEmployeeName,'
                +'  SaleType.SaleTypeName, '
                +' Employee1.EmployeeName as createrName, '
                +' Currency.CurrencyName,'
                +' PayTermName'
                +' From Sa_SaleInvoice '
                +' left join Dept on sa_SaleInvoice.SaleDeptCode=Dept.DeptCode '
                +' left join Employee Employee3 on sa_SaleInvoice.SaleEmployeeCode=Employee3.EmployeeCode '
                +' left join SaleType on sa_SaleInvoice.SaleTypeCode=SaleType.SaleTypeCode '
                +' left Join Sa_ExportTradeType on Sa_SaleInvoice.ExportTradeTypeCode=Sa_ExportTradeType.ExportTradeTypeCode '
                +' left Join Customer '
                +'   On Sa_SaleInvoice.CustomerCode=Customer.CustomerCode '
                +' left Join Currency '
                +'   On Sa_SaleInvoice.CurrencyCode=Currency.CurrencyCode '
                +' left Join PayTerm '
                +'   On Sa_SaleInvoice.SaleTermCode=PayTermCode '
                +' left Join Employee Employee1'
                +'   On Sa_SaleInvoice.CreateEmployeeCode=Employee1.EmployeeCode ';
  ConditionUserDefine:=' Sa_SaleInvoice.InvoiceType= '+IIFString(Param1='0','0','2')
                      +' and OrderType=1';
 // Condition:=' CreateDate>=Getdate()-30 ';
  OrderByFields:=' CustomerCode,CreateDate,Invoiceno ';
  GetData;
//  Lbl_Condition.Caption:='未审核';//'开票日期>='+FormatDateTime('YYYY.MM.DD',strtodatetime(GetServerDateTime(dbconnect))-30);
end;

procedure TFrm_Ar_Enter_SaleInvoice3H.Act_NewExecute(Sender: TObject);
begin
  inherited;
  Frm_Ar_Enter_SaleInvoice3_C1:=TFrm_Ar_Enter_SaleInvoice3_C1.Create(Application);
  Frm_Ar_Enter_SaleInvoice3_C1.SetUserParam(Param1,Param2,Param3,Param4,Param5,Param6);
  Frm_Ar_Enter_SaleInvoice3_C1.SetSysParam(UserCode,ModuleCode,MenuId,LoginDate);
  Frm_Ar_Enter_SaleInvoice3_C1.InitForm(DbConnect,False);
end;

procedure TFrm_Ar_Enter_SaleInvoice3H.Act_ModifyExecute(Sender: TObject);
begin
  inherited;
  if AdoQry_Head.RecordCount=0 then exit;
  if AdoQry_Head.fieldbyname('active').asinteger=0 then exit;
  Frm_Ar_Enter_SaleInvoice3:=TFrm_Ar_Enter_SaleInvoice3.Create(Application);
  Frm_Ar_Enter_SaleInvoice3.SetUserParam(Param1,Param2,Param3,Param4,Param5,Param6);
  Frm_Ar_Enter_SaleInvoice3.SetSysParam(UserCode,ModuleCode,MenuId,LoginDate);
  Frm_Ar_Enter_SaleInvoice3.InitForm(DbConnect,'Edit',AdoQry_Head);
  Frm_Ar_Enter_SaleInvoice3.ShowModal;
  if Frm_Ar_Enter_SaleInvoice3<>nil then
    Frm_Ar_Enter_SaleInvoice3.Close;
end;

procedure TFrm_Ar_Enter_SaleInvoice3H.Act_LookExecute(Sender: TObject);
begin
  inherited;
  if AdoQry_Head.RecordCount=0 then exit;
   Frm_Ar_Enter_SaleInvoice3:=TFrm_Ar_Enter_SaleInvoice3.Create(Application);
  Frm_Ar_Enter_SaleInvoice3.SetUserParam(Param1,Param2,Param3,Param4,Param5,Param6);
  Frm_Ar_Enter_SaleInvoice3.SetSysParam(UserCode,ModuleCode,MenuId,LoginDate);
  Frm_Ar_Enter_SaleInvoice3.InitForm(DbConnect,'Query',AdoQry_Head);
  Frm_Ar_Enter_SaleInvoice3.ShowModal;
  if Frm_Ar_Enter_SaleInvoice3<>nil then
    Frm_Ar_Enter_SaleInvoice3.Close;
end;

procedure TFrm_Ar_Enter_SaleInvoice3H.DBGridEhGetCellParams(
  Sender: TObject; Column: TColumnEh; AFont: TFont; var Background: TColor;
  State: TGridDrawState);
begin
  inherited;
  if AdoQry_Head.RecordCount=0 then exit;
  if AdoQry_Head.fieldbyname('active').asinteger=0 then
   begin
     afont.Color:=clred;
   end;
end;

procedure TFrm_Ar_Enter_SaleInvoice3H.Act_CancelCheckExecute(
  Sender: TObject);
var sqltext:string;
begin
  inherited;
  if AdoQry_Head.RecordCount=0 then exit;
  if AdoQry_Head.fieldbyname('active').asinteger=0 then exit;
  if DispInfo('确认要作废这张普通发票吗？',2)<>'y' then exit;