unit u_op_seae_add; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, BusinessSkinForm, bsSkinCtrls, StdCtrls, wwdbdatetimepicker,ADODB,DB; type Tfrm_op_seae_add = class(TForm) bsBusinessSkinForm1: TbsBusinessSkinForm; bsSkinGroupBox1: TbsSkinGroupBox; bsSkinCheckRadioBox1: TbsSkinCheckRadioBox; bsSkinCheckRadioBox2: TbsSkinCheckRadioBox; bsSkinCheckRadioBox3: TbsSkinCheckRadioBox; bsSkinCheckRadioBox4: TbsSkinCheckRadioBox; bsSkinCheckRadioBox5: TbsSkinCheckRadioBox; bsSkinCheckRadioBox6: TbsSkinCheckRadioBox; Label1: TLabel; wwDBDateTimePicker1: TwwDBDateTimePicker; bsSkinButton1: TbsSkinButton; bsSkinButton2: TbsSkinButton; data1: TDataSource; bsSkinButton3: TbsSkinButton; bsSkinCheckRadioBox7: TbsSkinCheckRadioBox; bsSkinButton4: TbsSkinButton; OpenDialog1: TOpenDialog; bsSkinCheckRadioBox8: TbsSkinCheckRadioBox; procedure bsSkinButton2Click(Sender: TObject); procedure bsSkinButton1Click(Sender: TObject); procedure FormShow(Sender: TObject); procedure bsSkinButton3Click(Sender: TObject); procedure bsSkinButton4Click(Sender: TObject); procedure bsSkinCheckRadioBox7Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var frm_op_seae_add: Tfrm_op_seae_add; frm_op_seae_add_num:integer; implementation uses u_main, u_op_seae, my_sys_function, u_data_share; {$R *.dfm} procedure Tfrm_op_seae_add.bsSkinButton2Click(Sender: TObject); begin close; end; procedure Tfrm_op_seae_add.bsSkinButton1Click(Sender: TObject); var i: Integer; begin if (frm_op_seae_add_num=3) or (frm_op_seae_add_num=2) then begin data1.DataSet.append; for i := 0 to (data1.DataSet.DataSource.DataSet.fieldcount-1) do begin data1.DataSet[data1.DataSet.DataSource.DataSet.fields[i].FieldName]:= data1.DataSet.DataSource.DataSet[data1.DataSet.DataSource.DataSet.fields[i].FieldName]; end; if bsSkinCheckRadioBox1.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox1.Caption; if bsSkinCheckRadioBox2.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox2.Caption; if bsSkinCheckRadioBox3.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox3.Caption; if bsSkinCheckRadioBox4.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox4.Caption; if bsSkinCheckRadioBox5.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox5.Caption; if bsSkinCheckRadioBox6.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox6.Caption; if bsSkinCheckRadioBox8.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox8.Caption; if bsSkinCheckRadioBox7.Checked then data1.DataSet['业务类型']:='更改单' else data1.DataSet['业务类型']:='普通货'; if data1.DataSet['装运方式']='拼箱分票' then data1.DataSet['签单方式']:='其他' else data1.DataSet['签单方式']:='正本'; data1.DataSet['业务编号']:=''; data1.DataSet['主编号']:=''; if not (Trim(frm_data_share.t_sys_noset.fieldbyname('出号规则').Asstring)='手动编辑') then data1.DataSet['委托编号']:=''; data1.DataSet['编号']:=''; data1.DataSet['箱型1']:=0; data1.DataSet['箱型2']:=0; data1.DataSet['箱型3']:=0; data1.DataSet['箱型4']:=0; data1.DataSet['箱型5']:=0; data1.DataSet['箱型6']:=0; data1.DataSet['箱型7']:=0; data1.DataSet['箱型8']:=0; data1.DataSet['箱型9']:=0; data1.DataSet['箱型10']:=0; data1.DataSet['其他箱型']:=0; data1.DataSet['箱TEU']:=0; data1.DataSet['拖车数']:=0; data1.DataSet['报关数']:=0; data1.DataSet['代理数']:=0; data1.DataSet['拼箱整箱']:=0; data1.DataSet['集装箱']:=''; data1.DataSet['箱数大写']:=''; data1.DataSet['计费标准']:=''; data1.DataSet['报关日期']:=null; data1.DataSet['报关员']:=''; data1.DataSet['报关单号']:=''; data1.DataSet['核销单号']:=''; data1.DataSet['手册号']:=''; data1.DataSet['是否退税']:=0; data1.DataSet['退税日期']:=null; data1.DataSet['是否通关']:=0; data1.DataSet['通关日期']:=null; data1.DataSet['分单列表']:=''; data1.DataSet['发票号']:=''; data1.DataSet['商品编码']:=''; data1.DataSet['是否签单']:=0; data1.DataSet['请求派车']:=0; data1.DataSet['是否派车']:=0; data1.DataSet['是否退税']:=0; data1.DataSet['是否通关']:=0; data1.DataSet['是否退舱']:=0; data1.DataSet['是否解锁']:=0; data1.DataSet['解锁日期']:=null; data1.DataSet['解锁人']:=''; data1.DataSet['应收陆运']:=0; data1.DataSet['应付陆运']:=0; data1.DataSet['陆运利润']:=0; data1.DataSet['销售订舱']:=0; data1.DataSet['不发签单条']:=0; data1.DataSet['业务状态']:='接受委托'; data1.DataSet['费用状态']:='录入状态'; data1.DataSet['录入人']:=employee; data1.DataSet['录入日期']:=date; data1.DataSet['分部名称']:=subComp; data1.DataSet['操作员']:=employee; { data1.DataSet['报关操作']:=employee; data1.DataSet['报检操作']:=employee; } data1.DataSet['操作部门']:=department; data1.DataSet['会计期间']:=wwDBDateTimePicker1.date; data1.DataSet['周次']:=WeekofYear(wwDBDateTimePicker1.date); data1.DataSet['目的地']:=''; data1.DataSet['财务']:=0; data1.DataSet['VGM']:=1; data1.DataSet['财务凭证']:=''; data1.DataSet['财务凭证2']:=''; data1.DataSet['件数包装']:=''; data1.DataSet['货物重量']:=''; data1.DataSet['货物尺码']:=''; data1.DataSet['货物描述']:=''; data1.DataSet['分单列表']:=''; data1.DataSet['货物标识']:='S'; data1.DataSet['备案号']:=''; data1.DataSet['运抵国']:=''; data1.DataSet['境内货源地']:=''; data1.DataSet['批准文号']:=''; data1.DataSet['成交方式']:=''; data1.DataSet['净重']:=0; data1.DataSet['单价']:=''; data1.DataSet['总价']:='0'; data1.DataSet['商品名称']:=''; data1.DataSet['数量单位']:=''; data1.DataSet['接单日期']:=null; data1.DataSet['报检日期']:=null; data1.DataSet['报检单号']:=''; data1.DataSet['验货时间']:=null; data1.DataSet['实验时间']:=null; data1.DataSet['熏蒸时间']:=null; data1.DataSet['出证时间']:=null; data1.DataSet['实验内容']:=''; data1.DataSet['币制']:=''; data1.DataSet['财务']:=0; data1.DataSet['VGM']:=1; data1.DataSet['财务凭证']:=''; data1.DataSet['是否打印']:=0; data1.DataSet['发货人']:=''; data1.DataSet['发货人代码']:=''; data1.DataSet['收货人']:=''; data1.DataSet['收货人代码']:=''; data1.DataSet['通知人']:=''; data1.DataSet['通知人代码']:=''; data1.DataSet['费用封帐日期']:=null; data1.DataSet['总价']:='0'; data1.DataSet['BC状态']:='N'; data1.DataSet['提交财务日期']:=null; data1.DataSet['自责更改']:='0'; data1.DataSet['业务来源']:=''; data1.DataSet['来源明细']:=''; data1.DataSet['海丰财务凭证']:=''; data1.DataSet['应收海运费']:=0; data1.DataSet['应付海运费']:=0; data1.DataSet['船公司代理费']:=0; data1.DataSet['捷丰代理费']:=''; data1.DataSet['香港付费']:=0; data1.DataSet['核对提单']:=0; end else begin data1.DataSet.Insert; if bsSkinCheckRadioBox1.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox1.Caption; if bsSkinCheckRadioBox2.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox2.Caption; if bsSkinCheckRadioBox3.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox3.Caption; if bsSkinCheckRadioBox4.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox4.Caption; if bsSkinCheckRadioBox5.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox5.Caption; if bsSkinCheckRadioBox6.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox6.Caption; if bsSkinCheckRadioBox8.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox8.Caption; if bsSkinCheckRadioBox7.Checked then data1.DataSet['业务类型']:='更改单' else data1.DataSet['业务类型']:='普通货'; data1.DataSet['会计期间']:=wwDBDateTimePicker1.date; data1.DataSet['周次']:=WeekofYear(wwDBDateTimePicker1.date); data1.DataSet['录入人']:=employee; data1.DataSet['录入日期']:=date; data1.DataSet['分部名称']:=subComp; data1.DataSet['操作员']:=employee; { data1.DataSet['报关操作']:=employee; data1.DataSet['报检操作']:=employee; } if strtobool(get_parameters_value(170,'false')) then data1.DataSet['揽货人']:='公司货'; data1.DataSet['客服员']:=employee; data1.DataSet['销售部门']:=department; data1.DataSet['操作部门']:=department; data1.DataSet['业务来源']:=''; data1.DataSet['来源明细']:=''; data1.DataSet['起运港']:=get_parameters_value(14,'QINGDAO,CHINA'); data1.DataSet['装货港']:=get_parameters_value(16,'QINGDAO,CHINA'); data1.DataSet['目的地']:=''; data1.DataSet['提单份数']:=get_parameters_value(20,'THREE'); // data1.DataSet['副本提单份数']:=get_parameters_value(20,'THREE'); if copy(data1.DataSet.fieldbyname('装运方式').asstring,1,4)='拼箱'then data1.DataSet['运输条款']:=get_parameters_value(48,'CFS-CFS') else data1.DataSet['运输条款']:=get_parameters_value(21,'CY-CY'); data1.DataSet['唛头']:=get_parameters_value(22,'N/M'); data1.DataSet['货物描述']:=get_parameters_value(116,''); data1.DataSet['发货人代码']:=get_parameters_value(124,''); data1.DataSet['付费方式']:=get_parameters_value(23,'FREIGHT PREPAID'); data1.DataSet['签单地点']:=get_parameters_value(49,'QINGDAO,CHINA'); data1.DataSet['预付地点']:=get_parameters_value(50,'QINGDAO,CHINA'); data1.DataSet['退税日期']:=null; data1.DataSet['签单日期']:=null; data1.DataSet['派车日期']:=null; data1.DataSet['寄单日期']:=null; data1.DataSet['是否寄单']:=0; data1.DataSet['是否退税']:=0; data1.DataSet['是否通关']:=0; data1.DataSet['是否签单']:=0; data1.DataSet['请求派车']:=0; data1.DataSet['是否派车']:=0; data1.DataSet['是否解锁']:=0; data1.DataSet['是否退舱']:=0; data1.DataSet['解锁日期']:=null; data1.DataSet['解锁人']:=''; data1.DataSet['应收陆运']:=0; data1.DataSet['应付陆运']:=0; data1.DataSet['陆运利润']:=0; data1.DataSet['财务']:=0; data1.DataSet['VGM']:=1; data1.DataSet['财务凭证']:=''; data1.DataSet['财务凭证2']:=''; data1.DataSet['是否打印']:=0; data1.DataSet['销售订舱']:=0; data1.DataSet['货物标识']:='S'; data1.DataSet['总价']:='0'; data1.DataSet['提交财务日期']:=null; data1.DataSet['自责更改']:='0'; data1.DataSet['业务来源']:=''; data1.DataSet['来源明细']:=''; data1.DataSet['海丰财务凭证']:=''; data1.DataSet['应收海运费']:=0; data1.DataSet['应付海运费']:=0; data1.DataSet['船公司代理费']:=0; data1.DataSet['捷丰代理费']:=''; data1.DataSet['香港付费']:=0; data1.DataSet['核对提单']:=0; end; if frm_op_seae_add_num=1 then begin frm_op_seae.Notebook1.PageIndex:=1; frm_op_seae.bsSkinButton11.Caption:='返回列表'; end; if frm_op_seae_add_num=2 then begin frm_op_seae.Notebook1.PageIndex:=1; frm_op_seae.bsSkinButton11.Caption:='返回主票'; end; if frm_op_seae_add_num=3 then begin frm_op_seae.Notebook1.PageIndex:=1; frm_op_seae.bsSkinButton11.Caption:='返回主票'; frm_op_seae.t_op_seae2.Enabled:=false; frm_op_seae.t_op_seae2.DataSet:=frm_op_seae.t_op_seae_fen; frm_op_seae.t_op_seae2.Enabled:=true; end; close; end; procedure Tfrm_op_seae_add.bsSkinButton4Click(Sender: TObject); var EdiString:TStrings; FileNames,bsno:String; i: Integer; begin if (frm_op_seae_add_num=3) or (frm_op_seae_add_num=2) then begin data1.DataSet.append; for i := 0 to (data1.DataSet.DataSource.DataSet.fieldcount-1) do begin data1.DataSet[data1.DataSet.DataSource.DataSet.fields[i].FieldName]:= data1.DataSet.DataSource.DataSet[data1.DataSet.DataSource.DataSet.fields[i].FieldName]; end; if bsSkinCheckRadioBox1.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox1.Caption; if bsSkinCheckRadioBox2.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox2.Caption; if bsSkinCheckRadioBox3.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox3.Caption; if bsSkinCheckRadioBox4.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox4.Caption; if bsSkinCheckRadioBox5.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox5.Caption; if bsSkinCheckRadioBox6.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox6.Caption; if bsSkinCheckRadioBox8.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox8.Caption; if bsSkinCheckRadioBox7.Checked then data1.DataSet['业务类型']:='更改单' else data1.DataSet['业务类型']:='普通货'; if data1.DataSet['装运方式']='拼箱分票' then data1.DataSet['签单方式']:='其他' else data1.DataSet['签单方式']:='正本'; data1.DataSet['业务编号']:=''; data1.DataSet['主编号']:=''; if not (Trim(frm_data_share.t_sys_noset.fieldbyname('出号规则').Asstring)='手动编辑') then data1.DataSet['委托编号']:=''; data1.DataSet['编号']:=''; data1.DataSet['箱型1']:=0; data1.DataSet['箱型2']:=0; data1.DataSet['箱型3']:=0; data1.DataSet['箱型4']:=0; data1.DataSet['箱型5']:=0; data1.DataSet['箱型6']:=0; data1.DataSet['箱型7']:=0; data1.DataSet['箱型8']:=0; data1.DataSet['箱型9']:=0; data1.DataSet['箱型10']:=0; data1.DataSet['其他箱型']:=0; data1.DataSet['箱TEU']:=0; data1.DataSet['拖车数']:=0; data1.DataSet['报关数']:=0; data1.DataSet['代理数']:=0; data1.DataSet['拼箱整箱']:=0; data1.DataSet['集装箱']:=''; data1.DataSet['箱数大写']:=''; data1.DataSet['计费标准']:=''; data1.DataSet['报关日期']:=null; data1.DataSet['报关员']:=''; data1.DataSet['报关单号']:=''; data1.DataSet['核销单号']:=''; data1.DataSet['手册号']:=''; data1.DataSet['是否退税']:=0; data1.DataSet['退税日期']:=null; data1.DataSet['是否通关']:=0; data1.DataSet['通关日期']:=null; data1.DataSet['分单列表']:=''; data1.DataSet['发票号']:=''; data1.DataSet['商品编码']:=''; data1.DataSet['是否签单']:=0; data1.DataSet['请求派车']:=0; data1.DataSet['是否派车']:=0; data1.DataSet['是否退税']:=0; data1.DataSet['是否通关']:=0; data1.DataSet['是否退舱']:=0; data1.DataSet['是否解锁']:=0; data1.DataSet['解锁日期']:=null; data1.DataSet['解锁人']:=''; data1.DataSet['应收陆运']:=0; data1.DataSet['应付陆运']:=0; data1.DataSet['陆运利润']:=0; data1.DataSet['销售订舱']:=0; data1.DataSet['业务状态']:='接受委托'; data1.DataSet['费用状态']:='录入状态'; data1.DataSet['录入人']:=employee; data1.DataSet['录入日期']:=date; data1.DataSet['分部名称']:=subComp; data1.DataSet['操作员']:=employee; { data1.DataSet['报关操作']:=employee; data1.DataSet['报检操作']:=employee; } data1.DataSet['操作部门']:=department; data1.DataSet['会计期间']:=wwDBDateTimePicker1.date; data1.DataSet['周次']:=WeekofYear(wwDBDateTimePicker1.date); data1.DataSet['目的地']:=''; data1.DataSet['财务']:=0; data1.DataSet['VGM']:=1; data1.DataSet['财务凭证']:=''; data1.DataSet['财务凭证2']:=''; data1.DataSet['件数包装']:=''; data1.DataSet['货物重量']:=''; data1.DataSet['货物尺码']:=''; data1.DataSet['货物描述']:=''; data1.DataSet['分单列表']:=''; data1.DataSet['货物标识']:='S'; data1.DataSet['备案号']:=''; data1.DataSet['运抵国']:=''; data1.DataSet['境内货源地']:=''; data1.DataSet['批准文号']:=''; data1.DataSet['成交方式']:=''; data1.DataSet['净重']:=0; data1.DataSet['单价']:=''; data1.DataSet['总价']:='0'; data1.DataSet['商品名称']:=''; data1.DataSet['数量单位']:=''; data1.DataSet['接单日期']:=null; data1.DataSet['报检日期']:=null; data1.DataSet['报检单号']:=''; data1.DataSet['验货时间']:=null; data1.DataSet['实验时间']:=null; data1.DataSet['熏蒸时间']:=null; data1.DataSet['出证时间']:=null; data1.DataSet['实验内容']:=''; data1.DataSet['币制']:=''; data1.DataSet['财务']:=0; data1.DataSet['VGM']:=1; data1.DataSet['财务凭证']:=''; data1.DataSet['是否打印']:=0; data1.DataSet['发货人']:=''; data1.DataSet['发货人代码']:=''; data1.DataSet['收货人']:=''; data1.DataSet['收货人代码']:=''; data1.DataSet['通知人']:=''; data1.DataSet['通知人代码']:=''; data1.DataSet['费用封帐日期']:=null; data1.DataSet['总价']:='0'; data1.DataSet['提交财务日期']:=null; data1.DataSet['自责更改']:='0'; data1.DataSet['业务来源']:=''; data1.DataSet['来源明细']:=''; data1.DataSet['海丰财务凭证']:=''; data1.DataSet['应收海运费']:=0; data1.DataSet['应付海运费']:=0; data1.DataSet['船公司代理费']:=0; data1.DataSet['捷丰代理费']:=''; data1.DataSet['香港付费']:=0; end else begin data1.DataSet.Insert; if bsSkinCheckRadioBox1.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox1.Caption; if bsSkinCheckRadioBox2.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox2.Caption; if bsSkinCheckRadioBox3.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox3.Caption; if bsSkinCheckRadioBox4.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox4.Caption; if bsSkinCheckRadioBox5.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox5.Caption; if bsSkinCheckRadioBox6.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox6.Caption; if bsSkinCheckRadioBox8.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox8.Caption; if bsSkinCheckRadioBox7.Checked then data1.DataSet['业务类型']:='更改单' else data1.DataSet['业务类型']:='普通货'; data1.DataSet['会计期间']:=wwDBDateTimePicker1.date; data1.DataSet['周次']:=WeekofYear(wwDBDateTimePicker1.date); data1.DataSet['录入人']:=employee; data1.DataSet['录入日期']:=date; data1.DataSet['分部名称']:=subComp; data1.DataSet['操作员']:=employee; { data1.DataSet['报关操作']:=employee; data1.DataSet['报检操作']:=employee; } if strtobool(get_parameters_value(170,'false')) then data1.DataSet['揽货人']:='公司货'; data1.DataSet['客服员']:=employee; data1.DataSet['销售部门']:=department; data1.DataSet['操作部门']:=department; data1.DataSet['业务来源']:=''; data1.DataSet['来源明细']:=''; data1.DataSet['唛头']:=''; data1.DataSet['起运港']:=get_parameters_value(14,'QINGDAO,CHINA'); data1.DataSet['装货港']:=get_parameters_value(16,'QINGDAO,CHINA'); data1.DataSet['目的地']:=''; data1.DataSet['提单份数']:=get_parameters_value(20,'THREE'); // data1.DataSet['副本提单份数']:=get_parameters_value(20,'THREE'); if copy(data1.DataSet.fieldbyname('装运方式').asstring,1,4)='拼箱'then data1.DataSet['运输条款']:=get_parameters_value(48,'CFS-CFS') else data1.DataSet['运输条款']:=get_parameters_value(21,'CY-CY'); data1.DataSet['唛头']:=get_parameters_value(22,'N/M'); data1.DataSet['货物描述']:=get_parameters_value(116,''); data1.DataSet['发货人代码']:=get_parameters_value(124,''); data1.DataSet['付费方式']:=get_parameters_value(23,'FREIGHT PREPAID'); data1.DataSet['签单地点']:=get_parameters_value(49,'QINGDAO,CHINA'); data1.DataSet['预付地点']:=get_parameters_value(50,'QINGDAO,CHINA'); data1.DataSet['退税日期']:=null; data1.DataSet['签单日期']:=null; data1.DataSet['派车日期']:=null; data1.DataSet['寄单日期']:=null; data1.DataSet['是否寄单']:=0; data1.DataSet['是否退税']:=0; data1.DataSet['是否通关']:=0; data1.DataSet['是否签单']:=0; data1.DataSet['请求派车']:=0; data1.DataSet['是否派车']:=0; data1.DataSet['是否解锁']:=0; data1.DataSet['是否退舱']:=0; data1.DataSet['解锁日期']:=null; data1.DataSet['解锁人']:=''; data1.DataSet['应收陆运']:=0; data1.DataSet['应付陆运']:=0; data1.DataSet['陆运利润']:=0; data1.DataSet['财务']:=0; data1.DataSet['VGM']:=1; data1.DataSet['财务凭证']:=''; data1.DataSet['财务凭证2']:=''; data1.DataSet['是否打印']:=0; data1.DataSet['销售订舱']:=0; data1.DataSet['货物标识']:='S'; data1.DataSet['总价']:='0'; data1.DataSet['提交财务日期']:=null; data1.DataSet['自责更改']:='0'; data1.DataSet['业务来源']:=''; data1.DataSet['来源明细']:=''; data1.DataSet['海丰财务凭证']:=''; data1.DataSet['应收海运费']:=0; data1.DataSet['应付海运费']:=0; data1.DataSet['船公司代理费']:=0; data1.DataSet['捷丰代理费']:=''; data1.DataSet['香港付费']:=0; end; EdiString:=TStringList.Create; try OpenDialog1.Execute; FileNames:=OpenDialog1.FileName; if FileNames<>'' then begin EdiString.LoadFromFile(FileNames); frm_main.db.BeginTrans; try NewEdiSeaeIntrra(EdiString,data1); frm_main.db.CommitTrans; finally if frm_main.db.InTransaction then begin ShowMessage('导入出错，请刷新重试！'); frm_main.db.RollbackTrans; end; end; end; finally FreeAndNil(EdiString); end; if frm_op_seae_add_num=1 then begin frm_op_seae.Notebook1.PageIndex:=1; frm_op_seae.bsSkinButton11.Caption:='返回列表'; end; if frm_op_seae_add_num=2 then begin frm_op_seae.Notebook1.PageIndex:=1; frm_op_seae.bsSkinButton11.Caption:='返回主票'; end; if frm_op_seae_add_num=3 then begin frm_op_seae.Notebook1.PageIndex:=1; frm_op_seae.bsSkinButton11.Caption:='返回主票'; frm_op_seae.t_op_seae2.Enabled:=false; frm_op_seae.t_op_seae2.DataSet:=frm_op_seae.t_op_seae_fen; frm_op_seae.t_op_seae2.Enabled:=true; end; close; end; procedure Tfrm_op_seae_add.FormShow(Sender: TObject); begin wwDBDateTimePicker1.MinDate:=Logininfo.endday+1; wwDBDateTimePicker1.Date:=date; end; procedure Tfrm_op_seae_add.bsSkinButton3Click(Sender: TObject); var afield : variant; i: Integer; PNO,OrgBSNO,oldbsno:string; aQuery:TADOQuery; function getamendBsNo(wtbsno:string;mblno:string):string; var aQuery:TAdoQuery; begin aQuery:=CreateAdoQuery; try with aQuery do begin Close;sql.clear; sql.add('select top 1 委托编号 from t_op_seae where 委托编号 like '''+wtbsno+'%'' and 主提单号='''+mblno+''' order by 委托编号 desc '); open; if IsEmpty then Result:=wtbsno else Result:=FieldByName('委托编号').AsString; end; finally FreeAndNil(aQuery); end; end; begin if data1.DataSet.IsEmpty then begin showmessage('没有复制母体，不能复制新建！'); exit; end; oldbsno:=data1.DataSet.FieldByName('编号').AsString; afield := vararraycreate([0,data1.DataSet.fieldcount-1],varvariant); for i := 0 to (data1.DataSet.fieldcount-1) do begin afield[i] :=data1.DataSet.fields[i].value ; end; data1.DataSet.append; for i := 0 to (data1.DataSet.fieldcount-1) do begin data1.DataSet.fields[i].value := afield[i] ; end; data1.DataSet['周次']:=WeekofYear(wwDBDateTimePicker1.date); if bsSkinCheckRadioBox1.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox1.Caption; if bsSkinCheckRadioBox2.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox2.Caption; if bsSkinCheckRadioBox3.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox3.Caption; if bsSkinCheckRadioBox4.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox4.Caption; if bsSkinCheckRadioBox5.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox5.Caption; if bsSkinCheckRadioBox6.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox6.Caption; if bsSkinCheckRadioBox8.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox8.Caption; if bsSkinCheckRadioBox7.Checked then begin data1.DataSet['业务类型']:='更改单'; PNO:=Trim(data1.DataSet.FieldByName('委托编号').AsString); end else data1.DataSet['业务类型']:='普通货'; data1.DataSet['业务编号']:=''; data1.DataSet['主编号']:=''; data1.DataSet['发送舱单']:=''; OrgBSNO:=get_id; data1.DataSet['编号']:=OrgBSNO; data1.DataSet['订舱单号']:=''; data1.DataSet['IRCODE']:=''; // if not (Trim(frm_data_share.t_sys_noset.fieldbyname('出号规则').Asstring)='手动编辑') then data1.DataSet['委托编号']:=''; if bsSkinCheckRadioBox7.Checked then begin if Trim(PNO)<>'' then data1.DataSet.FieldByName('委托编号').AsString:=getamendBsNo(PNO,data1.DataSet.FieldByName('主提单号').AsString)+'*'; end; if not bsSkinCheckRadioBox7.Checked then begin data1.DataSet['主提单号']:=''; end; data1.DataSet['箱型1']:=0; data1.DataSet['箱型2']:=0; data1.DataSet['箱型3']:=0; data1.DataSet['箱型4']:=0; data1.DataSet['箱型5']:=0; data1.DataSet['箱型6']:=0; data1.DataSet['箱型7']:=0; data1.DataSet['箱型8']:=0; data1.DataSet['箱型9']:=0; data1.DataSet['箱型10']:=0; data1.DataSet['其他箱型']:=0; data1.DataSet['箱TEU']:=0; data1.DataSet['集装箱']:=''; data1.DataSet['箱数大写']:=''; data1.DataSet['计费标准']:=''; data1.DataSet['报关日期']:=null; data1.DataSet['报关员']:=''; data1.DataSet['报关单号']:=''; data1.DataSet['核销单号']:=''; data1.DataSet['手册号']:=''; data1.DataSet['是否退税']:=0; data1.DataSet['退税日期']:=null; data1.DataSet['是否通关']:=0; data1.DataSet['通关日期']:=null; data1.DataSet['危险品分类']:=''; data1.DataSet['危险品编号']:=null; data1.DataSet['冷藏通风量']:=''; data1.DataSet['温度单位']:=''; data1.DataSet['设置温度']:=''; data1.DataSet['最低温度']:=''; data1.DataSet['最高温度']:=''; // data1.DataSet['货物标识']:=''; data1.DataSet['二程开船日期']:=null; data1.DataSet['三程开船日期']:=null; data1.DataSet['二程港口']:=''; data1.DataSet['二程船名']:=''; data1.DataSet['二程航次']:=''; data1.DataSet['箱号封号']:=''; // data1.DataSet['备注']:=''; data1.DataSet['分单列表']:=''; data1.DataSet['发票号']:=''; data1.DataSet['商品编码']:=''; data1.DataSet['是否签单']:=0; data1.DataSet['签回日期']:=null; data1.DataSet['请求派车']:=0; data1.DataSet['是否派车']:=0; data1.DataSet['派车日期']:=null; data1.DataSet['是否解锁']:=0; data1.DataSet['解锁日期']:=null; data1.DataSet['解锁人']:=''; data1.DataSet['应收陆运']:=0; data1.DataSet['应付陆运']:=0; data1.DataSet['陆运利润']:=0; data1.DataSet['是否退税']:=0; data1.DataSet['是否通关']:=0; data1.DataSet['是否签单']:=0; data1.DataSet['是否退舱']:=0; data1.DataSet['退税日期']:=null; data1.DataSet['签单日期']:=null; data1.DataSet['派车日期']:=null; data1.DataSet['寄单日期']:=null; data1.DataSet['是否寄单']:=0; data1.DataSet['BC状态']:='N'; data1.DataSet['FEE']:=0; data1.DataSet['FEE2']:=0; data1.DataSet['不发签单条']:=0; data1.DataSet['核对提单']:=0; data1.DataSet['业务状态']:='接受委托'; data1.DataSet['费用状态']:='录入状态'; data1.DataSet['录入人']:=employee; data1.DataSet['录入日期']:=date; data1.DataSet['分部名称']:=subComp; data1.DataSet['操作员']:=employee; data1.DataSet['操作部门']:=department; data1.DataSet['报关操作']:=employee; data1.DataSet['报检操作']:=employee; data1.DataSet['报检单号']:=''; if data1.DataSet['装运方式']='拼箱分票' then data1.DataSet['签单方式']:='其他'; if not bsSkinCheckRadioBox7.Checked then begin if frm_data_share.t_crm_client_weituo.Locate('客户简称',data1.DataSet.fieldbyname('委托单位').asstring,[])then begin if frm_data_share.t_crm_client_weituo.fieldbyname('揽货人').asstring<>''then begin data1.DataSet['揽货人']:=frm_data_share.t_crm_client_weituo.fieldbyname('揽货人').asstring; end else if Trim(frm_data_share.t_crm_client_weituo.fieldbyname('揽货人').asstring)=''then begin data1.DataSet['揽货人']:='公司货'; end; if frm_data_share.t_sys_employee.locate('姓名',data1.DataSet.fieldbyname('揽货人').asstring,[]) then data1.DataSet['销售部门']:=frm_data_share.t_sys_employee['部门名称']; end; if frm_data_share.t_crm_client_weituo.Locate('客户简称',data1.DataSet.fieldbyname('委托单位').asstring,[])then begin if ((trim(frm_data_share.t_crm_client_weituo.fieldbyname('其他要求').asstring)<>'') and (trim(frm_data_share.t_crm_client_weituo.fieldbyname('其他要求').asstring)<>data1.DataSet.FieldByName('业务来源').AsString)) then begin data1.DataSet['业务来源']:=trim(frm_data_share.t_crm_client_weituo.fieldbyname('其他要求').asstring); data1.DataSet['来源明细']:=''; end; end; end; // data1.DataSet['销售部门']:=department; if data1.DataSet['船公司']<>'CMA' THEN data1.DataSet['运输方式']:=''; data1.DataSet['海尔联系部门']:=''; data1.DataSet['提单签发状态']:=''; data1.DataSet['空箱申报状态']:=''; data1.DataSet['重箱申报状态']:=''; data1.DataSet['视频审核状态']:=''; data1.DataSet['会计期间']:=wwDBDateTimePicker1.date; if (strtoint(get_parameters_value(158,'0'))=1) and bsSkinCheckRadioBox7.Checked then AmendAccDate('T_OP_SEAE',data1); data1.DataSet['财务']:=0; // data1.DataSet['VGM']:=1; data1.DataSet['财务凭证']:=''; data1.DataSet['备案号']:=''; data1.DataSet['运抵国']:=''; data1.DataSet['境内货源地']:=''; data1.DataSet['批准文号']:=''; data1.DataSet['成交方式']:=''; data1.DataSet['净重']:=0; data1.DataSet['单价']:=''; data1.DataSet['总价']:='0'; data1.DataSet['商品名称']:=''; data1.DataSet['数量单位']:=''; data1.DataSet['接单日期']:=null; data1.DataSet['报检日期']:=null; data1.DataSet['报检单号']:=''; data1.DataSet['验货时间']:=null; data1.DataSet['实验时间']:=null; data1.DataSet['熏蒸时间']:=null; data1.DataSet['出证时间']:=null; data1.DataSet['实验内容']:=''; data1.DataSet['币制']:=''; data1.DataSet['财务']:=0; data1.DataSet['是否派车']:=0; // data1.DataSet['VGM']:=1; data1.DataSet['财务凭证2']:=''; // data1.DataSet['签单编号']:=0; data1.DataSet['是否打印']:=0; if not bsSkinCheckRadioBox7.Checked then data1.DataSet['销售订舱']:=0; data1.DataSet['费用封帐日期']:=null; data1.DataSet['总价']:='0'; data1.DataSet['第二通知人']:=''; data1.DataSet['内部航次号']:=''; data1.DataSet['DOOR地址']:=''; data1.DataSet['BC状态']:='N'; { if not bsSkinCheckRadioBox7.Checked then begin data1.DataSet['揽货人']:=''; data1.DataSet['业务来源']:=''; end; } data1.DataSet['合计20']:=0; data1.DataSet['合计40']:=0; data1.DataSet['合计40H']:=0; data1.DataSet['合计45']:=0; data1.DataSet['集团成本']:=0; data1.DataSet['凭证日期']:=null; data1.DataSet['提交财务日期']:=null; data1.DataSet['自责更改']:='0'; data1.DataSet['应收海运费']:=0; data1.DataSet['应付海运费']:=0; data1.DataSet['船公司代理费']:=0; data1.DataSet['捷丰代理费']:=''; data1.DataSet['香港付费']:=0; data1.DataSet['拖车数']:=0; data1.DataSet['报关数']:=0; data1.DataSet['代理数']:=0; data1.DataSet['拼箱整箱']:=0; data1.DataSet['舱单申报']:=''; if data1.DataSet.FieldByName('业务来源').IsNull then data1.DataSet['业务来源']:='' else data1.DataSet['业务来源']:=data1.DataSet.FieldByName('业务来源').AsString; if data1.DataSet.FieldByName('来源明细').IsNull then data1.DataSet['来源明细']:='' else data1.DataSet['来源明细']:=data1.DataSet.FieldByName('来源明细').AsString; if not bsSkinCheckRadioBox7.Checked then begin data1.DataSet['拆单并单编号']:=''; data1.DataSet['副本提单份数']:=''; data1.DataSet['订舱状态']:=''; data1.DataSet['确认状态']:=''; data1.DataSet['结费类型']:=''; data1.DataSet['海丰财务凭证']:=''; data1.DataSet['香港付费对象']:=''; data1.DataSet['合同号']:=''; data1.DataSet['船代']:=''; data1.DataSet['保险人']:=''; data1.DataSet['结费类型']:=getzqlx(data1.DataSet['委托单位']); end; if copy(data1.DataSet.fieldbyname('装运方式').asstring,1,4)='拼箱'then begin if not strtobool(get_parameters_value(52,'false')) then begin data1.DataSet['件数包装']:=''; data1.DataSet['货物重量']:=''; data1.DataSet['货物尺码']:=''; if (data1.DataSet.fieldbyname('装运方式').asstring<>'拼箱主票') then data1.DataSet['货物描述']:=''; data1.DataSet['分单列表']:=''; end; end else begin if not strtobool(get_parameters_value(51,'false')) then begin data1.DataSet['件数包装']:=''; data1.DataSet['货物重量']:=''; data1.DataSet['货物尺码']:=''; data1.DataSet['货物描述']:=''; data1.DataSet['分单列表']:=''; end; end; aQuery:=CreateAdoQuery; try With aQuery do begin Close;sql.clear; sql.add('insert into T_OP_AMS(编号,发货人国家代码,[发货人联系电话],[通知人联系电话],[收货人联系电话],[发货人企业代码],[收货人企业代码],[通知人企业代码],[发货人邮箱],[收货人邮箱] ,[通知人邮箱],收货人国家代码,'); sql.add('通知人国家代码,舱单发货人代码,舱单收货人代码,舱单通知人代码,发货人代码类型,收货人代码类型,通知人代码类型,委托方,FREIGHTPAYER) '); sql.add(' select '''+OrgBSNO+''',发货人国家代码,[发货人联系电话],[通知人联系电话],[收货人联系电话],[发货人企业代码],[收货人企业代码],[通知人企业代码],[发货人邮箱],[收货人邮箱] ,[通知人邮箱],收货人国家代码,'); sql.add('通知人国家代码,舱单发货人代码,舱单收货人代码,舱单通知人代码,发货人代码类型,收货人代码类型,通知人代码类型,委托方,FREIGHTPAYER from T_OP_AMS where 编号='''+oldbsno+''''); execsql; end; finally FreeAndNil(aQuery); end; if bsSkinCheckRadioBox7.Checked then begin data1.DataSet.Post; end; if frm_op_seae_add_num=1 then begin frm_op_seae.Notebook1.PageIndex:=1; frm_op_seae.bsSkinButton11.Caption:='返回列表'; end; if frm_op_seae_add_num=2 then begin frm_op_seae.Notebook1.PageIndex:=1; frm_op_seae.bsSkinButton11.Caption:='返回主票'; end; if frm_op_seae_add_num=3 then begin frm_op_seae.Notebook1.PageIndex:=1; frm_op_seae.bsSkinButton11.Caption:='返回主票'; frm_op_seae.t_op_seae2.Enabled:=false; frm_op_seae.t_op_seae2.DataSet:=frm_op_seae.t_op_seae_fen; frm_op_seae.t_op_seae2.Enabled:=true; end; frm_op_seae.bsSkinTabSheet1.Show; close; end; { procedure Tfrm_op_seae_add.bsSkinButton4Click(Sender: TObject); var EdiString:TStrings; FileNames,bsno:String; i: Integer; begin if (frm_op_seae_add_num=3) or (frm_op_seae_add_num=2) then begin data1.DataSet.append; for i := 0 to (data1.DataSet.DataSource.DataSet.fieldcount-1) do begin data1.DataSet[data1.DataSet.DataSource.DataSet.fields[i].FieldName]:= data1.DataSet.DataSource.DataSet[data1.DataSet.DataSource.DataSet.fields[i].FieldName]; end; if bsSkinCheckRadioBox1.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox1.Caption; if bsSkinCheckRadioBox2.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox2.Caption; if bsSkinCheckRadioBox3.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox3.Caption; if bsSkinCheckRadioBox4.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox4.Caption; if bsSkinCheckRadioBox5.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox5.Caption; if bsSkinCheckRadioBox6.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox6.Caption; if bsSkinCheckRadioBox7.Checked then data1.DataSet['业务类型']:='更改单' else data1.DataSet['业务类型']:='普通货'; data1.DataSet['业务编号']:=''; data1.DataSet['主编号']:=''; if not (Trim(frm_data_share.t_sys_noset.fieldbyname('出号规则').Asstring)='手动编辑') then data1.DataSet['委托编号']:=''; data1.DataSet['编号']:=''; data1.DataSet['箱型1']:=0; data1.DataSet['箱型2']:=0; data1.DataSet['箱型3']:=0; data1.DataSet['箱型4']:=0; data1.DataSet['箱型5']:=0; data1.DataSet['箱型6']:=0; data1.DataSet['箱型7']:=0; data1.DataSet['箱型8']:=0; data1.DataSet['箱型9']:=0; data1.DataSet['箱型10']:=0; data1.DataSet['其他箱型']:=0; data1.DataSet['箱TEU']:=0; data1.DataSet['集装箱']:=''; data1.DataSet['箱数大写']:=''; data1.DataSet['计费标准']:=''; data1.DataSet['报关日期']:=null; data1.DataSet['报关员']:=''; data1.DataSet['报关单号']:=''; data1.DataSet['核销单号']:=''; data1.DataSet['手册号']:=''; data1.DataSet['是否退税']:=0; data1.DataSet['退税日期']:=null; data1.DataSet['是否通关']:=0; data1.DataSet['通关日期']:=null; data1.DataSet['分单列表']:=''; data1.DataSet['发票号']:=''; data1.DataSet['商品编码']:=''; data1.DataSet['是否签单']:=0; data1.DataSet['请求派车']:=0; data1.DataSet['是否派车']:=0; data1.DataSet['是否退税']:=0; data1.DataSet['是否通关']:=0; data1.DataSet['是否退舱']:=0; data1.DataSet['是否解锁']:=0; data1.DataSet['解锁日期']:=null; data1.DataSet['解锁人']:=''; data1.DataSet['应收陆运']:=0; data1.DataSet['应付陆运']:=0; data1.DataSet['陆运利润']:=0; data1.DataSet['业务状态']:='接受委托'; data1.DataSet['费用状态']:='录入状态'; data1.DataSet['录入人']:=employee; data1.DataSet['录入日期']:=date; data1.DataSet['分部名称']:=subComp; data1.DataSet['操作员']:=employee; data1.DataSet['报关操作']:=employee; data1.DataSet['报检操作']:=employee; data1.DataSet['操作部门']:=department; data1.DataSet['会计期间']:=wwDBDateTimePicker1.date; data1.DataSet['周次']:=WeekofYear(wwDBDateTimePicker1.date); data1.DataSet['财务']:=0; data1.DataSet['财务凭证']:=''; data1.DataSet['件数包装']:=''; data1.DataSet['货物重量']:=''; data1.DataSet['货物尺码']:=''; data1.DataSet['货物描述']:=''; data1.DataSet['分单列表']:=''; data1.DataSet['备案号']:=''; data1.DataSet['运抵国']:=''; data1.DataSet['境内货源地']:=''; data1.DataSet['批准文号']:=''; data1.DataSet['成交方式']:=''; data1.DataSet['净重']:=0; data1.DataSet['单价']:=''; data1.DataSet['总价']:=''; data1.DataSet['商品名称']:=''; data1.DataSet['数量单位']:=''; data1.DataSet['接单日期']:=null; data1.DataSet['报检日期']:=null; data1.DataSet['报检单号']:=''; data1.DataSet['验货时间']:=null; data1.DataSet['实验时间']:=null; data1.DataSet['熏蒸时间']:=null; data1.DataSet['出证时间']:=null; data1.DataSet['实验内容']:=''; data1.DataSet['币制']:=''; data1.DataSet['财务']:=0; data1.DataSet['财务凭证']:=''; data1.DataSet['是否打印']:=0; data1.DataSet['发货人']:=''; data1.DataSet['发货人代码']:=''; data1.DataSet['收货人']:=''; data1.DataSet['收货人代码']:=''; data1.DataSet['通知人']:=''; data1.DataSet['通知人代码']:=''; data1.DataSet['销售订舱']:=0; data1.DataSet['应收海运费']:=0; data1.DataSet['应付海运费']:=0; data1.DataSet['船公司代理费']:=0; data1.DataSet['捷丰代理费']:=0; data1.DataSet['香港付费']:=0; end else begin bsno:=get_id; data1.DataSet.Append; if bsSkinCheckRadioBox1.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox1.Caption; if bsSkinCheckRadioBox2.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox2.Caption; if bsSkinCheckRadioBox3.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox3.Caption; if bsSkinCheckRadioBox4.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox4.Caption; if bsSkinCheckRadioBox5.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox5.Caption; if bsSkinCheckRadioBox6.Checked then data1.DataSet['装运方式']:=bsSkinCheckRadioBox6.Caption; if bsSkinCheckRadioBox7.Checked then data1.DataSet['业务类型']:='更改单' else data1.DataSet['业务类型']:='普通货'; data1.DataSet['会计期间']:=wwDBDateTimePicker1.date; data1.DataSet['周次']:=WeekofYear(wwDBDateTimePicker1.date); data1.DataSet['录入人']:=employee; data1.DataSet['录入日期']:=date; data1.DataSet['分部名称']:=subComp; data1.DataSet['操作员']:=employee; data1.DataSet['报关操作']:=employee; data1.DataSet['报检操作']:=employee; // data1.DataSet['揽货人']:=employee; data1.DataSet['客服员']:=employee; data1.DataSet['销售部门']:=department; data1.DataSet['操作部门']:=department; data1.DataSet['起运港']:=get_parameters_value(14,'QINGDAO,CHINA'); data1.DataSet['装货港']:=get_parameters_value(16,'QINGDAO,CHINA'); data1.DataSet['提单份数']:=get_parameters_value(20,'THREE'); // data1.DataSet['副本提单份数']:=get_parameters_value(20,'THREE'); if copy(data1.DataSet.fieldbyname('装运方式').asstring,1,4)='拼箱'then data1.DataSet['运输条款']:=get_parameters_value(48,'CFS-CFS') else data1.DataSet['运输条款']:=get_parameters_value(21,'CY-CY'); data1.DataSet['唛头']:=get_parameters_value(22,'N/M'); data1.DataSet['货物描述']:=get_parameters_value(116,''); data1.DataSet['发货人代码']:=get_parameters_value(124,''); data1.DataSet['付费方式']:=get_parameters_value(23,'FREIGHT PREPAID'); data1.DataSet['签单地点']:=get_parameters_value(49,'QINGDAO,CHINA'); data1.DataSet['预付地点']:=get_parameters_value(50,'QINGDAO,CHINA'); data1.DataSet['退税日期']:=null; data1.DataSet['签单日期']:=null; data1.DataSet['派车日期']:=null; data1.DataSet['寄单日期']:=null; data1.DataSet['是否寄单']:=0; data1.DataSet['是否退税']:=0; data1.DataSet['是否通关']:=0; data1.DataSet['是否签单']:=0; data1.DataSet['请求派车']:=0; data1.DataSet['是否派车']:=0; data1.DataSet['是否解锁']:=0; data1.DataSet['是否退舱']:=0; data1.DataSet['解锁日期']:=null; data1.DataSet['解锁人']:=''; data1.DataSet['应收陆运']:=0; data1.DataSet['应付陆运']:=0; data1.DataSet['陆运利润']:=0; data1.DataSet['财务']:=0; data1.DataSet['财务凭证']:=''; data1.DataSet['是否打印']:=0; data1.DataSet['销售订舱']:=0; data1.DataSet['编号']:=bsno; data1.DataSet['业务来源']:=''; data1.DataSet['来源明细']:=''; data1.DataSet['应收海运费']:=0; data1.DataSet['应付海运费']:=0; data1.DataSet['船公司代理费']:=0; data1.DataSet['捷丰代理费']:=0; data1.DataSet['香港付费']:=0; end; EdiString:=TStringList.Create; try OpenDialog1.Execute; FileNames:=OpenDialog1.FileName; if FileNames<>'' then begin EdiString.LoadFromFile(FileNames); NewEdiSEAE(EdiString,data1); end; finally FreeAndNil(EdiString); end; if frm_op_seae_add_num=1 then begin frm_op_seae.Notebook1.PageIndex:=1; frm_op_seae.bsSkinButton11.Caption:='返回列表'; end; if frm_op_seae_add_num=2 then begin frm_op_seae.Notebook1.PageIndex:=1; frm_op_seae.bsSkinButton11.Caption:='返回主票'; end; if frm_op_seae_add_num=3 then begin frm_op_seae.Notebook1.PageIndex:=1; frm_op_seae.bsSkinButton11.Caption:='返回主票'; frm_op_seae.t_op_seae2.Enabled:=false; frm_op_seae.t_op_seae2.DataSet:=frm_op_seae.t_op_seae_fen; frm_op_seae.t_op_seae2.Enabled:=true; end; close; end; } procedure Tfrm_op_seae_add.bsSkinCheckRadioBox7Click(Sender: TObject); begin bsSkinCheckRadioBox3.Checked:=True; end; end.