|
|
|
|
|
unit u_rp_ch_genleg;
|
|
|
|
|
|
|
|
|
|
|
|
interface
|
|
|
|
|
|
|
|
|
|
|
|
uses
|
|
|
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
|
|
|
Dialogs, bsSkinCtrls, ExtCtrls, ComCtrls, bsSkinTabs, DB, ADODB,DateUtils,
|
|
|
|
|
|
dxExEdtr, dxDBTLCl, dxGrClms, dxDBGrid, dxTL, dxDBCtrl, dxCntner,
|
|
|
|
|
|
kbmMemTable, kbmMemBinaryStreamFormat, Menus, StdCtrls,
|
|
|
|
|
|
wwdbdatetimepicker, Grids, DBGridEh, Mask, wwdbedit, Wwdotdot, Wwdbcomb,teeprevi,
|
|
|
|
|
|
RxLookup, TeEngine, Series, TeeProcs, Chart, DbChart, DBGrids, TeeFunci,
|
|
|
|
|
|
bsSkinBoxCtrls;
|
|
|
|
|
|
|
|
|
|
|
|
type
|
|
|
|
|
|
Tfrm_rp_ch_genleg = class(TForm)
|
|
|
|
|
|
Panel1: TPanel;
|
|
|
|
|
|
bsSkinPanel2: TbsSkinPanel;
|
|
|
|
|
|
bsSkinButton10: TbsSkinButton;
|
|
|
|
|
|
bsSkinButton9: TbsSkinButton;
|
|
|
|
|
|
bsSkinButton1: TbsSkinButton;
|
|
|
|
|
|
bsSkinButton5: TbsSkinButton;
|
|
|
|
|
|
SaveDialog: TSaveDialog;
|
|
|
|
|
|
kbmBinaryStreamFormat1: TkbmBinaryStreamFormat;
|
|
|
|
|
|
kbmThreadDataSet1: TkbmThreadDataSet;
|
|
|
|
|
|
PopupMenu1: TPopupMenu;
|
|
|
|
|
|
N1101: TMenuItem;
|
|
|
|
|
|
memtblDetail: TkbmMemTable;
|
|
|
|
|
|
p_total1: TDataSource;
|
|
|
|
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
|
|
|
|
Label13: TLabel;
|
|
|
|
|
|
RxDBLookupCombo5: TRxDBLookupCombo;
|
|
|
|
|
|
bsSkinPageControl1: TbsSkinPageControl;
|
|
|
|
|
|
bsSkinTabSheet1: TbsSkinTabSheet;
|
|
|
|
|
|
memtotal1: TDataSource;
|
|
|
|
|
|
memtotal: TkbmMemTable;
|
|
|
|
|
|
memtblDetailField: TStringField;
|
|
|
|
|
|
memtblDetailField01: TFloatField;
|
|
|
|
|
|
memtblDetailField02: TFloatField;
|
|
|
|
|
|
memtblDetailField03: TFloatField;
|
|
|
|
|
|
memtblDetailField04: TFloatField;
|
|
|
|
|
|
memtblDetailField05: TFloatField;
|
|
|
|
|
|
memtblDetailField06: TFloatField;
|
|
|
|
|
|
memtblDetailField07: TFloatField;
|
|
|
|
|
|
memtblDetailField08: TFloatField;
|
|
|
|
|
|
memtblDetailField09: TFloatField;
|
|
|
|
|
|
memtblDetailField10: TFloatField;
|
|
|
|
|
|
memtblDetailField11: TFloatField;
|
|
|
|
|
|
memtblDetailField12: TFloatField;
|
|
|
|
|
|
memtblDetailField2: TFloatField;
|
|
|
|
|
|
bsSkinRadioGroup1: TbsSkinRadioGroup;
|
|
|
|
|
|
memtotalField: TIntegerField;
|
|
|
|
|
|
memtotalID: TIntegerField;
|
|
|
|
|
|
memtotalField2: TSmallintField;
|
|
|
|
|
|
memtotalField3: TSmallintField;
|
|
|
|
|
|
memtotalField4: TDateField;
|
|
|
|
|
|
memtotalField5: TStringField;
|
|
|
|
|
|
memtotalField6: TStringField;
|
|
|
|
|
|
memtotalField7: TStringField;
|
|
|
|
|
|
memtotalField8: TStringField;
|
|
|
|
|
|
memtotalField9: TStringField;
|
|
|
|
|
|
memtotalField10: TFloatField;
|
|
|
|
|
|
memtotalField11: TFloatField;
|
|
|
|
|
|
memtotalField12: TFloatField;
|
|
|
|
|
|
memtotalField13: TFloatField;
|
|
|
|
|
|
memtotalField14: TFloatField;
|
|
|
|
|
|
memtotalField15: TFloatField;
|
|
|
|
|
|
memtotalField16: TSmallintField;
|
|
|
|
|
|
cbemonth: TwwDBComboBox;
|
|
|
|
|
|
Label5: TLabel;
|
|
|
|
|
|
Label6: TLabel;
|
|
|
|
|
|
cbeYear: TwwDBComboBox;
|
|
|
|
|
|
Label4: TLabel;
|
|
|
|
|
|
Label2: TLabel;
|
|
|
|
|
|
cbmonth: TwwDBComboBox;
|
|
|
|
|
|
Label1: TLabel;
|
|
|
|
|
|
cbYear: TwwDBComboBox;
|
|
|
|
|
|
Label3: TLabel;
|
|
|
|
|
|
t_ch_genleg: TADOQuery;
|
|
|
|
|
|
Label7: TLabel;
|
|
|
|
|
|
RxDBLookupCombo1: TRxDBLookupCombo;
|
|
|
|
|
|
t_ch_cust_genleg: TADOQuery;
|
|
|
|
|
|
t_ch_bank_genleg: TADOQuery;
|
|
|
|
|
|
DataSource1: TDataSource;
|
|
|
|
|
|
memtotalRMB: TFloatField;
|
|
|
|
|
|
memtotalRMB2: TFloatField;
|
|
|
|
|
|
memtotalRMB3: TFloatField;
|
|
|
|
|
|
memtotalField17: TStringField;
|
|
|
|
|
|
memtotalField18: TStringField;
|
|
|
|
|
|
memtotalField19: TStringField;
|
|
|
|
|
|
memtotalField20: TStringField;
|
|
|
|
|
|
Label17: TLabel;
|
|
|
|
|
|
RxDBLookupCombo8: TRxDBLookupCombo;
|
|
|
|
|
|
Label18: TLabel;
|
|
|
|
|
|
RxDBLookupCombo10: TRxDBLookupCombo;
|
|
|
|
|
|
Label8: TLabel;
|
|
|
|
|
|
RxDBLookupCombo2: TRxDBLookupCombo;
|
|
|
|
|
|
Label9: TLabel;
|
|
|
|
|
|
Edit1: TEdit;
|
|
|
|
|
|
ADOQuery_cost: TADOQuery;
|
|
|
|
|
|
ADOQuery_cost1: TDataSource;
|
|
|
|
|
|
dxDBGrid1: TdxDBGrid;
|
|
|
|
|
|
dxDBGrid1Column1: TdxDBGridColumn;
|
|
|
|
|
|
dxDBGrid1Column2: TdxDBGridColumn;
|
|
|
|
|
|
dxDBGrid1Column3: TdxDBGridColumn;
|
|
|
|
|
|
dxDBGrid1Column4: TdxDBGridColumn;
|
|
|
|
|
|
dxDBGrid1Column5: TdxDBGridColumn;
|
|
|
|
|
|
dxDBGrid1Column6: TdxDBGridColumn;
|
|
|
|
|
|
dxDBGrid1Column7: TdxDBGridColumn;
|
|
|
|
|
|
dxDBGrid1Column8: TdxDBGridColumn;
|
|
|
|
|
|
dxDBGrid1Column9: TdxDBGridColumn;
|
|
|
|
|
|
dxDBGrid1Column10: TdxDBGridColumn;
|
|
|
|
|
|
dxDBGrid1Column11: TdxDBGridColumn;
|
|
|
|
|
|
dxDBGrid1Column12: TdxDBGridColumn;
|
|
|
|
|
|
dxDBGrid1Column13: TdxDBGridColumn;
|
|
|
|
|
|
dxDBGrid1Column14: TdxDBGridColumn;
|
|
|
|
|
|
dxDBGrid1Column15: TdxDBGridColumn;
|
|
|
|
|
|
dxDBGrid1Column16: TdxDBGridColumn;
|
|
|
|
|
|
dxDBGrid1Column17: TdxDBGridColumn;
|
|
|
|
|
|
bsSkinComboBox1: TbsSkinComboBox;
|
|
|
|
|
|
Label10: TLabel;
|
|
|
|
|
|
PopupMenu2: TPopupMenu;
|
|
|
|
|
|
N14: TMenuItem;
|
|
|
|
|
|
N13: TMenuItem;
|
|
|
|
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
|
|
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
|
|
|
|
procedure Panel1Resize(Sender: TObject);
|
|
|
|
|
|
procedure bsSkinButton10Click(Sender: TObject);
|
|
|
|
|
|
procedure bsSkinButton9Click(Sender: TObject);
|
|
|
|
|
|
procedure FormShow(Sender: TObject);
|
|
|
|
|
|
procedure bsSkinRadioGroup1Click(Sender: TObject);
|
|
|
|
|
|
procedure DBGridLegBookDrawColumnCell(Sender: TObject;
|
|
|
|
|
|
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
|
|
|
|
|
|
State: TGridDrawState);
|
|
|
|
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
|
|
|
|
procedure bsSkinPanel1Resize(Sender: TObject);
|
|
|
|
|
|
procedure dxDBGrid3CustomDraw(Sender: TObject; ACanvas: TCanvas;
|
|
|
|
|
|
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
|
|
|
|
|
|
const AText: String; AFont: TFont; var AColor: TColor; ASelected,
|
|
|
|
|
|
AFocused: Boolean; var ADone: Boolean);
|
|
|
|
|
|
procedure dxDBGrid1CustomDraw(Sender: TObject; ACanvas: TCanvas;
|
|
|
|
|
|
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
|
|
|
|
|
|
const AText: String; AFont: TFont; var AColor: TColor; ASelected,
|
|
|
|
|
|
AFocused: Boolean; var ADone: Boolean);
|
|
|
|
|
|
procedure bsSkinComboBox1Change(Sender: TObject);
|
|
|
|
|
|
procedure N14Click(Sender: TObject);
|
|
|
|
|
|
private
|
|
|
|
|
|
function GetBankName(Accid:string):String;
|
|
|
|
|
|
procedure Getgenleg;
|
|
|
|
|
|
procedure Getcust;
|
|
|
|
|
|
procedure Getbank;
|
|
|
|
|
|
|
|
|
|
|
|
{ Private declarations }
|
|
|
|
|
|
public
|
|
|
|
|
|
{ Public declarations }
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
var
|
|
|
|
|
|
frm_rp_ch_genleg: Tfrm_rp_ch_genleg;
|
|
|
|
|
|
FmDate,ToDate:String;
|
|
|
|
|
|
sqlstr:WideString;
|
|
|
|
|
|
|
|
|
|
|
|
implementation
|
|
|
|
|
|
|
|
|
|
|
|
uses u_main, my_sys_function,u_sys_progress, u_data_share;
|
|
|
|
|
|
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_rp_ch_genleg.bsSkinButton5Click(Sender: TObject);
|
|
|
|
|
|
begin
|
|
|
|
|
|
close;
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_rp_ch_genleg.FormClose(Sender: TObject;
|
|
|
|
|
|
var Action: TCloseAction);
|
|
|
|
|
|
begin
|
|
|
|
|
|
savereggrid(dxdbgrid1,caption+'1');
|
|
|
|
|
|
ADOQuery_cost.Close;
|
|
|
|
|
|
frm_rp_ch_genleg.Hide;
|
|
|
|
|
|
frm_rp_ch_genleg.ManualFloat(frm_rp_ch_genleg.BoundsRect );
|
|
|
|
|
|
frm_main.freeTabs('frm_rp_ch_genleg');
|
|
|
|
|
|
action:=cafree;
|
|
|
|
|
|
frm_rp_ch_genleg:=nil;
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_rp_ch_genleg.Panel1Resize(Sender: TObject);
|
|
|
|
|
|
var
|
|
|
|
|
|
i:integer;
|
|
|
|
|
|
begin
|
|
|
|
|
|
i:=round(bsSkinPanel2.Width/7);
|
|
|
|
|
|
bsSkinButton10.Width:=i;
|
|
|
|
|
|
bsSkinButton9.Width:=i;
|
|
|
|
|
|
bsSkinButton1.Width:=i;
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_rp_ch_genleg.bsSkinButton10Click(Sender: TObject);
|
|
|
|
|
|
var
|
|
|
|
|
|
barse:TBarSeries;
|
|
|
|
|
|
begin
|
|
|
|
|
|
if cbyear.Text='' then begin
|
|
|
|
|
|
MessageDlg('ͳ<><CDB3><EFBFBD>겻<EFBFBD><EAB2BB>Ϊ<EFBFBD><CEAA>!',mtWarning,[mbOk],0);
|
|
|
|
|
|
exit;
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
if cbeyear.Text='' then begin
|
|
|
|
|
|
MessageDlg('ͳ<><CDB3><EFBFBD>겻<EFBFBD><EAB2BB>Ϊ<EFBFBD><CEAA>!',mtWarning,[mbOk],0);
|
|
|
|
|
|
exit;
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
if strtoint(cbeyear.Text)<strtoint(cbyear.Text) then begin
|
|
|
|
|
|
MessageDlg('<27><>ʼ<EFBFBD><CABC><EFBFBD>ݲ<EFBFBD><DDB2>ܴ<EFBFBD><DCB4>ڽ<EFBFBD><DABD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!',mtWarning,[mbOk],0);
|
|
|
|
|
|
exit;
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
memtotal.close;
|
|
|
|
|
|
memtotal.EmptyTable;
|
|
|
|
|
|
memtotal.open;
|
|
|
|
|
|
if bsSkinRadioGroup1.ItemIndex=0 then begin
|
|
|
|
|
|
Getgenleg;
|
|
|
|
|
|
end;
|
|
|
|
|
|
if bsSkinRadioGroup1.ItemIndex=1 then begin
|
|
|
|
|
|
if RxDBLookupCombo5.DisplayValue='' then begin
|
|
|
|
|
|
MessageDlg('<27><><EFBFBD><EFBFBD>ѡ<EFBFBD><D1A1>һ<EFBFBD><D2BB><EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>!',mtWarning,[mbOk],0);
|
|
|
|
|
|
exit;
|
|
|
|
|
|
end;
|
|
|
|
|
|
Getcust;
|
|
|
|
|
|
end;
|
|
|
|
|
|
if bsSkinRadioGroup1.ItemIndex=2 then begin
|
|
|
|
|
|
if (RxDBLookupCombo1.DisplayValue='') then begin
|
|
|
|
|
|
MessageDlg('<27><><EFBFBD><EFBFBD>ѡ<EFBFBD><D1A1>һ<EFBFBD><D2BB><EFBFBD><EFBFBD><EFBFBD>л<EFBFBD><D0BB>ֽ<EFBFBD>!',mtWarning,[mbOk],0);
|
|
|
|
|
|
exit;
|
|
|
|
|
|
end;
|
|
|
|
|
|
Getbank;
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_rp_ch_genleg.bsSkinButton9Click(Sender: TObject);
|
|
|
|
|
|
begin
|
|
|
|
|
|
sys_print('<27><><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD>',2,nil,nil,nil,nil,memtotal1,nil,nil,nil,nil,nil,nil);
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_rp_ch_genleg.Getgenleg;
|
|
|
|
|
|
var
|
|
|
|
|
|
aQuery:TAdoQuery;
|
|
|
|
|
|
aDate,aTopDate,aToDate:TDate;
|
|
|
|
|
|
strdate,stredate,sDate,bank:String;
|
|
|
|
|
|
i:integer;
|
|
|
|
|
|
DR,CR,bal,USDDR,USDCR,usdbal,rmbbal,rmbdr,rmbcr:double;
|
|
|
|
|
|
fb:boolean;
|
|
|
|
|
|
begin
|
|
|
|
|
|
if RxDBLookupCombo1.DisplayValues[1]='<27>ֽ<EFBFBD>' then
|
|
|
|
|
|
bank:='<27>ֽ<EFBFBD>'
|
|
|
|
|
|
else
|
|
|
|
|
|
bank:=RxDBLookupCombo1.DisplayValues[0];
|
|
|
|
|
|
|
|
|
|
|
|
try
|
|
|
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
|
|
|
with aQuery do begin
|
|
|
|
|
|
aDate:=EncodeDate(strtoint(cbYear.Text),strtoint(cbmonth.Text),1);
|
|
|
|
|
|
aToDate:=EncodeDate(strtoint(cbeYear.Text),strtoint(cbemonth.Text),2);
|
|
|
|
|
|
|
|
|
|
|
|
if not ASSIGNED(frm_sys_progress) then
|
|
|
|
|
|
frm_sys_progress:=tfrm_sys_progress.Create(application);
|
|
|
|
|
|
frm_sys_progress.Show;
|
|
|
|
|
|
if MonthsBetween(aDate,aToDate)=0 then
|
|
|
|
|
|
frm_sys_progress.bsSkinGauge1.MaxValue:=1
|
|
|
|
|
|
|
|
|
|
|
|
else
|
|
|
|
|
|
frm_sys_progress.bsSkinGauge1.MaxValue:=MonthsBetween(aDate,aToDate);
|
|
|
|
|
|
frm_sys_progress.bsSkinGauge1.MinValue:=0;
|
|
|
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=0;
|
|
|
|
|
|
frm_sys_progress.Update;
|
|
|
|
|
|
|
|
|
|
|
|
i:=0;
|
|
|
|
|
|
bal:=0;
|
|
|
|
|
|
usdbal:=0;
|
|
|
|
|
|
rmbbal:=0;
|
|
|
|
|
|
DR:=0;
|
|
|
|
|
|
CR:=0;
|
|
|
|
|
|
USDDR:=0;
|
|
|
|
|
|
USDCR:=0;
|
|
|
|
|
|
RMBDR:=0;
|
|
|
|
|
|
RMBCR:=0;
|
|
|
|
|
|
fb:=true;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
while not (aDate>aToDate) do
|
|
|
|
|
|
begin
|
|
|
|
|
|
strdate:=FormatDateTime('YYYY-MM-DD',EncodeDate(strtoint(FormatDateTime('YYYY',aDate)),strtoint(FormatDateTime('MM',aDate)),MonthDays[isLeapYear(strtoint(FormatDateTime('YYYY',aDate))),strtoint(FormatDateTime('MM',aDate))]));
|
|
|
|
|
|
stredate:=FormatDateTime('YYYY-MM-DD',aDate);
|
|
|
|
|
|
sDate:=FormatDateTime('YYYYMM',aDate);
|
|
|
|
|
|
aTopDate:=IncMonth(aDate,-1);
|
|
|
|
|
|
if fb then
|
|
|
|
|
|
begin
|
|
|
|
|
|
t_ch_genleg.Close;
|
|
|
|
|
|
t_ch_genleg.Parameters.ParamByName('<27><>').Value:=YearOf(aTopDate);
|
|
|
|
|
|
t_ch_genleg.Parameters.ParamByName('<27><>').Value:=MonthOf(aTopDate);
|
|
|
|
|
|
t_ch_genleg.open;
|
|
|
|
|
|
if not t_ch_genleg.IsEmpty then
|
|
|
|
|
|
begin
|
|
|
|
|
|
memtotal.Append;
|
|
|
|
|
|
memtotal['ID']:=i;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=0;
|
|
|
|
|
|
memtotal['<27><>']:=YearOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=MonthOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=DayOf(aDate);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=aDate;
|
|
|
|
|
|
memtotal['ժҪ']:='<27>ڳ<EFBFBD><DAB3><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
|
|
|
bal:=t_ch_genleg.fieldbyname('<27>ۼ<EFBFBD><DBBC><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
usdbal:=t_ch_genleg.fieldbyname('USD<53>ۼ<EFBFBD><DBBC><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
rmbbal:=t_ch_genleg.fieldbyname('RMB<4D>ۼ<EFBFBD><DBBC><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=t_ch_genleg.fieldbyname('<27>ۼ<EFBFBD><DBBC><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_genleg.fieldbyname('USD<53>ۼ<EFBFBD><DBBC><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD>']:=t_ch_genleg.fieldbyname('RMB<4D>ۼ<EFBFBD><DBBC><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
fb:=false;
|
|
|
|
|
|
memtotal.post;
|
|
|
|
|
|
inc(i);
|
|
|
|
|
|
end
|
|
|
|
|
|
else
|
|
|
|
|
|
begin
|
|
|
|
|
|
memtotal.Append;
|
|
|
|
|
|
memtotal['ID']:=i;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=0;
|
|
|
|
|
|
memtotal['<27><>']:=YearOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=MonthOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=DayOf(aDate);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=aDate;
|
|
|
|
|
|
memtotal['ժҪ']:='<27>ڳ<EFBFBD><DAB3><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
|
|
|
bal:=0;
|
|
|
|
|
|
usdbal:=0;
|
|
|
|
|
|
rmbbal:=0;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=0;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD>']:=0;
|
|
|
|
|
|
fb:=false;
|
|
|
|
|
|
memtotal.post;
|
|
|
|
|
|
inc(i);
|
|
|
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
DR:=0;
|
|
|
|
|
|
CR:=0;
|
|
|
|
|
|
USDDR:=0;
|
|
|
|
|
|
USDCR:=0;
|
|
|
|
|
|
RMBDR:=0;
|
|
|
|
|
|
RMBCR:=0;
|
|
|
|
|
|
close;sql.clear;
|
|
|
|
|
|
sql.Add('select * from v_op_fee where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='''+stredate+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='''+strdate+'''');
|
|
|
|
|
|
if bank<>'' then
|
|
|
|
|
|
sql.Add('and (<28><><EFBFBD>д<EFBFBD><D0B4><EFBFBD>='''+bank+''' or <20><>Ԫ<EFBFBD><D4AA><EFBFBD>д<EFBFBD><D0B4><EFBFBD>='''+bank+''')');
|
|
|
|
|
|
sql.Add('order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
|
|
|
|
|
|
|
|
|
open;
|
|
|
|
|
|
first;
|
|
|
|
|
|
while not eof do
|
|
|
|
|
|
begin
|
|
|
|
|
|
if fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsInteger=1 then
|
|
|
|
|
|
begin
|
|
|
|
|
|
if fieldbyname('<27>ұ<EFBFBD>').AsString='' then
|
|
|
|
|
|
begin
|
|
|
|
|
|
if fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat<>0 then
|
|
|
|
|
|
begin
|
|
|
|
|
|
memtotal.Append;
|
|
|
|
|
|
memtotal['ID']:=i;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=1;
|
|
|
|
|
|
memtotal['<27><>']:=YearOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=MonthOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=DayOf(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime;
|
|
|
|
|
|
memtotal['ժҪ']:=fieldbyname('<27><>ע').asstring;
|
|
|
|
|
|
memtotal['ƾ֤<C6BE><D6A4>']:=fieldbyname('ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=GetBankName(fieldbyname('<27><><EFBFBD>д<EFBFBD><D0B4><EFBFBD>').asstring);
|
|
|
|
|
|
memtotal['<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>']:=fieldbyname('<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ա']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ա').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>']:=fieldbyname('<27><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
if fieldbyname('<27><><EFBFBD><EFBFBD>').AsString='<27><>' then
|
|
|
|
|
|
begin
|
|
|
|
|
|
memtotal['<27>跽<EFBFBD><E8B7BD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
memtotal['RMB<4D>跽<EFBFBD><E8B7BD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD>']:=rmbbal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
bal:=bal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
DR:=DR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
rmbbal:=rmbbal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
RMBDR:=RMBDR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
end
|
|
|
|
|
|
else
|
|
|
|
|
|
begin
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD>']:=rmbbal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
bal:=bal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
CR:=CR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
rmbbal:=rmbbal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
RMBCR:=RMBCR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
end;
|
|
|
|
|
|
memtotal.post;
|
|
|
|
|
|
end;
|
|
|
|
|
|
if fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat<>0 then
|
|
|
|
|
|
begin
|
|
|
|
|
|
memtotal.Append;
|
|
|
|
|
|
memtotal['ID']:=i;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=1;
|
|
|
|
|
|
memtotal['<27><>']:=YearOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=MonthOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=DayOf(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime;
|
|
|
|
|
|
memtotal['ժҪ']:=fieldbyname('<27><>ע').asstring;
|
|
|
|
|
|
memtotal['ƾ֤<C6BE><D6A4>']:=fieldbyname('ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=GetBankName(fieldbyname('<27><><EFBFBD>д<EFBFBD><D0B4><EFBFBD>').asstring);
|
|
|
|
|
|
memtotal['<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>']:=fieldbyname('<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ա']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ա').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>']:=fieldbyname('<27><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
if fieldbyname('<27><><EFBFBD><EFBFBD>').AsString='<27><>' then
|
|
|
|
|
|
begin
|
|
|
|
|
|
memtotal['<27><><EFBFBD>ҽ跽<D2BD><E8B7BD><EFBFBD><EFBFBD>']:=fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=usdbal+fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat;
|
|
|
|
|
|
memtotal['<27>跽<EFBFBD><E8B7BD><EFBFBD><EFBFBD>']:=fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal+fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
usdbal:=usdbal+fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat;
|
|
|
|
|
|
bal:=bal+fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
USDDR:=USDDR+fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat;
|
|
|
|
|
|
DR:=DR+fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
end
|
|
|
|
|
|
else
|
|
|
|
|
|
begin
|
|
|
|
|
|
memtotal['<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=usdbal-fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat;
|
|
|
|
|
|
usdbal:=usdbal-fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal-fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
bal:=bal-fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
USDCR:=USDCR+fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat;
|
|
|
|
|
|
CR:=CR+fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
end;
|
|
|
|
|
|
memtotal.post;
|
|
|
|
|
|
end;
|
|
|
|
|
|
end
|
|
|
|
|
|
else
|
|
|
|
|
|
begin
|
|
|
|
|
|
memtotal.Append;
|
|
|
|
|
|
memtotal['ID']:=i;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=1;
|
|
|
|
|
|
memtotal['<27><>']:=YearOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=MonthOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=DayOf(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime;
|
|
|
|
|
|
memtotal['ժҪ']:=fieldbyname('<27><>ע').asstring;
|
|
|
|
|
|
memtotal['ƾ֤<C6BE><D6A4>']:=fieldbyname('ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=GetBankName(fieldbyname('<27><><EFBFBD>д<EFBFBD><D0B4><EFBFBD>').asstring);
|
|
|
|
|
|
memtotal['<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>']:=fieldbyname('<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ա']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ա').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>']:=fieldbyname('<27><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
if trim(fieldbyname('<27>ұ<EFBFBD>').AsString)='RMB' then
|
|
|
|
|
|
begin
|
|
|
|
|
|
if fieldbyname('<27><><EFBFBD><EFBFBD>').AsString='<27><>' then
|
|
|
|
|
|
begin
|
|
|
|
|
|
memtotal['<27>跽<EFBFBD><E8B7BD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['RMB<4D>跽<EFBFBD><E8B7BD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD>']:=rmbbal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
bal:=bal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
DR:=DR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
rmbbal:=rmbbal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
RMBDR:=RMBDR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
end
|
|
|
|
|
|
else
|
|
|
|
|
|
begin
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD>']:=rmbbal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
bal:=bal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
CR:=CR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
rmbbal:=rmbbal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
RMBCR:=RMBCR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
end;
|
|
|
|
|
|
end
|
|
|
|
|
|
else
|
|
|
|
|
|
begin
|
|
|
|
|
|
if fieldbyname('<27><><EFBFBD><EFBFBD>').AsString='<27><>' then
|
|
|
|
|
|
begin
|
|
|
|
|
|
memtotal['<27><><EFBFBD>ҽ跽<D2BD><E8B7BD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=usdbal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
usdbal:=usdbal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
USDDR:=USDDR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27>跽<EFBFBD><E8B7BD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
bal:=bal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
DR:=DR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
end
|
|
|
|
|
|
else
|
|
|
|
|
|
begin
|
|
|
|
|
|
memtotal['<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=usdbal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
usdbal:=usdbal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
USDCR:=USDCR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
bal:=bal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
CR:=CR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
memtotal.post;
|
|
|
|
|
|
end;
|
|
|
|
|
|
end
|
|
|
|
|
|
else
|
|
|
|
|
|
begin
|
|
|
|
|
|
memtotal.Append;
|
|
|
|
|
|
memtotal['ID']:=i;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=1;
|
|
|
|
|
|
memtotal['<27><>']:=YearOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=MonthOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=DayOf(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime;
|
|
|
|
|
|
memtotal['ժҪ']:=fieldbyname('<27><>ע').asstring;
|
|
|
|
|
|
memtotal['ƾ֤<C6BE><D6A4>']:=fieldbyname('ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=GetBankName(fieldbyname('<27><><EFBFBD>д<EFBFBD><D0B4><EFBFBD>').asstring);
|
|
|
|
|
|
memtotal['<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>']:=fieldbyname('<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ա']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ա').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>']:=fieldbyname('<27><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
if trim(fieldbyname('<27>ұ<EFBFBD>').AsString)='RMB' then
|
|
|
|
|
|
begin
|
|
|
|
|
|
if fieldbyname('<27><><EFBFBD><EFBFBD>').AsString='<27><>' then
|
|
|
|
|
|
begin
|
|
|
|
|
|
memtotal['<27>跽<EFBFBD><E8B7BD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['RMB<4D>跽<EFBFBD><E8B7BD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD>']:=rmbbal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
bal:=bal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
DR:=DR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
rmbbal:=rmbbal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
RMBDR:=RMBDR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
end
|
|
|
|
|
|
else
|
|
|
|
|
|
begin
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD>']:=rmbbal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
bal:=bal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
CR:=CR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
rmbbal:=rmbbal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
RMBCR:=RMBCR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
end;
|
|
|
|
|
|
end
|
|
|
|
|
|
else
|
|
|
|
|
|
begin
|
|
|
|
|
|
if fieldbyname('<27><><EFBFBD><EFBFBD>').AsString='<27><>' then
|
|
|
|
|
|
begin
|
|
|
|
|
|
memtotal['<27><><EFBFBD>ҽ跽<D2BD><E8B7BD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=usdbal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
usdbal:=usdbal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
USDDR:=USDDR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27>跽<EFBFBD><E8B7BD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
bal:=bal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
DR:=DR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
end
|
|
|
|
|
|
else
|
|
|
|
|
|
begin
|
|
|
|
|
|
memtotal['<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=usdbal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
usdbal:=usdbal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
USDCR:=USDCR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
bal:=bal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
CR:=CR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
memtotal.post;
|
|
|
|
|
|
end;
|
|
|
|
|
|
inc(i);
|
|
|
|
|
|
Next;
|
|
|
|
|
|
end;
|
|
|
|
|
|
inc(i);
|
|
|
|
|
|
memtotal.Append;
|
|
|
|
|
|
memtotal['ID']:=i;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=2;
|
|
|
|
|
|
memtotal['<27><>']:=YearOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=MonthOf(aDate);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime;
|
|
|
|
|
|
// memtotal['<27><>']:=DayOf(aDate);
|
|
|
|
|
|
memtotal['ժҪ']:='<27><><EFBFBD><EFBFBD><EFBFBD>ۼ<EFBFBD>';
|
|
|
|
|
|
memtotal['<27>跽<EFBFBD><E8B7BD><EFBFBD><EFBFBD>']:=DR;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=CR;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal;
|
|
|
|
|
|
memtotal['<27><><EFBFBD>ҽ跽<D2BD><E8B7BD><EFBFBD><EFBFBD>']:=USDDR;
|
|
|
|
|
|
memtotal['<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=USDCR;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=usdbal;
|
|
|
|
|
|
memtotal['RMB<4D>跽<EFBFBD><E8B7BD><EFBFBD><EFBFBD>']:=RMBDR;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=RMBCR;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD>']:=rmbbal;
|
|
|
|
|
|
memtotal.post;
|
|
|
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
aDate:=IncMonth(aDate,1);
|
|
|
|
|
|
inc(i);
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
finally
|
|
|
|
|
|
FreeAndNil(aQuery);
|
|
|
|
|
|
freeAndNil(frm_sys_progress);
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_rp_ch_genleg.FormShow(Sender: TObject);
|
|
|
|
|
|
begin
|
|
|
|
|
|
cbYear.ItemIndex:=cbYear.Items.IndexOf(inttostr(Logininfo.offyear));
|
|
|
|
|
|
cbmonth.ItemIndex:=cbmonth.Items.IndexOf(inttostr(Logininfo.offmonth));
|
|
|
|
|
|
cbeyear.Items.IndexOf(FormatDateTime('YYYY',Now));
|
|
|
|
|
|
cbeyear.text:=FormatDateTime('YYYY',Now);
|
|
|
|
|
|
cbemonth.Items.IndexOf(FormatDateTime('MM',Now));
|
|
|
|
|
|
cbemonth.text:=FormatDateTime('MM',Now);
|
|
|
|
|
|
loadreggrid(dxdbgrid1,false,caption+'1');
|
|
|
|
|
|
ADOQuery_cost.Open;
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_rp_ch_genleg.Getcust;
|
|
|
|
|
|
var
|
|
|
|
|
|
aQuery:TAdoQuery;
|
|
|
|
|
|
aDate,aTopDate,aToDate:TDate;
|
|
|
|
|
|
cust,strdate,stredate,sDate:String;
|
|
|
|
|
|
i:integer;
|
|
|
|
|
|
DR,CR,bal,USDDR,USDCR,usdbal,RMBDR,RMBCR,rmbbal:double;
|
|
|
|
|
|
fb:boolean;
|
|
|
|
|
|
|
|
|
|
|
|
begin
|
|
|
|
|
|
cust:=RxDBLookupCombo5.DisplayValues[1];
|
|
|
|
|
|
try
|
|
|
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
|
|
|
with aQuery do begin
|
|
|
|
|
|
aDate:=EncodeDate(strtoint(cbYear.Text),strtoint(cbmonth.Text),1);
|
|
|
|
|
|
aToDate:=EncodeDate(strtoint(cbeYear.Text),strtoint(cbemonth.Text),2);
|
|
|
|
|
|
|
|
|
|
|
|
if not ASSIGNED(frm_sys_progress) then
|
|
|
|
|
|
frm_sys_progress:=tfrm_sys_progress.Create(application);
|
|
|
|
|
|
frm_sys_progress.Show;
|
|
|
|
|
|
if MonthsBetween(aDate,aToDate)=0 then
|
|
|
|
|
|
frm_sys_progress.bsSkinGauge1.MaxValue:=1
|
|
|
|
|
|
|
|
|
|
|
|
else
|
|
|
|
|
|
frm_sys_progress.bsSkinGauge1.MaxValue:=MonthsBetween(aDate,aToDate);
|
|
|
|
|
|
frm_sys_progress.bsSkinGauge1.MinValue:=0;
|
|
|
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=0;
|
|
|
|
|
|
frm_sys_progress.Update;
|
|
|
|
|
|
|
|
|
|
|
|
i:=0;
|
|
|
|
|
|
bal:=0;
|
|
|
|
|
|
usdbal:=0;
|
|
|
|
|
|
rmbbal:=0;
|
|
|
|
|
|
DR:=0;
|
|
|
|
|
|
CR:=0;
|
|
|
|
|
|
USDDR:=0;
|
|
|
|
|
|
USDCR:=0;
|
|
|
|
|
|
RMBDR:=0;
|
|
|
|
|
|
RMBCR:=0;
|
|
|
|
|
|
fb:=true;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
while not (aDate>aToDate) do begin
|
|
|
|
|
|
strdate:=FormatDateTime('YYYY-MM-DD',EncodeDate(strtoint(FormatDateTime('YYYY',aDate)),strtoint(FormatDateTime('MM',aDate)),MonthDays[isLeapYear(strtoint(FormatDateTime('YYYY',aDate))),strtoint(FormatDateTime('MM',aDate))]));
|
|
|
|
|
|
stredate:=FormatDateTime('YYYY-MM-DD',aDate);
|
|
|
|
|
|
sDate:=FormatDateTime('YYYYMM',aDate);
|
|
|
|
|
|
aTopDate:=IncMonth(aDate,-1);
|
|
|
|
|
|
if fb then begin
|
|
|
|
|
|
t_ch_cust_genleg.Close;
|
|
|
|
|
|
t_ch_cust_genleg.Parameters.ParamByName('<27><>').Value:=YearOf(aTopDate);
|
|
|
|
|
|
t_ch_cust_genleg.Parameters.ParamByName('<27><>').Value:=MonthOf(aTopDate);
|
|
|
|
|
|
t_ch_cust_genleg.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=cust;
|
|
|
|
|
|
t_ch_cust_genleg.open;
|
|
|
|
|
|
if not t_ch_cust_genleg.IsEmpty then begin
|
|
|
|
|
|
memtotal.Append;
|
|
|
|
|
|
memtotal['ID']:=i;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=0;
|
|
|
|
|
|
memtotal['<27><>']:=YearOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=MonthOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=DayOf(aDate);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=aDate;
|
|
|
|
|
|
memtotal['ժҪ']:='<27>ڳ<EFBFBD><DAB3><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
|
|
|
bal:=t_ch_cust_genleg.fieldbyname('<27>ۼ<EFBFBD><DBBC><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
usdbal:=t_ch_cust_genleg.fieldbyname('USD<53>ۼ<EFBFBD><DBBC><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
rmbbal:=t_ch_cust_genleg.fieldbyname('RMB<4D>ۼ<EFBFBD><DBBC><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=t_ch_cust_genleg.fieldbyname('<27>ۼ<EFBFBD><DBBC><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_cust_genleg.fieldbyname('USD<53>ۼ<EFBFBD><DBBC><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD>']:=t_ch_cust_genleg.fieldbyname('RMB<4D>ۼ<EFBFBD><DBBC><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
fb:=false;
|
|
|
|
|
|
memtotal.post;
|
|
|
|
|
|
inc(i);
|
|
|
|
|
|
end else begin
|
|
|
|
|
|
memtotal.Append;
|
|
|
|
|
|
memtotal['ID']:=i;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=0;
|
|
|
|
|
|
memtotal['<27><>']:=YearOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=MonthOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=DayOf(aDate);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=aDate;
|
|
|
|
|
|
memtotal['ժҪ']:='<27>ڳ<EFBFBD><DAB3><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
|
|
|
bal:=0;
|
|
|
|
|
|
usdbal:=0;
|
|
|
|
|
|
rmbbal:=0;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=0;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD>']:=0;
|
|
|
|
|
|
fb:=false;
|
|
|
|
|
|
memtotal.post;
|
|
|
|
|
|
inc(i);
|
|
|
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
DR:=0;
|
|
|
|
|
|
CR:=0;
|
|
|
|
|
|
USDDR:=0;
|
|
|
|
|
|
USDCR:=0;
|
|
|
|
|
|
RMBDR:=0;
|
|
|
|
|
|
RMBCR:=0;
|
|
|
|
|
|
close;sql.clear;
|
|
|
|
|
|
sql.Add('select * from v_op_fee where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='''+stredate+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='''+strdate+''' and <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='''+cust+''' order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
|
|
|
open;
|
|
|
|
|
|
first;
|
|
|
|
|
|
while not eof do begin
|
|
|
|
|
|
if fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsInteger=1 then begin
|
|
|
|
|
|
if fieldbyname('<27>ұ<EFBFBD>').AsString='' then begin
|
|
|
|
|
|
if fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat<>0 then begin
|
|
|
|
|
|
memtotal.Append;
|
|
|
|
|
|
memtotal['ID']:=i;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=1;
|
|
|
|
|
|
memtotal['<27><>']:=YearOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=MonthOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=DayOf(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime;
|
|
|
|
|
|
memtotal['ժҪ']:=fieldbyname('<27><>ע').asstring;
|
|
|
|
|
|
memtotal['ƾ֤<C6BE><D6A4>']:=fieldbyname('ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=GetBankName(fieldbyname('<27><><EFBFBD>д<EFBFBD><D0B4><EFBFBD>').asstring);
|
|
|
|
|
|
memtotal['<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>']:=fieldbyname('<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ա']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ա').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>']:=fieldbyname('<27><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
if fieldbyname('<27><><EFBFBD><EFBFBD>').AsString='<27><>' then begin
|
|
|
|
|
|
memtotal['<27>跽<EFBFBD><E8B7BD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
memtotal['RMB<4D>跽<EFBFBD><E8B7BD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD>']:=bal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
bal:=bal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
DR:=DR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
rmbbal:=rmbbal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
RMBDR:=RMBDR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
end else begin
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD>']:=bal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
bal:=bal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
CR:=CR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
rmbbal:=rmbbal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
RMBCR:=RMBCR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
end;
|
|
|
|
|
|
memtotal.post;
|
|
|
|
|
|
end;
|
|
|
|
|
|
if fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat<>0 then begin
|
|
|
|
|
|
memtotal.Append;
|
|
|
|
|
|
memtotal['ID']:=i;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=1;
|
|
|
|
|
|
memtotal['<27><>']:=YearOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=MonthOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=DayOf(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime;
|
|
|
|
|
|
memtotal['ժҪ']:=fieldbyname('<27><>ע').asstring;
|
|
|
|
|
|
memtotal['ƾ֤<C6BE><D6A4>']:=fieldbyname('ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=GetBankName(fieldbyname('<27><><EFBFBD>д<EFBFBD><D0B4><EFBFBD>').asstring);
|
|
|
|
|
|
memtotal['<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>']:=fieldbyname('<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ա']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ա').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>']:=fieldbyname('<27><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
if fieldbyname('<27><><EFBFBD><EFBFBD>').AsString='<27><>' then begin
|
|
|
|
|
|
memtotal['<27><><EFBFBD>ҽ跽<D2BD><E8B7BD><EFBFBD><EFBFBD>']:=fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=usdbal+fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat;
|
|
|
|
|
|
memtotal['<27>跽<EFBFBD><E8B7BD><EFBFBD><EFBFBD>']:=fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal+fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
usdbal:=usdbal+fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat;
|
|
|
|
|
|
bal:=bal+fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
USDDR:=USDDR+fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat;
|
|
|
|
|
|
DR:=DR+fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
end else begin
|
|
|
|
|
|
memtotal['<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=usdbal-fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat;
|
|
|
|
|
|
usdbal:=usdbal-fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal-fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
bal:=bal-fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
USDCR:=USDCR+fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat;
|
|
|
|
|
|
CR:=CR+fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
end;
|
|
|
|
|
|
memtotal.post;
|
|
|
|
|
|
end;
|
|
|
|
|
|
end else begin
|
|
|
|
|
|
memtotal.Append;
|
|
|
|
|
|
memtotal['ID']:=i;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=1;
|
|
|
|
|
|
memtotal['<27><>']:=YearOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=MonthOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=DayOf(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime;
|
|
|
|
|
|
memtotal['ժҪ']:=fieldbyname('<27><>ע').asstring;
|
|
|
|
|
|
memtotal['ƾ֤<C6BE><D6A4>']:=fieldbyname('ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=GetBankName(fieldbyname('<27><><EFBFBD>д<EFBFBD><D0B4><EFBFBD>').asstring);
|
|
|
|
|
|
memtotal['<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>']:=fieldbyname('<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ա']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ա').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>']:=fieldbyname('<27><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
if trim(fieldbyname('<27>ұ<EFBFBD>').AsString)='RMB' then begin
|
|
|
|
|
|
if fieldbyname('<27><><EFBFBD><EFBFBD>').AsString='<27><>' then begin
|
|
|
|
|
|
memtotal['<27>跽<EFBFBD><E8B7BD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['RMB<4D>跽<EFBFBD><E8B7BD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD>']:=bal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
bal:=bal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
DR:=DR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
rmbbal:=rmbbal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
RMBDR:=RMBDR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
end else begin
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD>']:=bal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
bal:=bal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
CR:=CR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
rmbbal:=rmbbal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
RMBCR:=RMBCR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
end;
|
|
|
|
|
|
end else begin
|
|
|
|
|
|
if fieldbyname('<27><><EFBFBD><EFBFBD>').AsString='<27><>' then begin
|
|
|
|
|
|
memtotal['<27><><EFBFBD>ҽ跽<D2BD><E8B7BD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=usdbal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
usdbal:=usdbal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
USDDR:=USDDR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27>跽<EFBFBD><E8B7BD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
bal:=bal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
DR:=DR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
end else begin
|
|
|
|
|
|
memtotal['<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=usdbal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
usdbal:=usdbal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
USDCR:=USDCR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
bal:=bal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
CR:=CR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
memtotal.post;
|
|
|
|
|
|
end;
|
|
|
|
|
|
end else begin
|
|
|
|
|
|
memtotal.Append;
|
|
|
|
|
|
memtotal['ID']:=i;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=1;
|
|
|
|
|
|
memtotal['<27><>']:=YearOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=MonthOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=DayOf(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime;
|
|
|
|
|
|
memtotal['ժҪ']:=fieldbyname('<27><>ע').asstring;
|
|
|
|
|
|
memtotal['ƾ֤<C6BE><D6A4>']:=fieldbyname('ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=GetBankName(fieldbyname('<27><><EFBFBD>д<EFBFBD><D0B4><EFBFBD>').asstring);
|
|
|
|
|
|
memtotal['<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>']:=fieldbyname('<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ա']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ա').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>']:=fieldbyname('<27><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
if trim(fieldbyname('<27>ұ<EFBFBD>').AsString)='RMB' then begin
|
|
|
|
|
|
if fieldbyname('<27><><EFBFBD><EFBFBD>').AsString='<27><>' then begin
|
|
|
|
|
|
memtotal['<27>跽<EFBFBD><E8B7BD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['RMB<4D>跽<EFBFBD><E8B7BD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD>']:=bal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
bal:=bal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
DR:=DR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
rmbbal:=rmbbal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
RMBDR:=RMBDR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
end else begin
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD>']:=bal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
bal:=bal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
CR:=CR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
rmbbal:=rmbbal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
RMBCR:=RMBCR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
end;
|
|
|
|
|
|
end else begin
|
|
|
|
|
|
if fieldbyname('<27><><EFBFBD><EFBFBD>').AsString='<27><>' then begin
|
|
|
|
|
|
memtotal['<27><><EFBFBD>ҽ跽<D2BD><E8B7BD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=usdbal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
usdbal:=usdbal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
USDDR:=USDDR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27>跽<EFBFBD><E8B7BD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
bal:=bal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
DR:=DR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
end else begin
|
|
|
|
|
|
memtotal['<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=usdbal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
usdbal:=usdbal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
USDCR:=USDCR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
bal:=bal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
CR:=CR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
memtotal.post;
|
|
|
|
|
|
end;
|
|
|
|
|
|
inc(i);
|
|
|
|
|
|
Next;
|
|
|
|
|
|
end;
|
|
|
|
|
|
inc(i);
|
|
|
|
|
|
memtotal.Append;
|
|
|
|
|
|
memtotal['ID']:=i;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=2;
|
|
|
|
|
|
memtotal['<27><>']:=YearOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=MonthOf(aDate);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime;
|
|
|
|
|
|
// memtotal['<27><>']:=DayOf(aDate);
|
|
|
|
|
|
memtotal['ժҪ']:='<27><><EFBFBD><EFBFBD><EFBFBD>ۼ<EFBFBD>';
|
|
|
|
|
|
memtotal['<27>跽<EFBFBD><E8B7BD><EFBFBD><EFBFBD>']:=DR;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=CR;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal;
|
|
|
|
|
|
memtotal['<27><><EFBFBD>ҽ跽<D2BD><E8B7BD><EFBFBD><EFBFBD>']:=USDDR;
|
|
|
|
|
|
memtotal['<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=USDCR;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=usdbal;
|
|
|
|
|
|
memtotal['RMB<4D>跽<EFBFBD><E8B7BD><EFBFBD><EFBFBD>']:=RMBDR;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=RMBCR;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD>']:=rmbbal;
|
|
|
|
|
|
memtotal.post;
|
|
|
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
aDate:=IncMonth(aDate,1);
|
|
|
|
|
|
inc(i);
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
finally
|
|
|
|
|
|
FreeAndNil(aQuery);
|
|
|
|
|
|
freeAndNil(frm_sys_progress);
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
function Tfrm_rp_ch_genleg.GetBankName(accid:string):String;
|
|
|
|
|
|
var
|
|
|
|
|
|
aQuery:TAdoQuery;
|
|
|
|
|
|
begin
|
|
|
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
|
|
|
with aQuery do
|
|
|
|
|
|
try
|
|
|
|
|
|
Close;sql.Clear;
|
|
|
|
|
|
sql.Add('select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_sys_bank');
|
|
|
|
|
|
sql.Add('where <20><><EFBFBD><EFBFBD>='''+accid+'''');
|
|
|
|
|
|
Open;
|
|
|
|
|
|
if Recordcount<>0 then
|
|
|
|
|
|
result:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
|
|
|
|
|
|
else
|
|
|
|
|
|
result:='';
|
|
|
|
|
|
finally
|
|
|
|
|
|
freeAndNil(aQuery);
|
|
|
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_rp_ch_genleg.Getbank;
|
|
|
|
|
|
var
|
|
|
|
|
|
aQuery:TAdoQuery;
|
|
|
|
|
|
aDate,aTopDate,aToDate:TDate;
|
|
|
|
|
|
bank,strdate,stredate,sDate:String;
|
|
|
|
|
|
i:integer;
|
|
|
|
|
|
DR,CR,bal,USDDR,USDCR,usdbal,RMBDR,RMBCR,rmbbal:double;
|
|
|
|
|
|
fb:boolean;
|
|
|
|
|
|
|
|
|
|
|
|
begin
|
|
|
|
|
|
if RxDBLookupCombo1.DisplayValues[1]='<27>ֽ<EFBFBD>' then
|
|
|
|
|
|
bank:='<27>ֽ<EFBFBD>'
|
|
|
|
|
|
else
|
|
|
|
|
|
bank:=RxDBLookupCombo1.DisplayValues[0];
|
|
|
|
|
|
try
|
|
|
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
|
|
|
with aQuery do begin
|
|
|
|
|
|
aDate:=EncodeDate(strtoint(cbYear.Text),strtoint(cbmonth.Text),1);
|
|
|
|
|
|
aToDate:=EncodeDate(strtoint(cbeYear.Text),strtoint(cbemonth.Text),2);
|
|
|
|
|
|
|
|
|
|
|
|
if not ASSIGNED(frm_sys_progress) then
|
|
|
|
|
|
frm_sys_progress:=tfrm_sys_progress.Create(application);
|
|
|
|
|
|
frm_sys_progress.Show;
|
|
|
|
|
|
if MonthsBetween(aDate,aToDate)=0 then
|
|
|
|
|
|
frm_sys_progress.bsSkinGauge1.MaxValue:=1
|
|
|
|
|
|
|
|
|
|
|
|
else
|
|
|
|
|
|
frm_sys_progress.bsSkinGauge1.MaxValue:=MonthsBetween(aDate,aToDate);
|
|
|
|
|
|
frm_sys_progress.bsSkinGauge1.MinValue:=0;
|
|
|
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=0;
|
|
|
|
|
|
frm_sys_progress.Update;
|
|
|
|
|
|
|
|
|
|
|
|
i:=0;
|
|
|
|
|
|
bal:=0;
|
|
|
|
|
|
usdbal:=0;
|
|
|
|
|
|
rmbbal:=0;
|
|
|
|
|
|
DR:=0;
|
|
|
|
|
|
CR:=0;
|
|
|
|
|
|
USDDR:=0;
|
|
|
|
|
|
USDCR:=0;
|
|
|
|
|
|
RMBDR:=0;
|
|
|
|
|
|
RMBCR:=0;
|
|
|
|
|
|
fb:=true;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
while not (aDate>aToDate) do
|
|
|
|
|
|
begin
|
|
|
|
|
|
strdate:=FormatDateTime('YYYY-MM-DD',EncodeDate(strtoint(FormatDateTime('YYYY',aDate)),strtoint(FormatDateTime('MM',aDate)),MonthDays[isLeapYear(strtoint(FormatDateTime('YYYY',aDate))),strtoint(FormatDateTime('MM',aDate))]));
|
|
|
|
|
|
stredate:=FormatDateTime('YYYY-MM-DD',aDate);
|
|
|
|
|
|
sDate:=FormatDateTime('YYYYMM',aDate);
|
|
|
|
|
|
aTopDate:=IncMonth(aDate,-1);
|
|
|
|
|
|
if fb then begin
|
|
|
|
|
|
t_ch_bank_genleg.Close;
|
|
|
|
|
|
t_ch_bank_genleg.Parameters.ParamByName('<27><>').Value:=YearOf(aTopDate);
|
|
|
|
|
|
t_ch_bank_genleg.Parameters.ParamByName('<27><>').Value:=MonthOf(aTopDate);
|
|
|
|
|
|
t_ch_bank_genleg.Parameters.ParamByName('<27><><EFBFBD>д<EFBFBD><D0B4><EFBFBD>').Value:=bank;
|
|
|
|
|
|
t_ch_bank_genleg.open;
|
|
|
|
|
|
if not t_ch_bank_genleg.IsEmpty then
|
|
|
|
|
|
begin
|
|
|
|
|
|
memtotal.Append;
|
|
|
|
|
|
memtotal['ID']:=i;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=0;
|
|
|
|
|
|
memtotal['<27><>']:=YearOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=MonthOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=DayOf(aDate);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=aDate;
|
|
|
|
|
|
memtotal['ժҪ']:='<27>ڳ<EFBFBD><DAB3><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
|
|
|
bal:=t_ch_bank_genleg.fieldbyname('<27>ۼ<EFBFBD><DBBC><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
usdbal:=t_ch_bank_genleg.fieldbyname('USD<53>ۼ<EFBFBD><DBBC><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
rmbbal:=t_ch_bank_genleg.fieldbyname('RMB<4D>ۼ<EFBFBD><DBBC><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=t_ch_bank_genleg.fieldbyname('<27>ۼ<EFBFBD><DBBC><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_bank_genleg.fieldbyname('USD<53>ۼ<EFBFBD><DBBC><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD>']:=t_ch_bank_genleg.fieldbyname('RMB<4D>ۼ<EFBFBD><DBBC><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
fb:=false;
|
|
|
|
|
|
memtotal.post;
|
|
|
|
|
|
inc(i);
|
|
|
|
|
|
end else begin
|
|
|
|
|
|
memtotal.Append;
|
|
|
|
|
|
memtotal['ID']:=i;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=0;
|
|
|
|
|
|
memtotal['<27><>']:=YearOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=MonthOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=DayOf(aDate);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=aDate;
|
|
|
|
|
|
memtotal['ժҪ']:='<27>ڳ<EFBFBD><DAB3><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
|
|
|
bal:=0;
|
|
|
|
|
|
usdbal:=0;
|
|
|
|
|
|
rmbbal:=0;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=0;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD>']:=0;
|
|
|
|
|
|
fb:=false;
|
|
|
|
|
|
memtotal.post;
|
|
|
|
|
|
inc(i);
|
|
|
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
DR:=0;
|
|
|
|
|
|
CR:=0;
|
|
|
|
|
|
USDDR:=0;
|
|
|
|
|
|
USDCR:=0;
|
|
|
|
|
|
RMBDR:=0;
|
|
|
|
|
|
RMBCR:=0;
|
|
|
|
|
|
close;sql.clear;
|
|
|
|
|
|
sql.Add('select * from v_op_fee');
|
|
|
|
|
|
sql.Add('where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='''+stredate+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='''+strdate+'''');
|
|
|
|
|
|
sql.Add('and (<28><><EFBFBD>д<EFBFBD><D0B4><EFBFBD>='''+bank+''' or <20><>Ԫ<EFBFBD><D4AA><EFBFBD>д<EFBFBD><D0B4><EFBFBD>='''+bank+''')');
|
|
|
|
|
|
if trim(RxDBLookupCombo8.Value)<>'' then //<2F><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>
|
|
|
|
|
|
begin
|
|
|
|
|
|
sql.Add('and <20><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>='''+trim(RxDBLookupCombo8.Value)+'''');
|
|
|
|
|
|
end;
|
|
|
|
|
|
if trim(RxDBLookupCombo10.Value)<>'' then //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ա
|
|
|
|
|
|
begin
|
|
|
|
|
|
sql.Add('and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ա='''+trim(RxDBLookupCombo10.Value)+'''');
|
|
|
|
|
|
end;
|
|
|
|
|
|
if trim(RxDBLookupCombo2.Value)<>'' then //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
begin
|
|
|
|
|
|
sql.Add('and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+trim(RxDBLookupCombo2.Value)+''' ');
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
if trim(Edit1.text)<>'' then //<2F><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>
|
|
|
|
|
|
begin
|
|
|
|
|
|
sql.Add('and <20><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD> like ''%'+trim(Edit1.text)+'%''');
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
sql.Add('order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
|
|
|
open;
|
|
|
|
|
|
first;
|
|
|
|
|
|
while not eof do
|
|
|
|
|
|
begin
|
|
|
|
|
|
if fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsInteger=1 then
|
|
|
|
|
|
begin
|
|
|
|
|
|
if fieldbyname('<27>ұ<EFBFBD>').AsString='' then
|
|
|
|
|
|
begin
|
|
|
|
|
|
if (fieldbyname('<27><><EFBFBD>д<EFBFBD><D0B4><EFBFBD>').asstring=bank) and (fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat<>0) then
|
|
|
|
|
|
begin
|
|
|
|
|
|
memtotal.Append;
|
|
|
|
|
|
memtotal['ID']:=i;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=1;
|
|
|
|
|
|
memtotal['<27><>']:=YearOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=MonthOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=DayOf(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime;
|
|
|
|
|
|
memtotal['ժҪ']:=fieldbyname('<27><>ע').asstring;
|
|
|
|
|
|
memtotal['ƾ֤<C6BE><D6A4>']:=fieldbyname('ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=GetBankName(fieldbyname('<27><><EFBFBD>д<EFBFBD><D0B4><EFBFBD>').asstring);
|
|
|
|
|
|
memtotal['<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>']:=fieldbyname('<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ա']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ա').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>']:=fieldbyname('<27><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
if fieldbyname('<27><><EFBFBD><EFBFBD>').AsString='<27><>' then begin
|
|
|
|
|
|
memtotal['<27>跽<EFBFBD><E8B7BD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
memtotal['RMB<4D>跽<EFBFBD><E8B7BD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD>']:=bal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
bal:=bal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
DR:=DR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
rmbbal:=rmbbal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
RMBDR:=RMBDR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
end else begin
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD>']:=bal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
bal:=bal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
CR:=CR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
rmbbal:=rmbbal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
RMBCR:=RMBCR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat;
|
|
|
|
|
|
end;
|
|
|
|
|
|
memtotal.post;
|
|
|
|
|
|
end;
|
|
|
|
|
|
if (fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD>д<EFBFBD><D0B4><EFBFBD>').asstring=bank) and (fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat<>0) then
|
|
|
|
|
|
begin
|
|
|
|
|
|
memtotal.Append;
|
|
|
|
|
|
memtotal['ID']:=i;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=1;
|
|
|
|
|
|
memtotal['<27><>']:=YearOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=MonthOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=DayOf(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime;
|
|
|
|
|
|
memtotal['ժҪ']:=fieldbyname('<27><>ע').asstring;
|
|
|
|
|
|
memtotal['ƾ֤<C6BE><D6A4>']:=fieldbyname('ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=GetBankName(fieldbyname('<27><><EFBFBD>д<EFBFBD><D0B4><EFBFBD>').asstring);
|
|
|
|
|
|
memtotal['<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>']:=fieldbyname('<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ա']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ա').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>']:=fieldbyname('<27><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
if fieldbyname('<27><><EFBFBD><EFBFBD>').AsString='<27><>' then
|
|
|
|
|
|
begin
|
|
|
|
|
|
memtotal['<27><><EFBFBD>ҽ跽<D2BD><E8B7BD><EFBFBD><EFBFBD>']:=fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=usdbal+fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat;
|
|
|
|
|
|
memtotal['<27>跽<EFBFBD><E8B7BD><EFBFBD><EFBFBD>']:=fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal+fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
usdbal:=usdbal+fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat;
|
|
|
|
|
|
bal:=bal+fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
USDDR:=USDDR+fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat;
|
|
|
|
|
|
DR:=DR+fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
end
|
|
|
|
|
|
else
|
|
|
|
|
|
begin
|
|
|
|
|
|
memtotal['<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=usdbal-fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat;
|
|
|
|
|
|
usdbal:=usdbal-fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal-fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
bal:=bal-fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
USDCR:=USDCR+fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat;
|
|
|
|
|
|
CR:=CR+fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
end;
|
|
|
|
|
|
memtotal.post;
|
|
|
|
|
|
end;
|
|
|
|
|
|
end
|
|
|
|
|
|
else
|
|
|
|
|
|
begin
|
|
|
|
|
|
memtotal.Append;
|
|
|
|
|
|
memtotal['ID']:=i;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=1;
|
|
|
|
|
|
memtotal['<27><>']:=YearOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=MonthOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=DayOf(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime;
|
|
|
|
|
|
memtotal['ժҪ']:=fieldbyname('<27><>ע').asstring;
|
|
|
|
|
|
memtotal['ƾ֤<C6BE><D6A4>']:=fieldbyname('ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=GetBankName(fieldbyname('<27><><EFBFBD>д<EFBFBD><D0B4><EFBFBD>').asstring);
|
|
|
|
|
|
memtotal['<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>']:=fieldbyname('<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ա']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ա').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>']:=fieldbyname('<27><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
if trim(fieldbyname('<27>ұ<EFBFBD>').AsString)='RMB' then
|
|
|
|
|
|
begin
|
|
|
|
|
|
if fieldbyname('<27><><EFBFBD><EFBFBD>').AsString='<27><>' then
|
|
|
|
|
|
begin
|
|
|
|
|
|
memtotal['<27>跽<EFBFBD><E8B7BD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['RMB<4D>跽<EFBFBD><E8B7BD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD>']:=bal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
bal:=bal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
DR:=DR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
rmbbal:=rmbbal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
RMBDR:=RMBDR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
end
|
|
|
|
|
|
else
|
|
|
|
|
|
begin
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD>']:=bal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
bal:=bal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
CR:=CR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
rmbbal:=rmbbal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
RMBCR:=RMBCR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
end;
|
|
|
|
|
|
end
|
|
|
|
|
|
else
|
|
|
|
|
|
begin
|
|
|
|
|
|
if fieldbyname('<27><><EFBFBD><EFBFBD>').AsString='<27><>' then
|
|
|
|
|
|
begin
|
|
|
|
|
|
memtotal['<27><><EFBFBD>ҽ跽<D2BD><E8B7BD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=usdbal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
usdbal:=usdbal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
USDDR:=USDDR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
|
|
|
|
|
|
memtotal['<27>跽<EFBFBD><E8B7BD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
bal:=bal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
DR:=DR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
end
|
|
|
|
|
|
else
|
|
|
|
|
|
begin
|
|
|
|
|
|
memtotal['<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=usdbal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
usdbal:=usdbal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
USDCR:=USDCR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
bal:=bal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
CR:=CR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
memtotal.post;
|
|
|
|
|
|
end;
|
|
|
|
|
|
end
|
|
|
|
|
|
else
|
|
|
|
|
|
begin
|
|
|
|
|
|
memtotal.Append;
|
|
|
|
|
|
memtotal['ID']:=i;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=1;
|
|
|
|
|
|
memtotal['<27><>']:=YearOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=MonthOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=DayOf(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime;
|
|
|
|
|
|
memtotal['ժҪ']:=fieldbyname('<27><>ע').asstring;
|
|
|
|
|
|
memtotal['ƾ֤<C6BE><D6A4>']:=fieldbyname('ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=GetBankName(fieldbyname('<27><><EFBFBD>д<EFBFBD><D0B4><EFBFBD>').asstring);
|
|
|
|
|
|
memtotal['<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>']:=fieldbyname('<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ա']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ա').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>']:=fieldbyname('<27><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>').asstring;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
if trim(fieldbyname('<27>ұ<EFBFBD>').AsString)='RMB' then
|
|
|
|
|
|
begin
|
|
|
|
|
|
if fieldbyname('<27><><EFBFBD><EFBFBD>').AsString='<27><>' then
|
|
|
|
|
|
begin
|
|
|
|
|
|
memtotal['<27>跽<EFBFBD><E8B7BD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['RMB<4D>跽<EFBFBD><E8B7BD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD>']:=bal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
bal:=bal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
DR:=DR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
rmbbal:=rmbbal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
RMBDR:=RMBDR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
end
|
|
|
|
|
|
else
|
|
|
|
|
|
begin
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD>']:=bal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
bal:=bal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
CR:=CR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
rmbbal:=rmbbal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
RMBCR:=RMBCR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
end;
|
|
|
|
|
|
end
|
|
|
|
|
|
else
|
|
|
|
|
|
begin
|
|
|
|
|
|
if fieldbyname('<27><><EFBFBD><EFBFBD>').AsString='<27><>' then
|
|
|
|
|
|
begin
|
|
|
|
|
|
memtotal['<27><><EFBFBD>ҽ跽<D2BD><E8B7BD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=usdbal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
usdbal:=usdbal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
USDDR:=USDDR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27>跽<EFBFBD><E8B7BD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
bal:=bal+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
DR:=DR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
end
|
|
|
|
|
|
else
|
|
|
|
|
|
begin
|
|
|
|
|
|
memtotal['<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=usdbal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
usdbal:=usdbal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
USDCR:=USDCR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
bal:=bal-fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
CR:=CR+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat*GetUsdExrate(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,FieldByName('<27>ұ<EFBFBD>').asstring);
|
|
|
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
memtotal.post;
|
|
|
|
|
|
end;
|
|
|
|
|
|
inc(i);
|
|
|
|
|
|
Next;
|
|
|
|
|
|
end;
|
|
|
|
|
|
inc(i);
|
|
|
|
|
|
memtotal.Append;
|
|
|
|
|
|
memtotal['ID']:=i;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=2;
|
|
|
|
|
|
memtotal['<27><>']:=YearOf(aDate);
|
|
|
|
|
|
memtotal['<27><>']:=MonthOf(aDate);
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime;
|
|
|
|
|
|
// memtotal['<27><>']:=DayOf(aDate);
|
|
|
|
|
|
memtotal['ժҪ']:='<27><><EFBFBD><EFBFBD><EFBFBD>ۼ<EFBFBD>';
|
|
|
|
|
|
memtotal['<27>跽<EFBFBD><E8B7BD><EFBFBD><EFBFBD>']:=DR;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=CR;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD>']:=bal;
|
|
|
|
|
|
memtotal['<27><><EFBFBD>ҽ跽<D2BD><E8B7BD><EFBFBD><EFBFBD>']:=USDDR;
|
|
|
|
|
|
memtotal['<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=USDCR;
|
|
|
|
|
|
memtotal['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=usdbal;
|
|
|
|
|
|
memtotal['RMB<4D>跽<EFBFBD><E8B7BD><EFBFBD><EFBFBD>']:=RMBDR;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=RMBCR;
|
|
|
|
|
|
memtotal['RMB<4D><42><EFBFBD><EFBFBD>']:=rmbbal;
|
|
|
|
|
|
memtotal.post;
|
|
|
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
aDate:=IncMonth(aDate,1);
|
|
|
|
|
|
inc(i);
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
finally
|
|
|
|
|
|
FreeAndNil(aQuery);
|
|
|
|
|
|
freeAndNil(frm_sys_progress);
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_rp_ch_genleg.bsSkinRadioGroup1Click(Sender: TObject);
|
|
|
|
|
|
begin
|
|
|
|
|
|
// bsSkinButton10.OnClick(sender);
|
|
|
|
|
|
memtotal.EmptyTable;
|
|
|
|
|
|
|
|
|
|
|
|
if bsSkinRadioGroup1.ItemIndex=0 then begin
|
|
|
|
|
|
Label13.Visible:=false;
|
|
|
|
|
|
RxDBLookupCombo5.Visible:=false;
|
|
|
|
|
|
Label7.Visible:=true;
|
|
|
|
|
|
RxDBLookupCombo1.Visible:=true;
|
|
|
|
|
|
// dxDBGrid1Column7.Visible:=false;
|
|
|
|
|
|
end else if bsSkinRadioGroup1.ItemIndex=1 then begin
|
|
|
|
|
|
Label13.Visible:=true;
|
|
|
|
|
|
RxDBLookupCombo5.Visible:=true;
|
|
|
|
|
|
Label7.Visible:=false;
|
|
|
|
|
|
RxDBLookupCombo1.Visible:=false;
|
|
|
|
|
|
// dxDBGrid1Column7.Visible:=false;
|
|
|
|
|
|
end else if bsSkinRadioGroup1.ItemIndex=2 then begin
|
|
|
|
|
|
Label13.Visible:=false;
|
|
|
|
|
|
RxDBLookupCombo5.Visible:=false;
|
|
|
|
|
|
Label7.Visible:=true;
|
|
|
|
|
|
RxDBLookupCombo1.Visible:=true;
|
|
|
|
|
|
dxDBGrid1Column7.Visible:=false;
|
|
|
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_rp_ch_genleg.DBGridLegBookDrawColumnCell(Sender: TObject;
|
|
|
|
|
|
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
|
|
|
|
|
|
State: TGridDrawState);
|
|
|
|
|
|
begin
|
|
|
|
|
|
{
|
|
|
|
|
|
if memtotal.FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger=0 then begin
|
|
|
|
|
|
DBGridLegBook.Canvas.Brush.Color:=$00B7EBEC;
|
|
|
|
|
|
DBGridLegBook.Canvas.Font.Color:=clBlack;
|
|
|
|
|
|
end;
|
|
|
|
|
|
if memtotal.FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger=2 then begin
|
|
|
|
|
|
DBGridLegBook.Canvas.Brush.Color:=$00AFCEF1;
|
|
|
|
|
|
DBGridLegBook.Canvas.Font.Color:=clBlack;
|
|
|
|
|
|
end;
|
|
|
|
|
|
DBGridLegBook.DefaultDrawColumnCell(Rect, DataCol, Column, State);
|
|
|
|
|
|
}
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_rp_ch_genleg.bsSkinButton1Click(Sender: TObject);
|
|
|
|
|
|
begin
|
|
|
|
|
|
grid_save_xls(dxdbgrid1);
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_rp_ch_genleg.bsSkinPanel1Resize(Sender: TObject);
|
|
|
|
|
|
begin
|
|
|
|
|
|
//
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_rp_ch_genleg.dxDBGrid3CustomDraw(Sender: TObject;
|
|
|
|
|
|
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
|
|
|
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
|
|
|
|
|
|
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
|
|
|
|
|
|
begin
|
|
|
|
|
|
|
|
|
|
|
|
{
|
|
|
|
|
|
if Trim(ANode.Strings[dxDBGrid3Column17.Index])='0' then
|
|
|
|
|
|
AColor:=$00B7EBEC;
|
|
|
|
|
|
if Trim(ANode.Strings[dxDBGrid3Column17.Index])='2' then
|
|
|
|
|
|
AColor:=$00AFCEF1;
|
|
|
|
|
|
}
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_rp_ch_genleg.dxDBGrid1CustomDraw(Sender: TObject;
|
|
|
|
|
|
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
|
|
|
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
|
|
|
|
|
|
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
|
|
|
|
|
|
begin
|
|
|
|
|
|
if Trim(ANode.Strings[dxDBGrid1Column17.Index])='0' then
|
|
|
|
|
|
AColor:=$00B7EBEC;
|
|
|
|
|
|
if Trim(ANode.Strings[dxDBGrid1Column17.Index])='2' then
|
|
|
|
|
|
AColor:=$00AFCEF1;
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_rp_ch_genleg.bsSkinComboBox1Change(Sender: TObject);
|
|
|
|
|
|
begin
|
|
|
|
|
|
//
|
|
|
|
|
|
case bsSkinComboBox1.itemindex of
|
|
|
|
|
|
0:
|
|
|
|
|
|
begin
|
|
|
|
|
|
dxDBGrid1Column8.Visible:=True;
|
|
|
|
|
|
dxDBGrid1Column9.Visible:=True;
|
|
|
|
|
|
dxDBGrid1Column10.Visible:=True;
|
|
|
|
|
|
|
|
|
|
|
|
dxDBGrid1Column11.Visible:=True;
|
|
|
|
|
|
dxDBGrid1Column12.Visible:=True;
|
|
|
|
|
|
dxDBGrid1Column13.Visible:=True;
|
|
|
|
|
|
end;
|
|
|
|
|
|
1:
|
|
|
|
|
|
begin
|
|
|
|
|
|
dxDBGrid1Column8.Visible:=True;
|
|
|
|
|
|
dxDBGrid1Column9.Visible:=True;
|
|
|
|
|
|
dxDBGrid1Column10.Visible:=True;
|
|
|
|
|
|
|
|
|
|
|
|
dxDBGrid1Column11.Visible:=False;
|
|
|
|
|
|
dxDBGrid1Column12.Visible:=False;
|
|
|
|
|
|
dxDBGrid1Column13.Visible:=False;
|
|
|
|
|
|
end;
|
|
|
|
|
|
2:
|
|
|
|
|
|
begin
|
|
|
|
|
|
dxDBGrid1Column8.Visible:=False;
|
|
|
|
|
|
dxDBGrid1Column9.Visible:=False;
|
|
|
|
|
|
dxDBGrid1Column10.Visible:=False;
|
|
|
|
|
|
|
|
|
|
|
|
dxDBGrid1Column11.Visible:=True;
|
|
|
|
|
|
dxDBGrid1Column12.Visible:=True;
|
|
|
|
|
|
dxDBGrid1Column13.Visible:=True;
|
|
|
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_rp_ch_genleg.N14Click(Sender: TObject);
|
|
|
|
|
|
begin
|
|
|
|
|
|
update_grid_view_all(dxdbgrid1);
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
end.
|
