hanxuntao
/
DONGSHENG6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
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.
master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '9abf05a513'
${ noResults }
DONGSHENG6/业务统计/u_rp_in_total.~pas

1008 lines
50 KiB
Plaintext
Raw Blame History Unescape Escape

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_in_total;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxExEdtr, ADODB, DB, bsSkinCtrls, dxDBTLCl, dxGrClms, dxDBGrid,
dxTL, dxDBCtrl, dxCntner, ComCtrls, bsSkinTabs, ExtCtrls;
type
Tfrm_rp_in_total = class(TForm)
Panel1: TPanel;
bsSkinPageControl1: TbsSkinPageControl;
bsSkinTabSheet1: TbsSkinTabSheet;
bsSkinTabSheet2: TbsSkinTabSheet;
dxDBGrid6: TdxDBGrid;
dxDBGridMaskColumn95: TdxDBGridMaskColumn;
dxDBGridColumn17: TdxDBGridColumn;
dxDBGridColumn18: TdxDBGridColumn;
dxDBGridColumn19: TdxDBGridColumn;
dxDBGridColumn20: TdxDBGridColumn;
dxDBGridColumn21: TdxDBGridColumn;
dxDBGridColumn22: TdxDBGridColumn;
dxDBGridColumn23: TdxDBGridColumn;
dxDBGridColumn24: TdxDBGridColumn;
dxDBGridColumn25: TdxDBGridColumn;
bsSkinTabSheet3: TbsSkinTabSheet;
dxDBGrid7: TdxDBGrid;
dxDBGridMaskColumn96: TdxDBGridMaskColumn;
dxDBGridColumn38: TdxDBGridColumn;
dxDBGridColumn39: TdxDBGridColumn;
dxDBGridColumn40: TdxDBGridColumn;
dxDBGridColumn41: TdxDBGridColumn;
dxDBGridColumn42: TdxDBGridColumn;
dxDBGridColumn43: TdxDBGridColumn;
dxDBGridColumn44: TdxDBGridColumn;
dxDBGridColumn45: TdxDBGridColumn;
dxDBGridColumn46: TdxDBGridColumn;
p_total: TADOStoredProc;
p_client: TADOStoredProc;
p_client1: TDataSource;
p_sales: TADOStoredProc;
p_sales1: TDataSource;
p_total1: TDataSource;
dxDBGrid1: TdxDBGrid;
dxDBGridMaskColumn1: TdxDBGridMaskColumn;
dxDBGridColumn1: TdxDBGridColumn;
dxDBGridColumn2: TdxDBGridColumn;
dxDBGridColumn3: TdxDBGridColumn;
dxDBGridColumn4: TdxDBGridColumn;
dxDBGridColumn5: TdxDBGridColumn;
dxDBGridColumn6: TdxDBGridColumn;
dxDBGridColumn7: TdxDBGridColumn;
dxDBGridColumn8: TdxDBGridColumn;
dxDBGridColumn9: TdxDBGridColumn;
dxDBGrid6Column11: TdxDBGridColumn;
dxDBGrid7Column11: TdxDBGridColumn;
SaveDialog: TSaveDialog;
bsSkinTabSheet4: TbsSkinTabSheet;
dxDBGrid2: TdxDBGrid;
dxDBGrid1Column1: TdxDBGridMaskColumn;
dxDBGrid1Column54: TdxDBGridMaskColumn;
dxDBGrid1Column11: TdxDBGridMaskColumn;
dxDBGrid1Column13: TdxDBGridMaskColumn;
dxDBGrid1Column15: TdxDBGridMaskColumn;
dxDBGrid1USD: TdxDBGridColumn;
dxDBGrid1Column3: TdxDBGridColumn;
dxDBGrid1Column4: TdxDBGridColumn;
dxDBGrid1RMB: TdxDBGridColumn;
dxDBGrid1Column6: TdxDBGridColumn;
dxDBGrid1Column7: TdxDBGridColumn;
dxDBGrid1Column8: TdxDBGridColumn;
dxDBGrid1Column9: TdxDBGridColumn;
dxDBGrid1Column10: TdxDBGridColumn;
dxDBGrid1Column12: TdxDBGridDateColumn;
dxDBGrid1Column63: TdxDBGridColumn;
dxDBGrid1Column14: TdxDBGridMaskColumn;
dxDBGrid1Column16: TdxDBGridMaskColumn;
dxDBGrid1Column18: TdxDBGridMaskColumn;
dxDBGrid1Column22: TdxDBGridDateColumn;
dxDBGrid1Column53: TdxDBGridMaskColumn;
dxDBGrid1Column55: TdxDBGridMaskColumn;
p_bill: TADOStoredProc;
p_bill1: TDataSource;
bsSkinPanel1: TbsSkinPanel;
bsSkinPanel2: TbsSkinPanel;
bsSkinButton5: TbsSkinButton;
bsSkinButton1: TbsSkinButton;
bsSkinButton9: TbsSkinButton;
bsSkinButton10: TbsSkinButton;
bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox3: TbsSkinCheckRadioBox;
dxDBGrid2Column23: TdxDBGridColumn;
dxDBGrid2Column24: TdxDBGridColumn;
dxDBGrid2Column25: TdxDBGridColumn;
dxDBGrid2Column26: TdxDBGridColumn;
dxDBGrid2Column27: TdxDBGridColumn;
dxDBGrid2Column28: TdxDBGridColumn;
bsSkinCheckRadioBox4: TbsSkinCheckRadioBox;
dxDBGrid1Column17: TdxDBGridColumn;
dxDBGrid1Column19: TdxDBGridColumn;
dxDBGrid1Column20: TdxDBGridColumn;
dxDBGrid1Column21: TdxDBGridColumn;
dxDBGrid1Column23: TdxDBGridColumn;
dxDBGrid1Column24: TdxDBGridColumn;
dxDBGrid6Column12: TdxDBGridColumn;
dxDBGrid6Column13: TdxDBGridColumn;
dxDBGrid6Column14: TdxDBGridColumn;
dxDBGrid6Column15: TdxDBGridColumn;
dxDBGrid6Column16: TdxDBGridColumn;
dxDBGrid6Column17: TdxDBGridColumn;
dxDBGrid7Column12: TdxDBGridColumn;
dxDBGrid7Column13: TdxDBGridColumn;
dxDBGrid7Column14: TdxDBGridColumn;
dxDBGrid7Column15: TdxDBGridColumn;
dxDBGrid7Column16: TdxDBGridColumn;
dxDBGrid7Column17: TdxDBGridColumn;
bsSkinCheckRadioBox5: TbsSkinCheckRadioBox;
dxDBGrid2Column29: TdxDBGridColumn;
dxDBGrid2Column30: TdxDBGridColumn;
dxDBGrid2Column31: TdxDBGridColumn;
dxDBGrid1Column25: TdxDBGridColumn;
dxDBGrid1Column26: TdxDBGridColumn;
dxDBGrid1Column27: TdxDBGridColumn;
dxDBGrid6Column18: TdxDBGridColumn;
dxDBGrid6Column19: TdxDBGridColumn;
dxDBGrid6Column20: TdxDBGridColumn;
dxDBGrid7Column18: TdxDBGridColumn;
dxDBGrid7Column19: TdxDBGridColumn;
dxDBGrid7Column20: TdxDBGridColumn;
dxDBGrid2Column32: TdxDBGridColumn;
dxDBGrid2Column33: TdxDBGridColumn;
dxDBGrid2Column34: TdxDBGridColumn;
dxDBGrid2Column35: TdxDBGridColumn;
procedure bsSkinButton5Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure bsSkinButton9Click(Sender: TObject);
procedure bsSkinButton10Click(Sender: TObject);
procedure Panel1Resize(Sender: TObject);
procedure dxDBGrid1ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure dxDBGrid6ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure dxDBGrid7ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure bsSkinButton1Click(Sender: TObject);
procedure bsSkinCheckRadioBox1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure dxDBGrid2DblClick(Sender: TObject);
private
procedure getindata;
procedure checkcharge;
{ Private declarations }
public
instr_bill,instr_type:widestring;
issql:boolean;
{ Public declarations }
end;
var
frm_rp_in_total: Tfrm_rp_in_total;
implementation
uses u_rp_no_seae_query, u_main, my_sys_function;
{$R *.dfm}
procedure Tfrm_rp_in_total.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_rp_in_total.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
savereggrid(dxdbgrid1,caption+'1');
savereggrid(dxdbgrid2,caption+'2');
savereggrid(dxdbgrid6,caption+'6');
savereggrid(dxdbgrid7,caption+'7');
frm_rp_in_total.Hide;
frm_rp_in_total.ManualFloat(frm_rp_in_total.BoundsRect );
frm_main.freeTabs('frm_rp_in_total');
action:=cafree;
frm_rp_in_total:=nil;
end;
procedure Tfrm_rp_in_total.bsSkinButton9Click(Sender: TObject);
begin
sys_print('ҵ<><D2B5><EFBFBD><EFBFBD>Ʊ<EFBFBD>ۺϷ<DBBA><CFB7><EFBFBD>',2,nil,nil,nil,nil,p_total1,p_client1,p_sales1,p_bill1,nil,nil,nil);
end;
procedure Tfrm_rp_in_total.bsSkinButton10Click(Sender: TObject);
begin
try
frm_rp_no_seae_query:=tfrm_rp_no_seae_query.Create (self);
frm_rp_no_seae_query.Caption:='ҵ<><D2B5><EFBFBD><EFBFBD>Ʊ<EFBFBD>ۺϷ<DBBA><CFB7><EFBFBD>';
no_seae_query_bs:=10;
no_seae_query_limited:='0035';
no_seae_query_table:='v_op_no.';
frm_rp_no_seae_query.ShowModal;
finally
frm_rp_no_seae_query.Free;
end;
issql:=true;
getindata;
end;
procedure Tfrm_rp_in_total.Panel1Resize(Sender: TObject);
begin
bsSkinPanel2.Left:=Panel1.Width-bsSkinPanel2.Width;
end;
procedure Tfrm_rp_in_total.dxDBGrid1ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort_pro(Column,p_total,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_rp_in_total.dxDBGrid6ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort_pro(Column,p_client,'<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_rp_in_total.dxDBGrid7ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort_pro(Column,p_sales,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_rp_in_total.bsSkinButton1Click(Sender: TObject);
begin
with SaveDialog do
begin
DefaultExt :='xls';
Filter := '(*.xls)|*.xls';
if Execute then
begin
if bsSkinTabSheet1.Showing then
dxDBGrid1.SaveToXLS(FileName,true)
else if bsSkinTabSheet2.Showing then
dxDBGrid6.SaveToXLS(FileName,true)
else if bsSkinTabSheet3.Showing then
dxDBGrid7.SaveToXLS(FileName,true)
else if bsSkinTabSheet4.Showing then
dxDBGrid2.SaveToXLS(FileName,true);
end;
end;
end;
procedure Tfrm_rp_in_total.bsSkinCheckRadioBox1Click(Sender: TObject);
begin
checkcharge;
if issql then
getindata;
{
dxDBGrid1USD.Visible:=true;
dxDBGrid1Column3.Visible:=true;
dxDBGrid1Column4.Visible:=true;
dxDBGrid2Column23.Visible:=true;
dxDBGrid2Column24.Visible:=true;
dxDBGrid2Column29.Visible:=true;
dxDBGrid1RMB.Visible:=true;
dxDBGrid1Column6.Visible:=true;
dxDBGrid1Column7.Visible:=true;
dxDBGrid2Column25.Visible:=true;
dxDBGrid2Column26.Visible:=true;
dxDBGrid1Column8.Visible:=true;
dxDBGrid1Column9.Visible:=true;
dxDBGrid2Column27.Visible:=true;
dxDBGrid2Column28.Visible:=true;
dxDBGrid1Column10.Visible:=true;
dxDBGridColumn1.Visible:=true;
dxDBGridColumn2.Visible:=true;
dxDBGridColumn3.Visible:=true;
dxDBGrid1Column17.Visible:=true;
dxDBGrid1Column19.Visible:=true;
dxDBGridColumn4.Visible:=true;
dxDBGridColumn5.Visible:=true;
dxDBGridColumn6.Visible:=true;
dxDBGrid1Column20.Visible:=true;
dxDBGrid1Column21.Visible:=true;
dxDBGridColumn7.Visible:=true;
dxDBGridColumn8.Visible:=true;
dxDBGridColumn9.Visible:=true;
dxDBGrid1Column23.Visible:=true;
dxDBGrid1Column24.Visible:=true;
dxDBGridColumn17.Visible:=true;
dxDBGridColumn18.Visible:=true;
dxDBGridColumn19.Visible:=true;
dxDBGrid6Column12.Visible:=true;
dxDBGrid6Column13.Visible:=true;
dxDBGridColumn20.Visible:=true;
dxDBGridColumn21.Visible:=true;
dxDBGridColumn22.Visible:=true;
dxDBGrid6Column14.Visible:=true;
dxDBGrid6Column15.Visible:=true;
dxDBGridColumn23.Visible:=true;
dxDBGridColumn24.Visible:=true;
dxDBGridColumn25.Visible:=true;
dxDBGrid6Column16.Visible:=true;
dxDBGrid6Column17.Visible:=true;
dxDBGridColumn38.Visible:=true;
dxDBGridColumn39.Visible:=true;
dxDBGridColumn40.Visible:=true;
dxDBGrid7Column12.Visible:=true;
dxDBGrid7Column13.Visible:=true;
dxDBGridColumn41.Visible:=true;
dxDBGridColumn42.Visible:=true;
dxDBGridColumn43.Visible:=true;
dxDBGrid7Column14.Visible:=true;
dxDBGrid7Column15.Visible:=true;
dxDBGridColumn44.Visible:=true;
dxDBGridColumn45.Visible:=true;
dxDBGridColumn46.Visible:=true;
dxDBGrid7Column16.Visible:=true;
dxDBGrid7Column17.Visible:=true;
}
end;
procedure Tfrm_rp_in_total.getindata;
begin
if bsSkinCheckRadioBox4.Checked then
begin
if instr_type='' then
instr_bill:='where t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><>0'
else
instr_bill:=instr_type+' and t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><>0';
end
else if bsSkinCheckRadioBox2.Checked then
begin
if instr_type='' then
instr_bill:='where t_ch_fee.<2E><><EFBFBD><EFBFBD><>t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD>=''<27><>'' '
else
instr_bill:=instr_type+' and t_ch_fee.<2E><><EFBFBD><EFBFBD><>t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD>=''<27><>'' ';
end else if bsSkinCheckRadioBox3.Checked then
begin
if instr_type='' then
instr_bill:='where t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><>0 and (case when t_ch_fee.<2E><><EFBFBD><EFBFBD>>=0 then (t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) else (t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>) end)>0 and <20><><EFBFBD><EFBFBD>=''<27><>'' '
else
instr_bill:=instr_type+' and t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><>0 and (case when t_ch_fee.<2E><><EFBFBD><EFBFBD>>=0 then (t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) else (t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>) end)>0 and <20><><EFBFBD><EFBFBD>=''<27><>''';
end
else if bsSkinCheckRadioBox5.Checked then
begin
if instr_type='' then
instr_bill:='where t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><>0 and (case when t_ch_fee.<2E><><EFBFBD><EFBFBD>>=0 then (t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) else (t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>) end)<0 and <20><><EFBFBD><EFBFBD>=''<27><>'' '
else
instr_bill:=instr_type+' and t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><>0 and (case when t_ch_fee.<2E><><EFBFBD><EFBFBD>>=0 then (t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) else (t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>) end)<0 and <20><><EFBFBD><EFBFBD>=''<27><>''';
end
else if bsSkinCheckRadioBox1.Checked then
begin
if instr_type<>'' then
instr_bill:=instr_type;
end;
p_bill.close;
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>,'
+'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 '+''''+'RMB'+''''+' then t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
+' else 0 end) as <20><><EFBFBD><EFBFBD>RMB,'
+' sum(t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>) as <20><><EFBFBD>պϼ<D5BA>,'
+' SUM(case t_ch_fee.<2E>ұ<EFBFBD>'
+' when '+''''+'USD'+''''+' then (case when t_ch_fee.<2E><><EFBFBD><EFBFBD>>0 then (case when t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>>t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> then (t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) else 0 end)'
+' else (case when t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> then (t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) else 0 end) end)'
+' else 0 end) as <20>ѿ<EFBFBD>δ<EFBFBD><CEB4>USD,'
+' SUM(case t_ch_fee.<2E>ұ<EFBFBD>'
+' when '+''''+'RMB'+''''+' then (case when t_ch_fee.<2E><><EFBFBD><EFBFBD>>0 then (case when t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>>t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> then (t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) else 0 end)'
+' else (case when t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> then (t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) else 0 end) end)'
+' else 0 end) as <20>ѿ<EFBFBD>δ<EFBFBD><CEB4>RMB,'
+' SUM(case when t_ch_fee.<2E><><EFBFBD><EFBFBD>>0 then (case when t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>>t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> then (t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> else 0 end)'
+' else (case when t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> then (t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> else 0 end) end)'
+' as <20>ѿ<EFBFBD>δ<EFBFBD>պϼ<D5BA>,'
+' SUM(case t_ch_fee.<2E>ұ<EFBFBD>'
+' when '+''''+'USD'+''''+' then (case when t_ch_fee.<2E><><EFBFBD><EFBFBD>>0 then (case when t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> then (t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>) else 0 end)'
+' else (case when t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> then (t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>) else 0 end) end)'
+' else 0 end) as <20><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>USD,'
+' SUM(case t_ch_fee.<2E>ұ<EFBFBD>'
+' when '+''''+'RMB'+''''+' then (case when t_ch_fee.<2E><><EFBFBD><EFBFBD>>0 then (case when t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> then (t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>) else 0 end)'
+' else (case when t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> then (t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>) else 0 end) end)'
+' else 0 end) as <20><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>RMB,'
+' SUM(case when t_ch_fee.<2E><><EFBFBD><EFBFBD>>0 then (case when t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> then (t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> else 0 end)'
+' else (case when t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> then (t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> else 0 end) end)'
+' as <20><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD>ϼ<EFBFBD>,'
+'v_op_no.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, v_op_no.<2E>ܴ<EFBFBD>, v_op_no.<2E><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>, v_op_no.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,'
+'v_op_no.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>, v_op_no.ί<>б<EFBFBD><D0B1><EFBFBD>, '
+'v_op_no.ί<>е<EFBFBD>λ,v_op_no.ҵ<><D2B5><EFBFBD><EFBFBD>Դ,v_op_no.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, '
+'v_op_no.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'v_op_no.<2E><><EFBFBD><EFBFBD>Ա,'
+'v_op_no.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, v_op_no.<2E>ͷ<EFBFBD>Ա,v_op_no.<2E><><EFBFBD><EFBFBD>,v_op_no.<2E><><EFBFBD><EFBFBD>,v_op_no.<2E><><EFBFBD>յ<EFBFBD><D5B5><EFBFBD>,v_op_no.Ŀ<>ĵ<EFBFBD>'
+' FROM t_ch_fee inner join v_op_no on v_op_no.<2E><><EFBFBD><EFBFBD>=t_ch_fee.<2E><><EFBFBD><EFBFBD> '
+instr_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>,'
+'v_op_no.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, v_op_no.<2E>ܴ<EFBFBD>, v_op_no.<2E><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>, v_op_no.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,'
+'v_op_no.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>, v_op_no.ί<>б<EFBFBD><D0B1><EFBFBD>, '
+'v_op_no.ί<>е<EFBFBD>λ, v_op_no.ҵ<><D2B5><EFBFBD><EFBFBD>Դ,v_op_no.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'v_op_no.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'v_op_no.<2E><><EFBFBD><EFBFBD>Ա,'
+'v_op_no.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, v_op_no.<2E>ͷ<EFBFBD>Ա,v_op_no.<2E><><EFBFBD><EFBFBD>,v_op_no.<2E><><EFBFBD><EFBFBD>,v_op_no.<2E><><EFBFBD>յ<EFBFBD><D5B5><EFBFBD>,v_op_no.Ŀ<>ĵ<EFBFBD>'
+' order by v_op_no.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
p_bill.open;
p_total.close;
p_total.Parameters.ParamByName('SQLStr').value:=
'SELECT 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>,'
+'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 '+''''+'RMB'+''''+' then t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
+' else 0 end) as <20><><EFBFBD><EFBFBD>RMB,'
+' sum(t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>) as <20><><EFBFBD>պϼ<D5BA>,'
+' SUM(case t_ch_fee.<2E>ұ<EFBFBD>'
+' when '+''''+'USD'+''''+' then (case when t_ch_fee.<2E><><EFBFBD><EFBFBD>>0 then (case when t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>>t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> then (t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) else 0 end)'
+' else (case when t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> then (t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) else 0 end) end)'
+' else 0 end) as <20>ѿ<EFBFBD>δ<EFBFBD><CEB4>USD,'
+' SUM(case t_ch_fee.<2E>ұ<EFBFBD>'
+' when '+''''+'RMB'+''''+' then (case when t_ch_fee.<2E><><EFBFBD><EFBFBD>>0 then (case when t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>>t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> then (t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) else 0 end)'
+' else (case when t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> then (t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) else 0 end) end)'
+' else 0 end) as <20>ѿ<EFBFBD>δ<EFBFBD><CEB4>RMB,'
+' SUM(case when t_ch_fee.<2E><><EFBFBD><EFBFBD>>0 then (case when t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>>t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> then (t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> else 0 end)'
+' else (case when t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> then (t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> else 0 end) end)'
+' as <20>ѿ<EFBFBD>δ<EFBFBD>պϼ<D5BA>,'
+' SUM(case t_ch_fee.<2E>ұ<EFBFBD>'
+' when '+''''+'USD'+''''+' then (case when t_ch_fee.<2E><><EFBFBD><EFBFBD>>0 then (case when t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> then (t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>) else 0 end)'
+' else (case when t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> then (t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>) else 0 end) end)'
+' else 0 end) as <20><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>USD,'
+' SUM(case t_ch_fee.<2E>ұ<EFBFBD>'
+' when '+''''+'RMB'+''''+' then (case when t_ch_fee.<2E><><EFBFBD><EFBFBD>>0 then (case when t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> then (t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>) else 0 end)'
+' else (case when t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> then (t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>) else 0 end) end)'
+' else 0 end) as <20><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>RMB,'
+' SUM(case when t_ch_fee.<2E><><EFBFBD><EFBFBD>>0 then (case when t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> then (t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> else 0 end)'
+' else (case when t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> then (t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> else 0 end) end)'
+' as <20><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD>ϼ<EFBFBD>,'
+'v_op_no.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
+' FROM t_ch_fee inner join v_op_no on v_op_no.<2E><><EFBFBD><EFBFBD>=t_ch_fee.<2E><><EFBFBD><EFBFBD> '
+instr_bill+' and t_ch_fee.<2E><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''
+' GROUP BY v_op_no.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
+' order by v_op_no.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
p_total.open;
p_client.close;
p_client.Parameters.ParamByName('SQLStr').value:=
'SELECT t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,v_op_no.ҵ<><D2B5><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>,'
+'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 '+''''+'RMB'+''''+' then t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
+' else 0 end) as <20><><EFBFBD><EFBFBD>RMB,'
+' sum(t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>) as <20><><EFBFBD>պϼ<D5BA>,'
+' SUM(case t_ch_fee.<2E>ұ<EFBFBD>'
+' when '+''''+'USD'+''''+' then (case when t_ch_fee.<2E><><EFBFBD><EFBFBD>>0 then (case when t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>>t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> then (t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) else 0 end)'
+' else (case when t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> then (t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) else 0 end) end)'
+' else 0 end) as <20>ѿ<EFBFBD>δ<EFBFBD><CEB4>USD,'
+' SUM(case t_ch_fee.<2E>ұ<EFBFBD>'
+' when '+''''+'RMB'+''''+' then (case when t_ch_fee.<2E><><EFBFBD><EFBFBD>>0 then (case when t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>>t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> then (t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) else 0 end)'
+' else (case when t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> then (t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) else 0 end) end)'
+' else 0 end) as <20>ѿ<EFBFBD>δ<EFBFBD><CEB4>RMB,'
+' SUM(case when t_ch_fee.<2E><><EFBFBD><EFBFBD>>0 then (case when t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>>t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> then (t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> else 0 end)'
+' else (case when t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> then (t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> else 0 end) end)'
+' as <20>ѿ<EFBFBD>δ<EFBFBD>պϼ<D5BA>,'
+' SUM(case t_ch_fee.<2E>ұ<EFBFBD>'
+' when '+''''+'USD'+''''+' then (case when t_ch_fee.<2E><><EFBFBD><EFBFBD>>0 then (case when t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> then (t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>) else 0 end)'
+' else (case when t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> then (t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>) else 0 end) end)'
+' else 0 end) as <20><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>USD,'
+' SUM(case t_ch_fee.<2E>ұ<EFBFBD>'
+' when '+''''+'RMB'+''''+' then (case when t_ch_fee.<2E><><EFBFBD><EFBFBD>>0 then (case when t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> then (t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>) else 0 end)'
+' else (case when t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> then (t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>) else 0 end) end)'
+' else 0 end) as <20><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>RMB,'
+' SUM(case when t_ch_fee.<2E><><EFBFBD><EFBFBD>>0 then (case when t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> then (t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> else 0 end)'
+' else (case when t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> then (t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> else 0 end) end)'
+' as <20><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD>ϼ<EFBFBD>'
+' FROM t_ch_fee inner join v_op_no on v_op_no.<2E><><EFBFBD><EFBFBD>=t_ch_fee.<2E><><EFBFBD><EFBFBD> '
+' inner join t_crm_client on t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>=t_crm_client.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> '
+instr_bill+' and t_ch_fee.<2E><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''
+' GROUP BY t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,v_op_no.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
+' order by t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,v_op_no.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
p_client.open;
p_sales.close;
p_sales.Parameters.ParamByName('SQLStr').value:=
'SELECT v_op_no.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,v_op_no.ҵ<><D2B5><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>,'
+'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 '+''''+'RMB'+''''+' then t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
+' else 0 end) as <20><><EFBFBD><EFBFBD>RMB,'
+' sum(t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>) as <20><><EFBFBD>պϼ<D5BA>,'
+' SUM(case t_ch_fee.<2E>ұ<EFBFBD>'
+' when '+''''+'USD'+''''+' then (case when t_ch_fee.<2E><><EFBFBD><EFBFBD>>0 then (case when t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>>t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> then (t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) else 0 end)'
+' else (case when t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> then (t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) else 0 end) end)'
+' else 0 end) as <20>ѿ<EFBFBD>δ<EFBFBD><CEB4>USD,'
+' SUM(case t_ch_fee.<2E>ұ<EFBFBD>'
+' when '+''''+'RMB'+''''+' then (case when t_ch_fee.<2E><><EFBFBD><EFBFBD>>0 then (case when t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>>t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> then (t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) else 0 end)'
+' else (case when t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> then (t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) else 0 end) end)'
+' else 0 end) as <20>ѿ<EFBFBD>δ<EFBFBD><CEB4>RMB,'
+' SUM(case when t_ch_fee.<2E><><EFBFBD><EFBFBD>>0 then (case when t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>>t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> then (t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> else 0 end)'
+' else (case when t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> then (t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> else 0 end) end)'
+' as <20>ѿ<EFBFBD>δ<EFBFBD>պϼ<D5BA>,'
+' SUM(case t_ch_fee.<2E>ұ<EFBFBD>'
+' when '+''''+'USD'+''''+' then (case when t_ch_fee.<2E><><EFBFBD><EFBFBD>>0 then (case when t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> then (t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>) else 0 end)'
+' else (case when t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> then (t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>) else 0 end) end)'
+' else 0 end) as <20><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>USD,'
+' SUM(case t_ch_fee.<2E>ұ<EFBFBD>'
+' when '+''''+'RMB'+''''+' then (case when t_ch_fee.<2E><><EFBFBD><EFBFBD>>0 then (case when t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> then (t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>) else 0 end)'
+' else (case when t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> then (t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>) else 0 end) end)'
+' else 0 end) as <20><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>RMB,'
+' SUM(case when t_ch_fee.<2E><><EFBFBD><EFBFBD>>0 then (case when t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> then (t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> else 0 end)'
+' else (case when t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> then (t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-t_ch_fee.<2E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> else 0 end) end)'
+' as <20><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD>ϼ<EFBFBD>'
+' FROM t_ch_fee inner join v_op_no on v_op_no.<2E><><EFBFBD><EFBFBD>=t_ch_fee.<2E><><EFBFBD><EFBFBD> '
+' inner join t_crm_client on t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>=t_crm_client.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> '
+instr_bill+' and t_ch_fee.<2E><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''
+' GROUP BY v_op_no.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,v_op_no.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
+' order by v_op_no.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,v_op_no.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
p_sales.open;
end;
procedure Tfrm_rp_in_total.FormShow(Sender: TObject);
begin
instr_type:='';
loadreggrid(dxdbgrid1,true,caption+'1');
loadreggrid(dxdbgrid2,true,caption+'2');
loadreggrid(dxdbgrid6,false,caption+'6');
loadreggrid(dxdbgrid7,false,caption+'7');
issql:=false;
checkcharge;
end;
procedure Tfrm_rp_in_total.checkcharge;
begin
if bsSkinCheckRadioBox1.Checked then begin
dxDBGrid2.ColumnByFieldName('Ӧ<><D3A6>USD').Visible:=true;
dxDBGrid2.ColumnByFieldName('<27>ѿ<EFBFBD>USD').Visible:=true;
dxDBGrid2.ColumnByFieldName('δ<><CEB4>USD').Visible:=true;
dxDBGrid2.ColumnByFieldName('<27><><EFBFBD><EFBFBD>USD').Visible:=true;
dxDBGrid2.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=true;
dxDBGrid2.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=true;
dxDBGrid2.ColumnByFieldName('Ӧ<><D3A6>RMB').Visible:=true;
dxDBGrid2.ColumnByFieldName('<27>ѿ<EFBFBD>RMB').Visible:=true;
dxDBGrid2.ColumnByFieldName('δ<><CEB4>RMB').Visible:=true;
dxDBGrid2.ColumnByFieldName('<27><><EFBFBD><EFBFBD>RMB').Visible:=true;
dxDBGrid2.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=true;
dxDBGrid2.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=true;
dxDBGrid2.ColumnByFieldName('Ӧ<><D3A6><EFBFBD>ϼ<EFBFBD>').Visible:=true;
dxDBGrid2.ColumnByFieldName('<27>ѿ<EFBFBD><D1BF>ϼ<EFBFBD>').Visible:=true;
dxDBGrid2.ColumnByFieldName('δ<><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=true;
dxDBGrid2.ColumnByFieldName('<27><><EFBFBD>պϼ<D5BA>').Visible:=true;
dxDBGrid2.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD>պϼ<D5BA>').Visible:=true;
dxDBGrid2.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=true;
dxDBGrid1.ColumnByFieldName('Ӧ<><D3A6>USD').Visible:=true;
dxDBGrid1.ColumnByFieldName('<27>ѿ<EFBFBD>USD').Visible:=true;
dxDBGrid1.ColumnByFieldName('δ<><CEB4>USD').Visible:=true;
dxDBGrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD>USD').Visible:=true;
dxDBGrid1.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=true;
dxDBGrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=true;
dxDBGrid1.ColumnByFieldName('Ӧ<><D3A6>RMB').Visible:=true;
dxDBGrid1.ColumnByFieldName('<27>ѿ<EFBFBD>RMB').Visible:=true;
dxDBGrid1.ColumnByFieldName('δ<><CEB4>RMB').Visible:=true;
dxDBGrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD>RMB').Visible:=true;
dxDBGrid1.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=true;
dxDBGrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=true;
dxDBGrid1.ColumnByFieldName('Ӧ<><D3A6><EFBFBD>ϼ<EFBFBD>').Visible:=true;
dxDBGrid1.ColumnByFieldName('<27>ѿ<EFBFBD><D1BF>ϼ<EFBFBD>').Visible:=true;
dxDBGrid1.ColumnByFieldName('δ<><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=true;
dxDBGrid1.ColumnByFieldName('<27><><EFBFBD>պϼ<D5BA>').Visible:=true;
dxDBGrid1.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD>պϼ<D5BA>').Visible:=true;
dxDBGrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=true;
dxDBGrid6.ColumnByFieldName('Ӧ<><D3A6>USD').Visible:=true;
dxDBGrid6.ColumnByFieldName('<27>ѿ<EFBFBD>USD').Visible:=true;
dxDBGrid6.ColumnByFieldName('δ<><CEB4>USD').Visible:=true;
dxDBGrid6.ColumnByFieldName('<27><><EFBFBD><EFBFBD>USD').Visible:=true;
dxDBGrid6.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=true;
dxDBGrid6.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=true;
dxDBGrid6.ColumnByFieldName('Ӧ<><D3A6>RMB').Visible:=true;
dxDBGrid6.ColumnByFieldName('<27>ѿ<EFBFBD>RMB').Visible:=true;
dxDBGrid6.ColumnByFieldName('δ<><CEB4>RMB').Visible:=true;
dxDBGrid6.ColumnByFieldName('<27><><EFBFBD><EFBFBD>RMB').Visible:=true;
dxDBGrid6.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=true;
dxDBGrid6.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=true;
dxDBGrid6.ColumnByFieldName('Ӧ<><D3A6><EFBFBD>ϼ<EFBFBD>').Visible:=true;
dxDBGrid6.ColumnByFieldName('<27>ѿ<EFBFBD><D1BF>ϼ<EFBFBD>').Visible:=true;
dxDBGrid6.ColumnByFieldName('δ<><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=true;
dxDBGrid6.ColumnByFieldName('<27><><EFBFBD>պϼ<D5BA>').Visible:=true;
dxDBGrid6.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD>պϼ<D5BA>').Visible:=true;
dxDBGrid6.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=true;
dxDBGrid7.ColumnByFieldName('Ӧ<><D3A6>USD').Visible:=true;
dxDBGrid7.ColumnByFieldName('<27>ѿ<EFBFBD>USD').Visible:=true;
dxDBGrid7.ColumnByFieldName('δ<><CEB4>USD').Visible:=true;
dxDBGrid7.ColumnByFieldName('<27><><EFBFBD><EFBFBD>USD').Visible:=true;
dxDBGrid7.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=true;
dxDBGrid7.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=true;
dxDBGrid7.ColumnByFieldName('Ӧ<><D3A6>RMB').Visible:=true;
dxDBGrid7.ColumnByFieldName('<27>ѿ<EFBFBD>RMB').Visible:=true;
dxDBGrid7.ColumnByFieldName('δ<><CEB4>RMB').Visible:=true;
dxDBGrid7.ColumnByFieldName('<27><><EFBFBD><EFBFBD>RMB').Visible:=true;
dxDBGrid7.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=true;
dxDBGrid7.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=true;
dxDBGrid7.ColumnByFieldName('Ӧ<><D3A6><EFBFBD>ϼ<EFBFBD>').Visible:=true;
dxDBGrid7.ColumnByFieldName('<27>ѿ<EFBFBD><D1BF>ϼ<EFBFBD>').Visible:=true;
dxDBGrid7.ColumnByFieldName('δ<><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=true;
dxDBGrid7.ColumnByFieldName('<27><><EFBFBD>պϼ<D5BA>').Visible:=true;
dxDBGrid7.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD>պϼ<D5BA>').Visible:=true;
dxDBGrid7.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=true;
end else if bsSkinCheckRadioBox2.Checked then begin
dxDBGrid2.ColumnByFieldName('Ӧ<><D3A6>USD').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27>ѿ<EFBFBD>USD').Visible:=false;
dxDBGrid2.ColumnByFieldName('δ<><CEB4>USD').Visible:=true;
dxDBGrid2.ColumnByFieldName('<27><><EFBFBD><EFBFBD>USD').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=false;
dxDBGrid2.ColumnByFieldName('Ӧ<><D3A6>RMB').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27>ѿ<EFBFBD>RMB').Visible:=false;
dxDBGrid2.ColumnByFieldName('δ<><CEB4>RMB').Visible:=true;
dxDBGrid2.ColumnByFieldName('<27><><EFBFBD><EFBFBD>RMB').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=false;
dxDBGrid2.ColumnByFieldName('Ӧ<><D3A6><EFBFBD>ϼ<EFBFBD>').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27>ѿ<EFBFBD><D1BF>ϼ<EFBFBD>').Visible:=false;
dxDBGrid2.ColumnByFieldName('δ<><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=true;
dxDBGrid2.ColumnByFieldName('<27><><EFBFBD>պϼ<D5BA>').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD>պϼ<D5BA>').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=false;
dxDBGrid1.ColumnByFieldName('Ӧ<><D3A6>USD').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27>ѿ<EFBFBD>USD').Visible:=false;
dxDBGrid1.ColumnByFieldName('δ<><CEB4>USD').Visible:=true;
dxDBGrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD>USD').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=false;
dxDBGrid1.ColumnByFieldName('Ӧ<><D3A6>RMB').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27>ѿ<EFBFBD>RMB').Visible:=false;
dxDBGrid1.ColumnByFieldName('δ<><CEB4>RMB').Visible:=true;
dxDBGrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD>RMB').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=false;
dxDBGrid1.ColumnByFieldName('Ӧ<><D3A6><EFBFBD>ϼ<EFBFBD>').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27>ѿ<EFBFBD><D1BF>ϼ<EFBFBD>').Visible:=false;
dxDBGrid1.ColumnByFieldName('δ<><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=true;
dxDBGrid1.ColumnByFieldName('<27><><EFBFBD>պϼ<D5BA>').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD>պϼ<D5BA>').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=false;
dxDBGrid6.ColumnByFieldName('Ӧ<><D3A6>USD').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27>ѿ<EFBFBD>USD').Visible:=false;
dxDBGrid6.ColumnByFieldName('δ<><CEB4>USD').Visible:=true;
dxDBGrid6.ColumnByFieldName('<27><><EFBFBD><EFBFBD>USD').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=false;
dxDBGrid6.ColumnByFieldName('Ӧ<><D3A6>RMB').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27>ѿ<EFBFBD>RMB').Visible:=false;
dxDBGrid6.ColumnByFieldName('δ<><CEB4>RMB').Visible:=true;
dxDBGrid6.ColumnByFieldName('<27><><EFBFBD><EFBFBD>RMB').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=false;
dxDBGrid6.ColumnByFieldName('Ӧ<><D3A6><EFBFBD>ϼ<EFBFBD>').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27>ѿ<EFBFBD><D1BF>ϼ<EFBFBD>').Visible:=false;
dxDBGrid6.ColumnByFieldName('δ<><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=true;
dxDBGrid6.ColumnByFieldName('<27><><EFBFBD>պϼ<D5BA>').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD>պϼ<D5BA>').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=false;
dxDBGrid7.ColumnByFieldName('Ӧ<><D3A6>USD').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27>ѿ<EFBFBD>USD').Visible:=false;
dxDBGrid7.ColumnByFieldName('δ<><CEB4>USD').Visible:=true;
dxDBGrid7.ColumnByFieldName('<27><><EFBFBD><EFBFBD>USD').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=false;
dxDBGrid7.ColumnByFieldName('Ӧ<><D3A6>RMB').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27>ѿ<EFBFBD>RMB').Visible:=false;
dxDBGrid7.ColumnByFieldName('δ<><CEB4>RMB').Visible:=true;
dxDBGrid7.ColumnByFieldName('<27><><EFBFBD><EFBFBD>RMB').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=false;
dxDBGrid7.ColumnByFieldName('Ӧ<><D3A6><EFBFBD>ϼ<EFBFBD>').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27>ѿ<EFBFBD><D1BF>ϼ<EFBFBD>').Visible:=false;
dxDBGrid7.ColumnByFieldName('δ<><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=true;
dxDBGrid7.ColumnByFieldName('<27><><EFBFBD>պϼ<D5BA>').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD>պϼ<D5BA>').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=false;
end else if bsSkinCheckRadioBox3.Checked then begin
dxDBGrid2.ColumnByFieldName('Ӧ<><D3A6>USD').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27>ѿ<EFBFBD>USD').Visible:=false;
dxDBGrid2.ColumnByFieldName('δ<><CEB4>USD').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27><><EFBFBD><EFBFBD>USD').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=true;
dxDBGrid2.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=false;
dxDBGrid2.ColumnByFieldName('Ӧ<><D3A6>RMB').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27>ѿ<EFBFBD>RMB').Visible:=false;
dxDBGrid2.ColumnByFieldName('δ<><CEB4>RMB').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27><><EFBFBD><EFBFBD>RMB').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=true;
dxDBGrid2.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=false;
dxDBGrid2.ColumnByFieldName('Ӧ<><D3A6><EFBFBD>ϼ<EFBFBD>').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27>ѿ<EFBFBD><D1BF>ϼ<EFBFBD>').Visible:=false;
dxDBGrid2.ColumnByFieldName('δ<><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27><><EFBFBD>պϼ<D5BA>').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD>պϼ<D5BA>').Visible:=true;
dxDBGrid2.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=false;
dxDBGrid1.ColumnByFieldName('Ӧ<><D3A6>USD').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27>ѿ<EFBFBD>USD').Visible:=false;
dxDBGrid1.ColumnByFieldName('δ<><CEB4>USD').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD>USD').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=true;
dxDBGrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=false;
dxDBGrid1.ColumnByFieldName('Ӧ<><D3A6>RMB').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27>ѿ<EFBFBD>RMB').Visible:=false;
dxDBGrid1.ColumnByFieldName('δ<><CEB4>RMB').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD>RMB').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=true;
dxDBGrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=false;
dxDBGrid1.ColumnByFieldName('Ӧ<><D3A6><EFBFBD>ϼ<EFBFBD>').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27>ѿ<EFBFBD><D1BF>ϼ<EFBFBD>').Visible:=false;
dxDBGrid1.ColumnByFieldName('δ<><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27><><EFBFBD>պϼ<D5BA>').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD>պϼ<D5BA>').Visible:=true;
dxDBGrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=false;
dxDBGrid6.ColumnByFieldName('Ӧ<><D3A6>USD').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27>ѿ<EFBFBD>USD').Visible:=false;
dxDBGrid6.ColumnByFieldName('δ<><CEB4>USD').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27><><EFBFBD><EFBFBD>USD').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=true;
dxDBGrid6.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=false;
dxDBGrid6.ColumnByFieldName('Ӧ<><D3A6>RMB').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27>ѿ<EFBFBD>RMB').Visible:=false;
dxDBGrid6.ColumnByFieldName('δ<><CEB4>RMB').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27><><EFBFBD><EFBFBD>RMB').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=true;
dxDBGrid6.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=false;
dxDBGrid6.ColumnByFieldName('Ӧ<><D3A6><EFBFBD>ϼ<EFBFBD>').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27>ѿ<EFBFBD><D1BF>ϼ<EFBFBD>').Visible:=false;
dxDBGrid6.ColumnByFieldName('δ<><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27><><EFBFBD>պϼ<D5BA>').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD>պϼ<D5BA>').Visible:=true;
dxDBGrid6.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=false;
dxDBGrid7.ColumnByFieldName('Ӧ<><D3A6>USD').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27>ѿ<EFBFBD>USD').Visible:=false;
dxDBGrid7.ColumnByFieldName('δ<><CEB4>USD').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27><><EFBFBD><EFBFBD>USD').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=true;
dxDBGrid7.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=false;
dxDBGrid7.ColumnByFieldName('Ӧ<><D3A6>RMB').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27>ѿ<EFBFBD>RMB').Visible:=false;
dxDBGrid7.ColumnByFieldName('δ<><CEB4>RMB').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27><><EFBFBD><EFBFBD>RMB').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=true;
dxDBGrid7.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=false;
dxDBGrid7.ColumnByFieldName('Ӧ<><D3A6><EFBFBD>ϼ<EFBFBD>').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27>ѿ<EFBFBD><D1BF>ϼ<EFBFBD>').Visible:=false;
dxDBGrid7.ColumnByFieldName('δ<><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27><><EFBFBD>պϼ<D5BA>').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD>պϼ<D5BA>').Visible:=true;
dxDBGrid7.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=false;
end else if bsSkinCheckRadioBox4.Checked then begin
dxDBGrid2.ColumnByFieldName('Ӧ<><D3A6>USD').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27>ѿ<EFBFBD>USD').Visible:=true;
dxDBGrid2.ColumnByFieldName('δ<><CEB4>USD').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27><><EFBFBD><EFBFBD>USD').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=true;
dxDBGrid2.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=false;
dxDBGrid2.ColumnByFieldName('Ӧ<><D3A6>RMB').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27>ѿ<EFBFBD>RMB').Visible:=true;
dxDBGrid2.ColumnByFieldName('δ<><CEB4>RMB').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27><><EFBFBD><EFBFBD>RMB').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=true;
dxDBGrid2.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=false;
dxDBGrid2.ColumnByFieldName('Ӧ<><D3A6><EFBFBD>ϼ<EFBFBD>').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27>ѿ<EFBFBD><D1BF>ϼ<EFBFBD>').Visible:=true;
dxDBGrid2.ColumnByFieldName('δ<><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27><><EFBFBD>պϼ<D5BA>').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD>պϼ<D5BA>').Visible:=true;
dxDBGrid2.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=false;
dxDBGrid1.ColumnByFieldName('Ӧ<><D3A6>USD').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27>ѿ<EFBFBD>USD').Visible:=true;
dxDBGrid1.ColumnByFieldName('δ<><CEB4>USD').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD>USD').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=true;
dxDBGrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=false;
dxDBGrid1.ColumnByFieldName('Ӧ<><D3A6>RMB').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27>ѿ<EFBFBD>RMB').Visible:=true;
dxDBGrid1.ColumnByFieldName('δ<><CEB4>RMB').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD>RMB').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=true;
dxDBGrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=false;
dxDBGrid1.ColumnByFieldName('Ӧ<><D3A6><EFBFBD>ϼ<EFBFBD>').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27>ѿ<EFBFBD><D1BF>ϼ<EFBFBD>').Visible:=true;
dxDBGrid1.ColumnByFieldName('δ<><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27><><EFBFBD>պϼ<D5BA>').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD>պϼ<D5BA>').Visible:=true;
dxDBGrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=false;
dxDBGrid6.ColumnByFieldName('Ӧ<><D3A6>USD').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27>ѿ<EFBFBD>USD').Visible:=true;
dxDBGrid6.ColumnByFieldName('δ<><CEB4>USD').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27><><EFBFBD><EFBFBD>USD').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=true;
dxDBGrid6.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=false;
dxDBGrid6.ColumnByFieldName('Ӧ<><D3A6>RMB').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27>ѿ<EFBFBD>RMB').Visible:=true;
dxDBGrid6.ColumnByFieldName('δ<><CEB4>RMB').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27><><EFBFBD><EFBFBD>RMB').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=true;
dxDBGrid6.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=false;
dxDBGrid6.ColumnByFieldName('Ӧ<><D3A6><EFBFBD>ϼ<EFBFBD>').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27>ѿ<EFBFBD><D1BF>ϼ<EFBFBD>').Visible:=true;
dxDBGrid6.ColumnByFieldName('δ<><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27><><EFBFBD>պϼ<D5BA>').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD>պϼ<D5BA>').Visible:=true;
dxDBGrid6.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=false;
dxDBGrid7.ColumnByFieldName('Ӧ<><D3A6>USD').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27>ѿ<EFBFBD>USD').Visible:=true;
dxDBGrid7.ColumnByFieldName('δ<><CEB4>USD').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27><><EFBFBD><EFBFBD>USD').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=true;
dxDBGrid7.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=false;
dxDBGrid7.ColumnByFieldName('Ӧ<><D3A6>RMB').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27>ѿ<EFBFBD>RMB').Visible:=true;
dxDBGrid7.ColumnByFieldName('δ<><CEB4>RMB').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27><><EFBFBD><EFBFBD>RMB').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=true;
dxDBGrid7.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=false;
dxDBGrid7.ColumnByFieldName('Ӧ<><D3A6><EFBFBD>ϼ<EFBFBD>').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27>ѿ<EFBFBD><D1BF>ϼ<EFBFBD>').Visible:=true;
dxDBGrid7.ColumnByFieldName('δ<><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27><><EFBFBD>պϼ<D5BA>').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD>պϼ<D5BA>').Visible:=true;
dxDBGrid7.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=false;
end else if bsSkinCheckRadioBox5.Checked then begin
dxDBGrid2.ColumnByFieldName('Ӧ<><D3A6>USD').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27>ѿ<EFBFBD>USD').Visible:=false;
dxDBGrid2.ColumnByFieldName('δ<><CEB4>USD').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27><><EFBFBD><EFBFBD>USD').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=true;
dxDBGrid2.ColumnByFieldName('Ӧ<><D3A6>RMB').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27>ѿ<EFBFBD>RMB').Visible:=false;
dxDBGrid2.ColumnByFieldName('δ<><CEB4>RMB').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27><><EFBFBD><EFBFBD>RMB').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=true;
dxDBGrid2.ColumnByFieldName('Ӧ<><D3A6><EFBFBD>ϼ<EFBFBD>').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27>ѿ<EFBFBD><D1BF>ϼ<EFBFBD>').Visible:=false;
dxDBGrid2.ColumnByFieldName('δ<><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27><><EFBFBD>պϼ<D5BA>').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD>պϼ<D5BA>').Visible:=false;
dxDBGrid2.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=true;
dxDBGrid1.ColumnByFieldName('Ӧ<><D3A6>USD').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27>ѿ<EFBFBD>USD').Visible:=false;
dxDBGrid1.ColumnByFieldName('δ<><CEB4>USD').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD>USD').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=true;
dxDBGrid1.ColumnByFieldName('Ӧ<><D3A6>RMB').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27>ѿ<EFBFBD>RMB').Visible:=false;
dxDBGrid1.ColumnByFieldName('δ<><CEB4>RMB').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD>RMB').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=true;
dxDBGrid1.ColumnByFieldName('Ӧ<><D3A6><EFBFBD>ϼ<EFBFBD>').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27>ѿ<EFBFBD><D1BF>ϼ<EFBFBD>').Visible:=false;
dxDBGrid1.ColumnByFieldName('δ<><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27><><EFBFBD>պϼ<D5BA>').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD>պϼ<D5BA>').Visible:=false;
dxDBGrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=true;
dxDBGrid6.ColumnByFieldName('Ӧ<><D3A6>USD').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27>ѿ<EFBFBD>USD').Visible:=false;
dxDBGrid6.ColumnByFieldName('δ<><CEB4>USD').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27><><EFBFBD><EFBFBD>USD').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=true;
dxDBGrid6.ColumnByFieldName('Ӧ<><D3A6>RMB').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27>ѿ<EFBFBD>RMB').Visible:=false;
dxDBGrid6.ColumnByFieldName('δ<><CEB4>RMB').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27><><EFBFBD><EFBFBD>RMB').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=true;
dxDBGrid6.ColumnByFieldName('Ӧ<><D3A6><EFBFBD>ϼ<EFBFBD>').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27>ѿ<EFBFBD><D1BF>ϼ<EFBFBD>').Visible:=false;
dxDBGrid6.ColumnByFieldName('δ<><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27><><EFBFBD>պϼ<D5BA>').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD>պϼ<D5BA>').Visible:=false;
dxDBGrid6.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=true;
dxDBGrid7.ColumnByFieldName('Ӧ<><D3A6>USD').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27>ѿ<EFBFBD>USD').Visible:=false;
dxDBGrid7.ColumnByFieldName('δ<><CEB4>USD').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27><><EFBFBD><EFBFBD>USD').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>USD').Visible:=true;
dxDBGrid7.ColumnByFieldName('Ӧ<><D3A6>RMB').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27>ѿ<EFBFBD>RMB').Visible:=false;
dxDBGrid7.ColumnByFieldName('δ<><CEB4>RMB').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27><><EFBFBD><EFBFBD>RMB').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>RMB').Visible:=true;
dxDBGrid7.ColumnByFieldName('Ӧ<><D3A6><EFBFBD>ϼ<EFBFBD>').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27>ѿ<EFBFBD><D1BF>ϼ<EFBFBD>').Visible:=false;
dxDBGrid7.ColumnByFieldName('δ<><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27><><EFBFBD>պϼ<D5BA>').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27>ѿ<EFBFBD>δ<EFBFBD>պϼ<D5BA>').Visible:=false;
dxDBGrid7.ColumnByFieldName('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD>ϼ<EFBFBD>').Visible:=true;
end;
end;
procedure Tfrm_rp_in_total.dxDBGrid2DblClick(Sender: TObject);
begin
fee_view(p_bill.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
end;
end.
Reference in New Issue View Git Blame Copy Permalink