DS6JIEFENG/财务管理/u_ch_balance_accept.pas

{$INCLUDE t_main.inc}
unit u_ch_balance_accept;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinCtrls, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid, DB,
  ADODB, dxDBTLCl, dxGrClms, u_ch_delete_do, u_ch_add_do, bsdbctrls,
  RxLookup, StdCtrls, Mask, DBCtrls, wwdbedit, Wwdotdot, Wwdbcomb, Menus,
  XPMenu, ComCtrls, bsSkinTabs, ExtCtrls, wwdbdatetimepicker, sncCurrency,
  sncDBCurrency, ToolEdit, CurrEdit, RXDBCtrl, DBCtrlsEh, AAFont, AACtrls,
  RxMemDS, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit,
  cxDropDownEdit, cxCalc, cxDBEdit;

type
  Tfrm_ch_balance_accept = class(TForm)
    t_ch_balance: TADOQuery;
    t_ch_balance1: TDataSource;
    t_ch_fee_do_detail: TADOQuery;
    PopupMenu2: TPopupMenu;
    N10: TMenuItem;
    N11: TMenuItem;
    N14: TMenuItem;
    N13: TMenuItem;
    N12: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    XPMenu1: TXPMenu;
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet1: TbsSkinTabSheet;
    bsSkinTabSheet2: TbsSkinTabSheet;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton4: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    bsSkinButton8: TbsSkinButton;
    bsSkinButton9: TbsSkinButton;
    bsSkinButton10: TbsSkinButton;
    bsSkinButton11: TbsSkinButton;
    bsSkinButton6: TbsSkinButton;
    bsSkinNotebook1: TbsSkinNotebook;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridMaskColumn;
    dxDBGrid1Column2: TdxDBGridMaskColumn;
    dxDBGrid1Column17: TdxDBGridColumn;
    dxDBGrid1Column5: TdxDBGridMaskColumn;
    dxDBGrid1Column3: TdxDBGridMaskColumn;
    dxDBGrid1Column4: TdxDBGridMaskColumn;
    dxDBGrid1Column6: TdxDBGridColumn;
    dxDBGrid1Column7: TdxDBGridColumn;
    dxDBGrid1Column8: TdxDBGridColumn;
    dxDBGrid1Column9: TdxDBGridMaskColumn;
    dxDBGrid1Column10: TdxDBGridMaskColumn;
    dxDBGrid1Column11: TdxDBGridMaskColumn;
    dxDBGrid1Column12: TdxDBGridDateColumn;
    dxDBGrid1Column15: TdxDBGridColumn;
    dxDBGrid1Column16: TdxDBGridColumn;
    dxDBGrid1Column13: TdxDBGridMaskColumn;
    dxDBGrid1Column14: TdxDBGridDateColumn;
    DBEdit2: TDBEdit;
    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;
    bsSkinPanel4: TbsSkinPanel;
    bsSkinPanel5: TbsSkinPanel;
    Label11: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    DBEdit3: TDBEdit;
    DBEdit7: TDBEdit;
    RxDBLookupCombo4: TRxDBLookupCombo;
    wwDBComboBox2: TwwDBComboBox;
    RxDBLookupCombo5: TRxDBLookupCombo;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    RxDBLookupCombo6: TRxDBLookupCombo;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    DBMemo2: TDBMemo;
    RxDBLookupCombo7: TRxDBLookupCombo;
    DBEdit18: TDBEdit;
    bsSkinPageControl2: TbsSkinPageControl;
    bsSkinTabSheet3: TbsSkinTabSheet;
    dxDBGrid2: TdxDBGrid;
    dxDBGridMaskColumn1: TdxDBGridMaskColumn;
    dxDBGridMaskColumn2: TdxDBGridMaskColumn;
    dxDBGridMaskColumn3: TdxDBGridMaskColumn;
    dxDBGridMaskColumn4: TdxDBGridMaskColumn;
    dxDBGridMaskColumn5: TdxDBGridMaskColumn;
    dxDBGridColumn1: TdxDBGridColumn;
    dxDBGridColumn2: TdxDBGridColumn;
    dxDBGridMaskColumn6: TdxDBGridMaskColumn;
    dxDBGridDateColumn1: TdxDBGridDateColumn;
    dxDBGridDateColumn2: TdxDBGridDateColumn;
    dxDBGridMaskColumn7: TdxDBGridMaskColumn;
    dxDBGridMaskColumn8: TdxDBGridMaskColumn;
    dxDBGridMaskColumn9: TdxDBGridMaskColumn;
    dxDBGridMaskColumn10: TdxDBGridMaskColumn;
    dxDBGridMaskColumn11: TdxDBGridMaskColumn;
    dxDBGridColumn3: TdxDBGridColumn;
    dxDBGridColumn4: TdxDBGridColumn;
    dxDBGridMaskColumn12: TdxDBGridMaskColumn;
    dxDBGridMaskColumn13: TdxDBGridMaskColumn;
    dxDBGridMaskColumn14: TdxDBGridMaskColumn;
    dxDBGridMaskColumn15: TdxDBGridMaskColumn;
    bsSkinTabSheet4: TbsSkinTabSheet;
    dxDBGrid3: TdxDBGrid;
    dxDBGridMaskColumn16: TdxDBGridMaskColumn;
    dxDBGridMaskColumn17: TdxDBGridMaskColumn;
    dxDBGridMaskColumn18: TdxDBGridMaskColumn;
    dxDBGridMaskColumn19: TdxDBGridMaskColumn;
    dxDBGridMaskColumn20: TdxDBGridMaskColumn;
    dxDBGridColumn5: TdxDBGridColumn;
    dxDBGridColumn6: TdxDBGridColumn;
    dxDBGridMaskColumn21: TdxDBGridMaskColumn;
    dxDBGridDateColumn3: TdxDBGridDateColumn;
    dxDBGridDateColumn4: TdxDBGridDateColumn;
    dxDBGridMaskColumn22: TdxDBGridMaskColumn;
    dxDBGridMaskColumn23: TdxDBGridMaskColumn;
    dxDBGridMaskColumn24: TdxDBGridMaskColumn;
    dxDBGridMaskColumn25: TdxDBGridMaskColumn;
    dxDBGridMaskColumn26: TdxDBGridMaskColumn;
    dxDBGridColumn7: TdxDBGridColumn;
    dxDBGridColumn8: TdxDBGridColumn;
    dxDBGridMaskColumn27: TdxDBGridMaskColumn;
    dxDBGridMaskColumn28: TdxDBGridMaskColumn;
    dxDBGridMaskColumn29: TdxDBGridMaskColumn;
    dxDBGridMaskColumn30: TdxDBGridMaskColumn;
    bsSkinTabSheet5: TbsSkinTabSheet;
    dxDBGrid4: TdxDBGrid;
    dxDBGridMaskColumn31: TdxDBGridMaskColumn;
    dxDBGridMaskColumn32: TdxDBGridMaskColumn;
    dxDBGridMaskColumn33: TdxDBGridMaskColumn;
    dxDBGridMaskColumn34: TdxDBGridMaskColumn;
    dxDBGridMaskColumn35: TdxDBGridMaskColumn;
    dxDBGridColumn9: TdxDBGridColumn;
    dxDBGridColumn10: TdxDBGridColumn;
    dxDBGridMaskColumn36: TdxDBGridMaskColumn;
    dxDBGridDateColumn5: TdxDBGridDateColumn;
    dxDBGridDateColumn6: TdxDBGridDateColumn;
    dxDBGridMaskColumn37: TdxDBGridMaskColumn;
    dxDBGridMaskColumn38: TdxDBGridMaskColumn;
    dxDBGridMaskColumn39: TdxDBGridMaskColumn;
    dxDBGridColumn11: TdxDBGridColumn;
    dxDBGridColumn12: TdxDBGridColumn;
    dxDBGridMaskColumn40: TdxDBGridMaskColumn;
    dxDBGridMaskColumn41: TdxDBGridMaskColumn;
    dxDBGridMaskColumn42: TdxDBGridMaskColumn;
    bsSkinTabSheet6: TbsSkinTabSheet;
    dxDBGrid5: TdxDBGrid;
    dxDBGridMaskColumn43: TdxDBGridMaskColumn;
    dxDBGridMaskColumn44: TdxDBGridMaskColumn;
    dxDBGridMaskColumn45: TdxDBGridMaskColumn;
    dxDBGridMaskColumn46: TdxDBGridMaskColumn;
    dxDBGridMaskColumn47: TdxDBGridMaskColumn;
    dxDBGridColumn13: TdxDBGridColumn;
    dxDBGridColumn14: TdxDBGridColumn;
    dxDBGridMaskColumn48: TdxDBGridMaskColumn;
    dxDBGridDateColumn7: TdxDBGridDateColumn;
    dxDBGridDateColumn8: TdxDBGridDateColumn;
    dxDBGridMaskColumn49: TdxDBGridMaskColumn;
    dxDBGridMaskColumn50: TdxDBGridMaskColumn;
    dxDBGridMaskColumn51: TdxDBGridMaskColumn;
    dxDBGridColumn15: TdxDBGridColumn;
    dxDBGridColumn16: TdxDBGridColumn;
    dxDBGridMaskColumn52: TdxDBGridMaskColumn;
    dxDBGridMaskColumn53: TdxDBGridMaskColumn;
    dxDBGridMaskColumn54: TdxDBGridMaskColumn;
    fra_ch_delete_do1: Tfra_ch_delete_do;
    fra_ch_add_do1: Tfra_ch_add_do;
    t_ch_invoice_shen: TADOQuery;
    t_ch_invoice_shen1: TDataSource;
    v_fee_do_seae: TADOQuery;
    v_fee_do_seae1: TDataSource;
    v_fee_do_seai: TADOQuery;
    v_fee_do_seai1: TDataSource;
    v_fee_do_aire: TADOQuery;
    v_fee_do_aire1: TDataSource;
    v_fee_do_airi: TADOQuery;
    v_fee_do_airi1: TDataSource;
    bsSkinPanel6: TbsSkinPanel;
    bsSkinPageControl3: TbsSkinPageControl;
    bsSkinTabSheet7: TbsSkinTabSheet;
    dxDBGrid6: TdxDBGrid;
    dxDBGridMaskColumn55: TdxDBGridMaskColumn;
    dxDBGridMaskColumn56: TdxDBGridMaskColumn;
    dxDBGridMaskColumn57: TdxDBGridMaskColumn;
    dxDBGridMaskColumn58: TdxDBGridMaskColumn;
    dxDBGridMaskColumn59: TdxDBGridMaskColumn;
    dxDBGridColumn17: TdxDBGridColumn;
    dxDBGridColumn18: TdxDBGridColumn;
    dxDBGridMaskColumn60: TdxDBGridMaskColumn;
    dxDBGridDateColumn9: TdxDBGridDateColumn;
    dxDBGridDateColumn10: TdxDBGridDateColumn;
    dxDBGridMaskColumn61: TdxDBGridMaskColumn;
    dxDBGridMaskColumn62: TdxDBGridMaskColumn;
    dxDBGridMaskColumn63: TdxDBGridMaskColumn;
    dxDBGridMaskColumn64: TdxDBGridMaskColumn;
    dxDBGridMaskColumn65: TdxDBGridMaskColumn;
    dxDBGridColumn19: TdxDBGridColumn;
    dxDBGridColumn20: TdxDBGridColumn;
    dxDBGridMaskColumn66: TdxDBGridMaskColumn;
    dxDBGridMaskColumn67: TdxDBGridMaskColumn;
    dxDBGridMaskColumn68: TdxDBGridMaskColumn;
    dxDBGridMaskColumn69: TdxDBGridMaskColumn;
    bsSkinTabSheet8: TbsSkinTabSheet;
    dxDBGrid7: TdxDBGrid;
    dxDBGridMaskColumn70: TdxDBGridMaskColumn;
    dxDBGridMaskColumn71: TdxDBGridMaskColumn;
    dxDBGridMaskColumn72: TdxDBGridMaskColumn;
    dxDBGridMaskColumn73: TdxDBGridMaskColumn;
    dxDBGridMaskColumn74: TdxDBGridMaskColumn;
    dxDBGridColumn21: TdxDBGridColumn;
    dxDBGridColumn22: TdxDBGridColumn;
    dxDBGridMaskColumn75: TdxDBGridMaskColumn;
    dxDBGridDateColumn11: TdxDBGridDateColumn;
    dxDBGridDateColumn12: TdxDBGridDateColumn;
    dxDBGridMaskColumn76: TdxDBGridMaskColumn;
    dxDBGridMaskColumn77: TdxDBGridMaskColumn;
    dxDBGridMaskColumn78: TdxDBGridMaskColumn;
    dxDBGridMaskColumn79: TdxDBGridMaskColumn;
    dxDBGridMaskColumn80: TdxDBGridMaskColumn;
    dxDBGridColumn23: TdxDBGridColumn;
    dxDBGridColumn24: TdxDBGridColumn;
    dxDBGridMaskColumn81: TdxDBGridMaskColumn;
    dxDBGridMaskColumn82: TdxDBGridMaskColumn;
    dxDBGridMaskColumn83: TdxDBGridMaskColumn;
    dxDBGridMaskColumn84: TdxDBGridMaskColumn;
    bsSkinTabSheet9: TbsSkinTabSheet;
    dxDBGrid8: TdxDBGrid;
    dxDBGridMaskColumn85: TdxDBGridMaskColumn;
    dxDBGridMaskColumn86: TdxDBGridMaskColumn;
    dxDBGridMaskColumn87: TdxDBGridMaskColumn;
    dxDBGridMaskColumn88: TdxDBGridMaskColumn;
    dxDBGridMaskColumn89: TdxDBGridMaskColumn;
    dxDBGridColumn25: TdxDBGridColumn;
    dxDBGridColumn26: TdxDBGridColumn;
    dxDBGridMaskColumn90: TdxDBGridMaskColumn;
    dxDBGridDateColumn13: TdxDBGridDateColumn;
    dxDBGridDateColumn14: TdxDBGridDateColumn;
    dxDBGridMaskColumn91: TdxDBGridMaskColumn;
    dxDBGridMaskColumn92: TdxDBGridMaskColumn;
    dxDBGridMaskColumn93: TdxDBGridMaskColumn;
    dxDBGridColumn27: TdxDBGridColumn;
    dxDBGridColumn28: TdxDBGridColumn;
    dxDBGridMaskColumn94: TdxDBGridMaskColumn;
    dxDBGridMaskColumn95: TdxDBGridMaskColumn;
    dxDBGridMaskColumn96: TdxDBGridMaskColumn;
    bsSkinTabSheet10: TbsSkinTabSheet;
    dxDBGrid9: TdxDBGrid;
    dxDBGridMaskColumn97: TdxDBGridMaskColumn;
    dxDBGridMaskColumn98: TdxDBGridMaskColumn;
    dxDBGridMaskColumn99: TdxDBGridMaskColumn;
    dxDBGridMaskColumn100: TdxDBGridMaskColumn;
    dxDBGridMaskColumn101: TdxDBGridMaskColumn;
    dxDBGridColumn29: TdxDBGridColumn;
    dxDBGridColumn30: TdxDBGridColumn;
    dxDBGridMaskColumn102: TdxDBGridMaskColumn;
    dxDBGridDateColumn15: TdxDBGridDateColumn;
    dxDBGridDateColumn16: TdxDBGridDateColumn;
    dxDBGridMaskColumn103: TdxDBGridMaskColumn;
    dxDBGridMaskColumn104: TdxDBGridMaskColumn;
    dxDBGridMaskColumn105: TdxDBGridMaskColumn;
    dxDBGridColumn31: TdxDBGridColumn;
    dxDBGridColumn32: TdxDBGridColumn;
    dxDBGridMaskColumn106: TdxDBGridMaskColumn;
    dxDBGridMaskColumn107: TdxDBGridMaskColumn;
    dxDBGridMaskColumn108: TdxDBGridMaskColumn;
    dxDBGrid10: TdxDBGrid;
    dxDBGridMaskColumn109: TdxDBGridMaskColumn;
    dxDBGridMaskColumn110: TdxDBGridMaskColumn;
    dxDBGridMaskColumn111: TdxDBGridMaskColumn;
    dxDBGridMaskColumn112: TdxDBGridMaskColumn;
    dxDBGridColumn33: TdxDBGridColumn;
    dxDBGridColumn34: TdxDBGridColumn;
    dxDBGridColumn35: TdxDBGridColumn;
    dxDBGrid1Column18: TdxDBGridMaskColumn;
    dxDBGrid1Column19: TdxDBGridMaskColumn;
    dxDBGrid1Column20: TdxDBGridDateColumn;
    dxDBGrid1Column21: TdxDBGridMaskColumn;
    dxDBGrid1Column22: TdxDBGridDateColumn;
    dxDBGrid1Column23: TdxDBGridMaskColumn;
    dxDBGrid1Column24: TdxDBGridDateColumn;
    bsSkinPanel7: TbsSkinPanel;
    bsSkinPanel8: TbsSkinPanel;
    bsSkinButton21: TbsSkinButton;
    bsSkinButton24: TbsSkinButton;
    bsSkinButton25: TbsSkinButton;
    bsSkinButton7: TbsSkinButton;
    Label29: TLabel;
    DBEdit19: TDBEdit;
    Label30: TLabel;
    DBEdit20: TDBEdit;
    Label31: TLabel;
    DBEdit21: TDBEdit;
    Label32: TLabel;
    DBEdit22: TDBEdit;
    Label33: TLabel;
    DBEdit23: TDBEdit;
    Label34: TLabel;
    DBEdit24: TDBEdit;
    DBEdit25: TDBEdit;
    Label35: TLabel;
    DBEdit26: TDBEdit;
    Label36: TLabel;
    DBEdit27: TDBEdit;
    Label37: TLabel;
    Label38: TLabel;
    DBEdit28: TDBEdit;
    Label39: TLabel;
    DBEdit29: TDBEdit;
    Label41: TLabel;
    DBEdit31: TDBEdit;
    Label42: TLabel;
    DBMemo3: TDBMemo;
    Label43: TLabel;
    DBMemo4: TDBMemo;
    t_ch_fee_do_invoice: TADOQuery;
    v_fee_do_seae_sum: TADOQuery;
    v_fee_do_seae_sum1: TDataSource;
    v_fee_do_seai_sum1: TDataSource;
    v_fee_do_seai_sum: TADOQuery;
    v_fee_do_aire_sum: TADOQuery;
    v_fee_do_aire_sum1: TDataSource;
    v_fee_do_airi_sum: TADOQuery;
    v_fee_do_airi_sum1: TDataSource;
    bsSkinButton12: TbsSkinButton;
    dxDBGrid2Column22: TdxDBGridColumn;
    dxDBGrid3Column22: TdxDBGridColumn;
    dxDBGrid4Column19: TdxDBGridColumn;
    dxDBGrid5Column19: TdxDBGridColumn;
    dxDBGrid6Column22: TdxDBGridColumn;
    dxDBGrid7Column22: TdxDBGridColumn;
    dxDBGrid8Column19: TdxDBGridColumn;
    dxDBGrid9Column19: TdxDBGridColumn;
    dxDBGrid2Column23: TdxDBGridColumn;
    dxDBGrid3Column23: TdxDBGridColumn;
    dxDBGrid4Column20: TdxDBGridColumn;
    dxDBGrid5Column20: TdxDBGridColumn;
    dxDBGrid11: TdxDBGrid;
    dxDBGrid5Column4: TdxDBGridColumn;
    dxDBGrid5Column1: TdxDBGridMaskColumn;
    dxDBGrid5Column2: TdxDBGridColumn;
    dxDBGrid5Column5: TdxDBGridColumn;
    dxDBGrid5Column6: TdxDBGridColumn;
    dxDBGrid5Column3: TdxDBGridColumn;
    dxDBGrid12: TdxDBGrid;
    dxDBGrid6Column4: TdxDBGridColumn;
    dxDBGridMaskColumn113: TdxDBGridMaskColumn;
    dxDBGridColumn36: TdxDBGridColumn;
    dxDBGrid6Column5: TdxDBGridColumn;
    dxDBGrid6Column6: TdxDBGridColumn;
    dxDBGridColumn43: TdxDBGridColumn;
    dxDBGrid13: TdxDBGrid;
    dxDBGrid7Column4: TdxDBGridColumn;
    dxDBGridMaskColumn114: TdxDBGridMaskColumn;
    dxDBGridColumn37: TdxDBGridColumn;
    dxDBGrid7Column5: TdxDBGridColumn;
    dxDBGrid7Column6: TdxDBGridColumn;
    dxDBGridColumn44: TdxDBGridColumn;
    dxDBGrid14: TdxDBGrid;
    dxDBGrid8Column4: TdxDBGridColumn;
    dxDBGridMaskColumn115: TdxDBGridMaskColumn;
    dxDBGridColumn38: TdxDBGridColumn;
    dxDBGrid8Column5: TdxDBGridColumn;
    dxDBGrid8Column6: TdxDBGridColumn;
    dxDBGridColumn45: TdxDBGridColumn;
    dxDBGrid15: TdxDBGrid;
    dxDBGridColumn39: TdxDBGridColumn;
    dxDBGridMaskColumn116: TdxDBGridMaskColumn;
    dxDBGridColumn46: TdxDBGridColumn;
    dxDBGridColumn47: TdxDBGridColumn;
    dxDBGridColumn48: TdxDBGridColumn;
    dxDBGridColumn49: TdxDBGridColumn;
    dxDBGrid16: TdxDBGrid;
    dxDBGridColumn40: TdxDBGridColumn;
    dxDBGridMaskColumn117: TdxDBGridMaskColumn;
    dxDBGridColumn50: TdxDBGridColumn;
    dxDBGridColumn51: TdxDBGridColumn;
    dxDBGridColumn52: TdxDBGridColumn;
    dxDBGridColumn53: TdxDBGridColumn;
    dxDBGrid17: TdxDBGrid;
    dxDBGridColumn41: TdxDBGridColumn;
    dxDBGridMaskColumn118: TdxDBGridMaskColumn;
    dxDBGridColumn54: TdxDBGridColumn;
    dxDBGridColumn55: TdxDBGridColumn;
    dxDBGridColumn56: TdxDBGridColumn;
    dxDBGridColumn57: TdxDBGridColumn;
    dxDBGrid18: TdxDBGrid;
    dxDBGridColumn42: TdxDBGridColumn;
    dxDBGridMaskColumn119: TdxDBGridMaskColumn;
    dxDBGridColumn58: TdxDBGridColumn;
    dxDBGridColumn59: TdxDBGridColumn;
    dxDBGridColumn60: TdxDBGridColumn;
    dxDBGridColumn61: TdxDBGridColumn;
    bsSkinTabSheet111: TbsSkinTabSheet;
    Panel1: TPanel;
    dxDBGrid19: TdxDBGrid;
    dxDBGridMaskColumn120: TdxDBGridMaskColumn;
    dxDBGridMaskColumn121: TdxDBGridMaskColumn;
    dxDBGrid2Column12: TdxDBGridColumn;
    dxDBGridMaskColumn122: TdxDBGridMaskColumn;
    dxDBGridMaskColumn123: TdxDBGridMaskColumn;
    dxDBGridColumn62: TdxDBGridColumn;
    dxDBGridColumn63: TdxDBGridColumn;
    dxDBGridColumn64: TdxDBGridColumn;
    dxDBGridMaskColumn124: TdxDBGridMaskColumn;
    dxDBGridDateColumn17: TdxDBGridDateColumn;
    dxDBGridMaskColumn125: TdxDBGridMaskColumn;
    dxDBGridDateColumn18: TdxDBGridDateColumn;
    bsSkinPanel9: TbsSkinPanel;
    Label44: TLabel;
    Label45: TLabel;
    Label46: TLabel;
    Label47: TLabel;
    Label48: TLabel;
    Label49: TLabel;
    Label50: TLabel;
    Label51: TLabel;
    Label52: TLabel;
    Label53: TLabel;
    Label54: TLabel;
    Label55: TLabel;
    Label56: TLabel;
    Label58: TLabel;
    DBEdit32: TDBEdit;
    DBEdit33: TDBEdit;
    DBEdit34: TDBEdit;
    DBEdit35: TDBEdit;
    DBEdit36: TDBEdit;
    DBMemo5: TDBMemo;
    DBEdit37: TDBEdit;
    DBEdit38: TDBEdit;
    DBEdit39: TDBEdit;
    DBEdit40: TDBEdit;
    bsSkinPanel10: TbsSkinPanel;
    bsSkinButton13: TbsSkinButton;
    bsSkinButton14: TbsSkinButton;
    bsSkinButton15: TbsSkinButton;
    DBEdit41: TDBEdit;
    DBEdit43: TDBEdit;
    DBEdit44: TDBEdit;
    DBEdit46: TDBEdit;
    bsSkinPageControl4: TbsSkinPageControl;
    bsSkinTabSheet11: TbsSkinTabSheet;
    dxDBGrid20: TdxDBGrid;
    dxDBGridMaskColumn126: TdxDBGridMaskColumn;
    dxDBGridMaskColumn127: TdxDBGridMaskColumn;
    dxDBGridMaskColumn128: TdxDBGridMaskColumn;
    dxDBGridMaskColumn129: TdxDBGridMaskColumn;
    dxDBGridMaskColumn130: TdxDBGridMaskColumn;
    dxDBGridColumn65: TdxDBGridColumn;
    dxDBGridColumn66: TdxDBGridColumn;
    dxDBGridMaskColumn131: TdxDBGridMaskColumn;
    dxDBGridColumn67: TdxDBGridColumn;
    dxDBGridDateColumn19: TdxDBGridDateColumn;
    dxDBGridDateColumn20: TdxDBGridDateColumn;
    dxDBGridMaskColumn132: TdxDBGridMaskColumn;
    dxDBGridMaskColumn133: TdxDBGridMaskColumn;
    dxDBGridMaskColumn134: TdxDBGridMaskColumn;
    dxDBGridMaskColumn135: TdxDBGridMaskColumn;
    dxDBGridMaskColumn136: TdxDBGridMaskColumn;
    dxDBGridColumn68: TdxDBGridColumn;
    dxDBGridColumn69: TdxDBGridColumn;
    dxDBGridMaskColumn137: TdxDBGridMaskColumn;
    dxDBGridMaskColumn138: TdxDBGridMaskColumn;
    dxDBGridMaskColumn139: TdxDBGridMaskColumn;
    dxDBGridMaskColumn140: TdxDBGridMaskColumn;
    dxDBGrid21: TdxDBGrid;
    dxDBGridColumn70: TdxDBGridColumn;
    dxDBGridMaskColumn141: TdxDBGridMaskColumn;
    dxDBGridColumn71: TdxDBGridColumn;
    dxDBGridColumn72: TdxDBGridColumn;
    dxDBGridColumn73: TdxDBGridColumn;
    dxDBGridColumn74: TdxDBGridColumn;
    bsSkinTabSheet12: TbsSkinTabSheet;
    dxDBGrid22: TdxDBGrid;
    dxDBGridMaskColumn142: TdxDBGridMaskColumn;
    dxDBGridMaskColumn143: TdxDBGridMaskColumn;
    dxDBGridMaskColumn144: TdxDBGridMaskColumn;
    dxDBGridMaskColumn145: TdxDBGridMaskColumn;
    dxDBGridMaskColumn146: TdxDBGridMaskColumn;
    dxDBGridColumn75: TdxDBGridColumn;
    dxDBGridColumn76: TdxDBGridColumn;
    dxDBGridMaskColumn147: TdxDBGridMaskColumn;
    dxDBGridColumn77: TdxDBGridColumn;
    dxDBGridDateColumn21: TdxDBGridDateColumn;
    dxDBGridDateColumn22: TdxDBGridDateColumn;
    dxDBGridMaskColumn148: TdxDBGridMaskColumn;
    dxDBGridMaskColumn149: TdxDBGridMaskColumn;
    dxDBGridMaskColumn150: TdxDBGridMaskColumn;
    dxDBGridMaskColumn151: TdxDBGridMaskColumn;
    dxDBGridMaskColumn152: TdxDBGridMaskColumn;
    dxDBGridColumn78: TdxDBGridColumn;
    dxDBGridColumn79: TdxDBGridColumn;
    dxDBGridMaskColumn153: TdxDBGridMaskColumn;
    dxDBGridMaskColumn154: TdxDBGridMaskColumn;
    dxDBGridMaskColumn155: TdxDBGridMaskColumn;
    dxDBGridMaskColumn156: TdxDBGridMaskColumn;
    dxDBGrid23: TdxDBGrid;
    dxDBGridColumn80: TdxDBGridColumn;
    dxDBGridMaskColumn157: TdxDBGridMaskColumn;
    dxDBGridColumn81: TdxDBGridColumn;
    dxDBGridColumn82: TdxDBGridColumn;
    dxDBGridColumn83: TdxDBGridColumn;
    dxDBGridColumn84: TdxDBGridColumn;
    bsSkinTabSheet13: TbsSkinTabSheet;
    dxDBGrid24: TdxDBGrid;
    dxDBGridMaskColumn158: TdxDBGridMaskColumn;
    dxDBGridMaskColumn159: TdxDBGridMaskColumn;
    dxDBGridMaskColumn160: TdxDBGridMaskColumn;
    dxDBGridMaskColumn161: TdxDBGridMaskColumn;
    dxDBGridMaskColumn162: TdxDBGridMaskColumn;
    dxDBGridColumn85: TdxDBGridColumn;
    dxDBGridColumn86: TdxDBGridColumn;
    dxDBGridMaskColumn163: TdxDBGridMaskColumn;
    dxDBGridColumn87: TdxDBGridColumn;
    dxDBGridDateColumn23: TdxDBGridDateColumn;
    dxDBGridDateColumn24: TdxDBGridDateColumn;
    dxDBGridMaskColumn164: TdxDBGridMaskColumn;
    dxDBGridMaskColumn165: TdxDBGridMaskColumn;
    dxDBGridMaskColumn166: TdxDBGridMaskColumn;
    dxDBGridColumn88: TdxDBGridColumn;
    dxDBGridColumn89: TdxDBGridColumn;
    dxDBGridMaskColumn167: TdxDBGridMaskColumn;
    dxDBGridMaskColumn168: TdxDBGridMaskColumn;
    dxDBGridMaskColumn169: TdxDBGridMaskColumn;
    dxDBGrid25: TdxDBGrid;
    dxDBGridColumn90: TdxDBGridColumn;
    dxDBGridMaskColumn170: TdxDBGridMaskColumn;
    dxDBGridColumn91: TdxDBGridColumn;
    dxDBGridColumn92: TdxDBGridColumn;
    dxDBGridColumn93: TdxDBGridColumn;
    dxDBGridColumn94: TdxDBGridColumn;
    bsSkinTabSheet14: TbsSkinTabSheet;
    dxDBGrid26: TdxDBGrid;
    dxDBGridMaskColumn171: TdxDBGridMaskColumn;
    dxDBGridMaskColumn172: TdxDBGridMaskColumn;
    dxDBGridMaskColumn173: TdxDBGridMaskColumn;
    dxDBGridMaskColumn174: TdxDBGridMaskColumn;
    dxDBGridMaskColumn175: TdxDBGridMaskColumn;
    dxDBGridColumn95: TdxDBGridColumn;
    dxDBGridColumn96: TdxDBGridColumn;
    dxDBGridMaskColumn176: TdxDBGridMaskColumn;
    dxDBGridColumn97: TdxDBGridColumn;
    dxDBGridDateColumn25: TdxDBGridDateColumn;
    dxDBGridDateColumn26: TdxDBGridDateColumn;
    dxDBGridMaskColumn177: TdxDBGridMaskColumn;
    dxDBGridMaskColumn178: TdxDBGridMaskColumn;
    dxDBGridMaskColumn179: TdxDBGridMaskColumn;
    dxDBGridColumn98: TdxDBGridColumn;
    dxDBGridColumn99: TdxDBGridColumn;
    dxDBGridMaskColumn180: TdxDBGridMaskColumn;
    dxDBGridMaskColumn181: TdxDBGridMaskColumn;
    dxDBGridMaskColumn182: TdxDBGridMaskColumn;
    dxDBGrid27: TdxDBGrid;
    dxDBGridColumn100: TdxDBGridColumn;
    dxDBGridMaskColumn183: TdxDBGridMaskColumn;
    dxDBGridColumn101: TdxDBGridColumn;
    dxDBGridColumn102: TdxDBGridColumn;
    dxDBGridColumn103: TdxDBGridColumn;
    dxDBGridColumn104: TdxDBGridColumn;
    t_ch_accept_shen: TADOQuery;
    acceptv_fee_do_airi_sum1: TDataSource;
    acceptv_fee_do_airi_sum: TADOQuery;
    Acceptv_fee_do_airi1: TDataSource;
    Acceptv_fee_do_airi: TADOQuery;
    t_ch_accept_shen1: TDataSource;
    acceptv_fee_do_aire: TADOQuery;
    acceptv_fee_do_aire1: TDataSource;
    acceptv_fee_do_aire_sum: TADOQuery;
    acceptv_fee_do_aire_sum1: TDataSource;
    acceptv_fee_do_seai: TADOQuery;
    acceptv_fee_do_seai1: TDataSource;
    acceptv_fee_do_seai_sum: TADOQuery;
    acceptv_fee_do_seai_sum1: TDataSource;
    acceptv_fee_do_seae: TADOQuery;
    acceptv_fee_do_seae1: TDataSource;
    acceptv_fee_do_seae_sum: TADOQuery;
    acceptv_fee_do_seae_sum1: TDataSource;
    t_ch_fee_do_accept: TADOQuery;
    bsSkinButton16: TbsSkinButton;
    dxDBGrid19Column13: TdxDBGridColumn;
    dxDBGrid1Column25: TdxDBGridColumn;
    dxDBGrid1Column26: TdxDBGridColumn;
    bsSkinPanel11: TbsSkinPanel;
    Label57: TLabel;
    Label59: TLabel;
    Label60: TLabel;
    Label61: TLabel;
    Label62: TLabel;
    Label63: TLabel;
    Label64: TLabel;
    Label65: TLabel;
    Label66: TLabel;
    Label67: TLabel;
    Label68: TLabel;
    Label69: TLabel;
    Label70: TLabel;
    Label71: TLabel;
    DBEdit42: TDBEdit;
    DBEdit45: TDBEdit;
    DBEdit47: TDBEdit;
    DBEdit48: TDBEdit;
    DBEdit49: TDBEdit;
    DBMemo6: TDBMemo;
    DBEdit50: TDBEdit;
    DBEdit51: TDBEdit;
    DBEdit52: TDBEdit;
    DBEdit53: TDBEdit;
    DBEdit54: TDBEdit;
    DBEdit55: TDBEdit;
    DBEdit56: TDBEdit;
    DBEdit57: TDBEdit;
    dxDBGrid19Column14: TdxDBGridColumn;
    dxDBGrid19Column15: TdxDBGridColumn;
    bsSkinPanel12: TbsSkinPanel;
    Label72: TLabel;
    Label73: TLabel;
    Label74: TLabel;
    Label75: TLabel;
    Label76: TLabel;
    Label77: TLabel;
    Label78: TLabel;
    Label79: TLabel;
    Label80: TLabel;
    Label81: TLabel;
    Label82: TLabel;
    Label83: TLabel;
    Label84: TLabel;
    Label85: TLabel;
    Label86: TLabel;
    DBEdit58: TDBEdit;
    DBEdit59: TDBEdit;
    RxDBLookupCombo8: TRxDBLookupCombo;
    wwDBComboBox3: TwwDBComboBox;
    RxDBLookupCombo9: TRxDBLookupCombo;
    DBEdit60: TDBEdit;
    DBEdit61: TDBEdit;
    DBEdit62: TDBEdit;
    RxDBLookupCombo10: TRxDBLookupCombo;
    DBEdit63: TDBEdit;
    DBEdit64: TDBEdit;
    DBEdit65: TDBEdit;
    DBMemo7: TDBMemo;
    RxDBLookupCombo11: TRxDBLookupCombo;
    DBEdit66: TDBEdit;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    DBEdit67: TDBEdit;
    Label87: TLabel;
    dxDBGrid1Column27: TdxDBGridColumn;
    dxDBGrid1Column28: TdxDBGridColumn;
    dxDBGrid6Column23: TdxDBGridColumn;
    dxDBGrid7Column23: TdxDBGridColumn;
    dxDBGrid8Column20: TdxDBGridColumn;
    dxDBGrid9Column20: TdxDBGridColumn;
    bsSkinButton38: TbsSkinButton;
    RxDBLookupCombo3: TRxDBLookupCombo;
    RxDBLookupCombo17: TRxDBLookupCombo;
    bsSkinPanel13: TbsSkinPanel;
    Label88: TLabel;
    Label89: TLabel;
    Label90: TLabel;
    Label91: TLabel;
    Label92: TLabel;
    Label93: TLabel;
    Label95: TLabel;
    Label96: TLabel;
    Label97: TLabel;
    Label98: TLabel;
    Label99: TLabel;
    Label94: TLabel;
    Label100: TLabel;
    DBEdit68: TDBEdit;
    DBEdit69: TDBEdit;
    RxDBLookupCombo12: TRxDBLookupCombo;
    bsSkinDBCheckRadioBox2: TbsSkinDBCheckRadioBox;
    DBEdit70: TDBEdit;
    DBEdit71: TDBEdit;
    DBEdit72: TDBEdit;
    DBMemo8: TDBMemo;
    wwDBComboBox4: TwwDBComboBox;
    RxDBLookupCombo14: TRxDBLookupCombo;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    DBEdit75: TDBEdit;
    RxDBLookupCombo13: TRxDBLookupCombo;
    RxDBLookupCombo15: TRxDBLookupCombo;
    RxDBLookupCombo16: TRxDBLookupCombo;
    p_update: TADOStoredProc;
    tab5: TbsSkinTabSheet;
    dxDBGrid28: TdxDBGrid;
    dxDBGridColumn105: TdxDBGridColumn;
    dxDBGridMaskColumn184: TdxDBGridMaskColumn;
    dxDBGridColumn106: TdxDBGridColumn;
    dxDBGridColumn107: TdxDBGridColumn;
    dxDBGridColumn108: TdxDBGridColumn;
    dxDBGridColumn109: TdxDBGridColumn;
    dxDBGrid29: TdxDBGrid;
    dxDBGridColumn110: TdxDBGridColumn;
    dxDBGridMaskColumn185: TdxDBGridMaskColumn;
    dxDBGridMaskColumn186: TdxDBGridMaskColumn;
    dxDBGridMaskColumn187: TdxDBGridMaskColumn;
    dxDBGridMaskColumn188: TdxDBGridMaskColumn;
    dxDBGridMaskColumn189: TdxDBGridMaskColumn;
    dxDBGridColumn111: TdxDBGridColumn;
    dxDBGridColumn112: TdxDBGridColumn;
    dxDBGridMaskColumn190: TdxDBGridMaskColumn;
    dxDBGridColumn113: TdxDBGridColumn;
    dxDBGrid9Column24: TdxDBGridColumn;
    dxDBGridDateColumn27: TdxDBGridDateColumn;
    dxDBGridDateColumn28: TdxDBGridDateColumn;
    dxDBGridMaskColumn191: TdxDBGridMaskColumn;
    dxDBGridMaskColumn192: TdxDBGridMaskColumn;
    dxDBGridMaskColumn193: TdxDBGridMaskColumn;
    dxDBGridMaskColumn194: TdxDBGridMaskColumn;
    dxDBGridMaskColumn195: TdxDBGridMaskColumn;
    dxDBGridColumn114: TdxDBGridColumn;
    dxDBGridColumn115: TdxDBGridColumn;
    dxDBGridMaskColumn196: TdxDBGridMaskColumn;
    dxDBGridMaskColumn197: TdxDBGridMaskColumn;
    dxDBGridMaskColumn198: TdxDBGridMaskColumn;
    dxDBGridMaskColumn199: TdxDBGridMaskColumn;
    Label101: TLabel;
    DBEdit76: TDBEdit;
    bskntbshtTbs3: TbsSkinTabSheet;
    t_ch_jinzhang: TADOQuery;
    t_ch_jinzhangDSDesigner: TStringField;
    t_ch_jinzhangDSDesigner13: TStringField;
    t_ch_jinzhangDSDesigner14: TStringField;
    t_ch_jinzhangDSDesigner2: TDateTimeField;
    t_ch_jinzhangDSDesigner3: TStringField;
    t_ch_jinzhangDSDesigner4: TStringField;
    t_ch_jinzhangDSDesigner5: TStringField;
    t_ch_jinzhangDSDesigner6: TStringField;
    t_ch_jinzhangDSDesigner7: TStringField;
    t_ch_jinzhangDSDesigner8: TStringField;
    t_ch_jinzhangDSDesigner9: TStringField;
    t_ch_jinzhangDSDesigner10: TBCDField;
    t_ch_jinzhangDSDesigner11: TStringField;
    t_ch_jinzhangDSDesigner12: TStringField;
    t_ch_jinzhangDSDesigner15: TStringField;
    t_ch_jinzhangDSDesigner16: TBooleanField;
    t_ch_jinzhangDSDesigner17: TStringField;
    t_ch_jinzhangDSDesigner18: TDateTimeField;
    t_ch_jinzhangDSDesigner19: TStringField;
    t_ch_jinzhangDSDesigner20: TBooleanField;
    t_ch_jinzhangDSDesigner21: TStringField;
    t_ch_jinzhangDSDesigner22: TBooleanField;
    t_ch_jinzhangDSDesigner23: TStringField;
    t_ch_jinzhangDSDesigner24: TDateTimeField;
    t_ch_jinzhangDSDesigner25: TStringField;
    t_ch_jinzhangDSDesigner26: TDateTimeField;
    t_ch_jinzhangDSDesigner27: TStringField;
    t_ch_jinzhangDSDesigner28: TStringField;
    t_ch_jinzhangDSDesigner29: TStringField;
    t_ch_jinzhangDSDesigner30: TStringField;
    t_ch_jinzhangDSDesigner31: TStringField;
    t_ch_jinzhangDSDesigner32: TStringField;
    t_ch_jinzhangDSDesigner33: TStringField;
    t_ch_jinzhangDSDesigner34: TStringField;
    t_ch_jinzhangDSDesigner35: TStringField;
    t_ch_jinzhangDSDesigner36: TStringField;
    t_ch_jinzhangDSDesigner37: TStringField;
    t_ch_jinzhangDSDesigner38: TStringField;
    t_ch_jinzhangDSDesigner39: TStringField;
    t_ch_jinzhangDSDesigner40: TStringField;
    t_ch_jinzhangDSDesigner41: TStringField;
    t_ch_jinzhangDSDesigner42: TStringField;
    t_ch_jinzhangDSDesigner43: TStringField;
    t_ch_jinzhangJZ_ID: TAutoIncField;
    t_ch_jinzhangDSDesigner44: TStringField;
    t_ch_jinzhangDSDesigner45: TStringField;
    t_ch_jinzhangDSDesigner46: TStringField;
    t_ch_jinzhang1: TDataSource;
    bsSkinPageControl5: TbsSkinPageControl;
    bsSkinTabSheet15: TbsSkinTabSheet;
    bsSkinPanel14: TbsSkinPanel;
    bsSkinButton17: TbsSkinButton;
    bsSkinButton18: TbsSkinButton;
    bsSkinButton19: TbsSkinButton;
    bsSkinButton20: TbsSkinButton;
    bsSkinButton22: TbsSkinButton;
    bsSkinButton23: TbsSkinButton;
    bsSkinButton26: TbsSkinButton;
    bsSkinButton27: TbsSkinButton;
    dxDBGrid30: TdxDBGrid;
    dxDBGridMaskColumn200: TdxDBGridMaskColumn;
    dxDBGridMaskColumn201: TdxDBGridMaskColumn;
    dxDBGridMaskColumn202: TdxDBGridMaskColumn;
    dxDBGridColumn116: TdxDBGridColumn;
    dxDBGridDateColumn29: TdxDBGridDateColumn;
    dxDBGridMaskColumn203: TdxDBGridMaskColumn;
    dxDBGridCheckColumn1: TdxDBGridCheckColumn;
    dxDBGridMaskColumn204: TdxDBGridMaskColumn;
    dxDBGridDateColumn30: TdxDBGridDateColumn;
    dxDBGridMaskColumn205: TdxDBGridMaskColumn;
    dxDBGrid1Column32: TdxDBGridCheckColumn;
    dxDBGrid1Column29: TdxDBGridCheckColumn;
    dxDBGrid1Column30: TdxDBGridMaskColumn;
    dxDBGrid1Column35: TdxDBGridMaskColumn;
    dxDBGrid1Column36: TdxDBGridDateColumn;
    dxDBGrid1Column31: TdxDBGridMaskColumn;
    dxDBGrid1Column33: TdxDBGridMaskColumn;
    dxDBGrid1Column34: TdxDBGridDateColumn;
    bsSkinTabSheet16: TbsSkinTabSheet;
    bsSkinPanel15: TbsSkinPanel;
    bsSkinButton28: TbsSkinButton;
    bsSkinButton29: TbsSkinButton;
    bsSkinButton30: TbsSkinButton;
    bsSkinButton31: TbsSkinButton;
    bsSkinButton32: TbsSkinButton;
    bsSkinButton33: TbsSkinButton;
    bsSkinButton34: TbsSkinButton;
    bsSkinButton35: TbsSkinButton;
    bsSkinButton36: TbsSkinButton;
    ScrollBox1: TScrollBox;
    Label40: TLabel;
    Label102: TLabel;
    Label103: TLabel;
    Label104: TLabel;
    Shape3: TShape;
    AALabel2: TAALabel;
    Label105: TLabel;
    Label106: TLabel;
    Label107: TLabel;
    Label108: TLabel;
    Label109: TLabel;
    Label110: TLabel;
    Label111: TLabel;
    Label112: TLabel;
    Shape4: TShape;
    Label113: TLabel;
    sncCurrencyLabel2: TsncCurrencyLabel;
    Label114: TLabel;
    Label115: TLabel;
    DBText5: TDBText;
    DBText6: TDBText;
    DBText7: TDBText;
    DBText8: TDBText;
    Label116: TLabel;
    Label117: TLabel;
    Label118: TLabel;
    Label119: TLabel;
    Label120: TLabel;
    Label121: TLabel;
    bsSkinPanel16: TbsSkinPanel;
    Label122: TLabel;
    Label123: TLabel;
    DBEdit30: TDBEdit;
    DBEdit77: TDBEdit;
    bsSkinDBCheckRadioBox4: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox5: TbsSkinDBCheckRadioBox;
    DBDateTimeEditEh1: TDBDateTimeEditEh;
    RxDBCalcEdit1: TRxDBCalcEdit;
    sncDBCurrencyEdit1: TsncDBCurrencyEdit;
    DBEdit78: TDBEdit;
    DBComboBox1: TDBComboBox;
    DBEdit79: TDBEdit;
    DBEdit80: TDBEdit;
    DBEdit81: TDBEdit;
    DBEdit82: TDBEdit;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N20: TMenuItem;
    Label124: TLabel;
    RxDBLookupCombo20: TRxDBLookupCombo;
    dxDBGrid1Column37: TdxDBGridColumn;
    dxDBGrid1Column38: TdxDBGridColumn;
    dxDBGrid1Column39: TdxDBGridColumn;
    Label125: TLabel;
    RxDBLookupCombo21: TRxDBLookupCombo;
    DBEdit83: TDBEdit;
    DBEdit84: TDBEdit;
    t_ch_jinzhangDSDesigner47: TStringField;
    RxDBLookupCombo18: TRxDBLookupCombo;
    PopupMenu3: TPopupMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    Label126: TLabel;
    tab6: TbsSkinTabSheet;
    bsSkinGroupBox2: TbsSkinGroupBox;
    dxDBGrid31: TdxDBGrid;
    dxDBGridMaskColumn206: TdxDBGridMaskColumn;
    dxDBGridMaskColumn207: TdxDBGridMaskColumn;
    dxDBGridMaskColumn208: TdxDBGridMaskColumn;
    dxDBGridMaskColumn209: TdxDBGridMaskColumn;
    dxDBGridColumn117: TdxDBGridColumn;
    dxDBGrid12Column6: TdxDBGridColumn;
    dxDBGrid12Column7: TdxDBGridColumn;
    bs_text: TEdit;
    bsSkinGroupBox1: TbsSkinGroupBox;
    dxDBGrid32: TdxDBGrid;
    dxDBGrid11Column1: TdxDBGridColumn;
    dxDBGrid11Column4: TdxDBGridColumn;
    dxDBGrid11Column2: TdxDBGridColumn;
    dxDBGrid11Column3: TdxDBGridColumn;
    t_ch_cust_befbal: TADOQuery;
    t_ch_cust_befbal1: TDataSource;
    t_ch_cust_befbalnew: TADOQuery;
    t_ch_cust_befbal_sum1: TDataSource;
    t_ch_cust_befbal_sum: TADOQuery;
    t_rate: TRxMemoryData;
    PopupMenu4: TPopupMenu;
    MenuItem4: TMenuItem;
    PopupMenu5: TPopupMenu;
    N7: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    bsSkinPageControl6: TbsSkinPageControl;
    tab1: TbsSkinTabSheet;
    tab2: TbsSkinTabSheet;
    bsSkinGroupBox3: TbsSkinGroupBox;
    dxDBGrid33: TdxDBGrid;
    dxDBGridMaskColumn210: TdxDBGridMaskColumn;
    dxDBGridMaskColumn211: TdxDBGridMaskColumn;
    dxDBGridMaskColumn212: TdxDBGridMaskColumn;
    dxDBGridMaskColumn213: TdxDBGridMaskColumn;
    dxDBGridColumn118: TdxDBGridColumn;
    dxDBGridColumn119: TdxDBGridColumn;
    dxDBGridColumn120: TdxDBGridColumn;
    Edit1: TEdit;
    bsSkinGroupBox4: TbsSkinGroupBox;
    dxDBGrid34: TdxDBGrid;
    dxDBGridColumn121: TdxDBGridColumn;
    dxDBGridColumn122: TdxDBGridColumn;
    dxDBGridColumn123: TdxDBGridColumn;
    dxDBGridColumn124: TdxDBGridColumn;
    Label127: TLabel;
    DBEdit86: TDBEdit;
    dxDBGrid1Column40: TdxDBGridColumn;
    DBEdit85: TDBEdit;
    PopupMenu6: TPopupMenu;
    N8: TMenuItem;
    dxDBGrid34Column5: TdxDBGridColumn;
    dxDBGrid33Column8: TdxDBGridColumn;
    dxDBGrid19Column16: TdxDBGridColumn;
    dbedt1: TDBEdit;
    lbl1: TLabel;
    dxdbgrdclmnDBGrid30Column19: TdxDBGridColumn;
    bsSkinTabSheet17: TbsSkinTabSheet;
    v_fee_do_bsCard: TADOQuery;
    v_fee_do_bsCard1: TDataSource;
    v_fee_do_bsCard_sum: TADOQuery;
    v_fee_do_bsCard_sum1: TDataSource;
    dxDBGrid35: TdxDBGrid;
    dxDBGridColumn125: TdxDBGridColumn;
    dxDBGridMaskColumn214: TdxDBGridMaskColumn;
    dxDBGridColumn126: TdxDBGridColumn;
    dxDBGridColumn127: TdxDBGridColumn;
    dxDBGridColumn128: TdxDBGridColumn;
    dxDBGridColumn129: TdxDBGridColumn;
    dxDBGrid36: TdxDBGrid;
    dxDBGridMaskColumn215: TdxDBGridMaskColumn;
    dxDBGridMaskColumn216: TdxDBGridMaskColumn;
    dxDBGridMaskColumn217: TdxDBGridMaskColumn;
    dxDBGridMaskColumn218: TdxDBGridMaskColumn;
    dxDBGridMaskColumn219: TdxDBGridMaskColumn;
    dxDBGridColumn130: TdxDBGridColumn;
    dxDBGridColumn131: TdxDBGridColumn;
    dxDBGridMaskColumn220: TdxDBGridMaskColumn;
    dxDBGridColumn132: TdxDBGridColumn;
    dxDBGridDateColumn31: TdxDBGridDateColumn;
    dxDBGridDateColumn32: TdxDBGridDateColumn;
    dxDBGridMaskColumn221: TdxDBGridMaskColumn;
    dxDBGridMaskColumn222: TdxDBGridMaskColumn;
    dxDBGridMaskColumn223: TdxDBGridMaskColumn;
    dxDBGridColumn133: TdxDBGridColumn;
    dxDBGridColumn134: TdxDBGridColumn;
    dxDBGridMaskColumn224: TdxDBGridMaskColumn;
    dxDBGridMaskColumn225: TdxDBGridMaskColumn;
    dxDBGridMaskColumn226: TdxDBGridMaskColumn;
    dxDBGridColumn135: TdxDBGridColumn;
    bsSkinTabSheet18: TbsSkinTabSheet;
    dxDBGrid37: TdxDBGrid;
    dxDBGridColumn136: TdxDBGridColumn;
    dxDBGridMaskColumn227: TdxDBGridMaskColumn;
    dxDBGridColumn137: TdxDBGridColumn;
    dxDBGridColumn138: TdxDBGridColumn;
    dxDBGridColumn139: TdxDBGridColumn;
    dxDBGridColumn140: TdxDBGridColumn;
    dxDBGrid38: TdxDBGrid;
    dxDBGridMaskColumn228: TdxDBGridMaskColumn;
    dxDBGridMaskColumn229: TdxDBGridMaskColumn;
    dxDBGridMaskColumn230: TdxDBGridMaskColumn;
    dxDBGridMaskColumn231: TdxDBGridMaskColumn;
    dxDBGridMaskColumn232: TdxDBGridMaskColumn;
    dxDBGridColumn141: TdxDBGridColumn;
    dxDBGridColumn142: TdxDBGridColumn;
    dxDBGridMaskColumn233: TdxDBGridMaskColumn;
    dxDBGridColumn143: TdxDBGridColumn;
    dxDBGridDateColumn33: TdxDBGridDateColumn;
    dxDBGridDateColumn34: TdxDBGridDateColumn;
    dxDBGridMaskColumn234: TdxDBGridMaskColumn;
    dxDBGridMaskColumn235: TdxDBGridMaskColumn;
    dxDBGridMaskColumn236: TdxDBGridMaskColumn;
    dxDBGridMaskColumn237: TdxDBGridMaskColumn;
    dxDBGridMaskColumn238: TdxDBGridMaskColumn;
    dxDBGridColumn144: TdxDBGridColumn;
    dxDBGridColumn145: TdxDBGridColumn;
    dxDBGridMaskColumn239: TdxDBGridMaskColumn;
    dxDBGridMaskColumn240: TdxDBGridMaskColumn;
    dxDBGridMaskColumn241: TdxDBGridMaskColumn;
    dxDBGridMaskColumn242: TdxDBGridMaskColumn;
    dxDBGrid36Column21: TdxDBGridColumn;
    dxDBGrid38Column23: TdxDBGridColumn;
    dxDBGrid36Column22: TdxDBGridColumn;
    dxDBGrid38Column24: TdxDBGridColumn;
    dxDBGrid1Column41: TdxDBGridColumn;
    Label128: TLabel;
    DBMemo9: TDBMemo;
    Panel2: TPanel;
    Label129: TLabel;
    Panel3: TPanel;
    Label130: TLabel;
    Label131: TLabel;
    DBEdit87: TDBEdit;
    Label132: TLabel;
    DBEdit88: TDBEdit;
    bsSkinButton39: TbsSkinButton;
    t_ch_balanceDSDesigner: TStringField;
    t_ch_balanceDSDesigner2: TStringField;
    t_ch_balanceDSDesigner3: TStringField;
    t_ch_balanceDSDesigner4: TStringField;
    t_ch_balanceDSDesigner5: TStringField;
    t_ch_balanceDSDesigner6: TStringField;
    t_ch_balanceDSDesigner7: TBCDField;
    t_ch_balanceDSDesigner8: TBCDField;
    t_ch_balanceDSDesigner9: TBCDField;
    t_ch_balanceDSDesigner10: TStringField;
    t_ch_balanceDSDesigner11: TStringField;
    t_ch_balanceDSDesigner12: TStringField;
    t_ch_balanceDSDesigner13: TDateTimeField;
    t_ch_balanceDSDesigner14: TBooleanField;
    t_ch_balanceDSDesigner15: TStringField;
    t_ch_balanceDSDesigner16: TStringField;
    t_ch_balanceDSDesigner17: TDateTimeField;
    t_ch_balanceDSDesigner18: TStringField;
    t_ch_balanceDSDesigner19: TStringField;
    t_ch_balanceDSDesigner20: TDateTimeField;
    t_ch_balanceDSDesigner21: TStringField;
    t_ch_balanceDSDesigner22: TBooleanField;
    t_ch_balanceDSDesigner23: TStringField;
    t_ch_balanceDSDesigner24: TBCDField;
    t_ch_balanceDSDesigner25: TBCDField;
    t_ch_balanceDSDesigner26: TStringField;
    t_ch_balanceDSDesigner27: TStringField;
    t_ch_balanceDSDesigner28: TStringField;
    t_ch_balanceDSDesigner29: TStringField;
    t_ch_balanceDSDesigner30: TBCDField;
    t_ch_balanceDSDesigner31: TStringField;
    t_ch_balanceDSDesigner32: TStringField;
    t_ch_balanceDSDesigner33: TStringField;
    dxDBGrid1Column42: TdxDBGridColumn;
    dxDBGrid1Column43: TdxDBGridColumn;
    Label133: TLabel;
    cxDBCalcEdit1: TcxDBCalcEdit;
    t_ch_balanceDSDesigner34: TDateTimeField;
    t_ch_balanceDSDesigner35: TSmallintField;
    dxDBGrid1Column44: TdxDBGridColumn;
    t_ch_balanceField: TStringField;
    dxDBGrid1Column45: TdxDBGridColumn;
    RxDBLookupCombo19: TRxDBLookupCombo;
    PopupMenu7: TPopupMenu;
    MenuItem9: TMenuItem;
    t_ch_balanceField2: TStringField;
    dxDBGrid1Column46: TdxDBGridColumn;
    t_ch_balanceField3: TStringField;
    dxDBGrid1Column47: TdxDBGridColumn;
    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 DBEdit2Change(Sender: TObject);
    procedure bsSkinButton7Click(Sender: TObject);
    procedure bsSkinButton21Click(Sender: TObject);
    procedure bsSkinButton25Click(Sender: TObject);
    procedure bsSkinButton24Click(Sender: TObject);
    procedure bsSkinButton12Click(Sender: TObject);
    procedure bsSkinButton14Click(Sender: TObject);
    procedure bsSkinButton15Click(Sender: TObject);
    procedure bsSkinButton17Click(Sender: TObject);
    procedure bsSkinButton16Click(Sender: TObject);
    procedure t_ch_balanceCalcFields(DataSet: TDataSet);
    procedure bsSkinButton38Click(Sender: TObject);
    procedure RxDBLookupCombo15Change(Sender: TObject);
    procedure RxDBLookupCombo16Change(Sender: TObject);
    procedure RxDBLookupCombo16Enter(Sender: TObject);
    procedure RxDBLookupCombo16Exit(Sender: TObject);
    procedure RxDBLookupCombo15Exit(Sender: TObject);
    procedure RxDBLookupCombo15Enter(Sender: TObject);
    procedure t_ch_balanceBeforeDelete(DataSet: TDataSet);
    procedure dxDBGrid6DblClick(Sender: TObject);
    procedure dxDBGrid7DblClick(Sender: TObject);
    procedure dxDBGrid8DblClick(Sender: TObject);
    procedure dxDBGrid9DblClick(Sender: TObject);
    procedure t_ch_jinzhangAfterInsert(DataSet: TDataSet);
    procedure t_ch_jinzhangBeforePost(DataSet: TDataSet);
    procedure N1Click(Sender: TObject);
    procedure bsSkinButton33Click(Sender: TObject);
    procedure bsSkinButton18Click(Sender: TObject);
    procedure bsSkinButton22Click(Sender: TObject);
    procedure bsSkinButton23Click(Sender: TObject);
    procedure bsSkinButton27Click(Sender: TObject);
    procedure bsSkinButton20Click(Sender: TObject);
    procedure dxDBGrid30DblClick(Sender: TObject);
    procedure bsSkinButton29Click(Sender: TObject);
    procedure bsSkinButton31Click(Sender: TObject);
    procedure bsSkinButton34Click(Sender: TObject);
    procedure bsSkinButton35Click(Sender: TObject);
    procedure bsSkinButton36Click(Sender: TObject);
    procedure bsSkinPageControl1Change(Sender: TObject);
    procedure t_ch_jinzhangAfterOpen(DataSet: TDataSet);
    procedure bsSkinButton30Click(Sender: TObject);
    procedure bsSkinButton19Click(Sender: TObject);
    procedure RxDBLookupCombo3Change(Sender: TObject);
    procedure RxDBLookupCombo10Change(Sender: TObject);
    procedure RxDBLookupCombo6Change(Sender: TObject);
    procedure bsSkinButton28Click(Sender: TObject);
    procedure MenuItem1Click(Sender: TObject);
    procedure MenuItem3Click(Sender: TObject);
    procedure t_ch_jinzhangAfterScroll(DataSet: TDataSet);
    procedure MenuItem4Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure MenuItem6Click(Sender: TObject);
    procedure t_ch_cust_befbal_sumAfterOpen(DataSet: TDataSet);
    procedure bsSkinButton37Click(Sender: TObject);
    procedure bsSkinNotebook1PageChanged(Sender: TObject);
    procedure fra_ch_add_do1MenuItem1Click(Sender: TObject);
    procedure dxDBGrid10SelectedCountChange(Sender: TObject);
    procedure dxDBGrid19SelectedCountChange(Sender: TObject);
    procedure bsSkinButton39Click(Sender: TObject);
    procedure fra_ch_add_do1bsSkinButton8Click(Sender: TObject);
    procedure dxDBGrid1CustomDraw(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
      const AText: String; AFont: TFont; var AColor: TColor; ASelected,
      AFocused: Boolean; var ADone: Boolean);
    procedure N8Click(Sender: TObject);
    procedure MenuItem9Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
  private
    isjinzhang,ischangecur:boolean;
    procedure jinzhangnumchange(sender:TField);
    procedure jinzhangdatechange(sender:TField);
    procedure jinzhangbankchange(sender:TField);
    procedure jinzhangcustchange(sender:TField);
    procedure jinzhangcurrchange(sender:TField);
    procedure getdetail(balno:string);
    procedure SelectAddVouchers;
    procedure AddVouchers;
    procedure closedetail;

    { Private declarations }
  public
    { Public declarations }
  end;

