|
|
unit u_ch_balance_pay;
|
|
|
|
|
|
interface
|
|
|
|
|
|
uses
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
Dialogs, dxExEdtr, DB, ADODB, u_ch_add_do, u_ch_delete_do, wwdbedit,
|
|
|
Wwdotdot, Wwdbcomb, StdCtrls, DBCtrls, bsSkinCtrls, bsdbctrls, RxLookup,
|
|
|
Mask, dxDBTLCl, dxGrClms, dxDBGrid, dxTL, dxDBCtrl, dxCntner, Menus,
|
|
|
XPMenu, ComCtrls, bsSkinTabs, ExtCtrls, sncCurrency, sncDBCurrency,
|
|
|
ToolEdit, CurrEdit, RXDBCtrl, DBCtrlsEh, AAFont, AACtrls, Grids, DBGridEh,
|
|
|
DBGrids, wwdbdatetimepicker;
|
|
|
|
|
|
type
|
|
|
Tfrm_ch_balance_pay = class(TForm)
|
|
|
t_ch_balance: TADOQuery;
|
|
|
t_ch_balance1: TDataSource;
|
|
|
t_ch_fee_do: TADOQuery;
|
|
|
XPMenu1: TXPMenu;
|
|
|
PopupMenu2: TPopupMenu;
|
|
|
N10: TMenuItem;
|
|
|
N11: TMenuItem;
|
|
|
N14: TMenuItem;
|
|
|
N13: TMenuItem;
|
|
|
N12: TMenuItem;
|
|
|
N15: TMenuItem;
|
|
|
N16: TMenuItem;
|
|
|
bsSkinPageControl1: TbsSkinPageControl;
|
|
|
bsSkinTabSheet1: TbsSkinTabSheet;
|
|
|
bsSkinNotebook1: TbsSkinNotebook;
|
|
|
dxDBGrid1: TdxDBGrid;
|
|
|
dxDBGrid1Column1: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column2: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column15: TdxDBGridColumn;
|
|
|
dxDBGrid1Column5: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column3: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column4: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column6: TdxDBGridColumn;
|
|
|
dxDBGrid1Column7: TdxDBGridColumn;
|
|
|
dxDBGrid1Column8: TdxDBGridColumn;
|
|
|
dxDBGrid1Column9: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column10: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column11: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column12: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column13: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column14: TdxDBGridDateColumn;
|
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
|
bsSkinPanel3: 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;
|
|
|
DBEdit14: TDBEdit;
|
|
|
DBEdit1: TDBEdit;
|
|
|
RxDBLookupCombo1: TRxDBLookupCombo;
|
|
|
bsSkinDBCheckRadioBox1: TbsSkinDBCheckRadioBox;
|
|
|
DBEdit4: TDBEdit;
|
|
|
DBEdit5: TDBEdit;
|
|
|
DBEdit6: TDBEdit;
|
|
|
DBEdit8: TDBEdit;
|
|
|
DBEdit9: TDBEdit;
|
|
|
DBEdit10: TDBEdit;
|
|
|
DBMemo1: TDBMemo;
|
|
|
RxDBLookupCombo2: TRxDBLookupCombo;
|
|
|
wwDBComboBox1: TwwDBComboBox;
|
|
|
fra_ch_delete_do1: Tfra_ch_delete_do;
|
|
|
fra_ch_add_do1: Tfra_ch_add_do;
|
|
|
bsSkinTabSheet2: TbsSkinTabSheet;
|
|
|
bsSkinPanel2: TbsSkinPanel;
|
|
|
bsSkinButton1: TbsSkinButton;
|
|
|
bsSkinButton2: TbsSkinButton;
|
|
|
bsSkinButton4: TbsSkinButton;
|
|
|
bsSkinButton3: TbsSkinButton;
|
|
|
bsSkinButton5: TbsSkinButton;
|
|
|
bsSkinButton8: TbsSkinButton;
|
|
|
bsSkinButton9: TbsSkinButton;
|
|
|
bsSkinButton10: TbsSkinButton;
|
|
|
bsSkinButton11: TbsSkinButton;
|
|
|
bsSkinButton6: TbsSkinButton;
|
|
|
t_ch_check1: TDataSource;
|
|
|
t_ch_check: TADOQuery;
|
|
|
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_airi: TADOQuery;
|
|
|
v_fee_do_airi1: TDataSource;
|
|
|
v_fee_do_aire1: TDataSource;
|
|
|
Panel1: TPanel;
|
|
|
bsSkinPanel4: TbsSkinPanel;
|
|
|
Label11: TLabel;
|
|
|
Label13: TLabel;
|
|
|
Label14: TLabel;
|
|
|
Label15: TLabel;
|
|
|
Label16: TLabel;
|
|
|
Label18: TLabel;
|
|
|
Label20: TLabel;
|
|
|
Label22: TLabel;
|
|
|
Label23: TLabel;
|
|
|
Label24: TLabel;
|
|
|
Label26: TLabel;
|
|
|
DBEdit2: TDBEdit;
|
|
|
DBEdit3: TDBEdit;
|
|
|
DBEdit7: TDBEdit;
|
|
|
DBEdit11: TDBEdit;
|
|
|
DBEdit13: TDBEdit;
|
|
|
DBMemo2: TDBMemo;
|
|
|
DBEdit16: TDBEdit;
|
|
|
DBEdit17: TDBEdit;
|
|
|
DBEdit18: TDBEdit;
|
|
|
DBEdit12: TDBEdit;
|
|
|
bsSkinPanel5: TbsSkinPanel;
|
|
|
bsSkinButton21: TbsSkinButton;
|
|
|
bsSkinButton24: TbsSkinButton;
|
|
|
bsSkinButton25: TbsSkinButton;
|
|
|
DBEdit15: TDBEdit;
|
|
|
bsSkinPanel6: TbsSkinPanel;
|
|
|
bsSkinGroupBox1: TbsSkinGroupBox;
|
|
|
Label38: TLabel;
|
|
|
DBEdit27: TDBEdit;
|
|
|
Label39: TLabel;
|
|
|
DBEdit28: TDBEdit;
|
|
|
Label40: TLabel;
|
|
|
DBEdit29: TDBEdit;
|
|
|
Label41: TLabel;
|
|
|
DBEdit30: TDBEdit;
|
|
|
DBEdit31: TDBEdit;
|
|
|
Label42: TLabel;
|
|
|
DBEdit32: TDBEdit;
|
|
|
Label43: TLabel;
|
|
|
Label44: TLabel;
|
|
|
DBEdit33: TDBEdit;
|
|
|
Label45: TLabel;
|
|
|
DBEdit34: TDBEdit;
|
|
|
DBEdit35: TDBEdit;
|
|
|
Label46: TLabel;
|
|
|
DBEdit36: TDBEdit;
|
|
|
Label47: TLabel;
|
|
|
Label48: TLabel;
|
|
|
DBMemo4: TDBMemo;
|
|
|
bsSkinGroupBox2: TbsSkinGroupBox;
|
|
|
Label19: TLabel;
|
|
|
DBEdit19: TDBEdit;
|
|
|
Label21: TLabel;
|
|
|
DBEdit20: TDBEdit;
|
|
|
Label27: TLabel;
|
|
|
Label28: TLabel;
|
|
|
Label29: TLabel;
|
|
|
DBEdit22: TDBEdit;
|
|
|
Label31: TLabel;
|
|
|
DBEdit21: TDBEdit;
|
|
|
Label30: TLabel;
|
|
|
Label32: TLabel;
|
|
|
DBEdit23: TDBEdit;
|
|
|
Label33: TLabel;
|
|
|
Label34: TLabel;
|
|
|
DBEdit24: TDBEdit;
|
|
|
DBEdit26: TDBEdit;
|
|
|
Label36: TLabel;
|
|
|
DBEdit25: TDBEdit;
|
|
|
Label35: TLabel;
|
|
|
Label37: TLabel;
|
|
|
DBMemo3: TDBMemo;
|
|
|
DBEdit37: TDBEdit;
|
|
|
DBEdit38: TDBEdit;
|
|
|
Label49: TLabel;
|
|
|
DBEdit39: TDBEdit;
|
|
|
t_ch_check_detail: TADOQuery;
|
|
|
t_ch_check_detail1: TDataSource;
|
|
|
DBEdit40: TDBEdit;
|
|
|
DBEdit41: TDBEdit;
|
|
|
bsSkinPanel7: TbsSkinPanel;
|
|
|
DBEdit42: TDBEdit;
|
|
|
p_update: TADOStoredProc;
|
|
|
t_ch_fee_do_check: TADOQuery;
|
|
|
bsSkinButton7: TbsSkinButton;
|
|
|
Label50: TLabel;
|
|
|
DBEdit43: TDBEdit;
|
|
|
Label51: TLabel;
|
|
|
DBEdit44: TDBEdit;
|
|
|
bsSkinButton12: TbsSkinButton;
|
|
|
Label52: TLabel;
|
|
|
DBEdit45: TDBEdit;
|
|
|
Label53: TLabel;
|
|
|
DBEdit46: TDBEdit;
|
|
|
PopupMenu3: TPopupMenu;
|
|
|
N17: TMenuItem;
|
|
|
N18: TMenuItem;
|
|
|
N34: TMenuItem;
|
|
|
N35: TMenuItem;
|
|
|
N36: TMenuItem;
|
|
|
N1: TMenuItem;
|
|
|
N6: TMenuItem;
|
|
|
N5: TMenuItem;
|
|
|
N4: TMenuItem;
|
|
|
Label54: TLabel;
|
|
|
DBEdit47: TDBEdit;
|
|
|
Label55: TLabel;
|
|
|
DBEdit48: TDBEdit;
|
|
|
bsSkinButton131: TbsSkinButton;
|
|
|
dxDBGrid1Column16: TdxDBGridColumn;
|
|
|
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;
|
|
|
bsSkinTabSheet4: TbsSkinTabSheet;
|
|
|
dxDBGrid3: TdxDBGrid;
|
|
|
dxDBGridMaskColumn16: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn17: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn18: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn19: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn20: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn5: TdxDBGridColumn;
|
|
|
dxDBGridColumn6: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn21: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn7: TdxDBGridColumn;
|
|
|
dxDBGridDateColumn3: TdxDBGridDateColumn;
|
|
|
dxDBGridDateColumn4: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn22: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn23: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn24: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn25: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn26: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn8: TdxDBGridColumn;
|
|
|
dxDBGridColumn9: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn27: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn28: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn29: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn30: TdxDBGridMaskColumn;
|
|
|
dxDBGrid12: TdxDBGrid;
|
|
|
dxDBGrid6Column4: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn31: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn36: TdxDBGridColumn;
|
|
|
dxDBGrid6Column5: TdxDBGridColumn;
|
|
|
dxDBGrid6Column6: TdxDBGridColumn;
|
|
|
dxDBGridColumn43: TdxDBGridColumn;
|
|
|
bsSkinTabSheet5: TbsSkinTabSheet;
|
|
|
dxDBGrid4: TdxDBGrid;
|
|
|
dxDBGridMaskColumn32: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn33: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn34: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn35: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn36: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn10: TdxDBGridColumn;
|
|
|
dxDBGridColumn11: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn37: TdxDBGridMaskColumn;
|
|
|
dxDBGrid8Column19: TdxDBGridColumn;
|
|
|
dxDBGridDateColumn5: TdxDBGridDateColumn;
|
|
|
dxDBGridDateColumn6: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn38: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn39: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn40: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn12: TdxDBGridColumn;
|
|
|
dxDBGridColumn13: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn41: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn42: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn43: TdxDBGridMaskColumn;
|
|
|
dxDBGrid13: TdxDBGrid;
|
|
|
dxDBGrid7Column4: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn44: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn37: TdxDBGridColumn;
|
|
|
dxDBGrid7Column5: TdxDBGridColumn;
|
|
|
dxDBGrid7Column6: TdxDBGridColumn;
|
|
|
dxDBGridColumn44: TdxDBGridColumn;
|
|
|
bsSkinTabSheet6: TbsSkinTabSheet;
|
|
|
dxDBGrid5: TdxDBGrid;
|
|
|
dxDBGridMaskColumn45: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn46: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn47: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn48: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn49: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn14: TdxDBGridColumn;
|
|
|
dxDBGridColumn15: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn50: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn16: TdxDBGridColumn;
|
|
|
dxDBGridDateColumn7: TdxDBGridDateColumn;
|
|
|
dxDBGridDateColumn8: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn51: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn52: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn53: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn38: TdxDBGridColumn;
|
|
|
dxDBGridColumn45: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn54: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn115: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn116: TdxDBGridMaskColumn;
|
|
|
dxDBGrid14: TdxDBGrid;
|
|
|
dxDBGrid8Column4: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn117: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn46: TdxDBGridColumn;
|
|
|
dxDBGrid8Column5: TdxDBGridColumn;
|
|
|
dxDBGrid8Column6: TdxDBGridColumn;
|
|
|
dxDBGridColumn47: TdxDBGridColumn;
|
|
|
bsSkinPageControl3: TbsSkinPageControl;
|
|
|
bsSkinTabSheet7: TbsSkinTabSheet;
|
|
|
dxDBGrid7: TdxDBGrid;
|
|
|
dxDBGrid2Column22: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn61: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn62: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn63: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn64: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn65: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn20: TdxDBGridColumn;
|
|
|
dxDBGridColumn21: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn66: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column23: TdxDBGridColumn;
|
|
|
dxDBGridDateColumn11: TdxDBGridDateColumn;
|
|
|
dxDBGridDateColumn12: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn67: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn68: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn69: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn70: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn71: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn22: TdxDBGridColumn;
|
|
|
dxDBGridColumn23: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn72: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn73: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn74: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn75: TdxDBGridMaskColumn;
|
|
|
bsSkinTabSheet8: TbsSkinTabSheet;
|
|
|
dxDBGrid8: TdxDBGrid;
|
|
|
dxDBGrid3Column22: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn77: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn78: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn79: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn80: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn81: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn26: TdxDBGridColumn;
|
|
|
dxDBGridColumn27: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn82: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column23: TdxDBGridColumn;
|
|
|
dxDBGridDateColumn13: TdxDBGridDateColumn;
|
|
|
dxDBGridDateColumn14: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn83: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn84: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn85: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn86: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn87: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn28: TdxDBGridColumn;
|
|
|
dxDBGridColumn29: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn88: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn89: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn90: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn91: TdxDBGridMaskColumn;
|
|
|
dxDBGrid16: TdxDBGrid;
|
|
|
dxDBGridColumn40: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn92: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn50: TdxDBGridColumn;
|
|
|
dxDBGridColumn51: TdxDBGridColumn;
|
|
|
dxDBGridColumn52: TdxDBGridColumn;
|
|
|
dxDBGridColumn53: TdxDBGridColumn;
|
|
|
bsSkinTabSheet9: TbsSkinTabSheet;
|
|
|
dxDBGrid9: TdxDBGrid;
|
|
|
dxDBGrid4Column19: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn93: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn94: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn95: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn96: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn97: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn30: TdxDBGridColumn;
|
|
|
dxDBGridColumn31: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn98: TdxDBGridMaskColumn;
|
|
|
dxDBGrid4Column20: TdxDBGridColumn;
|
|
|
dxDBGridDateColumn15: TdxDBGridDateColumn;
|
|
|
dxDBGridDateColumn16: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn99: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn100: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn101: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn32: TdxDBGridColumn;
|
|
|
dxDBGridColumn33: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn102: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn103: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn104: TdxDBGridMaskColumn;
|
|
|
dxDBGrid17: TdxDBGrid;
|
|
|
dxDBGridColumn41: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn118: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn54: TdxDBGridColumn;
|
|
|
dxDBGridColumn55: TdxDBGridColumn;
|
|
|
dxDBGridColumn56: TdxDBGridColumn;
|
|
|
dxDBGridColumn57: TdxDBGridColumn;
|
|
|
bsSkinTabSheet10: TbsSkinTabSheet;
|
|
|
dxDBGrid10: TdxDBGrid;
|
|
|
dxDBGrid5Column19: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn105: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn106: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn107: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn108: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn109: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn34: TdxDBGridColumn;
|
|
|
dxDBGridColumn35: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn110: TdxDBGridMaskColumn;
|
|
|
dxDBGrid5Column20: TdxDBGridColumn;
|
|
|
dxDBGridDateColumn17: TdxDBGridDateColumn;
|
|
|
dxDBGridDateColumn18: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn111: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn112: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn113: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn42: TdxDBGridColumn;
|
|
|
dxDBGridColumn58: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn114: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn119: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn120: TdxDBGridMaskColumn;
|
|
|
dxDBGrid18: TdxDBGrid;
|
|
|
dxDBGridColumn59: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn121: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn60: TdxDBGridColumn;
|
|
|
dxDBGridColumn61: TdxDBGridColumn;
|
|
|
dxDBGridColumn62: TdxDBGridColumn;
|
|
|
dxDBGridColumn63: TdxDBGridColumn;
|
|
|
bskntbshtTBS3: TbsSkinTabSheet;
|
|
|
t_ch_invoice1: TDataSource;
|
|
|
t_ch_invoice: TADOQuery;
|
|
|
t_ch_invoiceDSDesigner: TStringField;
|
|
|
t_ch_invoiceDSDesigner2: TStringField;
|
|
|
t_ch_invoiceDSDesigner3: TStringField;
|
|
|
t_ch_invoiceDSDesigner4: TStringField;
|
|
|
t_ch_invoiceDSDesigner5: TDateTimeField;
|
|
|
t_ch_invoiceDSDesigner6: TStringField;
|
|
|
t_ch_invoiceDSDesigner7: TStringField;
|
|
|
t_ch_invoiceDSDesigner8: TBCDField;
|
|
|
t_ch_invoiceDSDesigner9: TStringField;
|
|
|
t_ch_invoiceDSDesigner10: TStringField;
|
|
|
t_ch_invoiceDSDesigner11: TStringField;
|
|
|
t_ch_invoiceDSDesigner13: TStringField;
|
|
|
t_ch_invoiceDSDesigner14: TBooleanField;
|
|
|
t_ch_invoiceDSDesigner15: TStringField;
|
|
|
t_ch_invoiceDSDesigner16: TDateTimeField;
|
|
|
t_ch_invoiceDSDesigner17: TStringField;
|
|
|
t_ch_invoiceDSDesigner18: TBooleanField;
|
|
|
t_ch_invoiceDSDesigner19: TStringField;
|
|
|
t_ch_invoiceDSDesigner20: TBooleanField;
|
|
|
t_ch_invoiceDSDesigner21: TStringField;
|
|
|
t_ch_invoiceDSDesigner22: TDateTimeField;
|
|
|
t_ch_invoiceDSDesigner23: TStringField;
|
|
|
t_ch_invoiceDSDesigner24: TDateTimeField;
|
|
|
t_ch_invoiceDSDesigner25: TStringField;
|
|
|
t_ch_invoiceDSDesigner26: TStringField;
|
|
|
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;
|
|
|
bsSkinPageControl4: TbsSkinPageControl;
|
|
|
bsSkinTabSheet11: TbsSkinTabSheet;
|
|
|
bsSkinPanel8: TbsSkinPanel;
|
|
|
bsSkinButton14: TbsSkinButton;
|
|
|
bsSkinButton15: TbsSkinButton;
|
|
|
bsSkinButton16: TbsSkinButton;
|
|
|
bsSkinButton18: TbsSkinButton;
|
|
|
bsSkinButton19: TbsSkinButton;
|
|
|
bsSkinButton20: TbsSkinButton;
|
|
|
bsSkinButton22: TbsSkinButton;
|
|
|
bsSkinButton23: TbsSkinButton;
|
|
|
dxDBGrid19: TdxDBGrid;
|
|
|
dxDBGridMaskColumn122: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn123: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn124: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column22: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column19: TdxDBGridColumn;
|
|
|
dxDBGridDateColumn19: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn125: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn126: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column17: 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;
|
|
|
bsSkinPanel9: TbsSkinPanel;
|
|
|
bsSkinButton26: TbsSkinButton;
|
|
|
bsSkinButton27: TbsSkinButton;
|
|
|
bsSkinButton28: TbsSkinButton;
|
|
|
bsSkinButton29: TbsSkinButton;
|
|
|
bsSkinButton30: TbsSkinButton;
|
|
|
bsSkinButton31: TbsSkinButton;
|
|
|
bsSkinButton32: TbsSkinButton;
|
|
|
bsSkinButton33: TbsSkinButton;
|
|
|
bsSkinButton35: TbsSkinButton;
|
|
|
bsSkinButton36: TbsSkinButton;
|
|
|
bsSkinPanel10: TbsSkinPanel;
|
|
|
Label56: TLabel;
|
|
|
Label57: TLabel;
|
|
|
Label58: TLabel;
|
|
|
Label59: TLabel;
|
|
|
Label63: TLabel;
|
|
|
DBEdit49: TDBEdit;
|
|
|
DBEdit50: TDBEdit;
|
|
|
DBEdit51: TDBEdit;
|
|
|
DBEdit52: TDBEdit;
|
|
|
RxDBLookupCombo4: TRxDBLookupCombo;
|
|
|
s_invoice: TScrollBox;
|
|
|
Label60: TLabel;
|
|
|
Label61: TLabel;
|
|
|
Label62: TLabel;
|
|
|
Label64: TLabel;
|
|
|
Shape1: TShape;
|
|
|
AALabel1: TAALabel;
|
|
|
Label65: TLabel;
|
|
|
lblYEAR: TLabel;
|
|
|
Label66: TLabel;
|
|
|
lblMonth: TLabel;
|
|
|
Label67: TLabel;
|
|
|
lblDay: TLabel;
|
|
|
Label68: TLabel;
|
|
|
Label69: TLabel;
|
|
|
Shape2: TShape;
|
|
|
Label70: TLabel;
|
|
|
sncCurrencyLabel1: TsncCurrencyLabel;
|
|
|
Label71: TLabel;
|
|
|
Label72: TLabel;
|
|
|
Label73: TLabel;
|
|
|
Label74: TLabel;
|
|
|
DBText1: TDBText;
|
|
|
DBText2: TDBText;
|
|
|
DBText3: TDBText;
|
|
|
DBText4: TDBText;
|
|
|
Label75: TLabel;
|
|
|
Label76: TLabel;
|
|
|
Label77: TLabel;
|
|
|
RxDBLookupCombo5: TRxDBLookupCombo;
|
|
|
bsSkinPanel11: TbsSkinPanel;
|
|
|
Label78: TLabel;
|
|
|
Label79: TLabel;
|
|
|
DBEdit53: TDBEdit;
|
|
|
DBEdit54: TDBEdit;
|
|
|
bsSkinDBCheckRadioBox2: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinDBCheckRadioBox3: TbsSkinDBCheckRadioBox;
|
|
|
csj: TDBDateTimeEditEh;
|
|
|
rxdbj: TRxDBCalcEdit;
|
|
|
snccy: TsncDBCurrencyEdit;
|
|
|
czphm: TDBEdit;
|
|
|
DBEdit55: TDBEdit;
|
|
|
DBComboBox1: TDBComboBox;
|
|
|
RxDBLookupCombo6: TRxDBLookupCombo;
|
|
|
DBComboBox2: TDBComboBox;
|
|
|
DBComboBox3: TDBComboBox;
|
|
|
DBEdit56: TDBEdit;
|
|
|
PopupMenu1: TPopupMenu;
|
|
|
MenuItem1: TMenuItem;
|
|
|
N2: TMenuItem;
|
|
|
N3: TMenuItem;
|
|
|
MenuItem2: TMenuItem;
|
|
|
N20: TMenuItem;
|
|
|
Shape3: TShape;
|
|
|
Label80: TLabel;
|
|
|
Label81: TLabel;
|
|
|
DBEdit57: TDBEdit;
|
|
|
lbl1: TLabel;
|
|
|
dbedt1: TDBEdit;
|
|
|
lbl2: TLabel;
|
|
|
dbedt2: TDBEdit;
|
|
|
t_ch_invoiceDSDesigner43: TStringField;
|
|
|
t_ch_invoiceDSDesigner44: TStringField;
|
|
|
t_ch_invoiceDSDesigner45: TStringField;
|
|
|
t_ch_invoiceDSDesigner46: TStringField;
|
|
|
t_ch_invoiceDSDesigner47: TStringField;
|
|
|
t_ch_invoiceDSDesigner48: TStringField;
|
|
|
t_ch_invoiceDSDesigner12: TStringField;
|
|
|
bsSkinButton13: TbsSkinButton;
|
|
|
bsSkinButton17: TbsSkinButton;
|
|
|
bsSkinButton34: TbsSkinButton;
|
|
|
DBGridEh1: TDBGridEh;
|
|
|
DBGridseasum: TDBGridEh;
|
|
|
DBGridSEAE: TDBGridEh;
|
|
|
t_ch_fee_balance: TADOQuery;
|
|
|
t_crm_client_ty: TADOQuery;
|
|
|
t_crm_client_ty1: TDataSource;
|
|
|
dxDBGrid7Column24: TdxDBGridColumn;
|
|
|
Panel2: TPanel;
|
|
|
dxDBGrid15: TdxDBGrid;
|
|
|
dxDBGridColumn39: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn76: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn24: TdxDBGridColumn;
|
|
|
dxDBGridColumn25: TdxDBGridColumn;
|
|
|
dxDBGridColumn48: TdxDBGridColumn;
|
|
|
dxDBGridColumn49: TdxDBGridColumn;
|
|
|
dxDBGrid2: TdxDBGrid;
|
|
|
dxDBGridColumn1: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn1: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn2: TdxDBGridColumn;
|
|
|
dxDBGridColumn3: TdxDBGridColumn;
|
|
|
dxDBGridColumn4: TdxDBGridColumn;
|
|
|
dxDBGridColumn17: TdxDBGridColumn;
|
|
|
Label82: TLabel;
|
|
|
wwDBDateTimePicker22: TwwDBDateTimePicker;
|
|
|
Label83: TLabel;
|
|
|
wwDBDateTimePicker1: TwwDBDateTimePicker;
|
|
|
dxDBGrid1Column18: TdxDBGridColumn;
|
|
|
RxDBLookupCombo15: TRxDBLookupCombo;
|
|
|
Label84: TLabel;
|
|
|
DBEdit58: TDBEdit;
|
|
|
Label85: TLabel;
|
|
|
DBEdit59: TDBEdit;
|
|
|
dxDBGrid7Column25: TdxDBGridColumn;
|
|
|
dxDBGrid1Column20: TdxDBGridColumn;
|
|
|
dxDBGrid1Column21: TdxDBGridColumn;
|
|
|
Label86: TLabel;
|
|
|
DBEdit60: TDBEdit;
|
|
|
DBEdit61: TDBEdit;
|
|
|
Label87: TLabel;
|
|
|
dxDBGrid1Column23: TdxDBGridColumn;
|
|
|
dxDBGrid1Column24: TdxDBGridColumn;
|
|
|
bsSkinButton37: TbsSkinButton;
|
|
|
bsSkinButton38: TbsSkinButton;
|
|
|
dxDBGrid6: TdxDBGrid;
|
|
|
dxDBGridColumn18: TdxDBGridColumn;
|
|
|
dxDBGridColumn19: TdxDBGridColumn;
|
|
|
dxDBGridColumn64: TdxDBGridColumn;
|
|
|
dxDBGridColumn65: TdxDBGridColumn;
|
|
|
dxDBGridColumn66: TdxDBGridColumn;
|
|
|
bsSkinButton39: TbsSkinButton;
|
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
|
procedure FormResize(Sender: TObject);
|
|
|
procedure FormShow(Sender: TObject);
|
|
|
procedure bsSkinButton11Click(Sender: TObject);
|
|
|
procedure t_ch_balanceAfterInsert(DataSet: TDataSet);
|
|
|
procedure bsSkinButton2Click(Sender: TObject);
|
|
|
procedure bsSkinButton4Click(Sender: TObject);
|
|
|
procedure bsSkinButton3Click(Sender: TObject);
|
|
|
procedure t_ch_balanceBeforePost(DataSet: TDataSet);
|
|
|
procedure DBEdit4Enter(Sender: TObject);
|
|
|
procedure t_ch_balanceBeforeEdit(DataSet: TDataSet);
|
|
|
procedure RxDBLookupCombo1Enter(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 DBEdit1Change(Sender: TObject);
|
|
|
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
|
|
procedure bsSkinButton9Click(Sender: TObject);
|
|
|
procedure bsSkinButton6Click(Sender: TObject);
|
|
|
procedure bsSkinButton8Click(Sender: TObject);
|
|
|
procedure bsSkinButton10Click(Sender: TObject);
|
|
|
procedure t_ch_balanceAfterPost(DataSet: TDataSet);
|
|
|
procedure t_ch_balanceAfterDelete(DataSet: TDataSet);
|
|
|
procedure DBEdit14KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo1KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBComboBox1KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo2KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure bsSkinDBCheckRadioBox1KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
procedure RxDBLookupCombo3KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit8KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit9KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit10KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure N10Click(Sender: TObject);
|
|
|
procedure N14Click(Sender: TObject);
|
|
|
procedure N12Click(Sender: TObject);
|
|
|
procedure N16Click(Sender: TObject);
|
|
|
procedure dxDBGrid1ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
procedure RxDBLookupCombo2Change(Sender: TObject);
|
|
|
procedure DBEdit42Change(Sender: TObject);
|
|
|
procedure bsSkinButton21Click(Sender: TObject);
|
|
|
procedure bsSkinButton25Click(Sender: TObject);
|
|
|
procedure bsSkinPageControl1Changing(Sender: TObject;
|
|
|
var AllowChange: Boolean);
|
|
|
procedure bsSkinButton24Click(Sender: TObject);
|
|
|
procedure bsSkinButton12Click(Sender: TObject);
|
|
|
procedure bsSkinPanel5Resize(Sender: TObject);
|
|
|
procedure bsSkinButton7Click(Sender: TObject);
|
|
|
procedure N17Click(Sender: TObject);
|
|
|
procedure N34Click(Sender: TObject);
|
|
|
procedure N36Click(Sender: TObject);
|
|
|
procedure N6Click(Sender: TObject);
|
|
|
procedure N4Click(Sender: TObject);
|
|
|
procedure bsSkinButton13Click(Sender: TObject);
|
|
|
procedure t_ch_invoiceAfterInsert(DataSet: TDataSet);
|
|
|
procedure bsSkinButton19Click(Sender: TObject);
|
|
|
procedure bsSkinButton20Click(Sender: TObject);
|
|
|
procedure bsSkinButton27Click(Sender: TObject);
|
|
|
procedure bsSkinButton23Click(Sender: TObject);
|
|
|
procedure bsSkinButton29Click(Sender: TObject);
|
|
|
procedure bsSkinButton35Click(Sender: TObject);
|
|
|
procedure bsSkinButton36Click(Sender: TObject);
|
|
|
procedure t_ch_invoiceBeforePost(DataSet: TDataSet);
|
|
|
procedure bsSkinButton18Click(Sender: TObject);
|
|
|
procedure bsSkinButton33Click(Sender: TObject);
|
|
|
procedure bsSkinButton31Click(Sender: TObject);
|
|
|
procedure bsSkinButton15Click(Sender: TObject);
|
|
|
procedure MenuItem1Click(Sender: TObject);
|
|
|
procedure N20Click(Sender: TObject);
|
|
|
procedure t_ch_invoiceBeforeEdit(DataSet: TDataSet);
|
|
|
procedure bsSkinButton32Click(Sender: TObject);
|
|
|
procedure bsSkinButton28Click(Sender: TObject);
|
|
|
procedure t_ch_invoiceDSDesigner8Change(Sender: TField);
|
|
|
procedure t_ch_invoiceDSDesigner5Change(Sender: TField);
|
|
|
procedure bsSkinButton131Click(Sender: TObject);
|
|
|
procedure t_ch_invoiceDSDesigner6Change(Sender: TField);
|
|
|
procedure t_ch_invoiceDSDesigner2Change(Sender: TField);
|
|
|
procedure t_ch_invoice1DataChange(Sender: TObject; Field: TField);
|
|
|
procedure dxDBGrid19DblClick(Sender: TObject);
|
|
|
procedure bsSkinButton26Click(Sender: TObject);
|
|
|
procedure bsSkinButton17Click(Sender: TObject);
|
|
|
procedure bsSkinButton34Click(Sender: TObject);
|
|
|
procedure bsSkinPageControl1Change(Sender: TObject);
|
|
|
procedure bsSkinNotebook1PageChanged(Sender: TObject);
|
|
|
procedure t_ch_checkBeforePost(DataSet: TDataSet);
|
|
|
procedure t_ch_checkAfterOpen(DataSet: TDataSet);
|
|
|
procedure DBGridEh1TitleBtnClick(Sender: TObject; ACol: Integer;
|
|
|
Column: TColumnEh);
|
|
|
procedure DBGridseasumTitleBtnClick(Sender: TObject; ACol: Integer;
|
|
|
Column: TColumnEh);
|
|
|
procedure DBGridSEAETitleBtnClick(Sender: TObject; ACol: Integer;
|
|
|
Column: TColumnEh);
|
|
|
procedure RxDBLookupCombo15Change(Sender: TObject);
|
|
|
procedure bsSkinButton37Click(Sender: TObject);
|
|
|
procedure bsSkinButton38Click(Sender: TObject);
|
|
|
procedure bsSkinButton39Click(Sender: TObject);
|
|
|
private
|
|
|
{ Private declarations }
|
|
|
public
|
|
|
{ Public declarations }
|
|
|
end;
|
|
|
|
|
|
var
|
|
|
frm_ch_balance_pay: Tfrm_ch_balance_pay;
|
|
|
ch_balance_pay_open:boolean;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
uses my_sys_function, u_main, u_ch_balance_query, u_data_share,
|
|
|
u_ch_check_do, u_ch_shen_query, u_crm_client_ty_view, u_sys_progress,
|
|
|
u_ch_balance_inv_do, u_ch_balance_invhx;
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinButton5Click(Sender: TObject);
|
|
|
begin
|
|
|
close;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.FormClose(Sender: TObject;
|
|
|
var Action: TCloseAction);
|
|
|
begin
|
|
|
ch_balance_pay_open:=false;
|
|
|
savereggrid(dxdbgrid1,caption);
|
|
|
frm_ch_balance_pay.Hide;
|
|
|
frm_ch_balance_pay.ManualFloat(frm_ch_balance_pay.BoundsRect );
|
|
|
frm_main.freeTabs('frm_ch_balance_pay');
|
|
|
ch_balance_pay_open:=false;
|
|
|
action:=cafree;
|
|
|
frm_ch_balance_pay:=nil;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.FormResize(Sender: TObject);
|
|
|
var
|
|
|
i:integer;
|
|
|
begin
|
|
|
i:=round(bsSkinPanel2.Width/15);
|
|
|
bsSkinButton10.Width:=i;
|
|
|
bsSkinButton9.Width:=i;
|
|
|
bsSkinButton2.Width:=i;
|
|
|
bsSkinButton3.Width:=i;
|
|
|
bsSkinButton4.Width:=i;
|
|
|
bsSkinButton1.Width:=i;
|
|
|
bsSkinButton11.Width:=i;
|
|
|
bsSkinButton13.Width:=i;
|
|
|
bsSkinButton6.Width:=i;
|
|
|
bsSkinButton8.Width:=i;
|
|
|
bsSkinButton37.Width:=i;
|
|
|
bsSkinButton38.Width:=i;
|
|
|
bsSkinButton39.Width:=i;
|
|
|
bsSkinButton131.Width:=i;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.FormShow(Sender: TObject);
|
|
|
begin
|
|
|
|
|
|
dxDBGrid1.BeginUpdate;
|
|
|
dxDBGrid3.BeginUpdate;
|
|
|
dxDBGrid4.BeginUpdate;
|
|
|
dxDBGrid5.BeginUpdate;
|
|
|
dxDBGrid19.BeginUpdate;
|
|
|
|
|
|
t_ch_balance.Close;
|
|
|
t_ch_balance.SQL.clear;
|
|
|
t_ch_balance.SQL.Add('select top 100 *,(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><>'+''''+' order by <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> desc');
|
|
|
t_ch_balance.open;
|
|
|
t_ch_fee_do.open;
|
|
|
t_ch_check_detail.open;
|
|
|
|
|
|
fra_ch_delete_do1.bs_text.Text:='4';
|
|
|
fra_ch_delete_do1.do_ban1.DataSet:=t_ch_balance;
|
|
|
|
|
|
{
|
|
|
t_ch_check.open;
|
|
|
v_fee_do_seae.open;
|
|
|
v_fee_do_seai.open;
|
|
|
v_fee_do_aire.open;
|
|
|
v_fee_do_airi.open;
|
|
|
v_fee_do_seae_sum.Open;
|
|
|
|
|
|
v_fee_do_seai_sum.open;
|
|
|
v_fee_do_aire_sum.open;
|
|
|
v_fee_do_airi_sum.open;
|
|
|
|
|
|
t_ch_fee_do_check.open;
|
|
|
}
|
|
|
ch_balance_pay_open:=true;
|
|
|
|
|
|
{
|
|
|
fra_ch_add_do1.do_ban1.DataSet:=t_ch_balance;
|
|
|
fra_ch_add_do1.bs_text.text:='4';
|
|
|
fra_ch_add_do1.t_ch_fee_do.open;
|
|
|
|
|
|
fra_ch_delete_do1.v_fee_do_seae.SQL.clear;
|
|
|
fra_ch_delete_do1.v_fee_do_seae.sql.add('select * from v_fee_do_seae '
|
|
|
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
fra_ch_delete_do1.v_fee_do_seae.DataSource:=t_ch_balance1;
|
|
|
fra_ch_delete_do1.v_fee_do_seae.Open;
|
|
|
|
|
|
fra_ch_delete_do1.v_fee_do_seai.SQL.clear;
|
|
|
fra_ch_delete_do1.v_fee_do_seai.sql.add('select * from v_fee_do_seai '
|
|
|
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
fra_ch_delete_do1.v_fee_do_seai.DataSource:=t_ch_balance1;
|
|
|
fra_ch_delete_do1.v_fee_do_seai.Open;
|
|
|
|
|
|
fra_ch_delete_do1.v_fee_do_aire.SQL.clear;
|
|
|
fra_ch_delete_do1.v_fee_do_aire.sql.add('select * from v_fee_do_aire '
|
|
|
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
fra_ch_delete_do1.v_fee_do_aire.DataSource:=t_ch_balance1;
|
|
|
fra_ch_delete_do1.v_fee_do_aire.Open;
|
|
|
|
|
|
fra_ch_delete_do1.v_fee_do_airi.SQL.clear;
|
|
|
fra_ch_delete_do1.v_fee_do_airi.sql.add('select * from v_fee_do_airi '
|
|
|
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
fra_ch_delete_do1.v_fee_do_airi.DataSource:=t_ch_balance1;
|
|
|
fra_ch_delete_do1.v_fee_do_airi.Open;
|
|
|
|
|
|
fra_ch_delete_do1.v_fee_do_seae_sum.SQL.clear;
|
|
|
fra_ch_delete_do1.v_fee_do_seae_sum.sql.add('select <20><><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7) AS <20>·<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>) as ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from v_fee_do_seae '
|
|
|
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> group by <20><><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> '
|
|
|
+'order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7),ԭʼ<D4AD>ұ<EFBFBD>');
|
|
|
fra_ch_delete_do1.v_fee_do_seae_sum.DataSource:=t_ch_balance1;
|
|
|
fra_ch_delete_do1.v_fee_do_seae_sum.Open;
|
|
|
|
|
|
fra_ch_delete_do1.v_fee_do_seai_sum.SQL.clear;
|
|
|
fra_ch_delete_do1.v_fee_do_seai_sum.sql.add('select <20><><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7) AS <20>·<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>) as ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from v_fee_do_seai '
|
|
|
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> group by <20><><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> '
|
|
|
+'order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7),ԭʼ<D4AD>ұ<EFBFBD>');
|
|
|
fra_ch_delete_do1.v_fee_do_seai_sum.DataSource:=t_ch_balance1;
|
|
|
fra_ch_delete_do1.v_fee_do_seai_sum.Open;
|
|
|
|
|
|
fra_ch_delete_do1.v_fee_do_aire_sum.SQL.clear;
|
|
|
fra_ch_delete_do1.v_fee_do_aire_sum.sql.add('select <20><><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7) AS <20>·<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>) as ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from v_fee_do_aire '
|
|
|
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> group by <20><><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> '
|
|
|
+'order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7),ԭʼ<D4AD>ұ<EFBFBD>');
|
|
|
fra_ch_delete_do1.v_fee_do_aire_sum.DataSource:=t_ch_balance1;
|
|
|
fra_ch_delete_do1.v_fee_do_aire_sum.Open;
|
|
|
|
|
|
fra_ch_delete_do1.v_fee_do_airi_sum.SQL.clear;
|
|
|
fra_ch_delete_do1.v_fee_do_airi_sum.sql.add('select <20><><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7) AS <20>·<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>) as ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from v_fee_do_airi '
|
|
|
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> group by <20><><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> '
|
|
|
+'order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7),ԭʼ<D4AD>ұ<EFBFBD>');
|
|
|
fra_ch_delete_do1.v_fee_do_airi_sum.DataSource:=t_ch_balance1;
|
|
|
fra_ch_delete_do1.v_fee_do_airi_sum.Open;
|
|
|
|
|
|
fra_ch_delete_do1.bs_text.Text:='4';
|
|
|
fra_ch_delete_do1.do_ban1.DataSet:=t_ch_balance;
|
|
|
}
|
|
|
|
|
|
loadreggrid(dxdbgrid1,false,caption);
|
|
|
|
|
|
// frm_data_share.t_crm_client_all.requery;
|
|
|
// frm_data_share.t_code_currency.requery;
|
|
|
// frm_data_share.t_sys_bank.requery;
|
|
|
{
|
|
|
t_ch_invoice.close;
|
|
|
t_ch_invoice.sql.clear;
|
|
|
t_ch_invoice.sql.add('select top 50 * from t_ch_zhipiao order by <20><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> desc');
|
|
|
t_ch_invoice.open;
|
|
|
}
|
|
|
dxDBGrid1.EndUpdate;
|
|
|
dxDBGrid3.EndUpdate;
|
|
|
dxDBGrid4.EndUpdate;
|
|
|
dxDBGrid5.EndUpdate;
|
|
|
dxDBGrid19.EndUpdate;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinButton11Click(Sender: TObject);
|
|
|
var
|
|
|
answer:TModalResult;
|
|
|
begin
|
|
|
if bsSkinButton11.Caption='<27>༭<EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
if t_ch_balance.IsEmpty then
|
|
|
exit;
|
|
|
|
|
|
if DBEdit42.text='<27><><EFBFBD><EFBFBD>'then
|
|
|
begin
|
|
|
bsSkinNotebook1.PageIndex:=1;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
bsSkinNotebook1.PageIndex:=2;
|
|
|
end;
|
|
|
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_pay.t_ch_balanceAfterInsert(DataSet: TDataSet);
|
|
|
begin
|
|
|
t_ch_balance['<27>ʵ<EFBFBD>״̬']:='¼<><C2BC>״̬';
|
|
|
t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD><EFBFBD>';
|
|
|
t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
|
|
|
t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
|
|
|
t_ch_balance['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
|
|
|
t_ch_balance['<27>Զ<EFBFBD>']:=1;
|
|
|
t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
|
|
|
t_ch_balance['ʵ<><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
|
|
|
t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
|
|
|
t_ch_balance['<27><><EFBFBD><EFBFBD>']:='<27><>';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinButton2Click(Sender: TObject);
|
|
|
begin
|
|
|
table_post(t_ch_balance);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinButton4Click(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><>ǰҵ<C7B0><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
|
|
|
if not ASSIGNED(frm_sys_progress) then
|
|
|
frm_sys_progress:=tfrm_sys_progress.Create(self);
|
|
|
frm_sys_progress.bsSkinGauge1.ProgressText:='<27><><EFBFBD>ڴ<EFBFBD><DAB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݡ<EFBFBD><DDA1><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
frm_sys_progress.Show;
|
|
|
|
|
|
if not t_ch_fee_balance.Active then
|
|
|
t_ch_fee_balance.open;
|
|
|
if t_ch_fee_balance.recordcount>0 then
|
|
|
frm_sys_progress.bsSkinGauge1.MaxValue:=t_ch_fee_balance.recordcount;
|
|
|
frm_sys_progress.bsSkinGauge1.MinValue:=0;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=0;
|
|
|
frm_sys_progress.Update;
|
|
|
|
|
|
frm_main.db.BeginTrans;
|
|
|
try
|
|
|
t_ch_fee_balance.DisableControls;
|
|
|
t_ch_fee_balance.first;
|
|
|
while not t_ch_fee_balance.eof do begin
|
|
|
if Trim(t_ch_fee_balance.fieldbyname('<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>').asstring)='1' then
|
|
|
Setfee(1,t_ch_fee_balance.fieldbyname('CH_ID').asinteger,t_ch_fee_balance.fieldbyname('ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>').asfloat,true)
|
|
|
else
|
|
|
Setfee(1,t_ch_fee_balance.fieldbyname('CH_ID').asinteger,t_ch_fee_balance.fieldbyname('ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>').asfloat);
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
t_ch_fee_balance.delete;
|
|
|
end;
|
|
|
if t_ch_balance.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>'<27><><EFBFBD><EFBFBD>'then
|
|
|
begin
|
|
|
p_update.Parameters.ParamByName('SQLStr').value:='update t_ch_check set <20><><EFBFBD><EFBFBD>״̬='
|
|
|
+''''+'<27><>֧<D7BC><D6A7>'+''''+',<2C>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>='+''''+''''
|
|
|
+' where <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>='+''''
|
|
|
+t_ch_balance.FieldByName('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').asstring+'''';
|
|
|
p_update.ExecProc;
|
|
|
if t_ch_check.active then
|
|
|
t_ch_check.requery;
|
|
|
end;
|
|
|
t_ch_balance.Edit;
|
|
|
t_ch_balance.FieldByName('isdelete').AsString:='1';
|
|
|
t_ch_balance.Post;
|
|
|
t_ch_balance.Delete;
|
|
|
t_ch_fee_balance.close;
|
|
|
frm_main.db.CommitTrans;
|
|
|
finally
|
|
|
t_ch_fee_balance.EnableControls;
|
|
|
frm_sys_progress.close;
|
|
|
frm_sys_progress:=nil;
|
|
|
if frm_main.db.InTransaction then
|
|
|
begin
|
|
|
frm_main.db.RollbackTrans;
|
|
|
MessageDlg('ɾ<><C9BE><EFBFBD>˵<EFBFBD><CBB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>쳣<EFBFBD><ECB3A3><EFBFBD><EFBFBD>,<2C><>ˢ<EFBFBD>º<EFBFBD><C2BA><EFBFBD><EFBFBD>ԣ<EFBFBD>',mtError,[mbOk],0);
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinButton3Click(Sender: TObject);
|
|
|
begin
|
|
|
table_cancel(t_ch_balance);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.t_ch_balanceBeforePost(DataSet: TDataSet);
|
|
|
begin
|
|
|
table_before_post(t_ch_balance,'<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
table_before_post(t_ch_balance,'<27>ұ<EFBFBD>');
|
|
|
t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=s_w(strtoint(get_parameters_value(65,'2')),t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
|
|
|
t_ch_balance['ʵ<><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=s_w(strtoint(get_parameters_value(65,'2')),t_ch_balance['ʵ<><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
|
|
|
t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=s_w(strtoint(get_parameters_value(65,'2')),t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
|
|
|
if t_ch_balance.FieldByName('<27>Զ<EFBFBD>').asboolean then
|
|
|
begin
|
|
|
t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_balance['ʵ<><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
{if t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']<t_ch_balance['ʵ<><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'] then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EEB2BB>С<EFBFBD><D0A1>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EEA3A1>');
|
|
|
abort;
|
|
|
end; }
|
|
|
end;
|
|
|
{
|
|
|
if t_ch_balance.state=dsinsert then
|
|
|
t_ch_balance['<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>']:=get_no(date,'BP');
|
|
|
}
|
|
|
if t_ch_balance['<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>']='' then
|
|
|
t_ch_balance['<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>']:=get_no(date,'BP');
|
|
|
|
|
|
t_ch_balance['<27>ʵ<EFBFBD>״̬']:=t_ch_balance['<27>ʵ<EFBFBD>״̬'];
|
|
|
t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']-t_ch_balance['ʵ<><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.DBEdit4Enter(Sender: TObject);
|
|
|
begin
|
|
|
if bsSkinDBCheckRadioBox1.Checked then
|
|
|
DBEdit4.ReadOnly:=true
|
|
|
else
|
|
|
DBEdit4.ReadOnly:=false;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.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_pay.RxDBLookupCombo1Enter(Sender: TObject);
|
|
|
begin
|
|
|
if fra_ch_delete_do1.v_fee_do_seae.IsEmpty and fra_ch_delete_do1.v_fee_do_seai.IsEmpty
|
|
|
and fra_ch_delete_do1.v_fee_do_aire.IsEmpty and fra_ch_delete_do1.v_fee_do_airi.IsEmpty then
|
|
|
begin
|
|
|
RxDBLookupCombo1.ReadOnly:=false;
|
|
|
RxDBLookupCombo2.ReadOnly:=false;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
RxDBLookupCombo1.ReadOnly:=true;
|
|
|
RxDBLookupCombo2.ReadOnly:=true;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.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><EFBFBD>ͨ<EFBFBD><CDA8>') then
|
|
|
AColor :=$00DDF21C;
|
|
|
|
|
|
AFont.Color:=clblack;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.DBEdit1Change(Sender: TObject);
|
|
|
begin
|
|
|
if (DBEdit1.Text='') or (DBEdit1.Text='¼<><C2BC>״̬')then
|
|
|
DBEdit1.Color:=clwhite
|
|
|
else if (DBEdit1.Text='<27><><EFBFBD><D7BC>Ʊ') or (DBEdit1.Text='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') then
|
|
|
DBEdit1.Color:=$00DDF21C;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.FormCloseQuery(Sender: TObject;
|
|
|
var CanClose: Boolean);
|
|
|
begin
|
|
|
CanClose:=frm_close_query(t_ch_balance);
|
|
|
CanClose:=frm_close_query(t_ch_invoice);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinButton9Click(Sender: TObject);
|
|
|
begin
|
|
|
if not fra_ch_delete_do1.v_fee_do_seae.Active then fra_ch_delete_do1.v_fee_do_seae.open;
|
|
|
if not fra_ch_delete_do1.v_fee_do_seai.Active then fra_ch_delete_do1.v_fee_do_seai.open;
|
|
|
if not fra_ch_delete_do1.v_fee_do_aire.Active then fra_ch_delete_do1.v_fee_do_aire.open;
|
|
|
if not fra_ch_delete_do1.v_fee_do_airi.Active then fra_ch_delete_do1.v_fee_do_airi.open;
|
|
|
if not fra_ch_delete_do1.v_fee_do_seae_sum.Active then fra_ch_delete_do1.v_fee_do_seae_sum.open;
|
|
|
if not fra_ch_delete_do1.v_fee_do_seae_sum_atd.Active then fra_ch_delete_do1.v_fee_do_seae_sum_atd.open;
|
|
|
if not fra_ch_delete_do1.v_fee_do_seae_monthsum.Active then fra_ch_delete_do1.v_fee_do_seae_monthsum.open;
|
|
|
if not fra_ch_delete_do1.v_fee_do_seai_sum.Active then fra_ch_delete_do1.v_fee_do_seai_sum.open;
|
|
|
if not t_ch_check_detail.Active then t_ch_check_detail.open;
|
|
|
t_crm_client_ty.close;
|
|
|
t_crm_client_ty.sql.clear;
|
|
|
t_crm_client_ty.sql.add('select * from t_crm_client_ty where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='''+t_ch_balance['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']+'''');
|
|
|
t_crm_client_ty.Open;
|
|
|
sys_print('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>ý<EFBFBD><C3BD><EFBFBD>',2,t_ch_balance1,t_ch_check_detail1,
|
|
|
t_crm_client_ty1,nil,fra_ch_delete_do1.v_fee_do_seae1,fra_ch_delete_do1.v_fee_do_seai1,
|
|
|
fra_ch_delete_do1.v_fee_do_seae_sum_atd1,fra_ch_delete_do1.v_fee_do_airi1,
|
|
|
t_ch_balance1,fra_ch_delete_do1.v_fee_do_seae_sum1,fra_ch_delete_do1.v_fee_do_seai_sum1);
|
|
|
|
|
|
t_crm_client_ty.close;
|
|
|
|
|
|
bsSkinNotebook1PageChanged(nil);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinButton6Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_ch_balance.IsEmpty then
|
|
|
exit;
|
|
|
|
|
|
if not if_open('035') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if (t_ch_balance.FieldByName('<27><><EFBFBD>д<EFBFBD><D0B4><EFBFBD>').AsString='') then begin
|
|
|
showmessage('<27><><EFBFBD>в<EFBFBD><D0B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
if t_ch_balance.FieldByName('<27>ʵ<EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'then
|
|
|
begin
|
|
|
showmessage('<27>ʵ<EFBFBD><CAB5>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD>');
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
try
|
|
|
modify_all:=true;
|
|
|
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;
|
|
|
modify_all:=false;
|
|
|
except
|
|
|
modify_all:=false;
|
|
|
showmessage('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD>');
|
|
|
end;
|
|
|
t_ch_balance.Refresh;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinButton8Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_ch_balance.IsEmpty then
|
|
|
exit;
|
|
|
|
|
|
if not if_open('035') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
if t_ch_balance.FieldByName('<27>ʵ<EFBFBD>״̬').asstring='¼<><C2BC>״̬'then
|
|
|
begin
|
|
|
showmessage('<27>ʵ<EFBFBD>û<EFBFBD>б<EFBFBD>Ҫȡ<D2AA><C8A1><EFBFBD><EFBFBD><EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD>');
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
try
|
|
|
modify_all:=true;
|
|
|
t_ch_balance.edit;
|
|
|
t_ch_balance['<27>ʵ<EFBFBD>״̬']:='¼<><C2BC>״̬';
|
|
|
t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
|
|
|
t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
|
|
|
t_ch_balance.post;
|
|
|
modify_all:=false;
|
|
|
except
|
|
|
modify_all:=false;
|
|
|
showmessage('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD>');
|
|
|
end;
|
|
|
t_ch_balance.Refresh;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinButton10Click(Sender: TObject);
|
|
|
begin
|
|
|
try
|
|
|
frm_ch_balance_query:=tfrm_ch_balance_query.Create (self);
|
|
|
balance_query_type:=4;
|
|
|
frm_ch_balance_query.bsSkinGroupBox2.Visible:=true;
|
|
|
frm_ch_balance_query.ShowModal;
|
|
|
finally
|
|
|
frm_ch_balance_query.Free;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.t_ch_balanceAfterPost(DataSet: TDataSet);
|
|
|
var
|
|
|
aQuery2:TAdoQuery;
|
|
|
begin
|
|
|
|
|
|
if (bsSkinNotebook1.PageIndex=1) or (bsSkinNotebook1.PageIndex=2) then begin
|
|
|
case delete_do_type_num of
|
|
|
1:
|
|
|
begin
|
|
|
fra_ch_delete_do1.v_fee_do_seae.Requery;
|
|
|
fra_ch_delete_do1.v_fee_do_seae_sum.Requery;
|
|
|
fra_ch_delete_do1.v_fee_do_seae_monthsum.Requery;
|
|
|
fra_ch_delete_do1.v_fee_do_seae_sum_atd.Requery;
|
|
|
aQuery2:=CreateAdoQuery;
|
|
|
try
|
|
|
fra_ch_delete_do1.v_fee_do_seae.first;
|
|
|
while not fra_ch_delete_do1.v_fee_do_seae.eof do begin
|
|
|
if fra_ch_delete_do1.v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString='<27><>' then begin
|
|
|
aQuery2.close;aQuery2.sql.clear;
|
|
|
aQuery2.sql.Text:='select ҵ<><D2B5>״̬ from t_op_seae where ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+fra_ch_delete_do1.v_fee_do_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''';
|
|
|
aquery2.Open;
|
|
|
if not aQuery2.IsEmpty then begin
|
|
|
if aquery2.FieldByName('ҵ<><D2B5>״̬').AsString<>'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then begin
|
|
|
aQuery2.Edit;
|
|
|
aQuery2.fieldbyname('ҵ<><D2B5>״̬').asstring:='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
aQuery2.post;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
fra_ch_delete_do1.v_fee_do_seae.next;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery2);
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
2:
|
|
|
begin
|
|
|
fra_ch_delete_do1.v_fee_do_seai.Requery;
|
|
|
fra_ch_delete_do1.v_fee_do_seai_sum.Requery;
|
|
|
end;
|
|
|
3:
|
|
|
begin
|
|
|
fra_ch_delete_do1.v_fee_do_aire.Requery;
|
|
|
fra_ch_delete_do1.v_fee_do_aire_sum.Requery;
|
|
|
end;
|
|
|
4:
|
|
|
begin
|
|
|
fra_ch_delete_do1.v_fee_do_airi.Requery;
|
|
|
fra_ch_delete_do1.v_fee_do_airi_sum.Requery;
|
|
|
end;
|
|
|
end;
|
|
|
{
|
|
|
case delete_do_type_num of
|
|
|
1,2,3,4:
|
|
|
begin
|
|
|
check_do_sum(4,t_ch_balance,
|
|
|
fra_ch_delete_do1.v_fee_do_seae_sum,fra_ch_delete_do1.v_fee_do_seai_sum,
|
|
|
fra_ch_delete_do1.v_fee_do_aire_sum,fra_ch_delete_do1.v_fee_do_airi_sum);
|
|
|
end;
|
|
|
end;
|
|
|
}
|
|
|
{
|
|
|
if if_ch_delete_do then
|
|
|
begin
|
|
|
case delete_do_type_num of
|
|
|
1,2,3,4:
|
|
|
begin
|
|
|
if fra_ch_add_do1.t_op_seae.Active then
|
|
|
begin
|
|
|
fra_ch_add_do1.t_ch_fee.Requery();
|
|
|
fra_ch_add_do1.t_ch_fee_sum.Requery();
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
delete_do_type_num:=0;
|
|
|
if_ch_delete_do:=false;
|
|
|
}
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.t_ch_balanceAfterDelete(DataSet: TDataSet);
|
|
|
begin
|
|
|
if fra_ch_add_do1.t_op_seae.Active then
|
|
|
fra_ch_add_do1.t_op_seae.Requery();
|
|
|
if fra_ch_add_do1.t_op_seai.Active then
|
|
|
fra_ch_add_do1.t_op_seai.Requery();
|
|
|
if fra_ch_add_do1.t_op_aire.Active then
|
|
|
fra_ch_add_do1.t_op_aire.Requery();
|
|
|
if fra_ch_add_do1.t_op_airi.Active then
|
|
|
fra_ch_add_do1.t_op_airi.Requery();
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.DBEdit14KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.DBEdit1KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.RxDBLookupCombo1KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBComboBox(Key,wwDBComboBox1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.wwDBComboBox1KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo2);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.RxDBLookupCombo2KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit4);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.DBEdit4KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit5);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.DBEdit5KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit6);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.DBEdit6KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinDBCheckRadioBox1KeyPress(
|
|
|
Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
// key_RxDBLookupCombo(Key,RxDBLookupCombo3);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.RxDBLookupCombo3KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit8);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.DBEdit8KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit9);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.DBEdit9KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit10);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.DBEdit10KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.N10Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.N14Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.N12Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid(dxdbgrid1,3);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.N16Click(Sender: TObject);
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.dxDBGrid1ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
begin
|
|
|
Column_sort(Column,t_ch_balance,'<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.RxDBLookupCombo2Change(Sender: TObject);
|
|
|
begin
|
|
|
if (t_ch_balance.state=dsinsert)or(t_ch_balance1.state=dsedit)then
|
|
|
begin
|
|
|
if RxDBLookupCombo2.DisplayValues[0]<>''then
|
|
|
begin
|
|
|
if frm_data_share.t_sys_bank.Locate('<27>ұ<EFBFBD>',RxDBLookupCombo2.DisplayValues[0],[])then
|
|
|
begin
|
|
|
t_ch_balance['<27><><EFBFBD><EFBFBD>']:=frm_data_share.t_sys_bank.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.DBEdit42Change(Sender: TObject);
|
|
|
begin
|
|
|
if bsSkinNotebook1.PageIndex<>0 then
|
|
|
begin
|
|
|
if DBEdit42.text='<27><><EFBFBD><EFBFBD>'then
|
|
|
begin
|
|
|
bsSkinNotebook1.PageIndex:=1;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
bsSkinNotebook1.PageIndex:=2;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinButton21Click(Sender: TObject);
|
|
|
begin
|
|
|
close;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinButton25Click(Sender: TObject);
|
|
|
begin
|
|
|
|
|
|
if t_ch_check.IsEmpty then
|
|
|
exit;
|
|
|
if (t_ch_check.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>֧<D7BC><D6A7>') and
|
|
|
(t_ch_check.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD><EFBFBD>') then
|
|
|
begin
|
|
|
showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5>֧<EFBFBD><D6A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if not t_ch_fee_do_check.Active then
|
|
|
t_ch_fee_do_check.open;
|
|
|
|
|
|
try
|
|
|
frm_ch_check_do:=tfrm_ch_check_do.Create (self);
|
|
|
frm_ch_check_do.Edit1.text:=t_ch_check.fieldbyname('<27><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>').asstring;
|
|
|
frm_ch_check_do.ShowModal;
|
|
|
finally
|
|
|
frm_ch_check_do.Free;
|
|
|
frm_ch_check_do:=nil;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinPageControl1Changing(Sender: TObject;
|
|
|
var AllowChange: Boolean);
|
|
|
begin
|
|
|
if ch_balance_pay_open then
|
|
|
begin
|
|
|
if (t_ch_balance.State=dsinsert)or(t_ch_balance.State=dsedit) then
|
|
|
BEGIN
|
|
|
if application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE>ģ<DEB8><C4A3>Ƿ棿','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
t_ch_balance.post
|
|
|
else
|
|
|
t_ch_balance.cancel;
|
|
|
END;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinButton24Click(Sender: TObject);
|
|
|
begin
|
|
|
try
|
|
|
frm_ch_shen_query:=tfrm_ch_shen_query.Create (self);
|
|
|
shen_query_type:=6;
|
|
|
shen_query_limited:='no';
|
|
|
shen_query_op_limited:='no';
|
|
|
frm_ch_shen_query.ShowModal;
|
|
|
finally
|
|
|
frm_ch_shen_query.Free;
|
|
|
frm_ch_shen_query:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinButton12Click(Sender: TObject);
|
|
|
begin
|
|
|
|
|
|
t_ch_check.close;
|
|
|
t_ch_check.sql.clear;
|
|
|
t_ch_check.sql.add('select * from t_ch_check '
|
|
|
+'where <20><><EFBFBD><EFBFBD>״̬ in ('+''''+'<27><>֧<D7BC><D6A7>'+''''+','
|
|
|
+''''+'<27><>ֹ<EFBFBD><EFBFBD>'+''''+')'
|
|
|
+' AND Ҫ<><D2AA>֧<EFBFBD><D6A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+datetostr(date)+''''
|
|
|
+' order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
t_ch_check.open;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinPanel5Resize(Sender: TObject);
|
|
|
var
|
|
|
i:integer;
|
|
|
begin
|
|
|
i:=round(bsSkinPanel5.width/5);
|
|
|
bsSkinButton24.width:=i;
|
|
|
bsSkinButton12.width:=i;
|
|
|
bsSkinButton7.width:=i;
|
|
|
bsSkinButton25.width:=i;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinButton7Click(Sender: TObject);
|
|
|
var
|
|
|
Pnt:Tpoint;
|
|
|
begin
|
|
|
Pnt:=bsSkinButton7.ClientToScreen(Point(0,bsSkinButton7.Height));
|
|
|
PopupMenu3.Popup(Pnt.x,Pnt.y);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.N17Click(Sender: TObject);
|
|
|
begin
|
|
|
t_ch_check.Close;
|
|
|
t_ch_check.SQL.clear;
|
|
|
t_ch_check.SQL.Add('select * from t_ch_check where <20><><EFBFBD><EFBFBD>״̬ in ('+''''+'<27><><EFBFBD><EFBFBD>֧<EFBFBD><D6A7>'+''''
|
|
|
+') '
|
|
|
+'order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
|
|
|
t_ch_check.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.N34Click(Sender: TObject);
|
|
|
begin
|
|
|
t_ch_check.Close;
|
|
|
t_ch_check.SQL.clear;
|
|
|
t_ch_check.SQL.Add('select * from t_ch_check where <20><><EFBFBD><EFBFBD>״̬ in ('+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''
|
|
|
+','+''''+'<27><>ֹ<EFBFBD><EFBFBD>'+''''+') '
|
|
|
+'order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
|
|
|
t_ch_check.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.N36Click(Sender: TObject);
|
|
|
begin
|
|
|
t_ch_check.Close;
|
|
|
t_ch_check.SQL.clear;
|
|
|
t_ch_check.SQL.Add('select * from t_ch_check where <20><><EFBFBD><EFBFBD>״̬ in ('+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''
|
|
|
+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+') '
|
|
|
+'order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
|
|
|
t_ch_check.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.N6Click(Sender: TObject);
|
|
|
begin
|
|
|
t_ch_check.Close;
|
|
|
t_ch_check.SQL.clear;
|
|
|
t_ch_check.SQL.Add('select * from t_ch_check where <20><><EFBFBD><EFBFBD>״̬ in ('+''''+'<27><>֧<D7BC><D6A7>'+''''
|
|
|
+','+''''+'<27><>ֹ<EFBFBD><EFBFBD>'+''''+') '
|
|
|
+'order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
|
|
|
t_ch_check.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.N4Click(Sender: TObject);
|
|
|
begin
|
|
|
t_ch_check.Close;
|
|
|
t_ch_check.SQL.clear;
|
|
|
t_ch_check.SQL.Add('select * from t_ch_check where <20><><EFBFBD><EFBFBD>״̬ in ('+''''+'֧<><D6A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+') '
|
|
|
+'order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
|
|
|
t_ch_check.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinButton13Click(Sender: TObject);
|
|
|
begin
|
|
|
try
|
|
|
frm_crm_client_ty_view:=tfrm_crm_client_ty_view.Create (application);
|
|
|
frm_crm_client_ty_view.t_crm_client_ty.close;
|
|
|
frm_crm_client_ty_view.t_crm_client_ty.sql.clear;
|
|
|
frm_crm_client_ty_view.t_crm_client_ty.sql.add('select * from t_crm_client_ty where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='''+t_ch_balance['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']+'''');
|
|
|
frm_crm_client_ty_view.t_crm_client_ty.Open;
|
|
|
if frm_crm_client_ty_view.t_crm_client_ty.IsEmpty then begin
|
|
|
MessageDlg('<27>˿ͻ<CBBF><CDBB><EFBFBD><EFBFBD><EFBFBD>Ӷ<EFBFBD><D3B6><EFBFBD>ϣ<EFBFBD>',mtWarning,[mbYes],0);
|
|
|
end else begin
|
|
|
frm_crm_client_ty_view.ShowModal;
|
|
|
end;
|
|
|
finally
|
|
|
frm_crm_client_ty_view.Free;
|
|
|
frm_crm_client_ty_view:=nil;
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
{
|
|
|
if t_ch_balance.IsEmpty then
|
|
|
exit;
|
|
|
try
|
|
|
afield := vararraycreate([0,t_ch_balance.fieldcount-1],varvariant);
|
|
|
for i := 0 to (t_ch_balance.fieldcount-1) do
|
|
|
begin
|
|
|
afield[i] :=t_ch_balance.fields[i].value ;
|
|
|
end;
|
|
|
t_ch_balance.insert;
|
|
|
for i := 0 to (t_ch_balance.fieldcount-1) do
|
|
|
begin
|
|
|
if t_ch_balance.fields[i].FieldName<>'<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>'then
|
|
|
t_ch_balance.fields[i].value := afield[i] ;
|
|
|
end;
|
|
|
t_ch_balance['<27>ʵ<EFBFBD>״̬']:='¼<><C2BC>״̬';
|
|
|
t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD><EFBFBD>';
|
|
|
t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
|
|
|
t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
|
|
|
t_ch_balance['<27>Զ<EFBFBD>']:=1;
|
|
|
t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
|
|
|
t_ch_balance['ʵ<><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
|
|
|
t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
|
|
|
t_ch_balance['<27><><EFBFBD><EFBFBD>']:='<27><>';
|
|
|
t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
|
|
|
t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
|
|
|
t_ch_balance['<27><>ע']:='';
|
|
|
t_ch_balance['<27><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>']:='';
|
|
|
t_ch_balance['<27><><EFBFBD><EFBFBD>']:=0;
|
|
|
t_ch_balance['<27><><EFBFBD><EFBFBD>ƾ֤']:='';
|
|
|
bsSkinNotebook1.PageIndex:=1;
|
|
|
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
|
|
|
except
|
|
|
if t_ch_balance.state=dsinsert then
|
|
|
t_ch_balance.cancel;
|
|
|
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD>');
|
|
|
end;
|
|
|
}
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.t_ch_invoiceAfterInsert(DataSet: TDataSet);
|
|
|
begin
|
|
|
t_ch_invoice['<27>Ƶ<EFBFBD><C6B5><EFBFBD>']:=employee;
|
|
|
t_ch_invoice['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=date;
|
|
|
t_ch_invoice['֧Ʊ<D6A7><C6B1><EFBFBD><EFBFBD>']:=0;
|
|
|
t_ch_invoice['֧Ʊ<D6A7><C6B1><EFBFBD><EFBFBD>']:='ת<><D7AA>֧Ʊ';
|
|
|
t_ch_invoice['<27>ұ<EFBFBD>']:='RMB';
|
|
|
t_ch_invoice['<27><>']:=my_strtoyear(date);
|
|
|
t_ch_invoice['<27><>']:=my_strtomonth(Date);
|
|
|
t_ch_invoice['<27><>']:=my_strtodday(Date);
|
|
|
t_ch_invoice['<27><><EFBFBD><EFBFBD>״̬']:=0;
|
|
|
t_ch_invoice['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ']:=0;
|
|
|
t_ch_invoice['<27>Ƿ<EFBFBD><C7B7>ϳ<EFBFBD>']:=0;
|
|
|
// snccy.CurrencySymbol:='<27><>';
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinButton19Click(Sender: TObject);
|
|
|
begin
|
|
|
t_ch_invoice.Insert;
|
|
|
bsSkinPageControl4.ActivePageIndex:=1;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinButton20Click(Sender: TObject);
|
|
|
begin
|
|
|
table_post(t_ch_invoice);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinButton27Click(Sender: TObject);
|
|
|
begin
|
|
|
table_post(t_ch_invoice);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinButton23Click(Sender: TObject);
|
|
|
begin
|
|
|
table_cancel(t_ch_invoice);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinButton29Click(Sender: TObject);
|
|
|
begin
|
|
|
table_cancel(t_ch_invoice);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinButton35Click(Sender: TObject);
|
|
|
begin
|
|
|
table_Prior(t_ch_invoice);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinButton36Click(Sender: TObject);
|
|
|
begin
|
|
|
|
|
|
table_next(t_ch_invoice);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.t_ch_invoiceBeforePost(DataSet: TDataSet);
|
|
|
begin
|
|
|
table_before_post(t_ch_invoice,'֧Ʊ<D6A7><C6B1><EFBFBD><EFBFBD>');
|
|
|
table_before_post(t_ch_invoice,'<27>ұ<EFBFBD>');
|
|
|
table_before_post(t_ch_invoice,'֧Ʊ<D6A7><C6B1><EFBFBD><EFBFBD>');
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinButton18Click(Sender: TObject);
|
|
|
begin
|
|
|
bsSkinTabSheet12.Show;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinButton33Click(Sender: TObject);
|
|
|
begin
|
|
|
bsSkinTabSheet11.Show;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinButton31Click(Sender: TObject);
|
|
|
var
|
|
|
Pnt:Tpoint;
|
|
|
begin
|
|
|
Pnt:=bsSkinButton31.ClientToScreen(Point(0,bsSkinButton31.Height));
|
|
|
PopupMenu1.Popup(Pnt.x,Pnt.y);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinButton15Click(Sender: TObject);
|
|
|
var
|
|
|
Pnt:Tpoint;
|
|
|
begin
|
|
|
Pnt:=bsSkinButton15.ClientToScreen(Point(0,bsSkinButton15.Height));
|
|
|
PopupMenu1.Popup(Pnt.x,Pnt.y);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.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('ҵ<><D2B5>֧Ʊ<D6A7><C6B1>ӡ',1,t_ch_invoice1,nil,nil,nil,nil,nil,nil,nil,t_ch_invoice1,nil,nil);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.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('ҵ<><D2B5>֧Ʊ<D6A7><C6B1>ӡ',2,t_ch_invoice1,nil,nil,nil,nil,nil,nil,nil,t_ch_invoice1,nil,nil);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.t_ch_invoiceBeforeEdit(DataSet: TDataSet);
|
|
|
begin
|
|
|
if not modify_all then
|
|
|
begin
|
|
|
if t_ch_invoice.FieldByName('<27>Ƿ<EFBFBD><C7B7>ϳ<EFBFBD>').asboolean then
|
|
|
begin
|
|
|
showmessage('֧Ʊ<D6A7>Ѿ<EFBFBD><D1BE>ϳ<EFBFBD><CFB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ģ<DEB8><C4A3><EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
if t_ch_invoice.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ').asboolean then
|
|
|
begin
|
|
|
showmessage('֧Ʊ<D6A7>Ѿ<EFBFBD><D1BE><EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ģ<DEB8><C4A3><EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinButton32Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_ch_invoice.IsEmpty then
|
|
|
exit;
|
|
|
if not if_open('031') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_ch_invoice.FieldByName('<27>Ƿ<EFBFBD><C7B7>ϳ<EFBFBD>').asboolean then
|
|
|
begin
|
|
|
showmessage('֧Ʊ<D6A7>Ѿ<EFBFBD><D1BE>ϳ<EFBFBD><CFB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_ch_invoice.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ').asboolean then
|
|
|
begin
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫȡ<D2AA><C8A1><EFBFBD><EFBFBD>ӡ<EFBFBD><D3A1>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
try
|
|
|
modify_all:=true;
|
|
|
t_ch_invoice.Edit;
|
|
|
t_ch_invoice['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ']:=0;
|
|
|
t_ch_invoice.post;
|
|
|
finally
|
|
|
modify_all:=false;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinButton28Click(Sender: TObject);
|
|
|
var
|
|
|
str:widestring;
|
|
|
if_shen:string;
|
|
|
in_id:integer;
|
|
|
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><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
if t_ch_invoice.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ').asboolean then
|
|
|
begin
|
|
|
str:=trim(InputBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϳ<EFBFBD>ԭ<EFBFBD><D4AD>', '<27>ϳ<EFBFBD>ԭ<EFBFBD><D4AD><EFBFBD><EFBFBD>', ''));
|
|
|
if str=''then
|
|
|
begin
|
|
|
showmessage('<27>ϳ<EFBFBD>ԭ<EFBFBD><D4AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD><D5A3>ϳ<EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD>');
|
|
|
exit;
|
|
|
end
|
|
|
else if str=''then
|
|
|
begin
|
|
|
exit;
|
|
|
end;
|
|
|
in_id:=t_ch_invoice.FieldByName('ZP_ID').asinteger;
|
|
|
t_ch_invoice.Refresh;
|
|
|
if not t_ch_invoice.locate('ZP_ID',in_id,[]) then
|
|
|
exit;
|
|
|
try
|
|
|
modify_all:=true;
|
|
|
t_ch_invoice.Edit;
|
|
|
t_ch_invoice['<27>Ƿ<EFBFBD><C7B7>ϳ<EFBFBD>']:=1;
|
|
|
t_ch_invoice['<27>ϳ<EFBFBD>ԭ<EFBFBD><D4AD>']:=str;
|
|
|
t_ch_invoice['<27>ϳ<EFBFBD><CFB3><EFBFBD>']:=employee;
|
|
|
t_ch_invoice['<27>ϳ<EFBFBD><CFB3><EFBFBD><EFBFBD><EFBFBD>']:=now;
|
|
|
t_ch_invoice['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
|
|
|
t_ch_invoice.post;
|
|
|
modify_all:=false;
|
|
|
except
|
|
|
modify_all:=false;
|
|
|
showmessage('<27>ϳ<EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
t_ch_invoice.delete
|
|
|
else
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.t_ch_invoiceDSDesigner8Change(
|
|
|
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['֧Ʊ<D6A7><C6B1><EFBFBD><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['֧Ʊ<D6A7><C6B1><EFBFBD><EFBFBD>']))
|
|
|
end else begin
|
|
|
lowamont:=formatfloat('0.00',Sender.DataSet['֧Ʊ<D6A7><C6B1><EFBFBD><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['֧Ʊ<D6A7><C6B1><EFBFBD><EFBFBD>']));
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.t_ch_invoiceDSDesigner5Change(
|
|
|
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_pay.bsSkinButton131Click(Sender: TObject);
|
|
|
begin
|
|
|
t_ch_invoice.close;
|
|
|
t_ch_invoice.sql.clear;
|
|
|
t_ch_invoice.sql.add('select top 50 * from t_ch_zhipiao order by <20><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> desc');
|
|
|
t_ch_invoice.open;
|
|
|
t_ch_invoice.Insert;
|
|
|
t_ch_invoice['֧Ʊ<D6A7><C6B1><EFBFBD><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><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=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:=bskntbshtTBS3;
|
|
|
bsSkinPageControl4.ActivePage:=bsSkinTabSheet12;
|
|
|
// t_ch_invoice.Post;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.t_ch_invoiceDSDesigner6Change(
|
|
|
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_pay.t_ch_invoiceDSDesigner2Change(
|
|
|
Sender: TField);
|
|
|
begin
|
|
|
try
|
|
|
if (t_ch_invoice.state=dsinsert) or (t_ch_invoice.state=dsedit) then
|
|
|
begin
|
|
|
if not frm_data_share.t_crm_client.IsEmpty then
|
|
|
if frm_data_share.t_crm_client.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',t_ch_invoice['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>'],[])then
|
|
|
if t_ch_invoice['<27>ұ<EFBFBD>']='RMB' then begin
|
|
|
t_ch_invoice['<27>տλ']:=frm_data_share.t_crm_client.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֧Ʊ̧ͷ').asstring;
|
|
|
t_ch_invoice['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client.fieldbyname('<27><><EFBFBD><EFBFBD>RMB').asstring;
|
|
|
t_ch_invoice['<27>տ<EFBFBD><D5BF><EFBFBD><EFBFBD>ʺ<EFBFBD>']:=frm_data_share.t_crm_client.fieldbyname('<27>ʺ<EFBFBD>RMB').asstring;
|
|
|
|
|
|
end else begin
|
|
|
t_ch_invoice['<27>տλ']:=frm_data_share.t_crm_client.fieldbyname('<27><>Ԫ֧Ʊ̧ͷ').asstring;
|
|
|
t_ch_invoice['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client.fieldbyname('<27><><EFBFBD><EFBFBD>USD').asstring;
|
|
|
t_ch_invoice['<27>տ<EFBFBD><D5BF><EFBFBD><EFBFBD>ʺ<EFBFBD>']:=frm_data_share.t_crm_client.fieldbyname('<27>ʺ<EFBFBD>USD').asstring;
|
|
|
|
|
|
end;
|
|
|
end;
|
|
|
except
|
|
|
;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.t_ch_invoice1DataChange(Sender: TObject;
|
|
|
Field: TField);
|
|
|
begin
|
|
|
if t_ch_invoice['<27>ұ<EFBFBD>']='RMB' then begin
|
|
|
snccy.CurrencySymbol:='<27><>';
|
|
|
Label70.Visible:=false;
|
|
|
Label77.Visible:=True;
|
|
|
end else begin
|
|
|
|
|
|
snccy.CurrencySymbol:='$';
|
|
|
Label70.Visible:=true;
|
|
|
Label77.Visible:=false;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.dxDBGrid19DblClick(Sender: TObject);
|
|
|
begin
|
|
|
bsSkinTabSheet12.Show;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinButton26Click(Sender: TObject);
|
|
|
begin
|
|
|
t_ch_invoice.Insert;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinButton17Click(Sender: TObject);
|
|
|
begin
|
|
|
try
|
|
|
frm_crm_client_ty_view:=tfrm_crm_client_ty_view.Create (application);
|
|
|
frm_crm_client_ty_view.t_crm_client_ty.close;
|
|
|
frm_crm_client_ty_view.t_crm_client_ty.sql.clear;
|
|
|
frm_crm_client_ty_view.t_crm_client_ty.sql.add('select * from t_crm_client_ty where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='''+t_ch_check['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']+'''');
|
|
|
frm_crm_client_ty_view.t_crm_client_ty.Open;
|
|
|
if frm_crm_client_ty_view.t_crm_client_ty.IsEmpty then begin
|
|
|
MessageDlg('<27>˿ͻ<CBBF><CDBB><EFBFBD><EFBFBD><EFBFBD>Ӷ<EFBFBD><D3B6><EFBFBD>ϣ<EFBFBD>',mtWarning,[mbYes],0);
|
|
|
end else begin
|
|
|
frm_crm_client_ty_view.ShowModal;
|
|
|
end;
|
|
|
finally
|
|
|
frm_crm_client_ty_view.Free;
|
|
|
frm_crm_client_ty_view:=nil;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinButton34Click(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_pay.bsSkinPageControl1Change(Sender: TObject);
|
|
|
begin
|
|
|
if not ch_balance_pay_open then exit;
|
|
|
if bsSkinPageControl1.ActivePage=bskntbshtTBS3 then begin
|
|
|
if t_ch_invoice.Active then exit;
|
|
|
t_ch_invoice.close;
|
|
|
t_ch_invoice.sql.clear;
|
|
|
t_ch_invoice.sql.add('select top 50 * from t_ch_zhipiao order by <20><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> desc');
|
|
|
t_ch_invoice.open;
|
|
|
end else begin
|
|
|
t_ch_invoice.close;
|
|
|
end;
|
|
|
if bsSkinPageControl1.ActivePage=bsSkinTabSheet2 then begin
|
|
|
t_ch_check.open;
|
|
|
v_fee_do_seae.open;
|
|
|
// v_fee_do_seai.open;
|
|
|
// v_fee_do_aire.open;
|
|
|
// v_fee_do_airi.open;
|
|
|
v_fee_do_seae_sum.Open;
|
|
|
|
|
|
// v_fee_do_seai_sum.open;
|
|
|
// v_fee_do_aire_sum.open;
|
|
|
// v_fee_do_airi_sum.open;
|
|
|
end else begin
|
|
|
v_fee_do_seae.close;
|
|
|
v_fee_do_seae_sum.close;
|
|
|
{
|
|
|
v_fee_do_seai.close;
|
|
|
v_fee_do_aire.close;
|
|
|
v_fee_do_airi.close;
|
|
|
v_fee_do_seai_sum.close;
|
|
|
v_fee_do_aire_sum.close;
|
|
|
v_fee_do_airi_sum.close;
|
|
|
t_ch_fee_do_check.close;
|
|
|
}
|
|
|
t_ch_check.close;
|
|
|
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinNotebook1PageChanged(Sender: TObject);
|
|
|
begin
|
|
|
if bsSkinNotebook1.PageIndex=1 then begin
|
|
|
fra_ch_add_do1.do_ban1.DataSet:=t_ch_balance;
|
|
|
fra_ch_add_do1.bs_text.text:='4';
|
|
|
fra_ch_add_do1.t_ch_fee_do.open;
|
|
|
|
|
|
fra_ch_delete_do1.v_fee_do_seae.close;
|
|
|
fra_ch_delete_do1.v_fee_do_seae.SQL.clear;
|
|
|
fra_ch_delete_do1.v_fee_do_seae.sql.add('select * from v_fee_do_seae '
|
|
|
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
fra_ch_delete_do1.v_fee_do_seae.DataSource:=t_ch_balance1;
|
|
|
fra_ch_delete_do1.v_fee_do_seae.Open;
|
|
|
|
|
|
fra_ch_delete_do1.v_fee_do_seai.close;
|
|
|
fra_ch_delete_do1.v_fee_do_seai.SQL.clear;
|
|
|
fra_ch_delete_do1.v_fee_do_seai.sql.add('select * from v_fee_do_seai '
|
|
|
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
fra_ch_delete_do1.v_fee_do_seai.DataSource:=t_ch_balance1;
|
|
|
fra_ch_delete_do1.v_fee_do_seai.Open;
|
|
|
|
|
|
fra_ch_delete_do1.v_fee_do_aire.close;
|
|
|
fra_ch_delete_do1.v_fee_do_aire.SQL.clear;
|
|
|
fra_ch_delete_do1.v_fee_do_aire.sql.add('select * from v_fee_do_aire '
|
|
|
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
fra_ch_delete_do1.v_fee_do_aire.DataSource:=t_ch_balance1;
|
|
|
fra_ch_delete_do1.v_fee_do_aire.Open;
|
|
|
|
|
|
fra_ch_delete_do1.v_fee_do_airi.close;
|
|
|
fra_ch_delete_do1.v_fee_do_airi.SQL.clear;
|
|
|
fra_ch_delete_do1.v_fee_do_airi.sql.add('select * from v_fee_do_airi '
|
|
|
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
fra_ch_delete_do1.v_fee_do_airi.DataSource:=t_ch_balance1;
|
|
|
fra_ch_delete_do1.v_fee_do_airi.Open;
|
|
|
|
|
|
fra_ch_delete_do1.v_fee_do_seae_sum.close;
|
|
|
fra_ch_delete_do1.v_fee_do_seae_sum.SQL.clear;
|
|
|
fra_ch_delete_do1.v_fee_do_seae_sum.sql.add('select <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD>·<EFBFBD> AS <20>·<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>) as ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from v_fee_do_seae '
|
|
|
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> group by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD>·<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> '
|
|
|
+'order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD>·<EFBFBD>');
|
|
|
fra_ch_delete_do1.v_fee_do_seae_sum.DataSource:=t_ch_balance1;
|
|
|
fra_ch_delete_do1.v_fee_do_seae_sum.Open;
|
|
|
|
|
|
fra_ch_delete_do1.v_fee_do_seae_monthsum.close;
|
|
|
fra_ch_delete_do1.v_fee_do_seae_monthsum.SQL.clear;
|
|
|
fra_ch_delete_do1.v_fee_do_seae_monthsum.sql.add('select <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD>·<EFBFBD> AS <20>·<EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>) as ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from v_fee_do_seae '
|
|
|
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> group by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD>·<EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> '
|
|
|
+'order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD>·<EFBFBD>');
|
|
|
fra_ch_delete_do1.v_fee_do_seae_monthsum.DataSource:=t_ch_balance1;
|
|
|
fra_ch_delete_do1.v_fee_do_seae_monthsum.Open;
|
|
|
|
|
|
fra_ch_delete_do1.v_fee_do_seae_sum_atd.close;
|
|
|
fra_ch_delete_do1.v_fee_do_seae_sum_atd.SQL.clear;
|
|
|
fra_ch_delete_do1.v_fee_do_seae_sum_atd.sql.add('select <20><><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7) AS <20>·<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>) as ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from v_fee_do_seae '
|
|
|
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> group by <20><><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> '
|
|
|
+'order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7),ԭʼ<D4AD>ұ<EFBFBD>');
|
|
|
fra_ch_delete_do1.v_fee_do_seae_sum_atd.DataSource:=t_ch_balance1;
|
|
|
fra_ch_delete_do1.v_fee_do_seae_sum_atd.Open;
|
|
|
|
|
|
|
|
|
fra_ch_delete_do1.v_fee_do_seai_sum.close;
|
|
|
fra_ch_delete_do1.v_fee_do_seai_sum.SQL.clear;
|
|
|
fra_ch_delete_do1.v_fee_do_seai_sum.sql.add('select <20><><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7) AS <20>·<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>) as ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from v_fee_do_seai '
|
|
|
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> group by <20><><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> '
|
|
|
+'order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7),ԭʼ<D4AD>ұ<EFBFBD>');
|
|
|
fra_ch_delete_do1.v_fee_do_seai_sum.DataSource:=t_ch_balance1;
|
|
|
fra_ch_delete_do1.v_fee_do_seai_sum.Open;
|
|
|
|
|
|
fra_ch_delete_do1.v_fee_do_aire_sum.close;
|
|
|
fra_ch_delete_do1.v_fee_do_aire_sum.SQL.clear;
|
|
|
fra_ch_delete_do1.v_fee_do_aire_sum.sql.add('select <20><><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7) AS <20>·<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>) as ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from v_fee_do_aire '
|
|
|
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> group by <20><><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> '
|
|
|
+'order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7),ԭʼ<D4AD>ұ<EFBFBD>');
|
|
|
fra_ch_delete_do1.v_fee_do_aire_sum.DataSource:=t_ch_balance1;
|
|
|
fra_ch_delete_do1.v_fee_do_aire_sum.Open;
|
|
|
|
|
|
fra_ch_delete_do1.v_fee_do_airi_sum.close;
|
|
|
fra_ch_delete_do1.v_fee_do_airi_sum.SQL.clear;
|
|
|
fra_ch_delete_do1.v_fee_do_airi_sum.sql.add('select <20><><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7) AS <20>·<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>) as ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from v_fee_do_airi '
|
|
|
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> group by <20><><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> '
|
|
|
+'order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7),ԭʼ<D4AD>ұ<EFBFBD>');
|
|
|
fra_ch_delete_do1.v_fee_do_airi_sum.DataSource:=t_ch_balance1;
|
|
|
fra_ch_delete_do1.v_fee_do_airi_sum.Open;
|
|
|
|
|
|
end else if bsSkinNotebook1.PageIndex=2 then begin
|
|
|
|
|
|
fra_ch_delete_do1.v_fee_do_seae.close;
|
|
|
fra_ch_delete_do1.v_fee_do_seae.SQL.clear;
|
|
|
fra_ch_delete_do1.v_fee_do_seae.sql.add('select * from v_fee_do_seae '
|
|
|
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
fra_ch_delete_do1.v_fee_do_seae.DataSource:=t_ch_balance1;
|
|
|
fra_ch_delete_do1.v_fee_do_seae.Open;
|
|
|
|
|
|
fra_ch_delete_do1.v_fee_do_seai.close;
|
|
|
fra_ch_delete_do1.v_fee_do_seai.SQL.clear;
|
|
|
fra_ch_delete_do1.v_fee_do_seai.sql.add('select * from v_fee_do_seai '
|
|
|
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
fra_ch_delete_do1.v_fee_do_seai.DataSource:=t_ch_balance1;
|
|
|
fra_ch_delete_do1.v_fee_do_seai.Open;
|
|
|
|
|
|
fra_ch_delete_do1.v_fee_do_aire.close;
|
|
|
fra_ch_delete_do1.v_fee_do_aire.SQL.clear;
|
|
|
fra_ch_delete_do1.v_fee_do_aire.sql.add('select * from v_fee_do_aire '
|
|
|
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
fra_ch_delete_do1.v_fee_do_aire.DataSource:=t_ch_balance1;
|
|
|
fra_ch_delete_do1.v_fee_do_aire.Open;
|
|
|
|
|
|
fra_ch_delete_do1.v_fee_do_airi.close;
|
|
|
fra_ch_delete_do1.v_fee_do_airi.SQL.clear;
|
|
|
fra_ch_delete_do1.v_fee_do_airi.sql.add('select * from v_fee_do_airi '
|
|
|
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
fra_ch_delete_do1.v_fee_do_airi.DataSource:=t_ch_balance1;
|
|
|
fra_ch_delete_do1.v_fee_do_airi.Open;
|
|
|
|
|
|
fra_ch_delete_do1.v_fee_do_seae_sum.close;
|
|
|
fra_ch_delete_do1.v_fee_do_seae_sum.SQL.clear;
|
|
|
fra_ch_delete_do1.v_fee_do_seae_sum.sql.add('select <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD>·<EFBFBD> AS <20>·<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>) as ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from v_fee_do_seae '
|
|
|
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> group by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD>·<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> '
|
|
|
+'order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD>·<EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>');
|
|
|
fra_ch_delete_do1.v_fee_do_seae_sum.DataSource:=t_ch_balance1;
|
|
|
fra_ch_delete_do1.v_fee_do_seae_sum.Open;
|
|
|
fra_ch_delete_do1.v_fee_do_seae_monthsum.close;
|
|
|
fra_ch_delete_do1.v_fee_do_seae_monthsum.SQL.clear;
|
|
|
fra_ch_delete_do1.v_fee_do_seae_monthsum.sql.add('select <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD>·<EFBFBD> AS <20>·<EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>) as ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from v_fee_do_seae '
|
|
|
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> group by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD>·<EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> '
|
|
|
+'order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD>·<EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>');
|
|
|
fra_ch_delete_do1.v_fee_do_seae_monthsum.DataSource:=t_ch_balance1;
|
|
|
fra_ch_delete_do1.v_fee_do_seae_monthsum.Open;
|
|
|
|
|
|
fra_ch_delete_do1.v_fee_do_seae_sum_atd.close;
|
|
|
fra_ch_delete_do1.v_fee_do_seae_sum_atd.SQL.clear;
|
|
|
fra_ch_delete_do1.v_fee_do_seae_sum_atd.sql.add('select <20><><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7) AS <20>·<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>) as ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from v_fee_do_seae '
|
|
|
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> group by <20><><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> '
|
|
|
+'order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7),ԭʼ<D4AD>ұ<EFBFBD>');
|
|
|
fra_ch_delete_do1.v_fee_do_seae_sum_atd.DataSource:=t_ch_balance1;
|
|
|
fra_ch_delete_do1.v_fee_do_seae_sum_atd.Open;
|
|
|
|
|
|
fra_ch_delete_do1.v_fee_do_seai_sum.close;
|
|
|
fra_ch_delete_do1.v_fee_do_seai_sum.SQL.clear;
|
|
|
fra_ch_delete_do1.v_fee_do_seai_sum.sql.add('select <20><><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7) AS <20>·<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>) as ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from v_fee_do_seai '
|
|
|
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> group by <20><><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> '
|
|
|
+'order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7),ԭʼ<D4AD>ұ<EFBFBD>');
|
|
|
fra_ch_delete_do1.v_fee_do_seai_sum.DataSource:=t_ch_balance1;
|
|
|
fra_ch_delete_do1.v_fee_do_seai_sum.Open;
|
|
|
|
|
|
fra_ch_delete_do1.v_fee_do_aire_sum.close;
|
|
|
fra_ch_delete_do1.v_fee_do_aire_sum.SQL.clear;
|
|
|
fra_ch_delete_do1.v_fee_do_aire_sum.sql.add('select <20><><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7) AS <20>·<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>) as ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from v_fee_do_aire '
|
|
|
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> group by <20><><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> '
|
|
|
+'order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7),ԭʼ<D4AD>ұ<EFBFBD>');
|
|
|
fra_ch_delete_do1.v_fee_do_aire_sum.DataSource:=t_ch_balance1;
|
|
|
fra_ch_delete_do1.v_fee_do_aire_sum.Open;
|
|
|
|
|
|
fra_ch_delete_do1.v_fee_do_airi_sum.close;
|
|
|
fra_ch_delete_do1.v_fee_do_airi_sum.SQL.clear;
|
|
|
fra_ch_delete_do1.v_fee_do_airi_sum.sql.add('select <20><><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7) AS <20>·<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>) as ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from v_fee_do_airi '
|
|
|
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> group by <20><><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> '
|
|
|
+'order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7),ԭʼ<D4AD>ұ<EFBFBD>');
|
|
|
fra_ch_delete_do1.v_fee_do_airi_sum.DataSource:=t_ch_balance1;
|
|
|
fra_ch_delete_do1.v_fee_do_airi_sum.Open;
|
|
|
|
|
|
fra_ch_delete_do1.bs_text.Text:='4';
|
|
|
fra_ch_delete_do1.do_ban1.DataSet:=t_ch_balance;
|
|
|
|
|
|
end else begin
|
|
|
fra_ch_add_do1.t_ch_fee.close;
|
|
|
fra_ch_add_do1.t_ch_fee_sum.close;
|
|
|
fra_ch_add_do1.t_ch_fee_do.close;
|
|
|
fra_ch_add_do1.t_op_seae.close;
|
|
|
fra_ch_add_do1.t_op_seai.close;
|
|
|
fra_ch_add_do1.t_op_aire.close;
|
|
|
fra_ch_add_do1.t_op_airi.close;
|
|
|
fra_ch_delete_do1.v_fee_do_seae.close;
|
|
|
fra_ch_delete_do1.v_fee_do_seai.close;
|
|
|
fra_ch_delete_do1.v_fee_do_aire.close;
|
|
|
fra_ch_delete_do1.v_fee_do_airi.close;
|
|
|
fra_ch_delete_do1.v_fee_do_seae_sum.close;
|
|
|
fra_ch_delete_do1.v_fee_do_seai_sum.close;
|
|
|
fra_ch_delete_do1.v_fee_do_aire_sum.close;
|
|
|
fra_ch_delete_do1.v_fee_do_airi_sum.close;
|
|
|
fra_ch_delete_do1.v_fee_do_seae_sum_atd.close;
|
|
|
fra_ch_delete_do1.v_fee_do_seae_monthsum.close;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.t_ch_checkBeforePost(DataSet: TDataSet);
|
|
|
begin
|
|
|
v_fee_do_seae.close;
|
|
|
v_fee_do_seae_sum.close;
|
|
|
// v_fee_do_seae_sum_atd.close;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.t_ch_checkAfterOpen(DataSet: TDataSet);
|
|
|
begin
|
|
|
v_fee_do_seae.open;
|
|
|
v_fee_do_seae_sum.Open;
|
|
|
// v_fee_do_seae_sum_atd.Open;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.DBGridEh1TitleBtnClick(Sender: TObject;
|
|
|
ACol: Integer; Column: TColumnEh);
|
|
|
begin
|
|
|
if column.Title.SortMarker = smUpEh then
|
|
|
begin
|
|
|
t_ch_check.Sort := column.FieldName + ' DESC';
|
|
|
column.Title.SortMarker := smDownEh;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_ch_check.Sort := column.FieldName +' ASC';
|
|
|
column.Title.SortMarker := smUpEh;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.DBGridseasumTitleBtnClick(Sender: TObject;
|
|
|
ACol: Integer; Column: TColumnEh);
|
|
|
begin
|
|
|
if column.Title.SortMarker = smUpEh then
|
|
|
begin
|
|
|
v_fee_do_seae_sum.Sort := column.FieldName + ' DESC';
|
|
|
column.Title.SortMarker := smDownEh;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
v_fee_do_seae_sum.Sort := column.FieldName +' ASC';
|
|
|
column.Title.SortMarker := smUpEh;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.DBGridSEAETitleBtnClick(Sender: TObject;
|
|
|
ACol: Integer; Column: TColumnEh);
|
|
|
begin
|
|
|
if column.Title.SortMarker = smUpEh then
|
|
|
begin
|
|
|
v_fee_do_seae.Sort := column.FieldName + ' DESC';
|
|
|
column.Title.SortMarker := smDownEh;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
v_fee_do_seae.Sort := column.FieldName +' ASC';
|
|
|
column.Title.SortMarker := smUpEh;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.RxDBLookupCombo15Change(Sender: TObject);
|
|
|
begin
|
|
|
if not frm_data_share.t_sys_bank.IsEmpty then
|
|
|
if frm_data_share.t_sys_bank.Locate('<27><><EFBFBD><EFBFBD>',RxDBLookupCombo15.DisplayValues[0],[])then begin
|
|
|
t_ch_balance['<27><><EFBFBD><EFBFBD>']:=frm_data_share.t_sys_bank.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
end else begin
|
|
|
t_ch_balance['<27><><EFBFBD><EFBFBD>']:='';
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinButton37Click(Sender: TObject);
|
|
|
begin
|
|
|
if (t_ch_balance.FieldByName('<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').AsFloat<>0) then begin
|
|
|
ShowMessage('<27><>¼<EFBFBD>뿪Ʊ<EBBFAA><C6B1><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD>¼<EFBFBD>룡');
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
try
|
|
|
frm_ch_balance_inv_do:=tfrm_ch_balance_inv_do.Create (application);
|
|
|
frm_ch_balance_inv_do.ShowModal;
|
|
|
finally
|
|
|
frm_ch_balance_inv_do.Free;
|
|
|
frm_ch_balance_inv_do:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinButton38Click(Sender: TObject);
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
if (t_ch_balance.FieldByName('<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').AsFloat=0) then begin
|
|
|
ShowMessage('û<><C3BB>¼<EFBFBD>뿪Ʊ<EBBFAA><C6B1><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select count(1) ct from t_ch_fee where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' and ISNULL(<28><><EFBFBD><EFBFBD>,0)=1 and <20><>id in (select ch_id 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;
|
|
|
if FieldByName('ct').AsInteger>0 then begin
|
|
|
ShowMessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD>');
|
|
|
Exit;
|
|
|
end;
|
|
|
Close;sql.Clear;
|
|
|
SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' and <20><>id in (select ch_id 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
|
|
|
Delete;
|
|
|
end;
|
|
|
Close;
|
|
|
SQL.Text:='update t_ch_balance set <20><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>=0,<2C><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>=0 where <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>='''+t_ch_balance.fieldbyname('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').asstring+'''';
|
|
|
ExecSQL;
|
|
|
t_ch_balance.Refresh;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_pay.bsSkinButton39Click(Sender: TObject);
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
aQuery.Close;
|
|
|
aQuery.SQL.Add('select count(1) CT from t_ch_fee where (isnull(<28><><EFBFBD>뿪Ʊ,0)=<3D><><EFBFBD><EFBFBD>) and <20><><EFBFBD><EFBFBD><>0 and CH_ID IN (SELECT CH_ID FROM t_ch_fee_do where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_ch_balance.fieldbyname('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').AsString+''') ');
|
|
|
aQuery.Open;
|
|
|
if (aQuery.FieldByName('CT').AsInteger>0) THEN begin
|
|
|
ShowMessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>з<EFBFBD><D0B7><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD>Ʊ,<2C><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɷ<EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
|
|
|
try
|
|
|
frm_ch_balance_invhx:=tfrm_ch_balance_invhx.Create (application);
|
|
|
frm_ch_balance_invhx.ShowModal;
|
|
|
finally
|
|
|
frm_ch_balance_invhx.Free;
|
|
|
frm_ch_balance_invhx:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
end.
|