hanxuntao
/
DONGSHENG6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'master'
${ noResults }
DONGSHENG6/财务管理/u_ch_invoice_do.pas

696 lines
27 KiB
Plaintext
Raw Permalink Blame History

unit u_ch_invoice_do;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, BusinessSkinForm, bsSkinCtrls, StdCtrls, RxLookup, Mask,
bsSkinBoxCtrls, ComCtrls, DBCtrls;
type
Tfrm_ch_invoice_do = class(TForm)
bsSkinGroupBox1: TbsSkinGroupBox;
Label6: TLabel;
Label7: TLabel;
Label10: TLabel;
RxDBLookupCombo3: TRxDBLookupCombo;
Edit2: TEdit;
Memo1: TMemo;
bsSkinButton1: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
bsBusinessSkinForm1: TbsBusinessSkinForm;
Label1: TLabel;
Edit1: TEdit;
RxDBLookupCombo1: TRxDBLookupCombo;
Label2: TLabel;
DateTimePicker1: TDateTimePicker;
Label3: TLabel;
Label134: TLabel;
RxDBLookupCombo19: TRxDBLookupCombo;
Label133: TLabel;
Label136: TLabel;
Edit3: TEdit;
Edit4: TEdit;
Label4: TLabel;
RxDBLookupCombo2: TRxDBLookupCombo;
CheckBox1: TCheckBox;
Memo2: TMemo;
Label5: TLabel;
procedure bsSkinButton1Click(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_ch_invoice_do: Tfrm_ch_invoice_do;
implementation
uses u_ch_balance_accept, u_data_share, u_main, u_sys_progress,my_sys_function;
{$R *.dfm}
procedure Tfrm_ch_invoice_do.bsSkinButton1Click(Sender: TObject);
var
str,str_feeValid,strRMB,strUSD:string;
i:integer;
orgAmt:Double;
begin
bsSkinButton1.Enabled:=false;
str:=RxDBLookupCombo1.DisplayValue;
if not ASSIGNED(frm_sys_progress) then
frm_sys_progress:=tfrm_sys_progress.Create(application);
frm_sys_progress.bsSkinGauge1.ProgressText:='正在处理数据请等候。。。';
frm_sys_progress.Show;
frm_main.db.BeginTrans;
with frm_ch_balance_accept do
try
t_ch_balance.Insert;
t_ch_balance['结算类别']:='发票';
t_ch_balance['客户名称']:=t_ch_invoice_shen['客户名称'];
t_ch_balance['结算方式']:=str;
t_ch_balance['币别']:=t_ch_invoice_shen['币别'];
t_ch_balance['结算日期']:=formatdatetime('YYYY-MM-DD',DateTimePicker1.date);
t_ch_balance['核销日期']:=formatdatetime('YYYY-MM-DD',DateTimePicker1.date);
t_ch_balance.fieldbyname('帐单编号').asstring:=get_no(date,'BA');
t_ch_balance.fieldbyname('发票号码').asstring:=t_ch_invoice_shen.fieldbyname('发票号码').asstring;
t_ch_balance['银行代码']:=frm_ch_invoice_do.RxDBLookupCombo3.DisplayValues[0];
t_ch_balance['银行']:=frm_ch_invoice_do.RxDBLookupCombo3.DisplayValues[1];
t_ch_balance['美元银行代码']:=frm_ch_invoice_do.RxDBLookupCombo2.DisplayValues[0];
t_ch_balance['美元银行']:=frm_ch_invoice_do.RxDBLookupCombo2.DisplayValues[1];
t_ch_balance['凭证号码']:=frm_ch_invoice_do.Edit2.text;
t_ch_balance['相关号码']:=frm_ch_invoice_do.Edit1.text;
t_ch_balance['备注']:=frm_ch_invoice_do.Memo1.text;
t_ch_balance['其他备注']:=frm_ch_invoice_do.Memo2.text;
if trim(frm_ch_invoice_do.Edit3.Text)<>'' then
t_ch_balance['到帐金额']:=StrToFloat(frm_ch_invoice_do.Edit3.Text);
t_ch_balance['折算币别']:=frm_ch_invoice_do.RxDBLookupCombo19.DisplayValues[0]; //
if trim(frm_ch_invoice_do.Edit4.Text)<>'' then
t_ch_balance['财务费用']:=StrToFloat(frm_ch_invoice_do.Edit4.Text);
if t_ch_fee_do_invoice.RecordCount>0 then
frm_sys_progress.bsSkinGauge1.MaxValue:=t_ch_fee_do_invoice.RecordCount+2;
frm_sys_progress.bsSkinGauge1.MinValue:=0;
frm_sys_progress.bsSkinGauge1.Value:=0;
t_ch_fee_do_detail.close;
t_ch_fee_do_detail.sql.text:='select top 0 * from t_ch_fee_do ';
t_ch_fee_do_detail.open;
if dxDBGrid10.SelectedCount>1 then
begin
strRMB:='';
strUSD:='';
orgAmt:=0;
for i:=0 to dxDBGrid10.SelectedCount-1 do
begin
t_ch_invoice_shen.GotoBookmark(pointer(dxDBGrid10.selectedrows[i]));
t_ch_balance['结算金额']:=t_ch_balance['结算金额']+t_ch_invoice_shen['合计金额'];
t_ch_balance['实结金额']:=t_ch_balance['实结金额']+t_ch_invoice_shen['实际金额'];
t_ch_balance['虚结金额']:=t_ch_balance['虚结金额']+t_ch_invoice_shen['虚开金额'];
if t_ch_invoice_shen['币别']='USD' then
t_ch_balance['美元金额']:=t_ch_balance['美元金额']+t_ch_invoice_shen['实际金额']
else
t_ch_balance['人民币金额']:=t_ch_balance['人民币金额']+t_ch_invoice_shen['实际金额'];
if (CheckBox1.Checked) then begin
if frm_ch_invoice_do.RxDBLookupCombo19.DisplayValues[0]='RMB' then
begin
end
else
begin
end;
t_ch_fee_do_invoice.first;
while not t_ch_fee_do_invoice.eof do
begin
if t_ch_fee_do_invoice.FieldByName('原始币别').AsString='RMB' then
strRMB:='RMB'
else
strUSD:=t_ch_fee_do_invoice.FieldByName('原始币别').AsString;
if t_ch_fee_do_invoice.FieldByName('收付').AsString='收' then
orgAmt:=orgAmt+t_ch_fee_do_invoice.fieldbyname('原始金额').asFloat
else orgAmt:=orgAmt-t_ch_fee_do_invoice.fieldbyname('原始金额').asFloat;
t_ch_fee_do_invoice.next;
end;
t_ch_fee_do_invoice.first;
while not t_ch_fee_do_invoice.eof do
begin
t_ch_fee_do_detail.insert;
t_ch_fee_do_detail['工作编号']:=t_ch_balance.fieldbyname('帐单编号').asstring;
t_ch_fee_do_detail['业务编号']:=t_ch_fee_do_invoice['业务编号'];
t_ch_fee_do_detail['CH_ID']:=t_ch_fee_do_invoice['CH_ID'];
if (strUSD<>'') and (strRMB='') then
begin
t_ch_fee_do_detail['币别']:=strUSD;
end
else
t_ch_fee_do_detail['币别']:=t_ch_fee_do_invoice['币别'];
if (strUSD<>'') and (strRMB='') then
begin
t_ch_fee_do_detail['金额']:=t_ch_fee_do_invoice['原始金额'];
end
else
t_ch_fee_do_detail['金额']:=t_ch_fee_do_invoice['金额'];
t_ch_fee_do_detail['原始金额']:=t_ch_fee_do_invoice['原始金额'];
t_ch_fee_do_detail['类型']:='3';
t_ch_fee_do_detail.Post;
Setfee(0,t_ch_fee_do_invoice.fieldbyname('CH_ID').AsInteger,t_ch_fee_do_invoice.fieldbyname('原始金额').asFloat);
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
t_ch_fee_do_invoice.next;
end;
end else begin
t_ch_fee_do_invoice.first;
while not t_ch_fee_do_invoice.eof do
begin
t_ch_fee_do_detail.insert;
t_ch_fee_do_detail['工作编号']:=t_ch_balance.fieldbyname('帐单编号').asstring;
t_ch_fee_do_detail['业务编号']:=t_ch_fee_do_invoice['业务编号'];
t_ch_fee_do_detail['CH_ID']:=t_ch_fee_do_invoice['CH_ID'];
t_ch_fee_do_detail['币别']:=t_ch_fee_do_invoice['币别'];
t_ch_fee_do_detail['金额']:=t_ch_fee_do_invoice['金额'];
t_ch_fee_do_detail['原始金额']:=t_ch_fee_do_invoice['原始金额'];
t_ch_fee_do_detail['类型']:='3';
t_ch_fee_do_detail.Post;
Setfee(0,t_ch_fee_do_invoice.fieldbyname('CH_ID').AsInteger,t_ch_fee_do_invoice.fieldbyname('原始金额').AsCurrency);
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
t_ch_fee_do_invoice.next;
end;
end;
frm_main.qryTmp.Close;
frm_main.qryTmp.sql.Text:='update t_ch_invoice set 是否收费=1,帐单编号=:帐单编号,结算日期=:结算日期 where IN_ID=:IN_ID';
frm_main.qryTmp.Parameters.ParamByName('帐单编号').Value:=t_ch_balance.fieldbyname('帐单编号').asstring;
frm_main.qryTmp.Parameters.ParamByName('IN_ID').Value:=t_ch_invoice_shen['IN_ID'];
frm_main.qryTmp.Parameters.ParamByName('结算日期').Value:=formatdatetime('YYYY-MM-DD',DateTimePicker1.date);
frm_main.qryTmp.ExecSQL;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
end;
end
else
begin
if t_ch_fee_do_invoice.RecordCount>0 then
frm_sys_progress.bsSkinGauge1.MaxValue:=t_ch_fee_do_invoice.RecordCount+2;
frm_sys_progress.bsSkinGauge1.MinValue:=0;
frm_sys_progress.bsSkinGauge1.Value:=0;
t_ch_balance['结算金额']:=t_ch_invoice_shen['合计金额'];
t_ch_balance['实结金额']:=t_ch_invoice_shen['实际金额'];
t_ch_balance['虚结金额']:=t_ch_invoice_shen['虚开金额'];
if t_ch_invoice_shen['币别']='USD' then
t_ch_balance['美元金额']:=t_ch_invoice_shen['实际金额']
else
t_ch_balance['人民币金额']:=t_ch_invoice_shen['实际金额'];
if (CheckBox1.Checked) then begin
if frm_ch_invoice_do.RxDBLookupCombo19.DisplayValues[0]='RMB' then
begin
end
else
begin
end;
strRMB:='';
strUSD:='';
orgAmt:=0;
t_ch_fee_do_invoice.first;
while not t_ch_fee_do_invoice.eof do
begin
if t_ch_fee_do_invoice.FieldByName('原始币别').AsString='RMB' then
strRMB:='RMB'
else
strUSD:=t_ch_fee_do_invoice.FieldByName('原始币别').AsString;
if t_ch_fee_do_invoice.FieldByName('收付').AsString='收' then
orgAmt:=orgAmt+t_ch_fee_do_invoice.fieldbyname('原始金额').asFloat
else orgAmt:=orgAmt-t_ch_fee_do_invoice.fieldbyname('原始金额').asFloat;
t_ch_fee_do_invoice.next;
end;
t_ch_fee_do_invoice.first;
while not t_ch_fee_do_invoice.eof do
begin
t_ch_fee_do_detail.insert;
t_ch_fee_do_detail['工作编号']:=t_ch_balance.fieldbyname('帐单编号').asstring;
t_ch_fee_do_detail['业务编号']:=t_ch_fee_do_invoice['业务编号'];
t_ch_fee_do_detail['CH_ID']:=t_ch_fee_do_invoice['CH_ID'];
if (strUSD<>'') and (strRMB='') then
begin
t_ch_fee_do_detail['币别']:=strUSD;
end
else
t_ch_fee_do_detail['币别']:=t_ch_fee_do_invoice['币别'];
if (strUSD<>'') and (strRMB='') then
begin
t_ch_fee_do_detail['金额']:=t_ch_fee_do_invoice['原始金额'];
end
else
t_ch_fee_do_detail['金额']:=t_ch_fee_do_invoice['金额'];
t_ch_fee_do_detail['原始金额']:=t_ch_fee_do_invoice['原始金额'];
t_ch_fee_do_detail['类型']:='3';
t_ch_fee_do_detail.Post;
Setfee(0,t_ch_fee_do_invoice.fieldbyname('CH_ID').AsInteger,t_ch_fee_do_invoice.fieldbyname('原始金额').asFloat);
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
t_ch_fee_do_invoice.next;
end;
end else begin
t_ch_fee_do_invoice.first;
while not t_ch_fee_do_invoice.eof do
begin
t_ch_fee_do_detail.insert;
t_ch_fee_do_detail['工作编号']:=t_ch_balance.fieldbyname('帐单编号').asstring;
t_ch_fee_do_detail['业务编号']:=t_ch_fee_do_invoice['业务编号'];
t_ch_fee_do_detail['CH_ID']:=t_ch_fee_do_invoice['CH_ID'];
t_ch_fee_do_detail['币别']:=t_ch_fee_do_invoice['币别'];
t_ch_fee_do_detail['金额']:=t_ch_fee_do_invoice['金额'];
t_ch_fee_do_detail['原始金额']:=t_ch_fee_do_invoice['原始金额'];
t_ch_fee_do_detail['类型']:='3';
t_ch_fee_do_detail.Post;
Setfee(0,t_ch_fee_do_invoice.fieldbyname('CH_ID').AsInteger,t_ch_fee_do_invoice.fieldbyname('原始金额').AsCurrency);
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
t_ch_fee_do_invoice.next;
end;
end;
frm_main.qryTmp.Close;
frm_main.qryTmp.sql.Text:='update t_ch_invoice set 是否收费=1,帐单编号=:帐单编号,结算日期=:结算日期 where IN_ID=:IN_ID';
frm_main.qryTmp.Parameters.ParamByName('帐单编号').Value:=t_ch_balance.fieldbyname('帐单编号').asstring;
frm_main.qryTmp.Parameters.ParamByName('IN_ID').Value:=t_ch_invoice_shen['IN_ID'];
frm_main.qryTmp.Parameters.ParamByName('结算日期').Value:=formatdatetime('YYYY-MM-DD',DateTimePicker1.date);
frm_main.qryTmp.ExecSQL;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
end;
if (strUSD<>'') and (strRMB='') then
begin
t_ch_balance.fieldbyname('币别').asstring:=strUSD;
t_ch_balance.fieldbyname('结算金额').asFloat:=orgAmt;
t_ch_balance.fieldbyname('实结金额').asFloat:=orgAmt;
t_ch_balance.fieldbyname('虚结金额').asFloat:=orgAmt;
t_ch_balance.fieldbyname('美元金额').asFloat:=orgAmt;
t_ch_balance.fieldbyname('人民币金额').asFloat:=0;
end;
t_ch_balance.Post;
dxDBGrid10.ClearSelection;
t_ch_invoice_shen.close;
t_ch_invoice_shen.open;
t_ch_balance.edit;
t_ch_balance.post;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
t_ch_fee_do_detail.close;
frm_main.db.CommitTrans;
finally
frm_sys_progress.Close;
frm_sys_progress.Free;
frm_sys_progress:=nil;
str_feeValid:=SetfeeValid(t_ch_balance.fieldbyname('帐单编号').asstring);
if trim(str_feeValid) <>'' then
begin
ShowMessage('请检查以下费用'+#13#10+str_feeValid);
end;
if frm_main.db.InTransaction then
begin
MessageDlg('结算时出错，请关闭当前业务重试！',mterror,[mbok],0);
frm_main.db.RollbackTrans;
end;
bsSkinButton1.Enabled:=true;
frm_ch_invoice_do.close;
end;
end;
{
ljp 20131016
procedure Tfrm_ch_invoice_do.bsSkinButton1Click(Sender: TObject);
var
str,str_feeValid:string;
i,cycnt:integer;
begin
bsSkinButton1.Enabled:=false;
str:=RxDBLookupCombo1.DisplayValue;
if not ASSIGNED(frm_sys_progress) then
frm_sys_progress:=tfrm_sys_progress.Create(application);
frm_sys_progress.bsSkinGauge1.ProgressText:='正在处理数据请等候。。。';
frm_sys_progress.Show;
frm_main.db.BeginTrans;
with frm_ch_balance_accept do
try
t_ch_balance.Insert;
t_ch_balance['结算类别']:='发票';
t_ch_balance['客户名称']:=t_ch_invoice_shen['客户名称'];
t_ch_balance['结算方式']:=str;
t_ch_balance['币别']:=t_ch_invoice_shen['币别'];
t_ch_balance['结算日期']:=formatdatetime('YYYY-MM-DD',DateTimePicker1.date);
t_ch_balance['核销日期']:=formatdatetime('YYYY-MM-DD',DateTimePicker1.date);
t_ch_balance.fieldbyname('帐单编号').asstring:=get_no(date,'BA');
t_ch_balance['银行代码']:=frm_ch_invoice_do.RxDBLookupCombo3.DisplayValues[0];
t_ch_balance['银行']:=frm_ch_invoice_do.RxDBLookupCombo3.DisplayValues[1];
t_ch_balance['凭证号码']:=frm_ch_invoice_do.Edit2.text;
t_ch_balance['相关号码']:=frm_ch_invoice_do.Edit1.text;
t_ch_balance['备注']:=frm_ch_invoice_do.Memo1.text;
if t_ch_fee_do_invoice.RecordCount>0 then
frm_sys_progress.bsSkinGauge1.MaxValue:=t_ch_fee_do_invoice.RecordCount+2;
frm_sys_progress.bsSkinGauge1.MinValue:=0;
frm_sys_progress.bsSkinGauge1.Value:=0;
t_ch_fee_do_detail.close;
t_ch_fee_do_detail.sql.text:='select top 0 * from t_ch_fee_do ';
t_ch_fee_do_detail.open;
if dxDBGrid10.SelectedCount>0 then
begin
for i:=0 to dxDBGrid10.SelectedCount-1 do
begin
t_ch_invoice_shen.GotoBookmark(pointer(dxDBGrid10.selectedrows[i]));
t_ch_balance['结算金额']:=t_ch_balance['结算金额']+t_ch_invoice_shen['合计金额'];
t_ch_balance['实结金额']:=t_ch_balance['实结金额']+t_ch_invoice_shen['实际金额'];
t_ch_balance['虚结金额']:=t_ch_balance['虚结金额']+t_ch_invoice_shen['虚开金额'];
if t_ch_invoice_shen['币别']='USD' then
t_ch_balance['美元金额']:=t_ch_balance['美元金额']+t_ch_invoice_shen['实际金额']
else
t_ch_balance['人民币金额']:=t_ch_balance['人民币金额']+t_ch_invoice_shen['实际金额'];
t_ch_fee_do_invoice.first;
while not t_ch_fee_do_invoice.eof do
begin
t_ch_fee_do_detail.insert;
t_ch_fee_do_detail['工作编号']:=t_ch_balance.fieldbyname('帐单编号').asstring;
t_ch_fee_do_detail['业务编号']:=t_ch_fee_do_invoice['业务编号'];
t_ch_fee_do_detail['CH_ID']:=t_ch_fee_do_invoice['CH_ID'];
t_ch_fee_do_detail['币别']:=t_ch_fee_do_invoice['币别'];
t_ch_fee_do_detail['金额']:=t_ch_fee_do_invoice['金额'];
t_ch_fee_do_detail['原始金额']:=t_ch_fee_do_invoice['原始金额'];
t_ch_fee_do_detail['类型']:='3';
t_ch_fee_do_detail.Post;
Setfee(0,t_ch_fee_do_invoice.fieldbyname('CH_ID').AsInteger,t_ch_fee_do_invoice.fieldbyname('原始金额').AsCurrency);
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
t_ch_fee_do_invoice.next;
end;
frm_main.qryTmp.Close;
frm_main.qryTmp.sql.Text:='update t_ch_invoice set 是否收费=1,帐单编号=:帐单编号 where IN_ID=:IN_ID';
frm_main.qryTmp.Parameters.ParamByName('帐单编号').Value:=t_ch_balance.fieldbyname('帐单编号').asstring;
frm_main.qryTmp.Parameters.ParamByName('IN_ID').Value:=t_ch_invoice_shen['IN_ID'];
frm_main.qryTmp.ExecSQL;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
end;
end
else
begin
if t_ch_fee_do_invoice.RecordCount>0 then
frm_sys_progress.bsSkinGauge1.MaxValue:=t_ch_fee_do_invoice.RecordCount+2;
frm_sys_progress.bsSkinGauge1.MinValue:=0;
frm_sys_progress.bsSkinGauge1.Value:=0;
t_ch_balance['结算金额']:=t_ch_balance['结算金额']+t_ch_invoice_shen['合计金额'];
t_ch_balance['实结金额']:=t_ch_balance['实结金额']+t_ch_invoice_shen['实际金额'];
t_ch_balance['虚结金额']:=t_ch_balance['虚结金额']+t_ch_invoice_shen['虚开金额'];
if t_ch_invoice_shen['币别']='USD' then
t_ch_balance['美元金额']:=t_ch_balance['美元金额']+t_ch_invoice_shen['实际金额']
else
t_ch_balance['人民币金额']:=t_ch_balance['人民币金额']+t_ch_invoice_shen['实际金额'];
t_ch_fee_do_invoice.first;
while not t_ch_fee_do_invoice.eof do
begin
t_ch_fee_do_detail.insert;
t_ch_fee_do_detail['工作编号']:=t_ch_balance.fieldbyname('帐单编号').asstring;
t_ch_fee_do_detail['业务编号']:=t_ch_fee_do_invoice['业务编号'];
t_ch_fee_do_detail['CH_ID']:=t_ch_fee_do_invoice['CH_ID'];
t_ch_fee_do_detail['币别']:=t_ch_fee_do_invoice['币别'];
t_ch_fee_do_detail['金额']:=t_ch_fee_do_invoice['金额'];
t_ch_fee_do_detail['原始金额']:=t_ch_fee_do_invoice['原始金额'];
t_ch_fee_do_detail['类型']:='3';
t_ch_fee_do_detail.Post;
Setfee(0,t_ch_fee_do_invoice.fieldbyname('CH_ID').AsInteger,t_ch_fee_do_invoice.fieldbyname('原始金额').AsCurrency);
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
t_ch_fee_do_invoice.next;
end;
frm_main.qryTmp.Close;
frm_main.qryTmp.sql.Text:='update t_ch_invoice set 是否收费=1,帐单编号=:帐单编号 where IN_ID=:IN_ID';
frm_main.qryTmp.Parameters.ParamByName('帐单编号').Value:=t_ch_balance.fieldbyname('帐单编号').asstring;
frm_main.qryTmp.Parameters.ParamByName('IN_ID').Value:=t_ch_invoice_shen['IN_ID'];
frm_main.qryTmp.ExecSQL;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
end;
t_ch_balance.Post;
dxDBGrid10.ClearSelection;
t_ch_invoice_shen.close;
t_ch_invoice_shen.open;
t_ch_balance.edit;
t_ch_balance.post;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
t_ch_fee_do_detail.close;
frm_main.db.CommitTrans;
finally
frm_sys_progress.Close;
frm_sys_progress.Free;
frm_sys_progress:=nil;
str_feeValid:=SetfeeValid(t_ch_balance.fieldbyname('帐单编号').asstring);
if trim(str_feeValid) <>'' then
begin
ShowMessage('请检查以下费用'+#13#10+str_feeValid);
end;
if frm_main.db.InTransaction then
begin
MessageDlg('结算时出错，请关闭当前业务重试！',mterror,[mbok],0);
frm_main.db.RollbackTrans;
end;
bsSkinButton1.Enabled:=true;
frm_ch_invoice_do.close;
end;
end;
}
{
procedure Tfrm_ch_invoice_do.bsSkinButton1Click(Sender: TObject);
var
str,str_feeValid:string;
i:integer;
begin
bsSkinButton1.Enabled:=false;
str:=RxDBLookupCombo1.DisplayValue;
if not ASSIGNED(frm_sys_progress) then
frm_sys_progress:=tfrm_sys_progress.Create(application);
frm_sys_progress.bsSkinGauge1.ProgressText:='正在处理数据请等候。。。';
frm_sys_progress.Show;
frm_main.db.BeginTrans;
with frm_ch_balance_accept do
try
t_ch_balance.Insert;
t_ch_balance['结算类别']:='发票';
t_ch_balance['客户名称']:=t_ch_invoice_shen['客户名称'];
t_ch_balance['结算方式']:=str;
t_ch_balance['币别']:=t_ch_invoice_shen['币别'];
t_ch_balance['结算日期']:=formatdatetime('YYYY-MM-DD',DateTimePicker1.date);
t_ch_balance['核销日期']:=formatdatetime('YYYY-MM-DD',DateTimePicker1.date);
t_ch_balance.fieldbyname('帐单编号').asstring:=get_no(date,'BA');
t_ch_balance['预结金额']:=0;
t_ch_balance['银行代码']:=frm_ch_invoice_do.RxDBLookupCombo3.DisplayValues[0];
t_ch_balance['银行']:=frm_ch_invoice_do.RxDBLookupCombo3.DisplayValues[1];
t_ch_balance['凭证号码']:=frm_ch_invoice_do.Edit2.text;
t_ch_balance['相关号码']:=frm_ch_invoice_do.Edit1.text;
t_ch_balance['备注']:=frm_ch_invoice_do.Memo1.text;
if t_ch_fee_do_invoice.RecordCount>0 then
frm_sys_progress.bsSkinGauge1.MaxValue:=t_ch_fee_do_invoice.RecordCount+2;
frm_sys_progress.bsSkinGauge1.MinValue:=0;
frm_sys_progress.bsSkinGauge1.Value:=0;
t_ch_fee_do_detail.close;
t_ch_fee_do_detail.sql.text:='select top 0 * from t_ch_fee_do ';
t_ch_fee_do_detail.open;
if dxDBGrid10.SelectedCount>0 then
begin
for i:=0 to dxDBGrid10.SelectedCount-1 do
begin
t_ch_invoice_shen.GotoBookmark(pointer(dxDBGrid10.selectedrows[i]));
t_ch_balance['结算金额']:=t_ch_balance['结算金额']+t_ch_invoice_shen['合计金额'];
t_ch_balance['实结金额']:=t_ch_balance['实结金额']+t_ch_invoice_shen['实际金额'];
t_ch_balance['虚结金额']:=t_ch_balance['虚结金额']+t_ch_invoice_shen['虚开金额'];
if t_ch_invoice_shen['币别']='USD' then
t_ch_balance['美元金额']:=t_ch_balance['美元金额']+t_ch_invoice_shen['实际金额']
else
t_ch_balance['人民币金额']:=t_ch_balance['人民币金额']+t_ch_invoice_shen['实际金额'];
t_ch_fee_do_invoice.first;
while not t_ch_fee_do_invoice.eof do
begin
t_ch_fee_do_detail.insert;
t_ch_fee_do_detail['工作编号']:=t_ch_balance.fieldbyname('帐单编号').asstring;
t_ch_fee_do_detail['业务编号']:=t_ch_fee_do_invoice['业务编号'];
t_ch_fee_do_detail['CH_ID']:=t_ch_fee_do_invoice['CH_ID'];
t_ch_fee_do_detail['币别']:=t_ch_fee_do_invoice['币别'];
t_ch_fee_do_detail['金额']:=t_ch_fee_do_invoice['金额'];
t_ch_fee_do_detail['原始金额']:=t_ch_fee_do_invoice['原始金额'];
t_ch_fee_do_detail['类型']:='3';
t_ch_fee_do_detail.Post;
Setfee(0,t_ch_fee_do_invoice.fieldbyname('CH_ID').AsInteger,t_ch_fee_do_invoice.fieldbyname('原始金额').AsCurrency);
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
t_ch_fee_do_invoice.next;
end;
frm_main.qryTmp.Close;
frm_main.qryTmp.sql.Text:='update t_ch_invoice set 是否收费=1,帐单编号=:帐单编号 where IN_ID=:IN_ID';
frm_main.qryTmp.Parameters.ParamByName('帐单编号').Value:=t_ch_balance.fieldbyname('帐单编号').asstring;
frm_main.qryTmp.Parameters.ParamByName('IN_ID').Value:=t_ch_invoice_shen['IN_ID'];
frm_main.qryTmp.ExecSQL;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
end;
end
else
begin
if t_ch_fee_do_invoice.RecordCount>0 then
frm_sys_progress.bsSkinGauge1.MaxValue:=t_ch_fee_do_invoice.RecordCount+2;
frm_sys_progress.bsSkinGauge1.MinValue:=0;
frm_sys_progress.bsSkinGauge1.Value:=0;
t_ch_balance['结算金额']:=t_ch_balance['结算金额']+t_ch_invoice_shen['合计金额'];
t_ch_balance['实结金额']:=t_ch_balance['实结金额']+t_ch_invoice_shen['实际金额'];
t_ch_balance['虚结金额']:=t_ch_balance['虚结金额']+t_ch_invoice_shen['虚开金额'];
if t_ch_invoice_shen['币别']='USD' then
t_ch_balance['美元金额']:=t_ch_balance['美元金额']+t_ch_invoice_shen['实际金额']
else
t_ch_balance['人民币金额']:=t_ch_balance['人民币金额']+t_ch_invoice_shen['实际金额'];
t_ch_fee_do_invoice.first;
while not t_ch_fee_do_invoice.eof do
begin
t_ch_fee_do_detail.insert;
t_ch_fee_do_detail['工作编号']:=t_ch_balance.fieldbyname('帐单编号').asstring;
t_ch_fee_do_detail['业务编号']:=t_ch_fee_do_invoice['业务编号'];
t_ch_fee_do_detail['CH_ID']:=t_ch_fee_do_invoice['CH_ID'];
t_ch_fee_do_detail['币别']:=t_ch_fee_do_invoice['币别'];
t_ch_fee_do_detail['金额']:=t_ch_fee_do_invoice['金额'];
t_ch_fee_do_detail['原始金额']:=t_ch_fee_do_invoice['原始金额'];
t_ch_fee_do_detail['类型']:='3';
t_ch_fee_do_detail.Post;
Setfee(0,t_ch_fee_do_invoice.fieldbyname('CH_ID').AsInteger,t_ch_fee_do_invoice.fieldbyname('原始金额').AsCurrency);
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
t_ch_fee_do_invoice.next;
end;
frm_main.qryTmp.Close;
frm_main.qryTmp.sql.Text:='update t_ch_invoice set 是否收费=1,帐单编号=:帐单编号 where IN_ID=:IN_ID';
frm_main.qryTmp.Parameters.ParamByName('帐单编号').Value:=t_ch_balance.fieldbyname('帐单编号').asstring;
frm_main.qryTmp.Parameters.ParamByName('IN_ID').Value:=t_ch_invoice_shen['IN_ID'];
frm_main.qryTmp.ExecSQL;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
end;
t_ch_balance.Post;
dxDBGrid10.ClearSelection;
t_ch_invoice_shen.close;
t_ch_invoice_shen.open;
t_ch_balance.edit;
t_ch_balance.post;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
t_ch_fee_do_detail.close;
frm_main.db.CommitTrans;
finally
frm_sys_progress.Close;
frm_sys_progress.Free;
frm_sys_progress:=nil;
str_feeValid:=SetfeeValid(t_ch_balance.fieldbyname('帐单编号').asstring);
if trim(str_feeValid) <>'' then
begin
ShowMessage('请检查以下费用'+#13#10+str_feeValid);
end;
if frm_main.db.InTransaction then
begin
MessageDlg('结算时出错，请关闭当前业务重试！',mterror,[mbok],0);
frm_main.db.RollbackTrans;
end;
bsSkinButton1.Enabled:=true;
frm_ch_invoice_do.close;
end;
end;
}
procedure Tfrm_ch_invoice_do.bsSkinButton2Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_ch_invoice_do.FormShow(Sender: TObject);
begin
DateTimePicker1.date:=Date;
{
Label134.Visible:=false;
Edit4.Visible:=false;
Label133.Visible:=false;
RxDBLookupCombo19.Visible:=false;
Label136.Visible:=false;
Edit5.Visible:=false;
}
end;
end.
Reference in New Issue View Git Blame Copy Permalink