You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

1366 lines
60 KiB
Plaintext

This file contains ambiguous Unicode characters!

This file contains ambiguous Unicode characters that may be confused with others in your current locale. If your use case is intentional and legitimate, you can safely ignore this warning. Use the Escape button to highlight these characters.

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.<2E><><EFBFBD><EFBFBD>, t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,SUM(case t_ch_fee.<2E>ұ<EFBFBD>'
+' when '+''''+'USD'+''''+' then t_ch_fee.<2E><><EFBFBD><EFBFBD> else 0 end) as Ӧ<><D3A6>USD,'
+'SUM(case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''+' then t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>'
+' else 0 end) as <20>ѿ<EFBFBD>USD,SUM(case t_ch_fee.<2E>ұ<EFBFBD>'
+' when '+''''+'USD'+''''+' then t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>'
+' else 0 end) as δ<><CEB4>USD,SUM(case t_ch_fee.<2E>ұ<EFBFBD>'
+' when '+''''+'USD'+''''+' then 0 else t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>'
+' end) as Ӧ<><D3A6>RMB,SUM(case t_ch_fee.<2E>ұ<EFBFBD>'
+' when '+''''+'USD'+''''+' then 0 else t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>'
+' end) as <20>ѿ<EFBFBD>RMB,SUM(case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''+' then 0'
+' else (t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD>'
+' end) as δ<><CEB4>RMB,sum(t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>) as Ӧ<><D3A6><EFBFBD>ϼ<EFBFBD>,'
+' sum(t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>) as <20>ѿ<EFBFBD><D1BF>ϼ<EFBFBD>,'
+' sum((t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD>) as δ<><CEB4><EFBFBD>ϼ<EFBFBD>,'
+'t_op_seae.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, t_op_seae.<2E>ܴ<EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD><E1B5A5>,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD><E1B5A5>, t_op_seae.ί<>б<EFBFBD><D0B1><EFBFBD>, t_op_seae.װ<>˷<EFBFBD>ʽ,'
+'t_op_seae.ί<>е<EFBFBD>λ, t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><>վ,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'t_op_seae.װ<><D7B0><EFBFBD><EFBFBD>, t_op_seae.ж<><D0B6><EFBFBD><EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><>װ, t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD>,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>1, t_op_seae.<2E><><EFBFBD><EFBFBD>2, t_op_seae.<2E><><EFBFBD><EFBFBD>3,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>4, t_op_seae.<2E><><EFBFBD><EFBFBD>5, t_op_seae.<2E><><EFBFBD><EFBFBD>6,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>7, t_op_seae.<2E><><EFBFBD><EFBFBD>8, t_op_seae.<2E><><EFBFBD><EFBFBD>9,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>10, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'t_op_seae.<2E><>TEU, t_op_seae.<2E><>װ<EFBFBD><D7B0>, t_op_seae.<2E><><EFBFBD><EFBFBD>Ա,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, t_op_seae.<2E>ͷ<EFBFBD>Ա, t_op_seae.<2E><><EFBFBD><EFBFBD>,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>˾, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'t_op_seae.<2E><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>'
+' FROM t_ch_fee inner join t_op_seae on t_op_seae.<2E><><EFBFBD><EFBFBD>=t_ch_fee.<2E><><EFBFBD><EFBFBD> '
+str_bill+' and t_ch_fee.<2E><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''
+' GROUP BY t_ch_fee.<2E><><EFBFBD><EFBFBD>, t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,'
+'t_op_seae.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, t_op_seae.<2E>ܴ<EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD><E1B5A5>,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD><E1B5A5>, t_op_seae.ί<>б<EFBFBD><D0B1><EFBFBD>, t_op_seae.װ<>˷<EFBFBD>ʽ,'
+'t_op_seae.ί<>е<EFBFBD>λ, t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><>վ,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'t_op_seae.װ<><D7B0><EFBFBD><EFBFBD>, t_op_seae.ж<><D0B6><EFBFBD><EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><>װ, t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD>,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>1, t_op_seae.<2E><><EFBFBD><EFBFBD>2, t_op_seae.<2E><><EFBFBD><EFBFBD>3,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>4, t_op_seae.<2E><><EFBFBD><EFBFBD>5, t_op_seae.<2E><><EFBFBD><EFBFBD>6,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>7, t_op_seae.<2E><><EFBFBD><EFBFBD>8, t_op_seae.<2E><><EFBFBD><EFBFBD>9,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>10,t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'t_op_seae.<2E><>TEU, t_op_seae.<2E><>װ<EFBFBD><D7B0>, t_op_seae.<2E><><EFBFBD><EFBFBD>Ա,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, t_op_seae.<2E>ͷ<EFBFBD>Ա, t_op_seae.<2E><><EFBFBD><EFBFBD>,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>˾, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'t_op_seae.<2E><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD> '
+default_sort_two(53,'t_op_seae','t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>','','');
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.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,SUM(case t_ch_fee.<2E>ұ<EFBFBD>'
+' when '+''''+'USD'+''''+' then t_ch_fee.<2E><><EFBFBD><EFBFBD> else 0 end) as Ӧ<><D3A6>USD,'
+'SUM(case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''+' then t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>'
+' else 0 end) as <20>ѿ<EFBFBD>USD,SUM(case t_ch_fee.<2E>ұ<EFBFBD>'
+' when '+''''+'USD'+''''+' then t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>'
+' else 0 end) as δ<><CEB4>USD,SUM(case t_ch_fee.<2E>ұ<EFBFBD>'
+' when '+''''+'USD'+''''+' then 0 else t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>'
+' end) as Ӧ<><D3A6>RMB,SUM(case t_ch_fee.<2E>ұ<EFBFBD>'
+' when '+''''+'USD'+''''+' then 0 else t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>'
+' end) as <20>ѿ<EFBFBD>RMB,SUM(case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''+' then 0'
+' else (t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD>'
+' end) as δ<><CEB4>RMB,sum(t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>) as Ӧ<><D3A6><EFBFBD>ϼ<EFBFBD>,'
+' sum(t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>) as <20>ѿ<EFBFBD><D1BF>ϼ<EFBFBD>,'
+' sum((t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD>) as δ<><CEB4><EFBFBD>ϼ<EFBFBD>'
+' FROM t_ch_fee inner join t_op_seae on t_op_seae.<2E><><EFBFBD><EFBFBD>=t_ch_fee.<2E><><EFBFBD><EFBFBD> '
+str_bill+' and t_ch_fee.<2E><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''
+' GROUP BY t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>'
+' order by t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>';
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.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,SUM(case t_ch_fee.<2E>ұ<EFBFBD>'
+' when '+''''+'USD'+''''+' then t_ch_fee.<2E><><EFBFBD><EFBFBD> else 0 end) as Ӧ<><D3A6>USD,'
+'SUM(case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''+' then t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>'
+' else 0 end) as <20>ѿ<EFBFBD>USD,SUM(case t_ch_fee.<2E>ұ<EFBFBD>'
+' when '+''''+'USD'+''''+' then t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>'
+' else 0 end) as δ<><CEB4>USD,SUM(case t_ch_fee.<2E>ұ<EFBFBD>'
+' when '+''''+'USD'+''''+' then 0 else t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>'
+' end) as Ӧ<><D3A6>RMB,SUM(case t_ch_fee.<2E>ұ<EFBFBD>'
+' when '+''''+'USD'+''''+' then 0 else t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>'
+' end) as <20>ѿ<EFBFBD>RMB,SUM(case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''+' then 0'
+' else (t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD>'
+' end) as δ<><CEB4>RMB,sum(t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>) as Ӧ<><D3A6><EFBFBD>ϼ<EFBFBD>,'
+' sum(t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>) as <20>ѿ<EFBFBD><D1BF>ϼ<EFBFBD>,'
+' sum((t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD>) as δ<><CEB4><EFBFBD>ϼ<EFBFBD>'
+' FROM t_ch_fee inner join t_op_seae on t_op_seae.<2E><><EFBFBD><EFBFBD>=t_ch_fee.<2E><><EFBFBD><EFBFBD> '
+str_bill+' and t_ch_fee.<2E><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''
+' GROUP BY t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
+' order by t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
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.<2E><><EFBFBD><EFBFBD>, t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,SUM(case t_ch_fee.<2E>ұ<EFBFBD>'
+' when '+''''+'USD'+''''+' then t_ch_fee.<2E><><EFBFBD><EFBFBD> else 0 end) as Ӧ<><D3A6>USD,'
+'SUM(case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''+' then t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
+' else 0 end) as <20><><EFBFBD><EFBFBD>USD,SUM(case t_ch_fee.<2E>ұ<EFBFBD>'
+' when '+''''+'USD'+''''+' then t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
+' else 0 end) as δ<><CEB4>USD,SUM(case t_ch_fee.<2E>ұ<EFBFBD>'
+' when '+''''+'USD'+''''+' then 0 else t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>'
+' end) as Ӧ<><D3A6>RMB,SUM(case t_ch_fee.<2E>ұ<EFBFBD>'
+' when '+''''+'USD'+''''+' then 0 else t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>'
+' end) as <20><><EFBFBD><EFBFBD>RMB,SUM(case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''+' then 0'
+' else (t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD>'
+' end) as δ<><CEB4>RMB,sum(t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>) as Ӧ<>պϼ<D5BA>,'
+' sum(t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>) as <20><><EFBFBD>պϼ<D5BA>,'
+' sum((t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD>) as δ<>պϼ<D5BA>,'
+'t_op_seae.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, t_op_seae.<2E>ܴ<EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD><E1B5A5>,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD><E1B5A5>, t_op_seae.ί<>б<EFBFBD><D0B1><EFBFBD>, t_op_seae.װ<>˷<EFBFBD>ʽ,'
+'t_op_seae.ί<>е<EFBFBD>λ, t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><>վ,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'t_op_seae.װ<><D7B0><EFBFBD><EFBFBD>, t_op_seae.ж<><D0B6><EFBFBD><EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><>װ, t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD>,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>1, t_op_seae.<2E><><EFBFBD><EFBFBD>2, t_op_seae.<2E><><EFBFBD><EFBFBD>3,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>4, t_op_seae.<2E><><EFBFBD><EFBFBD>5, t_op_seae.<2E><><EFBFBD><EFBFBD>6,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>7, t_op_seae.<2E><><EFBFBD><EFBFBD>8, t_op_seae.<2E><><EFBFBD><EFBFBD>9,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>10, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'t_op_seae.<2E><>TEU, t_op_seae.<2E><>װ<EFBFBD><D7B0>, t_op_seae.<2E><><EFBFBD><EFBFBD>Ա,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, t_op_seae.<2E>ͷ<EFBFBD>Ա, t_op_seae.<2E><><EFBFBD><EFBFBD>,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>˾, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,t_op_seae.<2E><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>,t_op_seae.<2E><><EFBFBD><EFBFBD><ECB5A5>,'
+'(case when round((case when t_op_seae.<2E><><EFBFBD><EFBFBD>/1000>t_op_seae.<2E><><EFBFBD><EFBFBD> then t_op_seae.<2E><><EFBFBD><EFBFBD>/1000 '
+'else t_op_seae.<2E><><EFBFBD><EFBFBD> end),4)>1 then '
+'round((case when t_op_seae.<2E><><EFBFBD><EFBFBD>/1000>t_op_seae.<2E><><EFBFBD><EFBFBD> then t_op_seae.<2E><><EFBFBD><EFBFBD>/1000 else '
+'t_op_seae.<2E><><EFBFBD><EFBFBD> end),4) else '
+'1 end) as <20>ƷѶ<C6B7>,DATEDIFF([day],t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>, GETDATE()) AS <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'t_op_seae.<2E><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>, DATEDIFF([day],t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, GETDATE()) AS ʵ<><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'isnull(t_crm_client.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,0) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'(DATEDIFF([day],t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, GETDATE())-isnull(t_crm_client.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,0)) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
+' FROM t_ch_fee inner join t_op_seae on t_op_seae.<2E><><EFBFBD><EFBFBD>=t_ch_fee.<2E><><EFBFBD><EFBFBD> left join t_crm_client '
+' on t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>=t_crm_client.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> '
+str_bill+' and t_ch_fee.<2E><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''
+' GROUP BY t_ch_fee.<2E><><EFBFBD><EFBFBD>, t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,'
+'t_op_seae.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, t_op_seae.<2E>ܴ<EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD><E1B5A5>,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD><E1B5A5>, t_op_seae.ί<>б<EFBFBD><D0B1><EFBFBD>, t_op_seae.װ<>˷<EFBFBD>ʽ,'
+'t_op_seae.ί<>е<EFBFBD>λ, t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><>վ,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'t_op_seae.װ<><D7B0><EFBFBD><EFBFBD>, t_op_seae.ж<><D0B6><EFBFBD><EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><>װ, t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD>,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>1, t_op_seae.<2E><><EFBFBD><EFBFBD>2, t_op_seae.<2E><><EFBFBD><EFBFBD>3,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>4, t_op_seae.<2E><><EFBFBD><EFBFBD>5, t_op_seae.<2E><><EFBFBD><EFBFBD>6,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>7, t_op_seae.<2E><><EFBFBD><EFBFBD>8, t_op_seae.<2E><><EFBFBD><EFBFBD>9,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>10,t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'t_op_seae.<2E><>TEU, t_op_seae.<2E><>װ<EFBFBD><D7B0>, t_op_seae.<2E><><EFBFBD><EFBFBD>Ա,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, t_op_seae.<2E>ͷ<EFBFBD>Ա, t_op_seae.<2E><><EFBFBD><EFBFBD>,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>˾, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,t_op_seae.<2E><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>,t_op_seae.<2E><><EFBFBD><EFBFBD><ECB5A5>,'
+'(case when round((case when t_op_seae.<2E><><EFBFBD><EFBFBD>/1000>t_op_seae.<2E><><EFBFBD><EFBFBD> then t_op_seae.<2E><><EFBFBD><EFBFBD>/1000 '
+'else t_op_seae.<2E><><EFBFBD><EFBFBD> end),4)>1 then '
+'round((case when t_op_seae.<2E><><EFBFBD><EFBFBD>/1000>t_op_seae.<2E><><EFBFBD><EFBFBD> then t_op_seae.<2E><><EFBFBD><EFBFBD>/1000 else '
+'t_op_seae.<2E><><EFBFBD><EFBFBD> end),4) else '
+'1 end),DATEDIFF([day],t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>, GETDATE()),'
+'t_op_seae.<2E><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>, DATEDIFF([day],t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, GETDATE()),'
+'isnull(t_crm_client.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,0),'
+'(DATEDIFF([day],t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, GETDATE())-isnull(t_crm_client.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,0))'
+default_sort_two(53,'t_op_seae','t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>','','');
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.<2E><><EFBFBD><EFBFBD>, t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>, t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,t_ch_fee.<2E>ұ<EFBFBD>,t_ch_fee.<2E><><EFBFBD><EFBFBD> as Ӧ<>ս<EFBFBD><D5BD><EFBFBD>,'
+'t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> as <20><><EFBFBD>ս<EFBFBD><D5BD><EFBFBD>,(t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) as δ<>ս<EFBFBD><D5BD><EFBFBD>,'
+'t_ch_fee.<2E><>׼ as <20><>׼,t_ch_fee.<2E><><EFBFBD><EFBFBD> as <20><><EFBFBD><EFBFBD>,t_ch_fee.<2E><><EFBFBD><EFBFBD> as <20><><EFBFBD><EFBFBD>,t_ch_fee.<2E><>ע as <20><><EFBFBD>ñ<EFBFBD>ע,'
+'t_op_seae.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, t_op_seae.<2E>ܴ<EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD><E1B5A5>,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD><E1B5A5>, t_op_seae.ί<>б<EFBFBD><D0B1><EFBFBD>, t_op_seae.װ<>˷<EFBFBD>ʽ,'
+'t_op_seae.ί<>е<EFBFBD>λ, t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><>վ,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'t_op_seae.װ<><D7B0><EFBFBD><EFBFBD>, t_op_seae.ж<><D0B6><EFBFBD><EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><>װ, t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD>,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>1, t_op_seae.<2E><><EFBFBD><EFBFBD>2, t_op_seae.<2E><><EFBFBD><EFBFBD>3,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>4, t_op_seae.<2E><><EFBFBD><EFBFBD>5, t_op_seae.<2E><><EFBFBD><EFBFBD>6,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>7, t_op_seae.<2E><><EFBFBD><EFBFBD>8, t_op_seae.<2E><><EFBFBD><EFBFBD>9,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>10,t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'t_op_seae.<2E><>TEU, t_op_seae.<2E><>װ<EFBFBD><D7B0>, t_op_seae.<2E><><EFBFBD><EFBFBD>Ա,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, t_op_seae.<2E>ͷ<EFBFBD>Ա, t_op_seae.<2E><><EFBFBD><EFBFBD>,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>˾, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,t_op_seae.<2E><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>,t_op_seae.<2E><><EFBFBD><EFBFBD><ECB5A5>,'
+'(case when round((case when t_op_seae.<2E><><EFBFBD><EFBFBD>/1000>t_op_seae.<2E><><EFBFBD><EFBFBD> then t_op_seae.<2E><><EFBFBD><EFBFBD>/1000 '
+'else t_op_seae.<2E><><EFBFBD><EFBFBD> end),4)>1 then '
+'round((case when t_op_seae.<2E><><EFBFBD><EFBFBD>/1000>t_op_seae.<2E><><EFBFBD><EFBFBD> then t_op_seae.<2E><><EFBFBD><EFBFBD>/1000 else '
+'t_op_seae.<2E><><EFBFBD><EFBFBD> end),4) else '
+'1 end) as <20>ƷѶ<C6B7>,'
+'t_op_seae.<2E><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD> FROM t_ch_fee inner join t_op_seae on t_op_seae.<2E><><EFBFBD><EFBFBD>=t_ch_fee.<2E><><EFBFBD><EFBFBD> '
+str_bill+' and t_ch_fee.<2E><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''
+default_sort_two(53,'t_op_seae','t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>','','');
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.<2E><><EFBFBD><EFBFBD>, t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,SUM(case t_ch_fee.<2E>ұ<EFBFBD>'
+' when '+''''+'USD'+''''+' then t_ch_fee.<2E><><EFBFBD><EFBFBD> else 0 end) as Ӧ<><D3A6>USD,'
+'SUM(case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''+' then t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
+' else 0 end) as <20>Ѹ<EFBFBD>USD,SUM(case t_ch_fee.<2E>ұ<EFBFBD>'
+' when '+''''+'USD'+''''+' then t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
+' else 0 end) as δ<><CEB4>USD,SUM(case t_ch_fee.<2E>ұ<EFBFBD>'
+' when '+''''+'USD'+''''+' then 0 else t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>'
+' end) as Ӧ<><D3A6>RMB,SUM(case t_ch_fee.<2E>ұ<EFBFBD>'
+' when '+''''+'USD'+''''+' then 0 else t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>'
+' end) as <20>Ѹ<EFBFBD>RMB,SUM(case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''+' then 0'
+' else (t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD>'
+' end) as δ<><CEB4>RMB,sum(t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>) as Ӧ<><D3A6><EFBFBD>ϼ<EFBFBD>,'
+' sum(t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>) as <20>Ѹ<EFBFBD><D1B8>ϼ<EFBFBD>,'
+' sum((t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD>) as δ<><CEB4><EFBFBD>ϼ<EFBFBD>,'
+'t_op_seae.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, t_op_seae.<2E>ܴ<EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD><E1B5A5>,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD><E1B5A5>, t_op_seae.ί<>б<EFBFBD><D0B1><EFBFBD>, t_op_seae.װ<>˷<EFBFBD>ʽ,'
+'t_op_seae.ί<>е<EFBFBD>λ, t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><>վ,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'t_op_seae.װ<><D7B0><EFBFBD><EFBFBD>, t_op_seae.ж<><D0B6><EFBFBD><EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><>װ, t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD>,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>1, t_op_seae.<2E><><EFBFBD><EFBFBD>2, t_op_seae.<2E><><EFBFBD><EFBFBD>3,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>4, t_op_seae.<2E><><EFBFBD><EFBFBD>5, t_op_seae.<2E><><EFBFBD><EFBFBD>6,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>7, t_op_seae.<2E><><EFBFBD><EFBFBD>8, t_op_seae.<2E><><EFBFBD><EFBFBD>9,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>10,t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'t_op_seae.<2E><>TEU, t_op_seae.<2E><>װ<EFBFBD><D7B0>, t_op_seae.<2E><><EFBFBD><EFBFBD>Ա,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, t_op_seae.<2E>ͷ<EFBFBD>Ա, t_op_seae.<2E><><EFBFBD><EFBFBD>,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>˾, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,t_op_seae.<2E><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>,t_op_seae.<2E><><EFBFBD><EFBFBD><ECB5A5>,'
+'(case when round((case when t_op_seae.<2E><><EFBFBD><EFBFBD>/1000>t_op_seae.<2E><><EFBFBD><EFBFBD> then t_op_seae.<2E><><EFBFBD><EFBFBD>/1000 '
+'else t_op_seae.<2E><><EFBFBD><EFBFBD> end),4)>1 then '
+'round((case when t_op_seae.<2E><><EFBFBD><EFBFBD>/1000>t_op_seae.<2E><><EFBFBD><EFBFBD> then t_op_seae.<2E><><EFBFBD><EFBFBD>/1000 else '
+'t_op_seae.<2E><><EFBFBD><EFBFBD> end),4) else '
+'1 end) as <20>ƷѶ<C6B7>,'
+'t_op_seae.<2E><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>'
+' FROM t_ch_fee inner join t_op_seae on t_op_seae.<2E><><EFBFBD><EFBFBD>=t_ch_fee.<2E><><EFBFBD><EFBFBD> '
+str_bill+' and t_ch_fee.<2E><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''
+' GROUP BY t_ch_fee.<2E><><EFBFBD><EFBFBD>, t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,'
+'t_op_seae.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, t_op_seae.<2E>ܴ<EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD><E1B5A5>,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD><E1B5A5>, t_op_seae.ί<>б<EFBFBD><D0B1><EFBFBD>, t_op_seae.װ<>˷<EFBFBD>ʽ,'
+'t_op_seae.ί<>е<EFBFBD>λ, t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><>վ,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'t_op_seae.װ<><D7B0><EFBFBD><EFBFBD>, t_op_seae.ж<><D0B6><EFBFBD><EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><>װ, t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD>,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>1, t_op_seae.<2E><><EFBFBD><EFBFBD>2, t_op_seae.<2E><><EFBFBD><EFBFBD>3,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>4, t_op_seae.<2E><><EFBFBD><EFBFBD>5, t_op_seae.<2E><><EFBFBD><EFBFBD>6,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>7, t_op_seae.<2E><><EFBFBD><EFBFBD>8, t_op_seae.<2E><><EFBFBD><EFBFBD>9,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>10, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'t_op_seae.<2E><>TEU, t_op_seae.<2E><>װ<EFBFBD><D7B0>, t_op_seae.<2E><><EFBFBD><EFBFBD>Ա,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, t_op_seae.<2E>ͷ<EFBFBD>Ա, t_op_seae.<2E><><EFBFBD><EFBFBD>,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>˾, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,t_op_seae.<2E><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>,t_op_seae.<2E><><EFBFBD><EFBFBD><ECB5A5>,'
+'(case when round((case when t_op_seae.<2E><><EFBFBD><EFBFBD>/1000>t_op_seae.<2E><><EFBFBD><EFBFBD> then t_op_seae.<2E><><EFBFBD><EFBFBD>/1000 '
+'else t_op_seae.<2E><><EFBFBD><EFBFBD> end),4)>1 then '
+'round((case when t_op_seae.<2E><><EFBFBD><EFBFBD>/1000>t_op_seae.<2E><><EFBFBD><EFBFBD> then t_op_seae.<2E><><EFBFBD><EFBFBD>/1000 else '
+'t_op_seae.<2E><><EFBFBD><EFBFBD> end),4) else '
+'1 end),'
+'t_op_seae.<2E><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD> '
+default_sort_two(53,'t_op_seae','t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>','','');
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.<2E><><EFBFBD><EFBFBD>, t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>, t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,t_ch_fee.<2E>ұ<EFBFBD>,t_ch_fee.<2E><><EFBFBD><EFBFBD> as Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> as <20>Ѹ<EFBFBD><D1B8><EFBFBD><EFBFBD><EFBFBD>,(t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) as δ<><CEB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'t_ch_fee.<2E><>׼ as <20><>׼,t_ch_fee.<2E><><EFBFBD><EFBFBD> as <20><><EFBFBD><EFBFBD>,t_ch_fee.<2E><><EFBFBD><EFBFBD> as <20><><EFBFBD><EFBFBD>,t_ch_fee.<2E><>ע as <20><><EFBFBD>ñ<EFBFBD>ע,'
+'t_op_seae.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, t_op_seae.<2E>ܴ<EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD><E1B5A5>,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD><E1B5A5>, t_op_seae.ί<>б<EFBFBD><D0B1><EFBFBD>, t_op_seae.װ<>˷<EFBFBD>ʽ,'
+'t_op_seae.ί<>е<EFBFBD>λ, t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><>վ,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'t_op_seae.װ<><D7B0><EFBFBD><EFBFBD>, t_op_seae.ж<><D0B6><EFBFBD><EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><>װ, t_op_seae.<2E><><EFBFBD><EFBFBD>, t_op_seae.<2E><><EFBFBD><EFBFBD>,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>1, t_op_seae.<2E><><EFBFBD><EFBFBD>2, t_op_seae.<2E><><EFBFBD><EFBFBD>3,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>4, t_op_seae.<2E><><EFBFBD><EFBFBD>5, t_op_seae.<2E><><EFBFBD><EFBFBD>6,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>7, t_op_seae.<2E><><EFBFBD><EFBFBD>8, t_op_seae.<2E><><EFBFBD><EFBFBD>9,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>10, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'t_op_seae.<2E><>TEU, t_op_seae.<2E><>װ<EFBFBD><D7B0>, t_op_seae.<2E><><EFBFBD><EFBFBD>Ա,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, t_op_seae.<2E>ͷ<EFBFBD>Ա, t_op_seae.<2E><><EFBFBD><EFBFBD>,'
+'t_op_seae.<2E><><EFBFBD><EFBFBD>˾, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾, t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,t_op_seae.<2E><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>,t_op_seae.<2E><><EFBFBD><EFBFBD><ECB5A5>,'
+'(case when round((case when t_op_seae.<2E><><EFBFBD><EFBFBD>/1000>t_op_seae.<2E><><EFBFBD><EFBFBD> then t_op_seae.<2E><><EFBFBD><EFBFBD>/1000 '
+'else t_op_seae.<2E><><EFBFBD><EFBFBD> end),4)>1 then '
+'round((case when t_op_seae.<2E><><EFBFBD><EFBFBD>/1000>t_op_seae.<2E><><EFBFBD><EFBFBD> then t_op_seae.<2E><><EFBFBD><EFBFBD>/1000 else '
+'t_op_seae.<2E><><EFBFBD><EFBFBD> end),4) else '
+'1 end) as <20>ƷѶ<C6B7>,'
+'t_op_seae.<2E><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD> FROM t_ch_fee inner join t_op_seae on t_op_seae.<2E><><EFBFBD><EFBFBD>=t_ch_fee.<2E><><EFBFBD><EFBFBD> '
+str_bill+' and t_ch_fee.<2E><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''
+default_sort_two(53,'t_op_seae','t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>','','');
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.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then t_ch_fee.<2E><><EFBFBD><EFBFBD> else 0 end) ELSE 0 END) as Ӧ<><D3A6>USD,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> else 0 end) ELSE 0 END) as <20><><EFBFBD><EFBFBD>USD,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> else 0 end) ELSE 0 END) as δ<><CEB4>USD,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then 0 else t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD> end) ELSE 0 END) as Ӧ<><D3A6>RMB,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then 0 else t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD> end) ELSE 0 END) as <20><><EFBFBD><EFBFBD>RMB,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then 0 else (t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> end) ELSE 0 END) as δ<><CEB4>RMB,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD> ELSE 0 END) as Ӧ<>պϼ<D5BA>,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD> ELSE 0 END) as <20><><EFBFBD>պϼ<D5BA>,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> ELSE 0 END) as δ<>պϼ<D5BA>,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then t_ch_fee.<2E><><EFBFBD><EFBFBD> else 0 end) ELSE 0 END) as Ӧ<><D3A6>USD,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> else 0 end) ELSE 0 END) as <20>Ѹ<EFBFBD>USD,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> else 0 end) ELSE 0 END) as δ<><CEB4>USD,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then 0 else t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD> end) ELSE 0 END) as Ӧ<><D3A6>RMB,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then 0 else t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD> end) ELSE 0 END) as <20>Ѹ<EFBFBD>RMB,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then 0 else (t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> end) ELSE 0 END) as δ<><CEB4>RMB,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD> ELSE 0 END) as Ӧ<><D3A6><EFBFBD>ϼ<EFBFBD>,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD> ELSE 0 END) as <20>Ѹ<EFBFBD><D1B8>ϼ<EFBFBD>,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> ELSE 0 END) as δ<><CEB4><EFBFBD>ϼ<EFBFBD>,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> else 0 end) ELSE 0 END'
+'-CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> else 0 end) ELSE 0 END) as <20><><EFBFBD><EFBFBD>USD,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then 0 else (t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> end) ELSE 0 END'
+'-CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then 0 else (t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> end) ELSE 0 END) as <20><><EFBFBD><EFBFBD>RMB,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> ELSE 0 END'
+'-CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*<2A><><EFBFBD><EFBFBD> ELSE 0 END) as <20><><EFBFBD><EFBFBD><EFBFBD>ϼ<EFBFBD>'
+' FROM t_ch_fee inner join t_op_seae on t_op_seae.<2E><><EFBFBD><EFBFBD>=t_ch_fee.<2E><><EFBFBD><EFBFBD> '
+str_bill+' GROUP BY t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> order by t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>';
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.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then t_ch_fee.<2E><><EFBFBD><EFBFBD> else 0 end) ELSE 0 END) as Ӧ<><D3A6>USD,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> else 0 end) ELSE 0 END) as <20><><EFBFBD><EFBFBD>USD,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> else 0 end) ELSE 0 END) as δ<><CEB4>USD,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then 0 else t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD> end) ELSE 0 END) as Ӧ<><D3A6>RMB,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then 0 else t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD> end) ELSE 0 END) as <20><><EFBFBD><EFBFBD>RMB,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then 0 else (t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> end) ELSE 0 END) as δ<><CEB4>RMB,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD> ELSE 0 END) as Ӧ<>պϼ<D5BA>,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD> ELSE 0 END) as <20><><EFBFBD>պϼ<D5BA>,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> ELSE 0 END) as δ<>պϼ<D5BA>,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then t_ch_fee.<2E><><EFBFBD><EFBFBD> else 0 end) ELSE 0 END) as Ӧ<><D3A6>USD,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> else 0 end) ELSE 0 END) as <20>Ѹ<EFBFBD>USD,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> else 0 end) ELSE 0 END) as δ<><CEB4>USD,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then 0 else t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD> end) ELSE 0 END) as Ӧ<><D3A6>RMB,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then 0 else t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD> end) ELSE 0 END) as <20>Ѹ<EFBFBD>RMB,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then 0 else (t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> end) ELSE 0 END) as δ<><CEB4>RMB,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD> ELSE 0 END) as Ӧ<><D3A6><EFBFBD>ϼ<EFBFBD>,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD> ELSE 0 END) as <20>Ѹ<EFBFBD><D1B8>ϼ<EFBFBD>,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> ELSE 0 END) as δ<><CEB4><EFBFBD>ϼ<EFBFBD>,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> else 0 end) ELSE 0 END'
+'-CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> else 0 end) ELSE 0 END) as <20><><EFBFBD><EFBFBD>USD,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then 0 else (t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> end) ELSE 0 END'
+'-CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then 0 else (t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> end) ELSE 0 END) as <20><><EFBFBD><EFBFBD>RMB,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> ELSE 0 END'
+'-CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*<2A><><EFBFBD><EFBFBD> ELSE 0 END) as <20><><EFBFBD><EFBFBD><EFBFBD>ϼ<EFBFBD>'
+' FROM t_ch_fee inner join t_op_seae on t_op_seae.<2E><><EFBFBD><EFBFBD>=t_ch_fee.<2E><><EFBFBD><EFBFBD> '
+str_bill+' GROUP BY t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> order by t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
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 '+''''+'<27>ϼ<EFBFBD>'+''''+' as ˳<><CBB3>,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then t_ch_fee.<2E><><EFBFBD><EFBFBD> else 0 end) ELSE 0 END) as Ӧ<><D3A6>USD,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> else 0 end) ELSE 0 END) as <20><><EFBFBD><EFBFBD>USD,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> else 0 end) ELSE 0 END) as δ<><CEB4>USD,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then 0 else t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD> end) ELSE 0 END) as Ӧ<><D3A6>RMB,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then 0 else t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD> end) ELSE 0 END) as <20><><EFBFBD><EFBFBD>RMB,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then 0 else (t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> end) ELSE 0 END) as δ<><CEB4>RMB,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD> ELSE 0 END) as Ӧ<>պϼ<D5BA>,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD> ELSE 0 END) as <20><><EFBFBD>պϼ<D5BA>,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> ELSE 0 END) as δ<>պϼ<D5BA>,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then t_ch_fee.<2E><><EFBFBD><EFBFBD> else 0 end) ELSE 0 END) as Ӧ<><D3A6>USD,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> else 0 end) ELSE 0 END) as <20>Ѹ<EFBFBD>USD,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> else 0 end) ELSE 0 END) as δ<><CEB4>USD,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then 0 else t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD> end) ELSE 0 END) as Ӧ<><D3A6>RMB,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then 0 else t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD> end) ELSE 0 END) as <20>Ѹ<EFBFBD>RMB,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then 0 else (t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> end) ELSE 0 END) as δ<><CEB4>RMB,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD> ELSE 0 END) as Ӧ<><D3A6><EFBFBD>ϼ<EFBFBD>,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD> ELSE 0 END) as <20>Ѹ<EFBFBD><D1B8>ϼ<EFBFBD>,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> ELSE 0 END) as δ<><CEB4><EFBFBD>ϼ<EFBFBD>,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> else 0 end) ELSE 0 END'
+'-CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> else 0 end) ELSE 0 END) as <20><><EFBFBD><EFBFBD>USD,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then 0 else (t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> end) ELSE 0 END'
+'-CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''
+' then 0 else (t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> end) ELSE 0 END) as <20><><EFBFBD><EFBFBD>RMB,'
+'SUM(CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> ELSE 0 END'
+'-CASE t_ch_fee.<2E><><EFBFBD><EFBFBD> WHEN '+''''+'<27><>'+''''
+' THEN (t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*<2A><><EFBFBD><EFBFBD> ELSE 0 END) as <20><><EFBFBD><EFBFBD><EFBFBD>ϼ<EFBFBD>'
+' FROM t_ch_fee inner join t_op_seae on t_op_seae.<2E><><EFBFBD><EFBFBD>=t_ch_fee.<2E><><EFBFBD><EFBFBD> '
+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:='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>'+'''';
frm_data_share.t_code_state.Filtered:=true;
frm_data_share.t_code_fee.Filtered:=false;
frm_data_share.t_code_fee.Filter:='<27><><EFBFBD><EFBFBD>=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('ҵ<><D2B5>״̬').asstring);
frm_data_share.t_code_state.next;
end;
wwDBComboBox1.Items.Add('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
t_sys_queryfields.open;
t_sys_query.Parameters.ParamByName('<27><>ѯ<EFBFBD><D1AF><EFBFBD><EFBFBD>').Value:=rp_seae_query_str;
t_sys_query.Parameters.ParamByName('¼<><C2BC><EFBFBD><EFBFBD>').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.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox15.text,Edit1.text);
str_bill:=query_tiaojian(1,str_bill,'t_op_seae.ί<>б<EFBFBD><D0B1><EFBFBD>',wwDBComboBox4.text,Edit4.text);
str_bill:=query_tiaojian(1,str_bill,'t_op_seae.<2E><><EFBFBD><EFBFBD><E1B5A5>',wwDBComboBox16.text,Edit2.text);
str_bill:=query_tiaojian(1,str_bill,'t_op_seae.<2E><><EFBFBD><EFBFBD><E1B5A5>',wwDBComboBox5.text,Edit3.text);
str_bill:=query_tiaojian(1,str_bill,'t_op_seae.<2E><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>',wwDBComboBox43.text,Edit10.text);
str_bill:=query_tiaojian(1,str_bill,'t_op_seae.<2E><><EFBFBD><EFBFBD><ECB5A5>',wwDBComboBox44.text,Edit11.text);
str_bill:=query_tiaojian(1,str_bill,'t_op_seae.<2E><>Ʊ<EFBFBD><C6B1>',wwDBComboBox33.text,Edit5.text);
str_bill:=query_tiaojian(1,str_bill,'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox34.text,Edit6.text);
str_bill:=query_tiaojian(1,str_bill,'t_op_seae.ҵ<><D2B5>״̬',wwDBComboBox17.text,wwDBComboBox1.text);
str_bill:=query_tiaojian(1,str_bill,'t_op_seae.<2E><><EFBFBD><EFBFBD>״̬',wwDBComboBox7.text,wwDBComboBox2.text);
str_bill:=query_tiaojian(1,str_bill,'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox18.text,wwDBDateTimePicker1.text);
str_bill:=query_tiaojian(1,str_bill,'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox6.text,wwDBDateTimePicker2.text);
str_bill:=query_tiaojian(1,str_bill,'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>',wwDBComboBox19.text,wwDBDateTimePicker3.text);
str_bill:=query_tiaojian(1,str_bill,'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>',wwDBComboBox11.text,wwDBDateTimePicker4.text);
str_bill:=query_tiaojian(1,str_bill,'t_op_seae.װ<>˷<EFBFBD>ʽ',wwDBComboBox20.text,wwDBComboBox3.text);
str_bill:=query_tiaojian(1,str_bill,'t_op_seae.<2E><><EFBFBD><EFBFBD>',wwDBComboBox10.text,RxDBLookupCombo20.DisplayValues[1]);
str_bill:=query_tiaojian(1,str_bill,'t_op_seae.ί<>е<EFBFBD>λ',wwDBComboBox21.text,RxDBLookupCombo2.DisplayValues[1]);
str_bill:=query_tiaojian(1,str_bill,'t_op_seae.<2E><><EFBFBD><EFBFBD>˾',wwDBComboBox9.text,RxDBLookupCombo1.DisplayValues[1]);
str_bill:=query_tiaojian(1,str_bill,'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox22.text,RxDBLookupCombo9.DisplayValues[1]);
str_bill:=query_tiaojian(1,str_bill,'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾',wwDBComboBox8.text,RxDBLookupCombo8.DisplayValues[1]);
str_bill:=query_tiaojian(1,str_bill,'t_op_seae.<2E><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>',wwDBComboBox23.text,RxDBLookupCombo11.DisplayValues[1]);
str_bill:=query_tiaojian(1,str_bill,'t_op_seae.<2E><>վ',wwDBComboBox12.text,RxDBLookupCombo7.DisplayValues[1]);
str_bill:=query_tiaojian(1,str_bill,'t_op_seae.װ<><D7B0><EFBFBD><EFBFBD>',wwDBComboBox26.text,wwDBLookupCombo3.text);
str_bill:=query_tiaojian(1,str_bill,'t_op_seae.ж<><D0B6><EFBFBD><EFBFBD>',wwDBComboBox27.text,wwDBLookupCombo52.text);
str_bill:=query_tiaojian(1,str_bill,'t_op_seae.<2E>ͷ<EFBFBD>Ա',wwDBComboBox24.text,RxDBLookupCombo4.DisplayValue);
str_bill:=query_tiaojian(1,str_bill,'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox14.text,RxDBLookupCombo3.DisplayValue);
str_bill:=query_tiaojian(1,str_bill,'t_op_seae.<2E><><EFBFBD><EFBFBD>Ա',wwDBComboBox25.text,RxDBLookupCombo6.DisplayValue);
str_bill:=query_tiaojian(1,str_bill,'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox32.text,RxDBLookupCombo13.DisplayValues[1]);
str_bill:=query_tiaojian(1,str_bill,'t_op_seae.<2E><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>',wwDBComboBox28.text,RxDBLookupCombo10.DisplayValue);
str_bill:=query_tiaojian(1,str_bill,'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox29.text,RxDBLookupCombo12.DisplayValue);
str_bill:=query_tiaojian(1,str_bill,'t_op_seae.<2E><><EFBFBD><EFBFBD>',wwDBComboBox36.text,wwDBLookupCombo49.text);
str_bill:=query_tiaojian(1,str_bill,'t_op_seae.<2E><><EFBFBD><EFBFBD>',wwDBComboBox35.text,Edit7.text);
str_bill:=query_tiaojian(1,str_bill,'t_op_seae.<2E><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>',wwDBComboBox37.text,Edit8.text);
str_bill:=query_tiaojian(2,str_bill,'t_op_seae.<2E>ܴ<EFBFBD>',wwDBComboBox38.text,Edit9.text);
str_bill:=query_tiaojian(1,str_bill,'t_op_seae.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox45.text,wwDBComboBox46.text);
str_bill:=query_tiaojian(1,str_bill,'t_op_seae.<2E>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox47.text,RxDBLookupCombo17.DisplayValue);
str_bill:=query_tiaojian(1,str_bill,'t_op_seae.ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox51.text,wwDBDateTimePicker5.text);
str_bill:=query_tiaojian(1,str_bill,'t_op_seae.ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox52.text,wwDBDateTimePicker6.text);
str_bill:=query_tiaojian(1,str_bill,'t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox13.text,RxDBLookupCombo5.DisplayValues[1]);
str_bill:=query_tiaojian(1,str_bill,'t_ch_fee.<2E>ұ<EFBFBD>',wwDBComboBox41.text,RxDBLookupCombo15.DisplayValues[0]);
str_bill:=query_tiaojian(1,str_bill,'t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox42.text,RxDBLookupCombo16.DisplayValues[1]);
str_bill:=query_tiaojian(1,str_bill,'t_ch_fee.<2E><><EFBFBD><EFBFBD>',wwDBComboBox30.text,wwDBComboBox31.text);
str_bill:=query_tiaojian(3,str_bill,'t_ch_fee.<2E>Ƿ<EFBFBD><C7B7>渶',wwDBComboBox48.text,wwDBComboBox49.text);
str_bill:=query_tiaojian(1,str_bill,'t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox53.text,RxDBLookupCombo19.DisplayValues[1]);
str_feetype:=query_tiaojian(1,str_feetype,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox50.text,RxDBLookupCombo18.DisplayValues[0]);
if str_feetype<>'' then begin
if str_bill<>'' then
str_bill:=str_bill+' and t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_code_fee '
+str_feetype+' )'
else
str_bill:=' where t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_code_fee '
+str_feetype+' )'
end;
end
else
begin
if query_wanneng_error(t_sys_query_detail)then
begin
showmessage('<27><><EFBFBD>򡯵<EFBFBD><F2A1AFB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>2<EFBFBD><32><EFBFBD><EFBFBD><EFBFBD>ϣ<EFBFBD><CFA3><EFBFBD>');
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.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','t_op_seae.<2E><><EFBFBD><EFBFBD>Ա','t_op_seae.<2E>ͷ<EFBFBD>Ա','t_op_seae.<2E><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end
else
begin
str_bill:=str_bill+' and '+open_data(rp_seae_query_limited,'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','t_op_seae.<2E><><EFBFBD><EFBFBD>Ա','t_op_seae.<2E>ͷ<EFBFBD>Ա','t_op_seae.<2E><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
end;
case rp_seae_query_type of
1:
begin
if str_bill='' then
str_bill:='where t_ch_fee.<2E><><EFBFBD><EFBFBD><>t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
else
str_bill:=str_bill+' and t_ch_fee.<2E><><EFBFBD><EFBFBD><>t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
end;
2:
begin
if str_bill='' then
str_bill:='where t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><>0'
else
str_bill:=str_bill+' and t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><>0';
end;
4:
begin
if str_bill='' then
str_bill:='where t_op_seae.<2E><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from t_op_gain where <20>ϼ<EFBFBD><CFBC>Ѹ<EFBFBD><>0 and ((<28>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>=0) or (<28>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6><><3E>ϼ<EFBFBD><CFBC><EFBFBD><EFBFBD><EFBFBD>))) '
else
str_bill:=str_bill+' and t_op_seae.<2E><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from t_op_gain where <20>ϼ<EFBFBD><CFBC>Ѹ<EFBFBD><>0 and ((<28>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>=0) or (<28>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6><><3E>ϼ<EFBFBD><CFBC><EFBFBD><EFBFBD><EFBFBD>))) ';
end;
5:
begin
if str_bill='' then
str_bill:='where t_op_seae.<2E><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from t_op_gain where <20>ϼ<EFBFBD><CFBC><EFBFBD><EFBFBD><EFBFBD><>0 and ((<28>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>=0) or (<28>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6><><3E>ϼ<EFBFBD><CFBC>Ѹ<EFBFBD>))) '
else
str_bill:=str_bill+' and t_op_seae.<2E><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from t_op_gain where <20>ϼ<EFBFBD><CFBC><EFBFBD><EFBFBD><EFBFBD><>0 and ((<28>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>=0) or (<28>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6><><3E>ϼ<EFBFBD><CFBC>Ѹ<EFBFBD>))) ';
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('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>',RxDBLookupCombo14.DisplayValue,[])then
begin
wwDBComboBox40.ItemIndex:=-1;
wwDBComboBox40.Items.Clear;
if (t_sys_queryfields.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='varchar') then
begin
query_str_int.Visible:=true;
query_bit.Visible:=false;
query_date.Visible:=false;
wwDBComboBox40.Items.Add('<27><><EFBFBD><EFBFBD>');
wwDBComboBox40.Items.Add('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
wwDBComboBox40.Items.Add('ģ<><C4A3>');
wwDBComboBox40.ItemIndex:=2;
end;
if (t_sys_queryfields.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='int') then
begin
query_str_int.Visible:=true;
query_bit.Visible:=false;
query_date.Visible:=false;
wwDBComboBox40.Items.Add('<27><><EFBFBD><EFBFBD>');
wwDBComboBox40.Items.Add('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
wwDBComboBox40.Items.Add('<27><><EFBFBD><EFBFBD>');
wwDBComboBox40.Items.Add('С<><D0A1>');
wwDBComboBox40.ItemIndex:=0;
end;
if (t_sys_queryfields.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='bit') then
begin
query_str_int.Visible:=false;
query_bit.Visible:=true;
query_date.Visible:=false;
wwDBComboBox40.Items.Add('<27><><EFBFBD><EFBFBD>');
wwDBComboBox40.Items.Add('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
wwDBComboBox40.ItemIndex:=0;
end;
if (t_sys_queryfields.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='date') then
begin
query_str_int.Visible:=false;
query_bit.Visible:=false;
query_date.Visible:=true;
wwDBComboBox40.Items.Add('<27><><EFBFBD><EFBFBD>');
wwDBComboBox40.Items.Add('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
wwDBComboBox40.Items.Add('<27><><EFBFBD><EFBFBD>');
wwDBComboBox40.Items.Add('С<><D0A1>');
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('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƣ<EFBFBD><C6A3><EFBFBD>');
exit;
end;
if wwDBComboBox39.ItemIndex=-1 then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD><CFB5><EFBFBD><EFBFBD>');
exit;
end;
if wwDBComboBox40.ItemIndex=-1 then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѯ<EFBFBD><D1AF><EFBFBD>ͣ<EFBFBD><CDA3><EFBFBD>');
exit;
end;
if query_str_int.Visible then
begin
if query_str_int.text='' then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ<EFBFBD><D6B5><EFBFBD><EFBFBD>');
exit;
end;
if (t_sys_queryfields.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='int') then
begin
try
strtoint(query_str_int.text);
except
showmessage('<27><><EFBFBD><EFBFBD>ֵֻ<D6B5><D6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֣<EFBFBD><D6A3><EFBFBD>');
exit;
end;
end;
end;
if query_bit.Visible then
begin
if query_bit.ItemIndex=-1 then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ<EFBFBD><D6B5><EFBFBD><EFBFBD>');
exit;
end;
end;
if query_date.Visible then
begin
if query_date.text='' then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ<EFBFBD><D6B5><EFBFBD><EFBFBD>');
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['<27><>']:=t_sys_queryfields['<27><>'];
t_sys_query_detail['<27>ֶ<EFBFBD><D6B6><EFBFBD>']:=t_sys_queryfields['<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>'];
if query_str_int.Visible then
begin
t_sys_query_detail['<27><><EFBFBD><EFBFBD>ֵ']:=query_str_int.text;
end;
if query_bit.Visible then
begin
t_sys_query_detail['<27><><EFBFBD><EFBFBD>ֵ']:=query_bit.text;
end;
if query_date.Visible then
begin
t_sys_query_detail['<27><><EFBFBD><EFBFBD>ֵ']:=query_date.text;
end;
t_sys_query_detail['<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>']:=t_sys_queryfields['<27><><EFBFBD><EFBFBD>'];
t_sys_query_detail['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ']:=wwDBComboBox39.text;
t_sys_query_detail['<27><>ѯ<EFBFBD><D1AF><EFBFBD><EFBFBD>']:=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['<27><>ѯ<EFBFBD><D1AF><EFBFBD><EFBFBD>']:=rp_seae_query_str;
t_sys_query['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
t_sys_query['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=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('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring='int' then
begin
try
strtoint(t_sys_query_detail.fieldbyname('<27><><EFBFBD><EFBFBD>ֵ').asstring);
except
showmessage('<27><><EFBFBD><EFBFBD>ֵֻ<D6B5><D6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֣<EFBFBD><D6A3><EFBFBD>');
abort;
end;
end;
if t_sys_query_detail.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring='date' then
begin
try
strtodate(t_sys_query_detail.fieldbyname('<27><><EFBFBD><EFBFBD>ֵ').asstring);
except
showmessage('<27><><EFBFBD><EFBFBD>ֵֻ<D6B5><D6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD>');
abort;
end;
end;
if t_sys_query_detail.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring='bit' then
begin
if (t_sys_query_detail.fieldbyname('<27><><EFBFBD><EFBFBD>ֵ').asstring<>'<27><>')
and(t_sys_query_detail.fieldbyname('<27><><EFBFBD><EFBFBD>ֵ').asstring<>'<27><>')then
begin
showmessage('<27><><EFBFBD><EFBFBD>ֵֻ<D6B5><D6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>\<5C>񣡣<EFBFBD>');
abort;
end;
end;
if (t_sys_query_detail.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ').asstring<>'<27><>')
and(t_sys_query_detail.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ').asstring<>'<27><>')then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵֻ<CFB5><D6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>\<5C>򣡣<EFBFBD>');
abort;
end;
if (dxDBGrid1Column3.Items.IndexOf(t_sys_query_detail.fieldbyname('<27><>ѯ<EFBFBD><D1AF><EFBFBD><EFBFBD>').asstring)=-1)
and (t_sys_query_detail.state<>dsinsert) then
begin
showmessage('<27><>ѯ<EFBFBD><D1AF><EFBFBD><EFBFBD>ֻ<EFBFBD><D6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+dxDBGrid1Column3.Items.text+'<27><><EFBFBD><EFBFBD>');
abort;
end;
end;
procedure Tfrm_rp_seae_query.t_sys_query_detailAfterScroll(
DataSet: TDataSet);
begin
if (t_sys_query_detail.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring='varchar') then
begin
dxDBGrid1Column3.Items.Clear;
dxDBGrid1Column3.Items.Add('<27><><EFBFBD><EFBFBD>');
dxDBGrid1Column3.Items.Add('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
dxDBGrid1Column3.Items.Add('ģ<><C4A3>');
dxDBGrid1Column3.Items.Add('<27><><EFBFBD><EFBFBD>');
dxDBGrid1Column3.Items.Add('С<><D0A1>');
end;
if (t_sys_query_detail.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring='int') then
begin
dxDBGrid1Column3.Items.Clear;
dxDBGrid1Column3.Items.Add('<27><><EFBFBD><EFBFBD>');
dxDBGrid1Column3.Items.Add('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
dxDBGrid1Column3.Items.Add('<27><><EFBFBD><EFBFBD>');
dxDBGrid1Column3.Items.Add('С<><D0A1>');
end;
if (t_sys_query_detail.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring='bit') then
begin
dxDBGrid1Column3.Items.Clear;
dxDBGrid1Column3.Items.Add('<27><><EFBFBD><EFBFBD>');
dxDBGrid1Column3.Items.Add('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
if (t_sys_query_detail.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring='date') then
begin
dxDBGrid1Column3.Items.Clear;
dxDBGrid1Column3.Items.Add('<27><><EFBFBD><EFBFBD>');
dxDBGrid1Column3.Items.Add('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
dxDBGrid1Column3.Items.Add('<27><><EFBFBD><EFBFBD>');
dxDBGrid1Column3.Items.Add('С<><D0A1>');
end;
end;
procedure Tfrm_rp_seae_query.loadFindIni;
var
findini:tinifile ;
mysec,tmpname:string;
canload:boolean ; //<2F>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>
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:='ģ<><C4A3>';
wwDBComboBox16.text:='ģ<><C4A3>';
wwDBComboBox33.text:='ģ<><C4A3>';
wwDBComboBox34.text:='ģ<><C4A3>';
wwDBComboBox4.text:='ģ<><C4A3>';
wwDBComboBox5.text:='ģ<><C4A3>';
wwDBComboBox35.text:='ģ<><C4A3>';
wwDBComboBox36.text:='ģ<><C4A3>';
wwDBComboBox37.text:='ģ<><C4A3>';
wwDBComboBox43.text:='ģ<><C4A3>';
wwDBComboBox44.text:='ģ<><C4A3>';
wwDBComboBox17.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox7.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox18.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox6.text:='С<><D0A1>';
wwDBComboBox11.text:='С<><D0A1>';
wwDBComboBox19.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox10.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox20.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox21.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox22.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox23.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox24.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox25.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox26.text:='ģ<><C4A3>';
wwDBComboBox27.text:='ģ<><C4A3>';
wwDBComboBox9.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox8.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox12.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox13.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox53.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox14.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox28.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox29.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox30.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox32.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox38.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox13.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox41.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox30.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox42.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox45.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox47.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox48.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox50.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox51.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox52.text:='С<><D0A1>';
end ;
finally
findini.free;
end ;
end;
procedure Tfrm_rp_seae_query.writeFindIni;
var
findini:tinifile ;
mysec,tmpname:string;
canload:boolean ; //<2F>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>
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.