unit u_rp_seae_query; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, dxExEdtr, DB, ADODB, BusinessSkinForm, wwdblook, dxDBCtrl, dxDBGrid, dxTL, dxDBTLCl, dxGrClms, dxCntner, RxLookup, wwdbdatetimepicker, StdCtrls, Mask, wwdbedit, Wwdotdot, Wwdbcomb, bsSkinCtrls, ComCtrls, bsSkinTabs,inifiles; type Tfrm_rp_seae_query = class(TForm) bsSkinPageControl1: TbsSkinPageControl; bsSkinTabSheet1: TbsSkinTabSheet; bsSkinGroupBox1: TbsSkinGroupBox; bsSkinPanel1: TbsSkinPanel; bsSkinButton2: TbsSkinButton; bsSkinButton4: TbsSkinButton; bsSkinPanel2: TbsSkinPanel; Label33: TLabel; Label34: TLabel; Label35: TLabel; Label36: TLabel; RxDBLookupCombo14: TRxDBLookupCombo; wwDBComboBox39: TwwDBComboBox; wwDBComboBox40: TwwDBComboBox; query_bit: TwwDBComboBox; query_str_int: TEdit; query_date: TwwDBDateTimePicker; RxDBLookupList1: TRxDBLookupList; bsSkinGroupBox2: TbsSkinGroupBox; bsSkinPanel3: TbsSkinPanel; bsSkinButton3: TbsSkinButton; bsSkinButton7: TbsSkinButton; bsSkinButton6: TbsSkinButton; bsSkinButton9: TbsSkinButton; dxDBGrid1: TdxDBGrid; dxDBGrid1Column1: TdxDBGridPickColumn; dxDBGrid1Column2: TdxDBGridMaskColumn; dxDBGrid1Column3: TdxDBGridPickColumn; dxDBGrid1Column4: TdxDBGridMaskColumn; dxDBGrid2: TdxDBGrid; dxDBGrid2SQ_ID: TdxDBGridMaskColumn; bsSkinTabSheet2: TbsSkinTabSheet; bsSkinButton10: TbsSkinButton; bsSkinButton5: TbsSkinButton; bsSkinButton1: TbsSkinButton; bsBusinessSkinForm1: TbsBusinessSkinForm; t_sys_queryfields: TADOQuery; t_sys_queryfields1: TDataSource; t_sys_query_detail1: TDataSource; t_sys_query: TADOQuery; t_sys_query1: TDataSource; t_sys_query_detail: TADOQuery; bsSkinGroupBox3: TbsSkinGroupBox; Label6: TLabel; wwDBComboBox15: TwwDBComboBox; Edit1: TEdit; Label3: TLabel; wwDBComboBox4: TwwDBComboBox; Edit4: TEdit; Edit3: TEdit; wwDBComboBox5: TwwDBComboBox; Label2: TLabel; Edit2: TEdit; wwDBComboBox16: TwwDBComboBox; Label1: TLabel; Label27: TLabel; wwDBComboBox33: TwwDBComboBox; Edit5: TEdit; Label29: TLabel; wwDBComboBox34: TwwDBComboBox; Edit6: TEdit; wwDBComboBox2: TwwDBComboBox; wwDBComboBox7: TwwDBComboBox; Label4: TLabel; wwDBComboBox17: TwwDBComboBox; Label7: TLabel; wwDBComboBox1: TwwDBComboBox; Label10: TLabel; wwDBComboBox18: TwwDBComboBox; wwDBDateTimePicker1: TwwDBDateTimePicker; Label5: TLabel; wwDBComboBox6: TwwDBComboBox; wwDBDateTimePicker2: TwwDBDateTimePicker; wwDBDateTimePicker4: TwwDBDateTimePicker; wwDBComboBox11: TwwDBComboBox; Label11: TLabel; wwDBDateTimePicker3: TwwDBDateTimePicker; wwDBComboBox19: TwwDBComboBox; Label8: TLabel; Label28: TLabel; wwDBComboBox20: TwwDBComboBox; wwDBComboBox3: TwwDBComboBox; Label21: TLabel; wwDBComboBox10: TwwDBComboBox; RxDBLookupCombo20: TRxDBLookupCombo; RxDBLookupCombo1: TRxDBLookupCombo; wwDBComboBox9: TwwDBComboBox; Label12: TLabel; RxDBLookupCombo2: TRxDBLookupCombo; wwDBComboBox21: TwwDBComboBox; Label9: TLabel; Label19: TLabel; wwDBComboBox22: TwwDBComboBox; RxDBLookupCombo9: TRxDBLookupCombo; wwDBComboBox8: TwwDBComboBox; Label18: TLabel; RxDBLookupCombo8: TRxDBLookupCombo; RxDBLookupCombo7: TRxDBLookupCombo; wwDBComboBox12: TwwDBComboBox; Label17: TLabel; Label26: TLabel; wwDBComboBox32: TwwDBComboBox; RxDBLookupCombo13: TRxDBLookupCombo; Edit7: TEdit; wwDBComboBox35: TwwDBComboBox; Label30: TLabel; Label32: TLabel; wwDBComboBox38: TwwDBComboBox; Edit9: TEdit; RxDBLookupCombo10: TRxDBLookupCombo; wwDBComboBox28: TwwDBComboBox; Label22: TLabel; Label23: TLabel; wwDBComboBox29: TwwDBComboBox; RxDBLookupCombo12: TRxDBLookupCombo; RxDBLookupCombo3: TRxDBLookupCombo; wwDBComboBox14: TwwDBComboBox; Label14: TLabel; RxDBLookupCombo6: TRxDBLookupCombo; wwDBComboBox25: TwwDBComboBox; Label16: TLabel; Label15: TLabel; wwDBComboBox24: TwwDBComboBox; RxDBLookupCombo4: TRxDBLookupCombo; wwDBLookupCombo52: TwwDBLookupCombo; wwDBComboBox27: TwwDBComboBox; Label124: TLabel; Label20: TLabel; wwDBComboBox26: TwwDBComboBox; wwDBLookupCombo3: TwwDBLookupCombo; Edit8: TEdit; wwDBComboBox37: TwwDBComboBox; Label31: TLabel; wwDBComboBox36: TwwDBComboBox; wwDBLookupCombo49: TwwDBLookupCombo; Label125: TLabel; RxDBLookupCombo11: TRxDBLookupCombo; wwDBComboBox23: TwwDBComboBox; Label24: TLabel; bsSkinGroupBox4: TbsSkinGroupBox; Label13: TLabel; wwDBComboBox13: TwwDBComboBox; RxDBLookupCombo5: TRxDBLookupCombo; Label25: TLabel; wwDBComboBox30: TwwDBComboBox; wwDBComboBox31: TwwDBComboBox; RxDBLookupCombo15: TRxDBLookupCombo; Label37: TLabel; wwDBComboBox41: TwwDBComboBox; Label38: TLabel; wwDBComboBox42: TwwDBComboBox; RxDBLookupCombo16: TRxDBLookupCombo; Label39: TLabel; wwDBComboBox43: TwwDBComboBox; Edit10: TEdit; Label40: TLabel; wwDBComboBox44: TwwDBComboBox; Edit11: TEdit; Label41: TLabel; wwDBComboBox45: TwwDBComboBox; wwDBComboBox46: TwwDBComboBox; Label42: TLabel; wwDBComboBox47: TwwDBComboBox; RxDBLookupCombo17: TRxDBLookupCombo; Label43: TLabel; wwDBComboBox48: TwwDBComboBox; wwDBComboBox49: TwwDBComboBox; lbl1: TLabel; wwDBComboBox50: TwwDBComboBox; RxDBLookupCombo18: TRxDBLookupCombo; Label44: TLabel; wwDBComboBox51: TwwDBComboBox; wwDBDateTimePicker5: TwwDBDateTimePicker; Label45: TLabel; wwDBComboBox52: TwwDBComboBox; wwDBDateTimePicker6: TwwDBDateTimePicker; Label46: TLabel; wwDBComboBox53: TwwDBComboBox; RxDBLookupCombo19: TRxDBLookupCombo; bsSkinCheckRadioBox1: TbsSkinCheckRadioBox; procedure bsSkinButton10Click(Sender: TObject); procedure bsSkinButton5Click(Sender: TObject); procedure FormShow(Sender: TObject); procedure bsSkinButton1Click(Sender: TObject); procedure RxDBLookupCombo14Change(Sender: TObject); procedure bsSkinButton2Click(Sender: TObject); procedure bsSkinButton4Click(Sender: TObject); procedure RxDBLookupList1DblClick(Sender: TObject); procedure wwDBComboBox15KeyPress(Sender: TObject; var Key: Char); procedure t_sys_queryAfterInsert(DataSet: TDataSet); procedure bsSkinButton6Click(Sender: TObject); procedure bsSkinButton9Click(Sender: TObject); procedure t_sys_query_detailBeforePost(DataSet: TDataSet); procedure t_sys_query_detailAfterScroll(DataSet: TDataSet); procedure do_1(str_bill:widestring); procedure do_2(str_bill:widestring); private procedure loadFindIni ; procedure writeFindIni ; { Private declarations } public { Public declarations } end; var frm_rp_seae_query: Tfrm_rp_seae_query; rp_seae_query_num,rp_seae_query_type:integer; rp_seae_query_str,rp_seae_query_limited:string; implementation uses u_main, u_data_share, my_sys_function, u_rp_no_seae_accept, u_rp_in_seae; {$R *.dfm} procedure Tfrm_rp_seae_query.do_2(str_bill:widestring); begin frm_rp_in_seae.p_bill.close; frm_rp_in_seae.p_bill.Parameters.ParamByName('SQLStr').value:= 'SELECT t_ch_fee.编号, t_ch_fee.客户名称,SUM(case t_ch_fee.币别' +' when '+''''+'USD'+''''+' then t_ch_fee.金额 else 0 end) as 应开USD,' +'SUM(case t_ch_fee.币别 when '+''''+'USD'+''''+' then t_ch_fee.开票金额' +' else 0 end) as 已开USD,SUM(case t_ch_fee.币别' +' when '+''''+'USD'+''''+' then t_ch_fee.金额-t_ch_fee.开票金额' +' else 0 end) as 未开USD,SUM(case t_ch_fee.币别' +' when '+''''+'USD'+''''+' then 0 else t_ch_fee.金额*t_ch_fee.汇率' +' end) as 应开RMB,SUM(case t_ch_fee.币别' +' when '+''''+'USD'+''''+' then 0 else t_ch_fee.开票金额*t_ch_fee.汇率' +' end) as 已开RMB,SUM(case t_ch_fee.币别 when '+''''+'USD'+''''+' then 0' +' else (t_ch_fee.金额-t_ch_fee.开票金额)*t_ch_fee.汇率' +' end) as 未开RMB,sum(t_ch_fee.金额*t_ch_fee.汇率) as 应开合计,' +' sum(t_ch_fee.开票金额*t_ch_fee.汇率) as 已开合计,' +' sum((t_ch_fee.金额-t_ch_fee.开票金额)*t_ch_fee.汇率) as 未开合计,' +'t_op_seae.业务编号, t_op_seae.周次, t_op_seae.会计期间, t_op_seae.主提单号,' +'t_op_seae.分提单号, t_op_seae.委托编号, t_op_seae.装运方式,' +'t_op_seae.委托单位, t_op_seae.代理, t_op_seae.场站,' +'t_op_seae.航次, t_op_seae.船名, t_op_seae.开船日期,' +'t_op_seae.装货港, t_op_seae.卸货港, t_op_seae.货物名称,' +'t_op_seae.件数, t_op_seae.包装, t_op_seae.重量, t_op_seae.尺码,' +'t_op_seae.箱型1, t_op_seae.箱型2, t_op_seae.箱型3,' +'t_op_seae.箱型4, t_op_seae.箱型5, t_op_seae.箱型6,' +'t_op_seae.箱型7, t_op_seae.箱型8, t_op_seae.箱型9,' +'t_op_seae.箱型10, t_op_seae.其他箱型,' +'t_op_seae.箱TEU, t_op_seae.集装箱, t_op_seae.操作员,' +'t_op_seae.揽货人, t_op_seae.客服员, t_op_seae.航线,' +'t_op_seae.船公司, t_op_seae.货代公司, t_op_seae.报关行,' +'t_op_seae.承运车队' +' FROM t_ch_fee inner join t_op_seae on t_op_seae.编号=t_ch_fee.编号 ' +str_bill+' and t_ch_fee.类型='+''''+'收'+'''' +' GROUP BY t_ch_fee.编号, t_ch_fee.客户名称,' +'t_op_seae.业务编号, t_op_seae.周次, t_op_seae.会计期间, t_op_seae.主提单号,' +'t_op_seae.分提单号, t_op_seae.委托编号, t_op_seae.装运方式,' +'t_op_seae.委托单位, t_op_seae.代理, t_op_seae.场站,' +'t_op_seae.航次, t_op_seae.船名, t_op_seae.开船日期,' +'t_op_seae.装货港, t_op_seae.卸货港, t_op_seae.货物名称,' +'t_op_seae.件数, t_op_seae.包装, t_op_seae.重量, t_op_seae.尺码,' +'t_op_seae.箱型1, t_op_seae.箱型2, t_op_seae.箱型3,' +'t_op_seae.箱型4, t_op_seae.箱型5, t_op_seae.箱型6,' +'t_op_seae.箱型7, t_op_seae.箱型8, t_op_seae.箱型9,' +'t_op_seae.箱型10,t_op_seae.其他箱型,' +'t_op_seae.箱TEU, t_op_seae.集装箱, t_op_seae.操作员,' +'t_op_seae.揽货人, t_op_seae.客服员, t_op_seae.航线,' +'t_op_seae.船公司, t_op_seae.货代公司, t_op_seae.报关行,' +'t_op_seae.承运车队 ' +default_sort_two(53,'t_op_seae','t_ch_fee.客户名称','',''); frm_rp_in_seae.p_bill.open; frm_rp_in_seae.p_client.close; frm_rp_in_seae.p_client.Parameters.ParamByName('SQLStr').value:= 'SELECT t_ch_fee.客户名称,SUM(case t_ch_fee.币别' +' when '+''''+'USD'+''''+' then t_ch_fee.金额 else 0 end) as 应开USD,' +'SUM(case t_ch_fee.币别 when '+''''+'USD'+''''+' then t_ch_fee.开票金额' +' else 0 end) as 已开USD,SUM(case t_ch_fee.币别' +' when '+''''+'USD'+''''+' then t_ch_fee.金额-t_ch_fee.开票金额' +' else 0 end) as 未开USD,SUM(case t_ch_fee.币别' +' when '+''''+'USD'+''''+' then 0 else t_ch_fee.金额*t_ch_fee.汇率' +' end) as 应开RMB,SUM(case t_ch_fee.币别' +' when '+''''+'USD'+''''+' then 0 else t_ch_fee.开票金额*t_ch_fee.汇率' +' end) as 已开RMB,SUM(case t_ch_fee.币别 when '+''''+'USD'+''''+' then 0' +' else (t_ch_fee.金额-t_ch_fee.开票金额)*t_ch_fee.汇率' +' end) as 未开RMB,sum(t_ch_fee.金额*t_ch_fee.汇率) as 应开合计,' +' sum(t_ch_fee.开票金额*t_ch_fee.汇率) as 已开合计,' +' sum((t_ch_fee.金额-t_ch_fee.开票金额)*t_ch_fee.汇率) as 未开合计' +' FROM t_ch_fee inner join t_op_seae on t_op_seae.编号=t_ch_fee.编号 ' +str_bill+' and t_ch_fee.类型='+''''+'收'+'''' +' GROUP BY t_ch_fee.客户名称' +' order by t_ch_fee.客户名称'; frm_rp_in_seae.p_client.open; frm_rp_in_seae.p_sales.close; frm_rp_in_seae.p_sales.Parameters.ParamByName('SQLStr').value:= 'SELECT t_op_seae.揽货人,SUM(case t_ch_fee.币别' +' when '+''''+'USD'+''''+' then t_ch_fee.金额 else 0 end) as 应开USD,' +'SUM(case t_ch_fee.币别 when '+''''+'USD'+''''+' then t_ch_fee.开票金额' +' else 0 end) as 已开USD,SUM(case t_ch_fee.币别' +' when '+''''+'USD'+''''+' then t_ch_fee.金额-t_ch_fee.开票金额' +' else 0 end) as 未开USD,SUM(case t_ch_fee.币别' +' when '+''''+'USD'+''''+' then 0 else t_ch_fee.金额*t_ch_fee.汇率' +' end) as 应开RMB,SUM(case t_ch_fee.币别' +' when '+''''+'USD'+''''+' then 0 else t_ch_fee.开票金额*t_ch_fee.汇率' +' end) as 已开RMB,SUM(case t_ch_fee.币别 when '+''''+'USD'+''''+' then 0' +' else (t_ch_fee.金额-t_ch_fee.开票金额)*t_ch_fee.汇率' +' end) as 未开RMB,sum(t_ch_fee.金额*t_ch_fee.汇率) as 应开合计,' +' sum(t_ch_fee.开票金额*t_ch_fee.汇率) as 已开合计,' +' sum((t_ch_fee.金额-t_ch_fee.开票金额)*t_ch_fee.汇率) as 未开合计' +' FROM t_ch_fee inner join t_op_seae on t_op_seae.编号=t_ch_fee.编号 ' +str_bill+' and t_ch_fee.类型='+''''+'收'+'''' +' GROUP BY t_op_seae.揽货人' +' order by t_op_seae.揽货人'; frm_rp_in_seae.p_sales.open; end; procedure Tfrm_rp_seae_query.do_1(str_bill:widestring); var sl:TStringList; begin sl:=TStringList.Create; frm_rp_no_seae.p_accept_bill.close; frm_rp_no_seae.p_accept_bill.Parameters.ParamByName('SQLStr').value:= 'SELECT t_ch_fee.编号, t_ch_fee.客户名称,SUM(case t_ch_fee.币别' +' when '+''''+'USD'+''''+' then t_ch_fee.金额 else 0 end) as 应收USD,' +'SUM(case t_ch_fee.币别 when '+''''+'USD'+''''+' then t_ch_fee.结算金额' +' else 0 end) as 已收USD,SUM(case t_ch_fee.币别' +' when '+''''+'USD'+''''+' then t_ch_fee.金额-t_ch_fee.结算金额' +' else 0 end) as 未收USD,SUM(case t_ch_fee.币别' +' when '+''''+'USD'+''''+' then 0 else t_ch_fee.金额*t_ch_fee.汇率' +' end) as 应收RMB,SUM(case t_ch_fee.币别' +' when '+''''+'USD'+''''+' then 0 else t_ch_fee.结算金额*t_ch_fee.汇率' +' end) as 已收RMB,SUM(case t_ch_fee.币别 when '+''''+'USD'+''''+' then 0' +' else (t_ch_fee.金额-t_ch_fee.结算金额)*t_ch_fee.汇率' +' end) as 未收RMB,sum(t_ch_fee.金额*t_ch_fee.汇率) as 应收合计,' +' sum(t_ch_fee.结算金额*t_ch_fee.汇率) as 已收合计,' +' sum((t_ch_fee.金额-t_ch_fee.结算金额)*t_ch_fee.汇率) as 未收合计,' +'t_op_seae.业务编号, t_op_seae.周次, t_op_seae.会计期间, t_op_seae.主提单号,' +'t_op_seae.分提单号, t_op_seae.委托编号, t_op_seae.装运方式,' +'t_op_seae.委托单位, t_op_seae.代理, t_op_seae.场站,' +'t_op_seae.航次, t_op_seae.船名, t_op_seae.开船日期,' +'t_op_seae.装货港, t_op_seae.卸货港, t_op_seae.货物名称,' +'t_op_seae.件数, t_op_seae.包装, t_op_seae.重量, t_op_seae.尺码,' +'t_op_seae.箱型1, t_op_seae.箱型2, t_op_seae.箱型3,' +'t_op_seae.箱型4, t_op_seae.箱型5, t_op_seae.箱型6,' +'t_op_seae.箱型7, t_op_seae.箱型8, t_op_seae.箱型9,' +'t_op_seae.箱型10, t_op_seae.其他箱型,' +'t_op_seae.箱TEU, t_op_seae.集装箱, t_op_seae.操作员,' +'t_op_seae.揽货人, t_op_seae.客服员, t_op_seae.航线,' +'t_op_seae.船公司, t_op_seae.货代公司, t_op_seae.报关行,t_op_seae.报关单号,t_op_seae.报检单号,' +'(case when round((case when t_op_seae.重量/1000>t_op_seae.尺码 then t_op_seae.重量/1000 ' +'else t_op_seae.尺码 end),4)>1 then ' +'round((case when t_op_seae.重量/1000>t_op_seae.尺码 then t_op_seae.重量/1000 else ' +'t_op_seae.尺码 end),4) else ' +'1 end) as 计费吨,DATEDIFF([day],t_op_seae.会计期间, GETDATE()) AS 会计天数,' +'t_op_seae.承运车队, DATEDIFF([day],t_op_seae.开船日期, GETDATE()) AS 实际天数,' +'isnull(t_crm_client.结费期限,0) as 结费期限,' +'(DATEDIFF([day],t_op_seae.开船日期, GETDATE())-isnull(t_crm_client.结费期限,0)) as 超期天数' +' FROM t_ch_fee inner join t_op_seae on t_op_seae.编号=t_ch_fee.编号 left join t_crm_client ' +' on t_ch_fee.客户名称=t_crm_client.客户简称 ' +str_bill+' and t_ch_fee.类型='+''''+'收'+'''' +' GROUP BY t_ch_fee.编号, t_ch_fee.客户名称,' +'t_op_seae.业务编号, t_op_seae.周次, t_op_seae.会计期间, t_op_seae.主提单号,' +'t_op_seae.分提单号, t_op_seae.委托编号, t_op_seae.装运方式,' +'t_op_seae.委托单位, t_op_seae.代理, t_op_seae.场站,' +'t_op_seae.航次, t_op_seae.船名, t_op_seae.开船日期,' +'t_op_seae.装货港, t_op_seae.卸货港, t_op_seae.货物名称,' +'t_op_seae.件数, t_op_seae.包装, t_op_seae.重量, t_op_seae.尺码,' +'t_op_seae.箱型1, t_op_seae.箱型2, t_op_seae.箱型3,' +'t_op_seae.箱型4, t_op_seae.箱型5, t_op_seae.箱型6,' +'t_op_seae.箱型7, t_op_seae.箱型8, t_op_seae.箱型9,' +'t_op_seae.箱型10,t_op_seae.其他箱型,' +'t_op_seae.箱TEU, t_op_seae.集装箱, t_op_seae.操作员,' +'t_op_seae.揽货人, t_op_seae.客服员, t_op_seae.航线,' +'t_op_seae.船公司, t_op_seae.货代公司, t_op_seae.报关行,t_op_seae.报关单号,t_op_seae.报检单号,' +'(case when round((case when t_op_seae.重量/1000>t_op_seae.尺码 then t_op_seae.重量/1000 ' +'else t_op_seae.尺码 end),4)>1 then ' +'round((case when t_op_seae.重量/1000>t_op_seae.尺码 then t_op_seae.重量/1000 else ' +'t_op_seae.尺码 end),4) else ' +'1 end),DATEDIFF([day],t_op_seae.会计期间, GETDATE()),' +'t_op_seae.承运车队, DATEDIFF([day],t_op_seae.开船日期, GETDATE()),' +'isnull(t_crm_client.结费期限,0),' +'(DATEDIFF([day],t_op_seae.开船日期, GETDATE())-isnull(t_crm_client.结费期限,0))' +default_sort_two(53,'t_op_seae','t_ch_fee.客户名称','',''); frm_rp_no_seae.p_accept_bill.Open; sl.Add(frm_rp_no_seae.p_accept_bill.Parameters.ParamByName('SQLStr').value); // sl.SaveToFile('d:\hxt.txt'); frm_rp_no_seae.p_accept_fee.close; frm_rp_no_seae.p_accept_fee.Parameters.ParamByName('SQLStr').value:= 'SELECT t_ch_fee.ch_id,t_ch_fee.编号, t_ch_fee.客户名称, t_ch_fee.费用名称,t_ch_fee.币别,t_ch_fee.金额 as 应收金额,' +'t_ch_fee.结算金额 as 已收金额,(t_ch_fee.金额-t_ch_fee.结算金额) as 未收金额,' +'t_ch_fee.标准 as 标准,t_ch_fee.单价 as 单价,t_ch_fee.数量 as 数量,t_ch_fee.备注 as 费用备注,' +'t_op_seae.业务编号, t_op_seae.周次, t_op_seae.会计期间, t_op_seae.主提单号,' +'t_op_seae.分提单号, t_op_seae.委托编号, t_op_seae.装运方式,' +'t_op_seae.委托单位, t_op_seae.代理, t_op_seae.场站,' +'t_op_seae.航次, t_op_seae.船名, t_op_seae.开船日期,' +'t_op_seae.装货港, t_op_seae.卸货港, t_op_seae.货物名称,' +'t_op_seae.件数, t_op_seae.包装, t_op_seae.重量, t_op_seae.尺码,' +'t_op_seae.箱型1, t_op_seae.箱型2, t_op_seae.箱型3,' +'t_op_seae.箱型4, t_op_seae.箱型5, t_op_seae.箱型6,' +'t_op_seae.箱型7, t_op_seae.箱型8, t_op_seae.箱型9,' +'t_op_seae.箱型10,t_op_seae.其他箱型,' +'t_op_seae.箱TEU, t_op_seae.集装箱, t_op_seae.操作员,' +'t_op_seae.揽货人, t_op_seae.客服员, t_op_seae.航线,' +'t_op_seae.船公司, t_op_seae.货代公司, t_op_seae.报关行,t_op_seae.报关单号,t_op_seae.报检单号,' +'(case when round((case when t_op_seae.重量/1000>t_op_seae.尺码 then t_op_seae.重量/1000 ' +'else t_op_seae.尺码 end),4)>1 then ' +'round((case when t_op_seae.重量/1000>t_op_seae.尺码 then t_op_seae.重量/1000 else ' +'t_op_seae.尺码 end),4) else ' +'1 end) as 计费吨,' +'t_op_seae.承运车队 FROM t_ch_fee inner join t_op_seae on t_op_seae.编号=t_ch_fee.编号 ' +str_bill+' and t_ch_fee.类型='+''''+'收'+'''' +default_sort_two(53,'t_op_seae','t_ch_fee.客户名称','',''); frm_rp_no_seae.p_accept_fee.Open; frm_rp_no_seae.p_pay_bill.close; frm_rp_no_seae.p_pay_bill.Parameters.ParamByName('SQLStr').value:= 'SELECT t_ch_fee.编号, t_ch_fee.客户名称,SUM(case t_ch_fee.币别' +' when '+''''+'USD'+''''+' then t_ch_fee.金额 else 0 end) as 应付USD,' +'SUM(case t_ch_fee.币别 when '+''''+'USD'+''''+' then t_ch_fee.结算金额' +' else 0 end) as 已付USD,SUM(case t_ch_fee.币别' +' when '+''''+'USD'+''''+' then t_ch_fee.金额-t_ch_fee.结算金额' +' else 0 end) as 未付USD,SUM(case t_ch_fee.币别' +' when '+''''+'USD'+''''+' then 0 else t_ch_fee.金额*t_ch_fee.汇率' +' end) as 应付RMB,SUM(case t_ch_fee.币别' +' when '+''''+'USD'+''''+' then 0 else t_ch_fee.结算金额*t_ch_fee.汇率' +' end) as 已付RMB,SUM(case t_ch_fee.币别 when '+''''+'USD'+''''+' then 0' +' else (t_ch_fee.金额-t_ch_fee.结算金额)*t_ch_fee.汇率' +' end) as 未付RMB,sum(t_ch_fee.金额*t_ch_fee.汇率) as 应付合计,' +' sum(t_ch_fee.结算金额*t_ch_fee.汇率) as 已付合计,' +' sum((t_ch_fee.金额-t_ch_fee.结算金额)*t_ch_fee.汇率) as 未付合计,' +'t_op_seae.业务编号, t_op_seae.周次, t_op_seae.会计期间, t_op_seae.主提单号,' +'t_op_seae.分提单号, t_op_seae.委托编号, t_op_seae.装运方式,' +'t_op_seae.委托单位, t_op_seae.代理, t_op_seae.场站,' +'t_op_seae.航次, t_op_seae.船名, t_op_seae.开船日期,' +'t_op_seae.装货港, t_op_seae.卸货港, t_op_seae.货物名称,' +'t_op_seae.件数, t_op_seae.包装, t_op_seae.重量, t_op_seae.尺码,' +'t_op_seae.箱型1, t_op_seae.箱型2, t_op_seae.箱型3,' +'t_op_seae.箱型4, t_op_seae.箱型5, t_op_seae.箱型6,' +'t_op_seae.箱型7, t_op_seae.箱型8, t_op_seae.箱型9,' +'t_op_seae.箱型10,t_op_seae.其他箱型,' +'t_op_seae.箱TEU, t_op_seae.集装箱, t_op_seae.操作员,' +'t_op_seae.揽货人, t_op_seae.客服员, t_op_seae.航线,' +'t_op_seae.船公司, t_op_seae.货代公司, t_op_seae.报关行,t_op_seae.报关单号,t_op_seae.报检单号,' +'(case when round((case when t_op_seae.重量/1000>t_op_seae.尺码 then t_op_seae.重量/1000 ' +'else t_op_seae.尺码 end),4)>1 then ' +'round((case when t_op_seae.重量/1000>t_op_seae.尺码 then t_op_seae.重量/1000 else ' +'t_op_seae.尺码 end),4) else ' +'1 end) as 计费吨,' +'t_op_seae.承运车队' +' FROM t_ch_fee inner join t_op_seae on t_op_seae.编号=t_ch_fee.编号 ' +str_bill+' and t_ch_fee.类型='+''''+'付'+'''' +' GROUP BY t_ch_fee.编号, t_ch_fee.客户名称,' +'t_op_seae.业务编号, t_op_seae.周次, t_op_seae.会计期间, t_op_seae.主提单号,' +'t_op_seae.分提单号, t_op_seae.委托编号, t_op_seae.装运方式,' +'t_op_seae.委托单位, t_op_seae.代理, t_op_seae.场站,' +'t_op_seae.航次, t_op_seae.船名, t_op_seae.开船日期,' +'t_op_seae.装货港, t_op_seae.卸货港, t_op_seae.货物名称,' +'t_op_seae.件数, t_op_seae.包装, t_op_seae.重量, t_op_seae.尺码,' +'t_op_seae.箱型1, t_op_seae.箱型2, t_op_seae.箱型3,' +'t_op_seae.箱型4, t_op_seae.箱型5, t_op_seae.箱型6,' +'t_op_seae.箱型7, t_op_seae.箱型8, t_op_seae.箱型9,' +'t_op_seae.箱型10, t_op_seae.其他箱型,' +'t_op_seae.箱TEU, t_op_seae.集装箱, t_op_seae.操作员,' +'t_op_seae.揽货人, t_op_seae.客服员, t_op_seae.航线,' +'t_op_seae.船公司, t_op_seae.货代公司, t_op_seae.报关行,t_op_seae.报关单号,t_op_seae.报检单号,' +'(case when round((case when t_op_seae.重量/1000>t_op_seae.尺码 then t_op_seae.重量/1000 ' +'else t_op_seae.尺码 end),4)>1 then ' +'round((case when t_op_seae.重量/1000>t_op_seae.尺码 then t_op_seae.重量/1000 else ' +'t_op_seae.尺码 end),4) else ' +'1 end),' +'t_op_seae.承运车队 ' +default_sort_two(53,'t_op_seae','t_ch_fee.客户名称','',''); frm_rp_no_seae.p_pay_bill.Open; frm_rp_no_seae.p_pay_fee.close; frm_rp_no_seae.p_pay_fee.Parameters.ParamByName('SQLStr').value:= 'SELECT t_ch_fee.编号, t_ch_fee.客户名称, t_ch_fee.费用名称,t_ch_fee.币别,t_ch_fee.金额 as 应付金额,' +'t_ch_fee.结算金额 as 已付金额,(t_ch_fee.金额-t_ch_fee.结算金额) as 未付金额,' +'t_ch_fee.标准 as 标准,t_ch_fee.单价 as 单价,t_ch_fee.数量 as 数量,t_ch_fee.备注 as 费用备注,' +'t_op_seae.业务编号, t_op_seae.周次, t_op_seae.会计期间, t_op_seae.主提单号,' +'t_op_seae.分提单号, t_op_seae.委托编号, t_op_seae.装运方式,' +'t_op_seae.委托单位, t_op_seae.代理, t_op_seae.场站,' +'t_op_seae.航次, t_op_seae.船名, t_op_seae.开船日期,' +'t_op_seae.装货港, t_op_seae.卸货港, t_op_seae.货物名称,' +'t_op_seae.件数, t_op_seae.包装, t_op_seae.重量, t_op_seae.尺码,' +'t_op_seae.箱型1, t_op_seae.箱型2, t_op_seae.箱型3,' +'t_op_seae.箱型4, t_op_seae.箱型5, t_op_seae.箱型6,' +'t_op_seae.箱型7, t_op_seae.箱型8, t_op_seae.箱型9,' +'t_op_seae.箱型10, t_op_seae.其他箱型,' +'t_op_seae.箱TEU, t_op_seae.集装箱, t_op_seae.操作员,' +'t_op_seae.揽货人, t_op_seae.客服员, t_op_seae.航线,' +'t_op_seae.船公司, t_op_seae.货代公司, t_op_seae.报关行,t_op_seae.报关单号,t_op_seae.报检单号,' +'(case when round((case when t_op_seae.重量/1000>t_op_seae.尺码 then t_op_seae.重量/1000 ' +'else t_op_seae.尺码 end),4)>1 then ' +'round((case when t_op_seae.重量/1000>t_op_seae.尺码 then t_op_seae.重量/1000 else ' +'t_op_seae.尺码 end),4) else ' +'1 end) as 计费吨,' +'t_op_seae.承运车队 FROM t_ch_fee inner join t_op_seae on t_op_seae.编号=t_ch_fee.编号 ' +str_bill+' and t_ch_fee.类型='+''''+'付'+'''' +default_sort_two(53,'t_op_seae','t_ch_fee.客户名称','',''); frm_rp_no_seae.p_pay_fee.Open; frm_rp_no_seae.p_total_client.close; frm_rp_no_seae.p_total_client.Parameters.ParamByName('SQLStr').value:= 'SELECT t_ch_fee.客户名称,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'收'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then t_ch_fee.金额 else 0 end) ELSE 0 END) as 应收USD,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'收'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then t_ch_fee.结算金额 else 0 end) ELSE 0 END) as 已收USD,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'收'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then t_ch_fee.金额-t_ch_fee.结算金额 else 0 end) ELSE 0 END) as 未收USD,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'收'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then 0 else t_ch_fee.金额*t_ch_fee.汇率 end) ELSE 0 END) as 应收RMB,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'收'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then 0 else t_ch_fee.结算金额*t_ch_fee.汇率 end) ELSE 0 END) as 已收RMB,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'收'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then 0 else (t_ch_fee.金额-t_ch_fee.结算金额)*t_ch_fee.汇率 end) ELSE 0 END) as 未收RMB,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'收'+'''' +' THEN t_ch_fee.金额*t_ch_fee.汇率 ELSE 0 END) as 应收合计,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'收'+'''' +' THEN t_ch_fee.结算金额*t_ch_fee.汇率 ELSE 0 END) as 已收合计,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'收'+'''' +' THEN (t_ch_fee.金额-t_ch_fee.结算金额)*t_ch_fee.汇率 ELSE 0 END) as 未收合计,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'付'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then t_ch_fee.金额 else 0 end) ELSE 0 END) as 应付USD,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'付'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then t_ch_fee.结算金额 else 0 end) ELSE 0 END) as 已付USD,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'付'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then t_ch_fee.金额-t_ch_fee.结算金额 else 0 end) ELSE 0 END) as 未付USD,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'付'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then 0 else t_ch_fee.金额*t_ch_fee.汇率 end) ELSE 0 END) as 应付RMB,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'付'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then 0 else t_ch_fee.结算金额*t_ch_fee.汇率 end) ELSE 0 END) as 已付RMB,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'付'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then 0 else (t_ch_fee.金额-t_ch_fee.结算金额)*t_ch_fee.汇率 end) ELSE 0 END) as 未付RMB,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'付'+'''' +' THEN t_ch_fee.金额*t_ch_fee.汇率 ELSE 0 END) as 应付合计,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'付'+'''' +' THEN t_ch_fee.结算金额*t_ch_fee.汇率 ELSE 0 END) as 已付合计,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'付'+'''' +' THEN (t_ch_fee.金额-t_ch_fee.结算金额)*t_ch_fee.汇率 ELSE 0 END) as 未付合计,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'收'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then t_ch_fee.金额-t_ch_fee.结算金额 else 0 end) ELSE 0 END' +'-CASE t_ch_fee.类型 WHEN '+''''+'付'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then t_ch_fee.金额-t_ch_fee.结算金额 else 0 end) ELSE 0 END) as 差额USD,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'收'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then 0 else (t_ch_fee.金额-t_ch_fee.结算金额)*t_ch_fee.汇率 end) ELSE 0 END' +'-CASE t_ch_fee.类型 WHEN '+''''+'付'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then 0 else (t_ch_fee.金额-t_ch_fee.结算金额)*t_ch_fee.汇率 end) ELSE 0 END) as 差额RMB,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'收'+'''' +' THEN (t_ch_fee.金额-t_ch_fee.结算金额)*t_ch_fee.汇率 ELSE 0 END' +'-CASE t_ch_fee.类型 WHEN '+''''+'付'+'''' +' THEN (t_ch_fee.金额-t_ch_fee.结算金额)*汇率 ELSE 0 END) as 差额合计' +' FROM t_ch_fee inner join t_op_seae on t_op_seae.编号=t_ch_fee.编号 ' +str_bill+' GROUP BY t_ch_fee.客户名称 order by t_ch_fee.客户名称'; frm_rp_no_seae.p_total_client.Open; frm_rp_no_seae.p_total_sales.close; frm_rp_no_seae.p_total_sales.Parameters.ParamByName('SQLStr').value:= 'SELECT t_op_seae.揽货人,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'收'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then t_ch_fee.金额 else 0 end) ELSE 0 END) as 应收USD,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'收'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then t_ch_fee.结算金额 else 0 end) ELSE 0 END) as 已收USD,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'收'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then t_ch_fee.金额-t_ch_fee.结算金额 else 0 end) ELSE 0 END) as 未收USD,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'收'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then 0 else t_ch_fee.金额*t_ch_fee.汇率 end) ELSE 0 END) as 应收RMB,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'收'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then 0 else t_ch_fee.结算金额*t_ch_fee.汇率 end) ELSE 0 END) as 已收RMB,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'收'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then 0 else (t_ch_fee.金额-t_ch_fee.结算金额)*t_ch_fee.汇率 end) ELSE 0 END) as 未收RMB,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'收'+'''' +' THEN t_ch_fee.金额*t_ch_fee.汇率 ELSE 0 END) as 应收合计,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'收'+'''' +' THEN t_ch_fee.结算金额*t_ch_fee.汇率 ELSE 0 END) as 已收合计,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'收'+'''' +' THEN (t_ch_fee.金额-t_ch_fee.结算金额)*t_ch_fee.汇率 ELSE 0 END) as 未收合计,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'付'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then t_ch_fee.金额 else 0 end) ELSE 0 END) as 应付USD,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'付'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then t_ch_fee.结算金额 else 0 end) ELSE 0 END) as 已付USD,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'付'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then t_ch_fee.金额-t_ch_fee.结算金额 else 0 end) ELSE 0 END) as 未付USD,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'付'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then 0 else t_ch_fee.金额*t_ch_fee.汇率 end) ELSE 0 END) as 应付RMB,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'付'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then 0 else t_ch_fee.结算金额*t_ch_fee.汇率 end) ELSE 0 END) as 已付RMB,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'付'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then 0 else (t_ch_fee.金额-t_ch_fee.结算金额)*t_ch_fee.汇率 end) ELSE 0 END) as 未付RMB,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'付'+'''' +' THEN t_ch_fee.金额*t_ch_fee.汇率 ELSE 0 END) as 应付合计,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'付'+'''' +' THEN t_ch_fee.结算金额*t_ch_fee.汇率 ELSE 0 END) as 已付合计,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'付'+'''' +' THEN (t_ch_fee.金额-t_ch_fee.结算金额)*t_ch_fee.汇率 ELSE 0 END) as 未付合计,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'收'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then t_ch_fee.金额-t_ch_fee.结算金额 else 0 end) ELSE 0 END' +'-CASE t_ch_fee.类型 WHEN '+''''+'付'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then t_ch_fee.金额-t_ch_fee.结算金额 else 0 end) ELSE 0 END) as 差额USD,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'收'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then 0 else (t_ch_fee.金额-t_ch_fee.结算金额)*t_ch_fee.汇率 end) ELSE 0 END' +'-CASE t_ch_fee.类型 WHEN '+''''+'付'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then 0 else (t_ch_fee.金额-t_ch_fee.结算金额)*t_ch_fee.汇率 end) ELSE 0 END) as 差额RMB,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'收'+'''' +' THEN (t_ch_fee.金额-t_ch_fee.结算金额)*t_ch_fee.汇率 ELSE 0 END' +'-CASE t_ch_fee.类型 WHEN '+''''+'付'+'''' +' THEN (t_ch_fee.金额-t_ch_fee.结算金额)*汇率 ELSE 0 END) as 差额合计' +' FROM t_ch_fee inner join t_op_seae on t_op_seae.编号=t_ch_fee.编号 ' +str_bill+' GROUP BY t_op_seae.揽货人 order by t_op_seae.揽货人'; frm_rp_no_seae.p_total_sales.Open; frm_rp_no_seae.p_total.close; frm_rp_no_seae.p_total.Parameters.ParamByName('SQLStr').value:= 'SELECT '+''''+'合计'+''''+' as 顺序,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'收'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then t_ch_fee.金额 else 0 end) ELSE 0 END) as 应收USD,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'收'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then t_ch_fee.结算金额 else 0 end) ELSE 0 END) as 已收USD,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'收'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then t_ch_fee.金额-t_ch_fee.结算金额 else 0 end) ELSE 0 END) as 未收USD,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'收'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then 0 else t_ch_fee.金额*t_ch_fee.汇率 end) ELSE 0 END) as 应收RMB,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'收'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then 0 else t_ch_fee.结算金额*t_ch_fee.汇率 end) ELSE 0 END) as 已收RMB,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'收'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then 0 else (t_ch_fee.金额-t_ch_fee.结算金额)*t_ch_fee.汇率 end) ELSE 0 END) as 未收RMB,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'收'+'''' +' THEN t_ch_fee.金额*t_ch_fee.汇率 ELSE 0 END) as 应收合计,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'收'+'''' +' THEN t_ch_fee.结算金额*t_ch_fee.汇率 ELSE 0 END) as 已收合计,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'收'+'''' +' THEN (t_ch_fee.金额-t_ch_fee.结算金额)*t_ch_fee.汇率 ELSE 0 END) as 未收合计,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'付'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then t_ch_fee.金额 else 0 end) ELSE 0 END) as 应付USD,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'付'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then t_ch_fee.结算金额 else 0 end) ELSE 0 END) as 已付USD,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'付'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then t_ch_fee.金额-t_ch_fee.结算金额 else 0 end) ELSE 0 END) as 未付USD,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'付'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then 0 else t_ch_fee.金额*t_ch_fee.汇率 end) ELSE 0 END) as 应付RMB,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'付'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then 0 else t_ch_fee.结算金额*t_ch_fee.汇率 end) ELSE 0 END) as 已付RMB,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'付'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then 0 else (t_ch_fee.金额-t_ch_fee.结算金额)*t_ch_fee.汇率 end) ELSE 0 END) as 未付RMB,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'付'+'''' +' THEN t_ch_fee.金额*t_ch_fee.汇率 ELSE 0 END) as 应付合计,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'付'+'''' +' THEN t_ch_fee.结算金额*t_ch_fee.汇率 ELSE 0 END) as 已付合计,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'付'+'''' +' THEN (t_ch_fee.金额-t_ch_fee.结算金额)*t_ch_fee.汇率 ELSE 0 END) as 未付合计,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'收'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then t_ch_fee.金额-t_ch_fee.结算金额 else 0 end) ELSE 0 END' +'-CASE t_ch_fee.类型 WHEN '+''''+'付'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then t_ch_fee.金额-t_ch_fee.结算金额 else 0 end) ELSE 0 END) as 差额USD,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'收'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then 0 else (t_ch_fee.金额-t_ch_fee.结算金额)*t_ch_fee.汇率 end) ELSE 0 END' +'-CASE t_ch_fee.类型 WHEN '+''''+'付'+'''' +' THEN (case t_ch_fee.币别 when '+''''+'USD'+'''' +' then 0 else (t_ch_fee.金额-t_ch_fee.结算金额)*t_ch_fee.汇率 end) ELSE 0 END) as 差额RMB,' +'SUM(CASE t_ch_fee.类型 WHEN '+''''+'收'+'''' +' THEN (t_ch_fee.金额-t_ch_fee.结算金额)*t_ch_fee.汇率 ELSE 0 END' +'-CASE t_ch_fee.类型 WHEN '+''''+'付'+'''' +' THEN (t_ch_fee.金额-t_ch_fee.结算金额)*汇率 ELSE 0 END) as 差额合计' +' FROM t_ch_fee inner join t_op_seae on t_op_seae.编号=t_ch_fee.编号 ' +str_bill; frm_rp_no_seae.p_total.Open; end; procedure Tfrm_rp_seae_query.bsSkinButton10Click(Sender: TObject); begin Edit1.text:=''; Edit2.text:=''; Edit3.text:=''; Edit4.text:=''; Edit5.text:=''; Edit6.text:=''; wwDBComboBox1.text:=''; wwDBComboBox2.text:=''; wwDBDateTimePicker1.Clear; wwDBDateTimePicker2.Clear; wwDBDateTimePicker3.Clear; wwDBDateTimePicker4.Clear; wwDBComboBox3.text:=''; RxDBLookupCombo20.ClearValue; RxDBLookupCombo2.ClearValue; RxDBLookupCombo1.ClearValue; RxDBLookupCombo9.ClearValue; RxDBLookupCombo8.ClearValue; RxDBLookupCombo11.ClearValue; RxDBLookupCombo7.ClearValue; wwDBLookupCombo3.text:=''; wwDBLookupCombo52.text:=''; wwDBLookupCombo49.text:=''; RxDBLookupCombo4.ClearValue; RxDBLookupCombo3.ClearValue; RxDBLookupCombo6.ClearValue; RxDBLookupCombo5.ClearValue; RxDBLookupCombo10.ClearValue; RxDBLookupCombo12.ClearValue; wwDBComboBox31.text:=''; RxDBLookupCombo13.ClearValue; wwDBComboBox31.text:=''; RxDBLookupCombo16.ClearValue; RxDBLookupCombo15.ClearValue; RxDBLookupCombo17.ClearValue; end; procedure Tfrm_rp_seae_query.bsSkinButton5Click(Sender: TObject); begin close; end; procedure Tfrm_rp_seae_query.FormShow(Sender: TObject); begin loadFindIni; frm_data_share.t_code_state.Filtered:=false; frm_data_share.t_code_state.Filter:='业务种类='+''''+'海运出口'+''''; frm_data_share.t_code_state.Filtered:=true; frm_data_share.t_code_fee.Filtered:=false; frm_data_share.t_code_fee.Filter:='海运=1'; frm_data_share.t_code_fee.Filtered:=true; Label3.Caption:=Logininfo.seaewtno; frm_data_share.t_code_state.first; while not frm_data_share.t_code_state.eof do begin wwDBComboBox1.Items.Add(frm_data_share.t_code_state.fieldbyname('业务状态').asstring); frm_data_share.t_code_state.next; end; wwDBComboBox1.Items.Add('业务封帐'); t_sys_queryfields.open; t_sys_query.Parameters.ParamByName('查询类型').Value:=rp_seae_query_str; t_sys_query.Parameters.ParamByName('录入人').Value:=employee; t_sys_query.open; t_sys_query_detail.open; wwDBComboBox39.ItemIndex:=0; end; procedure Tfrm_rp_seae_query.bsSkinButton1Click(Sender: TObject); var str_bill,str_feetype:widestring; begin writeFindIni; str_bill:=''; if bsSkinTabSheet2.Showing then begin str_bill:=query_tiaojian(1,str_bill,'t_op_seae.业务编号',wwDBComboBox15.text,Edit1.text); str_bill:=query_tiaojian(1,str_bill,'t_op_seae.委托编号',wwDBComboBox4.text,Edit4.text); str_bill:=query_tiaojian(1,str_bill,'t_op_seae.主提单号',wwDBComboBox16.text,Edit2.text); str_bill:=query_tiaojian(1,str_bill,'t_op_seae.分提单号',wwDBComboBox5.text,Edit3.text); str_bill:=query_tiaojian(1,str_bill,'t_op_seae.报关单号',wwDBComboBox43.text,Edit10.text); str_bill:=query_tiaojian(1,str_bill,'t_op_seae.报检单号',wwDBComboBox44.text,Edit11.text); str_bill:=query_tiaojian(1,str_bill,'t_op_seae.发票号',wwDBComboBox33.text,Edit5.text); str_bill:=query_tiaojian(1,str_bill,'t_op_seae.核销单号',wwDBComboBox34.text,Edit6.text); str_bill:=query_tiaojian(1,str_bill,'t_op_seae.业务状态',wwDBComboBox17.text,wwDBComboBox1.text); str_bill:=query_tiaojian(1,str_bill,'t_op_seae.费用状态',wwDBComboBox7.text,wwDBComboBox2.text); str_bill:=query_tiaojian(1,str_bill,'t_op_seae.开船日期',wwDBComboBox18.text,wwDBDateTimePicker1.text); str_bill:=query_tiaojian(1,str_bill,'t_op_seae.开船日期',wwDBComboBox6.text,wwDBDateTimePicker2.text); str_bill:=query_tiaojian(1,str_bill,'t_op_seae.会计期间',wwDBComboBox19.text,wwDBDateTimePicker3.text); str_bill:=query_tiaojian(1,str_bill,'t_op_seae.会计期间',wwDBComboBox11.text,wwDBDateTimePicker4.text); str_bill:=query_tiaojian(1,str_bill,'t_op_seae.装运方式',wwDBComboBox20.text,wwDBComboBox3.text); str_bill:=query_tiaojian(1,str_bill,'t_op_seae.航线',wwDBComboBox10.text,RxDBLookupCombo20.DisplayValues[1]); str_bill:=query_tiaojian(1,str_bill,'t_op_seae.委托单位',wwDBComboBox21.text,RxDBLookupCombo2.DisplayValues[1]); str_bill:=query_tiaojian(1,str_bill,'t_op_seae.船公司',wwDBComboBox9.text,RxDBLookupCombo1.DisplayValues[1]); str_bill:=query_tiaojian(1,str_bill,'t_op_seae.报关行',wwDBComboBox22.text,RxDBLookupCombo9.DisplayValues[1]); str_bill:=query_tiaojian(1,str_bill,'t_op_seae.货代公司',wwDBComboBox8.text,RxDBLookupCombo8.DisplayValues[1]); str_bill:=query_tiaojian(1,str_bill,'t_op_seae.承运车队',wwDBComboBox23.text,RxDBLookupCombo11.DisplayValues[1]); str_bill:=query_tiaojian(1,str_bill,'t_op_seae.场站',wwDBComboBox12.text,RxDBLookupCombo7.DisplayValues[1]); str_bill:=query_tiaojian(1,str_bill,'t_op_seae.装货港',wwDBComboBox26.text,wwDBLookupCombo3.text); str_bill:=query_tiaojian(1,str_bill,'t_op_seae.卸货港',wwDBComboBox27.text,wwDBLookupCombo52.text); str_bill:=query_tiaojian(1,str_bill,'t_op_seae.客服员',wwDBComboBox24.text,RxDBLookupCombo4.DisplayValue); str_bill:=query_tiaojian(1,str_bill,'t_op_seae.揽货人',wwDBComboBox14.text,RxDBLookupCombo3.DisplayValue); str_bill:=query_tiaojian(1,str_bill,'t_op_seae.操作员',wwDBComboBox25.text,RxDBLookupCombo6.DisplayValue); str_bill:=query_tiaojian(1,str_bill,'t_op_seae.货物名称',wwDBComboBox32.text,RxDBLookupCombo13.DisplayValues[1]); str_bill:=query_tiaojian(1,str_bill,'t_op_seae.销售部门',wwDBComboBox28.text,RxDBLookupCombo10.DisplayValue); str_bill:=query_tiaojian(1,str_bill,'t_op_seae.操作部门',wwDBComboBox29.text,RxDBLookupCombo12.DisplayValue); str_bill:=query_tiaojian(1,str_bill,'t_op_seae.船名',wwDBComboBox36.text,wwDBLookupCombo49.text); str_bill:=query_tiaojian(1,str_bill,'t_op_seae.航次',wwDBComboBox35.text,Edit7.text); str_bill:=query_tiaojian(1,str_bill,'t_op_seae.箱号封号',wwDBComboBox37.text,Edit8.text); str_bill:=query_tiaojian(2,str_bill,'t_op_seae.周次',wwDBComboBox38.text,Edit9.text); str_bill:=query_tiaojian(1,str_bill,'t_op_seae.业务类型',wwDBComboBox45.text,wwDBComboBox46.text); str_bill:=query_tiaojian(1,str_bill,'t_op_seae.分部名称',wwDBComboBox47.text,RxDBLookupCombo17.DisplayValue); str_bill:=query_tiaojian(1,str_bill,'t_op_seae.签回日期',wwDBComboBox51.text,wwDBDateTimePicker5.text); str_bill:=query_tiaojian(1,str_bill,'t_op_seae.签回日期',wwDBComboBox52.text,wwDBDateTimePicker6.text); str_bill:=query_tiaojian(1,str_bill,'t_ch_fee.客户名称',wwDBComboBox13.text,RxDBLookupCombo5.DisplayValues[1]); str_bill:=query_tiaojian(1,str_bill,'t_ch_fee.币别',wwDBComboBox41.text,RxDBLookupCombo15.DisplayValues[0]); str_bill:=query_tiaojian(1,str_bill,'t_ch_fee.费用名称',wwDBComboBox42.text,RxDBLookupCombo16.DisplayValues[1]); str_bill:=query_tiaojian(1,str_bill,'t_ch_fee.类型',wwDBComboBox30.text,wwDBComboBox31.text); str_bill:=query_tiaojian(3,str_bill,'t_ch_fee.是否垫付',wwDBComboBox48.text,wwDBComboBox49.text); str_bill:=query_tiaojian(1,str_bill,'t_ch_fee.第三方',wwDBComboBox53.text,RxDBLookupCombo19.DisplayValues[1]); str_feetype:=query_tiaojian(1,str_feetype,'费用类别',wwDBComboBox50.text,RxDBLookupCombo18.DisplayValues[0]); if str_feetype<>'' then begin if str_bill<>'' then str_bill:=str_bill+' and t_ch_fee.费用名称 in (select 费用名称 from t_code_fee ' +str_feetype+' )' else str_bill:=' where t_ch_fee.费用名称 in (select 费用名称 from t_code_fee ' +str_feetype+' )' end; end else begin if query_wanneng_error(t_sys_query_detail)then begin showmessage('‘或’的条件必须在2个以上！！'); exit; end; str_bill:=query_wanneng(t_sys_query_detail); end; if rp_seae_query_limited<>'no'then begin if trim(str_bill)='' then begin str_bill:='where '+open_data(rp_seae_query_limited,'t_op_seae.揽货人','t_op_seae.操作员','t_op_seae.客服员','t_op_seae.报关操作','t_op_seae.报检操作'); end else begin str_bill:=str_bill+' and '+open_data(rp_seae_query_limited,'t_op_seae.揽货人','t_op_seae.操作员','t_op_seae.客服员','t_op_seae.报关操作','t_op_seae.报检操作'); end; end; case rp_seae_query_type of 1: begin if str_bill='' then str_bill:='where t_ch_fee.金额<>t_ch_fee.结算金额' else str_bill:=str_bill+' and t_ch_fee.金额<>t_ch_fee.结算金额'; end; 2: begin if str_bill='' then str_bill:='where t_ch_fee.结算金额<>0' else str_bill:=str_bill+' and t_ch_fee.结算金额<>0'; end; 4: begin if str_bill='' then str_bill:='where t_op_seae.编号 in (select 编号 from t_op_gain where 合计已付<>0 and ((合计应收=0) or (合计应收<>合计已收))) ' else str_bill:=str_bill+' and t_op_seae.编号 in (select 编号 from t_op_gain where 合计已付<>0 and ((合计应收=0) or (合计应收<>合计已收))) '; end; 5: begin if str_bill='' then str_bill:='where t_op_seae.编号 in (select 编号 from t_op_gain where 合计已收<>0 and ((合计应付=0) or (合计应付<>合计已付))) ' else str_bill:=str_bill+' and t_op_seae.编号 in (select 编号 from t_op_gain where 合计已收<>0 and ((合计应付=0) or (合计应付<>合计已付))) '; end; end; case rp_seae_query_num of 1: begin frm_rp_seae_query.do_1(str_bill); end; 2: begin frm_rp_seae_query.do_2(str_bill); end; end; close; end; procedure Tfrm_rp_seae_query.RxDBLookupCombo14Change(Sender: TObject); begin query_str_int.text:=''; query_bit.text:=''; query_date.text:=''; if t_sys_queryfields.Locate('字段名称',RxDBLookupCombo14.DisplayValue,[])then begin wwDBComboBox40.ItemIndex:=-1; wwDBComboBox40.Items.Clear; if (t_sys_queryfields.FieldByName('类型').asstring='varchar') then begin query_str_int.Visible:=true; query_bit.Visible:=false; query_date.Visible:=false; wwDBComboBox40.Items.Add('等于'); wwDBComboBox40.Items.Add('不等于'); wwDBComboBox40.Items.Add('模糊'); wwDBComboBox40.ItemIndex:=2; end; if (t_sys_queryfields.FieldByName('类型').asstring='int') then begin query_str_int.Visible:=true; query_bit.Visible:=false; query_date.Visible:=false; wwDBComboBox40.Items.Add('等于'); wwDBComboBox40.Items.Add('不等于'); wwDBComboBox40.Items.Add('大于'); wwDBComboBox40.Items.Add('小于'); wwDBComboBox40.ItemIndex:=0; end; if (t_sys_queryfields.FieldByName('类型').asstring='bit') then begin query_str_int.Visible:=false; query_bit.Visible:=true; query_date.Visible:=false; wwDBComboBox40.Items.Add('等于'); wwDBComboBox40.Items.Add('不等于'); wwDBComboBox40.ItemIndex:=0; end; if (t_sys_queryfields.FieldByName('类型').asstring='date') then begin query_str_int.Visible:=false; query_bit.Visible:=false; query_date.Visible:=true; wwDBComboBox40.Items.Add('等于'); wwDBComboBox40.Items.Add('不等于'); wwDBComboBox40.Items.Add('大于'); wwDBComboBox40.Items.Add('小于'); wwDBComboBox40.ItemIndex:=0; end; end else begin query_str_int.Visible:=false; query_bit.Visible:=false; query_date.Visible:=false; end; end; procedure Tfrm_rp_seae_query.bsSkinButton2Click(Sender: TObject); begin if RxDBLookupCombo14.DisplayValue='' then begin showmessage('请输入条件名称！！'); exit; end; if wwDBComboBox39.ItemIndex=-1 then begin showmessage('请输入条件关系！！'); exit; end; if wwDBComboBox40.ItemIndex=-1 then begin showmessage('请输入查询类型！！'); exit; end; if query_str_int.Visible then begin if query_str_int.text='' then begin showmessage('请输入条件值！！'); exit; end; if (t_sys_queryfields.FieldByName('类型').asstring='int') then begin try strtoint(query_str_int.text); except showmessage('条件值只能输入数字！！'); exit; end; end; end; if query_bit.Visible then begin if query_bit.ItemIndex=-1 then begin showmessage('请输入条件值！！'); exit; end; end; if query_date.Visible then begin if query_date.text='' then begin showmessage('请输入条件值！！'); exit; end; end; if t_sys_query.IsEmpty then begin t_sys_query.Insert; t_sys_query.post; end; t_sys_query_detail.Append; t_sys_query_detail['表']:=t_sys_queryfields['表']; t_sys_query_detail['字段名']:=t_sys_queryfields['字段名称']; if query_str_int.Visible then begin t_sys_query_detail['条件值']:=query_str_int.text; end; if query_bit.Visible then begin t_sys_query_detail['条件值']:=query_bit.text; end; if query_date.Visible then begin t_sys_query_detail['条件值']:=query_date.text; end; t_sys_query_detail['字段类型']:=t_sys_queryfields['类型']; t_sys_query_detail['条件关系']:=wwDBComboBox39.text; t_sys_query_detail['查询类型']:=wwDBComboBox40.text; t_sys_query_detail.post; end; procedure Tfrm_rp_seae_query.bsSkinButton4Click(Sender: TObject); begin if not t_sys_query_detail.IsEmpty then t_sys_query_detail.Delete; end; procedure Tfrm_rp_seae_query.RxDBLookupList1DblClick(Sender: TObject); begin RxDBLookupCombo14.DisplayValue:=RxDBLookupList1.DisplayValue; end; procedure Tfrm_rp_seae_query.wwDBComboBox15KeyPress(Sender: TObject; var Key: Char); begin if key=#13 then begin key:=#0; frm_rp_seae_query.bsSkinButton1Click(Sender); end; end; procedure Tfrm_rp_seae_query.t_sys_queryAfterInsert(DataSet: TDataSet); begin t_sys_query['查询类型']:=rp_seae_query_str; t_sys_query['录入人']:=employee; t_sys_query['录入日期']:=date; end; procedure Tfrm_rp_seae_query.bsSkinButton6Click(Sender: TObject); begin t_sys_query.Insert; t_sys_query.post; end; procedure Tfrm_rp_seae_query.bsSkinButton9Click(Sender: TObject); begin while not t_sys_query_detail.eof do begin t_sys_query_detail.Delete; end; if not t_sys_query.Eof then t_sys_query.delete; end; procedure Tfrm_rp_seae_query.t_sys_query_detailBeforePost( DataSet: TDataSet); begin if t_sys_query_detail.fieldbyname('字段类型').asstring='int' then begin try strtoint(t_sys_query_detail.fieldbyname('条件值').asstring); except showmessage('条件值只能输入数字！！'); abort; end; end; if t_sys_query_detail.fieldbyname('字段类型').asstring='date' then begin try strtodate(t_sys_query_detail.fieldbyname('条件值').asstring); except showmessage('条件值只能输入日期！！'); abort; end; end; if t_sys_query_detail.fieldbyname('字段类型').asstring='bit' then begin if (t_sys_query_detail.fieldbyname('条件值').asstring<>'否') and(t_sys_query_detail.fieldbyname('条件值').asstring<>'是')then begin showmessage('条件值只能输入是\否！！'); abort; end; end; if (t_sys_query_detail.fieldbyname('条件关系').asstring<>'且') and(t_sys_query_detail.fieldbyname('条件关系').asstring<>'或')then begin showmessage('条件关系只能输入且\或！！'); abort; end; if (dxDBGrid1Column3.Items.IndexOf(t_sys_query_detail.fieldbyname('查询类型').asstring)=-1) and (t_sys_query_detail.state<>dsinsert) then begin showmessage('查询类型只能输入'+dxDBGrid1Column3.Items.text+'！！'); abort; end; end; procedure Tfrm_rp_seae_query.t_sys_query_detailAfterScroll( DataSet: TDataSet); begin if (t_sys_query_detail.fieldbyname('字段类型').asstring='varchar') then begin dxDBGrid1Column3.Items.Clear; dxDBGrid1Column3.Items.Add('等于'); dxDBGrid1Column3.Items.Add('不等于'); dxDBGrid1Column3.Items.Add('模糊'); dxDBGrid1Column3.Items.Add('大于'); dxDBGrid1Column3.Items.Add('小于'); end; if (t_sys_query_detail.fieldbyname('字段类型').asstring='int') then begin dxDBGrid1Column3.Items.Clear; dxDBGrid1Column3.Items.Add('等于'); dxDBGrid1Column3.Items.Add('不等于'); dxDBGrid1Column3.Items.Add('大于'); dxDBGrid1Column3.Items.Add('小于'); end; if (t_sys_query_detail.fieldbyname('字段类型').asstring='bit') then begin dxDBGrid1Column3.Items.Clear; dxDBGrid1Column3.Items.Add('等于'); dxDBGrid1Column3.Items.Add('不等于'); end; if (t_sys_query_detail.fieldbyname('字段类型').asstring='date') then begin dxDBGrid1Column3.Items.Clear; dxDBGrid1Column3.Items.Add('等于'); dxDBGrid1Column3.Items.Add('不等于'); dxDBGrid1Column3.Items.Add('大于'); dxDBGrid1Column3.Items.Add('小于'); end; end; procedure Tfrm_rp_seae_query.loadFindIni; var findini:tinifile ; mysec,tmpname:string; canload:boolean ; //是否记忆 i:integer ; begin mysec:=inttostr(rp_seae_query_type) ; findini:=Tinifile.Create(ExtractFilePath(application.ExeName)+'seaerpquery.ini'); try canload:=findini.ReadBool(mysec,mysec,false); bsSkinCheckRadioBox1.Checked:=canload ; if canload then begin with bsSkinGroupBox3 do for i:=0 to ControlCount-1 do begin tmpname:=Controls[i].Name ; if Controls[i] is TwwDBComboBox then (Controls[i] as TwwDBComboBox).Text:=findini.ReadString(mysec,TmpName,'') else if Controls[i] is TwwDBLookupCombo then (Controls[i] as TwwDBLookupCombo).Text:=findini.ReadString(mysec,TmpName,'') else if Controls[i] is TwwDBLookupCombo then (Controls[i] as TwwDBLookupCombo).Text:=findini.ReadString(mysec,TmpName,'') else if Controls[i] is TEdit then (Controls[i] as TEdit).Text:=findini.ReadString(mysec,TmpName,'') else if Controls[i] is TwwDBDateTimePicker then (Controls[i] as TwwDBDateTimePicker).Date:=strtodate(findini.ReadString(mysec,TmpName,'')) else if Controls[i] is TRxDBLookupCombo then (Controls[i] as TRxDBLookupCombo).Value:=findini.ReadString(mysec,TmpName,'') ; end ; with bsSkinGroupBox4 do for i:=0 to ControlCount-1 do begin tmpname:=Controls[i].Name ; if Controls[i] is TwwDBComboBox then (Controls[i] as TwwDBComboBox).Text:=findini.ReadString(mysec,TmpName,'') else if Controls[i] is TwwDBLookupCombo then (Controls[i] as TwwDBLookupCombo).Text:=findini.ReadString(mysec,TmpName,'') else if Controls[i] is TwwDBLookupCombo then (Controls[i] as TwwDBLookupCombo).Text:=findini.ReadString(mysec,TmpName,'') else if Controls[i] is TEdit then (Controls[i] as TEdit).Text:=findini.ReadString(mysec,TmpName,'') else if Controls[i] is TwwDBDateTimePicker then (Controls[i] as TwwDBDateTimePicker).Date:=strtodate(findini.ReadString(mysec,TmpName,'')) else if Controls[i] is TRxDBLookupCombo then (Controls[i] as TRxDBLookupCombo).Value:=findini.ReadString(mysec,TmpName,'') ; end ; end else begin wwDBComboBox15.text:='模糊'; wwDBComboBox16.text:='模糊'; wwDBComboBox33.text:='模糊'; wwDBComboBox34.text:='模糊'; wwDBComboBox4.text:='模糊'; wwDBComboBox5.text:='模糊'; wwDBComboBox35.text:='模糊'; wwDBComboBox36.text:='模糊'; wwDBComboBox37.text:='模糊'; wwDBComboBox43.text:='模糊'; wwDBComboBox44.text:='模糊'; wwDBComboBox17.text:='等于'; wwDBComboBox7.text:='等于'; wwDBComboBox18.text:='大于'; wwDBComboBox6.text:='小于'; wwDBComboBox11.text:='小于'; wwDBComboBox19.text:='大于'; wwDBComboBox10.text:='等于'; wwDBComboBox20.text:='等于'; wwDBComboBox21.text:='等于'; wwDBComboBox22.text:='等于'; wwDBComboBox23.text:='等于'; wwDBComboBox24.text:='等于'; wwDBComboBox25.text:='等于'; wwDBComboBox26.text:='模糊'; wwDBComboBox27.text:='模糊'; wwDBComboBox9.text:='等于'; wwDBComboBox8.text:='等于'; wwDBComboBox12.text:='等于'; wwDBComboBox13.text:='等于'; wwDBComboBox53.text:='等于'; wwDBComboBox14.text:='等于'; wwDBComboBox28.text:='等于'; wwDBComboBox29.text:='等于'; wwDBComboBox30.text:='等于'; wwDBComboBox32.text:='等于'; wwDBComboBox38.text:='等于'; wwDBComboBox13.text:='等于'; wwDBComboBox41.text:='等于'; wwDBComboBox30.text:='等于'; wwDBComboBox42.text:='等于'; wwDBComboBox45.text:='等于'; wwDBComboBox47.text:='等于'; wwDBComboBox48.text:='等于'; wwDBComboBox50.text:='等于'; wwDBComboBox51.text:='大于'; wwDBComboBox52.text:='小于'; end ; finally findini.free; end ; end; procedure Tfrm_rp_seae_query.writeFindIni; var findini:tinifile ; mysec,tmpname:string; canload:boolean ; //是否记忆 i:integer ; begin canload:=bsSkinCheckRadioBox1.Checked ; mysec:=inttostr(rp_seae_query_type) ; findini:=Tinifile.Create(ExtractFilePath(application.ExeName)+'seaerpquery.ini'); try findini.WriteBool(mysec,mysec,canload); if canload then begin with bsSkinGroupBox3 do for i:=0 to ControlCount-1 do begin tmpname:=Controls[i].Name ; if Controls[i] is TwwDBComboBox then findini.WriteString(mysec,TmpName,(Controls[i] as TwwDBComboBox).Text) else if Controls[i] is TwwDBLookupCombo then (Controls[i] as TwwDBLookupCombo).Text:=findini.ReadString(mysec,TmpName,'') else if Controls[i] is TEdit then findini.WriteString(mysec,TmpName,(Controls[i] as TEdit).Text) else if Controls[i] is TwwDBDateTimePicker then findini.WriteString(mysec,TmpName,datetostr((Controls[i] as TwwDBDateTimePicker).Date)) else if Controls[i] is TRxDBLookupCombo then findini.writeString(mysec,TmpName,(Controls[i] as TRxDBLookupCombo).Value) ; end ; with bsSkinGroupBox4 do for i:=0 to ControlCount-1 do begin tmpname:=Controls[i].Name ; if Controls[i] is TwwDBComboBox then findini.WriteString(mysec,TmpName,(Controls[i] as TwwDBComboBox).Text) else if Controls[i] is TwwDBLookupCombo then (Controls[i] as TwwDBLookupCombo).Text:=findini.ReadString(mysec,TmpName,'') else if Controls[i] is TEdit then findini.WriteString(mysec,TmpName,(Controls[i] as TEdit).Text) else if Controls[i] is TwwDBDateTimePicker then findini.WriteString(mysec,TmpName,datetostr((Controls[i] as TwwDBDateTimePicker).Date)) else if Controls[i] is TRxDBLookupCombo then findini.writeString(mysec,TmpName,(Controls[i] as TRxDBLookupCombo).Value) ; end ; end ; finally findini.free; end ; end; end.