hanxuntao
/
DONGSHENG6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'master'
${ noResults }
DONGSHENG6/费用模块/u_fee_history.~pas

1211 lines
41 KiB
Plaintext
Raw Permalink Blame History Unescape Escape

This file contains ambiguous Unicode characters!

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

unit u_fee_history;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, BusinessSkinForm, bsSkinCtrls, dxExEdtr, dxCntner, dxTL,
dxDBCtrl, dxDBGrid, DB, ADODB, dxDBTLCl, dxGrClms, RxLookup, StdCtrls,
wwdbdatetimepicker, ExtCtrls;
type
Tfrm_fee_history = class(TForm)
bsBusinessSkinForm1: TbsBusinessSkinForm;
bsSkinPanel1: TbsSkinPanel;
bsSkinButton1: TbsSkinButton;
bsSkinButton5: TbsSkinButton;
bsSkinNotebook1: TbsSkinNotebook;
dxDBGrid1: TdxDBGrid;
t_ch_fee: TADOQuery;
t_ch_fee1: TDataSource;
bsSkinButton10: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
bsSkinButton3: TbsSkinButton;
t_bill1: TDataSource;
t_bill: TADOQuery;
bsSkinPanel2: TbsSkinPanel;
bsSkinPanel3: TbsSkinPanel;
Edit1: TEdit;
Edit2: TEdit;
Label6: TLabel;
Label1: TLabel;
Label9: TLabel;
RxDBLookupCombo2: TRxDBLookupCombo;
Label3: TLabel;
Edit4: TEdit;
Edit3: TEdit;
Label2: TLabel;
Label10: TLabel;
wwDBDateTimePicker1: TwwDBDateTimePicker;
dxDBGrid2: TdxDBGrid;
dxDBGridMaskColumn1: TdxDBGridMaskColumn;
dxDBGridMaskColumn4: TdxDBGridMaskColumn;
dxDBGridMaskColumn5: TdxDBGridMaskColumn;
dxDBGridMaskColumn6: TdxDBGridMaskColumn;
dxDBGridMaskColumn7: TdxDBGridMaskColumn;
dxDBGrid1Column12: TdxDBGridMaskColumn;
dxDBGrid1Column13: TdxDBGridMaskColumn;
dxDBGrid1Column14: TdxDBGridMaskColumn;
dxDBGrid1Column15: TdxDBGridMaskColumn;
dxDBGrid1Column16: TdxDBGridDateColumn;
dxDBGrid1Column17: TdxDBGridDateColumn;
dxDBGrid1Column18: TdxDBGridDateColumn;
dxDBGrid1Column19: TdxDBGridMaskColumn;
dxDBGrid1Column20: TdxDBGridMaskColumn;
dxDBGrid1Column22: TdxDBGridDateColumn;
dxDBGrid1Column63: TdxDBGridMaskColumn;
dxDBGrid1Column64: TdxDBGridMaskColumn;
dxDBGrid1Column65: TdxDBGridDateColumn;
dxDBGrid1Column66: TdxDBGridMaskColumn;
dxDBGrid1Column67: TdxDBGridMaskColumn;
bsSkinPanel4: TbsSkinPanel;
bsSkinPanel5: TbsSkinPanel;
Label4: TLabel;
Label5: TLabel;
Label7: TLabel;
Label8: TLabel;
Label11: TLabel;
Label12: TLabel;
Edit5: TEdit;
Edit6: TEdit;
RxDBLookupCombo1: TRxDBLookupCombo;
Edit7: TEdit;
Edit8: TEdit;
wwDBDateTimePicker2: TwwDBDateTimePicker;
dxDBGrid3: TdxDBGrid;
dxDBGridMaskColumn2: TdxDBGridMaskColumn;
dxDBGridMaskColumn9: TdxDBGridMaskColumn;
dxDBGridMaskColumn10: TdxDBGridMaskColumn;
dxDBGrid1Column62: TdxDBGridColumn;
dxDBGridMaskColumn11: TdxDBGridMaskColumn;
dxDBGridDateColumn2: TdxDBGridDateColumn;
dxDBGridMaskColumn15: TdxDBGridMaskColumn;
dxDBGridMaskColumn16: TdxDBGridMaskColumn;
dxDBGridMaskColumn17: TdxDBGridMaskColumn;
dxDBGridMaskColumn18: TdxDBGridMaskColumn;
dxDBGrid1Column41: TdxDBGridMaskColumn;
dxDBGrid1Column47: TdxDBGridMaskColumn;
dxDBGrid1Column48: TdxDBGridDateColumn;
bsSkinPanel6: TbsSkinPanel;
bsSkinPanel7: TbsSkinPanel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Edit9: TEdit;
Edit10: TEdit;
RxDBLookupCombo3: TRxDBLookupCombo;
Edit11: TEdit;
Edit12: TEdit;
wwDBDateTimePicker3: TwwDBDateTimePicker;
dxDBGrid4: TdxDBGrid;
dxDBGridMaskColumn3: TdxDBGridMaskColumn;
dxDBGridMaskColumn13: TdxDBGridMaskColumn;
dxDBGridMaskColumn14: TdxDBGridMaskColumn;
dxDBGridMaskColumn19: TdxDBGridMaskColumn;
dxDBGridMaskColumn20: TdxDBGridMaskColumn;
dxDBGrid1Column11: TdxDBGridMaskColumn;
dxDBGridMaskColumn22: TdxDBGridMaskColumn;
dxDBGridMaskColumn23: TdxDBGridMaskColumn;
dxDBGridDateColumn3: TdxDBGridDateColumn;
dxDBGrid1Column27: TdxDBGridMaskColumn;
dxDBGrid1Column28: TdxDBGridMaskColumn;
dxDBGrid1Column29: TdxDBGridMaskColumn;
dxDBGrid1Column30: TdxDBGridDateColumn;
bsSkinPanel8: TbsSkinPanel;
bsSkinPanel9: TbsSkinPanel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Edit13: TEdit;
Edit14: TEdit;
RxDBLookupCombo4: TRxDBLookupCombo;
Edit15: TEdit;
Edit16: TEdit;
wwDBDateTimePicker4: TwwDBDateTimePicker;
dxDBGrid5: TdxDBGrid;
dxDBGridMaskColumn8: TdxDBGridMaskColumn;
dxDBGrid1Column10: TdxDBGridMaskColumn;
dxDBGridDateColumn4: TdxDBGridDateColumn;
dxDBGridMaskColumn24: TdxDBGridMaskColumn;
dxDBGridMaskColumn25: TdxDBGridMaskColumn;
dxDBGridMaskColumn26: TdxDBGridMaskColumn;
dxDBGridMaskColumn30: TdxDBGridMaskColumn;
dxDBGridMaskColumn31: TdxDBGridMaskColumn;
dxDBGridMaskColumn32: TdxDBGridMaskColumn;
dxDBGridDateColumn5: TdxDBGridDateColumn;
dxDBGridMaskColumn36: TdxDBGridMaskColumn;
dxDBGrid1Column23: TdxDBGridMaskColumn;
dxDBGrid1Column24: TdxDBGridMaskColumn;
dxDBGrid1Column26: TdxDBGridMaskColumn;
dxDBGrid1Column25: TdxDBGridDateColumn;
op_type: TEdit;
fee_type: TEdit;
t_do_fee: TDataSource;
dxDBGrid1Column1: TdxDBGridColumn;
dxDBGrid1Column2: TdxDBGridColumn;
dxDBGrid1Column3: TdxDBGridColumn;
dxDBGrid1Column4: TdxDBGridColumn;
dxDBGrid1Column5: TdxDBGridColumn;
dxDBGrid1Column6: TdxDBGridColumn;
dxDBGrid1Column7: TdxDBGridColumn;
dxDBGrid1Column8: TdxDBGridColumn;
dxDBGrid1Column9: TdxDBGridColumn;
t_bz_balance1: TDataSource;
bsSkinRadioGroup1: TbsSkinRadioGroup;
Panel1: TPanel;
dxDBGrid6: TdxDBGrid;
dxDBGrid2Column12: TdxDBGridColumn;
dxDBGrid2Column14: TdxDBGridColumn;
dxDBGrid2Column15: TdxDBGridColumn;
dxDBGrid2Column1: TdxDBGridColumn;
dxDBGrid2Column2: TdxDBGridColumn;
dxDBGrid2Column3: TdxDBGridColumn;
dxDBGrid2Column4: TdxDBGridColumn;
dxDBGrid2Column5: TdxDBGridColumn;
dxDBGrid2Column6: TdxDBGridColumn;
dxDBGrid2Column7: TdxDBGridColumn;
dxDBGrid2Column8: TdxDBGridColumn;
dxDBGrid2Column9: TdxDBGridColumn;
dxDBGrid2Column10: TdxDBGridColumn;
dxDBGrid2Column11: TdxDBGridColumn;
dxDBGrid2Column13: TdxDBGridColumn;
dxDBGrid2Column16: TdxDBGridColumn;
dxDBGrid2Column17: TdxDBGridColumn;
dxDBGrid2Column18: TdxDBGridColumn;
dxDBGrid2Column19: TdxDBGridColumn;
dxDBGrid2Column20: TdxDBGridColumn;
dxDBGrid2Column21: TdxDBGridColumn;
dxDBGrid2Column22: TdxDBGridColumn;
dxDBGrid2Column23: TdxDBGridColumn;
dxDBGrid2Column24: TdxDBGridColumn;
dxDBGrid2Column25: TdxDBGridColumn;
dxDBGrid2Column26: TdxDBGridColumn;
dxDBGrid2Column27: TdxDBGridColumn;
dxDBGrid2Column28: TdxDBGridColumn;
dxDBGrid2Column29: TdxDBGridColumn;
dxDBGrid2Column30: TdxDBGridColumn;
dxDBGrid2Column31: TdxDBGridColumn;
dxDBGrid2Column32: TdxDBGridColumn;
dxDBGrid2Column33: TdxDBGridColumn;
bsSkinPanel11: TbsSkinPanel;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
Edit17: TEdit;
Edit18: TEdit;
RxDBLookupCombo5: TRxDBLookupCombo;
Edit19: TEdit;
Edit20: TEdit;
wwDBDateTimePicker5: TwwDBDateTimePicker;
dxDBGrid1Column21: TdxDBGridColumn;
dxDBGrid1Column31: TdxDBGridColumn;
dxDBGrid1Column32: TdxDBGridColumn;
dxDBGrid1Column33: TdxDBGridColumn;
dxDBGrid1Column34: TdxDBGridColumn;
dxDBGrid1Column35: TdxDBGridColumn;
dxDBGrid1Column36: TdxDBGridColumn;
RxDBLookupCombo6: TRxDBLookupCombo;
Label31: TLabel;
Label32: TLabel;
RxDBLookupCombo7: TRxDBLookupCombo;
Label33: TLabel;
RxDBLookupCombo8: TRxDBLookupCombo;
bsSkinPanel10: TbsSkinPanel;
Label34: TLabel;
Label35: TLabel;
Label36: TLabel;
Label37: TLabel;
Label39: TLabel;
Edit21: TEdit;
Edit22: TEdit;
RxDBLookupCombo9: TRxDBLookupCombo;
Edit23: TEdit;
wwDBDateTimePicker6: TwwDBDateTimePicker;
RxDBLookupCombo10: TRxDBLookupCombo;
Label40: TLabel;
bsSkinPanel12: TbsSkinPanel;
dxDBGrid7: TdxDBGrid;
dxDBGridMaskColumn12: TdxDBGridMaskColumn;
dxDBGridMaskColumn21: TdxDBGridMaskColumn;
dxDBGridMaskColumn28: TdxDBGridMaskColumn;
dxDBGridMaskColumn29: TdxDBGridMaskColumn;
dxDBGridMaskColumn35: TdxDBGridMaskColumn;
dxDBGridMaskColumn37: TdxDBGridMaskColumn;
dxDBGridDateColumn1: TdxDBGridDateColumn;
dxDBGridMaskColumn38: TdxDBGridMaskColumn;
dxDBGridMaskColumn39: TdxDBGridMaskColumn;
dxDBGridMaskColumn41: TdxDBGridMaskColumn;
dxDBGridDateColumn9: TdxDBGridDateColumn;
dxDBGridMaskColumn42: TdxDBGridMaskColumn;
dxDBGridMaskColumn43: TdxDBGridMaskColumn;
procedure bsSkinButton5Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure bsSkinButton10Click(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure bsSkinButton3Click(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit4KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo2KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Edit3KeyPress(Sender: TObject; var Key: Char);
procedure wwDBDateTimePicker1KeyPress(Sender: TObject; var Key: Char);
private
function fee_get_client(str:string):string;
function fee_get_num(Str: String): Double;
function sqlfee(str:string):string;
function GetCurrencyRate(aCurrency,BsType:string;Dataset1:TDataset):Double;
{ Private declarations }
public
{ Public declarations }
end;
var
frm_fee_history: Tfrm_fee_history;
implementation
uses u_main, my_sys_function, u_data_share;
{$R *.dfm}
function Tfrm_fee_history.GetCurrencyRate(aCurrency,BsType:string;Dataset1:TDataset):Double;
begin
if frm_data_share.t_code_currency.Locate('<27>ұ<EFBFBD>',Trim(aCurrency),[])THEN
begin
if Trim(aCurrency)<>'RMB' then
begin
if strtobool(get_parameters_value(145,'true')) then
begin
if BsType='1' then
Result:=getUsdExRate(dataset1.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,aCurrency)
else
if BsType='2' then
Result:=getUsdExRate(dataset1.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,aCurrency)
else
if BsType='3' then
Result:=getUsdExRate(dataset1.fieldbyname('һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,aCurrency)
else
if BsType='4' then
Result:=getUsdExRate(dataset1.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,aCurrency)
else
if BsType='6' then
Result:=getUsdExRate(dataset1.fieldbyname('<27>ӵ<EFBFBD><D3B5><EFBFBD><EFBFBD><EFBFBD>').asstring,aCurrency)
else
if BsType='9' then
Result:=getUsdExRate(dataset1.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,aCurrency);
end
else
begin
Result:=getUsdExRate(dataset1.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').asstring,aCurrency)
end;
end
else
Result:=frm_data_share.t_code_currency.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
function Tfrm_fee_history.sqlfee(str:string):string;
begin
if (if_open('293') or if_open('295')or if_open('297')or if_open('299') or if_open('353')) and (str='<27><>') then
begin
if (strtobool(get_parameters_value(153,'false'))=true) then
begin
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('206')=false) then
begin
t_ch_fee.SQL.Clear;
t_ch_fee.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>'
+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and (¼<><C2BC><EFBFBD><EFBFBD>='
+''''+employee+''''+' or (¼<><C2BC><EFBFBD><EFBFBD><>'+''''+employee+''''
+' and <20><><EFBFBD><EFBFBD><>1) ) and '+open_data('7000','¼<><C2BC><EFBFBD><EFBFBD>','no','no','no','no')
+' order by ˳<><CBB3>,CH_ID');
end
else
begin
t_ch_fee.close;
t_ch_fee.SQL.Clear;
t_ch_fee.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>'
+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and '
+open_data('7000','¼<><C2BC><EFBFBD><EFBFBD>','no','no','no','no')
+' order by ˳<><CBB3>,CH_ID');
end;
end
else
begin
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('206')=false) then
begin
t_ch_fee.close;
t_ch_fee.SQL.Clear;
t_ch_fee.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>'
+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and (¼<><C2BC><EFBFBD><EFBFBD>='
+''''+employee+''''+' or (¼<><C2BC><EFBFBD><EFBFBD><>'+''''+employee+''''
+' and <20><><EFBFBD><EFBFBD><>1) ) order by ˳<><CBB3>,CH_ID');
end;
end;
t_ch_fee.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:=str;
t_ch_fee.Open;
end;
if (if_open('294') or if_open('296')or if_open('298')or if_open('300') or if_open('354')) and (str='<27><>') then
begin
if (strtobool(get_parameters_value(153,'false'))=true) then
begin
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('206')=false) then
begin
t_ch_fee.SQL.Clear;
t_ch_fee.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>'
+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and (¼<><C2BC><EFBFBD><EFBFBD>='
+''''+employee+''''+' or (¼<><C2BC><EFBFBD><EFBFBD><>'+''''+employee+''''
+' and <20><><EFBFBD><EFBFBD><>1) ) and '+open_data('7000','¼<><C2BC><EFBFBD><EFBFBD>','no','no','no','no')
+' order by ˳<><CBB3>,CH_ID');
end
else
begin
t_ch_fee.close;
t_ch_fee.SQL.Clear;
t_ch_fee.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>'
+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and '
+open_data('7000','¼<><C2BC><EFBFBD><EFBFBD>','no','no','no','no')
+' order by ˳<><CBB3>,CH_ID');
end;
end
else
begin
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('206')=false) then
begin
t_ch_fee.close;
t_ch_fee.SQL.Clear;
t_ch_fee.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>'
+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and (¼<><C2BC><EFBFBD><EFBFBD>='
+''''+employee+''''+' or (¼<><C2BC><EFBFBD><EFBFBD><>'+''''+employee+''''
+' and <20><><EFBFBD><EFBFBD><>1) ) order by ˳<><CBB3>,CH_ID');
end;
end;
t_ch_fee.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:=str;
t_ch_fee.Open;
end;
end;
procedure Tfrm_fee_history.bsSkinButton5Click(Sender: TObject);
begin
CLOSE;
end;
procedure Tfrm_fee_history.FormShow(Sender: TObject);
begin
bsSkinNotebook1.PageIndex:=strtoint(op_type.text);
end;
procedure Tfrm_fee_history.bsSkinButton10Click(Sender: TObject);
begin
Edit1.text:='';
Edit2.text:='';
Edit3.text:='';
Edit4.text:='';
Edit5.text:='';
Edit6.text:='';
Edit7.text:='';
Edit8.text:='';
Edit9.text:='';
Edit10.text:='';
Edit11.text:='';
Edit12.text:='';
Edit13.text:='';
Edit14.text:='';
Edit15.text:='';
Edit16.text:='';
RxDBLookupCombo1.ClearValue;
RxDBLookupCombo2.ClearValue;
RxDBLookupCombo3.ClearValue;
RxDBLookupCombo4.ClearValue;
wwDBDateTimePicker1.Text:='';
wwDBDateTimePicker2.Text:='';
wwDBDateTimePicker3.Text:='';
wwDBDateTimePicker4.Text:='';
end;
function Tfrm_fee_history.fee_get_client(str:string):string;
begin
if str='' then
result:=''
else
begin
if (op_type.text='1')OR(op_type.text='2') then
begin
if str='ί<>е<EFBFBD>λ'then
result:=t_do_fee.DataSet.DataSource.DataSet.fieldbyname('ί<>е<EFBFBD>λ').asstring;
if str='<27><><EFBFBD><EFBFBD>˾'then
result:=t_do_fee.DataSet.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>˾').asstring;
if str='<27><>վ'then
result:=t_do_fee.DataSet.DataSource.DataSet.fieldbyname('<27><>վ').asstring;
if str='<27><><EFBFBD><EFBFBD>'then
result:=t_do_fee.DataSet.DataSource.DataSet.fieldbyname('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>').asstring;
if str='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'then
result:=t_do_fee.DataSet.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
if str='<27><><EFBFBD><EFBFBD>'then
result:=t_do_fee.DataSet.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
if str='<27><><EFBFBD><EFBFBD>'then
result:=t_do_fee.DataSet.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾').asstring;
if str='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'then
result:=t_do_fee.DataSet.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
if str='<27>ջ<EFBFBD><D5BB><EFBFBD>'then
result:=t_do_fee.DataSet.DataSource.DataSet.fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD>').asstring;
if str='֪ͨ<CDA8><D6AA>'then
result:=t_do_fee.DataSet.DataSource.DataSet.fieldbyname('֪ͨ<CDA8><D6AA>').asstring;
if str='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'then
result:=t_do_fee.DataSet.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
end
else
if (op_type.text='9') then
begin
end
else
begin
if str='ί<>е<EFBFBD>λ'then
result:=t_do_fee.DataSet.DataSource.DataSet.fieldbyname('ί<>е<EFBFBD>λ').asstring;
if str='<27><><EFBFBD>չ<EFBFBD>˾'then
result:=t_do_fee.DataSet.DataSource.DataSet.fieldbyname('<27><><EFBFBD>չ<EFBFBD>˾').asstring;
if str='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'then
result:=t_do_fee.DataSet.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
if str='<27><><EFBFBD><EFBFBD>'then
result:=t_do_fee.DataSet.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
end;
end;
end;
function Tfrm_fee_history.fee_get_num(Str: String): Double;
begin
if not t_bz_balance1.DataSet.IsEmpty then
if t_bz_balance1.DataSet.Locate('two',Str,[])then
begin
Result:=t_bz_balance1.DataSet.fieldbyname('three').asfloat;
end;
end;
procedure Tfrm_fee_history.bsSkinButton2Click(Sender: TObject);
var
str:widestring;
begin
case bsSkinNotebook1.PageIndex of
1:
begin
if Edit1.text<>''then
str:=' where ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> like '+''''+'%'+Edit1.text+'%'+'''';
if Edit4.text<>''then
begin
if str=''then
str:=' where ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit4.text+'%'+''''
else
str:=str+' and ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit4.text+'%'+'''';
end;
if Edit2.text<>''then
begin
if str=''then
str:=' where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit2.text+'%'+''''
else
str:=str+' and <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit2.text+'%'+'''';
end;
if Edit3.text<>''then
begin
if str=''then
str:=' where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit3.text+'%'+''''
else
str:=str+' and <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit3.text+'%'+'''';
end;
if RxDBLookupCombo2.DisplayValue<>''then
begin
if str=''then
str:=' where ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo2.DisplayValues[1]+''''
else
str:=str+' and ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo2.DisplayValues[1]+'''';
end;
if wwDBDateTimePicker1.text<>''then
begin
if str=''then
str:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+wwDBDateTimePicker1.text+''''
else
str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+wwDBDateTimePicker1.text+'''';
end;
if RxDBLookupCombo6.DisplayValue<>''then
begin
if str=''then
str:=' where <20><><EFBFBD><EFBFBD>˾='+''''+RxDBLookupCombo6.DisplayValues[1]+''''
else
str:=str+' and <20><><EFBFBD><EFBFBD>˾='+''''+RxDBLookupCombo6.DisplayValues[1]+'''';
end;
if RxDBLookupCombo7.DisplayValue<>''then
begin
if str=''then
str:=' where <20><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>='+''''+RxDBLookupCombo7.DisplayValues[1]+''''
else
str:=str+' and <20><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>='+''''+RxDBLookupCombo7.DisplayValues[1]+'''';
end;
if RxDBLookupCombo8.DisplayValue<>''then
begin
if str=''then
str:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo8.DisplayValues[1]+''''
else
str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo8.DisplayValues[1]+'''';
end;
if str<>'' then
str:=str+' and '+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no')
else str:=str+' where '+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no');
str:='select * from t_op_seae '+str+default_sort(53,'t_op_seae','','desc');
t_ch_fee.close;
t_bill.close;
t_bill.sql.clear;
t_bill.sql.add(str);
t_bill.open;
{
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('206')=false) then
begin
t_ch_fee.close;
t_ch_fee.SQL.Clear;
t_ch_fee.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>'
+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and (¼<><C2BC><EFBFBD><EFBFBD>='
+''''+employee+''''+' or (¼<><C2BC><EFBFBD><EFBFBD><>'+''''+employee+''''
+' and <20><><EFBFBD><EFBFBD><>1) ) order by ˳<><CBB3>,CH_ID');
end;
t_ch_fee.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:=fee_type.text;
t_ch_fee.open;
}
sqlfee(fee_type.text);
end;
2:
begin
if Edit5.text<>''then
str:=' where ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> like '+''''+'%'+Edit5.text+'%'+'''';
if Edit7.text<>''then
begin
if str=''then
str:=' where ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit7.text+'%'+''''
else
str:=str+' and ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit7.text+'%'+'''';
end;
if Edit6.text<>''then
begin
if str=''then
str:=' where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit6.text+'%'+''''
else
str:=str+' and <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit6.text+'%'+'''';
end;
if Edit8.text<>''then
begin
if str=''then
str:=' where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit8.text+'%'+''''
else
str:=str+' and <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit8.text+'%'+'''';
end;
if RxDBLookupCombo1.DisplayValue<>''then
begin
if str=''then
str:=' where ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo1.DisplayValues[1]+''''
else
str:=str+' and ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo1.DisplayValues[1]+'''';
end;
if wwDBDateTimePicker2.text<>''then
begin
if str=''then
str:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+wwDBDateTimePicker2.text+''''
else
str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+wwDBDateTimePicker2.text+'''';
end;
if str<>'' then
str:=str+' and '+open_data('0002','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no')
else str:=str+' where '+open_data('0002','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no');
str:='select * from t_op_seai '+str+default_sort(54,'t_op_seai','','desc');
t_ch_fee.close;
t_bill.close;
t_bill.sql.clear;
t_bill.sql.add(str);
t_bill.open;
{
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('206')=false) then
begin
t_ch_fee.close;
t_ch_fee.SQL.Clear;
t_ch_fee.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>'
+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and (¼<><C2BC><EFBFBD><EFBFBD>='
+''''+employee+''''+' or (¼<><C2BC><EFBFBD><EFBFBD><>'+''''+employee+''''
+' and <20><><EFBFBD><EFBFBD><>1) ) order by ˳<><CBB3>,CH_ID');
end;
t_ch_fee.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:=fee_type.text;
t_ch_fee.open;
}
sqlfee(fee_type.text);
end;
3:
begin
if Edit9.text<>''then
str:=' where ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> like '+''''+'%'+Edit9.text+'%'+'''';
if Edit11.text<>''then
begin
if str=''then
str:=' where ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit11.text+'%'+''''
else
str:=str+' and ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit11.text+'%'+'''';
end;
if Edit10.text<>''then
begin
if str=''then
str:=' where <20><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD> like '+''''+'%'+Edit10.text+'%'+''''
else
str:=str+' and <20><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD> like '+''''+'%'+Edit10.text+'%'+'''';
end;
if Edit12.text<>''then
begin
if str=''then
str:=' where <20><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD> like '+''''+'%'+Edit12.text+'%'+''''
else
str:=str+' and <20><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD> like '+''''+'%'+Edit12.text+'%'+'''';
end;
if RxDBLookupCombo3.DisplayValue<>''then
begin
if str=''then
str:=' where ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo3.DisplayValues[1]+''''
else
str:=str+' and ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo3.DisplayValues[1]+'''';
end;
if wwDBDateTimePicker3.text<>''then
begin
if str=''then
str:=' where һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+wwDBDateTimePicker3.text+''''
else
str:=str+' and һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+wwDBDateTimePicker3.text+'''';
end;
if str<>'' then
str:=str+' and '+open_data('0003','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no')
else str:=str+' where '+open_data('0003','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no');
str:='select * from t_op_aire '+str+default_sort(55,'t_op_aire','','desc');
t_ch_fee.close;
t_bill.close;
t_bill.sql.clear;
t_bill.sql.add(str);
t_bill.open;
{
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('206')=false) then
begin
t_ch_fee.close;
t_ch_fee.SQL.Clear;
t_ch_fee.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>'
+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and (¼<><C2BC><EFBFBD><EFBFBD>='
+''''+employee+''''+' or (¼<><C2BC><EFBFBD><EFBFBD><>'+''''+employee+''''
+' and <20><><EFBFBD><EFBFBD><>1) ) order by ˳<><CBB3>,CH_ID');
end;
t_ch_fee.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:=fee_type.text;
t_ch_fee.open;
}
sqlfee(fee_type.text);
end;
4:
begin
if Edit13.text<>''then
str:=' where ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> like '+''''+'%'+Edit13.text+'%'+'''';
if Edit15.text<>''then
begin
if str=''then
str:=' where ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit15.text+'%'+''''
else
str:=str+' and ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit15.text+'%'+'''';
end;
if Edit14.text<>''then
begin
if str=''then
str:=' where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit14.text+'%'+''''
else
str:=str+' and <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit14.text+'%'+'''';
end;
if Edit16.text<>''then
begin
if str=''then
str:=' where <20><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD> like '+''''+'%'+Edit16.text+'%'+''''
else
str:=str+' and <20><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD> like '+''''+'%'+Edit16.text+'%'+'''';
end;
if RxDBLookupCombo4.DisplayValue<>''then
begin
if str=''then
str:=' where ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo4.DisplayValues[1]+''''
else
str:=str+' and ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo4.DisplayValues[1]+'''';
end;
if wwDBDateTimePicker4.text<>''then
begin
if str=''then
str:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+wwDBDateTimePicker4.text+''''
else
str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+wwDBDateTimePicker4.text+'''';
end;
if str<>'' then
str:=str+' and '+open_data('0004','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no')
else str:=str+' where '+open_data('0004','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no');
str:='select * from t_op_airi '+str+default_sort(56,'t_op_airi','','desc');
t_ch_fee.close;
t_bill.close;
t_bill.sql.clear;
t_bill.sql.add(str);
t_bill.open;
{
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('206')=false) then
begin
t_ch_fee.close;
t_ch_fee.SQL.Clear;
t_ch_fee.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>'
+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and (¼<><C2BC><EFBFBD><EFBFBD>='
+''''+employee+''''+' or (¼<><C2BC><EFBFBD><EFBFBD><>'+''''+employee+''''
+' and <20><><EFBFBD><EFBFBD><>1) ) order by ˳<><CBB3>,CH_ID');
end;
t_ch_fee.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:=fee_type.text;
t_ch_fee.open;
}
sqlfee(fee_type.text);
end;
6:
begin
if Edit17.text<>''then
str:=' where ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> like '+''''+'%'+Edit17.text+'%'+'''';
if Edit19.text<>''then
begin
if str=''then
str:=' where ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit19.text+'%'+''''
else
str:=str+' and ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit19.text+'%'+'''';
end;
if Edit18.text<>''then
begin
if str=''then
str:=' where <20><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD> like '+''''+'%'+Edit18.text+'%'+''''
else
str:=str+' and <20><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD> like '+''''+'%'+Edit18.text+'%'+'''';
end;
if Edit20.text<>''then
begin
if str=''then
str:=' where <20><><EFBFBD><EFBFBD> like '+''''+'%'+Edit20.text+'%'+''''
else
str:=str+' and <20><><EFBFBD><EFBFBD> like '+''''+'%'+Edit20.text+'%'+'''';
end;
if RxDBLookupCombo5.DisplayValue<>''then
begin
if str=''then
str:=' where ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo5.DisplayValues[1]+''''
else
str:=str+' and ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo5.DisplayValues[1]+'''';
end;
if wwDBDateTimePicker5.text<>''then
begin
if str=''then
str:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+wwDBDateTimePicker5.text+''''
else
str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+wwDBDateTimePicker5.text+'''';
end;
str:='select * from t_op_railway '+str+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_ch_fee.close;
t_bill.close;
t_bill.sql.clear;
t_bill.sql.add(str);
t_bill.open;
sqlfee(fee_type.text);
end;
9:
begin
if Edit21.text<>''then
str:=' where ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> like '+''''+'%'+Edit21.text+'%'+'''';
if Edit23.text<>''then
begin
if str=''then
str:=' where ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit23.text+'%'+''''
else
str:=str+' and ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit23.text+'%'+'''';
end;
if Edit22.text<>''then
begin
if str=''then
str:=' where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit22.text+'%'+''''
else
str:=str+' and <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit22.text+'%'+'''';
end;
if RxDBLookupCombo9.DisplayValue<>''then
begin
if str=''then
str:=' where ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo9.DisplayValues[1]+''''
else
str:=str+' and ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo9.DisplayValues[1]+'''';
end;
if RxDBLookupCombo10.DisplayValue<>''then
begin
if str=''then
str:=' where <20><><EFBFBD><EFBFBD>˾='+''''+RxDBLookupCombo10.DisplayValues[1]+''''
else
str:=str+' and <20><><EFBFBD><EFBFBD>˾='+''''+RxDBLookupCombo10.DisplayValues[1]+'''';
end;
if wwDBDateTimePicker6.text<>''then
begin
if str=''then
str:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+wwDBDateTimePicker6.text+''''
else
str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+wwDBDateTimePicker6.text+'''';
end;
str:='select * from t_op_sealocal '+str+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_ch_fee.close;
t_bill.close;
t_bill.sql.clear;
t_bill.sql.add(str);
t_bill.open;
sqlfee(fee_type.text);
end;
end;
end;
procedure Tfrm_fee_history.bsSkinButton3Click(Sender: TObject);
var
i,k:integer;
str:String;
begin
if t_ch_fee.IsEmpty then
exit;
try
if dxDBGrid1.SelectedCount>=1 then
begin
for i:=0 to dxDBGrid1.SelectedCount-1 do
begin
t_ch_fee.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
t_do_fee.DataSet.append;
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD>']:=fee_type.text;
for k:= 0 to (t_ch_fee.fieldcount-1) do
begin
if t_do_fee.DataSet.Fields.FindField(t_ch_fee.fields[k].FieldName)<>nil then
if (t_ch_fee.fields[k].FieldName<>'CH_ID')
AND(t_ch_fee.fields[k].FieldName<>'<27><><EFBFBD><EFBFBD>')
AND(t_ch_fee.fields[k].FieldName<>'<27><><EFBFBD><EFBFBD>״̬')
AND(t_ch_fee.fields[k].FieldName<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
and (t_ch_fee.fields[k].DataType<>ftDateTime)then
t_do_fee.DataSet[t_ch_fee.fields[k].FieldName]:=t_ch_fee[t_ch_fee.fields[k].FieldName];
end;
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD>']:=fee_type.text;
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD>ԭ<EFBFBD><D4AD>']:=null;
t_do_fee.DataSet['<27><>׼']:=t_ch_fee.FieldByName('<27><>׼').AsString;
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD>']:=fee_get_num(t_do_fee.DataSet['<27><>׼']);
if bsSkinRadioGroup1.ItemIndex=1 then
begin
str:=fee_get_client(t_ch_fee.fieldbyname('<27><><EFBFBD>㵥λ').asstring);
if str<>'' then
t_do_fee.DataSet['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=str;
end
else
begin
end;
if Trim(t_do_fee.DataSet.FieldByName('<27>ұ<EFBFBD>').AsString)<>'RMB' then
begin
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD>']:=GetCurrencyRate(Trim(t_do_fee.DataSet.FieldByName('<27>ұ<EFBFBD>').AsString),op_type.text,t_ch_fee.DataSource.DataSet);
end;
// t_do_fee.DataSet['<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>']:=t_do_fee.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>').asfloat;
t_do_fee.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=nil;
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD>']:=s_w(strtoint(apointnum),t_do_fee.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*t_do_fee.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
t_do_fee.DataSet['˰<><CBB0>']:=s_w(strtoint(apointnum),t_do_fee.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>').asfloat*t_do_fee.DataSet.fieldbyname('˰<><CBB0>').asfloat/100*t_do_fee.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>']:=s_w(strtoint(apointnum),t_do_fee.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat-t_do_fee.DataSet.fieldbyname('˰<><CBB0>').asfloat);
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>']:=s_w(strtoint(apointnum),t_do_fee.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat/(1+t_do_fee.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>').asfloat/100)*t_do_fee.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>').asfloat/100);
t_do_fee.DataSet['<27><><EFBFBD>񲻺<EFBFBD>˰<EFBFBD><CBB0>']:=s_w(strtoint(apointnum),t_do_fee.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat-t_do_fee.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>').asfloat);
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
t_do_fee.DataSet['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=0;
t_do_fee.DataSet['<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>']:=0;
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
t_do_fee.DataSet['<27><><EFBFBD>뿪Ʊ']:=0;
t_do_fee.DataSet['<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>']:=null;
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
t_do_fee.DataSet['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
t_do_fee.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
t_do_fee.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
t_do_fee.DataSet['<27><><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD>']:='';
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
t_do_fee.DataSet['Ԥ<><D4A4><EFBFBD>ɱ<EFBFBD>']:=0;
t_do_fee.DataSet['<27><><EFBFBD>ֳɱ<D6B3>']:=0;
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ']:=0;
t_do_fee.DataSet.post;
end;
end
else
begin
t_do_fee.DataSet.append;
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD>']:=fee_type.text;
for k:= 0 to (t_ch_fee.fieldcount-1) do
begin
{
if t_do_fee.DataSet.Fields.FindField(t_ch_fee.fields[k].FieldName)<>nil then
if (t_ch_fee.fields[k].FieldName<>'CH_ID')AND(t_ch_fee.fields[k].FieldName<>'<27><><EFBFBD><EFBFBD>') then
t_do_fee.DataSet[t_ch_fee.fields[k].FieldName]:=t_ch_fee[t_ch_fee.fields[k].FieldName];
}
if t_do_fee.DataSet.Fields.FindField(t_ch_fee.fields[k].FieldName)<>nil then
if (t_ch_fee.fields[k].FieldName<>'CH_ID')
AND(t_ch_fee.fields[k].FieldName<>'<27><><EFBFBD><EFBFBD>')
AND(t_ch_fee.fields[k].FieldName<>'<27><><EFBFBD><EFBFBD>״̬')
AND(t_ch_fee.fields[k].FieldName<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
and (t_ch_fee.fields[k].DataType<>ftDateTime)then
t_do_fee.DataSet[t_ch_fee.fields[k].FieldName]:=t_ch_fee[t_ch_fee.fields[k].FieldName];
end;
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD>ԭ<EFBFBD><D4AD>']:=null;
t_do_fee.DataSet['<27><>׼']:=t_ch_fee.FieldByName('<27><>׼').AsString;
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD>']:=fee_get_num(t_do_fee.DataSet['<27><>׼']);
if bsSkinRadioGroup1.ItemIndex=1 then begin
str:=fee_get_client(t_ch_fee.fieldbyname('<27><><EFBFBD>㵥λ').asstring);
if str<>'' then
t_do_fee.DataSet['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=str;
end else begin
end;
if Trim(t_do_fee.DataSet.FieldByName('<27>ұ<EFBFBD>').AsString)<>'RMB' then
begin
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD>']:=GetCurrencyRate(Trim(t_do_fee.DataSet.FieldByName('<27>ұ<EFBFBD>').AsString),op_type.text,t_ch_fee.DataSource.DataSet);
end;
t_do_fee.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=nil;
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD>']:=s_w(strtoint(apointnum),t_do_fee.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*t_do_fee.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
t_do_fee.DataSet['˰<><CBB0>']:=s_w(strtoint(apointnum),t_do_fee.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>').asfloat*t_do_fee.DataSet.fieldbyname('˰<><CBB0>').asfloat/100*t_do_fee.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>']:=s_w(strtoint(apointnum),t_do_fee.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat-t_do_fee.DataSet.fieldbyname('˰<><CBB0>').asfloat);
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>']:=s_w(strtoint(apointnum),t_do_fee.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat/(1+t_do_fee.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>').asfloat/100)*t_do_fee.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>').asfloat/100);
t_do_fee.DataSet['<27><><EFBFBD>񲻺<EFBFBD>˰<EFBFBD><CBB0>']:=s_w(strtoint(apointnum),t_do_fee.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat-t_do_fee.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>').asfloat);
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
t_do_fee.DataSet['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=0;
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
t_do_fee.DataSet['<27><><EFBFBD>뿪Ʊ']:=0;
t_do_fee.DataSet['<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>']:=null;
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
t_do_fee.DataSet['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
t_do_fee.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
t_do_fee.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
t_do_fee.DataSet['<27><><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD>']:='';
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
t_do_fee.DataSet['Ԥ<><D4A4><EFBFBD>ɱ<EFBFBD>']:=0;
t_do_fee.DataSet['<27><><EFBFBD>ֳɱ<D6B3>']:=0;
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ']:=0;
t_do_fee.DataSet.post;
end;
finally
{
t_do_fee.DataSet.FieldByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').OnChange:=fra_fee.t_ch_acceptcrmcharge;
t_do_fee.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>').OnChange:=DatasetNOPricecharge;
t_do_fee.DataSet.FieldByName('˰<><CBB0>').OnChange:=DatasetNOPricecharge;
t_do_fee.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=DatasetAmtcharge;
t_do_fee.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>').OnChange:=DatasetAmtcharge;
t_do_fee.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=t_ch_acceptdjoncharge;
t_do_fee.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=t_ch_acceptdjoncharge;
t_do_fee.DataSet.FieldByName('Ӷ<><D3B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OnChange:=t_ch_acceptdjoncharge;
}
close;
end;
end;
procedure Tfrm_fee_history.bsSkinButton1Click(Sender: TObject);
var
k:integer;
str:String;
begin
if t_ch_fee.IsEmpty then
exit;
t_ch_fee.first;
while not t_ch_fee.eof do
begin
t_do_fee.DataSet.append;
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD>']:=fee_type.text;
for k:= 0 to (t_ch_fee.fieldcount-1) do
begin
if t_do_fee.DataSet.Fields.FindField(t_ch_fee.fields[k].FieldName)<>nil then
if (t_ch_fee.fields[k].FieldName<>'CH_ID')AND(t_ch_fee.fields[k].FieldName<>'<27><><EFBFBD><EFBFBD>')
AND(t_ch_fee.fields[k].FieldName<>'<27><><EFBFBD><EFBFBD>״̬')
AND(t_ch_fee.fields[k].FieldName<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
and (t_ch_fee.fields[k].DataType<>ftDateTime)
and (t_ch_fee.fields[k].DataType<>ftDate)
then
try
t_do_fee.DataSet[t_ch_fee.fields[k].FieldName]:=t_ch_fee[t_ch_fee.fields[k].FieldName];
except
on e :exception do
begin
showmessage(e.message);
end;
end
end;
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD>']:=fee_type.text;
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD>ԭ<EFBFBD><D4AD>']:=null;
t_do_fee.DataSet['<27><>׼']:=t_ch_fee.FieldByName('<27><>׼').AsString;
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD>']:=fee_get_num(t_do_fee.DataSet['<27><>׼']);
if bsSkinRadioGroup1.ItemIndex=1 then begin
str:=fee_get_client(t_ch_fee.fieldbyname('<27><><EFBFBD>㵥λ').asstring);
if str<>'' then
t_do_fee.DataSet['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=str;
end else begin
end;
if Trim(t_do_fee.DataSet.FieldByName('<27>ұ<EFBFBD>').AsString)<>'RMB' then
begin
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD>']:=GetCurrencyRate(Trim(t_do_fee.DataSet.FieldByName('<27>ұ<EFBFBD>').AsString),op_type.text,t_do_fee.DataSet.DataSource.DataSet);
end;
// t_do_fee.DataSet['<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>']:=t_do_fee.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat/(1+t_do_fee.DataSet.fieldbyname('˰<><CBB0>').asfloat/100);
t_do_fee.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=nil;
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD>']:=s_w(strtoint(apointnum),t_do_fee.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*t_do_fee.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
t_do_fee.DataSet['˰<><CBB0>']:=s_w(strtoint(apointnum),t_do_fee.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>').asfloat*t_do_fee.DataSet.fieldbyname('˰<><CBB0>').asfloat/100*t_do_fee.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>']:=s_w(strtoint(apointnum),t_do_fee.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat-t_do_fee.DataSet.fieldbyname('˰<><CBB0>').asfloat);
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>']:=s_w(strtoint(apointnum),t_do_fee.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat/(1+t_do_fee.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>').asfloat/100)*t_do_fee.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>').asfloat/100);
t_do_fee.DataSet['<27><><EFBFBD>񲻺<EFBFBD>˰<EFBFBD><CBB0>']:=s_w(strtoint(apointnum),t_do_fee.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat-t_do_fee.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>').asfloat);
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
t_do_fee.DataSet['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=0;
t_do_fee.DataSet['<27><><EFBFBD>뿪Ʊ']:=0;
t_do_fee.DataSet['<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>']:=0;
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
t_do_fee.DataSet['<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>']:=null;
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
t_do_fee.DataSet['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
t_do_fee.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
t_do_fee.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
t_do_fee.DataSet['<27><><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD>']:='';
t_do_fee.DataSet['˳<><CBB3>']:=t_do_fee.DataSet.RecordCount+1;
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
t_do_fee.DataSet['Ԥ<><D4A4><EFBFBD>ɱ<EFBFBD>']:=0;
t_do_fee.DataSet['<27><><EFBFBD>ֳɱ<D6B3>']:=0;
t_do_fee.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ']:=0;
t_do_fee.DataSet.post;
t_ch_fee.next;
end;
close;
end;
procedure Tfrm_fee_history.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
key:=#0;
bsSkinButton2Click(Sender);
end;
end;
procedure Tfrm_fee_history.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
key:=#0;
bsSkinButton2Click(Sender);
end;
end;
procedure Tfrm_fee_history.RxDBLookupCombo2KeyPress(Sender: TObject;
var Key: Char);
begin
if key=#13 then
begin
key:=#0;
bsSkinButton2Click(Sender);
end;
end;
procedure Tfrm_fee_history.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
key:=#0;
bsSkinButton2Click(Sender);
end;
end;
procedure Tfrm_fee_history.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
key:=#0;
bsSkinButton2Click(Sender);
end;
end;
procedure Tfrm_fee_history.wwDBDateTimePicker1KeyPress(Sender: TObject;
var Key: Char);
begin
if key=#13 then
begin
key:=#0;
bsSkinButton2Click(Sender);
end;
end;
end.
Reference in New Issue View Git Blame Copy Permalink