|
|
unit u_ch_balance_accept_check;
|
|
|
|
|
|
interface
|
|
|
|
|
|
uses
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
Dialogs, dxExEdtr, XPMenu, Menus, ComCtrls, bsSkinTabs, StdCtrls,
|
|
|
DBCtrls, wwdbedit, Wwdotdot, Wwdbcomb, RxLookup, Mask, dxDBTLCl,
|
|
|
dxGrClms, dxDBGrid, dxTL, dxDBCtrl, dxCntner, bsSkinCtrls, DB, ADODB,
|
|
|
ExtCtrls, sncCurrency, sncDBCurrency, ToolEdit, CurrEdit, RXDBCtrl,
|
|
|
DBCtrlsEh, bsdbctrls, AAFont, AACtrls;
|
|
|
|
|
|
type
|
|
|
Tfrm_ch_balance_accept_check = class(TForm)
|
|
|
t_ch_balance: TADOQuery;
|
|
|
t_ch_balance1: TDataSource;
|
|
|
bsSkinPanel2: TbsSkinPanel;
|
|
|
bsSkinButton5: TbsSkinButton;
|
|
|
bsSkinButton8: TbsSkinButton;
|
|
|
bsSkinButton9: TbsSkinButton;
|
|
|
bsSkinButton10: TbsSkinButton;
|
|
|
bsSkinButton11: TbsSkinButton;
|
|
|
bsSkinButton6: TbsSkinButton;
|
|
|
bsSkinNotebook1: TbsSkinNotebook;
|
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
|
Label25: TLabel;
|
|
|
Label17: TLabel;
|
|
|
Label12: TLabel;
|
|
|
Label1: TLabel;
|
|
|
Label2: TLabel;
|
|
|
Label3: TLabel;
|
|
|
Label4: TLabel;
|
|
|
Label5: TLabel;
|
|
|
Label6: TLabel;
|
|
|
Label7: TLabel;
|
|
|
Label8: TLabel;
|
|
|
Label9: TLabel;
|
|
|
Label10: TLabel;
|
|
|
Label14: TLabel;
|
|
|
Label11: TLabel;
|
|
|
DBEdit14: TDBEdit;
|
|
|
DBEdit1: TDBEdit;
|
|
|
RxDBLookupCombo1: TRxDBLookupCombo;
|
|
|
wwDBComboBox1: TwwDBComboBox;
|
|
|
RxDBLookupCombo2: TRxDBLookupCombo;
|
|
|
DBEdit4: TDBEdit;
|
|
|
DBEdit5: TDBEdit;
|
|
|
DBEdit6: TDBEdit;
|
|
|
RxDBLookupCombo3: TRxDBLookupCombo;
|
|
|
DBEdit8: TDBEdit;
|
|
|
DBEdit9: TDBEdit;
|
|
|
DBEdit10: TDBEdit;
|
|
|
DBMemo1: TDBMemo;
|
|
|
RxDBLookupCombo4: TRxDBLookupCombo;
|
|
|
DBEdit2: TDBEdit;
|
|
|
PopupMenu3: TPopupMenu;
|
|
|
N17: TMenuItem;
|
|
|
N18: TMenuItem;
|
|
|
N34: TMenuItem;
|
|
|
N35: TMenuItem;
|
|
|
N2: TMenuItem;
|
|
|
N1: TMenuItem;
|
|
|
N36: TMenuItem;
|
|
|
XPMenu1: TXPMenu;
|
|
|
bsSkinButton7: TbsSkinButton;
|
|
|
bsSkinButton2: TbsSkinButton;
|
|
|
Panel1: TPanel;
|
|
|
Label13: TLabel;
|
|
|
DBEdit3: TDBEdit;
|
|
|
v_fee_do_seae: TADOQuery;
|
|
|
v_fee_do_seae1: TDataSource;
|
|
|
v_fee_do_seai: TADOQuery;
|
|
|
v_fee_do_seai1: TDataSource;
|
|
|
v_fee_do_aire: TADOQuery;
|
|
|
v_fee_do_aire1: TDataSource;
|
|
|
v_fee_do_airi: TADOQuery;
|
|
|
v_fee_do_airi1: TDataSource;
|
|
|
v_fee_do_seae_sum: TADOQuery;
|
|
|
v_fee_do_seae_sum1: TDataSource;
|
|
|
v_fee_do_seai_sum: TADOQuery;
|
|
|
v_fee_do_seai_sum1: TDataSource;
|
|
|
v_fee_do_aire_sum: TADOQuery;
|
|
|
v_fee_do_aire_sum1: TDataSource;
|
|
|
v_fee_do_airi_sum: TADOQuery;
|
|
|
v_fee_do_airi_sum1: TDataSource;
|
|
|
bsSkinPageControl2: TbsSkinPageControl;
|
|
|
bsSkinTabSheet3: TbsSkinTabSheet;
|
|
|
dxDBGrid2: TdxDBGrid;
|
|
|
dxDBGrid2Column22: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn1: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn2: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn3: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn4: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn5: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn1: TdxDBGridColumn;
|
|
|
dxDBGridColumn2: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn6: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column23: TdxDBGridColumn;
|
|
|
dxDBGridDateColumn1: TdxDBGridDateColumn;
|
|
|
dxDBGridDateColumn2: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn7: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn8: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn9: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn10: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn11: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn3: TdxDBGridColumn;
|
|
|
dxDBGridColumn4: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn12: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn13: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn14: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn15: TdxDBGridMaskColumn;
|
|
|
bsSkinTabSheet4: TbsSkinTabSheet;
|
|
|
dxDBGrid3: TdxDBGrid;
|
|
|
dxDBGrid3Column22: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn16: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn17: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn18: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn19: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn20: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn5: TdxDBGridColumn;
|
|
|
dxDBGridColumn6: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn21: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column23: TdxDBGridColumn;
|
|
|
dxDBGridDateColumn3: TdxDBGridDateColumn;
|
|
|
dxDBGridDateColumn4: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn22: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn23: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn24: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn25: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn26: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn7: TdxDBGridColumn;
|
|
|
dxDBGridColumn8: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn27: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn28: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn29: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn30: TdxDBGridMaskColumn;
|
|
|
dxDBGrid16: TdxDBGrid;
|
|
|
dxDBGridColumn40: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn117: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn50: TdxDBGridColumn;
|
|
|
dxDBGridColumn51: TdxDBGridColumn;
|
|
|
dxDBGridColumn52: TdxDBGridColumn;
|
|
|
dxDBGridColumn53: TdxDBGridColumn;
|
|
|
bsSkinTabSheet5: TbsSkinTabSheet;
|
|
|
dxDBGrid4: TdxDBGrid;
|
|
|
dxDBGrid4Column19: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn31: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn32: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn33: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn34: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn35: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn9: TdxDBGridColumn;
|
|
|
dxDBGridColumn10: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn36: TdxDBGridMaskColumn;
|
|
|
dxDBGrid4Column20: TdxDBGridColumn;
|
|
|
dxDBGridDateColumn5: TdxDBGridDateColumn;
|
|
|
dxDBGridDateColumn6: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn37: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn38: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn39: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn11: TdxDBGridColumn;
|
|
|
dxDBGridColumn12: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn40: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn41: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn42: TdxDBGridMaskColumn;
|
|
|
dxDBGrid17: TdxDBGrid;
|
|
|
dxDBGridColumn41: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn118: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn54: TdxDBGridColumn;
|
|
|
dxDBGridColumn55: TdxDBGridColumn;
|
|
|
dxDBGridColumn56: TdxDBGridColumn;
|
|
|
dxDBGridColumn57: TdxDBGridColumn;
|
|
|
bsSkinTabSheet6: TbsSkinTabSheet;
|
|
|
dxDBGrid5: TdxDBGrid;
|
|
|
dxDBGrid5Column19: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn43: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn44: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn45: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn46: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn47: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn13: TdxDBGridColumn;
|
|
|
dxDBGridColumn14: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn48: TdxDBGridMaskColumn;
|
|
|
dxDBGrid5Column20: TdxDBGridColumn;
|
|
|
dxDBGridDateColumn7: TdxDBGridDateColumn;
|
|
|
dxDBGridDateColumn8: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn49: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn50: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn51: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn15: TdxDBGridColumn;
|
|
|
dxDBGridColumn16: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn52: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn53: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn54: TdxDBGridMaskColumn;
|
|
|
dxDBGrid18: TdxDBGrid;
|
|
|
dxDBGridColumn42: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn119: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn58: TdxDBGridColumn;
|
|
|
dxDBGridColumn59: TdxDBGridColumn;
|
|
|
dxDBGridColumn60: TdxDBGridColumn;
|
|
|
dxDBGridColumn61: TdxDBGridColumn;
|
|
|
bsSkinButton1: TbsSkinButton;
|
|
|
bsSkinPageControl1: TbsSkinPageControl;
|
|
|
bsSkinTabSheet1: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet2: TbsSkinTabSheet;
|
|
|
dxDBGrid1: TdxDBGrid;
|
|
|
dxDBGrid1Column1: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column2: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column5: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column3: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column4: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column6: TdxDBGridColumn;
|
|
|
dxDBGrid1Column7: TdxDBGridColumn;
|
|
|
dxDBGrid1Column8: TdxDBGridColumn;
|
|
|
dxDBGrid1Column9: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column10: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column15: TdxDBGridColumn;
|
|
|
dxDBGrid1Column16: TdxDBGridColumn;
|
|
|
dxDBGrid1Column11: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column12: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column13: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column14: TdxDBGridDateColumn;
|
|
|
bsSkinButton13: TbsSkinButton;
|
|
|
t_ch_invoice: TADOQuery;
|
|
|
t_ch_invoiceDSDesigner: TStringField;
|
|
|
t_ch_invoiceDSDesigner13: TStringField;
|
|
|
t_ch_invoiceDSDesigner14: TStringField;
|
|
|
t_ch_invoiceDSDesigner2: TDateTimeField;
|
|
|
t_ch_invoiceDSDesigner3: TStringField;
|
|
|
t_ch_invoiceDSDesigner4: TStringField;
|
|
|
t_ch_invoiceDSDesigner5: TStringField;
|
|
|
t_ch_invoiceDSDesigner6: TStringField;
|
|
|
t_ch_invoiceDSDesigner7: TStringField;
|
|
|
t_ch_invoiceDSDesigner8: TStringField;
|
|
|
t_ch_invoiceDSDesigner9: TStringField;
|
|
|
t_ch_invoiceDSDesigner10: TBCDField;
|
|
|
t_ch_invoiceDSDesigner11: TStringField;
|
|
|
t_ch_invoiceDSDesigner12: TStringField;
|
|
|
t_ch_invoiceDSDesigner15: TStringField;
|
|
|
t_ch_invoiceDSDesigner16: TBooleanField;
|
|
|
t_ch_invoiceDSDesigner17: TStringField;
|
|
|
t_ch_invoiceDSDesigner18: TDateTimeField;
|
|
|
t_ch_invoiceDSDesigner19: TStringField;
|
|
|
t_ch_invoiceDSDesigner20: TBooleanField;
|
|
|
t_ch_invoiceDSDesigner21: TStringField;
|
|
|
t_ch_invoiceDSDesigner22: TBooleanField;
|
|
|
t_ch_invoiceDSDesigner23: TStringField;
|
|
|
t_ch_invoiceDSDesigner24: TDateTimeField;
|
|
|
t_ch_invoiceDSDesigner25: TStringField;
|
|
|
t_ch_invoiceDSDesigner26: TDateTimeField;
|
|
|
t_ch_invoiceDSDesigner27: TStringField;
|
|
|
t_ch_invoiceDSDesigner28: TStringField;
|
|
|
t_ch_invoiceDSDesigner29: TStringField;
|
|
|
t_ch_invoiceDSDesigner30: TStringField;
|
|
|
t_ch_invoiceDSDesigner31: TStringField;
|
|
|
t_ch_invoiceDSDesigner32: TStringField;
|
|
|
t_ch_invoiceDSDesigner33: TStringField;
|
|
|
t_ch_invoiceDSDesigner34: TStringField;
|
|
|
t_ch_invoiceDSDesigner35: TStringField;
|
|
|
t_ch_invoiceDSDesigner36: TStringField;
|
|
|
t_ch_invoiceDSDesigner37: TStringField;
|
|
|
t_ch_invoiceDSDesigner38: TStringField;
|
|
|
t_ch_invoiceDSDesigner39: TStringField;
|
|
|
t_ch_invoiceDSDesigner40: TStringField;
|
|
|
t_ch_invoiceDSDesigner41: TStringField;
|
|
|
t_ch_invoiceDSDesigner42: TStringField;
|
|
|
t_ch_invoiceDSDesigner43: TStringField;
|
|
|
t_ch_invoiceJZ_ID: TAutoIncField;
|
|
|
t_ch_invoiceDSDesigner44: TStringField;
|
|
|
t_ch_invoiceDSDesigner45: TStringField;
|
|
|
t_ch_invoiceDSDesigner46: TStringField;
|
|
|
t_ch_invoice1: TDataSource;
|
|
|
bsSkinPageControl4: TbsSkinPageControl;
|
|
|
bsSkinTabSheet11: TbsSkinTabSheet;
|
|
|
bsSkinPanel9: TbsSkinPanel;
|
|
|
bsSkinButton3: TbsSkinButton;
|
|
|
bsSkinButton14: TbsSkinButton;
|
|
|
bsSkinButton15: TbsSkinButton;
|
|
|
bsSkinButton17: TbsSkinButton;
|
|
|
bsSkinButton18: TbsSkinButton;
|
|
|
bsSkinButton19: TbsSkinButton;
|
|
|
bsSkinButton20: TbsSkinButton;
|
|
|
bsSkinButton22: TbsSkinButton;
|
|
|
dxDBGrid19: TdxDBGrid;
|
|
|
dxDBGridMaskColumn120: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn122: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn123: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn62: TdxDBGridColumn;
|
|
|
dxDBGridDateColumn17: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn124: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column25: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column26: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column27: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column28: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column32: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column29: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column30: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column35: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column36: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column31: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column33: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column34: TdxDBGridDateColumn;
|
|
|
bsSkinTabSheet12: TbsSkinTabSheet;
|
|
|
bsSkinPanel10: TbsSkinPanel;
|
|
|
bsSkinButton23: TbsSkinButton;
|
|
|
bsSkinButton26: TbsSkinButton;
|
|
|
bsSkinButton27: TbsSkinButton;
|
|
|
bsSkinButton28: TbsSkinButton;
|
|
|
bsSkinButton29: TbsSkinButton;
|
|
|
bsSkinButton30: TbsSkinButton;
|
|
|
bsSkinButton32: TbsSkinButton;
|
|
|
bsSkinButton34: TbsSkinButton;
|
|
|
bsSkinButton35: TbsSkinButton;
|
|
|
ScrollBox1: TScrollBox;
|
|
|
lbl1: TLabel;
|
|
|
lbl2: TLabel;
|
|
|
lbl3: TLabel;
|
|
|
lbl4: TLabel;
|
|
|
shp1: TShape;
|
|
|
AALabel2: TAALabel;
|
|
|
lbl5: TLabel;
|
|
|
lbl6: TLabel;
|
|
|
lbl7: TLabel;
|
|
|
lbl8: TLabel;
|
|
|
lbl9: TLabel;
|
|
|
lbl10: TLabel;
|
|
|
lbl11: TLabel;
|
|
|
lbl12: TLabel;
|
|
|
shp2: TShape;
|
|
|
lbl13: TLabel;
|
|
|
sncCurrencyLabel2: TsncCurrencyLabel;
|
|
|
lbl14: TLabel;
|
|
|
lbl15: TLabel;
|
|
|
dbtxt1: TDBText;
|
|
|
dbtxt2: TDBText;
|
|
|
dbtxt3: TDBText;
|
|
|
dbtxt4: TDBText;
|
|
|
lbl16: TLabel;
|
|
|
lbl17: TLabel;
|
|
|
lbl18: TLabel;
|
|
|
lbl19: TLabel;
|
|
|
lbl20: TLabel;
|
|
|
lbl21: TLabel;
|
|
|
RxDBLookupCombo11: TRxDBLookupCombo;
|
|
|
bsSkinPanel13: TbsSkinPanel;
|
|
|
lbl22: TLabel;
|
|
|
lbl23: TLabel;
|
|
|
dbedt1: TDBEdit;
|
|
|
dbedt2: TDBEdit;
|
|
|
bsSkinDBCheckRadioBox4: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinDBCheckRadioBox5: TbsSkinDBCheckRadioBox;
|
|
|
DBDateTimeEditEh1: TDBDateTimeEditEh;
|
|
|
RxDBCalcEdit1: TRxDBCalcEdit;
|
|
|
sncDBCurrencyEdit1: TsncDBCurrencyEdit;
|
|
|
dbedt3: TDBEdit;
|
|
|
RxDBLookupCombo12: TRxDBLookupCombo;
|
|
|
dbcbb1: TDBComboBox;
|
|
|
dbcbb2: TDBComboBox;
|
|
|
dbedt4: TDBEdit;
|
|
|
dbedt5: TDBEdit;
|
|
|
dbedt6: TDBEdit;
|
|
|
dbedt7: TDBEdit;
|
|
|
bsSkinButton33: TbsSkinButton;
|
|
|
PopupMenu1: TPopupMenu;
|
|
|
MenuItem1: TMenuItem;
|
|
|
MenuItem2: TMenuItem;
|
|
|
N3: TMenuItem;
|
|
|
N4: TMenuItem;
|
|
|
N20: TMenuItem;
|
|
|
bsSkinButton38: TbsSkinButton;
|
|
|
dxDBGrid2Column24: TdxDBGridColumn;
|
|
|
v_fee_do_seae_sum_atd: TADOQuery;
|
|
|
v_fee_do_seae_sum_atd1: TDataSource;
|
|
|
Panel2: TPanel;
|
|
|
dxDBGrid15: TdxDBGrid;
|
|
|
dxDBGridColumn39: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn116: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn46: TdxDBGridColumn;
|
|
|
dxDBGridColumn47: TdxDBGridColumn;
|
|
|
dxDBGridColumn48: TdxDBGridColumn;
|
|
|
dxDBGridColumn49: TdxDBGridColumn;
|
|
|
dxDBGrid6: TdxDBGrid;
|
|
|
dxDBGridColumn17: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn55: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn18: TdxDBGridColumn;
|
|
|
dxDBGridColumn19: TdxDBGridColumn;
|
|
|
dxDBGridColumn20: TdxDBGridColumn;
|
|
|
dxDBGridColumn21: TdxDBGridColumn;
|
|
|
dxDBGrid2Column25: TdxDBGridColumn;
|
|
|
DBEdit7: TDBEdit;
|
|
|
DBEdit11: TDBEdit;
|
|
|
Label15: TLabel;
|
|
|
Label16: TLabel;
|
|
|
dxDBGrid1Column17: TdxDBGridColumn;
|
|
|
dxDBGrid1Column18: TdxDBGridColumn;
|
|
|
dxDBGrid1Column19: TdxDBGridColumn;
|
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
|
procedure bsSkinPanel2Resize(Sender: TObject);
|
|
|
procedure FormShow(Sender: TObject);
|
|
|
procedure bsSkinButton11Click(Sender: TObject);
|
|
|
procedure dxDBGrid1Column2CustomDraw(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 bsSkinButton9Click(Sender: TObject);
|
|
|
procedure bsSkinButton6Click(Sender: TObject);
|
|
|
procedure bsSkinButton8Click(Sender: TObject);
|
|
|
procedure bsSkinButton10Click(Sender: TObject);
|
|
|
procedure bsSkinButton13Click(Sender: TObject);
|
|
|
procedure N17Click(Sender: TObject);
|
|
|
procedure N34Click(Sender: TObject);
|
|
|
procedure N2Click(Sender: TObject);
|
|
|
procedure N36Click(Sender: TObject);
|
|
|
procedure t_ch_balanceBeforeEdit(DataSet: TDataSet);
|
|
|
procedure dxDBGrid2DblClick(Sender: TObject);
|
|
|
procedure dxDBGrid3DblClick(Sender: TObject);
|
|
|
procedure dxDBGrid4DblClick(Sender: TObject);
|
|
|
procedure dxDBGrid5DblClick(Sender: TObject);
|
|
|
procedure bsSkinButton7Click(Sender: TObject);
|
|
|
procedure bsSkinButton2Click(Sender: TObject);
|
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
|
procedure bsSkinButton33Click(Sender: TObject);
|
|
|
procedure bsSkinButton14Click(Sender: TObject);
|
|
|
procedure bsSkinButton18Click(Sender: TObject);
|
|
|
procedure bsSkinButton19Click(Sender: TObject);
|
|
|
procedure bsSkinButton22Click(Sender: TObject);
|
|
|
procedure bsSkinButton20Click(Sender: TObject);
|
|
|
procedure bsSkinButton17Click(Sender: TObject);
|
|
|
procedure bsSkinButton30Click(Sender: TObject);
|
|
|
procedure bsSkinButton34Click(Sender: TObject);
|
|
|
procedure bsSkinButton35Click(Sender: TObject);
|
|
|
procedure t_ch_invoiceBeforePost(DataSet: TDataSet);
|
|
|
procedure bsSkinButton32Click(Sender: TObject);
|
|
|
procedure bsSkinButton23Click(Sender: TObject);
|
|
|
procedure bsSkinButton26Click(Sender: TObject);
|
|
|
procedure t_ch_invoiceDSDesigner12Change(Sender: TField);
|
|
|
procedure t_ch_invoiceDSDesigner2Change(Sender: TField);
|
|
|
procedure t_ch_invoiceDSDesigner8Change(Sender: TField);
|
|
|
procedure MenuItem1Click(Sender: TObject);
|
|
|
procedure N20Click(Sender: TObject);
|
|
|
procedure bsSkinButton38Click(Sender: TObject);
|
|
|
procedure bsSkinPageControl1Change(Sender: TObject);
|
|
|
procedure bsSkinNotebook1PageChanged(Sender: TObject);
|
|
|
procedure bsSkinPageControl2Change(Sender: TObject);
|
|
|
private
|
|
|
{ Private declarations }
|
|
|
public
|
|
|
{ Public declarations }
|
|
|
end;
|
|
|
|
|
|
var
|
|
|
frm_ch_balance_accept_check: Tfrm_ch_balance_accept_check;
|
|
|
ch_balance_accept_check:boolean;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
uses u_main, u_data_share, u_ch_balance_query, my_sys_function, my_sys_chat;
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.bsSkinButton5Click(Sender: TObject);
|
|
|
begin
|
|
|
close;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.FormClose(Sender: TObject;
|
|
|
var Action: TCloseAction);
|
|
|
begin
|
|
|
ch_balance_accept_check:=false;
|
|
|
frm_ch_balance_accept_check.Hide;
|
|
|
frm_ch_balance_accept_check.ManualFloat(frm_ch_balance_accept_check.BoundsRect );
|
|
|
frm_main.freeTabs('frm_ch_balance_accept_check');
|
|
|
ch_balance_accept_check:=false;
|
|
|
action:=cafree;
|
|
|
frm_ch_balance_accept_check:=nil;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.bsSkinPanel2Resize(Sender: TObject);
|
|
|
var
|
|
|
i:integer;
|
|
|
begin
|
|
|
i:=round(bsSkinPanel2.Width/11);
|
|
|
bsSkinButton10.Width:=i;
|
|
|
bsSkinButton1.Width:=i;
|
|
|
bsSkinButton9.Width:=i;
|
|
|
bsSkinButton2.Width:=i;
|
|
|
bsSkinButton7.Width:=i;
|
|
|
bsSkinButton11.Width:=i;
|
|
|
bsSkinButton33.Width:=i;
|
|
|
bsSkinButton6.Width:=i;
|
|
|
bsSkinButton8.Width:=i;
|
|
|
bsSkinButton38.Width:=i;
|
|
|
bsSkinButton13.Left:=bsSkinPanel2.Width-bsSkinButton13.Width-20;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.FormShow(Sender: TObject);
|
|
|
begin
|
|
|
|
|
|
|
|
|
t_ch_balance.Close;
|
|
|
t_ch_balance.SQL.clear;
|
|
|
t_ch_balance.SQL.Add('select *,(select top 1 <20>ͻ<EFBFBD>ȫ<EFBFBD><C8AB> from t_crm_client where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>=t_ch_balance.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>) <20>ͻ<EFBFBD>ȫ<EFBFBD><C8AB>'
|
|
|
+',(select top 1 <20><><EFBFBD>̱<EFBFBD><CCB1><EFBFBD> from t_crm_client where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>=t_ch_balance.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>) <20><><EFBFBD>̱<EFBFBD><CCB1><EFBFBD> from t_ch_balance where <20>ʵ<EFBFBD>״̬<>'+''''+'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'+''''
|
|
|
+' and <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''
|
|
|
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD><EFBFBD>'+''''
|
|
|
+' order by <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> desc');
|
|
|
t_ch_balance.open;
|
|
|
|
|
|
t_ch_invoice.close;
|
|
|
t_ch_invoice.sql.clear;
|
|
|
t_ch_invoice.sql.add('select top 50 * from t_ch_jinzhang order by <20><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> desc');
|
|
|
|
|
|
|
|
|
ch_balance_accept_check:=true;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.bsSkinButton11Click(
|
|
|
Sender: TObject);
|
|
|
var
|
|
|
answer:TModalResult;
|
|
|
begin
|
|
|
if bsSkinButton11.Caption='<27>༭<EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
if t_ch_balance.IsEmpty then
|
|
|
exit;
|
|
|
bsSkinNotebook1.PageIndex:=1;
|
|
|
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if (t_ch_balance.State=dsinsert)or(t_ch_balance.State=dsedit) then
|
|
|
BEGIN
|
|
|
answer:=messagedlg( '<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE>ģ<DEB8><C4A3>Ƿ棿',mtWarning,mbYesNoCancel,0);
|
|
|
if answer=mrYes then
|
|
|
begin
|
|
|
t_ch_balance.post;
|
|
|
end;
|
|
|
if answer=mrNo then
|
|
|
begin
|
|
|
t_ch_balance.cancel;
|
|
|
end;
|
|
|
if answer=mrCancel then
|
|
|
begin
|
|
|
exit;
|
|
|
end;
|
|
|
END;
|
|
|
bsSkinNotebook1.PageIndex:=0;
|
|
|
bsSkinButton11.Caption:='<27>༭<EFBFBD><EFBFBD>';
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.dxDBGrid1Column2CustomDraw(
|
|
|
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 (ANode.strings[dxDBGrid1Column2.Index]='¼<><C2BC>״̬') then
|
|
|
AColor :=clwhite
|
|
|
else if (ANode.strings[dxDBGrid1Column2.Index]='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>') then
|
|
|
AColor :=$0080FFFF
|
|
|
else if (ANode.strings[dxDBGrid1Column2.Index]='ȷ<>Ϻ<EFBFBD><CFBA><EFBFBD>') then
|
|
|
AColor :=$0080FF80
|
|
|
else if (ANode.strings[dxDBGrid1Column2.Index]='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>') then
|
|
|
AColor :=$0000FF80
|
|
|
else if (ANode.strings[dxDBGrid1Column2.Index]='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') then
|
|
|
AColor :=clLime;
|
|
|
AFont.Color:=clblack;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.bsSkinButton9Click(Sender: TObject);
|
|
|
begin
|
|
|
if not v_fee_do_seae.Active then v_fee_do_seae.open;
|
|
|
if not v_fee_do_seai.Active then v_fee_do_seai.open;
|
|
|
if not v_fee_do_aire.Active then v_fee_do_aire.open;
|
|
|
if not v_fee_do_airi.Active then v_fee_do_airi.open;
|
|
|
if not v_fee_do_seae_sum.Active then v_fee_do_seae_sum.open;
|
|
|
if not v_fee_do_seai_sum.Active then v_fee_do_seai_sum.open;
|
|
|
if not v_fee_do_aire_sum.Active then v_fee_do_aire_sum.open;
|
|
|
if not v_fee_do_airi_sum.Active then v_fee_do_airi_sum.open;
|
|
|
if not v_fee_do_seae_sum_atd.Active then v_fee_do_seae_sum_atd.open;
|
|
|
|
|
|
sys_print('Ӧ<>շ<EFBFBD><D5B7>ý<EFBFBD><C3BD><EFBFBD>',2,t_ch_balance1,v_fee_do_seae_sum_atd1,
|
|
|
v_fee_do_airi_sum1,nil,v_fee_do_seae1,v_fee_do_seai1,v_fee_do_aire1,v_fee_do_airi1,
|
|
|
t_ch_balance1,v_fee_do_seae_sum1,v_fee_do_seai_sum1);
|
|
|
bsSkinNotebook1PageChanged(nil);
|
|
|
bsSkinPageControl2Change(nil);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.bsSkinButton6Click(Sender: TObject);
|
|
|
var aAdoQueryUpdateFee,aAdoQueryUpdateFeeStatus:TADOQuery;
|
|
|
begin
|
|
|
if t_ch_balance.IsEmpty then
|
|
|
exit;
|
|
|
|
|
|
if t_ch_balance.FieldByName('<27>ʵ<EFBFBD>״̬').asstring<>'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'then
|
|
|
begin
|
|
|
showmessage('<27>ʵ<EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if t_ch_balance.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat<0 then
|
|
|
begin
|
|
|
if not if_open('210') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
try
|
|
|
|
|
|
t_ch_balance.edit;
|
|
|
t_ch_balance['<27>ʵ<EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
|
|
|
t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
|
|
|
t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
|
|
|
t_ch_balance.post;
|
|
|
{
|
|
|
Send_invocie_check_check('<27>շѺ<D5B7><D1BA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>:'+t_ch_balance.fieldbyname('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').asstring
|
|
|
+',<2C>ͻ<EFBFBD>:'+t_ch_balance.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring,t_ch_balance.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,'33');
|
|
|
Send_invocie_check_check('<27>շѺ<D5B7><D1BA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>:'+t_ch_balance.fieldbyname('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').asstring
|
|
|
+',<2C>ͻ<EFBFBD>:'+t_ch_balance.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring,t_ch_balance.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,'33');
|
|
|
}
|
|
|
except
|
|
|
t_ch_balance.cancel;
|
|
|
showmessage('<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD>');
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.bsSkinButton8Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_ch_balance.IsEmpty then
|
|
|
exit;
|
|
|
|
|
|
if t_ch_balance.FieldByName('<27>ʵ<EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'then
|
|
|
begin
|
|
|
showmessage('<27>ʵ<EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD>');
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if t_ch_balance.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat<0 then
|
|
|
begin
|
|
|
if not if_open('210') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
try
|
|
|
modify_all:=true;
|
|
|
|
|
|
t_ch_balance.edit;
|
|
|
t_ch_balance['<27>ʵ<EFBFBD>״̬']:='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>';
|
|
|
t_ch_balance.post;
|
|
|
modify_all:=false;
|
|
|
except
|
|
|
t_ch_balance.cancel;
|
|
|
modify_all:=false;
|
|
|
showmessage('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD>');
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.bsSkinButton10Click(
|
|
|
Sender: TObject);
|
|
|
begin
|
|
|
try
|
|
|
frm_ch_balance_query:=tfrm_ch_balance_query.Create (self);
|
|
|
balance_query_type:=5;
|
|
|
frm_ch_balance_query.ShowModal;
|
|
|
finally
|
|
|
frm_ch_balance_query.Free;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.bsSkinButton13Click(
|
|
|
Sender: TObject);
|
|
|
var
|
|
|
Pnt:Tpoint;
|
|
|
begin
|
|
|
Pnt:=bsSkinButton13.ClientToScreen(Point(0,bsSkinButton13.Height));
|
|
|
PopupMenu3.Popup(Pnt.x,Pnt.y);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.N17Click(Sender: TObject);
|
|
|
begin
|
|
|
t_ch_balance.Close;
|
|
|
t_ch_balance.SQL.clear;
|
|
|
t_ch_balance.SQL.Add('select * from t_ch_balance where <20>ʵ<EFBFBD>״̬='+''''+'¼<><C2BC>״̬'+''''
|
|
|
+' and <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''
|
|
|
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD><EFBFBD>'+''''
|
|
|
+' order by <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> desc');
|
|
|
t_ch_balance.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.N34Click(Sender: TObject);
|
|
|
begin
|
|
|
t_ch_balance.Close;
|
|
|
t_ch_balance.SQL.clear;
|
|
|
t_ch_balance.SQL.Add('select * from t_ch_balance where <20>ʵ<EFBFBD>״̬='+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''
|
|
|
+' and <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''
|
|
|
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD><EFBFBD>'+''''
|
|
|
+' order by <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> desc');
|
|
|
t_ch_balance.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.N2Click(Sender: TObject);
|
|
|
begin
|
|
|
t_ch_balance.Close;
|
|
|
t_ch_balance.SQL.clear;
|
|
|
t_ch_balance.SQL.Add('select * from t_ch_balance where <20>ʵ<EFBFBD>״̬='+''''+'ȷ<>Ϻ<EFBFBD><CFBA><EFBFBD>'+''''
|
|
|
+' and <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''
|
|
|
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD><EFBFBD>'+''''
|
|
|
+' order by <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> desc');
|
|
|
t_ch_balance.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.N36Click(Sender: TObject);
|
|
|
begin
|
|
|
t_ch_balance.Close;
|
|
|
t_ch_balance.SQL.clear;
|
|
|
t_ch_balance.SQL.Add('select * from t_ch_balance where <20>ʵ<EFBFBD>״̬='+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''
|
|
|
+' and <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''
|
|
|
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD><EFBFBD>'+''''
|
|
|
+' order by <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> desc');
|
|
|
t_ch_balance.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.t_ch_balanceBeforeEdit(
|
|
|
DataSet: TDataSet);
|
|
|
begin
|
|
|
if not modify_all then
|
|
|
begin
|
|
|
if (t_ch_balance.FieldByName('<27>ʵ<EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>')then
|
|
|
begin
|
|
|
showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.dxDBGrid2DblClick(Sender: TObject);
|
|
|
begin
|
|
|
fee_view(v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.dxDBGrid3DblClick(Sender: TObject);
|
|
|
begin
|
|
|
fee_view(v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.dxDBGrid4DblClick(Sender: TObject);
|
|
|
begin
|
|
|
fee_view(v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.dxDBGrid5DblClick(Sender: TObject);
|
|
|
begin
|
|
|
fee_view(v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.bsSkinButton7Click(Sender: TObject);
|
|
|
begin
|
|
|
table_Prior(t_ch_balance);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.bsSkinButton2Click(Sender: TObject);
|
|
|
begin
|
|
|
table_next(t_ch_balance);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.bsSkinButton1Click(Sender: TObject);
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
if t_ch_balance.IsEmpty then
|
|
|
exit;
|
|
|
|
|
|
if t_ch_balance.FieldByName('<27>ʵ<EFBFBD>״̬').asstring<>'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'then
|
|
|
begin
|
|
|
showmessage('<27>ʵ<EFBFBD>״̬<D7B4><CCAC><EFBFBD>ܲ<EFBFBD><DCB2>غ<EFBFBD><D8BA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if t_ch_balance.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat<0 then
|
|
|
begin
|
|
|
if not if_open('210') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
frm_main.db.BeginTrans;
|
|
|
try
|
|
|
modify_all:=true;
|
|
|
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select * from t_ch_fee_do where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_ch_balance.fieldbyname('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').asstring+'''');
|
|
|
Open;
|
|
|
First;
|
|
|
while not Eof do begin
|
|
|
edit;
|
|
|
FieldByName('<27><><EFBFBD><EFBFBD>').AsString:='6';
|
|
|
Post;
|
|
|
Setfee(1,aQuery.fieldbyname('CH_ID').asinteger,aQuery.fieldbyname('ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>').asfloat);
|
|
|
Next;
|
|
|
end;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
|
|
|
t_ch_balance.edit;
|
|
|
t_ch_balance['<27>ʵ<EFBFBD>״̬']:='<27><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>';
|
|
|
t_ch_balance.post;
|
|
|
modify_all:=false;
|
|
|
frm_main.db.CommitTrans;
|
|
|
finally
|
|
|
if frm_main.db.InTransaction then
|
|
|
begin
|
|
|
t_ch_balance.cancel;
|
|
|
modify_all:=false;
|
|
|
showmessage('<27><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD>');
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.bsSkinButton33Click(
|
|
|
Sender: TObject);
|
|
|
begin
|
|
|
if not t_ch_invoice.Active then t_ch_invoice.open;
|
|
|
t_ch_invoice.Insert;
|
|
|
t_ch_invoice['Ʊ<>ݽ<EFBFBD><DDBD><EFBFBD>']:=t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_ch_invoice['<27>ұ<EFBFBD>']:=t_ch_balance['<27>ұ<EFBFBD>'];
|
|
|
t_ch_invoice['<27><>Ʊ<EFBFBD><C6B1>λ']:=t_ch_balance['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>'] ;
|
|
|
t_ch_invoice['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_balance['<27><><EFBFBD><EFBFBD>'] ;
|
|
|
|
|
|
bsSkinPageControl1.ActivePage:=bsSkinTabSheet2;
|
|
|
bsSkinPageControl4.ActivePage:=bsSkinTabSheet12;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.bsSkinButton14Click(
|
|
|
Sender: TObject);
|
|
|
var
|
|
|
Pnt:Tpoint;
|
|
|
begin
|
|
|
Pnt:=bsSkinButton14.ClientToScreen(Point(0,bsSkinButton14.Height));
|
|
|
PopupMenu1.Popup(Pnt.x,Pnt.y);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.bsSkinButton18Click(
|
|
|
Sender: TObject);
|
|
|
begin
|
|
|
t_ch_invoice.Insert;
|
|
|
// bsSkinPageControl1.ActivePage:=bskntbshtTbs3;
|
|
|
bsSkinPageControl4.ActivePage:=bsSkinTabSheet12;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.bsSkinButton19Click(
|
|
|
Sender: TObject);
|
|
|
begin
|
|
|
table_post(t_ch_invoice);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.bsSkinButton22Click(
|
|
|
Sender: TObject);
|
|
|
begin
|
|
|
table_cancel(t_ch_invoice);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.bsSkinButton20Click(
|
|
|
Sender: TObject);
|
|
|
begin
|
|
|
table_delete(t_ch_invoice);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.bsSkinButton17Click(
|
|
|
Sender: TObject);
|
|
|
begin
|
|
|
bsSkinPageControl4.ActivePage:=bsSkinTabSheet12;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.bsSkinButton30Click(
|
|
|
Sender: TObject);
|
|
|
var
|
|
|
Pnt:Tpoint;
|
|
|
begin
|
|
|
Pnt:=bsSkinButton30.ClientToScreen(Point(0,bsSkinButton30.Height));
|
|
|
PopupMenu1.Popup(Pnt.x,Pnt.y);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.bsSkinButton34Click(
|
|
|
Sender: TObject);
|
|
|
begin
|
|
|
table_Prior(t_ch_invoice);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.bsSkinButton35Click(
|
|
|
Sender: TObject);
|
|
|
begin
|
|
|
table_next(t_ch_invoice);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.t_ch_invoiceBeforePost(
|
|
|
DataSet: TDataSet);
|
|
|
begin
|
|
|
table_before_post(t_ch_invoice,'Ʊ<>ݽ<EFBFBD><DDBD><EFBFBD>');
|
|
|
table_before_post(t_ch_invoice,'<27>ұ<EFBFBD>');
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.bsSkinButton32Click(
|
|
|
Sender: TObject);
|
|
|
begin
|
|
|
bsSkinPageControl4.ActivePage:=bsSkinTabSheet11;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.bsSkinButton23Click(
|
|
|
Sender: TObject);
|
|
|
begin
|
|
|
t_ch_invoice.Insert;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.bsSkinButton26Click(
|
|
|
Sender: TObject);
|
|
|
begin
|
|
|
table_post(t_ch_invoice);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.t_ch_invoiceDSDesigner12Change(
|
|
|
Sender: TField);
|
|
|
var
|
|
|
lowamont:String;
|
|
|
lenlowamont,i,J:Integer;
|
|
|
upword:array[0..12] of string[4];
|
|
|
begin
|
|
|
upword[0]:='<27><>';upword[1]:='<27><>';upword[2]:='Ԫ';upword[3]:='ʮ';upword[4]:='<27><>';
|
|
|
upword[5]:='ǧ';upword[6]:='<27><>';upword[7]:='ʮ<><CAAE>';upword[8]:='<27><><EFBFBD><EFBFBD>';upword[9]:='ǧ<><C7A7>';
|
|
|
upword[10]:='<27><>';upword[11]:='ʮ<><CAAE>';upword[12]:='<27><><EFBFBD><EFBFBD>';
|
|
|
|
|
|
if Sender.DataSet['<27>ұ<EFBFBD>']='RMB' then begin
|
|
|
lowamont:=formatfloat('0.00',Sender.DataSet['Ʊ<>ݽ<EFBFBD><DDBD><EFBFBD>']);
|
|
|
lenlowamont:=length(lowamont);
|
|
|
delete(lowamont,lenlowamont-2,1);
|
|
|
lenlowamont:=length(lowamont);
|
|
|
J:=0;
|
|
|
for i:=0 to 12 do begin
|
|
|
Sender.DataSet[upword[i]]:='';
|
|
|
end;
|
|
|
for i:=lenlowamont downto 1 do begin
|
|
|
Sender.DataSet[upword[j]]:=lowamont[i];
|
|
|
J:=J+1;
|
|
|
end;
|
|
|
|
|
|
Sender.DataSet[upword[lenlowamont]]:='<27><>';
|
|
|
// Sender.DataSet['<27><><EFBFBD><EFBFBD>Сд']:=FloatToStr(Sender.DataSet['֧Ʊ<D6A7><C6B1><EFBFBD><EFBFBD>']);
|
|
|
Sender.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']:=DXZH(FloatToStr(Sender.DataSet['Ʊ<>ݽ<EFBFBD><DDBD><EFBFBD>']))
|
|
|
end else begin
|
|
|
lowamont:=formatfloat('0.00',Sender.DataSet['Ʊ<>ݽ<EFBFBD><DDBD><EFBFBD>']);
|
|
|
lenlowamont:=length(lowamont);
|
|
|
delete(lowamont,lenlowamont-2,1);
|
|
|
lenlowamont:=length(lowamont);
|
|
|
for i:=0 to 12 do begin
|
|
|
Sender.DataSet[upword[i]]:='';
|
|
|
end;
|
|
|
|
|
|
J:=0;
|
|
|
for i:=lenlowamont downto 1 do begin
|
|
|
Sender.DataSet[upword[j]]:=lowamont[i];
|
|
|
J:=J+1;
|
|
|
end;
|
|
|
Sender.DataSet[upword[lenlowamont]]:='D';
|
|
|
Sender.DataSet[upword[lenlowamont+1]]:='S';
|
|
|
Sender.DataSet[upword[lenlowamont+2]]:='U';
|
|
|
Sender.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']:=DXZHUSD(FloatToStr(Sender.DataSet['Ʊ<>ݽ<EFBFBD><DDBD><EFBFBD>']));
|
|
|
end;
|
|
|
|
|
|
if t_ch_invoice['<27>ұ<EFBFBD>']='RMB' then begin
|
|
|
sncDBCurrencyEdit1.CurrencySymbol:='<27><>';
|
|
|
Lbl13.Visible:=false;
|
|
|
Lbl18.Visible:=True;
|
|
|
end else begin
|
|
|
|
|
|
sncDBCurrencyEdit1.CurrencySymbol:='$';
|
|
|
Lbl13.Visible:=true;
|
|
|
Lbl18.Visible:=false;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.t_ch_invoiceDSDesigner2Change(
|
|
|
Sender: TField);
|
|
|
begin
|
|
|
t_ch_invoice['<27><>']:=my_strtoyear(Sender.AsDateTime);
|
|
|
t_ch_invoice['<27><>']:=my_strtomonth(Sender.AsDateTime);
|
|
|
t_ch_invoice['<27><>']:=my_strtodday(Sender.AsDateTime);
|
|
|
t_ch_invoice['<27><>С']:=FormatDateTime('YY',Sender.AsDateTime);
|
|
|
t_ch_invoice['<27><>С']:=FormatDateTime('MM',Sender.AsDateTime);
|
|
|
t_ch_invoice['<27><>С']:=FormatDateTime('DD',Sender.AsDateTime);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.t_ch_invoiceDSDesigner8Change(
|
|
|
Sender: TField);
|
|
|
begin
|
|
|
try
|
|
|
if (t_ch_invoice.state=dsinsert) or (t_ch_invoice.state=dsedit) then
|
|
|
begin
|
|
|
if not frm_data_share.t_sys_bank.IsEmpty then
|
|
|
if frm_data_share.t_sys_bank.Locate('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',t_ch_invoice['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'],[])then
|
|
|
t_ch_invoice['<27><><EFBFBD><EFBFBD><EFBFBD>˺<EFBFBD>']:=frm_data_share.t_sys_bank.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˺<EFBFBD>').asstring;
|
|
|
end;
|
|
|
except
|
|
|
;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.MenuItem1Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_ch_invoice.IsEmpty then
|
|
|
exit;
|
|
|
if t_ch_invoice.FieldByName('<27>Ƿ<EFBFBD><C7B7>ϳ<EFBFBD>').asboolean then
|
|
|
begin
|
|
|
showmessage('֧Ʊ<D6A7>Ѿ<EFBFBD><D1BE>ϳ<EFBFBD><CFB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܴ<EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if not t_ch_invoice.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ').asboolean then
|
|
|
begin
|
|
|
t_ch_invoice.Edit;
|
|
|
t_ch_invoice['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ']:=1;
|
|
|
t_ch_invoice.post;
|
|
|
end;
|
|
|
|
|
|
sys_print('<27><><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD>ӡ',1,t_ch_invoice1,nil,nil,nil,nil,nil,nil,nil,t_ch_invoice1,nil,nil);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.N20Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_ch_invoice.IsEmpty then
|
|
|
exit;
|
|
|
if t_ch_invoice.FieldByName('<27>Ƿ<EFBFBD><C7B7>ϳ<EFBFBD>').asboolean then
|
|
|
begin
|
|
|
showmessage('֧Ʊ<D6A7>Ѿ<EFBFBD><D1BE>ϳ<EFBFBD><CFB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܴ<EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if not t_ch_invoice.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ').asboolean then
|
|
|
begin
|
|
|
t_ch_invoice.Edit;
|
|
|
t_ch_invoice['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ']:=1;
|
|
|
t_ch_invoice.post;
|
|
|
end;
|
|
|
|
|
|
sys_print('<27><><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD>ӡ',2,t_ch_invoice1,nil,nil,nil,nil,nil,nil,nil,t_ch_invoice1,nil,nil);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.bsSkinButton38Click(
|
|
|
Sender: TObject);
|
|
|
var
|
|
|
book1:Tbookmark;
|
|
|
begin
|
|
|
book1:=t_ch_balance.GetBookmark;
|
|
|
t_ch_balance.Requery;
|
|
|
t_ch_balance.GotoBookmark(book1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.bsSkinPageControl1Change(
|
|
|
Sender: TObject);
|
|
|
begin
|
|
|
if not ch_balance_accept_check then exit;
|
|
|
if (bsSkinPageControl1.ActivePage=bsSkinTabSheet2) then begin
|
|
|
if not t_ch_invoice.active then
|
|
|
t_ch_invoice.open;
|
|
|
end else begin
|
|
|
t_ch_invoice.close;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.bsSkinNotebook1PageChanged(
|
|
|
Sender: TObject);
|
|
|
begin
|
|
|
if not ch_balance_accept_check then exit;
|
|
|
if bsSkinNotebook1.PageIndex=1 then begin
|
|
|
v_fee_do_seae.open;
|
|
|
v_fee_do_seae_sum.open;
|
|
|
v_fee_do_seae_sum_atd.open;
|
|
|
end else begin
|
|
|
v_fee_do_seae.close;
|
|
|
v_fee_do_seae_sum.close;
|
|
|
v_fee_do_seae_sum_atd.close;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_accept_check.bsSkinPageControl2Change(
|
|
|
Sender: TObject);
|
|
|
begin
|
|
|
if not ch_balance_accept_check then exit;
|
|
|
if bsSkinPageControl2.ActivePage=bsSkinTabSheet4 then begin
|
|
|
v_fee_do_seai.open;
|
|
|
v_fee_do_seai_sum.open;
|
|
|
end else begin
|
|
|
v_fee_do_seai.close;
|
|
|
v_fee_do_seai_sum.close;
|
|
|
end;
|
|
|
if bsSkinPageControl2.ActivePage=bsSkinTabSheet5 then begin
|
|
|
v_fee_do_aire.open;
|
|
|
v_fee_do_aire_sum.open;
|
|
|
end else begin
|
|
|
v_fee_do_aire.close;
|
|
|
v_fee_do_aire_sum.close;
|
|
|
end;
|
|
|
if bsSkinPageControl2.ActivePage=bsSkinTabSheet6 then begin
|
|
|
v_fee_do_airi.open;
|
|
|
v_fee_do_airi_sum.open;
|
|
|
end else begin
|
|
|
v_fee_do_airi.close;
|
|
|
v_fee_do_airi_sum.close;
|
|
|
end;
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
end.
|