var
  ch_balance_accept_open,notdetail:boolean;
  frm_ch_balance_accept: Tfrm_ch_balance_accept;

implementation

uses u_main, my_sys_function, u_ch_balance_query, u_data_share,
  u_ch_invoice_do, u_ch_shen_query{$IFDEF SFLIUCHENG},u_ch_accept_do,
  u_ch_invoice_query, u_select_curr, u_ch_zhipiao_query,
  u_fee_do_fen, u_sys_progress, u_cw_pingzheng, dmAccu, u_cw_pingzheng_u8,
  u_cw_pingzheng_jku8{$ENDIF};

{$R *.dfm}

procedure Tfrm_ch_balance_accept.bsSkinButton5Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_ch_balance_accept.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  ch_balance_accept_open:=false;
  savereggrid(dxdbgrid1,caption+'1');
  savereggrid(dxdbgrid10,caption+'10');
  savereggrid(dxdbgrid6,caption+'6');
  savereggrid(dxdbgrid7,caption+'7');
  savereggrid(dxdbgrid8,caption+'8');
  savereggrid(dxdbgrid9,caption+'9');
  savereggrid(dxdbgrid30,caption+'30');
  savereggrid(fra_ch_add_do1.dxDBGrid19,caption+'19');
  savereggrid(fra_ch_delete_do1.dxDBGrid9,caption+'d9');
  frm_ch_balance_accept.Hide;
  frm_ch_balance_accept.ManualFloat(frm_ch_balance_accept.BoundsRect );
  frm_main.freeTabs('frm_ch_balance_accept');
  action:=cafree;
  frm_ch_balance_accept:=nil;
