ar_enter_nogatherinvoice_d.pas
来自「一个MRPII系统源代码版本」· PAS 代码 · 共 942 行 · 第 1/3 页
PAS
942 行
unit Ar_Enter_NoGatherInvoice_D;
Interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Base_Detail, Db, AdODB, ExtCtrls, StdCtrls, ExtEdit, Mask, linkedit;
Type
TFrm_Ar_Enter_NoGatherInvoice_D = Class(TFrm_Base_Detail)
Label4: TLabel;
medt_InvoiceDate: TMaskEdit;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
edt_rate: TEdit;
Label8: TLabel;
edt_InvoiceNo: TEdit;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
medt_Createdate: TMaskEdit;
Label16: TLabel;
edt_remArk: TEdit;
edt_CustomerName: TEdit;
edt_CurrencyName: TEdit;
edt_DeptName: TEdit;
edt_SaleEmployeeName: TEdit;
edt_CreateEmployeeName: TEdit;
edt_CustomerCode: TLinkEdit;
edt_CurrencyCode: TLinkEdit;
edt_DeptCode: TLinkEdit;
edt_SaleEmployeeCode: TLinkEdit;
edt_CreateEmployeeCode: TLinkEdit;
Label19: TLabel;
Edt_SaleTypeName: TEdit;
Edt_SaleTypeCode: TLinkEdit;
Label22: TLabel;
Edt_PayTermName: TEdit;
Edt_PayTermCode: TLinkEdit;
Label2: TLabel;
Edt_TotalTaxAmount: TEdit;
Label9: TLabel;
Edt_CancelAmount: TEdit;
Label1: TLabel;
Cmb_InvoiceType: TComboBox;
Label17: TLabel;
Cmb_BillType: TComboBox;
Label3: TLabel;
Edt_Bank: TEdit;
Label11: TLabel;
Edt_BankActNo: TEdit;
Label10: TLabel;
Label18: TLabel;
MEdt_EditDate: TMaskEdit;
Edt_EdItEmployeeName: TEdit;
Edt_EdItEmployeeCode: TLinkEdit;
Label20: TLabel;
edt_ExchRate: TEdit;
Label21: TLabel;
Edt_ExportTypeCode: TLinkEdit;
Edt_ExportTypeName: TEdit;
procedure edt_BtCodeKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure edt_SaleEmployeeCodeExit(Sender: TObject);
procedure edt_CreateEmployeeCodeExit(Sender: TObject);
procedure edt_DeptCodeExit(Sender: TObject);
procedure edt_CustomerCodeExit(Sender: TObject);
procedure edt_BtCodeExit(Sender: TObject);
procedure edt_CurrencyCodeExit(Sender: TObject);
procedure edt_BtCodeButtonClick(Sender: TObject);
procedure edt_BtCodeChange(Sender: TObject);
procedure Edt_WhCodeKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edt_WhCodeButtonClick(Sender: TObject);
procedure Edt_SaleTypeCodeKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edt_SaleTypeCodeButtonClick(Sender: TObject);
procedure Edt_SaleTypeCodeExit(Sender: TObject);
procedure Edt_ShipAddresSCodeKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edt_ShipAddresSCodeButtonClick(Sender: TObject);
procedure Edt_PayTermCodeKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edt_PayTermCodeExit(Sender: TObject);
procedure Edt_ShipModeCodeKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edt_PayTermCodeButtonClick(Sender: TObject);
procedure Edt_ShipModeCodeButtonClick(Sender: TObject);
procedure Edt_EdItEmployeeCodeExit(Sender: TObject);
procedure btn_okClick(Sender: TObject);
procedure Edt_TotalTaxAmountExit(Sender: TObject);
procedure Edt_ExportTypeCodeKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edt_ExportTypeCodeButtonClick(Sender: TObject);
procedure Edt_ExportTypeCodeExit(Sender: TObject);
procedure Cmb_InvoiceTypeExit(Sender: TObject);
private
{ Private declarations }
public
TmpAmount:String;
procedure InitControls; Override;
procedure SaveData;Override;
procedure SetStatus(CurrentStatus:String;var EnableControls:String); Override;
function getCancelmode(customerCode:string):integer;
function getreMainAmount(Gatheringno:string):double;
procedure CancelGathering(Gatheringno:string);
function existsArgatherline(Gatheringno,Billno:string):boolean;
{ Public declarations }
end;
var
Frm_Ar_Enter_NoGatherInvoice_D: TFrm_Ar_Enter_NoGatherInvoice_D;
implementation
uses Sys_Global;
{$R *.DFM}
{ TFrm_Ar_Enter_Gathering_D }
function TFrm_Ar_Enter_NoGatherInvoice_D.existsArgatherline(Gatheringno,Billno:string):boolean;
var AdoQry:TAdoQuery;
sqltext:string;
begin
Result:=False;
AdoQry:=TAdoQuery.Create(nil);
AdoQry.Connection:=dbconnect;
try
sqltext:='select Gatheringno from Ar_Gatheringline '
+' where Gatheringno='+quotedstr(Gatheringno)
+' and Billno='+quotedstr(Billno);
Executesql(AdoQry,sqltext,0) ;
if not AdoQry.Eof then
Result:=True;
finally
AdoQry.Free;
end;
end;
procedure TFrm_Ar_Enter_NoGatherInvoice_D.CancelGathering(Gatheringno:string);
var AdoQry:TAdoQuery;
sqltext:string;
TotalreMainAmount:double; {收款单据总余额}
thiSCancelAmount:double;{此次核销金额}
begin
TotalreMainAmount:=-1;
thiSCancelAmount:=0;
AdoQry:=TAdoQuery.Create(nil);
AdoQry.Connection:=dbconnect;
AdoQry.EnableBCD:=False;
try
TotalreMainAmount:=getreMainAmount(Gatheringno);{获得当前收款票据的余额}
if TotalreMainAmount<=0 then exit;
sqltext:=' select sa_SaleInvoice.Invoiceno, sa_SaleInvoice.SaleDeptCode,'
+' sa_SaleInvoice.SaleEmployeeCode, '
+' sa_SaleInvoice.Billdate, '
+' sa_SaleInvoice.TotaltaxAmount, '
+' sa_SaleInvoice.TotaltaxAmount-sa_SaleInvoice.CancelAmount as reMainAmount'
+' from sa_SaleInvoice '
+' where isnull(sa_SaleInvoice.CancelAmount,0)<TotaltaxAmount '
+' and customerCode='+quotedstr(edt_CustomerCode.text)
+' and active=1 ';
Executesql(AdoQry,sqltext,0); {获得当前客户的未全核销的销售发票}
while (not AdoQry.Eof) and (TotalreMainAmount>0) do
begin
thiSCancelAmount:=AdoQry.fieldbyname('reMainAmount').asfloat;
if AdoQry.fieldbyname('reMainAmount').asfloat>=TotalreMainAmount then
thiSCancelAmount:=TotalreMainAmount;
{thiSCancelAmount为此次核销金额}
// sqltext:='select * from Ar_gather'
if existsArgatherline(Gatheringno,AdoQry.fieldbyname('Invoiceno').asstring) then
//判断在收款票据表体中是否存在该销售发票的记录
begin
sqltext:='update Ar_Gatheringline'
+' set thiSCancelAmount=thiSCancelAmount+'+floattostr(thiSCancelAmount)
+' where Gatheringno='+quotedstr(Gatheringno)
+' and Billno='+quotedstr(AdoQry.fieldbyname('Invoiceno').asstring);
Executesql(AdoQry_tmp,sqltext,1) ;
end
else
begin
sqltext:='insert into Ar_Gatheringline(Gatheringno,Billno,SaleDeptCode,SaleEmployeeCode,Billdate,TotalAmount,reMainTotalAmount,thiSCancelAmount)'
+' Values('+quotedstr(Gatheringno)+','
+quotedstr(AdoQry.fieldbyname('Invoiceno').asstring)+','
+quotedstr(AdoQry.fieldbyname('SaleDeptCode').asstring)+','
+quotedstr(AdoQry.fieldbyname('SaleEmployeeCode').asstring)+','
+quotedstr(AdoQry.fieldbyname('Billdate').asstring)+','
+floattostr(AdoQry.fieldbyname('TotaltaxAmount').asfloat)+','
+floattostr(AdoQry.fieldbyname('reMainAmount').asfloat)+','
+floattostr(thiSCancelAmount)+')';
Executesql(AdoQry_tmp,sqltext,1);{插入记录到收款票据表体}
end;
sqltext:='update sa_SaleInvoice'
+' set CancelAmount=isnull(CancelAmount,0)+'+floattostr(thiSCancelAmount)
+' where Invoiceno='+quotedstr(AdoQry.fieldbyname('Invoiceno').asstring);
Executesql(AdoQry_tmp,sqltext,1); {累加销售发票的核销金额}
sqltext:='update Ar_Gathering '
+' set TotalCancelAmount=TotalCancelAmount+'+floattostr(thiSCancelAmount)
+' where Gatheringno='+quotedstr(Gatheringno);
Executesql(AdoQry_tmp,sqltext,1);{累加收款票据的总核销金额}
TotalreMainAmount:=TotalreMainAmount-thiSCancelAmount;{扣减总余额数}
AdoQry.Next;
end;
finally
AdoQry.Free;
end;
end;
function TFrm_Ar_Enter_NoGatherInvoice_D.getreMainAmount(Gatheringno:string):double;
var AdoQry:TAdoQuery;
sqltext:string;
begin
Result:=-1;
AdoQry:=TAdoQuery.Create(nil);
AdoQry.Connection:=dbconnect;
try
sqltext:='select TotaltaxAmount-isnull(TotalCancelAmount,0) as reMainAmount from Ar_Gathering '
+' where Gatheringno='+quotedstr(Gatheringno);
Executesql(AdoQry,sqltext,0) ;
if not AdoQry.Eof then
Result:=AdoQry.fieldbyname('reMainAmount').asfloat;
finally
AdoQry.Free;
end;
end;
function TFrm_Ar_Enter_NoGatherInvoice_D.getCancelmode(customerCode:string):integer;
var AdoQry:TAdoQuery;
sqltext:string;
begin
Result:=-1;
AdoQry:=TAdoQuery.Create(nil);
AdoQry.Connection:=dbconnect;
try
sqltext:='select SalInvoiceCancelmode from customer '
+' where customerCode='+quotedstr(customerCode);
Executesql(AdoQry,sqltext,0) ;
if not AdoQry.Eof then
Result:=AdoQry.fieldbyname('SalInvoiceCancelmode').asinteger;
finally
AdoQry.Free;
end;
end;
procedure TFrm_Ar_Enter_NoGatherInvoice_D.InitControls;
var i:integer;
begin
inherited;
if (Add) then
begin
SetFocus_Control:=Edt_CustomerCode;
medt_Createdate.Text:=formatdatetime('yyyy.mm.dd',strtodatetime(GetServerDateTime(dbconnect)));
Medt_InvoiceDate.Text := Medt_CreateDate.Text;
Medt_EditDate.Text := Medt_CreateDate.Text;
edt_CustomerCode.Enabled:=True;
edt_InvoiceNo.Enabled:=True;
Cmb_InvoiceType.Enabled := True;
Cmb_BillType.Enabled := True;
edt_CreateEmployeeCode.Text:=userCode;
Edt_EdItEmployeeCode.Text := UserCode;
ExecuteSql(AdoQry_Tmp,'Select EmployeeCode,EmployeeName From Employee Where EmployeeCode='''+userCode+'''',0);
edt_CreateEmployeeName.Text:=AdoQry_Tmp.fieldbyname('EmployeeName').asstring;
Edt_EdItEmployeeName.Text := AdoQry_Tmp.fieldbyname('EmployeeName').AsString;
end
else
begin
SetFocus_Control:=edt_CurrencyCode;
end;
with AdoQry_Maintain do
begin
edt_InvoiceNo.Text:=AdoQry_Maintain.fieldbyname('InvoiceNo').asstring;
Cmb_InvoiceType.ItemIndex := AdoQry_Maintain.fieldbyname('InvoiceType').AsInteger;
// If Add then
Cmb_InvoiceType.OnExit(Cmb_InvoiceType) ;
Cmb_BillType.ItemIndex := AdoQry_Maintain.fieldbyname('BillType').AsInteger;
edt_CustomerCode.Text:=fieldbyname('customerCode').asstring;
edt_CustomerName.Text:=fieldbyname('customerName').asstring;
edt_CurrencyCode.Text:=fieldbyname('currencyCode').asstring;
edt_CurrencyName.Text:=fieldbyname('currencyName').asstring;
Edt_ExportTypeCode.Text := fieldbyname('ExportTradeTypeCode').AsString;
Edt_ExportTypeName.Text := fieldbyname('ExportTradeTypeName').AsString;
edt_DeptCode.Text:=fieldbyname('SaleDeptCode').asstring;
edt_DeptName.text:=fieldbyname('DeptName').asstring;
Edt_SaleTypeCode.Text := fieldbyname('SaleTypeCode').AsString;
Edt_SaleTypeName.Text := fieldbyname('SaleTypeName').AsString;
Edt_PayTermCode.Text := fieldbyname('SaleTermCode').AsString;
Edt_PayTermName.Text := fieldbyname('PayTermName').AsString;
edt_SaleEmployeeCode.Text:=fieldbyname('SaleEmployeeCode').asstring;
edt_SaleEmployeeName.text:=fieldbyname('SaleEmployeeName').asstring;
if status<>'Add' then
begin
edt_CreateEmployeeCode.Text:=fieldbyname('CreateEmployeeCode').asstring;
edt_CreateEmployeeName.text:=fieldbyname('CreaterName').asstring;
Edt_EdItEmployeeCode.Text := fieldbyname('EdItEmployeeCode').asString;
ExecuteSql(AdoQry_Tmp,'select * from Employee where EmployeeCode='+quotedstr(Edt_EdItEmployeeName.Text),0);
Edt_EdItEmployeeName.Text := AdoQry_Tmp.fieldbyname('EmployeeName').AsString;
medt_Createdate.Text:=AdoQry_Maintain.fieldbyname('CreateDate').asstring;
medt_Invoicedate.Text := AdoQry_Maintain.fieldbyname('Billdate').asstring;
Medt_EditDate.Text := AdoQry_Maintain.fieldbyname('editdate').AsString;
end;
edt_rate.Text:=AdoQry_Maintain.fieldbyname('TaxRate').asString;
edt_ExchRate.Text:=AdoQry_Maintain.fieldbyname('ExchangeRate').asString;
Edt_Bank.Text := AdoQry_Maintain.fieldbyname('Bank').AsString;
Edt_BankActNo.Text := AdoQry_Maintain.fieldbyname('BankActNo').AsString;
edt_TotalTaxAmount.Text:=floattostr(AdoQry_Maintain.fieldbyname('TotalTaxAmount').asfloat);
edt_CancelAmount.Text:=floattostr(AdoQry_Maintain.fieldbyname('CancelAmount').asfloat);
edt_remArk.Text:=AdoQry_Maintain.fieldbyname('RemArk').asstring;
if Add then
Edt_RemArk.Text := '系统初始化';
Medt_InvoiceDate.Enabled := True;
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?