unit u_op_seae__land_add; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, BusinessSkinForm, bsSkinCtrls, StdCtrls, wwdbdatetimepicker, DB, RxLookup, Mask, wwdbedit, Wwdotdot, Wwdbcomb,inifiles; type Tfrm_op_seae_land_add = class(TForm) bsBusinessSkinForm1: TbsBusinessSkinForm; bsSkinGroupBox1: TbsSkinGroupBox; bsSkinCheckRadioBox1: TbsSkinCheckRadioBox; bsSkinCheckRadioBox2: TbsSkinCheckRadioBox; bsSkinCheckRadioBox3: TbsSkinCheckRadioBox; bsSkinCheckRadioBox4: TbsSkinCheckRadioBox; bsSkinCheckRadioBox5: TbsSkinCheckRadioBox; bsSkinCheckRadioBox6: TbsSkinCheckRadioBox; bsSkinButton1: TbsSkinButton; bsSkinButton2: TbsSkinButton; data1: TDataSource; bsSkinButton3: TbsSkinButton; bsSkinCheckRadioBox7: TbsSkinCheckRadioBox; bsSkinButton4: TbsSkinButton; OpenDialog1: TOpenDialog; bsSkinCheckRadioBox8: TbsSkinCheckRadioBox; bsSkinGroupBox2: TbsSkinGroupBox; Label16: TLabel; Label42: TLabel; Label17: TLabel; Label19: TLabel; Label20: TLabel; RxDBLookupCombo14: TRxDBLookupCombo; RxDBLookupCombo30: TRxDBLookupCombo; RxDBLookupCombo13: TRxDBLookupCombo; RxDBLookupCombo12: TRxDBLookupCombo; RxDBLookupCombo29: TRxDBLookupCombo; Label41: TLabel; Label3: TLabel; Label1: TLabel; wwDBDateTimePicker1: TwwDBDateTimePicker; RxDBLookupCombo16: TRxDBLookupCombo; RxDBLookupCombo17: TRxDBLookupCombo; procedure bsSkinButton2Click(Sender: TObject); procedure bsSkinButton1Click(Sender: TObject); procedure FormShow(Sender: TObject); procedure bsSkinButton3Click(Sender: TObject); procedure bsSkinButton4Click(Sender: TObject); procedure bsSkinCheckRadioBox7Click(Sender: TObject); procedure RxDBLookupCombo14Change(Sender: TObject); procedure RxDBLookupCombo29Change(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public { Public declarations } end; var frm_op_seae_land_add: Tfrm_op_seae_land_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_land_add.bsSkinButton2Click(Sender: TObject); begin close; end; procedure Tfrm_op_seae_land_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['业务类型']:='普通货'; 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['财务凭证']:=''; 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['总价']:=''; 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['费用封帐日期']:=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['捷丰代理费']:=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 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['财务凭证']:=''; 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['捷丰代理费']:=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_land_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['业务编号']:=''; 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['财务凭证']:=''; 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['总价']:=''; 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['费用封帐日期']:=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['捷丰代理费']:=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 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['财务凭证']:=''; 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['捷丰代理费']:=0; 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_land_add.FormShow(Sender: TObject); var inifile1:Tinifile; begin wwDBDateTimePicker1.MinDate:=Logininfo.endday+1; wwDBDateTimePicker1.Date:=date; inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini'); RxDBLookupCombo14.DisplayValue:=inifile1.ReadString('landorder','op',''); RxDBLookupCombo30.DisplayValue:=inifile1.ReadString('landorder','opdept',''); RxDBLookupCombo13.DisplayValue:=inifile1.ReadString('landorder','kf',''); RxDBLookupCombo29.DisplayValue:=inifile1.ReadString('landorder','sales',''); RxDBLookupCombo12.DisplayValue:=inifile1.ReadString('landorder','salesdept',''); RxDBLookupCombo16.DisplayValue:=inifile1.ReadString('landorder','ywly',''); RxDBLookupCombo17.DisplayValue:=inifile1.ReadString('landorder','ywlyitems',''); inifile1.free; end; procedure Tfrm_op_seae_land_add.bsSkinButton3Click(Sender: TObject); var afield : variant; i: Integer; PNO:string; begin if (RxDBLookupCombo14.DisplayValue='') //操作员 or (RxDBLookupCombo30.DisplayValue='') //操作部门 or (RxDBLookupCombo29.DisplayValue='') //揽货人 or (RxDBLookupCombo12.DisplayValue='') //销售部门 or (RxDBLookupCombo13.DisplayValue='') //客服员 or (RxDBLookupCombo16.DisplayValue='') //业务来演 // or (RxDBLookupCombo17.DisplayValue='') //来源明细 or (wwDBDateTimePicker1.text='') //会计期间 then begin MessageDlg('所有项目都不为空！', mtConfirmation, [mbYes],0); exit; end; if data1.DataSet.IsEmpty then begin showmessage('没有复制母体，不能复制新建！'); exit; end; 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); data1.DataSet['装运方式']:='陆运'; if bsSkinCheckRadioBox7.Checked then begin data1.DataSet['业务类型']:='更改单'; PNO:=Trim(data1.DataSet.FieldByName('委托编号').AsString); end else data1.DataSet['业务类型']:='普通货'; data1.DataSet['业务编号']:=''; data1.DataSet['主编号']:=''; data1.DataSet['编号']:=''; data1.DataSet['订舱单号']:=''; // 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:=PNO+'*'; 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['FEE']:=0; data1.DataSet['FEE2']:=0; data1.DataSet['业务状态']:='接受委托'; data1.DataSet['费用状态']:='录入状态'; data1.DataSet['录入人']:=employee; data1.DataSet['录入日期']:=date; data1.DataSet['分部名称']:=subComp; data1.DataSet['操作员']:=RxDBLookupCombo14.DisplayValue; data1.DataSet['操作部门']:=RxDBLookupCombo30.DisplayValue; data1.DataSet['客服员']:=RxDBLookupCombo13.DisplayValue; data1.DataSet['揽货人']:=RxDBLookupCombo29.DisplayValue; data1.DataSet['销售部门']:=RxDBLookupCombo12.DisplayValue; data1.DataSet['业务来源']:=RxDBLookupCombo16.DisplayValue; data1.DataSet['来源明细']:=RxDBLookupCombo17.DisplayValue; data1.DataSet['报关操作']:=employee; data1.DataSet['报检操作']:=employee; data1.DataSet['报检操作']:=employee; if data1.DataSet['船公司']<>'CMA' THEN 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['财务凭证']:=''; 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['财务凭证2']:=''; // data1.DataSet['签单编号']:=0; data1.DataSet['是否打印']:=0; data1.DataSet['销售订舱']:=0; data1.DataSet['费用封帐日期']:=null; data1.DataSet['总价']:='0'; data1.DataSet['第二通知人']:=''; data1.DataSet['内部航次号']:=''; data1.DataSet['DOOR地址']:=''; data1.DataSet['拆单并单编号']:=''; data1.DataSet['副本提单份数']:=''; data1.DataSet['订舱状态']:=''; data1.DataSet['确认状态']:=''; data1.DataSet['结费类型']:=''; data1.DataSet['海丰财务凭证']:=''; data1.DataSet['香港付费对象']:=''; data1.DataSet['合同号']:=''; data1.DataSet['船代']:=''; { 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['捷丰代理费']:=0; 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; } data1.DataSet['结费类型']:=getzqlx(data1.DataSet['委托单位']); 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['货物尺码']:=''; 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; 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_land_add.bsSkinCheckRadioBox7Click(Sender: TObject); begin bsSkinCheckRadioBox3.Checked:=True; end; procedure Tfrm_op_seae_land_add.RxDBLookupCombo14Change(Sender: TObject); begin if RxDBLookupCombo14.DisplayValue='' then exit; if frm_data_share.t_sys_employee.locate('姓名',RxDBLookupCombo14.DisplayValue,[]) then RxDBLookupCombo30.DisplayValue:=frm_data_share.t_sys_employee['部门名称']; end; procedure Tfrm_op_seae_land_add.RxDBLookupCombo29Change(Sender: TObject); begin if RxDBLookupCombo29.DisplayValue='' then exit; if frm_data_share.t_sys_employee.locate('姓名',RxDBLookupCombo29.DisplayValue,[]) then RxDBLookupCombo12.DisplayValue:=frm_data_share.t_sys_employee['部门名称']; end; procedure Tfrm_op_seae_land_add.FormClose(Sender: TObject; var Action: TCloseAction); var inifile1:Tinifile; begin inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini'); inifile1.WriteString('landorder','op',RxDBLookupCombo14.DisplayValue); inifile1.WriteString('landorder','opdept',RxDBLookupCombo30.DisplayValue); inifile1.WriteString('landorder','kf',RxDBLookupCombo13.DisplayValue); inifile1.WriteString('landorder','sales',RxDBLookupCombo29.DisplayValue); inifile1.WriteString('landorder','salesdept',RxDBLookupCombo12.DisplayValue); inifile1.WriteString('landorder','ywly',RxDBLookupCombo16.DisplayValue); inifile1.WriteString('landorder','ywlyitems',RxDBLookupCombo17.DisplayValue); inifile1.free; end; end.