end;

procedure Tfrm_ch_balance_accept.FormResize(Sender: TObject);
var
  i:integer;
begin
  if not isjinzhang then
  begin
  bsSkinButton12.Visible:=false;
  i:=round(bsSkinPanel2.Width/12);
  bsSkinButton10.Width:=i;
  bsSkinButton9.Width:=i;
  bsSkinButton2.Width:=i;
  bsSkinButton3.Width:=i;
  bsSkinButton4.Width:=i;
  bsSkinButton1.Width:=i;
  bsSkinButton11.Width:=i;
  bsSkinButton6.Width:=i;
  bsSkinButton8.Width:=i;
  bsSkinButton38.Width:=i;
 // bsSkinButton37.Width:=i;
  bsSkinButton39.Width:=i;
  end else begin
  bsSkinButton12.Visible:=true;
  i:=round(bsSkinPanel2.Width/13);
  bsSkinButton10.Width:=i;
  bsSkinButton9.Width:=i;
  bsSkinButton2.Width:=i;
  bsSkinButton3.Width:=i;
  bsSkinButton4.Width:=i;
  bsSkinButton1.Width:=i;
  bsSkinButton11.Width:=i;
  bsSkinButton6.Width:=i;
  bsSkinButton8.Width:=i;
  bsSkinButton38.Width:=i;
//  bsSkinButton37.Width:=i;
  bsSkinButton12.Width:=i;
  bsSkinButton39.Width:=i;
  end;
end;

procedure Tfrm_ch_balance_accept.FormShow(Sender: TObject);
var
  i:integer;
  aQuery:TAdoQuery;
