hanxuntao
/
DS6JIEFENG
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 '48f045977c'
${ noResults }
DS6JIEFENG/财务管理/u_ch_invoice_add_jk.~pas

583 lines
25 KiB
Plaintext
Raw Blame History

unit u_ch_invoice_add_jk;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, BusinessSkinForm, StdCtrls, wwdblook, RxLookup, bsSkinCtrls, DB,
ADODB;
type
Tfrm_ch_invoice_add_jk = class(TForm)
bsBusinessSkinForm1: TbsBusinessSkinForm;
Label48: TLabel;
wwDBLookupCombo6: TwwDBLookupCombo;
Label63: TLabel;
RxDBLookupCombo3: TRxDBLookupCombo;
Label1: TLabel;
Edit1: TEdit;
bsSkinCheckRadioBox7: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox8: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
bsSkinButton1: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
p_invoice_no: TADOStoredProc;
Edit2: TEdit;
Label2: TLabel;
RxDBLookupCombo1: TRxDBLookupCombo;
bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox3: TbsSkinCheckRadioBox;
edt1: TEdit;
procedure bsSkinButton1Click(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
BsNO:String;
{ Public declarations }
end;
var
frm_ch_invoice_add_jk: Tfrm_ch_invoice_add_jk;
implementation
uses u_data_share, u_ch_invoice_jk, u_main, my_sys_function;
{$R *.dfm}
procedure Tfrm_ch_invoice_add_jk.bsSkinButton1Click(Sender: TObject);
var
afield : variant;
i: Integer;
aQuery,aAdoQuery:TAdoQuery;
str_Bank,str_AccountNo,OldNo:string;
AmtRmb,UsdRmb:double;
begin
if trim(Edit1.Text)='' then
begin
//showmessage('发票号码不能为空！！');
//exit;
end;
if bsSkinCheckRadioBox7.Checked or bsSkinCheckRadioBox8.Checked then
begin
if trim(wwDBLookupCombo6.Text)='' then
begin
showmessage('发票币别不能为空！！');
exit;
end;
{
if RxDBLookupCombo3.DisplayValue='' then
begin
showmessage('客户名称不能为空！！');
exit;
end;
}
end;
if bsSkinCheckRadioBox7.Checked then
begin
try
modify_all:=true;
frm_ch_invoice_jk.t_ch_invoice.Insert;
frm_ch_invoice_jk.t_ch_invoice['发票类别']:='自由发票';
frm_ch_invoice_jk.t_ch_invoice['发票号码']:=trim(Edit1.Text);
frm_ch_invoice_jk.t_ch_invoice['币别']:=wwDBLookupCombo6.Text;
if RxDBLookupCombo1.DisplayValues[0]<>'' then
begin
frm_ch_invoice_jk.t_ch_invoice['分部名称']:=RxDBLookupCombo1.DisplayValues[0];
if frm_data_share.t_code_subcomp.locate('分部名称',RxDBLookupCombo1.DisplayValues[0],[]) then
begin
frm_ch_invoice_jk.t_ch_invoice['工商登记号']:=frm_data_share.t_code_subcomp.fieldbyname('工商登记号').AsString;
frm_ch_invoice_jk.t_ch_invoice['税务登记号']:=frm_data_share.t_code_subcomp.fieldbyname('税务登记号').AsString;
end;
if frm_ch_invoice_jk.t_sys_bank.Locate('币别;分部名称',vararrayof([frm_ch_invoice_jk.t_ch_invoice['币别'],subcomp]),[]) then begin
frm_ch_invoice_jk.t_ch_invoice['开户银行']:=frm_ch_invoice_jk.t_sys_bank.fieldbyname('银行名称').asstring;
frm_ch_invoice_jk.t_ch_invoice['银行账号']:=frm_ch_invoice_jk.t_sys_bank.fieldbyname('银行账号').asstring;
end else begin
if frm_ch_invoice_jk.t_sys_bank.Locate('币别',frm_ch_invoice_jk.t_ch_invoice['币别'],[]) then begin
frm_ch_invoice_jk.t_ch_invoice['开户银行']:=frm_ch_invoice_jk.t_sys_bank.fieldbyname('银行名称').asstring;
frm_ch_invoice_jk.t_ch_invoice['银行账号']:=frm_ch_invoice_jk.t_sys_bank.fieldbyname('银行账号').asstring;
end;
end;
end
else
begin
if frm_ch_invoice_jk.t_sys_bank.Locate('币别',frm_ch_invoice_jk.t_ch_invoice['币别'],[]) then begin
frm_ch_invoice_jk.t_ch_invoice['开户银行']:=frm_ch_invoice_jk.t_sys_bank.fieldbyname('银行名称').asstring;
frm_ch_invoice_jk.t_ch_invoice['银行账号']:=frm_ch_invoice_jk.t_sys_bank.fieldbyname('银行账号').asstring;
end;
end;
if RxDBLookupCombo3.DisplayValues[1]<>'' then
frm_ch_invoice_jk.t_ch_invoice['客户名称']:=RxDBLookupCombo3.DisplayValues[1];
if not frm_data_share.t_crm_client_all.IsEmpty then
if RxDBLookupCombo3.DisplayValues[1]<>'' then
if frm_data_share.t_crm_client_all.locate('客户简称',RxDBLookupCombo3.DisplayValues[1],[]) then
begin
if trim(frm_data_share.t_crm_client_all.fieldbyname('发票抬头').asstring)<>''then
frm_ch_invoice_jk.t_ch_invoice['发票抬头']:=frm_data_share.t_crm_client_all.fieldbyname('发票抬头').asstring;
end;
frm_ch_invoice_jk.RxDBLookupCombo2.Value:='';
frm_ch_invoice_jk.t_ch_invoice['发票类型']:='增值税普票';
frm_ch_invoice_jk.edt_from.text:=edt1.text;
if frm_ch_invoice_jk.t_ch_invoice['币别']='USD' then begin
frm_ch_invoice_jk.t_ch_invoice['费用列表']:='代理海运费';//get_parameters_value(7,'代理海运费')
frm_ch_invoice_jk.wwDBLookupCombo6.Text:='USD';
end
else
frm_ch_invoice_jk.t_ch_invoice['费用列表']:=get_parameters_value(147,'代理运杂费');
frm_ch_invoice_jk.t_ch_invoice.Post;
InsertUpdateInvoice_item(1,1,frm_ch_invoice_jk.t_ch_invoice.fieldbyname('in_id').AsInteger,frm_ch_invoice_jk.t_ch_invoice.fieldbyname('申请编号').asstring,frm_ch_invoice_jk.t_ch_invoice.fieldbyname('费用列表').asstring,frm_ch_invoice_jk.t_ch_invoice.fieldbyname('金额列表').asstring,0);
modify_all:=false;
except
if frm_ch_invoice_jk.t_ch_invoice.State=dsinsert then
frm_ch_invoice_jk.t_ch_invoice.cancel;
modify_all:=true;
showmessage('发票添加失败！！');
exit;
end;
frm_ch_invoice_jk.bsSkinTabSheet2.show;
close;
exit;
end;
if bsSkinCheckRadioBox8.Checked then
begin
try
modify_all:=true;
afield := vararraycreate([0,frm_ch_invoice_jk.t_ch_invoice.fieldcount-1],varvariant);
for i := 0 to (frm_ch_invoice_jk.t_ch_invoice.fieldcount-1) do
begin
if frm_ch_invoice_jk.t_ch_invoice.fields[i].FieldName='开户银行' then
str_Bank:=frm_ch_invoice_jk.t_ch_invoice.fields[i].value;
if frm_ch_invoice_jk.t_ch_invoice.fields[i].FieldName='银行账号' then
str_AccountNo:=frm_ch_invoice_jk.t_ch_invoice.fields[i].value;
afield[i] :=frm_ch_invoice_jk.t_ch_invoice.fields[i].value;
end;
frm_ch_invoice_jk.t_ch_invoice.append;
for i := 0 to (frm_ch_invoice_jk.t_ch_invoice.fieldcount-1) do
begin
if (frm_ch_invoice_jk.t_ch_invoice.fields[i].FieldName<>'IN_ID') and (Trim(frm_ch_invoice_jk.t_ch_invoice.fields[i].FieldName)<>'费用选择列表') then
frm_ch_invoice_jk.t_ch_invoice.fields[i].value := afield[i] ;
end;
frm_ch_invoice_jk.t_ch_invoice['发票类别']:='自由发票';
frm_ch_invoice_jk.t_ch_invoice['发票号码']:=trim(Edit1.Text);
frm_ch_invoice_jk.t_ch_invoice['申请编号']:='';
frm_ch_invoice_jk.t_ch_invoice['币别']:=wwDBLookupCombo6.Text;
if frm_ch_invoice_jk.t_sys_bank.fieldbyname('银行账号').asstring='' then
begin
if frm_ch_invoice_jk.t_sys_bank.Locate('币别',frm_ch_invoice_jk.t_ch_invoice['币别'],[]) then
begin
frm_ch_invoice_jk.t_ch_invoice['开户银行']:=frm_ch_invoice_jk.t_sys_bank.fieldbyname('银行名称').asstring;
frm_ch_invoice_jk.t_ch_invoice['银行账号']:=frm_ch_invoice_jk.t_sys_bank.fieldbyname('银行账号').asstring;
end;
end
else
begin
end;
frm_ch_invoice_jk.t_ch_invoice['是否收费']:=0;
if Application.MessageBox('是否复制金额明细？','提示',MB_YESNO+ MB_ICONINFORMATION)=IDYES then
begin
end
else
begin
frm_ch_invoice_jk.t_ch_invoice['费用列表']:='';
frm_ch_invoice_jk.t_ch_invoice['金额列表']:='';
frm_ch_invoice_jk.t_ch_invoice['备注']:='';
frm_ch_invoice_jk.t_ch_invoice['实际金额']:=0;
frm_ch_invoice_jk.t_ch_invoice['合计金额']:=0;
frm_ch_invoice_jk.t_ch_invoice['金额大写']:='';
end;
if RxDBLookupCombo1.DisplayValues[0]<>'' then begin
frm_ch_invoice_jk.t_ch_invoice['分部名称']:=RxDBLookupCombo1.DisplayValues[0];
if frm_data_share.t_code_subcomp.locate('分部名称',RxDBLookupCombo1.DisplayValues[0],[]) then
begin
frm_ch_invoice_jk.t_ch_invoice['工商登记号']:=frm_data_share.t_code_subcomp.fieldbyname('工商登记号').AsString;
frm_ch_invoice_jk.t_ch_invoice['税务登记号']:=frm_data_share.t_code_subcomp.fieldbyname('税务登记号').AsString;
end;
if frm_ch_invoice_jk.t_sys_bank.Locate('币别;分部名称',vararrayof([frm_ch_invoice_jk.t_ch_invoice['币别'],subcomp]),[]) then begin
frm_ch_invoice_jk.t_ch_invoice['开户银行']:=frm_ch_invoice_jk.t_sys_bank.fieldbyname('银行名称').asstring;
frm_ch_invoice_jk.t_ch_invoice['银行账号']:=frm_ch_invoice_jk.t_sys_bank.fieldbyname('银行账号').asstring;
end else begin
if frm_ch_invoice_jk.t_sys_bank.Locate('币别',frm_ch_invoice_jk.t_ch_invoice['币别'],[]) then begin
frm_ch_invoice_jk.t_ch_invoice['开户银行']:=frm_ch_invoice_jk.t_sys_bank.fieldbyname('银行名称').asstring;
frm_ch_invoice_jk.t_ch_invoice['银行账号']:=frm_ch_invoice_jk.t_sys_bank.fieldbyname('银行账号').asstring;
end;
end;
end;
if RxDBLookupCombo3.DisplayValues[1]<>'' then
frm_ch_invoice_jk.t_ch_invoice['客户名称']:=RxDBLookupCombo3.DisplayValues[1];
if not frm_data_share.t_crm_client_all.IsEmpty then
if RxDBLookupCombo3.DisplayValues[1]<>'' then
if frm_data_share.t_crm_client_all.locate('客户简称',RxDBLookupCombo3.DisplayValues[1],[]) then
begin
if trim(frm_data_share.t_crm_client_all.fieldbyname('发票抬头').asstring)<>''then
frm_ch_invoice_jk.t_ch_invoice['发票抬头']:=frm_data_share.t_crm_client_all.fieldbyname('发票抬头').asstring;
end;
// frm_ch_invoice.t_ch_invoice['开户银行']:=str_Bank;
// frm_ch_invoice.t_ch_invoice['银行账号']:=str_AccountNo;
frm_ch_invoice_jk.RxDBLookupCombo2.Value:='';
frm_ch_invoice_jk.t_ch_invoice['制单人']:=employee;
frm_ch_invoice_jk.t_ch_invoice['开票日期']:=date;
frm_ch_invoice_jk.t_ch_invoice['是否打印']:=0;
frm_ch_invoice_jk.t_ch_invoice['是否废除']:=0;
frm_ch_invoice_jk.t_ch_invoice['废除原因']:='';
frm_ch_invoice_jk.t_ch_invoice['废除人']:='';
frm_ch_invoice_jk.t_ch_invoice['废除日期']:=null;
frm_ch_invoice_jk.t_ch_invoice['申请人']:='';
frm_ch_invoice_jk.t_ch_invoice['申请日期']:=null;
frm_ch_invoice_jk.t_ch_invoice['费用列表']:='代理运杂费';
frm_ch_invoice_jk.t_ch_invoice.post;
InsertUpdateInvoice_item(1,1,frm_ch_invoice_jk.t_ch_invoice.fieldbyname('in_id').AsInteger,frm_ch_invoice_jk.t_ch_invoice.fieldbyname('申请编号').asstring,frm_ch_invoice_jk.t_ch_invoice.fieldbyname('费用列表').asstring,frm_ch_invoice_jk.t_ch_invoice.fieldbyname('金额列表').asstring,0);
modify_all:=false;
except
if frm_ch_invoice_jk.t_ch_invoice.State=dsinsert then
frm_ch_invoice_jk.t_ch_invoice.cancel;
modify_all:=true;
showmessage('发票添加失败！！');
exit;
end;
frm_ch_invoice_jk.bsSkinTabSheet2.show;
close;
exit;
end;
if bsSkinCheckRadioBox3.Checked then
begin
try
modify_all:=true;
afield := vararraycreate([0,frm_ch_invoice_jk.t_ch_invoice.fieldcount-1],varvariant);
OldNo:=frm_ch_invoice_jk.t_ch_invoice.fieldbyname('申请编号').AsString;
AmtRmb:=frm_ch_invoice_jk.t_ch_invoice.FieldByName('人民币金额').AsFloat;
UsdRmb:=frm_ch_invoice_jk.t_ch_invoice.FieldByName('美元金额').AsFloat;
for i := 0 to (frm_ch_invoice_jk.t_ch_invoice.fieldcount-1) do
begin
if frm_ch_invoice_jk.t_ch_invoice.fields[i].FieldName='开户银行' then
str_Bank:=frm_ch_invoice_jk.t_ch_invoice.fields[i].value;
if frm_ch_invoice_jk.t_ch_invoice.fields[i].FieldName='银行账号' then
str_AccountNo:=frm_ch_invoice_jk.t_ch_invoice.fields[i].value;
afield[i] :=frm_ch_invoice_jk.t_ch_invoice.fields[i].value;
end;
frm_ch_invoice_jk.t_ch_invoice.append;
for i := 0 to (frm_ch_invoice_jk.t_ch_invoice.fieldcount-1) do
begin
if (frm_ch_invoice_jk.t_ch_invoice.fields[i].FieldName<>'IN_ID') and (Trim(frm_ch_invoice_jk.t_ch_invoice.fields[i].FieldName)<>'费用选择列表') then
frm_ch_invoice_jk.t_ch_invoice.fields[i].value := afield[i] ;
end;
frm_ch_invoice_jk.t_ch_invoice['发票类别']:='自由发票';
frm_ch_invoice_jk.t_ch_invoice['发票号码']:=trim(Edit1.Text);
frm_ch_invoice_jk.t_ch_invoice['申请编号']:='';
frm_ch_invoice_jk.t_ch_invoice['币别']:='USD';
frm_ch_invoice_jk.t_ch_invoice['实际币别']:='USD';
frm_ch_invoice_jk.t_ch_invoice['费用列表']:='代理海运费';
frm_ch_invoice_jk.t_ch_invoice['金额列表']:=frm_ch_invoice_jk.t_ch_invoice.FieldByName('美元金额').AsFloat;
frm_ch_invoice_jk.t_ch_invoice['合计金额']:=frm_ch_invoice_jk.t_ch_invoice.FieldByName('美元金额').AsFloat;
frm_ch_invoice_jk.t_ch_invoice['实际金额']:=frm_ch_invoice_jk.t_ch_invoice.FieldByName('美元金额').AsFloat;
frm_ch_invoice_jk.t_ch_invoice['美元金额']:=frm_ch_invoice_jk.t_ch_invoice.FieldByName('美元金额').AsFloat;
frm_ch_invoice_jk.t_ch_invoice['是否收费']:=0;
frm_ch_invoice_jk.t_ch_invoice['人民币金额']:=0;
frm_ch_invoice_jk.edt_from.text:=edt1.Text ;
frm_ch_invoice_jk.wwDBLookupCombo6.Text:='USD';
frm_ch_invoice_jk.t_ch_invoice['备注']:='USD'+frm_ch_invoice_jk.t_ch_invoice.FieldByName('美元金额').AsString+'*'+floattostr(GetUsdExrate(frm_ch_invoice_jk.t_ch_invoice.FieldByName('开票日期').AsString))+'此票限付美元'+edt1.Text;
frm_ch_invoice_jk.t_ch_invoice['制单人']:=employee;
frm_ch_invoice_jk.t_ch_invoice['开票日期']:=date;
frm_ch_invoice_jk.t_ch_invoice['是否打印']:=0;
frm_ch_invoice_jk.t_ch_invoice['是否废除']:=0;
frm_ch_invoice_jk.t_ch_invoice['废除原因']:='';
frm_ch_invoice_jk.t_ch_invoice['废除人']:='';
frm_ch_invoice_jk.t_ch_invoice['废除日期']:=null;
frm_ch_invoice_jk.t_ch_invoice['申请人']:='';
frm_ch_invoice_jk.t_ch_invoice['申请日期']:=null;
frm_ch_invoice_jk.t_ch_invoice.post;
InsertUpdateInvoice_item(1,1,frm_ch_invoice_jk.t_ch_invoice.fieldbyname('in_id').AsInteger,frm_ch_invoice_jk.t_ch_invoice.fieldbyname('申请编号').asstring,frm_ch_invoice_jk.t_ch_invoice.fieldbyname('费用列表').asstring,frm_ch_invoice_jk.t_ch_invoice.fieldbyname('金额列表').asstring,0);
aAdoQuery:=CreateAdoQuery;
with aAdoQuery do
try
Close;sql.Clear;
sql.Add('Update t_ch_fee_do set 工作编号=:bsno1');
sql.Add('From t_ch_fee_do');
sql.Add('where 工作编号=:bsno and 币别=''USD''');
Parameters.ParamByName('bsno').Value:=OldNo;
Parameters.ParamByName('bsno1').Value:=frm_ch_invoice_jk.t_ch_invoice.FieldByName('申请编号').Value;
ExecSQL;
finally
free;
end;
frm_ch_invoice_jk.t_ch_invoice.Edit;
frm_ch_invoice_jk.t_ch_invoice.post;
aAdoQuery:=CreateAdoQuery;
with aAdoQuery do
try
Close;sql.Clear;
sql.Add('Update t_ch_invoice');
sql.Add('set 币别=''RMB'',费用列表=''代理运杂费'',金额列表=:金额列表,合计金额=:合计金额,实际金额=:实际金额,人民币金额=:人民币金额,美元金额=0');
sql.Add('where 申请编号=:bsno');
Parameters.ParamByName('bsno').Value:=OldNo;
Parameters.ParamByName('金额列表').Value:=AmtRmb;
Parameters.ParamByName('合计金额').Value:=AmtRmb;
Parameters.ParamByName('实际金额').Value:=AmtRmb;
Parameters.ParamByName('人民币金额').Value:=AmtRmb;
ExecSQL;
finally
free;
end;
frm_ch_invoice_jk.t_ch_invoice.Refresh;
modify_all:=false;
except
if frm_ch_invoice_jk.t_ch_invoice.State=dsinsert then
frm_ch_invoice_jk.t_ch_invoice.cancel;
modify_all:=true;
showmessage('发票添加失败！！');
exit;
end;
frm_ch_invoice_jk.bsSkinTabSheet2.show;
close;
exit;
end;
{
if bsSkinCheckRadioBox2.Checked then
begin
try
modify_all:=true;
frm_ch_invoice.t_ch_invoice.Insert;
frm_ch_invoice.t_ch_invoice['发票类别']:='明细发票';
frm_ch_invoice.t_ch_invoice['发票号码']:=trim(Edit1.Text);
frm_ch_invoice.t_ch_invoice['币别']:=wwDBLookupCombo6.Text;
if frm_ch_invoice.t_sys_bank.Locate('币别',frm_ch_invoice.t_ch_invoice['币别'],[]) then begin
frm_ch_invoice.t_ch_invoice['开户银行']:=frm_ch_invoice.t_sys_bank.fieldbyname('银行名称').asstring;
frm_ch_invoice.t_ch_invoice['银行账号']:=frm_ch_invoice.t_sys_bank.fieldbyname('银行账号').asstring;
end;
if RxDBLookupCombo1.DisplayValues[0]<>'' then begin
frm_ch_invoice.t_ch_invoice['分部名称']:=RxDBLookupCombo1.DisplayValues[0];
if frm_data_share.t_code_subcomp.locate('分部名称',RxDBLookupCombo1.DisplayValues[0],[]) then
begin
frm_ch_invoice.t_ch_invoice['工商登记号']:=frm_data_share.t_code_subcomp.fieldbyname('工商登记号').value;
frm_ch_invoice.t_ch_invoice['税务登记号']:=frm_data_share.t_code_subcomp.fieldbyname('税务登记号').value;
end;
end;
frm_ch_invoice.t_ch_invoice['客户名称']:=RxDBLookupCombo3.DisplayValues[1];
if not frm_data_share.t_crm_client_all.IsEmpty then
if frm_data_share.t_crm_client_all.locate('客户简称',RxDBLookupCombo3.DisplayValues[1],[]) then
begin
if trim(frm_data_share.t_crm_client_all.fieldbyname('发票抬头').asstring)<>''then
frm_ch_invoice.t_ch_invoice['发票抬头']:=frm_data_share.t_crm_client_all.fieldbyname('发票抬头').asstring;
end;
frm_ch_invoice.t_ch_invoice['申请状态']:='审核通过';
// frm_ch_invoice.t_ch_invoice['申请编号']:=frm_ch_invoice.t_ch_invoice_shen['申请编号'];
frm_ch_invoice.t_ch_invoice.post;
modify_all:=false;
except
if frm_ch_invoice.t_ch_invoice.State=dsinsert then
frm_ch_invoice.t_ch_invoice.cancel;
modify_all:=true;
showmessage('开出发票失败！！');
end;
frm_ch_invoice.bsSkinTabSheet2.show;
Close;
exit;
end;
}
if bsSkinCheckRadioBox1.Checked then
begin
frm_main.db.BeginTrans;
try
modify_all:=true;
frm_ch_invoice_jk.t_ch_invoice.Insert;
frm_ch_invoice_jk.t_ch_invoice['发票类别']:='申请发票';
frm_ch_invoice_jk.t_ch_invoice['发票号码']:=trim(Edit1.Text);
frm_ch_invoice_jk.t_ch_invoice['币别']:=wwDBLookupCombo6.Text;
frm_ch_invoice_jk.t_ch_invoice['客户名称']:=edit2.text;
if RxDBLookupCombo1.DisplayValues[0]<>'' then begin
frm_ch_invoice_jk.t_ch_invoice['分部名称']:=RxDBLookupCombo1.DisplayValues[0];
if frm_data_share.t_code_subcomp.locate('分部名称',RxDBLookupCombo1.DisplayValues[0],[]) then
begin
frm_ch_invoice_jk.t_ch_invoice['工商登记号']:=frm_data_share.t_code_subcomp.fieldbyname('工商登记号').AsString;
frm_ch_invoice_jk.t_ch_invoice['税务登记号']:=frm_data_share.t_code_subcomp.fieldbyname('税务登记号').AsString;
end;
if frm_ch_invoice_jk.t_sys_bank.Locate('币别;分部名称',vararrayof([frm_ch_invoice_jk.t_ch_invoice['币别'],subcomp]),[]) then begin
frm_ch_invoice_jk.t_ch_invoice['开户银行']:=frm_ch_invoice_jk.t_sys_bank.fieldbyname('银行名称').asstring;
frm_ch_invoice_jk.t_ch_invoice['银行账号']:=frm_ch_invoice_jk.t_sys_bank.fieldbyname('银行账号').asstring;
end else begin
if frm_ch_invoice_jk.t_sys_bank.Locate('币别',frm_ch_invoice_jk.t_ch_invoice['币别'],[]) then begin
frm_ch_invoice_jk.t_ch_invoice['开户银行']:=frm_ch_invoice_jk.t_sys_bank.fieldbyname('银行名称').asstring;
frm_ch_invoice_jk.t_ch_invoice['银行账号']:=frm_ch_invoice_jk.t_sys_bank.fieldbyname('银行账号').asstring;
end;
end;
end else begin
if frm_ch_invoice_jk.t_sys_bank.Locate('币别',frm_ch_invoice_jk.t_ch_invoice['币别'],[]) then begin
frm_ch_invoice_jk.t_ch_invoice['开户银行']:=frm_ch_invoice_jk.t_sys_bank.fieldbyname('银行名称').asstring;
frm_ch_invoice_jk.t_ch_invoice['银行账号']:=frm_ch_invoice_jk.t_sys_bank.fieldbyname('银行账号').asstring;
end;
end;
frm_ch_invoice_jk.t_ch_invoice['申请编号']:=frm_ch_invoice_jk.t_ch_invoice_shen['申请编号'];
frm_ch_invoice_jk.t_ch_invoice['对帐编号']:=frm_ch_invoice_jk.t_ch_invoice_shen['对帐编号'];
frm_ch_invoice_jk.t_ch_invoice['发票抬头']:=frm_ch_invoice_jk.t_ch_invoice_shen['发票抬头'];
frm_ch_invoice_jk.t_ch_invoice['船名航次']:=frm_ch_invoice_jk.t_ch_invoice_shen['船名航次'];
frm_ch_invoice_jk.t_ch_invoice['提单号']:=frm_ch_invoice_jk.t_ch_invoice_shen['提单号'];
frm_ch_invoice_jk.t_ch_invoice['委托编号']:=frm_ch_invoice_jk.t_ch_invoice_shen['委托编号'];
frm_ch_invoice_jk.t_ch_invoice['开船日期']:=frm_ch_invoice_jk.t_ch_invoice_shen['开船日期'];
frm_ch_invoice_jk.t_ch_invoice['启运港']:=frm_ch_invoice_jk.t_ch_invoice_shen['启运港'];
frm_ch_invoice_jk.t_ch_invoice['卸货港']:=frm_ch_invoice_jk.t_ch_invoice_shen['卸货港'];
frm_ch_invoice_jk.t_ch_invoice['目的港']:=frm_ch_invoice_jk.t_ch_invoice_shen['目的港'];
frm_ch_invoice_jk.t_ch_invoice['费用列表']:=frm_ch_invoice_jk.t_ch_invoice_shen['费用列表'];
frm_ch_invoice_jk.t_ch_invoice['金额列表']:=frm_ch_invoice_jk.t_ch_invoice_shen['金额列表'];
frm_ch_invoice_jk.t_ch_invoice['备注']:=frm_ch_invoice_jk.t_ch_invoice_shen['备注'];
frm_ch_invoice_jk.t_ch_invoice['合计金额']:=frm_ch_invoice_jk.t_ch_invoice_shen['申请金额'];
frm_ch_invoice_jk.t_ch_invoice['实际金额']:=frm_ch_invoice_jk.t_ch_invoice_shen['实际金额'];
frm_ch_invoice_jk.t_ch_invoice['虚开金额']:=frm_ch_invoice_jk.t_ch_invoice_shen['虚开金额'];
frm_ch_invoice_jk.t_ch_invoice['币别']:=frm_ch_invoice_jk.t_ch_invoice_shen['币别'];
frm_ch_invoice_jk.t_ch_invoice['申请人']:=frm_ch_invoice_jk.t_ch_invoice_shen['申请人'];
frm_ch_invoice_jk.t_ch_invoice['申请日期']:=frm_ch_invoice_jk.t_ch_invoice_shen['申请日期'];
frm_ch_invoice_jk.t_ch_invoice.post;
InsertUpdateInvoice_item(1,1,frm_ch_invoice_jk.t_ch_invoice.fieldbyname('in_id').AsInteger,frm_ch_invoice_jk.t_ch_invoice.fieldbyname('申请编号').asstring,frm_ch_invoice_jk.t_ch_invoice.fieldbyname('费用列表').asstring,frm_ch_invoice_jk.t_ch_invoice.fieldbyname('金额列表').asstring,0);
aQuery:=CreateAdoQuery;
try
with aQuery do begin
close;sql.clear;
sql.Add('select * from t_ch_fee_do where 工作编号='''+frm_ch_invoice_jk.t_ch_invoice_shen['申请编号']+'''');
open;
if not IsEmpty then begin
first;
while not eof do begin
edit;
fieldbyname('类型').Asstring:='1';
post;
next;
end;
end;
end;
finally
FreeAndNil(aQuery);
end;
frm_ch_invoice_jk.t_ch_invoice_shen.Edit;
frm_ch_invoice_jk.t_ch_invoice_shen['申请状态']:='开出发票';
frm_ch_invoice_jk.t_ch_invoice_shen['开出人']:=employee;
frm_ch_invoice_jk.t_ch_invoice_shen['开出日期']:=now;
frm_ch_invoice_jk.t_ch_invoice_shen['发票号码']:=trim(Edit1.Text);
frm_ch_invoice_jk.t_ch_invoice_shen.post;
modify_all:=false;
frm_main.db.CommitTrans;
finally
if frm_main.db.InTransaction then
begin
if frm_ch_invoice_jk.t_ch_invoice.State=dsinsert then
frm_ch_invoice_jk.t_ch_invoice.cancel;
modify_all:=true;
showmessage('开出发票失败！！');
end;
{
if modify_all then
Send_invocie_check_check('申请发票开出,申请编号:'+frm_ch_invoice.t_ch_invoice_shen.fieldbyname('申请编号').asstring
+',客户:'+frm_ch_invoice.t_ch_invoice_shen.fieldbyname('客户名称').asstring,frm_ch_invoice.t_ch_invoice_shen.fieldbyname('申请人').asstring,'25');
}
end;
frm_ch_invoice_jk.bsSkinTabSheet2.show;
if bsSkinCheckRadioBox2.Checked then
frm_ch_invoice_jk.bsSkinButton35.OnClick(nil);
close;
exit;
end;
end;
procedure Tfrm_ch_invoice_add_jk.bsSkinButton2Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_ch_invoice_add_jk.FormShow(Sender: TObject);
var
i:integer;
aQuery:TAdoQuery;
begin
if not if_reg(417) then bsSkinCheckRadioBox2.Visible:=false;
aQuery:=CreateAdoQuery;
try
with aQuery do begin
Close;SQL.Clear;
SQL.Add('select 发票号码 from t_ch_invoice where IN_ID=(select max(IN_ID) from t_ch_invoice where 分部名称='''+subComp+''')');
Open;
if IsEmpty then begin
Close;SQL.Clear;
SQL.Add('select 发票号码 from t_ch_invoice where IN_ID=(select max(IN_ID) from t_ch_invoice)');
Open;
end;
try
i:=strtoint(aQuery.fieldbyname('发票号码').AsString);
Edit1.Text:=inttostr(i+1);
except
;
end;
end;
finally
FreeAndNil(aQuery);
end;
RxDBLookupCombo1.DisplayValue:=subComp;
{
'select @inv_no=()'
p_invoice_no.ExecProc;
try
i:=strtoint(p_invoice_no.Parameters[1].value);
Edit1.Text:=inttostr(i+1);
except
;
end;
}
end;
procedure Tfrm_ch_invoice_add_jk.Edit1KeyPress(Sender: TObject;
var Key: Char);
begin
if key=#13 then
begin
key:=#0;
frm_ch_invoice_jk.bsSkinButton1Click(Sender);
end;
end;
end.
Reference in New Issue View Git Blame Copy Permalink