hanxuntao
/
D6HECHUAN
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 'master'
${ noResults }
D6HECHUAN/费用模块/u_fee_zhu.~pas

850 lines
27 KiB
Plaintext
Raw Permalink 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_fee_zhu;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
DB, ADODB, StdCtrls, Mask, bsSkinBoxCtrls, bsdbctrls, bsSkinCtrls,
dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid, dxDBTLCl, dxGrClms, Menus,
XPMenu, ComCtrls, bsSkinTabs, RxMemDS;
type
Tfra_fee_zhu = class(TFrame)
t_ch_accept: TADOStoredProc;
t_ch_pay: TADOStoredProc;
t_op_gain: TADOStoredProc;
t_ch_accept1: TDataSource;
t_op_gain1: TDataSource;
t_ch_pay1: TDataSource;
bsSkinPanel1: TbsSkinPanel;
bsSkinPanel2: TbsSkinPanel;
bsSkinStdLabel1: TbsSkinStdLabel;
bsSkinStdLabel2: TbsSkinStdLabel;
bsSkinStdLabel3: TbsSkinStdLabel;
bsSkinStdLabel4: TbsSkinStdLabel;
bsSkinStdLabel5: TbsSkinStdLabel;
bsSkinStdLabel6: TbsSkinStdLabel;
bsSkinStdLabel7: TbsSkinStdLabel;
bsSkinStdLabel8: TbsSkinStdLabel;
bsSkinStdLabel9: TbsSkinStdLabel;
bsSkinStdLabel10: TbsSkinStdLabel;
bsSkinDBEdit1: TbsSkinDBEdit;
bsSkinDBEdit2: TbsSkinDBEdit;
bsSkinDBEdit3: TbsSkinDBEdit;
bsSkinDBEdit4: TbsSkinDBEdit;
bsSkinDBEdit5: TbsSkinDBEdit;
bsSkinDBEdit6: TbsSkinDBEdit;
bsSkinDBEdit7: TbsSkinDBEdit;
bsSkinDBEdit8: TbsSkinDBEdit;
bsSkinDBEdit9: TbsSkinDBEdit;
PopupMenu3: TPopupMenu;
N10: TMenuItem;
N29: TMenuItem;
N30: TMenuItem;
N31: TMenuItem;
N19: TMenuItem;
N14: TMenuItem;
N41: TMenuItem;
N42: TMenuItem;
N43: TMenuItem;
N24: TMenuItem;
N18: TMenuItem;
N53: TMenuItem;
N54: TMenuItem;
N55: TMenuItem;
zhupiao1: TDataSource;
XPMenu1: TXPMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
bsSkinDBEdit10: TbsSkinDBEdit;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
N17: TMenuItem;
N20: TMenuItem;
N21: TMenuItem;
N22: TMenuItem;
N23: TMenuItem;
N25: TMenuItem;
bsSkinPageControl1: TbsSkinPageControl;
bsSkinTabSheet1: TbsSkinTabSheet;
bsSkinTabSheet2: TbsSkinTabSheet;
bsSkinPanel3: TbsSkinPanel;
dxDBGrid1: TdxDBGrid;
dxDBGrid1Column1: TdxDBGridMaskColumn;
dxDBGrid1Column2: TdxDBGridMaskColumn;
dxDBGrid1Column4: TdxDBGridMaskColumn;
dxDBGrid1Column7: TdxDBGridMaskColumn;
dxDBGrid1Column8: TdxDBGridMaskColumn;
dxDBGrid1Column9: TdxDBGridMaskColumn;
dxDBGrid1Column10: TdxDBGridColumn;
dxDBGrid1Column11: TdxDBGridMaskColumn;
dxDBGrid1Column12: TdxDBGridColumn;
dxDBGrid1Column18: TdxDBGridColumn;
dxDBGrid1Column13: TdxDBGridColumn;
dxDBGrid1Column17: TdxDBGridColumn;
dxDBGrid1Column14: TdxDBGridColumn;
dxDBGrid1Column15: TdxDBGridColumn;
dxDBGrid1Column16: TdxDBGridColumn;
bsSkinPanel4: TbsSkinPanel;
dxDBGrid2: TdxDBGrid;
dxDBGridMaskColumn1: TdxDBGridMaskColumn;
dxDBGridMaskColumn2: TdxDBGridMaskColumn;
dxDBGridMaskColumn3: TdxDBGridMaskColumn;
dxDBGridMaskColumn4: TdxDBGridMaskColumn;
dxDBGridMaskColumn5: TdxDBGridMaskColumn;
dxDBGridMaskColumn6: TdxDBGridMaskColumn;
dxDBGridCurrencyColumn1: TdxDBGridColumn;
dxDBGridMaskColumn7: TdxDBGridMaskColumn;
dxDBGridCurrencyColumn2: TdxDBGridColumn;
dxDBGrid2Column15: TdxDBGridColumn;
dxDBGridColumn1: TdxDBGridColumn;
dxDBGridColumn2: TdxDBGridColumn;
dxDBGridColumn3: TdxDBGridColumn;
dxDBGridColumn4: TdxDBGridColumn;
dxDBGridColumn5: TdxDBGridColumn;
t_op_gain_fen: TADOStoredProc;
t_op_gain_fen1: TDataSource;
dxDBGrid3: TdxDBGrid;
dxDBGrid3Column1: TdxDBGridColumn;
dxDBGrid3Column2: TdxDBGridColumn;
dxDBGrid3Column3: TdxDBGridColumn;
dxDBGrid3Column4: TdxDBGridColumn;
dxDBGrid3Column5: TdxDBGridColumn;
dxDBGrid3Column9: TdxDBGridColumn;
dxDBGrid3Column10: TdxDBGridColumn;
dxDBGrid3Column11: TdxDBGridColumn;
dxDBGrid3Column12: TdxDBGridColumn;
dxDBGrid3Column13: TdxDBGridColumn;
dxDBGrid3Column14: TdxDBGridColumn;
dxDBGrid3Column15: TdxDBGridColumn;
N26: TMenuItem;
N27: TMenuItem;
N28: TMenuItem;
N32: TMenuItem;
N33: TMenuItem;
N34: TMenuItem;
N35: TMenuItem;
bsSkinButton9: TbsSkinButton;
t_client_sum: TRxMemoryData;
t_client_sum1: TDataSource;
N36: TMenuItem;
N37: TMenuItem;
N38: TMenuItem;
N39: TMenuItem;
N40: TMenuItem;
N44: TMenuItem;
N45: TMenuItem;
t_sum: TRxMemoryData;
t_sum1: TDataSource;
fenpiao1: TDataSource;
bskntbsht1: TbsSkinTabSheet;
dxDBGrid4: TdxDBGrid;
dxDBGridColumn6: TdxDBGridColumn;
dxDBGridColumn7: TdxDBGridColumn;
dxDBGridColumn8: TdxDBGridColumn;
dxDBGridColumn9: TdxDBGridColumn;
dxDBGridColumn10: TdxDBGridColumn;
dxDBGridColumn11: TdxDBGridColumn;
dxDBGridColumn12: TdxDBGridColumn;
dxDBGridColumn13: TdxDBGridColumn;
t_op_pin_he: TADOQuery;
ds_op_pin_he1: TDataSource;
procedure bsSkinButton9Click(Sender: TObject);
procedure N29Click(Sender: TObject);
procedure N31Click(Sender: TObject);
procedure N41Click(Sender: TObject);
procedure N43Click(Sender: TObject);
procedure N53Click(Sender: TObject);
procedure N55Click(Sender: TObject);
procedure bsSkinPanel2Resize(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure dxDBGrid1ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure dxDBGrid2ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure N13Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N23Click(Sender: TObject);
procedure N21Click(Sender: TObject);
procedure N17Click(Sender: TObject);
procedure N28Click(Sender: TObject);
procedure N33Click(Sender: TObject);
procedure N35Click(Sender: TObject);
procedure N38Click(Sender: TObject);
procedure N40Click(Sender: TObject);
procedure N45Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
implementation
uses u_main, my_sys_function, u_data_share;
{$R *.dfm}
procedure Tfra_fee_zhu.bsSkinButton9Click(Sender: TObject);
var
Pnt:Tpoint;
begin
Pnt:=bsSkinButton9.ClientToScreen(Point(0,bsSkinButton9.Height));
PopupMenu3.Popup(Pnt.x,Pnt.y);
end;
procedure Tfra_fee_zhu.N29Click(Sender: TObject);
begin
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>ƴ<EFBFBD><C6B4>Ӧ<EFBFBD>շ<EFBFBD><D5B7><EFBFBD>',1,zhupiao1,t_op_gain1,nil,nil,t_ch_accept1,nil,nil,nil,nil,nil,nil);
end;
procedure Tfra_fee_zhu.N31Click(Sender: TObject);
begin
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>ƴ<EFBFBD><C6B4>Ӧ<EFBFBD>շ<EFBFBD><D5B7><EFBFBD>',2,zhupiao1,t_op_gain1,nil,nil,t_ch_accept1,nil,nil,nil,nil,nil,nil);
end;
procedure Tfra_fee_zhu.N41Click(Sender: TObject);
begin
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>ƴ<EFBFBD><C6B4>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',1,zhupiao1,t_op_gain1,nil,nil,t_ch_pay1,nil,nil,nil,nil,nil,nil);
end;
procedure Tfra_fee_zhu.N43Click(Sender: TObject);
begin
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>ƴ<EFBFBD><C6B4>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',2,zhupiao1,t_op_gain1,nil,nil,t_ch_pay1,nil,nil,nil,nil,nil,nil);
end;
procedure Tfra_fee_zhu.N53Click(Sender: TObject);
begin
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>ƴ<EFBFBD><C6B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',1,zhupiao1,t_op_gain1,nil,nil,t_ch_accept1,t_ch_pay1,nil,nil,nil,nil,nil);
if strtobool(get_parameters_value(63,'false'))then
begin
fenpiao1.DataSet.First;
while not fenpiao1.DataSet.eof do
begin
if fenpiao1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
fenpiao1.DataSet.edit;
fenpiao1.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
fenpiao1.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
fenpiao1.DataSet.post;
end;
fenpiao1.DataSet.next;
end;
if zhupiao1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
zhupiao1.DataSet.edit;
zhupiao1.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
zhupiao1.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
zhupiao1.DataSet.post;
end;
end;
end;
procedure Tfra_fee_zhu.N55Click(Sender: TObject);
begin
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>ƴ<EFBFBD><C6B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',2,zhupiao1,t_op_gain1,nil,nil,t_ch_accept1,t_ch_pay1,nil,nil,nil,nil,nil);
if strtobool(get_parameters_value(63,'false'))then
begin
fenpiao1.DataSet.First;
while not fenpiao1.DataSet.eof do
begin
if fenpiao1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
fenpiao1.DataSet.edit;
fenpiao1.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
fenpiao1.DataSet.post;
end;
fenpiao1.DataSet.next;
end;
if zhupiao1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
zhupiao1.DataSet.edit;
zhupiao1.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
zhupiao1.DataSet.post;
end;
end;
end;
procedure Tfra_fee_zhu.bsSkinPanel2Resize(Sender: TObject);
var
i:integer;
begin
i:=round((bsSkinPanel2.Width-196)/10);
bsSkinPanel3.Height:=round(bsSkinTabSheet2.Height/2);
bsSkinDBEdit1.Width:=i;
bsSkinDBEdit2.Width:=i;
bsSkinDBEdit3.Width:=i;
bsSkinDBEdit4.Width:=i;
bsSkinDBEdit5.Width:=i;
bsSkinDBEdit6.Width:=i;
bsSkinDBEdit7.Width:=i;
bsSkinDBEdit8.Width:=i;
bsSkinDBEdit9.Width:=i;
end;
procedure Tfra_fee_zhu.N1Click(Sender: TObject);
begin
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>ƴ<EFBFBD><C6B4>Ӧ<EFBFBD>շ<EFBFBD><D5B7><EFBFBD>',3,zhupiao1,t_op_gain1,nil,nil,t_ch_accept1,nil,nil,nil,nil,nil,nil);
end;
procedure Tfra_fee_zhu.N3Click(Sender: TObject);
begin
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>ƴ<EFBFBD><C6B4>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',3,zhupiao1,t_op_gain1,nil,nil,t_ch_pay1,nil,nil,nil,nil,nil,nil);
end;
procedure Tfra_fee_zhu.N5Click(Sender: TObject);
begin
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>ƴ<EFBFBD><C6B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',3,zhupiao1,t_op_gain1,nil,nil,t_ch_accept1,t_ch_pay1,nil,nil,nil,nil,nil);
if strtobool(get_parameters_value(63,'false'))then
begin
fenpiao1.DataSet.First;
while not fenpiao1.DataSet.eof do
begin
if fenpiao1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
fenpiao1.DataSet.edit;
fenpiao1.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
fenpiao1.DataSet.post;
end;
fenpiao1.DataSet.next;
end;
if zhupiao1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
zhupiao1.DataSet.edit;
zhupiao1.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
zhupiao1.DataSet.post;
end;
end;
end;
procedure Tfra_fee_zhu.dxDBGrid1ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort_pro(Column,t_ch_accept,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfra_fee_zhu.dxDBGrid2ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort_pro(Column,t_ch_pay,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfra_fee_zhu.N13Click(Sender: TObject);
var
str:string;
begin
try
str:=t_ch_accept.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring;
t_ch_accept.DisableControls;
t_ch_accept.Filtered:=false;
t_ch_accept.Filter:='<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='+''''+str+'''';
t_ch_accept.Filtered:=true;
t_sum.close;
t_sum.open;
t_ch_accept.first;
while not t_ch_accept.eof do
begin
if t_sum.locate('<27>ұ<EFBFBD>',t_ch_accept.fieldbyname('<27>ұ<EFBFBD>').asstring,[]) then
begin
t_sum.edit;
t_sum['<27><><EFBFBD><EFBFBD>']:=t_sum['<27><><EFBFBD><EFBFBD>']+t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_sum['<27>ۺ<EFBFBD>RMB']:=t_sum['<27>ۺ<EFBFBD>RMB']+t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
*t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_sum.post;
end
else
begin
t_sum.insert;
t_sum['<27>ұ<EFBFBD>']:=t_ch_accept.fieldbyname('<27>ұ<EFBFBD>').asstring;
t_sum['<27><><EFBFBD><EFBFBD>']:=t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_sum['<27>ۺ<EFBFBD>RMB']:=t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
*t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_sum.post;
end;
t_ch_accept.next;
end;
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>ƴ<EFBFBD><C6B4>Ӧ<EFBFBD>տͻ<D5BF>',1,zhupiao1,nil,nil,nil,t_ch_accept1,t_sum1,nil,nil,nil,nil,nil);
finally
t_ch_accept.Filtered:=false;
t_ch_accept.EnableControls;
end;
end;
procedure Tfra_fee_zhu.N11Click(Sender: TObject);
var
str:string;
begin
try
str:=t_ch_accept.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring;
t_ch_accept.DisableControls;
t_ch_accept.Filtered:=false;
t_ch_accept.Filter:='<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='+''''+str+'''';
t_ch_accept.Filtered:=true;
t_sum.close;
t_sum.open;
t_ch_accept.first;
while not t_ch_accept.eof do
begin
if t_sum.locate('<27>ұ<EFBFBD>',t_ch_accept.fieldbyname('<27>ұ<EFBFBD>').asstring,[]) then
begin
t_sum.edit;
t_sum['<27><><EFBFBD><EFBFBD>']:=t_sum['<27><><EFBFBD><EFBFBD>']+t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_sum['<27>ۺ<EFBFBD>RMB']:=t_sum['<27>ۺ<EFBFBD>RMB']+t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
*t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_sum.post;
end
else
begin
t_sum.insert;
t_sum['<27>ұ<EFBFBD>']:=t_ch_accept.fieldbyname('<27>ұ<EFBFBD>').asstring;
t_sum['<27><><EFBFBD><EFBFBD>']:=t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_sum['<27>ۺ<EFBFBD>RMB']:=t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
*t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_sum.post;
end;
t_ch_accept.next;
end;
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>ƴ<EFBFBD><C6B4>Ӧ<EFBFBD>տͻ<D5BF>',3,zhupiao1,nil,nil,nil,t_ch_accept1,t_sum1,nil,nil,nil,nil,nil);
finally
t_ch_accept.Filtered:=false;
t_ch_accept.EnableControls;
end;
end;
procedure Tfra_fee_zhu.N8Click(Sender: TObject);
var
str:string;
begin
try
str:=t_ch_accept.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring;
t_ch_accept.DisableControls;
t_ch_accept.Filtered:=false;
t_ch_accept.Filter:='<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='+''''+str+'''';
t_ch_accept.Filtered:=true;
t_sum.close;
t_sum.open;
t_ch_accept.first;
while not t_ch_accept.eof do
begin
if t_sum.locate('<27>ұ<EFBFBD>',t_ch_accept.fieldbyname('<27>ұ<EFBFBD>').asstring,[]) then
begin
t_sum.edit;
t_sum['<27><><EFBFBD><EFBFBD>']:=t_sum['<27><><EFBFBD><EFBFBD>']+t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_sum['<27>ۺ<EFBFBD>RMB']:=t_sum['<27>ۺ<EFBFBD>RMB']+t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
*t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_sum.post;
end
else
begin
t_sum.insert;
t_sum['<27>ұ<EFBFBD>']:=t_ch_accept.fieldbyname('<27>ұ<EFBFBD>').asstring;
t_sum['<27><><EFBFBD><EFBFBD>']:=t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_sum['<27>ۺ<EFBFBD>RMB']:=t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
*t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_sum.post;
end;
t_ch_accept.next;
end;
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>ƴ<EFBFBD><C6B4>Ӧ<EFBFBD>տͻ<D5BF>',2,zhupiao1,nil,nil,nil,t_ch_accept1,t_sum1,nil,nil,nil,nil,nil);
finally
t_ch_accept.Filtered:=false;
t_ch_accept.EnableControls;
end;
end;
procedure Tfra_fee_zhu.N23Click(Sender: TObject);
var
str:string;
begin
try
str:=t_ch_pay.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring;
t_ch_pay.DisableControls;
t_ch_pay.Filtered:=false;
t_ch_pay.Filter:='<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='+''''+str+'''';
t_ch_pay.Filtered:=true;
t_sum.close;
t_sum.open;
t_ch_pay.first;
while not t_ch_pay.eof do
begin
if t_sum.locate('<27>ұ<EFBFBD>',t_ch_pay.fieldbyname('<27>ұ<EFBFBD>').asstring,[]) then
begin
t_sum.edit;
t_sum['<27><><EFBFBD><EFBFBD>']:=t_sum['<27><><EFBFBD><EFBFBD>']+t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_sum['<27>ۺ<EFBFBD>RMB']:=t_sum['<27>ۺ<EFBFBD>RMB']+t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
*t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_sum.post;
end
else
begin
t_sum.insert;
t_sum['<27>ұ<EFBFBD>']:=t_ch_pay.fieldbyname('<27>ұ<EFBFBD>').asstring;
t_sum['<27><><EFBFBD><EFBFBD>']:=t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_sum['<27>ۺ<EFBFBD>RMB']:=t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
*t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_sum.post;
end;
t_ch_pay.next;
end;
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>ƴ<EFBFBD><C6B4>Ӧ<EFBFBD><D3A6><EFBFBD>ͻ<EFBFBD>',1,zhupiao1,nil,nil,nil,t_ch_pay1,t_sum1,nil,nil,nil,nil,nil);
finally
t_ch_pay.Filtered:=false;
t_ch_pay.EnableControls;
end;
end;
procedure Tfra_fee_zhu.N21Click(Sender: TObject);
var
str:string;
begin
try
str:=t_ch_pay.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring;
t_ch_pay.DisableControls;
t_ch_pay.Filtered:=false;
t_ch_pay.Filter:='<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='+''''+str+'''';
t_ch_pay.Filtered:=true;
t_sum.close;
t_sum.open;
t_ch_pay.first;
while not t_ch_pay.eof do
begin
if t_sum.locate('<27>ұ<EFBFBD>',t_ch_pay.fieldbyname('<27>ұ<EFBFBD>').asstring,[]) then
begin
t_sum.edit;
t_sum['<27><><EFBFBD><EFBFBD>']:=t_sum['<27><><EFBFBD><EFBFBD>']+t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_sum['<27>ۺ<EFBFBD>RMB']:=t_sum['<27>ۺ<EFBFBD>RMB']+t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
*t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_sum.post;
end
else
begin
t_sum.insert;
t_sum['<27>ұ<EFBFBD>']:=t_ch_pay.fieldbyname('<27>ұ<EFBFBD>').asstring;
t_sum['<27><><EFBFBD><EFBFBD>']:=t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_sum['<27>ۺ<EFBFBD>RMB']:=t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
*t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_sum.post;
end;
t_ch_pay.next;
end;
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>ƴ<EFBFBD><C6B4>Ӧ<EFBFBD><D3A6><EFBFBD>ͻ<EFBFBD>',3,zhupiao1,nil,nil,nil,t_ch_pay1,t_sum1,nil,nil,nil,nil,nil);
finally
t_ch_pay.Filtered:=false;
t_ch_pay.EnableControls;
end;
end;
procedure Tfra_fee_zhu.N17Click(Sender: TObject);
var
str:string;
begin
try
str:=t_ch_pay.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring;
t_ch_pay.DisableControls;
t_ch_pay.Filtered:=false;
t_ch_pay.Filter:='<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='+''''+str+'''';
t_ch_pay.Filtered:=true;
t_sum.close;
t_sum.open;
t_ch_pay.first;
while not t_ch_pay.eof do
begin
if t_sum.locate('<27>ұ<EFBFBD>',t_ch_pay.fieldbyname('<27>ұ<EFBFBD>').asstring,[]) then
begin
t_sum.edit;
t_sum['<27><><EFBFBD><EFBFBD>']:=t_sum['<27><><EFBFBD><EFBFBD>']+t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_sum['<27>ۺ<EFBFBD>RMB']:=t_sum['<27>ۺ<EFBFBD>RMB']+t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
*t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_sum.post;
end
else
begin
t_sum.insert;
t_sum['<27>ұ<EFBFBD>']:=t_ch_pay.fieldbyname('<27>ұ<EFBFBD>').asstring;
t_sum['<27><><EFBFBD><EFBFBD>']:=t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_sum['<27>ۺ<EFBFBD>RMB']:=t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
*t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_sum.post;
end;
t_ch_pay.next;
end;
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>ƴ<EFBFBD><C6B4>Ӧ<EFBFBD><D3A6><EFBFBD>ͻ<EFBFBD>',2,zhupiao1,nil,nil,nil,t_ch_pay1,t_sum1,nil,nil,nil,nil,nil);
finally
t_ch_pay.Filtered:=false;
t_ch_pay.EnableControls;
end;
end;
procedure Tfra_fee_zhu.N28Click(Sender: TObject);
begin
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>ƴ<EFBFBD><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>',1,zhupiao1,t_op_gain1,nil,nil,t_op_gain_fen1,nil,nil,nil,nil,nil,nil);
end;
procedure Tfra_fee_zhu.N33Click(Sender: TObject);
begin
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>ƴ<EFBFBD><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>',3,zhupiao1,t_op_gain1,nil,nil,t_op_gain_fen1,nil,nil,nil,nil,nil,nil);
end;
procedure Tfra_fee_zhu.N35Click(Sender: TObject);
begin
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>ƴ<EFBFBD><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>',2,zhupiao1,t_op_gain1,nil,nil,t_op_gain_fen1,nil,nil,nil,nil,nil,nil);
end;
procedure Tfra_fee_zhu.N38Click(Sender: TObject);
var
str:string;
begin
try
str:=t_ch_accept.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring;
t_ch_accept.DisableControls;
t_ch_accept.Filtered:=false;
t_ch_accept.Filter:='<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='+''''+str+'''';
t_ch_accept.Filtered:=true;
t_ch_pay.DisableControls;
t_ch_pay.Filtered:=false;
t_ch_pay.Filter:='<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='+''''+str+'''';
t_ch_pay.Filtered:=true;
t_client_sum.close;
t_client_sum.open;
t_ch_accept.first;
while not t_ch_accept.eof do
begin
if t_client_sum.locate('<27>ұ<EFBFBD>',t_ch_accept.fieldbyname('<27>ұ<EFBFBD>').asstring,[]) then
begin
t_client_sum.edit;
t_client_sum['Ӧ<>ս<EFBFBD><D5BD><EFBFBD>']:=t_client_sum['Ӧ<>ս<EFBFBD><D5BD><EFBFBD>']+t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_client_sum['<27><><EFBFBD><EFBFBD>']:=t_client_sum['<27><><EFBFBD><EFBFBD>']+t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_client_sum['<27>ۺ<EFBFBD>RMB<4D><42><EFBFBD><EFBFBD>']:=t_client_sum['<27>ۺ<EFBFBD>RMB<4D><42><EFBFBD><EFBFBD>']+t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
*t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_client_sum.post;
end
else
begin
t_client_sum.insert;
t_client_sum['<27>ұ<EFBFBD>']:=t_ch_accept.fieldbyname('<27>ұ<EFBFBD>').asstring;
t_client_sum['Ӧ<>ս<EFBFBD><D5BD><EFBFBD>']:=t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_client_sum['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
t_client_sum['<27><><EFBFBD><EFBFBD>']:=t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_client_sum['<27>ۺ<EFBFBD>RMB<4D><42><EFBFBD><EFBFBD>']:=t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
*t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_client_sum.post;
end;
t_ch_accept.next;
end;
t_ch_pay.first;
while not t_ch_pay.eof do
begin
if t_client_sum.locate('<27>ұ<EFBFBD>',t_ch_pay.fieldbyname('<27>ұ<EFBFBD>').asstring,[]) then
begin
t_client_sum.edit;
t_client_sum['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_client_sum['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']+t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_client_sum['<27><><EFBFBD><EFBFBD>']:=t_client_sum['<27><><EFBFBD><EFBFBD>']-t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_client_sum['<27>ۺ<EFBFBD>RMB<4D><42><EFBFBD><EFBFBD>']:=t_client_sum['<27>ۺ<EFBFBD>RMB<4D><42><EFBFBD><EFBFBD>']-t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
*t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_client_sum.post;
end
else
begin
t_client_sum.insert;
t_client_sum['<27>ұ<EFBFBD>']:=t_ch_pay.fieldbyname('<27>ұ<EFBFBD>').asstring;
t_client_sum['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_client_sum['Ӧ<>ս<EFBFBD><D5BD><EFBFBD>']:=0;
t_client_sum['<27><><EFBFBD><EFBFBD>']:=t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1;
t_client_sum['<27>ۺ<EFBFBD>RMB<4D><42><EFBFBD><EFBFBD>']:=t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
*t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1;
t_client_sum.post;
end;
t_ch_pay.next;
end;
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>ƴ<EFBFBD><C6B4><EFBFBD>ͻ<EFBFBD><CDBB>ո<EFBFBD>',1,zhupiao1,nil,nil,nil,t_ch_accept1,t_ch_pay1,t_client_sum1,nil,nil,nil,nil);
finally
t_ch_accept.Filtered:=false;
t_ch_accept.EnableControls;
t_ch_pay.Filtered:=false;
t_ch_pay.EnableControls;
end;
end;
procedure Tfra_fee_zhu.N40Click(Sender: TObject);
var
str:string;
begin
try
str:=t_ch_accept.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring;
t_ch_accept.DisableControls;
t_ch_accept.Filtered:=false;
t_ch_accept.Filter:='<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='+''''+str+'''';
t_ch_accept.Filtered:=true;
t_ch_pay.DisableControls;
t_ch_pay.Filtered:=false;
t_ch_pay.Filter:='<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='+''''+str+'''';
t_ch_pay.Filtered:=true;
t_client_sum.close;
t_client_sum.open;
t_ch_accept.first;
while not t_ch_accept.eof do
begin
if t_client_sum.locate('<27>ұ<EFBFBD>',t_ch_accept.fieldbyname('<27>ұ<EFBFBD>').asstring,[]) then
begin
t_client_sum.edit;
t_client_sum['Ӧ<>ս<EFBFBD><D5BD><EFBFBD>']:=t_client_sum['Ӧ<>ս<EFBFBD><D5BD><EFBFBD>']+t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_client_sum['<27><><EFBFBD><EFBFBD>']:=t_client_sum['<27><><EFBFBD><EFBFBD>']+t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_client_sum['<27>ۺ<EFBFBD>RMB<4D><42><EFBFBD><EFBFBD>']:=t_client_sum['<27>ۺ<EFBFBD>RMB<4D><42><EFBFBD><EFBFBD>']+t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
*t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_client_sum.post;
end
else
begin
t_client_sum.insert;
t_client_sum['<27>ұ<EFBFBD>']:=t_ch_accept.fieldbyname('<27>ұ<EFBFBD>').asstring;
t_client_sum['Ӧ<>ս<EFBFBD><D5BD><EFBFBD>']:=t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_client_sum['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
t_client_sum['<27><><EFBFBD><EFBFBD>']:=t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_client_sum['<27>ۺ<EFBFBD>RMB<4D><42><EFBFBD><EFBFBD>']:=t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
*t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_client_sum.post;
end;
t_ch_accept.next;
end;
t_ch_pay.first;
while not t_ch_pay.eof do
begin
if t_client_sum.locate('<27>ұ<EFBFBD>',t_ch_pay.fieldbyname('<27>ұ<EFBFBD>').asstring,[]) then
begin
t_client_sum.edit;
t_client_sum['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_client_sum['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']+t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_client_sum['<27><><EFBFBD><EFBFBD>']:=t_client_sum['<27><><EFBFBD><EFBFBD>']-t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_client_sum['<27>ۺ<EFBFBD>RMB<4D><42><EFBFBD><EFBFBD>']:=t_client_sum['<27>ۺ<EFBFBD>RMB<4D><42><EFBFBD><EFBFBD>']-t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
*t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_client_sum.post;
end
else
begin
t_client_sum.insert;
t_client_sum['<27>ұ<EFBFBD>']:=t_ch_pay.fieldbyname('<27>ұ<EFBFBD>').asstring;
t_client_sum['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_client_sum['Ӧ<>ս<EFBFBD><D5BD><EFBFBD>']:=0;
t_client_sum['<27><><EFBFBD><EFBFBD>']:=t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1;
t_client_sum['<27>ۺ<EFBFBD>RMB<4D><42><EFBFBD><EFBFBD>']:=t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
*t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1;
t_client_sum.post;
end;
t_ch_pay.next;
end;
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>ƴ<EFBFBD><C6B4><EFBFBD>ͻ<EFBFBD><CDBB>ո<EFBFBD>',3,zhupiao1,nil,nil,nil,t_ch_accept1,t_ch_pay1,t_client_sum1,nil,nil,nil,nil);
finally
t_ch_accept.Filtered:=false;
t_ch_accept.EnableControls;
t_ch_pay.Filtered:=false;
t_ch_pay.EnableControls;
end;
end;
procedure Tfra_fee_zhu.N45Click(Sender: TObject);
var
str:string;
begin
try
str:=t_ch_accept.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring;
t_ch_accept.DisableControls;
t_ch_accept.Filtered:=false;
t_ch_accept.Filter:='<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='+''''+str+'''';
t_ch_accept.Filtered:=true;
t_ch_pay.DisableControls;
t_ch_pay.Filtered:=false;
t_ch_pay.Filter:='<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='+''''+str+'''';
t_ch_pay.Filtered:=true;
t_client_sum.close;
t_client_sum.open;
t_ch_accept.first;
while not t_ch_accept.eof do
begin
if t_client_sum.locate('<27>ұ<EFBFBD>',t_ch_accept.fieldbyname('<27>ұ<EFBFBD>').asstring,[]) then
begin
t_client_sum.edit;
t_client_sum['Ӧ<>ս<EFBFBD><D5BD><EFBFBD>']:=t_client_sum['Ӧ<>ս<EFBFBD><D5BD><EFBFBD>']+t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_client_sum['<27><><EFBFBD><EFBFBD>']:=t_client_sum['<27><><EFBFBD><EFBFBD>']+t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_client_sum['<27>ۺ<EFBFBD>RMB<4D><42><EFBFBD><EFBFBD>']:=t_client_sum['<27>ۺ<EFBFBD>RMB<4D><42><EFBFBD><EFBFBD>']+t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
*t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_client_sum.post;
end
else
begin
t_client_sum.insert;
t_client_sum['<27>ұ<EFBFBD>']:=t_ch_accept.fieldbyname('<27>ұ<EFBFBD>').asstring;
t_client_sum['Ӧ<>ս<EFBFBD><D5BD><EFBFBD>']:=t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_client_sum['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
t_client_sum['<27><><EFBFBD><EFBFBD>']:=t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_client_sum['<27>ۺ<EFBFBD>RMB<4D><42><EFBFBD><EFBFBD>']:=t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
*t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_client_sum.post;
end;
t_ch_accept.next;
end;
t_ch_pay.first;
while not t_ch_pay.eof do
begin
if t_client_sum.locate('<27>ұ<EFBFBD>',t_ch_pay.fieldbyname('<27>ұ<EFBFBD>').asstring,[]) then
begin
t_client_sum.edit;
t_client_sum['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_client_sum['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']+t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_client_sum['<27><><EFBFBD><EFBFBD>']:=t_client_sum['<27><><EFBFBD><EFBFBD>']-t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_client_sum['<27>ۺ<EFBFBD>RMB<4D><42><EFBFBD><EFBFBD>']:=t_client_sum['<27>ۺ<EFBFBD>RMB<4D><42><EFBFBD><EFBFBD>']-t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
*t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_client_sum.post;
end
else
begin
t_client_sum.insert;
t_client_sum['<27>ұ<EFBFBD>']:=t_ch_pay.fieldbyname('<27>ұ<EFBFBD>').asstring;
t_client_sum['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
t_client_sum['Ӧ<>ս<EFBFBD><D5BD><EFBFBD>']:=0;
t_client_sum['<27><><EFBFBD><EFBFBD>']:=t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1;
t_client_sum['<27>ۺ<EFBFBD>RMB<4D><42><EFBFBD><EFBFBD>']:=t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
*t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1;
t_client_sum.post;
end;
t_ch_pay.next;
end;
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>ƴ<EFBFBD><C6B4><EFBFBD>ͻ<EFBFBD><CDBB>ո<EFBFBD>',2,zhupiao1,nil,nil,nil,t_ch_accept1,t_ch_pay1,t_client_sum1,nil,nil,nil,nil);
finally
t_ch_accept.Filtered:=false;
t_ch_accept.EnableControls;
t_ch_pay.Filtered:=false;
t_ch_pay.EnableControls;
end;
end;
end.
Reference in New Issue View Git Blame Copy Permalink