begin
//  bsSkinNotebook1.PageIndex:=0;
  if if_reg(449) and (not vold) then
    isjinzhang:=true
  else
    isjinzhang:=false;

  ischangecur:=true;

  if not isjinzhang then
    bskntbshtTBS3.TabVisible:=false;




  if not isjinzhang then begin
  bsSkinButton12.Visible:=false;
  i:=round(bsSkinPanel2.Width/12);
  bsSkinButton10.Width:=i;
  bsSkinButton9.Width:=i;
  bsSkinButton2.Width:=i;
  bsSkinButton3.Width:=i;
  bsSkinButton4.Width:=i;
  bsSkinButton1.Width:=i;
  bsSkinButton11.Width:=i;
  bsSkinButton6.Width:=i;
  bsSkinButton8.Width:=i;
  bsSkinButton38.Width:=i;
 // bsSkinButton37.Width:=i;
  bsSkinButton1.Width:=i;
  end else begin
  bsSkinButton12.Visible:=true;

  i:=round(bsSkinPanel2.Width/13);
  bsSkinButton10.Width:=i;
  bsSkinButton9.Width:=i;
  bsSkinButton2.Width:=i;
  bsSkinButton3.Width:=i;
  bsSkinButton4.Width:=i;
  bsSkinButton1.Width:=i;
  bsSkinButton11.Width:=i;
  bsSkinButton6.Width:=i;
  bsSkinButton8.Width:=i;
  bsSkinButton38.Width:=i;
  bsSkinButton12.Width:=i;
 //bsSkinButton37.Width:=i;
  bsSkinButton1.Width:=i;
  end;
  ch_balance_accept_open:=true;
  notdetail:=true;
  t_ch_balance.Close;
  t_ch_balance.SQL.clear;
  t_ch_balance.SQL.Add('select top 600 * from t_ch_balance where <20><><EFBFBD><EFBFBD>=0 and  <20>ʵ<EFBFBD>״̬<>'+''''+'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'+''''
                   +' and <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''
                   +' and '+open_data('1003','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no','no')
                   +' order by <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> desc');
  t_ch_balance.open;

  t_ch_invoice_shen.close;
  t_ch_invoice_shen.sql.Clear;
  t_ch_invoice_shen.sql.Add('SELECT DISTINCT COL1 = T_CH_FEE_DO1.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> INTO #TEMP1');
  t_ch_invoice_shen.sql.Add(' FROM t_ch_fee_do T_CH_FEE_DO1');
  t_ch_invoice_shen.sql.Add('where T_CH_FEE_DO1.<2E><><EFBFBD><EFBFBD> in (''1'', ''7'') ');
  t_ch_invoice_shen.sql.Add('GROUP BY T_CH_FEE_DO1.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  t_ch_invoice_shen.sql.Add('SELECT t_ch_invoice.* FROM #TEMP1,t_ch_invoice');
  t_ch_invoice_shen.sql.Add('where 1 = 1 and (<28>Ƿ<EFBFBD><C7B7>շ<EFBFBD>=0 or <20>Ƿ<EFBFBD><C7B7>շ<EFBFBD> is null) and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> = #TEMP1.COL1');
  t_ch_invoice_shen.sql.Add('and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> NOT IN (SELECT DISTINCT T_CH_FEE_DO2.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  t_ch_invoice_shen.sql.Add('FROM t_ch_fee_do T_CH_FEE_DO2');
  t_ch_invoice_shen.sql.Add('left JOIN t_ch_fee ON t_ch_fee.CH_ID = T_CH_FEE_DO2.CH_ID');
  t_ch_invoice_shen.sql.Add('where T_CH_FEE_DO2.ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> > (t_ch_fee.<2E><><EFBFBD><EFBFBD> - t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)');
  t_ch_invoice_shen.sql.Add('AND T_CH_FEE_DO2.<2E><><EFBFBD><EFBFBD> in (''1'', ''7''))');
  t_ch_invoice_shen.sql.Add('order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  t_ch_invoice_shen.sql.Add('DROP TABLE #TEMP1');



//  t_ch_invoice_shen.open;
{
  t_ch_fee_do_invoice.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_accept_shen.close;
  t_ch_accept_shen.sql.Clear;
  t_ch_accept_shen.sql.Add('SELECT * FROM t_ch_accept where ');
  t_ch_accept_shen.sql.Add(open_data('1003','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no','no'));
  t_ch_accept_shen.sql.Add(' and (<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> NOT IN (SELECT DISTINCT t_ch_fee_do.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> FROM t_ch_fee_do INNER JOIN ');
  t_ch_accept_shen.sql.Add('t_ch_fee ON t_ch_fee_do.CH_ID = t_ch_fee.CH_ID AND t_ch_fee_do.ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> > (t_ch_fee.<2E><><EFBFBD><EFBFBD> - t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) AND ');
  t_ch_accept_shen.sql.Add('t_ch_fee_do.<2E><><EFBFBD><EFBFBD> = ''6'')) AND (<28><><EFBFBD><EFBFBD>״̬ = ''<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'') ');
  t_ch_accept_shen.sql.Add('order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ');
//  t_ch_accept_shen.open;
{
  t_ch_fee_do_accept.open;
  acceptv_fee_do_seae.Open;
  acceptv_fee_do_seai.open;
  acceptv_fee_do_aire.open;
  acceptv_fee_do_airi.open;
  acceptv_fee_do_seae_sum.Open;
  acceptv_fee_do_seai_sum.open;
  acceptv_fee_do_aire_sum.open;
  acceptv_fee_do_airi_sum.open;
}
  {
  fra_ch_add_do1.bsSkinTabSheet1.Visible:=false;
  fra_ch_add_do1.bsSkinTabSheet2.Visible:=false;
  fra_ch_add_do1.bsSkinTabSheet3.Visible:=false;
  fra_ch_add_do1.bsSkinTabSheet4.Visible:=false;
   }

  if StrToBool(get_parameters_value(85,'false')) then begin
    fra_ch_add_do1.bsSkinTabSheet1.TabVisible:=False;
    fra_ch_add_do1.bsSkinTabSheet2.TabVisible:=False;
    fra_ch_add_do1.bsSkinTabSheet3.TabVisible:=False;
    fra_ch_add_do1.bsSkinTabSheet4.TabVisible:=False;
    fra_ch_add_do1.bsSkinTabSheet5.TabVisible:=True;
    fra_ch_add_do1.bsSkinPageControl1.TabIndex:=0;
    //fra_ch_add_do1.bsSkinButton11.Caption:='<27>շѽ<D5B7><D1BD><EFBFBD>';
    fra_ch_add_do1.bsSkinButton11.Visible:=True;
    fra_ch_add_do1.bsSkinCheckRadioBox7.Visible:=True;


    fra_ch_delete_do1.bsSkinTabSheet1.TabVisible:=false;
    fra_ch_delete_do1.bsSkinTabSheet2.TabVisible:=false;
    fra_ch_delete_do1.bsSkinTabSheet3.TabVisible:=false;
    fra_ch_delete_do1.bsSkinTabSheet4.TabVisible:=false;
    fra_ch_delete_do1.bsSkinTabSheet5.TabVisible:=True;
    fra_ch_delete_do1.bsSkinPageControl1.ActivePage:=fra_ch_delete_do1.bsSkinTabSheet5;


  end else begin
    fra_ch_add_do1.bsSkinTabSheet1.TabVisible:=True;
    fra_ch_add_do1.bsSkinTabSheet2.TabVisible:=True;
    fra_ch_add_do1.bsSkinTabSheet3.TabVisible:=True;
    fra_ch_add_do1.bsSkinTabSheet4.TabVisible:=True;
    fra_ch_add_do1.bsSkinPageControl1.ActivePage:=fra_ch_add_do1.bsSkinTabSheet1;
    fra_ch_add_do1.bsSkinTabSheet5.Visible:=True;
    fra_ch_add_do1.bsSkinCheckRadioBox7.Visible:=True;

    fra_ch_delete_do1.bsSkinTabSheet1.TabVisible:=True;
    fra_ch_delete_do1.bsSkinTabSheet2.TabVisible:=True;
    fra_ch_delete_do1.bsSkinTabSheet3.TabVisible:=True;
    fra_ch_delete_do1.bsSkinTabSheet4.TabVisible:=True;
    fra_ch_delete_do1.bsSkinTabSheet5.TabVisible:=false;
    fra_ch_delete_do1.bsSkinPageControl1.ActivePage:=fra_ch_delete_do1.bsSkinTabSheet1;

  end;

  fra_ch_add_do1.do_ban1.DataSet:=t_ch_balance;
  fra_ch_add_do1.bs_text.text:='3';
  fra_ch_add_do1.wwDBComboBox31.text:='<27><>';
  fra_ch_add_do1.t_ch_fee_do.open;

  if StrToBool(get_parameters_value(85,'false')) then begin

    bsSkinTabSheet6.TabVisible:=false;
    bsSkinTabSheet5.TabVisible:=false;
    bsSkinTabSheet4.TabVisible:=false;
    bsSkinTabSheet3.TabVisible:=false;
    bsSkinPageControl2.ActivePage:=Tab5;
    Tab5.TabVisible:=true;
  end else begin

    bsSkinPageControl2.ActivePage:=bsSkinTabSheet3;
    bsSkinTabSheet3.TabVisible:=true;
    bsSkinTabSheet4.TabVisible:=true;
    bsSkinTabSheet5.TabVisible:=true;
    bsSkinTabSheet6.TabVisible:=true;
    Tab5.TabVisible:=false;

  end;

  fra_ch_delete_do1.bs_text.Text:='3';
  fra_ch_delete_do1.do_ban1.DataSet:=t_ch_balance;


  frm_data_share.t_crm_client_all.requery;
  frm_data_share.t_code_currency.requery;
  frm_data_share.t_sys_bank.requery;
  loadreggrid(dxdbgrid1,false,caption+'1');
  loadreggrid(dxdbgrid10,false,caption+'10');
  loadreggrid(dxdbgrid6,false,caption+'6');
  loadreggrid(dxdbgrid7,false,caption+'7');
  loadreggrid(dxdbgrid8,false,caption+'8');
  loadreggrid(dxdbgrid9,false,caption+'9');
  loadreggrid(dxdbgrid30,false,caption+'30');
  loadreggrid(fra_ch_add_do1.dxDBGrid19,false,caption+'19');
   loadreggrid(fra_ch_delete_do1.dxDBGrid9,false,caption+'d9');  
  if StrToBool(get_parameters_value(83,'false')) then begin
     dxdbgrid1.ColumnByFieldName('<27>ұ<EFBFBD>').Visible:=false;
     dxdbgrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Visible:=False;
     dxdbgrid1.ColumnByFieldName('ʵ<><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Visible:=false;
     dxdbgrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Visible:=False;
     dxdbgrid1.ColumnByFieldName('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Visible:=True;
     dxdbgrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Visible:=True;
     dxdbgrid19.ColumnByFieldName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Visible:=False;
     dxdbgrid19.ColumnByFieldName('ʵ<>ʽ<EFBFBD><CABD><EFBFBD>').Visible:=false;
     dxdbgrid19.ColumnByFieldName('<27>鿪<EFBFBD><E9BFAA><EFBFBD><EFBFBD>').Visible:=False;
     dxdbgrid19.ColumnByFieldName('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Visible:=True;
     dxdbgrid19.ColumnByFieldName('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Visible:=True;
     dxdbgrid1.ColumnByFieldName('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Visible:=false;
     dxdbgrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Visible:=false;
     fra_ch_add_do1.bsSkinPanel12.Visible:=true;

     bsSkinPanel11.Visible:=True;
     bsSkinPanel12.Visible:=TRUE;
     bsSkinPanel13.Visible:=TRUE;
  end else begin
     dxdbgrid1.ColumnByFieldName('<27>ұ<EFBFBD>').Visible:=True;
     dxdbgrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Visible:=True;
     dxdbgrid1.ColumnByFieldName('ʵ<><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Visible:=True;
     dxdbgrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Visible:=True;
     dxdbgrid1.ColumnByFieldName('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Visible:=False;
     dxdbgrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Visible:=False;
     dxdbgrid19.ColumnByFieldName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Visible:=True;
     dxdbgrid19.ColumnByFieldName('ʵ<>ʽ<EFBFBD><CABD><EFBFBD>').Visible:=True;
     dxdbgrid19.ColumnByFieldName('<27>鿪<EFBFBD><E9BFAA><EFBFBD><EFBFBD>').Visible:=True;
     dxdbgrid19.ColumnByFieldName('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Visible:=false;
     dxdbgrid19.ColumnByFieldName('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Visible:=False;
     dxdbgrid1.ColumnByFieldName('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Visible:=true;
     dxdbgrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Visible:=true;
     fra_ch_add_do1.bsSkinPanel12.Visible:=false;

     bsSkinPanel11.Visible:=False;
     bsSkinPanel12.Visible:=False;
     bsSkinPanel13.Visible:=False;
  end;

  wwDBDateTimePicker1.MinDate:=Logininfo.endday+1;
  wwDBDateTimePicker2.MinDate:=Logininfo.endday+1;
  with frm_data_share.t_code_stlmode do begin
    wwDBComboBox1.Items.Clear;
    wwDBComboBox2.Items.Clear;
    wwDBComboBox3.Items.Clear;
    wwDBComboBox4.Items.Clear;
    first;
    while not eof do begin
      wwDBComboBox1.Items.Add(fieldbyname('<27><><EFBFBD>㷽ʽ').AsString);
      wwDBComboBox2.Items.Add(fieldbyname('<27><><EFBFBD>㷽ʽ').AsString);
      wwDBComboBox3.Items.Add(fieldbyname('<27><><EFBFBD>㷽ʽ').AsString);
      wwDBComboBox4.Items.Add(fieldbyname('<27><><EFBFBD>㷽ʽ').AsString);
      next;
    end;
  end;

 if not if_reg(494) then begin
    tab2.TabVisible:=false;
    tab6.TabVisible:=false;
  end else begin
    if if_open('344') then
    begin
      t_ch_cust_befbal.Open;
      t_ch_cust_befbal_sum.Open;
    end else begin
      tab2.TabVisible:=false;
      tab6.TabVisible:=false;
    end;
  end;  
  // bsSkinButton1.Enabled:=not t_ch_balance.FieldByName('ƾ֤').AsBoolean;


  {$IFDEF SFLIUCHENG}

  {$ELSE}
     bsSkinTabSheet111.TabVisible:=false;
  {$ENDIF}

{    // <20><><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8>
  if not if_open('215') then begin
    bsSkinButton1.Enabled:=false;
    bsSkinButton12.Enabled:=false;
    bsSkinButton2.Enabled:=false;
    bsSkinButton4.Enabled:=false;
    bsSkinButton3.Enabled:=false;
    bsSkinButton11.Enabled:=false;
    bsSkinButton6.Enabled:=false;
    bsSkinButton8.Enabled:=false;
    bsSkinButton25.Enabled:=false;
  end;
 }


end;

procedure Tfrm_ch_balance_accept.bsSkinButton11Click(Sender: TObject);
var
  answer:TModalResult;
begin
  if bsSkinButton11.Caption='<27>༭<EFBFBD>޸<EFBFBD>' then
  begin
    if t_ch_balance.IsEmpty then
      exit;
    if DBEdit2.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_accept.t_ch_balanceAfterInsert(
  DataSet: TDataSet);
var
  sdate:tdate;
  balno:string;

begin
  t_ch_balance['<27>ʵ<EFBFBD>״̬']:='¼<><C2BC>״̬';
  t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
  sdate:=EncodeDate(Logininfo.offyear,Logininfo.offmonth,1);
  if sdate>now then
    t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=sdate
  else
    t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;

  t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
  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['Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
  t_ch_balance['<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>']:=0;
  t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>']:=0;
  t_ch_balance['<27><><EFBFBD><EFBFBD>']:='<27><>';
  t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD><EFBFBD>';
  t_ch_balance['<27><><EFBFBD><EFBFBD>']:=0;
  t_ch_balance['<27><><EFBFBD>㷽ʽ']:='֧Ʊ';
  t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=1;
{
  balno:=get_no(date,'BA');
  t_ch_balance['<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>']:=balno;
  getdetail(balno);
}

end;

procedure Tfrm_ch_balance_accept.bsSkinButton2Click(Sender: TObject);
begin
  table_post(t_ch_balance);
end;

procedure Tfrm_ch_balance_accept.bsSkinButton4Click(Sender: TObject);
begin

  if t_ch_balance.IsEmpty then
    exit;
  if (t_ch_balance.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD>')then
  begin
    showmessage('<27><>ǰ<EFBFBD>ʵ<EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
    exit;
  end;


  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 trim(GetBalanceVou(t_ch_balance.fieldbyname('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').AsString))<>'' then
  begin
    showmessage('<27>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD>');
    exit;
  end;
{

  if trim(t_ch_balance.FieldByName('<27><><EFBFBD><EFBFBD>ƾ֤').asstring)<>''then
  begin
    showmessage('<27>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>ƾ֤<C6BE><D6A4><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(application);
    frm_sys_progress.bsSkinGauge1.ProgressText:='<27><><EFBFBD>ڴ<EFBFBD><DAB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ⱥ򡣡<C8BA><F2A1A3A1><EFBFBD>';
    frm_sys_progress.Show;
    frm_main.db.BeginTrans;
  try
    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_accept set <20><><EFBFBD><EFBFBD>״̬='
                                                      +''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+',<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;

    end;

    if (t_ch_balance.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><>Ʊ')then
    begin
      p_update.Parameters.ParamByName('SQLStr').value:='update t_ch_invoice set <20>Ƿ<EFBFBD><C7B7>շ<EFBFBD>=0'
                                                      +',<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;
    end;


    if trim(t_ch_balance.fieldbyname('<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').asstring)<>'' then
      UpdateInvoiceStatus(trim(t_ch_balance.fieldbyname('<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').asstring),0);


    delete_ch(3,t_ch_balance);

    t_ch_fee_do_detail.close;
    t_ch_fee_do_detail.sql.text:='select * from t_ch_fee_do where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_ch_balance.fieldbyname('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').AsString+'''';
    t_ch_fee_do_detail.open;
    frm_sys_progress.bsSkinGauge1.MaxValue:=t_ch_fee_do_detail.RecordCount+2;
    frm_sys_progress.bsSkinGauge1.MinValue:=0;
    frm_sys_progress.bsSkinGauge1.Value:=0;

    while not t_ch_fee_do_detail.eof do
    begin
      Setfee(1,t_ch_fee_do_detail.fieldbyname('CH_ID').AsInteger,t_ch_fee_do_detail.fieldbyname('ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>').AsCurrency);
      frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
      t_ch_fee_do_detail.delete;
    end;

    t_ch_fee_do_detail.close;
    t_ch_fee_do_detail.sql.text:='select * from t_ch_cust_befbal where <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>='''+t_ch_balance.fieldbyname('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').AsString+'''';
    t_ch_fee_do_detail.open;
    while not t_ch_fee_do_detail.eof do
      t_ch_fee_do_detail.delete;


    t_ch_fee_do_detail.close;
    t_ch_balance.Delete;
    if bsSkinNotebook1.PageIndex<>0 then
     getdetail(t_ch_balance.fieldbyname('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').AsString);
    if t_ch_invoice_shen.active then begin
      t_ch_invoice_shen.close;
      t_ch_invoice_shen.open;
    end;
    if t_ch_accept_shen.Active then
    t_ch_accept_shen.requery;
    frm_main.db.CommitTrans;
  finally
    frm_sys_progress.Close;
    frm_sys_progress.Free;
    frm_sys_progress:=nil;

    if frm_main.db.InTransaction then begin
      ShowMessage('ɾ<><C9BE><EFBFBD>˵<EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˢ<EFBFBD><CBA2><EFBFBD><EFBFBD><EFBFBD>ԣ<EFBFBD>');
       frm_main.db.RollbackTrans;
     end;
 end;
  end;

end;

procedure Tfrm_ch_balance_accept.bsSkinButton3Click(Sender: TObject);
begin
  table_cancel(t_ch_balance);
end;

procedure Tfrm_ch_balance_accept.t_ch_balanceBeforePost(DataSet: TDataSet);
begin

  table_before_post(t_ch_balance,'<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
  if not StrToBool(get_parameters_value(83,'false')) then
  table_before_post(t_ch_balance,'<27>ұ<EFBFBD>');
  t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=s_w(strtoint(apointnum),t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
  t_ch_balance['ʵ<><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=s_w(strtoint(apointnum),t_ch_balance['ʵ<><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
  t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=s_w(strtoint(apointnum),t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
  t_ch_balance['Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=s_w(strtoint(apointnum),t_ch_balance['Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
  t_ch_balance['<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>']:=s_w(strtoint(apointnum),t_ch_balance['<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>']);
  t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>']:=s_w(strtoint(apointnum),t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><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>']-t_ch_balance['Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
  end
  else
  begin
  end;

  if (t_ch_balance.state=dsinsert) and (trim(t_ch_balance.FieldByName('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').AsString)='') then begin
    t_ch_balance['<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>']:=get_no(date,'BA');
    getdetail(t_ch_balance['<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>']);
  end;

  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['Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']-t_ch_balance['ʵ<><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
   
end;

procedure Tfrm_ch_balance_accept.DBEdit4Enter(Sender: TObject);
begin
  if bsSkinDBCheckRadioBox1.Checked then
    DBEdit4.ReadOnly:=true
  else
    DBEdit4.ReadOnly:=false;  
end;

procedure Tfrm_ch_balance_accept.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;


  if  Trim(t_ch_balance.fieldbyname('<27><><EFBFBD><EFBFBD>ƾ֤').AsString)<>'' then
  begin
    ShowMessage('<27>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>ƾ֤');
    abort;
  end;




end;

procedure Tfrm_ch_balance_accept.RxDBLookupCombo1Enter(Sender: TObject);
begin
  if StrToBool(get_parameters_value(85,'false')) then begin
  if fra_ch_delete_do1.v_fee_do_bscard.IsEmpty then
  begin
    RxDBLookupCombo1.ReadOnly:=false;
    RxDBLookupCombo2.ReadOnly:=false;
    RxDBLookupCombo12.ReadOnly:=false;
  end
  else
  begin
    RxDBLookupCombo1.ReadOnly:=true;
    RxDBLookupCombo2.ReadOnly:=true;
    RxDBLookupCombo12.ReadOnly:=true;
  end;

  end else 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;
    RxDBLookupCombo12.ReadOnly:=false;
  end
  else
  begin
    RxDBLookupCombo1.ReadOnly:=true;
    RxDBLookupCombo2.ReadOnly:=true;
    RxDBLookupCombo12.ReadOnly:=true;
  end;
  end;
end;

procedure Tfrm_ch_balance_accept.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_accept.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_accept.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  CanClose:=frm_close_query(t_ch_balance);
end;

procedure Tfrm_ch_balance_accept.bsSkinButton9Click(Sender: TObject);
begin
  if bsSkinNotebook1.PageIndex=0 then
  getdetail(t_ch_balance.fieldbyname('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').AsString);
  
  if StrToBool(get_parameters_value(85,'false')) then begin
    sys_print('Ӧ<>շ<EFBFBD><D5B7>ý<EFBFBD><C3BD><EFBFBD>',2,t_ch_balance1,nil,nil,nil,
    fra_ch_delete_do1.v_fee_do_bscard1,nil,
    nil,nil,
    t_ch_balance1,fra_ch_delete_do1.v_fee_do_bscard_sum1,nil);

  end else begin

    sys_print('Ӧ<>շ<EFBFBD><D5B7>ý<EFBFBD><C3BD><EFBFBD>',2,t_ch_balance1,nil,nil,nil,
    fra_ch_delete_do1.v_fee_do_seae1,fra_ch_delete_do1.v_fee_do_seai1,
    fra_ch_delete_do1.v_fee_do_aire1,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);
  end;

end;

procedure Tfrm_ch_balance_accept.bsSkinButton6Click(Sender: TObject);
var
  Pnt:Tpoint;
begin
  Pnt:=bsSkinButton6.ClientToScreen(Point(0,bsSkinButton6.Height));
  PopupMenu6.Popup(Pnt.x,Pnt.y);
end;

procedure Tfrm_ch_balance_accept.bsSkinButton8Click(Sender: TObject);
begin
  if t_ch_balance.IsEmpty then
    exit;
  if (t_ch_balance.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD>')then
  begin
    showmessage('<27><>ǰ<EFBFBD>ʵ<EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
    exit;
  end;
  if not if_open('255') 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
      if t_ch_balance.State in [dsedit,dsinsert] then t_ch_balance.post;
      t_ch_balance.Refresh;
      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_accept.bsSkinButton10Click(Sender: TObject);
begin
  try
    frm_ch_balance_query:=tfrm_ch_balance_query.Create (self);
    balance_query_type:=3;
    frm_ch_balance_query.ShowModal;
    bsSkinNotebook1.PageIndex:=0;
  finally
    frm_ch_balance_query.Free;
  end;
end;

procedure Tfrm_ch_balance_accept.t_ch_balanceAfterPost(DataSet: TDataSet);
begin
  t_ch_balance.Refresh;
  if StrToBool(get_parameters_value(85,'false')) then begin
    if fra_ch_delete_do1.v_fee_do_bscard.Active then begin
      fra_ch_delete_do1.v_fee_do_bscard.DisableControls;
      fra_ch_delete_do1.v_fee_do_bscard_sum.DisableControls;
      fra_ch_delete_do1.v_fee_do_bscard.Requery;
      fra_ch_delete_do1.v_fee_do_bscard_sum.Requery;
      fra_ch_delete_do1.v_fee_do_bscard.EnableControls;
      fra_ch_delete_do1.v_fee_do_bscard_sum.EnableControls;
    end;
{
    if fra_ch_add_do1.V_op_BSCARD.Active then
    begin
       fra_ch_add_do1.t_ch_fee.Requery();
       fra_ch_add_do1.t_ch_fee_sum.Requery();
     end;
 }

  end else begin
    if fra_ch_delete_do1.v_fee_do_seae.Active then begin
      fra_ch_delete_do1.v_fee_do_seae.Requery;
      fra_ch_delete_do1.v_fee_do_seae_sum.Requery;
    end;

    if fra_ch_delete_do1.v_fee_do_seai.Active then begin
      fra_ch_delete_do1.v_fee_do_seai.Requery;
      fra_ch_delete_do1.v_fee_do_seai_sum.Requery;
    end;
    if fra_ch_delete_do1.v_fee_do_aire.active then begin
      fra_ch_delete_do1.v_fee_do_aire.Requery;
      fra_ch_delete_do1.v_fee_do_aire_sum.Requery;
    end;
    if fra_ch_delete_do1.v_fee_do_airi.Active then begin
      fra_ch_delete_do1.v_fee_do_airi.Requery;
      fra_ch_delete_do1.v_fee_do_airi_sum.Requery;
    end;
  end;

  delete_do_type_num:=0;
  if_ch_delete_do:=false;
//  t_ch_balance.Refresh;

end;

procedure Tfrm_ch_balance_accept.t_ch_balanceAfterDelete(
  DataSet: TDataSet);
begin

  if StrToBool(get_parameters_value(85,'false')) then begin
    if fra_ch_add_do1.v_op_bscard.Active then
      fra_ch_add_do1.v_op_bscard.Requery();
  end else 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;
   
end;

procedure Tfrm_ch_balance_accept.DBEdit14KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBEdit(Key,DBEdit1);
end;

procedure Tfrm_ch_balance_accept.DBEdit1KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo1);
end;

procedure Tfrm_ch_balance_accept.RxDBLookupCombo1KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_wwDBComboBox(Key,wwDBComboBox1);
end;

procedure Tfrm_ch_balance_accept.wwDBComboBox1KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo2);
end;

procedure Tfrm_ch_balance_accept.RxDBLookupCombo2KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBEdit(Key,DBEdit4);
end;

procedure Tfrm_ch_balance_accept.DBEdit4KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBEdit(Key,DBEdit5);
end;

procedure Tfrm_ch_balance_accept.DBEdit5KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBEdit(Key,DBEdit6);
end;

procedure Tfrm_ch_balance_accept.DBEdit6KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox1);
end;

procedure Tfrm_ch_balance_accept.bsSkinDBCheckRadioBox1KeyPress(
  Sender: TObject; var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo3);
end;

procedure Tfrm_ch_balance_accept.RxDBLookupCombo3KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBEdit(Key,DBEdit8);
end;

procedure Tfrm_ch_balance_accept.DBEdit8KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBEdit(Key,DBEdit9);
end;

procedure Tfrm_ch_balance_accept.DBEdit9KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBEdit(Key,DBEdit10);
end;

procedure Tfrm_ch_balance_accept.DBEdit10KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBMemo(Key,DBMemo1);
end;

procedure Tfrm_ch_balance_accept.N10Click(Sender: TObject);
begin
  update_grid_view_no(dxdbgrid1);
end;

procedure Tfrm_ch_balance_accept.N14Click(Sender: TObject);
begin
  update_grid_view_all(dxdbgrid1);
end;

procedure Tfrm_ch_balance_accept.N12Click(Sender: TObject);
begin
  update_grid(dxdbgrid1,2);
end;

procedure Tfrm_ch_balance_accept.N16Click(Sender: TObject);
begin
  grid_save_xls(dxdbgrid1);
end;

procedure Tfrm_ch_balance_accept.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_accept.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_accept.DBEdit2Change(Sender: TObject);
begin
  if bsSkinNotebook1.PageIndex<>0 then
  begin
    if DBEdit2.text='<27><><EFBFBD><EFBFBD>'then
    begin
      bsSkinNotebook1.PageIndex:=1;
    end
    else
    begin
      bsSkinNotebook1.PageIndex:=2;
    end;
  end;
end;

procedure Tfrm_ch_balance_accept.bsSkinButton7Click(Sender: TObject);
begin
  t_ch_invoice_shen.close;
  t_ch_invoice_shen.sql.Clear;
  t_ch_invoice_shen.sql.Add('SELECT DISTINCT COL1 = T_CH_FEE_DO1.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> INTO #TEMP1');
  t_ch_invoice_shen.sql.Add(' FROM t_ch_fee_do T_CH_FEE_DO1');
  t_ch_invoice_shen.sql.Add('where T_CH_FEE_DO1.<2E><><EFBFBD><EFBFBD> in (''1'', ''7'') ');
  t_ch_invoice_shen.sql.Add('GROUP BY T_CH_FEE_DO1.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  t_ch_invoice_shen.sql.Add('SELECT t_ch_invoice.* FROM #TEMP1,t_ch_invoice');
  t_ch_invoice_shen.sql.Add('where 1 = 1 and (<28>Ƿ<EFBFBD><C7B7>շ<EFBFBD>=0 or <20>Ƿ<EFBFBD><C7B7>շ<EFBFBD> is null) and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> = #TEMP1.COL1');
  t_ch_invoice_shen.sql.Add('and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> NOT IN (SELECT DISTINCT T_CH_FEE_DO2.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  t_ch_invoice_shen.sql.Add('FROM t_ch_fee_do T_CH_FEE_DO2');
  t_ch_invoice_shen.sql.Add('left JOIN t_ch_fee ON t_ch_fee.CH_ID = T_CH_FEE_DO2.CH_ID');
  t_ch_invoice_shen.sql.Add('where T_CH_FEE_DO2.ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> > (t_ch_fee.<2E><><EFBFBD><EFBFBD> - t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)');
  t_ch_invoice_shen.sql.Add('AND T_CH_FEE_DO2.<2E><><EFBFBD><EFBFBD> in (''1'', ''7''))');
  t_ch_invoice_shen.sql.Add('order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  t_ch_invoice_shen.sql.Add('DROP TABLE #TEMP1');
  t_ch_invoice_shen.open;
end;

procedure Tfrm_ch_balance_accept.bsSkinButton21Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_ch_balance_accept.bsSkinButton25Click(Sender: TObject);
var
  sdate:tdate;
  aList:TStringList;
  i:integer;
  Invnos,billnos:string;
begin
  if t_ch_invoice_shen.IsEmpty then
    exit;
{
  if (t_ch_invoice_shen.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ') then
  begin
    showmessage('<27><>ǰ<EFBFBD><C7B0>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD>շѣ<D5B7><D1A3><EFBFBD>');
    exit;
  end;
 }
  sdate:=EncodeDate(Logininfo.offyear,Logininfo.offmonth,1);
  if sdate>now then begin
    if MessageDlg('<27><><EFBFBD>ڱ<EFBFBD><DAB1><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڽ<EFBFBD>Ϊ'+datetostr(sdate)+',ȷʵҪ<CAB5><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',mtWarning,[mbyes,mbno],0)<>mryes then
      exit;
  end;

  aList:=TStringList.create;

  aList.Clear;
  Invnos:='';
  billnos:='';

  try
    t_ch_invoice_shen.DisableControls;
    t_ch_fee_do_invoice.DisableControls;
    if dxDBGrid10.SelectedCount>0 then
    begin
      for i:=0 to dxDBGrid10.SelectedCount-1 do
      begin
        t_ch_invoice_shen.GotoBookmark(pointer(dxDBGrid10.selectedrows[i]));
        if aList.IndexOf(t_ch_invoice_shen['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>'])<0 then
          aList.Add(t_ch_invoice_shen['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']);
        if Invnos='' then Invnos:=t_ch_invoice_shen.fieldbyname('<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').asstring
        else Invnos:=Invnos+','+t_ch_invoice_shen.fieldbyname('<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').asstring;

        if billnos='' then billnos:=t_ch_invoice_shen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
        else billnos:=billnos+','+t_ch_invoice_shen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
      end;

      if aList.Count>1 then
      begin
        showmessage('<27><><EFBFBD><EFBFBD>ͬ<EFBFBD>Ŀͻ<C4BF><CDBB><EFBFBD><EFBFBD><EFBFBD>ͬʱ<CDAC><CAB1><EFBFBD><EFBFBD>:'+#13#10+aList.Text);
        exit;
      end;
    end
    else
    begin

      aList.Add(t_ch_invoice_shen['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']);
      if Invnos='' then Invnos:=t_ch_invoice_shen.fieldbyname('<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').asstring
      else Invnos:=Invnos+','+t_ch_invoice_shen.fieldbyname('<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').asstring;

      if billnos='' then billnos:=t_ch_invoice_shen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
      else billnos:=billnos+','+t_ch_invoice_shen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;

      if aList.Count>1 then
      begin
        showmessage('û<><C3BB><EFBFBD><EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ:'+#13#10+aList.Text);
        exit;
      end;
    end;
  finally
    aList.free;
    t_ch_invoice_shen.EnableControls;
    t_ch_fee_do_invoice.EnableControls;
  end;


  try
    frm_ch_invoice_do:=tfrm_ch_invoice_do.Create (self);
    frm_ch_invoice_do.Memo1.text:='<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>:'+Invnos+',<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+billnos;
    frm_ch_invoice_do.ShowModal;
  finally
    frm_ch_invoice_do.Free;
    frm_ch_invoice_do:=nil;
  end;
end;

procedure Tfrm_ch_balance_accept.bsSkinButton24Click(Sender: TObject);
begin
  try
    frm_ch_invoice_query:=tfrm_ch_invoice_query.Create (self);
    inv_query_type:=7;
    inv_query_limited:='1003';
    inv_query_op_limited:='no';
    frm_ch_invoice_query.ShowModal;
  finally
    frm_ch_invoice_query.Free;
  end;
end;

procedure Tfrm_ch_balance_accept.bsSkinButton12Click(Sender: TObject);
var
  afield : variant;
  i: Integer;
begin
  t_ch_jinzhang.close;
  t_ch_jinzhang.sql.clear;
  t_ch_jinzhang.sql.add('select top 50 * from t_ch_jinzhang order by <20><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> desc');
  t_ch_jinzhang.open;

  if StrToBool(get_parameters_value(83,'false')) then begin
    if (t_ch_balance.FieldByName('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').AsFloat<>0) and (t_ch_balance.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').AsFloat<>0) then begin
      frm_select_curr:=Tfrm_select_curr.Create(self);
      try
        if frm_select_curr.ShowModal=mrok then begin
          if frm_select_curr.bsSkinRadioGroup1.ItemIndex=0 then begin
            t_ch_jinzhang.Insert;
            t_ch_jinzhang['Ʊ<>ݽ<EFBFBD><DDBD><EFBFBD>']:=t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>'];
            t_ch_jinzhang['<27>ұ<EFBFBD>']:='RMB';
            t_ch_jinzhang['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_balance['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>'] ;
            t_ch_jinzhang['<27><><EFBFBD>д<EFBFBD><D0B4><EFBFBD>']:=t_ch_balance['<27><><EFBFBD>д<EFBFBD><D0B4><EFBFBD>'] ;
            t_ch_jinzhang.Post;
            bsSkinPageControl1.ActivePage:=bskntbshtTBS3;
            bsSkinPageControl5.ActivePage:=bsSkinTabSheet16;
          end else begin
            t_ch_jinzhang.Insert;
            t_ch_jinzhang['Ʊ<>ݽ<EFBFBD><DDBD><EFBFBD>']:=t_ch_balance['<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>'];
            t_ch_jinzhang['<27>ұ<EFBFBD>']:='USD';
            t_ch_jinzhang['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_balance['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>'] ;
            t_ch_jinzhang['<27><><EFBFBD>д<EFBFBD><D0B4><EFBFBD>']:=t_ch_balance['<27><>Ԫ<EFBFBD><D4AA><EFBFBD>д<EFBFBD><D0B4><EFBFBD>'] ;
            bsSkinPageControl1.ActivePage:=bskntbshtTBS3;
            bsSkinPageControl5.ActivePage:=bsSkinTabSheet15;
            t_ch_jinzhang.Post;
          end;
        end;
      finally
        freeandnil(frm_select_curr);
      end;
    end else if (t_ch_balance.FieldByName('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').AsFloat<>0) then begin
      t_ch_jinzhang.Insert;
      t_ch_jinzhang['Ʊ<>ݽ<EFBFBD><DDBD><EFBFBD>']:=t_ch_balance['<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>'];
      t_ch_jinzhang['<27>ұ<EFBFBD>']:='USD';
      t_ch_jinzhang['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_balance['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>'] ;
      t_ch_jinzhang['<27><><EFBFBD>д<EFBFBD><D0B4><EFBFBD>']:=t_ch_balance['<27><>Ԫ<EFBFBD><D4AA><EFBFBD>д<EFBFBD><D0B4><EFBFBD>'] ;
      bsSkinPageControl1.ActivePage:=bskntbshtTBS3;
      bsSkinPageControl5.ActivePage:=bsSkinTabSheet16;
      t_ch_jinzhang.Post;
    end else if (t_ch_balance.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').AsFloat<>0) then begin
      t_ch_jinzhang.Insert;
      t_ch_jinzhang['Ʊ<>ݽ<EFBFBD><DDBD><EFBFBD>']:=t_ch_balance['<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>'];
      t_ch_jinzhang['<27>ұ<EFBFBD>']:='USD';
      t_ch_jinzhang['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_balance['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>'] ;
      t_ch_jinzhang['<27><><EFBFBD>д<EFBFBD><D0B4><EFBFBD>']:=t_ch_balance['<27><><EFBFBD>д<EFBFBD><D0B4><EFBFBD>'] ;
      bsSkinPageControl1.ActivePage:=bskntbshtTBS3;
      bsSkinPageControl5.ActivePage:=bsSkinTabSheet16;
      t_ch_jinzhang.Post;
  end;
  end else begin
    t_ch_jinzhang.Insert;
    t_ch_jinzhang['Ʊ<>ݽ<EFBFBD><DDBD><EFBFBD>']:=t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
    t_ch_jinzhang['<27>ұ<EFBFBD>']:=t_ch_balance['<27>ұ<EFBFBD>'];
    t_ch_jinzhang['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_balance['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>'] ;
    t_ch_jinzhang['<27><><EFBFBD>д<EFBFBD><D0B4><EFBFBD>']:=t_ch_balance['<27><><EFBFBD>д<EFBFBD><D0B4><EFBFBD>'] ;
    bsSkinPageControl1.ActivePage:=bskntbshtTBS3;
    bsSkinPageControl5.ActivePage:=bsSkinTabSheet16;
    t_ch_jinzhang.Post;
  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>']:=employee;
    t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
    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><D4AA><EFBFBD><EFBFBD>']:=0;
    t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>']:=0;
    t_ch_balance['<27><><EFBFBD><EFBFBD>']:='<27><>';
    t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD><EFBFBD>';
    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_accept.bsSkinButton14Click(Sender: TObject);
begin
  try
    frm_ch_shen_query:=tfrm_ch_shen_query.Create (self);
    shen_query_type:=9;
    shen_query_limited:='1003';
    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_accept.bsSkinButton15Click(Sender: TObject);
var
  sdate:tdate;
  aList:TStringList;
  i:integer;
  billnos:string;
begin
  {$IFDEF SFLIUCHENG}
  if t_ch_accept_shen.IsEmpty then
    exit;
  if (t_ch_accept_shen.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>') then
  begin
    showmessage('<27><>ǰ<EFBFBD><C7B0>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD>շѣ<D5B7><D1A3><EFBFBD>');
    exit;
  end;
  sdate:=EncodeDate(Logininfo.offyear,Logininfo.offmonth,1);
  if sdate>now then begin
    if MessageDlg('<27><><EFBFBD>ڱ<EFBFBD><DAB1><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڽ<EFBFBD>Ϊ'+datetostr(sdate)+',ȷʵҪ<CAB5><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',mtWarning,[mbyes,mbno],0)<>mryes then
      exit;
  end;
  aList:=TStringList.create;

  billnos:='';
  try
    t_ch_accept_shen.DisableControls;
    t_ch_fee_do_accept.DisableControls;
    aList.Clear;
    if dxDBGrid19.SelectedCount>0 then
    begin
      for i:=0 to dxDBGrid19.SelectedCount-1 do
      begin
        t_ch_accept_shen.GotoBookmark(pointer(dxDBGrid19.selectedrows[i]));
        if aList.IndexOf(t_ch_accept_shen['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>'])<0 then
          aList.Add(t_ch_accept_shen['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']);
        if billnos='' then billnos:=t_ch_accept_shen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
        else billnos:=billnos+','+t_ch_accept_shen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;

      end;

      if aList.Count>1 then
      begin
        showmessage('<27><><EFBFBD><EFBFBD>ͬ<EFBFBD>Ŀͻ<C4BF><CDBB><EFBFBD><EFBFBD><EFBFBD>ͬʱ<CDAC><CAB1><EFBFBD><EFBFBD>:'+#13#10+aList.Text);
        exit;
      end;
    end
    else
    begin
      aList.Add(t_ch_accept_shen['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']);
      if billnos='' then billnos:=t_ch_accept_shen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
      else billnos:=billnos+','+t_ch_accept_shen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
      if aList.Count>1 then
      begin
        showmessage('û<><C3BB><EFBFBD><EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ');
        exit;
      end;
    end;
  finally
    t_ch_accept_shen.EnableControls;
    t_ch_fee_do_accept.EnableControls;
    aList.free;
  end;

  try
    frm_ch_accept_do:=tfrm_ch_accept_do.Create (self);
    frm_ch_accept_do.Memo1.text:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+billnos;
    frm_ch_accept_do.ShowModal;
  finally
    frm_ch_accept_do.Free;
    frm_ch_accept_do:=nil;
  end;
  {$ENDIF}
end;

procedure Tfrm_ch_balance_accept.bsSkinButton17Click(Sender: TObject);
begin
  t_ch_invoice_shen.close;
  t_ch_invoice_shen.sql.clear;
  t_ch_invoice_shen.sql.add('SELECT * FROM t_ch_invoice_shen '
    +'WHERE (<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> NOT IN (SELECT DISTINCT t_ch_fee_do.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
    +' FROM t_ch_fee_do INNER JOIN t_ch_fee ON t_ch_fee_do.CH_ID = t_ch_fee.CH_ID AND'
    +' t_ch_fee_do.ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> >(t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) AND'
    +' t_ch_fee_do.<2E><><EFBFBD><EFBFBD> = '+''''+'1'+''''+')) AND (<28><><EFBFBD><EFBFBD>״̬ = '+''''
    +'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ'+''''+')'
    +' order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  t_ch_invoice_shen.open;

end;

procedure Tfrm_ch_balance_accept.bsSkinButton16Click(Sender: TObject);
var
  aQuery:TADOQuery;
begin

  if t_ch_accept_shen.IsEmpty then
    exit;
  if (t_ch_accept_shen.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>') then
  begin
    showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD>ܳ<EFBFBD><DCB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>룡<EFBFBD><EBA3A1>');
    exit;
  end;
  t_ch_accept_shen.edit;
  t_ch_accept_shen['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD><EFBFBD>տ<EFBFBD>';
  t_ch_accept_shen.Post;

    aQuery:=CreateAdoQuery;
    try
      with aQuery do begin
        Close;SQL.Clear;
        SQL.Add('select <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>״̬ from t_op_seae where <20><><EFBFBD><EFBFBD>״̬=''<27>ύ<EFBFBD>տ<EFBFBD>'' and <20><><EFBFBD><EFBFBD> in (select DISTINCT ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_ch_fee_do where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_ch_accept_shen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']+''')');
        Open;
        if not IsEmpty then begin
          First;
          while not eof do begin
            Edit;
            FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString:='<27><><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>';
            Post;
            Next;
          end;
        end;
      end;
    finally
      FreeAndNil(aQuery);
    end;
  t_ch_accept_shen.Requery;

end;

procedure Tfrm_ch_balance_accept.t_ch_balanceCalcFields(DataSet: TDataSet);
begin
  if not StrToBool(get_parameters_value(83,'false')) then
  begin
    if dataset.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then begin
      dataset.FieldByName('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat:=dataset.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
      dataset.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat:=0;
    end
    else begin
      dataset.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat:=dataset.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
      dataset.FieldByName('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat:=0;
    end;
  end;
 if frm_data_share.t_crm_client.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',t_ch_balance.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring,[])then begin
    t_ch_balance.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring:=frm_data_share.t_crm_client.fieldbyname('<27><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD>ʿ<EFBFBD><CABF><EFBFBD><EFBFBD><EFBFBD>').asstring;
    t_ch_balance.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring:=frm_data_share.t_crm_client.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
 end;

end;

procedure Tfrm_ch_balance_accept.bsSkinButton38Click(Sender: TObject);
var
  book1:Tbookmark;
begin
 if t_ch_balance.IsEmpty then
      exit;
  if bsSkinNotebook1.PageIndex=0 then
  begin
    book1:=t_ch_balance.GetBookmark;
    t_ch_balance.Requery;
    t_ch_balance.GotoBookmark(book1);
  end
  else
  begin
    book1:=t_ch_balance.GetBookmark;
    t_ch_balance.Refresh;
    t_ch_balance.GotoBookmark(book1);
  end;

{
  if t_ch_balance=nil then
    exit;
  book1:=t_ch_balance.GetBookmark;
  t_ch_balance.Refresh;
  t_ch_balance.GotoBookmark(book1);
}
end;

procedure Tfrm_ch_balance_accept.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_accept.RxDBLookupCombo16Change(Sender: TObject);
begin
   if not frm_data_share.t_sys_bank.IsEmpty then
  if frm_data_share.t_sys_bank.Locate('<27><><EFBFBD><EFBFBD>',RxDBLookupCombo16.DisplayValues[0],[])then begin
    t_ch_balance['<27><>Ԫ<EFBFBD><D4AA><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><D4AA><EFBFBD><EFBFBD>']:='';
  end;
end;

procedure Tfrm_ch_balance_accept.RxDBLookupCombo16Enter(Sender: TObject);
begin
    frm_data_share.t_sys_bank.Filtered:=false;
  frm_data_share.t_sys_bank.Filter:='<27>ұ<EFBFBD>=''USD''';
  frm_data_share.t_sys_bank.Filtered:=true;
end;

procedure Tfrm_ch_balance_accept.RxDBLookupCombo16Exit(Sender: TObject);
begin
  frm_data_share.t_sys_bank.Filtered:=false;
end;

procedure Tfrm_ch_balance_accept.RxDBLookupCombo15Exit(Sender: TObject);
begin
  frm_data_share.t_sys_bank.Filtered:=false;
end;

procedure Tfrm_ch_balance_accept.RxDBLookupCombo15Enter(Sender: TObject);
begin
  frm_data_share.t_sys_bank.Filtered:=false;
  if StrToBool(get_parameters_value(83,'false')) then begin
    frm_data_share.t_sys_bank.Filter:='<27>ұ<EFBFBD>=''RMB''';
    frm_data_share.t_sys_bank.Filtered:=true;
  end;
end;

procedure Tfrm_ch_balance_accept.t_ch_balanceBeforeDelete(
  DataSet: TDataSet);
var
  sdate:tdate;
begin
{
  sdate:=Logininfo.endday+1;
  if not t_ch_balance.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').IsNull then
  if sdate>t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'] then begin
    MessageDlg('<27><>Ʊ<EFBFBD><C6B1><EFBFBD>㵥<EFBFBD><E3B5A5><EFBFBD><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7><EFBFBD><EFBFBD>ˣ<EFBFBD>',mtError,[mbok],0);
    abort;
  end;
}
end;

procedure Tfrm_ch_balance_accept.dxDBGrid6DblClick(Sender: TObject);
begin
  fee_view(v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);
end;

procedure Tfrm_ch_balance_accept.dxDBGrid7DblClick(Sender: TObject);
begin
  fee_view(v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);

end;

procedure Tfrm_ch_balance_accept.dxDBGrid8DblClick(Sender: TObject);
begin
  fee_view(v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);

end;

procedure Tfrm_ch_balance_accept.dxDBGrid9DblClick(Sender: TObject);
begin
  fee_view(v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);

end;

procedure Tfrm_ch_balance_accept.t_ch_jinzhangAfterInsert(
  DataSet: TDataSet);
begin
  t_ch_jinzhang['<27>Ƶ<EFBFBD><C6B5><EFBFBD>']:=employee;
  t_ch_jinzhang['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=date;
  t_ch_jinzhang['Ʊ<>ݽ<EFBFBD><DDBD><EFBFBD>']:=0;
  t_ch_jinzhang['Ʊ<><C6B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='֧Ʊ';
  t_ch_jinzhang['<27>ұ<EFBFBD>']:='RMB';

  t_ch_jinzhang['<27><><EFBFBD><EFBFBD>״̬']:=0;
  t_ch_jinzhang['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ']:=0;
  t_ch_jinzhang['<27>Ƿ<EFBFBD><C7B7>ϳ<EFBFBD>']:=0;
  sncDBCurrencyEdit1.CurrencySymbol:='<27><>';

end;

procedure Tfrm_ch_balance_accept.t_ch_jinzhangBeforePost(
  DataSet: TDataSet);
begin
  table_before_post(t_ch_jinzhang,'Ʊ<>ݽ<EFBFBD><DDBD><EFBFBD>');
  table_before_post(t_ch_jinzhang,'<27>ұ<EFBFBD>');

end;

procedure Tfrm_ch_balance_accept.N1Click(Sender: TObject);
begin
  if t_ch_jinzhang.IsEmpty then
    exit;
  if t_ch_jinzhang.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_jinzhang.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ').asboolean  then
  begin
    t_ch_jinzhang.Edit;
    t_ch_jinzhang['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ']:=1;
    t_ch_jinzhang.post;
  end;

  sys_print('<27><><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD>ӡ',TMenuItem(sender).tag,t_ch_jinzhang1,nil,nil,nil,nil,nil,nil,nil,t_ch_jinzhang1,nil,nil);

end;

procedure Tfrm_ch_balance_accept.bsSkinButton33Click(Sender: TObject);
var
  Pnt:Tpoint;
begin
  Pnt:=bsSkinButton33.ClientToScreen(Point(0,bsSkinButton33.Height));
  PopupMenu1.Popup(Pnt.x,Pnt.y);

end;

procedure Tfrm_ch_balance_accept.bsSkinButton18Click(Sender: TObject);
var
  Pnt:Tpoint;
begin
  Pnt:=bsSkinButton18.ClientToScreen(Point(0,bsSkinButton18.Height));
  PopupMenu1.Popup(Pnt.x,Pnt.y);

end;

procedure Tfrm_ch_balance_accept.bsSkinButton22Click(Sender: TObject);
var
  Pnt:Tpoint;
begin
  Pnt:=bsSkinButton22.ClientToScreen(Point(0,bsSkinButton22.Height));
  PopupMenu3.Popup(Pnt.x,Pnt.y);

end;

procedure Tfrm_ch_balance_accept.bsSkinButton23Click(Sender: TObject);
begin
  table_post(t_ch_jinzhang);
end;

procedure Tfrm_ch_balance_accept.bsSkinButton27Click(Sender: TObject);
begin
  table_cancel(t_ch_jinzhang);

end;

procedure Tfrm_ch_balance_accept.bsSkinButton20Click(Sender: TObject);
begin
  bsSkinPageControl5.ActivePage:=bsSkinTabSheet16;

end;

procedure Tfrm_ch_balance_accept.dxDBGrid30DblClick(Sender: TObject);
begin
  bsSkinPageControl5.ActivePage:=bsSkinTabSheet16;

end;

procedure Tfrm_ch_balance_accept.bsSkinButton29Click(Sender: TObject);
begin
table_post(t_ch_jinzhang);
end;

procedure Tfrm_ch_balance_accept.bsSkinButton31Click(Sender: TObject);
begin
table_cancel(t_ch_jinzhang);
end;

procedure Tfrm_ch_balance_accept.bsSkinButton34Click(Sender: TObject);
begin
 bsSkinPageControl5.ActivePage:=bsSkinTabSheet15;
end;

procedure Tfrm_ch_balance_accept.bsSkinButton35Click(Sender: TObject);
begin
table_Prior(t_ch_jinzhang);
end;

procedure Tfrm_ch_balance_accept.bsSkinButton36Click(Sender: TObject);
begin
table_next(t_ch_jinzhang);
end;

procedure Tfrm_ch_balance_accept.jinzhangbankchange(sender: TField);
begin
  try
    if (t_ch_jinzhang.state=dsinsert) or (t_ch_jinzhang.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>',t_ch_jinzhang['<27><><EFBFBD>д<EFBFBD><D0B4><EFBFBD>'],[])then begin
        t_ch_jinzhang['<27><><EFBFBD><EFBFBD><EFBFBD>˺<EFBFBD>']:=frm_data_share.t_sys_bank.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˺<EFBFBD>').asstring;
        t_ch_jinzhang['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_sys_bank.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
        t_ch_jinzhang['<27>ұ<EFBFBD>']:=frm_data_share.t_sys_bank.fieldbyname('<27>ұ<EFBFBD>').asstring;

      if frm_data_share.t_crm_client.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',t_ch_jinzhang['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>'],[])then
        if t_ch_jinzhang['<27>ұ<EFBFBD>']='RMB' then begin
          if frm_data_share.t_crm_client.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֧Ʊ̧ͷ').asstring='' then
            t_ch_jinzhang['<27><>Ʊ<EFBFBD><C6B1>λ']:=frm_data_share.t_crm_client.fieldbyname('<27>ͻ<EFBFBD>ȫ<EFBFBD><C8AB>').asstring
          else
            t_ch_jinzhang['<27><>Ʊ<EFBFBD><C6B1>λ']:=frm_data_share.t_crm_client.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֧Ʊ̧ͷ').asstring;
          t_ch_jinzhang['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>RMB').asstring;
          t_ch_jinzhang['<27><>Ʊ<EFBFBD>ʺ<EFBFBD>']:=frm_data_share.t_crm_client.fieldbyname('<27>ʺ<EFBFBD>RMB').asstring;
        end else begin
          if frm_data_share.t_crm_client.fieldbyname('<27><>Ԫ֧Ʊ̧ͷ').asstring='' then
            t_ch_jinzhang['<27><>Ʊ<EFBFBD><C6B1>λ']:=frm_data_share.t_crm_client.fieldbyname('<27>ͻ<EFBFBD>ȫ<EFBFBD><C8AB>').asstring
          else
            t_ch_jinzhang['<27><>Ʊ<EFBFBD><C6B1>λ']:=frm_data_share.t_crm_client.fieldbyname('<27><>Ԫ֧Ʊ̧ͷ').asstring;
          t_ch_jinzhang['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>USD').asstring;
          t_ch_jinzhang['<27><>Ʊ<EFBFBD>ʺ<EFBFBD>']:=frm_data_share.t_crm_client.fieldbyname('<27>ʺ<EFBFBD>USD').asstring;

        end;

        ischangecur:=false;
        try
        finally
          ischangecur:=true;
        end;
      end;
    end;
  except
    ;
  end;

end;

procedure Tfrm_ch_balance_accept.jinzhangcustchange(sender: TField);
begin
    if (t_ch_jinzhang.state=dsinsert) or (t_ch_jinzhang.state=dsedit) then
    begin
      if frm_data_share.t_crm_client.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',t_ch_jinzhang['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>'],[])then
        if t_ch_jinzhang['<27>ұ<EFBFBD>']='RMB' then begin
          if frm_data_share.t_crm_client.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֧Ʊ̧ͷ').asstring='' then
            t_ch_jinzhang['<27><>Ʊ<EFBFBD><C6B1>λ']:=frm_data_share.t_crm_client.fieldbyname('<27>ͻ<EFBFBD>ȫ<EFBFBD><C8AB>').asstring
          else
            t_ch_jinzhang['<27><>Ʊ<EFBFBD><C6B1>λ']:=frm_data_share.t_crm_client.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֧Ʊ̧ͷ').asstring;
          t_ch_jinzhang['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>RMB').asstring;
          t_ch_jinzhang['<27><>Ʊ<EFBFBD>ʺ<EFBFBD>']:=frm_data_share.t_crm_client.fieldbyname('<27>ʺ<EFBFBD>RMB').asstring;
        end else begin
          if frm_data_share.t_crm_client.fieldbyname('<27><>Ԫ֧Ʊ̧ͷ').asstring='' then
            t_ch_jinzhang['<27><>Ʊ<EFBFBD><C6B1>λ']:=frm_data_share.t_crm_client.fieldbyname('<27>ͻ<EFBFBD>ȫ<EFBFBD><C8AB>').asstring
          else
            t_ch_jinzhang['<27><>Ʊ<EFBFBD><C6B1>λ']:=frm_data_share.t_crm_client.fieldbyname('<27><>Ԫ֧Ʊ̧ͷ').asstring;
          t_ch_jinzhang['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>USD').asstring;
          t_ch_jinzhang['<27><>Ʊ<EFBFBD>ʺ<EFBFBD>']:=frm_data_share.t_crm_client.fieldbyname('<27>ʺ<EFBFBD>USD').asstring;

        end;
    end;
end;

procedure Tfrm_ch_balance_accept.jinzhangdatechange(sender: TField);
begin
  t_ch_jinzhang['<27><>']:=my_strtoyear(t_ch_jinzhang['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']);
  t_ch_jinzhang['<27><>']:=my_strtomonth(t_ch_jinzhang['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']);
  t_ch_jinzhang['<27><>']:=my_strtodday(t_ch_jinzhang['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']);
  t_ch_jinzhang['<27><>С']:=formatdatetime('yyyy',t_ch_jinzhang['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']);
  t_ch_jinzhang['<27><>С']:=formatdatetime('m',t_ch_jinzhang['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']);
  t_ch_jinzhang['<27><>С']:=formatdatetime('d',t_ch_jinzhang['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']);

end;

procedure Tfrm_ch_balance_accept.jinzhangnumchange(sender: TField);
var
  lowamont:String;
  lenlowamont,i,J:Integer;
  upword:array[0..12] of string[4];
begin
  if Sender.DataSet['<27>ұ<EFBFBD>']='' then exit;

  upword[0]:='<27><>';upword[1]:='<27><>';upword[2]:='Ԫ';upword[3]:='ʮ';upword[4]:='<27><>';
  upword[5]:='ǧ';upword[6]:='<27><>';upword[7]:='ʮ<><CAAE>';upword[8]:='<27><><EFBFBD><EFBFBD>';upword[9]:='ǧ<><C7A7>';
  upword[10]:='<27><>';upword[11]:='ʮ<><CAAE>';upword[12]:='<27><><EFBFBD><EFBFBD>';

  if Sender.DataSet['<27>ұ<EFBFBD>']='RMB' then begin
    lowamont:=formatfloat('0.00',Sender.DataSet['Ʊ<>ݽ<EFBFBD><DDBD><EFBFBD>']);
    lenlowamont:=length(lowamont);
    delete(lowamont,lenlowamont-2,1);
    lenlowamont:=length(lowamont);
    J:=0;
    for i:=0 to 12 do begin
      Sender.DataSet[upword[i]]:='';
    end;
    for i:=lenlowamont downto 1 do begin
      Sender.DataSet[upword[j]]:=lowamont[i];
      J:=J+1;
    end;

    Sender.DataSet[upword[lenlowamont]]:='<27><>';

    Label80.Visible:=false;
    Label85.Visible:=True;
    sncDBCurrencyEdit1.CurrencySymbol:='<27><>';

//    Sender.DataSet['<27><><EFBFBD><EFBFBD>Сд']:=FloatToStr(Sender.DataSet['֧Ʊ<D6A7><C6B1><EFBFBD><EFBFBD>']);
    Sender.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']:=DXZH(FloatToStr(Sender.DataSet['Ʊ<>ݽ<EFBFBD><DDBD><EFBFBD>']))
  end else begin
    lowamont:=formatfloat('0.00',Sender.DataSet['Ʊ<>ݽ<EFBFBD><DDBD><EFBFBD>']);
    lenlowamont:=length(lowamont);
    delete(lowamont,lenlowamont-2,1);
    lenlowamont:=length(lowamont);
    for i:=0 to 12 do begin
      Sender.DataSet[upword[i]]:='';
    end;

    J:=0;
    for i:=lenlowamont downto 1 do begin
      Sender.DataSet[upword[j]]:=lowamont[i];
      J:=J+1;
    end;
    Sender.DataSet[upword[lenlowamont]]:='D';
    Sender.DataSet[upword[lenlowamont+1]]:='S';
    Sender.DataSet[upword[lenlowamont+2]]:='U';
    sncDBCurrencyEdit1.CurrencySymbol:='$';
    Sender.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']:=DXZHUSD(FloatToStr(Sender.DataSet['Ʊ<>ݽ<EFBFBD><DDBD><EFBFBD>']));
    Label80.Visible:=True;
    Label85.Visible:=false;
  end;

end;

procedure Tfrm_ch_balance_accept.jinzhangcurrchange(sender: TField);
begin
  if ischangecur then begin
    if frm_data_share.t_sys_bank.Locate('<27><><EFBFBD><EFBFBD>',t_ch_jinzhang.fieldbyname('<27><><EFBFBD>д<EFBFBD><D0B4><EFBFBD>').AsString,[]) then begin
      if frm_data_share.t_sys_bank['<27>ұ<EFBFBD>']<>t_ch_jinzhang['<27>ұ<EFBFBD>'] then begin
        if frm_data_share.t_sys_bank.Locate('<27>ұ<EFBFBD>',t_ch_jinzhang['<27>ұ<EFBFBD>'],[]) then begin
          t_ch_jinzhang['<27><><EFBFBD>д<EFBFBD><D0B4><EFBFBD>']:=frm_data_share.t_sys_bank.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
          t_ch_jinzhang['<27><><EFBFBD><EFBFBD><EFBFBD>˺<EFBFBD>']:=frm_data_share.t_sys_bank.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˺<EFBFBD>').asstring;
          t_ch_jinzhang['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_sys_bank.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
        end;
      end;
    end else begin
      if frm_data_share.t_sys_bank.Locate('<27>ұ<EFBFBD>',t_ch_jinzhang['<27>ұ<EFBFBD>'],[]) then begin
        t_ch_jinzhang['<27><><EFBFBD>д<EFBFBD><D0B4><EFBFBD>']:=frm_data_share.t_sys_bank.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
        t_ch_jinzhang['<27><><EFBFBD><EFBFBD><EFBFBD>˺<EFBFBD>']:=frm_data_share.t_sys_bank.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˺<EFBFBD>').asstring;
        t_ch_jinzhang['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_sys_bank.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
      end;
    end;
///
      if frm_data_share.t_crm_client.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',t_ch_jinzhang['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>'],[])then
        if t_ch_jinzhang['<27>ұ<EFBFBD>']='RMB' then begin
          if frm_data_share.t_crm_client.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֧Ʊ̧ͷ').asstring='' then
            t_ch_jinzhang['<27><>Ʊ<EFBFBD><C6B1>λ']:=frm_data_share.t_crm_client.fieldbyname('<27>ͻ<EFBFBD>ȫ<EFBFBD><C8AB>').asstring
          else
            t_ch_jinzhang['<27><>Ʊ<EFBFBD><C6B1>λ']:=frm_data_share.t_crm_client.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֧Ʊ̧ͷ').asstring;
          t_ch_jinzhang['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>RMB').asstring;
          t_ch_jinzhang['<27><>Ʊ<EFBFBD>ʺ<EFBFBD>']:=frm_data_share.t_crm_client.fieldbyname('<27>ʺ<EFBFBD>RMB').asstring;
        end else begin
          if frm_data_share.t_crm_client.fieldbyname('<27><>Ԫ֧Ʊ̧ͷ').asstring='' then
            t_ch_jinzhang['<27><>Ʊ<EFBFBD><C6B1>λ']:=frm_data_share.t_crm_client.fieldbyname('<27>ͻ<EFBFBD>ȫ<EFBFBD><C8AB>').asstring
          else
            t_ch_jinzhang['<27><>Ʊ<EFBFBD><C6B1>λ']:=frm_data_share.t_crm_client.fieldbyname('<27><>Ԫ֧Ʊ̧ͷ').asstring;
          t_ch_jinzhang['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>USD').asstring;
          t_ch_jinzhang['<27><>Ʊ<EFBFBD>ʺ<EFBFBD>']:=frm_data_share.t_crm_client.fieldbyname('<27>ʺ<EFBFBD>USD').asstring;

        end;
  end;

  if not t_ch_jinzhang.FieldByName('Ʊ<>ݽ<EFBFBD><DDBD><EFBFBD>').IsNull then
    jinzhangnumchange(sender)
  else begin
    if t_ch_jinzhang['<27>ұ<EFBFBD>']='RMB' then begin
      sncDBCurrencyEdit1.CurrencySymbol:='<27><>';
      Label113.Visible:=false;
      Label118.Visible:=True;
    end else begin
      sncDBCurrencyEdit1.CurrencySymbol:='$';
      Label113.Visible:=true;
      Label118.Visible:=false;
    end;
  end;

end;

procedure Tfrm_ch_balance_accept.bsSkinPageControl1Change(Sender: TObject);
begin
  if not ch_balance_accept_open then exit;
  if bsSkinPageControl1.ActivePage=bsSkinTabSheet2 then begin
    t_ch_invoice_shen.Close;
    if not t_ch_invoice_shen.active then
    begin
      if StrToBool(get_parameters_value(85,'false')) then
      begin
        t_ch_invoice_shen.open;
        t_ch_fee_do_invoice.open;
        v_fee_do_seae.Close;
        v_fee_do_seai.Close;
        v_fee_do_aire.Close;
        v_fee_do_airi.Close;

        v_fee_do_bsCard.Close;
        v_fee_do_bsCard.DataSource:=t_ch_invoice_shen1;
        v_fee_do_bsCard.open;
        v_fee_do_seae_sum.Close;
        v_fee_do_seai_sum.Close;
        v_fee_do_aire_sum.Close;
        v_fee_do_airi_sum.Close;
        v_fee_do_bsCard_sum.Close;
        v_fee_do_bsCard_sum.DataSource:=t_ch_invoice_shen1;
        v_fee_do_bsCard_sum.open;

        bsSkinTabSheet7.TabVisible:=false;
        bsSkinTabSheet8.TabVisible:=false;
        bsSkinTabSheet9.TabVisible:=false;
        bsSkinTabSheet10.TabVisible:=false;
        bsSkinTabSheet17.TabVisible:=true;
      end
      else
      begin
        t_ch_invoice_shen.open;
        t_ch_fee_do_invoice.open;
        v_fee_do_seae.Open;
        v_fee_do_seai.open;
        v_fee_do_aire.open;
        v_fee_do_airi.open;
        v_fee_do_bsCard.Close;
        v_fee_do_seae_sum.Open;
        v_fee_do_seai_sum.open;
        v_fee_do_aire_sum.open;
        v_fee_do_airi_sum.open;
        v_fee_do_bsCard_sum.Close;
        bsSkinTabSheet7.TabVisible:=true;
        bsSkinTabSheet8.TabVisible:=true;
        bsSkinTabSheet9.TabVisible:=true;
        bsSkinTabSheet10.TabVisible:=true;
        bsSkinTabSheet17.TabVisible:=false;

      end;
    end;
  end else if bsSkinPageControl1.ActivePage=bsSkinTabSheet111 then
  begin
    t_ch_accept_shen.Close;
    if not t_ch_accept_shen.active then
    begin
      if StrToBool(get_parameters_value(85,'false')) then
      begin
        t_ch_accept_shen.open;
        t_ch_fee_do_accept.open;

        v_fee_do_bsCard.DataSource:=t_ch_accept_shen1;
        v_fee_do_bsCard.Close;
        v_fee_do_bsCard.open;

        acceptv_fee_do_seae.close;
        acceptv_fee_do_seai.close;
        acceptv_fee_do_aire.close;
        acceptv_fee_do_airi.close;
        acceptv_fee_do_seae_sum.close;
        acceptv_fee_do_seai_sum.close;
        acceptv_fee_do_aire_sum.close;
        acceptv_fee_do_airi_sum.close;

        v_fee_do_bsCard_sum.Close;
        v_fee_do_bsCard_sum.DataSource:=t_ch_accept_shen1;
        v_fee_do_bsCard_sum.open;

        bsSkinTabSheet11.TabVisible:=false;
        bsSkinTabSheet12.TabVisible:=false;
        bsSkinTabSheet13.TabVisible:=false;
        bsSkinTabSheet14.TabVisible:=false;
        bsSkinTabSheet18.TabVisible:=true;

      end
      else
      begin
        t_ch_accept_shen.open;
        t_ch_fee_do_accept.open;
        acceptv_fee_do_seae.Open;
        acceptv_fee_do_seai.open;
        acceptv_fee_do_aire.open;
        acceptv_fee_do_airi.open;
        v_fee_do_bsCard.Close;
        acceptv_fee_do_seae_sum.Open;
        acceptv_fee_do_seai_sum.open;
        acceptv_fee_do_aire_sum.open;
        acceptv_fee_do_airi_sum.open;
        v_fee_do_bsCard_sum.Close;

        bsSkinTabSheet11.TabVisible:=true;
        bsSkinTabSheet12.TabVisible:=true;
        bsSkinTabSheet13.TabVisible:=true;
        bsSkinTabSheet14.TabVisible:=true;
        bsSkinTabSheet18.TabVisible:=false;
      end;

    end;
  end;

  if bsSkinPageControl1.ActivePage=bskntbshtTBS3 then begin
    if t_ch_jinzhang.Active then exit;
    t_ch_jinzhang.close;
    t_ch_jinzhang.sql.clear;
    t_ch_jinzhang.sql.add('select top 50 * from t_ch_jinzhang order by <20><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> desc');
    t_ch_jinzhang.open;
  end else begin
    t_ch_jinzhang.close;
  end;

end;

procedure Tfrm_ch_balance_accept.t_ch_jinzhangAfterOpen(DataSet: TDataSet);
begin
  t_ch_jinzhang.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').OnChange:=jinzhangcustchange;
  t_ch_jinzhang.fieldbyname('<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').OnChange:=jinzhangdatechange;
  t_ch_jinzhang.fieldbyname('Ʊ<>ݽ<EFBFBD><DDBD><EFBFBD>').OnChange:=jinzhangnumchange;
  t_ch_jinzhang.fieldbyname('<27>ұ<EFBFBD>').OnChange:=jinzhangCurrchange;
  t_ch_jinzhang.fieldbyname('<27><><EFBFBD>д<EFBFBD><D0B4><EFBFBD>').OnChange:=jinzhangbankchange;

end;

procedure Tfrm_ch_balance_accept.bsSkinButton30Click(Sender: TObject);
var
  str:widestring;
  if_shen:string;
  in_id:integer;
begin
  if t_ch_jinzhang.IsEmpty then
    exit;
  if t_ch_jinzhang.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_jinzhang.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_jinzhang.FieldByName('JZ_ID').asinteger;
    t_ch_jinzhang.Refresh;
    if not t_ch_jinzhang.locate('JZ_ID',in_id,[]) then
      exit;
    try
      modify_all:=true;
      t_ch_jinzhang.Edit;
      t_ch_jinzhang['<27>Ƿ<EFBFBD><C7B7>ϳ<EFBFBD>']:=1;
      t_ch_jinzhang['<27>ϳ<EFBFBD>ԭ<EFBFBD><D4AD>']:=str;
      t_ch_jinzhang['<27>ϳ<EFBFBD><CFB3><EFBFBD>']:=employee;
      t_ch_jinzhang['<27>ϳ<EFBFBD><CFB3><EFBFBD><EFBFBD><EFBFBD>']:=now;
      t_ch_jinzhang['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
      t_ch_jinzhang.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_jinzhang.delete
    else
      exit;
  end;
end;

procedure Tfrm_ch_balance_accept.bsSkinButton19Click(Sender: TObject);
begin
  try
    frm_ch_zhipiao_query:=tfrm_ch_zhipiao_query.Create (self);
    zhipiao_query_type:=2;
    frm_ch_zhipiao_query.ShowModal;
  finally
    frm_ch_zhipiao_query.Free;
  end;
end;

procedure Tfrm_ch_balance_accept.RxDBLookupCombo3Change(Sender: TObject);
begin
  if not frm_data_share.t_sys_bank.IsEmpty then
  if frm_data_share.t_sys_bank.Locate('<27><><EFBFBD><EFBFBD>',RxDBLookupCombo3.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_accept.RxDBLookupCombo10Change(Sender: TObject);
begin
  if not frm_data_share.t_sys_bank.IsEmpty then
  if frm_data_share.t_sys_bank.Locate('<27><><EFBFBD><EFBFBD>',RxDBLookupCombo10.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_accept.RxDBLookupCombo6Change(Sender: TObject);
begin
  if not frm_data_share.t_sys_bank.IsEmpty then
  if frm_data_share.t_sys_bank.Locate('<27><><EFBFBD><EFBFBD>',RxDBLookupCombo6.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_accept.bsSkinButton28Click(Sender: TObject);
var
  Pnt:Tpoint;
begin
  Pnt:=bsSkinButton28.ClientToScreen(Point(0,bsSkinButton28.Height));
  PopupMenu3.Popup(Pnt.x,Pnt.y);

end;

procedure Tfrm_ch_balance_accept.MenuItem1Click(Sender: TObject);
begin
  t_ch_jinzhang.Insert;
  bsSkinPageControl5.ActivePage:=bsSkinTabSheet16;

end;

procedure Tfrm_ch_balance_accept.MenuItem3Click(Sender: TObject);
var
  afield,afieldfee : variant;
  i:integer;
begin
  if t_ch_jinzhang.IsEmpty then begin
    exit;
    MessageDlg('û<>и<EFBFBD><D0B8>Ƶ<EFBFBD><C6B5><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӣ<EFBFBD>',mtWarning,[mbok],0);
  end;
  afield := vararraycreate([0,t_ch_jinzhang.fieldcount-1],varvariant);
  for i := 0 to (t_ch_jinzhang.fieldcount-1) do
  begin
    afield[i] :=t_ch_jinzhang.fields[i].value ;
  end;

  t_ch_jinzhang.append;
  for i := 0 to (t_ch_jinzhang.fieldcount-1) do
  begin
    if t_ch_jinzhang.fields[i].FieldName<>'JZ_ID' then
    t_ch_jinzhang.fields[i].value := afield[i] ;
  end;
  t_ch_jinzhang['Ʊ<>ݺ<EFBFBD><DDBA><EFBFBD>']:='';
  t_ch_jinzhang['<27>Ƶ<EFBFBD><C6B5><EFBFBD>']:=employee;
  t_ch_jinzhang['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=date;
  t_ch_jinzhang['<27><><EFBFBD><EFBFBD>״̬']:=0;
  t_ch_jinzhang['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ']:=0;
  t_ch_jinzhang['<27>Ƿ<EFBFBD><C7B7>ϳ<EFBFBD>']:=0;
  t_ch_jinzhang.Post;
  bsSkinPageControl5.ActivePage:=bsSkinTabSheet16;

end;

procedure Tfrm_ch_balance_accept.t_ch_jinzhangAfterScroll(
  DataSet: TDataSet);
begin
    if t_ch_jinzhang['<27>ұ<EFBFBD>']='RMB' then begin
      sncDBCurrencyEdit1.CurrencySymbol:='<27><>';
      Label113.Visible:=false;
      Label118.Visible:=True;
    end else begin
      sncDBCurrencyEdit1.CurrencySymbol:='$';
      Label113.Visible:=true;
      Label118.Visible:=false;
    end;

end;

procedure Tfrm_ch_balance_accept.MenuItem4Click(Sender: TObject);
var
  i:integer;
  delete_num:real;
  usddelete_num:real;
  rmbdelete_num:real;
  RE:Boolean;
begin
  RE:=TRUE;
  if (t_ch_balance.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD>') then begin
    showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
    exit;
  end;

  t_ch_balance.Edit;

  delete_num:=0;


    if t_ch_cust_befbal.IsEmpty then
      exit;
    if_ch_delete_do:=true;
    delete_do_type_num:=1;
    delete_num:=delete_num+t_ch_cust_befbal.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asfloat;
    t_ch_cust_befbal.Delete;
    if (delete_num<>0) then
    begin
      t_ch_balance.edit;
      t_ch_balance['Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_balance['Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']-delete_num;
      t_ch_balance.post;
    end;
    t_ch_cust_befbal.Requery();
    t_ch_cust_befbal_sum.Requery();
end;

procedure Tfrm_ch_balance_accept.N7Click(Sender: TObject);
var
  do_num:real;
  i:integer;
  jia_num:real;
  rate_num:real;
  if_hexiao:boolean;
begin
  if t_ch_cust_befbal_sum.IsEmpty then
    exit;
      if (t_ch_balance.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD>')then
      begin
        if (t_ch_balance.FieldByName('<27>ʵ<EFBFBD>״̬').asstring<>'ȷ<>Ϻ<EFBFBD><CFBA><EFBFBD>')then
        begin
          showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
          exit;
        end;
        if_hexiao:=true;
      end
      else
        if_hexiao:=false;
      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>');
        exit;
      end;
{
      if not t_ch_balance.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').IsNull then
        if Logininfo.endday>t_ch_balance.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime then begin
          MessageDlg('<27><>Ʊ<EFBFBD><C6B1><EFBFBD>㵥<EFBFBD><E3B5A5><EFBFBD><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD>޸Ļ<DEB8>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7><EFBFBD><EFBFBD>ˣ<EFBFBD>',mtError,[mbok],0);
          exit;
       end;
}
 //  t_ch_balance.edit;
  jia_num:=0;

  if not t_ch_cust_befbalnew.Active then t_ch_cust_befbalnew.Open;
  t_rate.open;

  t_ch_cust_befbalnew.Insert;
  t_ch_cust_befbalnew['<27><>ʽ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
  t_ch_cust_befbalnew['״̬']:='¼<><C2BC>״̬';
  t_ch_cust_befbalnew['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
  t_ch_cust_befbalnew['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
  t_ch_cust_befbalnew['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
  t_ch_cust_befbalnew['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
  t_ch_cust_befbalnew['<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_balance['<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>'];
  t_ch_cust_befbalnew['<27><><EFBFBD>㷽ʽ']:=t_ch_balance['<27><><EFBFBD>㷽ʽ'];
  t_ch_cust_befbalnew['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_balance['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>'];
  t_ch_cust_befbalnew['<27><><EFBFBD><EFBFBD>']:=t_ch_balance['<27><><EFBFBD><EFBFBD>'];
  t_ch_cust_befbalnew['<27><><EFBFBD><EFBFBD>']:=t_ch_cust_befbal_sum['<27><><EFBFBD><EFBFBD>'];
  t_ch_cust_befbalnew['<27><><EFBFBD>д<EFBFBD><D0B4><EFBFBD>']:=t_ch_balance['<27><><EFBFBD>д<EFBFBD><D0B4><EFBFBD>'];
  t_ch_cust_befbalnew['Ԥ<>ս<EFBFBD><D5BD><EFBFBD>']:=0;
  t_ch_cust_befbalnew['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;

  if Trim(t_ch_balance.FieldByName('<27>ұ<EFBFBD>').asstring)=Trim(t_ch_cust_befbal_sum.fieldbyname('<27>ұ<EFBFBD>').asstring) then
  begin
    t_ch_cust_befbalnew['<27>ұ<EFBFBD>']:=t_ch_balance['<27>ұ<EFBFBD>'];
    t_ch_cust_befbalnew['<27><><EFBFBD><EFBFBD><EFBFBD>ұ<EFBFBD>']:=t_ch_balance['<27>ұ<EFBFBD>'];
    t_ch_cust_befbalnew['Ԥ<>ս<EFBFBD><D5BD><EFBFBD>']:=-t_ch_cust_befbal_sum.fieldbyname('Ԥ<>ս<EFBFBD><D5BD><EFBFBD>').asfloat;
    t_ch_cust_befbalnew['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_cust_befbal_sum.fieldbyname('Ԥ<>ս<EFBFBD><D5BD><EFBFBD>').asfloat;
    if t_ch_balance.FieldByName('<27><><EFBFBD><EFBFBD>').AsString='<27><>' then
    begin
        if t_ch_cust_befbal_sum.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring='<27><>'then
          jia_num:=jia_num+t_ch_cust_befbal_sum.fieldbyname('Ԥ<>ս<EFBFBD><D5BD><EFBFBD>').asfloat
        else
          jia_num:=jia_num-t_ch_cust_befbal_sum.fieldbyname('Ԥ<>ս<EFBFBD><D5BD><EFBFBD>').asfloat
    end
    else
    begin
       if t_ch_cust_befbal_sum.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring='<27><>'then
         jia_num:=jia_num+t_ch_cust_befbal_sum.fieldbyname('Ԥ<>ս<EFBFBD><D5BD><EFBFBD>').asfloat
       else
        jia_num:=jia_num-t_ch_cust_befbal_sum.fieldbyname('Ԥ<>ս<EFBFBD><D5BD><EFBFBD>').asfloat;
    end;
  end
  else
  begin
     rate_num:=get_zh_cur(t_rate,t_ch_cust_befbal_sum.fieldbyname('<27>ұ<EFBFBD>').asstring,t_ch_balance.FieldByName('<27>ұ<EFBFBD>').asstring);
     if rate_num=-1 then
     begin
       t_ch_cust_befbalnew.Cancel;
       t_ch_balance.edit;
       t_ch_balance['Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=jia_num;
       t_ch_balance.post;
//       update_table(bs_text,do_ban1,nil,t_ch_fee,t_ch_fee_sum,2,jia_num,str1,str2,add_fee,add_bill);
       t_ch_cust_befbal.Requery();
       t_ch_cust_befbal_sum.Requery();
       exit;
     end
     else
     begin
       t_ch_cust_befbalnew['<27>ұ<EFBFBD>']:=t_ch_cust_befbal_sum['<27>ұ<EFBFBD>'];
       t_ch_cust_befbalnew['<27><><EFBFBD><EFBFBD><EFBFBD>ұ<EFBFBD>']:=t_ch_balance['<27>ұ<EFBFBD>'];
       t_ch_cust_befbalnew['Ԥ<>ս<EFBFBD><D5BD><EFBFBD>']:=-t_ch_cust_befbal_sum.fieldbyname('Ԥ<>ս<EFBFBD><D5BD><EFBFBD>').asfloat;
       t_ch_cust_befbalnew['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=s_w(strtoint(apointnum),t_ch_cust_befbal_sum.fieldbyname('Ԥ<>ս<EFBFBD><D5BD><EFBFBD>').asfloat*rate_num);
       if t_ch_balance.FieldByName('<27><><EFBFBD><EFBFBD>').AsString='<27><>' then
        begin
          if t_ch_cust_befbal_sum.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring='<27><>'then
            jia_num:=jia_num+s_w(strtoint(apointnum),t_ch_cust_befbal_sum.fieldbyname('Ԥ<>ս<EFBFBD><D5BD><EFBFBD>').asfloat*rate_num)
          else
            jia_num:=jia_num-s_w(strtoint(apointnum),t_ch_cust_befbal_sum.fieldbyname('Ԥ<>ս<EFBFBD><D5BD><EFBFBD>').asfloat*rate_num);
        end else
        begin
          if t_ch_cust_befbal_sum.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring='<27><>'then
            jia_num:=jia_num+s_w(strtoint(apointnum),t_ch_cust_befbal_sum.fieldbyname('Ԥ<>ս<EFBFBD><D5BD><EFBFBD>').asfloat*rate_num)
          else
           jia_num:=jia_num-s_w(strtoint(apointnum),t_ch_cust_befbal_sum.fieldbyname('Ԥ<>ս<EFBFBD><D5BD><EFBFBD>').asfloat*rate_num);
       end;
     end;
  end;

  t_ch_cust_befbalnew['<27>ո<EFBFBD><D5B8><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_cust_befbal_sum.fieldbyname('<27>ո<EFBFBD><D5B8><EFBFBD><EFBFBD><EFBFBD>').asstring;
  t_ch_cust_befbalnew.post;
  t_ch_balance.edit;
  t_ch_balance['Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=jia_num;
  t_ch_balance.post;
  t_ch_cust_befbal.Requery();
  t_ch_cust_befbal_sum.Requery();

end;

procedure Tfrm_ch_balance_accept.MenuItem6Click(Sender: TObject);
var
  can_do_num,do_num:real;
  rate_num,jia_num:real;
  if_hexiao:boolean;
  str1,str2:Tstringlist;
  bk:TBookmark;

begin
    begin
      if (t_ch_balance.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD>')then
      begin
        if (t_ch_balance.FieldByName('<27>ʵ<EFBFBD>״̬').asstring<>'ȷ<>Ϻ<EFBFBD><CFBA><EFBFBD>')then
        begin
          showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
          exit;
        end;
        if_hexiao:=true;
      end
      else
        if_hexiao:=false;
      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>');
        exit;
      end;
{
      if not t_ch_balance.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').IsNull then
        if Logininfo.endday>t_ch_balance.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime then begin
          MessageDlg('<27><>Ʊ<EFBFBD><C6B1><EFBFBD>㵥<EFBFBD><E3B5A5><EFBFBD><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD>޸Ļ<DEB8>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7><EFBFBD><EFBFBD>ˣ<EFBFBD>',mtError,[mbok],0);
          exit;
        end;
}
    end;
  if t_ch_cust_befbal_sum.IsEmpty then
    exit;

  jia_num:=0;

  if not t_ch_cust_befbalnew.Active then t_ch_cust_befbalnew.Open;
  t_rate.open;

  t_ch_cust_befbalnew.Insert;
  t_ch_cust_befbalnew['<27><>ʽ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
  t_ch_cust_befbalnew['״̬']:='¼<><C2BC>״̬';
  t_ch_cust_befbalnew['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
  t_ch_cust_befbalnew['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
  t_ch_cust_befbalnew['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
  t_ch_cust_befbalnew['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
  t_ch_cust_befbalnew['<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_balance['<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>'];
  t_ch_cust_befbalnew['<27><><EFBFBD>㷽ʽ']:=t_ch_balance['<27><><EFBFBD>㷽ʽ'];
  t_ch_cust_befbalnew['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_balance['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>'];
  t_ch_cust_befbalnew['<27><><EFBFBD><EFBFBD>']:=t_ch_balance['<27><><EFBFBD><EFBFBD>'];
  t_ch_cust_befbalnew['<27><><EFBFBD><EFBFBD>']:=t_ch_cust_befbal_sum['<27><><EFBFBD><EFBFBD>'];
  t_ch_cust_befbalnew['<27><><EFBFBD>д<EFBFBD><D0B4><EFBFBD>']:=t_ch_balance['<27><><EFBFBD>д<EFBFBD><D0B4><EFBFBD>'];
  t_ch_cust_befbalnew['Ԥ<>ս<EFBFBD><D5BD><EFBFBD>']:=0;
  t_ch_cust_befbalnew['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;

  if t_ch_balance.FieldByName('<27>ұ<EFBFBD>').asstring=t_ch_cust_befbal_sum.fieldbyname('<27>ұ<EFBFBD>').asstring then
  begin
    try
      frm_fee_do_fen:=Tfrm_fee_do_fen.Create(application);
          if not t_ch_balance.FieldByName('<27>Զ<EFBFBD>').asboolean then
          begin
            if can_do_num>t_ch_cust_befbal_sum.fieldbyname('Ԥ<>ս<EFBFBD><D5BD><EFBFBD>').asfloat then
              frm_fee_do_fen.Edit2.text:=floattostr(t_ch_cust_befbal_sum.fieldbyname('Ԥ<>ս<EFBFBD><D5BD><EFBFBD>').asfloat)
            else
              frm_fee_do_fen.Edit2.text:=floattostr(can_do_num);
          end
          else
            frm_fee_do_fen.Edit2.text:=floattostr(t_ch_cust_befbal_sum.fieldbyname('Ԥ<>ս<EFBFBD><D5BD><EFBFBD>').asfloat);
      frm_fee_do_fen.ShowModal;
      if frm_fee_do_fen.ModalResult = mrOk then
      begin
        do_num:=strtofloat(frm_fee_do_fen.Edit1.text);
      end
      else
      begin
        do_num:=0;
      end;
    finally
      frm_fee_do_fen.Free;
      frm_fee_do_fen:=nil;
    end;

    if do_num=0 then
    begin
      t_ch_cust_befbalnew.Cancel;
      exit;
    end;

    if ((t_ch_cust_befbal_sum.fieldbyname('Ԥ<>ս<EFBFBD><D5BD><EFBFBD>').asfloat>0) and(do_num>t_ch_cust_befbal_sum.fieldbyname('Ԥ<>ս<EFBFBD><D5BD><EFBFBD>').asfloat)) or ((t_ch_cust_befbal_sum.fieldbyname('Ԥ<>ս<EFBFBD><D5BD><EFBFBD>').asfloat<0) and(do_num<t_ch_cust_befbal_sum.fieldbyname('Ԥ<>ս<EFBFBD><D5BD><EFBFBD>').asfloat)) then
     begin
       showmessage('<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD><EFBFBD>Ľ<EFBFBD><C4BD><EFBFBD>ܴ<EFBFBD><DCB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>еĽ<D0B5><C4BD>');
        t_ch_cust_befbalnew.Cancel;
        exit;
     end;

    t_ch_cust_befbalnew['<27>ұ<EFBFBD>']:=t_ch_balance['<27>ұ<EFBFBD>'];
    t_ch_cust_befbalnew['<27><><EFBFBD><EFBFBD><EFBFBD>ұ<EFBFBD>']:=t_ch_balance['<27>ұ<EFBFBD>'];
    t_ch_cust_befbalnew['Ԥ<>ս<EFBFBD><D5BD><EFBFBD>']:=-do_num;
    t_ch_cust_befbalnew['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=do_num;

    if t_ch_balance.FieldByName('<27><><EFBFBD><EFBFBD>').AsString='<27><>' then
    begin
        if t_ch_cust_befbal_sum.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring='<27><>'then
          jia_num:=jia_num+do_num
        else
          jia_num:=jia_num-do_num;
      end else
      begin
        if t_ch_cust_befbal_sum.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring='<27><>'then
          jia_num:=jia_num+do_num
        else
          jia_num:=jia_num-do_num;
    end;
  end
  else
  begin
    rate_num:=get_zh_cur(t_rate,t_ch_cust_befbal_sum.fieldbyname('<27>ұ<EFBFBD>').asstring,t_ch_balance.FieldByName('<27>ұ<EFBFBD>').asstring);
    if rate_num=-1 then
    begin
      t_ch_cust_befbalnew.Cancel;
      exit;
    end
    else
    begin
      try
        frm_fee_do_fen:=Tfrm_fee_do_fen.Create(application);
            if not t_ch_balance.FieldByName('<27>Զ<EFBFBD>').asboolean then
            begin
              if can_do_num/rate_num>t_ch_cust_befbal_sum.fieldbyname('Ԥ<>ս<EFBFBD><D5BD><EFBFBD>').asfloat then
                frm_fee_do_fen.Edit2.text:=floattostr(t_ch_cust_befbal_sum.fieldbyname('Ԥ<>ս<EFBFBD><D5BD><EFBFBD>').asfloat)
              else
                frm_fee_do_fen.Edit2.text:=floattostr(can_do_num/rate_num);
            end
            else
              frm_fee_do_fen.Edit2.text:=floattostr(t_ch_cust_befbal_sum.fieldbyname('Ԥ<>ս<EFBFBD><D5BD><EFBFBD>').asfloat);
        frm_fee_do_fen.ShowModal;
        if frm_fee_do_fen.ModalResult = mrOk then
        begin
          do_num:=strtofloat(frm_fee_do_fen.Edit1.text);
        end
        else
        begin
          do_num:=0;
        end;
      finally
        frm_fee_do_fen.Free;
        frm_fee_do_fen:=nil;
      end;

      if do_num=0 then
      begin
        t_ch_cust_befbalnew.Cancel;
        exit;
      end;

    if ((t_ch_cust_befbal_sum.fieldbyname('Ԥ<>ս<EFBFBD><D5BD><EFBFBD>').asfloat>0) and(do_num>t_ch_cust_befbal_sum.fieldbyname('Ԥ<>ս<EFBFBD><D5BD><EFBFBD>').asfloat)) or ((t_ch_cust_befbal_sum.fieldbyname('Ԥ<>ս<EFBFBD><D5BD><EFBFBD>').asfloat<0) and(do_num<t_ch_cust_befbal_sum.fieldbyname('Ԥ<>ս<EFBFBD><D5BD><EFBFBD>').asfloat)) then
    begin
      showmessage('<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD><EFBFBD>Ľ<EFBFBD><C4BD><EFBFBD>ܴ<EFBFBD><DCB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>еĽ<D0B5><C4BD>');
      t_ch_cust_befbalnew.Cancel;
      exit;
    end;
     t_ch_cust_befbalnew['<27>ұ<EFBFBD>']:=t_ch_cust_befbal_sum['<27>ұ<EFBFBD>'];
     t_ch_cust_befbalnew['<27><><EFBFBD><EFBFBD><EFBFBD>ұ<EFBFBD>']:=t_ch_balance['<27>ұ<EFBFBD>'];
     t_ch_cust_befbalnew['Ԥ<>ս<EFBFBD><D5BD><EFBFBD>']:=-do_num;
     t_ch_cust_befbalnew['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=do_num*rate_num;
     if t_ch_balance.FieldByName('<27><><EFBFBD><EFBFBD>').AsString='<27><>' then
     begin
          if t_ch_cust_befbal_sum.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring='<27><>'then
            jia_num:=jia_num+do_num*rate_num
          else
            jia_num:=jia_num-do_num*rate_num;
        end else
        begin
          if t_ch_cust_befbal_sum.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring='<27><>'then
            jia_num:=jia_num+do_num*rate_num
          else
            jia_num:=jia_num-do_num*rate_num;
      end;
    end;
  end;
  t_ch_cust_befbalnew['<27>ո<EFBFBD><D5B8><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_cust_befbal_sum.fieldbyname('<27>ո<EFBFBD><D5B8><EFBFBD><EFBFBD><EFBFBD>').asstring;
  t_ch_cust_befbalnew.Post;
  t_ch_balance.Edit;
  t_ch_balance['Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=jia_num;
  t_ch_balance.post;
  t_ch_cust_befbal.Requery();
  t_ch_cust_befbal_sum.Requery();

end;

procedure Tfrm_ch_balance_accept.t_ch_cust_befbal_sumAfterOpen(
  DataSet: TDataSet);
begin
  if not t_ch_cust_befbal_sum.IsEmpty then begin
    Label126.Font.Color:=clred;
    Label127.Font.Color:=clred;
  end else begin
    Label126.Font.Color:=clBlack;
    Label127.Font.Color:=clBlack;
  end;

end;

procedure Tfrm_ch_balance_accept.bsSkinButton37Click(Sender: TObject);
var
  afield : variant;
  i: Integer;
begin
  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>']:=employee;
    t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
    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><D4AA><EFBFBD><EFBFBD>']:=0;
    t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>']:=0;
    t_ch_balance['<27><><EFBFBD><EFBFBD>']:='<27><>';
    t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD><EFBFBD>';
    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>ƾ֤']:='';
//    t_ch_balance['<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>']:=get_no(date,'BA');
  {
    if bsSkinNotebook1.PageIndex<>0 then
     getdetail;
   }
    notdetail:=false;
    bsSkinNotebook1.PageIndex:=1;
    bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
    notdetail:=true;

  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_accept.getdetail(balno:string);
begin
    if StrToBool(get_parameters_value(85,'false')) then begin
      fra_ch_delete_do1.v_fee_do_bscard.close;
      fra_ch_delete_do1.v_fee_do_bscard.SQL.clear;
      fra_ch_delete_do1.v_fee_do_bscard.sql.add('select * from v_fee_do_bscard '
                                         +'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+balno+''' order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
      fra_ch_delete_do1.v_fee_do_bscard.Open;

      fra_ch_delete_do1.v_fee_do_bscard_sum.close;
      fra_ch_delete_do1.v_fee_do_bscard_sum.SQL.clear;
      fra_ch_delete_do1.v_fee_do_bscard_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>,sum(ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>) as ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from v_fee_do_bscard '
                                             +'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+balno+''' 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> '
                                             +'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_bscard_sum.Open;
    end else 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>='''+balno+''' order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
      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>='''+balno+''' order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
      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>='''+balno+''' order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
      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>='''+balno+''' order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
      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>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7) AS <20>·<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,sum(ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>) as ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from v_fee_do_seae '
                                             +'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+balno+''' 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> '
                                             +'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.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>,sum(ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>) as ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from v_fee_do_seai '
                                             +'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+balno+''' 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> '
                                             +'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.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>,sum(ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>) as ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from v_fee_do_aire '
                                             +'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+balno+''' 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> '
                                             +'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.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>,sum(ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>) as ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from v_fee_do_airi '
                                             +'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+balno+''' 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> '
                                             +'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.open;
  end;
end;

procedure Tfrm_ch_balance_accept.closedetail;
begin
     if StrToBool(get_parameters_value(85,'false')) then begin
      fra_ch_delete_do1.v_fee_do_bscard.close;
      fra_ch_delete_do1.v_fee_do_bscard_sum.close;
    end else begin
      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;
    end;

end;

procedure Tfrm_ch_balance_accept.bsSkinNotebook1PageChanged(
  Sender: TObject);
begin
  if not notdetail then exit;
  getdetail(t_ch_balance.fieldbyname('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').AsString);
end;

procedure Tfrm_ch_balance_accept.fra_ch_add_do1MenuItem1Click(
  Sender: TObject);
begin
  fra_ch_add_do1.MenuItem1Click(Sender);

end;

procedure Tfrm_ch_balance_accept.dxDBGrid10SelectedCountChange(
  Sender: TObject);
var i:integer;
   amt,usdAmt:Double;
begin
  if t_ch_invoice_shen.IsEmpty then
    exit;
  if dxDBGrid10.SelectedCount>=1 then
  begin
    amt:=0;
    usdAmt:=0;
    for i:=0 to dxDBGrid10.SelectedCount-1 do
    begin
      t_ch_invoice_shen.GotoBookmark(pointer(dxDBGrid10.selectedrows[i]));
      if t_ch_invoice_shen.fieldByName('<27>ұ<EFBFBD>').AsString='RMB' then
        amt:=amt+t_ch_invoice_shen.fieldByName('<27>ϼƽ<CFBC><C6BD><EFBFBD>').AsFloat
      else usdAmt:=usdAmt+t_ch_invoice_shen.fieldByName('<27>ϼƽ<CFBC><C6BD><EFBFBD>').AsFloat;
    end;
  end
  else
  begin
    amt:=0;
    usdAmt:=0;
    if t_ch_invoice_shen.fieldByName('<27>ұ<EFBFBD>').AsString='RMB' then
      amt:=amt+t_ch_invoice_shen.fieldByName('<27>ϼƽ<CFBC><C6BD><EFBFBD>').AsFloat
    else usdAmt:=usdAmt+t_ch_invoice_shen.fieldByName('<27>ϼƽ<CFBC><C6BD><EFBFBD>').AsFloat;
  end;
  Label129.Caption:='<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD>'+inttostr(dxDBGrid10.SelectedCount)+'Ʊҵ<C6B1><D2B5>,'+'RMB<4D><42><EFBFBD><EFBFBD>:'+FormatFloat('#,##,0.00;-0.00',amt)+'  <20><><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>:'+FormatFloat('#,##,0.00;-0.00',usdAmt);
end;

procedure Tfrm_ch_balance_accept.dxDBGrid19SelectedCountChange(
  Sender: TObject);
var i:integer;
   amt:Double;
begin
  if t_ch_accept_shen.IsEmpty then
    exit;
  if dxDBGrid19.SelectedCount>=1 then
  begin
    for i:=0 to dxDBGrid19.SelectedCount-1 do
    begin
      t_ch_accept_shen.GotoBookmark(pointer(dxDBGrid19.selectedrows[i]));
      amt:=amt+t_ch_accept_shen.fieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;

    end;
  end
  else
  begin
      amt:=t_ch_accept_shen.fieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
  end;
  Label130.Caption:='<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD>'+inttostr(dxDBGrid19.SelectedCount)+'Ʊҵ<C6B1><D2B5>,'+'<27><><EFBFBD><EFBFBD>:'+FormatFloat('#,##,0.00;-0.00',amt);
end;

procedure Tfrm_ch_balance_accept.bsSkinButton39Click(Sender: TObject);
begin
  t_ch_balance.insert;
  getdetail(t_ch_balance.FieldByName('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').asstring);
  notdetail:=false;
  bsSkinNotebook1.PageIndex:=1;

  bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
  notdetail:=true;

end;




procedure Tfrm_ch_balance_accept.fra_ch_add_do1bsSkinButton8Click(
  Sender: TObject);
begin
  fra_ch_add_do1.bsSkinButton8Click(Sender);
end;
procedure Tfrm_ch_balance_accept.dxDBGrid1CustomDraw(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
  AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
  var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
begin

  if uppercase(ANode.Strings[dxDBGrid1Column43.Index])='TRUE' then begin
    AFont.Color:=clMoneyGreen;
  end;

end;

procedure Tfrm_ch_balance_accept.N8Click(Sender: TObject);
var aAdoQuery,bAdoQuery:TAdoQuery;
    s,s1:string;
    i:Integer;
begin
  if t_ch_balance.IsEmpty then
    exit;
  if dxDBGrid1.SelectedCount<1 then
  begin
    exit;
  end;
  s:='';
  try
    aAdoQuery:=CreateAdoQuery;
    with aAdoQuery do
    begin
      Close;sql.Clear;
      sql.Add('select ');
      sql.Add('sum(case <20>ұ<EFBFBD> when ''USD'' then ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> else 0 end) as USDAMT');
      sql.Add(',sum(case <20>ұ<EFBFBD> when ''RMB'' then ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> else 0 end) as RMBAMT');
      sql.Add('From t_ch_fee_do');
      sql.Add('where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:bsno');
    end;

    bAdoQuery:=CreateAdoQuery;
    with bAdoQuery do
    begin
      Close;sql.Clear;
      sql.Add('select do.ch_id,v.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,count(*)');
      sql.Add('from t_ch_fee_do do');
      sql.Add('left join V_op_bscard_All v on do.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=v.<2E><><EFBFBD><EFBFBD>');
      sql.Add('where do.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:bsno');
      sql.Add('group by do.ch_id,v.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>');
      sql.Add('having count(*)>1');
      Open;
    end;


    t_ch_balance.DisableControls;
    for i:=0 to dxDBGrid1.SelectedCount-1 do
    begin
      t_ch_balance.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
      aAdoQuery.close;
      aAdoQuery.Parameters.ParamByName('bsno').Value:=t_ch_balance.FieldByName('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').Value;
      aAdoQuery.open;
      if (t_ch_balance.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Value<> aAdoQuery.FieldByName('RMBAMT').Value)
        or (t_ch_balance.FieldByName('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Value<> aAdoQuery.FieldByName('USDAMT').Value) then
      begin
        if s='' then s:=t_ch_balance.FieldByName('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').Value+':USD'+FormatFloat('0;0;0',aAdoQuery.FieldByName('USDAMT').AsFloat)+'  RMB:'+FormatFloat('0;0;0',aAdoQuery.FieldByName('RMBAMT').AsFloat)
        else s:=s+#13#10+t_ch_balance.FieldByName('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').Value+':USD'+FormatFloat('0;0;0',aAdoQuery.FieldByName('USDAMT').AsFloat)+'  RMB:'+FormatFloat('0;0;0',aAdoQuery.FieldByName('RMBAMT').AsFloat);
      end;

      bAdoQuery.close;
      bAdoQuery.Parameters.ParamByName('bsno').Value:=t_ch_balance.FieldByName('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').Value;
      bAdoQuery.open;

      if not bAdoQuery.IsEmpty then
      begin
        if s1='' then s1:=t_ch_balance.FieldByName('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').Value+' <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>:' +bAdoQuery.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString
        else s1:=s1+#13#10+t_ch_balance.FieldByName('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').Value+' <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>:' +bAdoQuery.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString;
      end;

    end;
  finally
    aAdoQuery.Free;
    bAdoQuery.Free;
    t_ch_balance.EnableControls;
    t_ch_balance.Refresh;
    if s<>'' then 
    ShowMessage(s);

    if s1<>'' then
    ShowMessage(s1);

  end;
end;

procedure Tfrm_ch_balance_accept.MenuItem9Click(Sender: TObject);
begin
  grid_save_xls(dxDBGrid29);

end;

procedure Tfrm_ch_balance_accept.SelectAddVouchers;
var t_cw_design,aQuery,bQuery,aAdoQueryCheck:TAdoQuery;
    s_error:string;
    i:Integer;
begin
  if not if_open('185') and not if_open('523') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;

  try
    if not ASSIGNED(frm_sys_progress) then
    frm_sys_progress:=tfrm_sys_progress.Create(application);
    frm_sys_progress.bsSkinGauge1.ProgressText:='<27><><EFBFBD><EFBFBD>У<EFBFBD><D0A3><EFBFBD><EFBFBD><EFBFBD>ݡ<EFBFBD><DDA1><EFBFBD><EFBFBD><EFBFBD>';
    frm_sys_progress.Show;

    frm_sys_progress.bsSkinGauge1.MaxValue:=dxDBGrid1.SelectedCount;
    frm_sys_progress.bsSkinGauge1.MinValue:=0;
    frm_sys_progress.bsSkinGauge1.Value:=0;


    dxDBGrid1.DataSource.DataSet.DisableControls;
    for i:=0 to dxDBGrid1.SelectedCount-1 do
    begin
      dxDBGrid1.DataSource.DataSet.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
      try

        if trim(GetBalanceVou(t_ch_balance.fieldbyname('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').AsString))<>'' then
        begin
          showmessage('<27>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD>');
          exit;
        end;


        if  t_ch_balance.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsInteger=0 then
        begin
          ShowMessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ0,<2C><><EFBFBD><EFBFBD><EFBFBD>븽<EFBFBD><EBB8BD><EFBFBD><EFBFBD>');
          Exit;
        end;


        if t_ch_balance.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').IsNull  then
        begin
          ShowMessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڲ<EFBFBD><DAB2><EFBFBD>Ϊ<EFBFBD><CEAA>');
          Exit;
        end;

        if Trim(t_ch_balance.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)=''  then
        begin
          ShowMessage(t_ch_balance.FieldByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString+' û<>в<EFBFBD><D0B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
          Exit;
        end;
      if Trim(t_ch_balance.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)<>employee then
      begin
        ShowMessage('<27>˵<EFBFBD><CBB5><EFBFBD><EFBFBD><EFBFBD>:'+t_ch_balance.FieldByName('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').AsString+', <20><><EFBFBD><EFBFBD><EFBFBD>˲<EFBFBD><CBB2>ǵ<EFBFBD>ǰ<EFBFBD><C7B0>Ա<EFBFBD><D4B1>');
      end;

        s_error:='';
        aAdoQueryCheck:=CreateAdoQuery;
        with aAdoQueryCheck do
        try
          frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
          close;sql.Clear;
          sql.Add('select v.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,v.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,fee.<2E><><EFBFBD><EFBFBD>,fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,do.ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,do.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> from t_ch_fee fee');
          sql.Add('inner JOIN  t_ch_fee_do  do on fee.<2E><><EFBFBD><EFBFBD>=do.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> and fee.ch_id=do.ch_id');
          sql.Add('left join V_op_bscard_All v on fee.<2E><><EFBFBD><EFBFBD>=v.<2E><><EFBFBD><EFBFBD>');
          sql.Add('where ((fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=0  and  fee.<2E><><EFBFBD><EFBFBD><>0) or (fee.<2E><><EFBFBD><EFBFBD>>0 and fee.<2E><><EFBFBD><EFBFBD><fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) or (fee.<2E><><EFBFBD><EFBFBD><0 and fee.<2E><><EFBFBD><EFBFBD>>fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>))');
          sql.Add('and do.<2E><><EFBFBD><EFBFBD> in (3,4)');
          sql.Add('and do.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
          Parameters.ParamByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=t_ch_balance.fieldbyname('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').AsString;
          Open;First;
          while not Eof do
          begin
            if Trim(s_error)='' then
              s_error:=fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString+'/'+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'/'+fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString+'/'+fieldbyname('<27><><EFBFBD><EFBFBD>').AsString
            else s_error:=s_error+#13#10+fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString+'/'+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'/'+fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString+'/'+fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
            Next;
          end;
          if Trim(s_error)<>'' then
          begin
            ShowMessage(s_error+#13#10+'<27><><EFBFBD><EFBFBD><EFBFBD>쳣<EFBFBD><ECB3A3><EFBFBD>˶<EFBFBD><CBB6>ʵ<EFBFBD>');
            Exit;
          end;


          s_error:='';
          Close;sql.Clear;
          sql.Add('select ');
          sql.Add('sum(case <20>ұ<EFBFBD> when ''USD'' then ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> else 0 end) as USDAMT');
          sql.Add(',sum(case <20>ұ<EFBFBD> when ''RMB'' then ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> else 0 end) as RMBAMT');
          sql.Add('From t_ch_fee_do');
          sql.Add('where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:bsno');
          Parameters.ParamByName('bsno').Value:=t_ch_balance.FieldByName('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').Value;
          open;
          if (t_ch_balance.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Value<> FieldByName('RMBAMT').Value)
            or (t_ch_balance.FieldByName('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Value<> FieldByName('USDAMT').Value) then
          begin
            s_error:=t_ch_balance.FieldByName('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').Value+':USD'+FormatFloat('0;0;0',FieldByName('USDAMT').AsFloat)+'  RMB:'+FormatFloat('0;0;0',FieldByName('RMBAMT').AsFloat);
          end;

          if Trim(s_error)<>'' then
          begin
            ShowMessage(s_error+#13#10+'<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD>˶<EFBFBD><CBB6>ʵ<EFBFBD>');
            Exit;
          end;

        finally
          free;
        end;




        s_error:='';
        bQuery:=CreateAdoQuery;
        with bQuery do
        begin
          Close;sql.Clear;
          sql.Add('select do.ch_id,v.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,count(*)');
          sql.Add('from t_ch_fee_do do');
          sql.Add('left join V_op_bscard_All v on do.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=v.<2E><><EFBFBD><EFBFBD>');
          sql.Add('where do.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:bsno');
          sql.Add('group by do.ch_id,v.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>');
          sql.Add('having count(*)>1');
          Parameters.ParamByName('bsno').Value:=t_ch_balance.FieldByName('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').Value;
          open;
        end;

        if not bQuery.IsEmpty then
        begin
           if s_error='' then s_error:=t_ch_balance.FieldByName('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').Value+' <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>:' +bQuery.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString
           else s_error:=s_error+#13#10+t_ch_balance.FieldByName('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').Value+' <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>:' +bQuery.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString;
           ShowMessage(s_error+#13#10+'<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD>˶<EFBFBD><CBB6>ʵ<EFBFBD>');
           Exit;
        end;
      finally
        bQuery.Free;
      end;
    end
  finally
    dxDBGrid1.DataSource.DataSet.EnableControls;
    frm_sys_progress.Close;
    frm_sys_progress.Free;
    frm_sys_progress:=nil;
  end;
  try
    t_cw_design:=CreateAdoQuery;
    with t_cw_design do
    begin
      Close;Sql.Clear;
      SQL.Add('select * from t_cw_design');
      Open;
    end;

    if not ASSIGNED(frm_sys_progress) then
    frm_sys_progress:=tfrm_sys_progress.Create(application);
    frm_sys_progress.bsSkinGauge1.ProgressText:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
    frm_sys_progress.Show;

    frm_sys_progress.bsSkinGauge1.MaxValue:=dxDBGrid1.SelectedCount;
    frm_sys_progress.bsSkinGauge1.MinValue:=0;
    frm_sys_progress.bsSkinGauge1.Value:=0;

    aQuery:=CreateAdoQuery;
    aQuery.Close;
    aQuery.SQL.Clear;
    aQuery.SQL.add('update t_ch_balance set <20><><EFBFBD><EFBFBD>=1,<2C><><EFBFBD><EFBFBD>ƾ֤=:<3A><><EFBFBD><EFBFBD>ƾ֤,ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD>=:ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD> where <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>=:<3A>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>');

    dmacc:=TdmAcc.Create(self);

    dxDBGrid1.DataSource.DataSet.DisableControls;
    for i:=0 to dxDBGrid1.SelectedCount-1 do
    begin
        dxDBGrid1.DataSource.DataSet.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
        frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;


  {
      if not assigned(frm_cw_pingzheng) then
        frm_cw_pingzheng:=tfrm_cw_pingzheng.Create (self);
  }
      NewDCVou(t_ch_balance,dmacc.AdotblVou,dmacc.AdotblVouItems,t_cw_design,employee
      ,Logininfo.bsDate,6.25,6.3,True);

  {
      frm_cw_pingzheng.ManualDock(frm_main.SearchTabs('frm_cw_pingzheng',frm_cw_pingzheng.caption),nil,alClient);
      frm_cw_pingzheng.EditOrdNoFrm.Text:=dmacc.AdotblVou.FieldByName('ORDNO').AsString;
      frm_cw_pingzheng.EditOrdNoTo.Text:=dmacc.AdotblVou.FieldByName('ORDNO').AsString;
      frm_cw_pingzheng.show;
  }
      aQuery.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>ƾ֤').Value:=dmacc.ADOTblVou.fieldbyname('ordno').AsString;
      aQuery.Parameters.ParamByName('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').Value:=t_ch_balance.fieldbyname('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').AsString;
      aQuery.Parameters.ParamByName('ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD>').Value:=Logininfo.bsDate;
      aQuery.ExecSQL;
    end;
  //  bsSkinButton39.OnClick(bsSkinButton39);
  finally
    dxDBGrid1.DataSource.DataSet.EnableControls;
    TAdoQuery(dxDBGrid1.DataSource.DataSet).Requery();
    frm_sys_progress.Close;
    frm_sys_progress.Free;
    frm_sys_progress:=nil;
    t_cw_design.Free;
    aQuery.Free;
    freeAndNil(dmacc);
  end;

end;
procedure Tfrm_ch_balance_accept.AddVouchers;
var t_cw_design,aQuery,bQuery,aAdoQueryCheck:TAdoQuery;
    s_error:string;
    i:Integer;
begin
  if not if_open('185') and not if_open('523') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;

      try
        if trim(GetBalanceVou(t_ch_balance.fieldbyname('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').AsString))<>'' then
        begin
          showmessage('<27>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD>');
          exit;
        end;
        if  t_ch_balance.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsInteger=0 then
        begin
          ShowMessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ0,<2C><><EFBFBD><EFBFBD><EFBFBD>븽<EFBFBD><EBB8BD><EFBFBD><EFBFBD>');
          Exit;
        end;
        if t_ch_balance.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').IsNull  then
        begin
          ShowMessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڲ<EFBFBD><DAB2><EFBFBD>Ϊ<EFBFBD><CEAA>');
          Exit;
        end;

        if Trim(t_ch_balance.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)=''  then
        begin
          ShowMessage(t_ch_balance.FieldByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString+' û<>в<EFBFBD><D0B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
          Exit;
        end;
      if Trim(t_ch_balance.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)<>employee then
      begin
        ShowMessage('<27>˵<EFBFBD><CBB5><EFBFBD><EFBFBD><EFBFBD>:'+t_ch_balance.FieldByName('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').AsString+', <20><><EFBFBD><EFBFBD><EFBFBD>˲<EFBFBD><CBB2>ǵ<EFBFBD>ǰ<EFBFBD><C7B0>Ա<EFBFBD><D4B1>');
      end;        
        s_error:='';
        aAdoQueryCheck:=CreateAdoQuery;
        with aAdoQueryCheck do
        try
          close;sql.Clear;
          sql.Add('select v.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,v.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,fee.<2E><><EFBFBD><EFBFBD>,fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,do.ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,do.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> from t_ch_fee fee');
          sql.Add('inner JOIN  t_ch_fee_do  do on fee.<2E><><EFBFBD><EFBFBD>=do.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> and fee.ch_id=do.ch_id');
          sql.Add('left join V_op_bscard_All v on fee.<2E><><EFBFBD><EFBFBD>=v.<2E><><EFBFBD><EFBFBD>');
          sql.Add('where ((fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=0  and  fee.<2E><><EFBFBD><EFBFBD><>0) or (fee.<2E><><EFBFBD><EFBFBD>>0 and fee.<2E><><EFBFBD><EFBFBD><fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) or (fee.<2E><><EFBFBD><EFBFBD><0 and fee.<2E><><EFBFBD><EFBFBD>>fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>))');
          sql.Add('and do.<2E><><EFBFBD><EFBFBD> in (3,4)');
          sql.Add('and do.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
          Parameters.ParamByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=t_ch_balance.fieldbyname('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').AsString;
          Open;First;
          while not Eof do
          begin
            if Trim(s_error)='' then
              s_error:=fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString+'/'+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'/'+fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString+'/'+fieldbyname('<27><><EFBFBD><EFBFBD>').AsString
            else s_error:=s_error+#13#10+fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString+'/'+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'/'+fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString+'/'+fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
            Next;
          end;
          if Trim(s_error)<>'' then
          begin
            ShowMessage(s_error+#13#10+'<27><><EFBFBD><EFBFBD><EFBFBD>쳣<EFBFBD><ECB3A3><EFBFBD>˶<EFBFBD><CBB6>ʵ<EFBFBD>');
            Exit;
          end;
          s_error:='';
          Close;sql.Clear;
          sql.Add('select ');
          sql.Add('sum(case <20>ұ<EFBFBD> when ''USD'' then ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> else 0 end) as USDAMT');
          sql.Add(',sum(case <20>ұ<EFBFBD> when ''RMB'' then ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> else 0 end) as RMBAMT');
          sql.Add('From t_ch_fee_do');
          sql.Add('where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:bsno');
          Parameters.ParamByName('bsno').Value:=t_ch_balance.FieldByName('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').Value;
          open;
          if (t_ch_balance.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Value<> FieldByName('RMBAMT').Value)
            or (t_ch_balance.FieldByName('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Value<> FieldByName('USDAMT').Value) then
          begin
            s_error:=t_ch_balance.FieldByName('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').Value+':USD'+FormatFloat('0;0;0',FieldByName('USDAMT').AsFloat)+'  RMB:'+FormatFloat('0;0;0',FieldByName('RMBAMT').AsFloat);
          end;

          if Trim(s_error)<>'' then
          begin
            ShowMessage(s_error+#13#10+'<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD>˶<EFBFBD><CBB6>ʵ<EFBFBD>');
            Exit;
          end;
        finally
          free;
        end;




        s_error:='';
        bQuery:=CreateAdoQuery;
        with bQuery do
        begin
          Close;sql.Clear;
          sql.Add('select do.ch_id,v.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,count(*)');
          sql.Add('from t_ch_fee_do do');
          sql.Add('left join V_op_bscard_All v on do.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=v.<2E><><EFBFBD><EFBFBD>');
          sql.Add('where do.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:bsno');
          sql.Add('group by do.ch_id,v.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>');
          sql.Add('having count(*)>1');
          Parameters.ParamByName('bsno').Value:=t_ch_balance.FieldByName('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').Value;
          open;
        end;

        if not bQuery.IsEmpty then
        begin
           if s_error='' then s_error:=t_ch_balance.FieldByName('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').Value+' <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>:' +bQuery.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString
           else s_error:=s_error+#13#10+t_ch_balance.FieldByName('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').Value+' <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>:' +bQuery.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString;
           ShowMessage(s_error+#13#10+'<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD>˶<EFBFBD><CBB6>ʵ<EFBFBD>');
           Exit;
        end;
      finally
        bQuery.Free;
      end;

  
    t_cw_design:=CreateAdoQuery;
    with t_cw_design do
    begin
      Close;Sql.Clear;
      SQL.Add('select * from t_cw_design');
      Open;
    end;


    aQuery:=CreateAdoQuery;
    aQuery.Close;
    aQuery.SQL.Clear;
    aQuery.SQL.add('update t_ch_balance set <20><><EFBFBD><EFBFBD>=1,<2C><><EFBFBD><EFBFBD>ƾ֤=:<3A><><EFBFBD><EFBFBD>ƾ֤,ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD>=:ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD> where <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>=:<3A>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>');

  dmacc:=TdmAcc.Create(self);
  try
      dxDBGrid1.DataSource.DataSet.DisableControls;

               if frm_data_share.t_sys_company.FieldByName('<27><>Ʊ̧ͷ').AsString='' then begin
              if not assigned(frm_cw_pingzheng_jku8) then
        frm_cw_pingzheng_jku8:=tfrm_cw_pingzheng_jku8.Create (self);
      NewDCVou(t_ch_balance,dmacc.AdotblVou,dmacc.AdotblVouItems,t_cw_design,employee
      ,Logininfo.bsDate,6.25,6.3,false);

      frm_cw_pingzheng_jku8.ManualDock(frm_main.SearchTabs('frm_cw_pingzheng_jku8',frm_cw_pingzheng_jku8.caption),nil,alClient);
      frm_cw_pingzheng_jku8.EditOrdNoFrm.Text:=dmacc.AdotblVou.FieldByName('ORDNO').AsString;
      frm_cw_pingzheng_jku8.EditOrdNoTo.Text:=dmacc.AdotblVou.FieldByName('ORDNO').AsString;
      frm_cw_pingzheng_jku8.show;

               end else begin
      if not assigned(frm_cw_pingzheng_U8) then
        frm_cw_pingzheng_U8:=tfrm_cw_pingzheng_U8.Create (self);
      NewDCVou(t_ch_balance,dmacc.AdotblVou,dmacc.AdotblVouItems,t_cw_design,employee
      ,Logininfo.bsDate,6.25,6.3,false);

      frm_cw_pingzheng_U8.ManualDock(frm_main.SearchTabs('frm_cw_pingzheng_U8',frm_cw_pingzheng_U8.caption),nil,alClient);
      frm_cw_pingzheng_U8.EditOrdNoFrm.Text:=dmacc.AdotblVou.FieldByName('ORDNO').AsString;
      frm_cw_pingzheng_U8.EditOrdNoTo.Text:=dmacc.AdotblVou.FieldByName('ORDNO').AsString;
      frm_cw_pingzheng_U8.show;
      end;

      aQuery.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>ƾ֤').Value:=dmacc.ADOTblVou.fieldbyname('ordno').AsString;
      aQuery.Parameters.ParamByName('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').Value:=t_ch_balance.fieldbyname('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').AsString;
      aQuery.Parameters.ParamByName('ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD>').Value:=Logininfo.bsDate;
      aQuery.ExecSQL;
  finally
    dxDBGrid1.DataSource.DataSet.EnableControls;
    TAdoQuery(dxDBGrid1.DataSource.DataSet).Requery();
    t_cw_design.Free;
    aQuery.Free;
    freeAndNil(dmacc);
  end;

end;


procedure Tfrm_ch_balance_accept.bsSkinButton1Click(Sender: TObject);
begin
  if bsSkinNotebook1.PageIndex=0 then
    SelectAddVouchers
  else AddVouchers;
end;

end.