unit u_op_history; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, BusinessSkinForm, bsSkinCtrls, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid, DB, ADODB, dxDBTLCl, dxGrClms, RxLookup, StdCtrls, wwdbdatetimepicker, ExtCtrls; type Tfrm_op_history = class(TForm) bsBusinessSkinForm1: TbsBusinessSkinForm; bsSkinPanel1: TbsSkinPanel; bsSkinButton5: TbsSkinButton; bsSkinNotebook1: TbsSkinNotebook; bsSkinButton10: TbsSkinButton; bsSkinButton2: TbsSkinButton; bsSkinButton3: TbsSkinButton; t_op_seae_assistant: TADOQuery; bsSkinPanel2: TbsSkinPanel; bsSkinPanel3: TbsSkinPanel; Edit1: TEdit; Edit2: TEdit; Label6: TLabel; Label1: TLabel; Label9: TLabel; RxDBLookupCombo2: TRxDBLookupCombo; Label3: TLabel; Edit4: TEdit; Edit3: TEdit; Label2: TLabel; Label10: TLabel; wwDBDateTimePicker1: TwwDBDateTimePicker; dxDBGrid2: TdxDBGrid; dxDBGridMaskColumn1: TdxDBGridMaskColumn; dxDBGridMaskColumn4: TdxDBGridMaskColumn; dxDBGridMaskColumn5: TdxDBGridMaskColumn; dxDBGridMaskColumn6: TdxDBGridMaskColumn; dxDBGridMaskColumn7: TdxDBGridMaskColumn; dxDBGrid1Column12: TdxDBGridMaskColumn; dxDBGrid1Column13: TdxDBGridMaskColumn; dxDBGrid1Column14: TdxDBGridMaskColumn; dxDBGrid1Column15: TdxDBGridMaskColumn; dxDBGrid1Column16: TdxDBGridDateColumn; dxDBGrid1Column17: TdxDBGridDateColumn; dxDBGrid1Column18: TdxDBGridDateColumn; dxDBGrid1Column19: TdxDBGridMaskColumn; dxDBGrid1Column20: TdxDBGridMaskColumn; dxDBGrid1Column22: TdxDBGridDateColumn; dxDBGrid1Column63: TdxDBGridMaskColumn; dxDBGrid1Column64: TdxDBGridMaskColumn; dxDBGrid1Column65: TdxDBGridDateColumn; dxDBGrid1Column66: TdxDBGridMaskColumn; dxDBGrid1Column67: TdxDBGridMaskColumn; bsSkinPanel4: TbsSkinPanel; bsSkinPanel5: TbsSkinPanel; Label4: TLabel; Label5: TLabel; Label7: TLabel; Label8: TLabel; Label11: TLabel; Label12: TLabel; Edit5: TEdit; Edit6: TEdit; RxDBLookupCombo1: TRxDBLookupCombo; Edit7: TEdit; Edit8: TEdit; wwDBDateTimePicker2: TwwDBDateTimePicker; dxDBGrid3: TdxDBGrid; dxDBGridMaskColumn2: TdxDBGridMaskColumn; dxDBGridMaskColumn9: TdxDBGridMaskColumn; dxDBGridMaskColumn10: TdxDBGridMaskColumn; dxDBGrid1Column62: TdxDBGridColumn; dxDBGridMaskColumn11: TdxDBGridMaskColumn; dxDBGridDateColumn2: TdxDBGridDateColumn; dxDBGridMaskColumn15: TdxDBGridMaskColumn; dxDBGridMaskColumn16: TdxDBGridMaskColumn; dxDBGridMaskColumn17: TdxDBGridMaskColumn; dxDBGridMaskColumn18: TdxDBGridMaskColumn; dxDBGrid1Column41: TdxDBGridMaskColumn; dxDBGrid1Column47: TdxDBGridMaskColumn; dxDBGrid1Column48: TdxDBGridDateColumn; bsSkinPanel6: TbsSkinPanel; bsSkinPanel7: TbsSkinPanel; Label13: TLabel; Label14: TLabel; Label15: TLabel; Label16: TLabel; Label17: TLabel; Label18: TLabel; Edit9: TEdit; Edit10: TEdit; RxDBLookupCombo3: TRxDBLookupCombo; Edit11: TEdit; Edit12: TEdit; wwDBDateTimePicker3: TwwDBDateTimePicker; dxDBGrid4: TdxDBGrid; dxDBGridMaskColumn3: TdxDBGridMaskColumn; dxDBGridMaskColumn13: TdxDBGridMaskColumn; dxDBGridMaskColumn14: TdxDBGridMaskColumn; dxDBGridMaskColumn19: TdxDBGridMaskColumn; dxDBGridMaskColumn20: TdxDBGridMaskColumn; dxDBGrid1Column11: TdxDBGridMaskColumn; dxDBGridMaskColumn22: TdxDBGridMaskColumn; dxDBGridMaskColumn23: TdxDBGridMaskColumn; dxDBGridDateColumn3: TdxDBGridDateColumn; dxDBGrid1Column27: TdxDBGridMaskColumn; dxDBGrid1Column28: TdxDBGridMaskColumn; dxDBGrid1Column29: TdxDBGridMaskColumn; dxDBGrid1Column30: TdxDBGridDateColumn; bsSkinPanel8: TbsSkinPanel; bsSkinPanel9: TbsSkinPanel; Label19: TLabel; Label20: TLabel; Label21: TLabel; Label22: TLabel; Label23: TLabel; Label24: TLabel; Edit13: TEdit; Edit14: TEdit; RxDBLookupCombo4: TRxDBLookupCombo; Edit15: TEdit; Edit16: TEdit; wwDBDateTimePicker4: TwwDBDateTimePicker; dxDBGrid5: TdxDBGrid; dxDBGridMaskColumn8: TdxDBGridMaskColumn; dxDBGrid1Column10: TdxDBGridMaskColumn; dxDBGridDateColumn4: TdxDBGridDateColumn; dxDBGridMaskColumn24: TdxDBGridMaskColumn; dxDBGridMaskColumn25: TdxDBGridMaskColumn; dxDBGridMaskColumn26: TdxDBGridMaskColumn; dxDBGridMaskColumn30: TdxDBGridMaskColumn; dxDBGridMaskColumn31: TdxDBGridMaskColumn; dxDBGridMaskColumn32: TdxDBGridMaskColumn; dxDBGridDateColumn5: TdxDBGridDateColumn; dxDBGridMaskColumn36: TdxDBGridMaskColumn; dxDBGrid1Column23: TdxDBGridMaskColumn; dxDBGrid1Column24: TdxDBGridMaskColumn; dxDBGrid1Column26: TdxDBGridMaskColumn; dxDBGrid1Column25: TdxDBGridDateColumn; op_type: TEdit; fee_type: TEdit; t_do_fee: TDataSource; Panel1: TPanel; dxDBGrid6: TdxDBGrid; dxDBGrid2Column12: TdxDBGridColumn; dxDBGrid2Column14: TdxDBGridColumn; dxDBGrid2Column15: TdxDBGridColumn; dxDBGrid2Column1: TdxDBGridColumn; dxDBGrid2Column2: TdxDBGridColumn; dxDBGrid2Column3: TdxDBGridColumn; dxDBGrid2Column4: TdxDBGridColumn; dxDBGrid2Column5: TdxDBGridColumn; dxDBGrid2Column6: TdxDBGridColumn; dxDBGrid2Column7: TdxDBGridColumn; dxDBGrid2Column8: TdxDBGridColumn; dxDBGrid2Column9: TdxDBGridColumn; dxDBGrid2Column10: TdxDBGridColumn; dxDBGrid2Column11: TdxDBGridColumn; dxDBGrid2Column13: TdxDBGridColumn; dxDBGrid2Column16: TdxDBGridColumn; dxDBGrid2Column17: TdxDBGridColumn; dxDBGrid2Column18: TdxDBGridColumn; dxDBGrid2Column19: TdxDBGridColumn; dxDBGrid2Column20: TdxDBGridColumn; dxDBGrid2Column21: TdxDBGridColumn; dxDBGrid2Column22: TdxDBGridColumn; dxDBGrid2Column23: TdxDBGridColumn; dxDBGrid2Column24: TdxDBGridColumn; dxDBGrid2Column25: TdxDBGridColumn; dxDBGrid2Column26: TdxDBGridColumn; dxDBGrid2Column27: TdxDBGridColumn; dxDBGrid2Column28: TdxDBGridColumn; dxDBGrid2Column29: TdxDBGridColumn; dxDBGrid2Column30: TdxDBGridColumn; dxDBGrid2Column31: TdxDBGridColumn; dxDBGrid2Column32: TdxDBGridColumn; dxDBGrid2Column33: TdxDBGridColumn; bsSkinPanel11: TbsSkinPanel; Label25: TLabel; Label26: TLabel; Label27: TLabel; Label28: TLabel; Label29: TLabel; Label30: TLabel; Edit17: TEdit; Edit18: TEdit; RxDBLookupCombo5: TRxDBLookupCombo; Edit19: TEdit; Edit20: TEdit; wwDBDateTimePicker5: TwwDBDateTimePicker; dxDBGrid2Column34: TdxDBGridColumn; dxDBGrid2Column35: TdxDBGridColumn; dxDBGrid2Column36: TdxDBGridColumn; t_op_seae_assistant1: TDataSource; t_op_ctn_fendan1: TDataSource; dxDBGrid4Column14: TdxDBGridColumn; dxDBGrid4Column15: TdxDBGridColumn; dxDBGrid4Column16: TdxDBGridColumn; dxDBGrid4Column17: TdxDBGridColumn; procedure bsSkinButton5Click(Sender: TObject); procedure FormShow(Sender: TObject); procedure bsSkinButton10Click(Sender: TObject); procedure bsSkinButton2Click(Sender: TObject); procedure bsSkinButton3Click(Sender: TObject); procedure Edit1KeyPress(Sender: TObject; var Key: Char); procedure Edit4KeyPress(Sender: TObject; var Key: Char); procedure RxDBLookupCombo2KeyPress(Sender: TObject; var Key: Char); procedure Edit2KeyPress(Sender: TObject; var Key: Char); procedure Edit3KeyPress(Sender: TObject; var Key: Char); procedure wwDBDateTimePicker1KeyPress(Sender: TObject; var Key: Char); private function fee_get_client(str:string):string; function GetCurrencyRate(aCurrency,BsType:string;Dataset1:TDataset):Double; { Private declarations } public { Public declarations } bsno,bsCardNo:string; end; var frm_op_history: Tfrm_op_history; implementation uses u_main, my_sys_function, u_data_share; {$R *.dfm} function Tfrm_op_history.GetCurrencyRate(aCurrency,BsType:string;Dataset1:TDataset):Double; begin if frm_data_share.t_code_currency.Locate('币别',Trim(aCurrency),[])THEN begin if Trim(aCurrency)='USD' then begin if strtobool(get_parameters_value(145,'true')) then begin if BsType='1' then Result:=getUsdExRate(dataset1.fieldbyname('开船日期').asstring,aCurrency) else if BsType='2' then Result:=getUsdExRate(dataset1.fieldbyname('进口日期').asstring,aCurrency) else if BsType='3' then Result:=getUsdExRate(dataset1.fieldbyname('一程开航日期').asstring,aCurrency) else if BsType='4' then Result:=getUsdExRate(dataset1.fieldbyname('进口日期').asstring,aCurrency) else if BsType='6' then Result:=getUsdExRate(dataset1.fieldbyname('接单日期').asstring,aCurrency); end else begin Result:=getUsdExRate(dataset1.fieldbyname('会计期间').asstring,aCurrency) end; end else Result:=frm_data_share.t_code_currency.fieldbyname('汇率').asfloat; end; end; procedure Tfrm_op_history.bsSkinButton5Click(Sender: TObject); begin CLOSE; end; procedure Tfrm_op_history.FormShow(Sender: TObject); begin bsSkinNotebook1.PageIndex:=strtoint(op_type.text); end; procedure Tfrm_op_history.bsSkinButton10Click(Sender: TObject); begin Edit1.text:=''; Edit2.text:=''; Edit3.text:=''; Edit4.text:=''; Edit5.text:=''; Edit6.text:=''; Edit7.text:=''; Edit8.text:=''; Edit9.text:=''; Edit10.text:=''; Edit11.text:=''; Edit12.text:=''; Edit13.text:=''; Edit14.text:=''; Edit15.text:=''; Edit16.text:=''; RxDBLookupCombo1.ClearValue; RxDBLookupCombo2.ClearValue; RxDBLookupCombo3.ClearValue; RxDBLookupCombo4.ClearValue; wwDBDateTimePicker1.Text:=''; wwDBDateTimePicker2.Text:=''; wwDBDateTimePicker3.Text:=''; wwDBDateTimePicker4.Text:=''; end; function Tfrm_op_history.fee_get_client(str:string):string; begin if str='' then result:='' else begin if (op_type.text='1')OR(op_type.text='2') then begin if str='委托单位'then result:=t_do_fee.DataSet.DataSource.DataSet.fieldbyname('委托单位').asstring; if str='船公司'then result:=t_do_fee.DataSet.DataSource.DataSet.fieldbyname('船公司').asstring; if str='场站'then result:=t_do_fee.DataSet.DataSource.DataSet.fieldbyname('场站').asstring; if str='车队'then result:=t_do_fee.DataSet.DataSource.DataSet.fieldbyname('承运车队').asstring; if str='报关行'then result:=t_do_fee.DataSet.DataSource.DataSet.fieldbyname('报关行').asstring; if str='代理'then result:=t_do_fee.DataSet.DataSource.DataSet.fieldbyname('代理').asstring; if str='货代'then result:=t_do_fee.DataSet.DataSource.DataSet.fieldbyname('货代公司').asstring; if str='发货人'then result:=t_do_fee.DataSet.DataSource.DataSet.fieldbyname('发货人').asstring; if str='收货人'then result:=t_do_fee.DataSet.DataSource.DataSet.fieldbyname('收货人').asstring; if str='通知人'then result:=t_do_fee.DataSet.DataSource.DataSet.fieldbyname('通知人').asstring; if str='第三方'then result:=t_do_fee.DataSet.DataSource.DataSet.fieldbyname('第三方付费').asstring; end else begin if str='委托单位'then result:=t_do_fee.DataSet.DataSource.DataSet.fieldbyname('委托单位').asstring; if str='航空公司'then result:=t_do_fee.DataSet.DataSource.DataSet.fieldbyname('航空公司').asstring; if str='报关行'then result:=t_do_fee.DataSet.DataSource.DataSet.fieldbyname('报关行').asstring; if str='代理'then result:=t_do_fee.DataSet.DataSource.DataSet.fieldbyname('代理').asstring; end; end; end; procedure Tfrm_op_history.bsSkinButton2Click(Sender: TObject); var str:widestring; begin case bsSkinNotebook1.PageIndex of 1: begin if Edit1.text<>''then str:=' where 业务编号 like '+''''+'%'+Edit1.text+'%'+''''; if Edit4.text<>''then begin if str=''then str:=' where 委托编号 like '+''''+'%'+Edit4.text+'%'+'''' else str:=str+' and 委托编号 like '+''''+'%'+Edit4.text+'%'+''''; end; if Edit2.text<>''then begin if str=''then str:=' where 主提单号 like '+''''+'%'+Edit2.text+'%'+'''' else str:=str+' and 主提单号 like '+''''+'%'+Edit2.text+'%'+''''; end; if Edit3.text<>''then begin if str=''then str:=' where 分提单号 like '+''''+'%'+Edit3.text+'%'+'''' else str:=str+' and 分提单号 like '+''''+'%'+Edit3.text+'%'+''''; end; if RxDBLookupCombo2.DisplayValue<>''then begin if str=''then str:=' where 委托单位='+''''+RxDBLookupCombo2.DisplayValues[1]+'''' else str:=str+' and 委托单位='+''''+RxDBLookupCombo2.DisplayValues[1]+''''; end; if wwDBDateTimePicker1.text<>''then begin if str=''then str:=' where 开船日期='+''''+wwDBDateTimePicker1.text+'''' else str:=str+' and 开船日期='+''''+wwDBDateTimePicker1.text+''''; end; if str<>'' then str:=str+' and '+open_data('0001','录入人','操作员','客服员','no','no') else str:=str+' where '+open_data('0001','录入人','操作员','客服员','no','no'); str:='select * from t_op_seae_assistant '+str+default_sort(53,'t_op_seae_assistant','','desc'); t_op_seae_assistant.close; t_op_seae_assistant.sql.clear; t_op_seae_assistant.sql.add(str); t_op_seae_assistant.open; end; 2: begin if Edit5.text<>''then str:=' where 业务编号 like '+''''+'%'+Edit5.text+'%'+''''; if Edit7.text<>''then begin if str=''then str:=' where 委托编号 like '+''''+'%'+Edit7.text+'%'+'''' else str:=str+' and 委托编号 like '+''''+'%'+Edit7.text+'%'+''''; end; if Edit6.text<>''then begin if str=''then str:=' where 主提单号 like '+''''+'%'+Edit6.text+'%'+'''' else str:=str+' and 主提单号 like '+''''+'%'+Edit6.text+'%'+''''; end; if Edit8.text<>''then begin if str=''then str:=' where 分提单号 like '+''''+'%'+Edit8.text+'%'+'''' else str:=str+' and 分提单号 like '+''''+'%'+Edit8.text+'%'+''''; end; if RxDBLookupCombo1.DisplayValue<>''then begin if str=''then str:=' where 委托单位='+''''+RxDBLookupCombo1.DisplayValues[1]+'''' else str:=str+' and 委托单位='+''''+RxDBLookupCombo1.DisplayValues[1]+''''; end; if wwDBDateTimePicker2.text<>''then begin if str=''then str:=' where 进口日期='+''''+wwDBDateTimePicker2.text+'''' else str:=str+' and 进口日期='+''''+wwDBDateTimePicker2.text+''''; end; if str<>'' then str:=str+' and '+open_data('0002','录入人','操作员','客服员','no','no') else str:=str+' where '+open_data('0002','录入人','操作员','客服员','no','no'); str:='select * from t_op_seai '+str+default_sort(54,'t_op_seai','','desc'); t_op_seae_assistant.close; t_op_seae_assistant.sql.clear; t_op_seae_assistant.sql.add(str); t_op_seae_assistant.open; end; 3: begin if Edit9.text<>''then str:=' where 业务编号 like '+''''+'%'+Edit9.text+'%'+''''; if Edit11.text<>''then begin if str=''then str:=' where 委托编号 like '+''''+'%'+Edit11.text+'%'+'''' else str:=str+' and 委托编号 like '+''''+'%'+Edit11.text+'%'+''''; end; if Edit10.text<>''then begin if str=''then str:=' where 主运单号 like '+''''+'%'+Edit10.text+'%'+'''' else str:=str+' and 主运单号 like '+''''+'%'+Edit10.text+'%'+''''; end; if Edit12.text<>''then begin if str=''then str:=' where 分运单号 like '+''''+'%'+Edit12.text+'%'+'''' else str:=str+' and 分运单号 like '+''''+'%'+Edit12.text+'%'+''''; end; if RxDBLookupCombo3.DisplayValue<>''then begin if str=''then str:=' where 委托单位='+''''+RxDBLookupCombo3.DisplayValues[1]+'''' else str:=str+' and 委托单位='+''''+RxDBLookupCombo3.DisplayValues[1]+''''; end; if wwDBDateTimePicker3.text<>''then begin if str=''then str:=' where 一程开航日期='+''''+wwDBDateTimePicker3.text+'''' else str:=str+' and 一程开航日期='+''''+wwDBDateTimePicker3.text+''''; end; if str<>'' then str:=str+' and '+open_data('0003','录入人','操作员','客服员','no','no') else str:=str+' where '+open_data('0003','录入人','操作员','客服员','no','no'); str:='select * from t_op_aire '+str+default_sort(55,'t_op_aire','','desc'); t_op_seae_assistant.close; t_op_seae_assistant.sql.clear; t_op_seae_assistant.sql.add(str); t_op_seae_assistant.open; end; 4: begin if Edit13.text<>''then str:=' where 业务编号 like '+''''+'%'+Edit13.text+'%'+''''; if Edit15.text<>''then begin if str=''then str:=' where 委托编号 like '+''''+'%'+Edit15.text+'%'+'''' else str:=str+' and 委托编号 like '+''''+'%'+Edit15.text+'%'+''''; end; if Edit14.text<>''then begin if str=''then str:=' where 主提单号 like '+''''+'%'+Edit14.text+'%'+'''' else str:=str+' and 主提单号 like '+''''+'%'+Edit14.text+'%'+''''; end; if Edit16.text<>''then begin if str=''then str:=' where 分运单号 like '+''''+'%'+Edit16.text+'%'+'''' else str:=str+' and 分运单号 like '+''''+'%'+Edit16.text+'%'+''''; end; if RxDBLookupCombo4.DisplayValue<>''then begin if str=''then str:=' where 委托单位='+''''+RxDBLookupCombo4.DisplayValues[1]+'''' else str:=str+' and 委托单位='+''''+RxDBLookupCombo4.DisplayValues[1]+''''; end; if wwDBDateTimePicker4.text<>''then begin if str=''then str:=' where 进口日期='+''''+wwDBDateTimePicker4.text+'''' else str:=str+' and 进口日期='+''''+wwDBDateTimePicker4.text+''''; end; if str<>'' then str:=str+' and '+open_data('0004','录入人','操作员','客服员','no','no') else str:=str+' where '+open_data('0004','录入人','操作员','客服员','no','no'); str:='select * from t_op_airi '+str+default_sort(56,'t_op_airi','','desc'); t_op_seae_assistant.close; t_op_seae_assistant.sql.clear; t_op_seae_assistant.sql.add(str); t_op_seae_assistant.open; end; 6: begin if Edit17.text<>''then str:=' where 业务编号 like '+''''+'%'+Edit17.text+'%'+''''; if Edit19.text<>''then begin if str=''then str:=' where 委托编号 like '+''''+'%'+Edit19.text+'%'+'''' else str:=str+' and 委托编号 like '+''''+'%'+Edit19.text+'%'+''''; end; if Edit18.text<>''then begin if str=''then str:=' where 主运单号 like '+''''+'%'+Edit18.text+'%'+'''' else str:=str+' and 主运单号 like '+''''+'%'+Edit18.text+'%'+''''; end; if Edit20.text<>''then begin if str=''then str:=' where 箱号 like '+''''+'%'+Edit20.text+'%'+'''' else str:=str+' and 箱号 like '+''''+'%'+Edit20.text+'%'+''''; end; if RxDBLookupCombo5.DisplayValue<>''then begin if str=''then str:=' where 委托单位='+''''+RxDBLookupCombo5.DisplayValues[1]+'''' else str:=str+' and 委托单位='+''''+RxDBLookupCombo5.DisplayValues[1]+''''; end; if wwDBDateTimePicker5.text<>''then begin if str=''then str:=' where 发车日期='+''''+wwDBDateTimePicker5.text+'''' else str:=str+' and 发车日期='+''''+wwDBDateTimePicker5.text+''''; end; str:='select * from t_op_railway '+str+' order by 业务编号'; t_op_seae_assistant.close; t_op_seae_assistant.sql.clear; t_op_seae_assistant.sql.add(str); t_op_seae_assistant.open; end; end; end; procedure Tfrm_op_history.bsSkinButton3Click(Sender: TObject); var afield : variant; i,AS_ID,old_AS_ID: Integer; aAdoQuery:TAdoQuery; begin if t_op_seae_assistant.IsEmpty then begin showmessage('没有复制母体，不能复制新建！'); exit; end; case strtoint(op_type.text) of 1: begin try old_AS_ID:=t_op_seae_assistant.FieldByName('AS_ID').AsInteger; afield := vararraycreate([0,t_op_seae_assistant.fieldcount-1],varvariant); for i := 0 to (t_op_seae_assistant.fieldcount-1) do begin afield[i] :=t_op_seae_assistant.fields[i].value ; end; t_do_fee.DataSet.append; for i := 0 to (t_op_seae_assistant.fieldcount-1) do begin if (t_do_fee.DataSet.fields[i].FieldName='发货人代码') or (t_do_fee.DataSet.fields[i].FieldName='收货人代码') or (t_do_fee.DataSet.fields[i].FieldName='通知人代码') or (t_do_fee.DataSet.fields[i].FieldName='代理内容') then t_do_fee.DataSet.fields[i].value := afield[i] ; end; t_do_fee.DataSet.FieldByName('编号').AsString:=bsno; t_do_fee.DataSet.FieldByName('主编号').AsString:=bsno; t_do_fee.DataSet.FieldByName('业务编号').AsString:=bsCardNo; aAdoQuery:=CreateAdoQuery; with aAdoQuery do try Close;sql.Clear; sql.Add('select * from t_op_seae'); sql.Add('where 编号=:编号'); Parameters.ParamByName('编号').Value:=bsno; Open;First; for i:=0 to (fieldcount-1) do begin try if (fields[i].FieldName<>'发货人') and(fields[i].FieldName<>'发货人代码') and(fields[i].FieldName<>'收货人') and(fields[i].FieldName<>'收货人代码') and(fields[i].FieldName<>'通知人') and(fields[i].FieldName<>'通知人代码') then if t_do_fee.DataSet.FindField(fields[i].FieldName)<>nil then t_do_fee.DataSet[fields[i].FieldName]:= fields[i].value; except ; end; end; t_do_fee.DataSet['提交确认']:='未提交确认' ; t_do_fee.DataSet['提单类型']:='直单'; //t_do_fee.DataSet.Post; Close;sql.Clear; sql.Add('select * from t_op_ctn'); sql.Add('where 编号=:编号'); Parameters.ParamByName('编号').Value:=bsno; Open;First; while not eof do begin t_op_ctn_fendan1.DataSet.Insert; t_op_ctn_fendan1.DataSet.FieldByName('as_id').Value:=t_do_fee.DataSet.FieldByName('as_id').Value; t_op_ctn_fendan1.DataSet.FieldByName('编号').AsString:=bsno; t_op_ctn_fendan1.DataSet.FieldByName('代码').Value:=FieldByName('代码').Value; t_op_ctn_fendan1.DataSet.FieldByName('尺寸').Value:=FieldByName('尺寸').Value; t_op_ctn_fendan1.DataSet.FieldByName('箱型').Value:=FieldByName('箱型').Value; t_op_ctn_fendan1.DataSet.FieldByName('数量').Value:=FieldByName('数量').Value; t_op_ctn_fendan1.DataSet.FieldByName('TEU').Value:=FieldByName('TEU').Value; t_op_ctn_fendan1.DataSet.FieldByName('表现形式').Value:=FieldByName('表现形式').Value; t_op_ctn_fendan1.DataSet.FieldByName('箱号').Value:=FieldByName('箱号').Value; t_op_ctn_fendan1.DataSet.FieldByName('封号').Value:=FieldByName('封号').Value; t_op_ctn_fendan1.DataSet.FieldByName('件数').Value:=FieldByName('件数').Value; t_op_ctn_fendan1.DataSet.FieldByName('包装').Value:=FieldByName('包装').Value; t_op_ctn_fendan1.DataSet.FieldByName('重量').Value:=FieldByName('重量').Value; t_op_ctn_fendan1.DataSet.FieldByName('尺码').Value:=FieldByName('尺码').Value; t_op_ctn_fendan1.DataSet.post; Next; end; finally Free; end; finally close; end; end; 3:begin afield := vararraycreate([0,t_op_seae_assistant.fieldcount-1],varvariant); for i := 0 to (t_op_seae_assistant.fieldcount-1) do begin afield[i] :=t_op_seae_assistant.fields[i].value ; end; t_do_fee.DataSet.append; for i := 0 to (t_op_seae_assistant.fieldcount-1) do begin if (t_do_fee.DataSet.fields[i].FieldName='发货人代码') or (t_do_fee.DataSet.fields[i].FieldName='收货人代码') or (t_do_fee.DataSet.fields[i].FieldName='通知人代码') or (t_do_fee.DataSet.fields[i].FieldName='代理内容') or (t_do_fee.DataSet.fields[i].FieldName='唛头') then t_do_fee.DataSet.fields[i].value := afield[i] ; end; t_do_fee.DataSet.FieldByName('编号').AsString:=''; t_do_fee.DataSet.FieldByName('主编号').AsString:=bsno; t_do_fee.DataSet.FieldByName('装运方式').AsString:='空运分票'; aAdoQuery:=CreateAdoQuery; with aAdoQuery do try Close;sql.Clear; sql.Add('select * from t_op_aire'); sql.Add('where 编号=:编号'); Parameters.ParamByName('编号').Value:=bsno; Open;First; for i:=0 to (fieldcount-1) do begin try if (fields[i].FieldName<>'发货人') and(fields[i].FieldName<>'发货人代码') and(fields[i].FieldName<>'收货人') and(fields[i].FieldName<>'收货人代码') and(fields[i].FieldName<>'通知人') and(fields[i].FieldName<>'通知人代码') and(fields[i].FieldName<>'编号') and(fields[i].FieldName<>'业务编号') and(fields[i].FieldName<>'委托编号') and(fields[i].FieldName<>'装运方式') and(fields[i].FieldName<>'唛头') then if t_do_fee.DataSet.FindField(fields[i].FieldName)<>nil then t_do_fee.DataSet[fields[i].FieldName]:= fields[i].value; //t_do_fee.DataSet.Post; except on e: Exception do begin showmessage(e.Message); end; end; end; finally Free; end; close; end; end; end; procedure Tfrm_op_history.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key=#13 then begin key:=#0; bsSkinButton2Click(Sender); end; end; procedure Tfrm_op_history.Edit4KeyPress(Sender: TObject; var Key: Char); begin if key=#13 then begin key:=#0; bsSkinButton2Click(Sender); end; end; procedure Tfrm_op_history.RxDBLookupCombo2KeyPress(Sender: TObject; var Key: Char); begin if key=#13 then begin key:=#0; bsSkinButton2Click(Sender); end; end; procedure Tfrm_op_history.Edit2KeyPress(Sender: TObject; var Key: Char); begin if key=#13 then begin key:=#0; bsSkinButton2Click(Sender); end; end; procedure Tfrm_op_history.Edit3KeyPress(Sender: TObject; var Key: Char); begin if key=#13 then begin key:=#0; bsSkinButton2Click(Sender); end; end; procedure Tfrm_op_history.wwDBDateTimePicker1KeyPress(Sender: TObject; var Key: Char); begin if key=#13 then begin key:=#0; bsSkinButton2Click(Sender); end; end; end.