D6HECHUAN/费用模块/u_fee.~pas

unit u_fee;

interface

uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  RxMemDS, Menus, DB, ADODB, wwdblook, StdCtrls, bsSkinCtrls, ExtCtrls,
  DBCtrls, Mask, bsSkinBoxCtrls, Grids, Wwdbigrd, Wwdbgrid, Variants,
  bsdbctrls,ComObj,XPMenu, Psock, NMsmtp, IdComponent, IdTCPConnection,
  IdTCPClient, IdMessageClient, IdSMTP, IdBaseComponent, IdMessage,
  IdExplicitTLSClientServerBase, IdSMTPBase, wwcheckbox;

type
  Tfra_fee = class(TFrame)
    Panel11: TPanel;
    t_ch_accept: TADOQuery;
    t_ch_accept1: TDataSource;
    t_ch_pay: TADOQuery;
    t_ch_pay1: TDataSource;
    PopupMenu1: TPopupMenu;
    N2: TMenuItem;
    N3: TMenuItem;
    N1: TMenuItem;
    N4: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    t_bz_balance: TRxMemoryData;
    t_bz_client: TRxMemoryData;
    a_shen_delete: TADOQuery;
    a_shen_delete1: TDataSource;
    a_shen_modify_old: TADOQuery;
    a_shen_modify_old1: TDataSource;
    a_shen_modify_new1: TDataSource;
    a_shen_modify_new: TADOQuery;
    p_shen_delete: TADOQuery;
    p_shen_delete1: TDataSource;
    p_shen_modify_old: TADOQuery;
    p_shen_modify_old1: TDataSource;
    p_shen_modify_new: TADOQuery;
    p_shen_modify_new1: TDataSource;
    PopupMenu2: TPopupMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem7: TMenuItem;
    MenuItem8: TMenuItem;
    MenuItem9: TMenuItem;
    PopupMenu3: TPopupMenu;
    N10: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N28: TMenuItem;
    N47: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    N27: TMenuItem;
    N26: TMenuItem;
    N50: TMenuItem;
    N51: TMenuItem;
    N52: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N53: TMenuItem;
    N54: TMenuItem;
    N55: TMenuItem;
    t_ch_client: TADOQuery;
    t_ch_client1: TDataSource;
    t_op_gain: TADOQuery;
    t_op_gain1: TDataSource;
    Panel3: TPanel;
    Panel4: TPanel;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton4: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    bsSkinButton11: TbsSkinButton;
    bsSkinButton6: TbsSkinButton;
    bsSkinButton7: TbsSkinButton;
    bsSkinButton8: TbsSkinButton;
    bsSkinButton9: TbsSkinButton;
    Panel5: TPanel;
    a_bo: TbsSkinGroupBox;
    DBMemo1: TDBMemo;
    a_delete: TbsSkinGroupBox;
    DBMemo2: TDBMemo;
    a_modify_old: TbsSkinGroupBox;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    a_modify_new: TbsSkinGroupBox;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBMemo3: TDBMemo;
    wwDBGrid1: TwwDBGrid;
    wwDBLookupCombo1: TwwDBLookupCombo;
    wwDBLookupCombo5: TwwDBLookupCombo;
    wwDBLookupCombo2: TwwDBLookupCombo;
    wwDBLookupCombo4: TwwDBLookupCombo;
    wwDBLookupCombo3: TwwDBLookupCombo;
    edit_type: TEdit;
    DBEdit17: TDBEdit;
    Panel1: TPanel;
    Panel6: TPanel;
    bsSkinButton10: TbsSkinButton;
    bsSkinButton14: TbsSkinButton;
    bsSkinButton15: TbsSkinButton;
    bsSkinButton16: TbsSkinButton;
    bsSkinButton12: TbsSkinButton;
    bsSkinButton17: TbsSkinButton;
    bsSkinButton18: TbsSkinButton;
    bsSkinButton13: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    Panel7: TPanel;
    p_bo: TbsSkinGroupBox;
    DBMemo4: TDBMemo;
    p_delete: TbsSkinGroupBox;
    DBMemo5: TDBMemo;
    p_modify_old: TbsSkinGroupBox;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    DBEdit19: TDBEdit;
    DBEdit20: TDBEdit;
    DBEdit21: TDBEdit;
    DBEdit22: TDBEdit;
    DBEdit23: TDBEdit;
    DBEdit24: TDBEdit;
    DBEdit25: TDBEdit;
    DBEdit26: TDBEdit;
    p_modify_new: TbsSkinGroupBox;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    Label39: TLabel;
    Label40: TLabel;
    DBEdit27: TDBEdit;
    DBEdit28: TDBEdit;
    DBEdit29: TDBEdit;
    DBEdit30: TDBEdit;
    DBEdit31: TDBEdit;
    DBEdit32: TDBEdit;
    DBEdit33: TDBEdit;
    DBEdit34: TDBEdit;
    DBEdit18: TDBEdit;
    wwDBLookupCombo6: TwwDBLookupCombo;
    wwDBLookupCombo7: TwwDBLookupCombo;
    wwDBLookupCombo8: TwwDBLookupCombo;
    wwDBLookupCombo9: TwwDBLookupCombo;
    wwDBLookupCombo10: TwwDBLookupCombo;
    wwDBGrid2: TwwDBGrid;
    edit_report: TEdit;
    N56: TMenuItem;
    N57: TMenuItem;
    N58: TMenuItem;
    N59: TMenuItem;
    N60: TMenuItem;
    N61: TMenuItem;
    N62: TMenuItem;
    N63: TMenuItem;
    N64: TMenuItem;
    N65: TMenuItem;
    N66: TMenuItem;
    N67: TMenuItem;
    N68: TMenuItem;
    N69: TMenuItem;
    N70: TMenuItem;
    N71: TMenuItem;
    N72: TMenuItem;
    N73: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N74: TMenuItem;
    N75: TMenuItem;
    N76: TMenuItem;
    N77: TMenuItem;
    N78: TMenuItem;
    N79: TMenuItem;
    N80: TMenuItem;
    N81: TMenuItem;
    PopupMenu4: TPopupMenu;
    N82: TMenuItem;
    N83: TMenuItem;
    N84: TMenuItem;
    N85: TMenuItem;
    N86: TMenuItem;
    N87: TMenuItem;
    N88: TMenuItem;
    PopupMenu5: TPopupMenu;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    MenuItem10: TMenuItem;
    MenuItem11: TMenuItem;
    MenuItem12: TMenuItem;
    MenuItem13: TMenuItem;
    MenuItem14: TMenuItem;
    PopupMenu6: TPopupMenu;
    N89: TMenuItem;
    N90: TMenuItem;
    N91: TMenuItem;
    PopupMenu7: TPopupMenu;
    MenuItem15: TMenuItem;
    MenuItem16: TMenuItem;
    MenuItem17: TMenuItem;
    XPMenu1: TXPMenu;
    N92: TMenuItem;
    N93: TMenuItem;
    N94: TMenuItem;
    N95: TMenuItem;
    N96: TMenuItem;
    N97: TMenuItem;
    N98: TMenuItem;
    N99: TMenuItem;
    N100: TMenuItem;
    N101: TMenuItem;
    N102: TMenuItem;
    N103: TMenuItem;
    Label1: TLabel;
    DBEdit35: TDBEdit;
    Label2: TLabel;
    DBEdit36: TDBEdit;
    Label3: TLabel;
    DBEdit37: TDBEdit;
    Label4: TLabel;
    DBEdit38: TDBEdit;
    bsSkinPanel1: TbsSkinPanel;
    Label5: TLabel;
    DBEdit39: TDBEdit;
    Label6: TLabel;
    DBEdit40: TDBEdit;
    bsSkinPanel2: TbsSkinPanel;
    Label7: TLabel;
    Label42: TLabel;
    DBEdit41: TDBEdit;
    DBEdit42: TDBEdit;
    N104: TMenuItem;
    N105: TMenuItem;
    N106: TMenuItem;
    N107: TMenuItem;
    N108: TMenuItem;
    N109: TMenuItem;
    N110: TMenuItem;
    N111: TMenuItem;
    N112: TMenuItem;
    N113: TMenuItem;
    N114: TMenuItem;
    N115: TMenuItem;
    N116: TMenuItem;
    N117: TMenuItem;
    edit_data: TEdit;
    N118: TMenuItem;
    N119: TMenuItem;
    N120: TMenuItem;
    N121: TMenuItem;
    t_ch_fee_truck: TADOQuery;
    t_ch_fee_truck1: TDataSource;
    Panel8: TPanel;
    Panel9: TPanel;
    bsSkinStdLabel11: TbsSkinStdLabel;
    bsSkinStdLabel12: TbsSkinStdLabel;
    bsSkinStdLabel13: TbsSkinStdLabel;
    bsSkinStdLabel14: TbsSkinStdLabel;
    bsSkinStdLabel15: TbsSkinStdLabel;
    bsSkinStdLabel16: TbsSkinStdLabel;
    bsSkinStdLabel17: TbsSkinStdLabel;
    bsSkinStdLabel18: TbsSkinStdLabel;
    bsSkinStdLabel19: TbsSkinStdLabel;
    bsSkinStdLabel20: TbsSkinStdLabel;
    bsSkinDBEdit11: TbsSkinDBEdit;
    bsSkinDBEdit12: TbsSkinDBEdit;
    bsSkinDBEdit13: TbsSkinDBEdit;
    bsSkinDBEdit14: TbsSkinDBEdit;
    bsSkinDBEdit15: TbsSkinDBEdit;
    bsSkinDBEdit16: TbsSkinDBEdit;
    bsSkinDBEdit17: TbsSkinDBEdit;
    bsSkinDBEdit18: TbsSkinDBEdit;
    bsSkinDBEdit19: TbsSkinDBEdit;
    bsSkinDBEdit20: TbsSkinDBEdit;
    Panel2: TPanel;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel5: TbsSkinStdLabel;
    bsSkinStdLabel6: TbsSkinStdLabel;
    bsSkinStdLabel7: TbsSkinStdLabel;
    bsSkinStdLabel8: TbsSkinStdLabel;
    bsSkinStdLabel9: TbsSkinStdLabel;
    bsSkinStdLabel10: TbsSkinStdLabel;
    bsSkinDBEdit6: TbsSkinDBEdit;
    bsSkinDBEdit4: TbsSkinDBEdit;
    bsSkinDBEdit1: TbsSkinDBEdit;
    bsSkinDBEdit3: TbsSkinDBEdit;
    bsSkinDBEdit5: TbsSkinDBEdit;
    bsSkinDBEdit2: TbsSkinDBEdit;
    bsSkinDBEdit8: TbsSkinDBEdit;
    bsSkinDBEdit7: TbsSkinDBEdit;
    bsSkinDBEdit9: TbsSkinDBEdit;
    bsSkinDBEdit10: TbsSkinDBEdit;
    t_op_gain_main: TADOQuery;
    t_op_gain_main1: TDataSource;
    DBEdit43: TDBEdit;
    t_ch_client_sum: TADOQuery;
    t_ch_client_sum1: TDataSource;
    Label43: TLabel;
    DBEdit44: TDBEdit;
    Label44: TLabel;
    DBEdit45: TDBEdit;
    Label45: TLabel;
    DBEdit46: TDBEdit;
    Label41: TLabel;
    DBEdit47: TDBEdit;
    DBMemo7: TDBMemo;
    Label46: TLabel;
    baoguan: TEdit;
    N122: TMenuItem;
    INVOICEEXCEL1: TMenuItem;
    wwDBLookupCombo11: TwwDBLookupCombo;
    wwDBLookupCombo12: TwwDBLookupCombo;
    N123: TMenuItem;
    N124: TMenuItem;
    a_price_view: TADOQuery;
    dsa_price_view: TDataSource;
    ap_price_view: TbsSkinGroupBox;
    Label48: TLabel;
    DBEdit49: TDBEdit;
    DBEdit48: TDBEdit;
    IdMsg: TIdMessage;
    SMTP1: TIdSMTP;
    bsSkinPanel3: TbsSkinPanel;
    bsSkinGroupBox1: TbsSkinGroupBox;
    Memo1: TMemo;
    DBEdit50: TDBEdit;
    Label47: TLabel;
    DBEdit51: TDBEdit;
    Label49: TLabel;
    DBEdit52: TDBEdit;
    Label50: TLabel;
    DBEdit53: TDBEdit;
    Label51: TLabel;
    DBEdit54: TDBEdit;
    Label52: TLabel;
    Label53: TLabel;
    DBEdit55: TDBEdit;
    DBEdit56: TDBEdit;
    Label54: TLabel;
    Label55: TLabel;
    DBEdit57: TDBEdit;
    DBEdit58: TDBEdit;
    N125: TMenuItem;
    N126: TMenuItem;
    procedure FrameEnter(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure t_ch_acceptAfterInsert(DataSet: TDataSet);
    procedure bsSkinButton4Click(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure t_ch_acceptBeforePost(DataSet: TDataSet);
    procedure t_ch_acceptBeforeEdit(DataSet: TDataSet);
    procedure wwDBLookupCombo5Change(Sender: TObject);
    procedure wwDBLookupCombo4Change(Sender: TObject);
    procedure wwDBLookupCombo3Change(Sender: TObject);
    procedure wwDBLookupCombo7Change(Sender: TObject);
    procedure wwDBLookupCombo9Change(Sender: TObject);
    procedure wwDBLookupCombo10Change(Sender: TObject);
    procedure t_ch_payAfterInsert(DataSet: TDataSet);
    procedure t_ch_payBeforeEdit(DataSet: TDataSet);
    procedure t_ch_payBeforePost(DataSet: TDataSet);
    procedure bsSkinButton10Click(Sender: TObject);
    procedure bsSkinButton14Click(Sender: TObject);
    procedure bsSkinButton15Click(Sender: TObject);
    procedure bsSkinButton16Click(Sender: TObject);
    procedure wwDBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
      Field: TField; State: TGridDrawState);
    procedure wwDBGrid2DrawDataCell(Sender: TObject; const Rect: TRect;
      Field: TField; State: TGridDrawState);
    procedure bsSkinButton7Click(Sender: TObject);
    procedure bsSkinButton18Click(Sender: TObject);
    procedure DBEdit17Change(Sender: TObject);
    procedure DBEdit18Change(Sender: TObject);
    procedure bsSkinButton8Click(Sender: TObject);
    procedure bsSkinButton13Click(Sender: TObject);
    procedure bsSkinButton6Click(Sender: TObject);
    procedure bsSkinButton17Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure MenuItem1Click(Sender: TObject);
    procedure MenuItem7Click(Sender: TObject);
    procedure wwDBGrid1ColExit(Sender: TObject);
    procedure wwDBGrid2ColExit(Sender: TObject);
    procedure bsSkinButton9Click(Sender: TObject);
    procedure bsSkinButton5Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure N53Click(Sender: TObject);
    procedure N55Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N47Click(Sender: TObject);
    procedure N49Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N50Click(Sender: TObject);
    procedure N52Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N44Click(Sender: TObject);
    procedure N46Click(Sender: TObject);
    procedure t_ch_acceptAfterPost(DataSet: TDataSet);
    procedure t_ch_acceptBeforeInsert(DataSet: TDataSet);
    procedure t_ch_payBeforeInsert(DataSet: TDataSet);
    procedure Panel11Resize(Sender: TObject);
    procedure Panel3Resize(Sender: TObject);
    procedure Panel2Resize(Sender: TObject);
    procedure N56Click(Sender: TObject);
    procedure N58Click(Sender: TObject);
    procedure N60Click(Sender: TObject);
    procedure N62Click(Sender: TObject);
    procedure N64Click(Sender: TObject);
    procedure N66Click(Sender: TObject);
    procedure N68Click(Sender: TObject);
    procedure N70Click(Sender: TObject);
    procedure N72Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure MenuItem3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N77Click(Sender: TObject);
    procedure N74Click(Sender: TObject);
    procedure N75Click(Sender: TObject);
    procedure N79Click(Sender: TObject);
    procedure N81Click(Sender: TObject);
    procedure MenuItem5Click(Sender: TObject);
    procedure N82Click(Sender: TObject);
    procedure N84Click(Sender: TObject);
    procedure MenuItem10Click(Sender: TObject);
    procedure N86Click(Sender: TObject);
    procedure MenuItem12Click(Sender: TObject);
    procedure N88Click(Sender: TObject);
    procedure N89Click(Sender: TObject);
    procedure MenuItem15Click(Sender: TObject);
    procedure bsSkinButton11Click(Sender: TObject);
    procedure bsSkinButton12Click(Sender: TObject);
    procedure N91Click(Sender: TObject);
    procedure MenuItem17Click(Sender: TObject);
    procedure N93Click(Sender: TObject);
    procedure N95Click(Sender: TObject);
    procedure N97Click(Sender: TObject);
    procedure N101Click(Sender: TObject);
    procedure N103Click(Sender: TObject);
    procedure t_ch_acceptAfterDelete(DataSet: TDataSet);
    procedure t_ch_payAfterPost(DataSet: TDataSet);
    procedure N108Click(Sender: TObject);
    procedure N113Click(Sender: TObject);
    procedure N110Click(Sender: TObject);
    procedure N112Click(Sender: TObject);
    procedure N115Click(Sender: TObject);
    procedure N117Click(Sender: TObject);
    procedure N119Click(Sender: TObject);
    procedure N121Click(Sender: TObject);
    procedure DBEdit43Change(Sender: TObject);
    procedure Panel9Resize(Sender: TObject);
    procedure wwDBLookupCombo1KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBLookupCombo6KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBLookupCombo5Exit(Sender: TObject);
    procedure wwDBLookupCombo7Exit(Sender: TObject);
    procedure a_shen_modify_newBeforePost(DataSet: TDataSet);
    procedure p_shen_modify_newBeforePost(DataSet: TDataSet);
    procedure INVOICEEXCEL1Click(Sender: TObject);
    procedure t_ch_acceptDSDesigner5Change(Sender: TField);
    procedure t_ch_payDSDesigner5Change(Sender: TField);
    procedure N124Click(Sender: TObject);
    procedure DBEdit48Change(Sender: TObject);
    procedure t_ch_acceptAfterOpen(DataSet: TDataSet);
    procedure t_ch_payAfterOpen(DataSet: TDataSet);
    procedure NMSMTP1Connect(Sender: TObject);
    procedure DBEdit50Change(Sender: TObject);
    procedure N126Click(Sender: TObject);
  private
    procedure iszeroprofit;
    procedure t_ch_acceptdjoncharge(Sender: TField);//<2F>շѽ<D5B7><D1BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>

    procedure t_ch_paydjoncharge(Sender: TField); //<2F><><EFBFBD>ѽ<EFBFBD><D1BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>


    procedure DatasetNOPricecharge(Sender: TField);//<2F>շѽ<D5B7><D1BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    procedure t_ch_acceptcrmcharge(Sender: TField);//<2F>շѽ<D5B7><D1BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>

    procedure DatasetAmtcharge(Sender: TField);//<2F>շѽ<D5B7><D1BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>


    { Private declarations }
  public
    procedure getsumstr;//<2F>ϼ<EFBFBD><CFBC>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD><EFBFBD>
    { Public declarations }
  end;

implementation

uses u_main, my_sys_function, u_data_share, u_code_fee_project_add,
  u_fee_history, u_fee_list, u_ch_fee_truck, u_zeroprofit, u_fee_baoganadd;

{$R *.dfm}

procedure Tfra_fee.FrameEnter(Sender: TObject);
var
  str_list:Tstringlist;
  i,k:integer;
  aQuery:TADOQuery;
begin
  if (edit_type.text='1')or(edit_type.text='2') then
  begin
    if strtobool(get_parameters_value(30,'false'))then
    begin
      N118.Visible:=true;
      N119.Visible:=true;
      N120.Visible:=true;
      N121.Visible:=true;
    end
    else
    begin
      N118.Visible:=false;
      N119.Visible:=false;
      N120.Visible:=false;
      N121.Visible:=false;
    end;
  end;
  wwDBGrid1.AddField('<27>ͻ<EFBFBD>ȫ<EFBFBD><C8AB>');
  wwDBGrid1.AddField('<27><><EFBFBD>̱<EFBFBD><CCB1><EFBFBD>');
  wwDBGrid1.ColumnByName('<27><><EFBFBD><EFBFBD>״̬').ReadOnly:=True;
  wwDBGrid2.ColumnByName('<27><><EFBFBD><EFBFBD>״̬').ReadOnly:=True;

  if strtobool(get_parameters_value(64,'false'))then
  begin
    if wwDBGrid1.ColumnByName('<27><><EFBFBD><EFBFBD>').FieldName='' then
    begin
      wwDBGrid1.AddField('<27><><EFBFBD><EFBFBD>');
      wwDBGrid1.SetControlType('<27><><EFBFBD><EFBFBD>',fctCheckBox, 'TRUE;FALSE');
      wwDBGrid1.Invalidate;
      wwDBGrid1.Fields[wwDBGrid1.FieldCount-1].Index:=1;
    end;
    if wwDBGrid2.ColumnByName('<27><><EFBFBD><EFBFBD>').FieldName='' then
    begin
      wwDBGrid2.AddField('<27><><EFBFBD><EFBFBD>');
      wwDBGrid2.SetControlType('<27><><EFBFBD><EFBFBD>',fctCheckBox, 'TRUE;FALSE');
      wwDBGrid2.Invalidate;
      wwDBGrid2.Fields[wwDBGrid2.FieldCount-1].Index:=1;
    end;
  end;

  if not if_open('267') then begin
    N82.Visible:=false;
    N83.Visible:=false;
    N84.Visible:=false;
    N85.Visible:=false;

    MenuItem5.Visible:=false;
    MenuItem6.Visible:=false;
    MenuItem10.Visible:=false;
    MenuItem11.Visible:=false;

  end;
  if (edit_type.text='1')or(edit_type.text='2') then
  begin
    try
      t_bz_balance.close;
      t_bz_balance.open;
      t_bz_balance.Append;
      t_bz_balance['one']:='1-<2D><>Ʊ';
      t_bz_balance['two']:='<27><>Ʊ';
      t_bz_balance['three']:=1;
      t_bz_balance.post;
      t_bz_balance.Append;
      t_bz_balance['one']:='2-<2D><><EFBFBD><EFBFBD>';
      t_bz_balance['two']:='<27><><EFBFBD><EFBFBD>';
      t_bz_balance['three']:=s_w(4,t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat/1000);
      t_bz_balance.post;
      t_bz_balance.Append;
      t_bz_balance['one']:='3-<2D><><EFBFBD><EFBFBD>';
      t_bz_balance['two']:='<27><><EFBFBD><EFBFBD>';
      if t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat>1 then
        t_bz_balance['three']:=t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
      else
        t_bz_balance['three']:=1;
      t_bz_balance.post;
      t_bz_balance.Append;
      t_bz_balance['one']:='4-<2D>ƷѶ<C6B7>';
      t_bz_balance['two']:='<27>ƷѶ<C6B7>';
      if (t_ch_accept.DataSource.DataSet.FieldByName('ƴ<><C6B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString='<27><>Ʊ<EFBFBD><C6B1>Ʊ')  then begin
        aQuery:=CreateAdoQuery;
        try
          with aQuery do begin
            Close;SQL.Clear;
            SQL.Add('Select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_seae where <20><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>='''+t_ch_accept.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']+'''');
            Open;

            if s_w(4,fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat/1000)>fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat then
            begin
              if s_w(4,fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat/1000)>1 then
                t_bz_balance['three']:=s_w(4,fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat/1000)
              else
                t_bz_balance['three']:=1;
            end
            else
            begin
              if fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat>1 then
                t_bz_balance['three']:=fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
              else
                t_bz_balance['three']:=1;
            end;
          end;
        finally
          FreeAndNil(aQuery);
        end;
      end else begin
        if s_w(4,t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat/1000)>t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat then
        begin
          if s_w(4,t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat/1000)>1 then
            t_bz_balance['three']:=s_w(4,t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat/1000)
          else
            t_bz_balance['three']:=1;
        end
        else
        begin
          if t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat>1 then
            t_bz_balance['three']:=t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
          else
            t_bz_balance['three']:=1;
        end;
      end;

      t_bz_balance.post;
      t_bz_balance.Append;
      t_bz_balance['one']:='5-TEU';
      t_bz_balance['two']:='TEU';
      t_bz_balance['three']:=t_ch_accept.DataSource.DataSet.fieldbyname('<27><>TEU').asinteger;
      t_bz_balance.post;

      k:=0;
      if baoguan.text='1'then
      begin
        t_bz_balance.Append;
        t_bz_balance['one']:='6-<2D><><EFBFBD><EFBFBD>';
        t_bz_balance['two']:='<27><><EFBFBD><EFBFBD>';
        t_bz_balance['three']:=s_w(4,t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat/1000);
        t_bz_balance.post;
        k:=k+1;

        try
          strtofloat(t_ch_accept.DataSource.DataSet.fieldbyname('<27>ܼ<EFBFBD>').asstring);
          t_bz_balance.Append;
          t_bz_balance['one']:='7-<2D>ܼ<EFBFBD>';
          t_bz_balance['two']:='<27>ܼ<EFBFBD>';
          t_bz_balance['three']:=strtofloat(t_ch_accept.DataSource.DataSet.fieldbyname('<27>ܼ<EFBFBD>').asstring);
          t_bz_balance.post;
          k:=k+1;
        except
          ;
        end;
      end;
      str_list:=Tstringlist.Create();
      str_list.Text:=t_ch_accept.DataSource.DataSet.fieldbyname('<27>Ʒѱ<C6B7>׼').asstring;
      for i:=0 to str_list.Count-1 do
      begin
        t_bz_balance.Append;
        t_bz_balance['one']:=inttostr(i+k+6)+'-'+copy(str_list[i],1,pos('*',str_list[i])-1);
        t_bz_balance['two']:=copy(str_list[i],pos('-',str_list[i])+1,length(str_list[i])+1-pos('-',str_list[i]));
        t_bz_balance['three']:=strtofloat(copy(str_list[i],pos('*',str_list[i])+1,pos('-',str_list[i])-pos('*',str_list[i])-1));
        t_bz_balance.post;
      end;
    finally
      str_list.free;
    end;

    t_bz_client.close;
    t_bz_client.open;
    t_bz_client.Append;
    t_bz_client['one']:='0-ί<>е<EFBFBD>λ';
    t_bz_client['two']:='ί<>е<EFBFBD>λ';
    t_bz_client['three']:=t_ch_accept.DataSource.DataSet.fieldbyname('ί<>е<EFBFBD>λ').asstring;
    t_bz_client.post;
    t_bz_client.Append;
    t_bz_client['one']:='1-<2D><> <20><> ˾';
    t_bz_client['two']:='<27><><EFBFBD><EFBFBD>˾';
    t_bz_client['three']:=t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>˾').asstring;
    t_bz_client.post;
    t_bz_client.Append;
    t_bz_client['one']:='2-<2D><>    վ';
    t_bz_client['two']:='<27><>վ';
    t_bz_client['three']:=t_ch_accept.DataSource.DataSet.fieldbyname('<27><>վ').asstring;
    t_bz_client.post;
    t_bz_client.Append;
    t_bz_client['one']:='3-<2D><>    <20><>';
    t_bz_client['two']:='<27><><EFBFBD><EFBFBD>';
    t_bz_client['three']:=t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>').asstring;
    t_bz_client.post;
    t_bz_client.Append;
    t_bz_client['one']:='4-<2D><> <20><> <20><>';
    t_bz_client['two']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
    t_bz_client['three']:=t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
    t_bz_client.post;
    t_bz_client.Append;
    t_bz_client['one']:='5-<2D><>    <20><>';
    t_bz_client['two']:='<27><><EFBFBD><EFBFBD>';
    t_bz_client['three']:=t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
    t_bz_client.post;
    t_bz_client.Append;
    t_bz_client['one']:='6-<2D><>    <20><>';
    t_bz_client['two']:='<27><><EFBFBD><EFBFBD>';
    t_bz_client['three']:=t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾').asstring;
    t_bz_client.post;
    t_bz_client.Append;
    t_bz_client['one']:='7-<2D><> <20><> <20><>';
    t_bz_client['two']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
    t_bz_client['three']:=t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
    t_bz_client.post;
    t_bz_client.Append;
    t_bz_client['one']:='8-<2D><> <20><> <20><>';
    t_bz_client['two']:='<27>ջ<EFBFBD><D5BB><EFBFBD>';
    t_bz_client['three']:=t_ch_accept.DataSource.DataSet.fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD>').asstring;
    t_bz_client.post;
    t_bz_client.Append;
    t_bz_client['one']:='9-ͨ ֪ <20><>';
    t_bz_client['two']:='֪ͨ<CDA8><D6AA>';
    t_bz_client['three']:=t_ch_accept.DataSource.DataSet.fieldbyname('֪ͨ<CDA8><D6AA>').asstring;
    t_bz_client.post;
    t_bz_client.Append;
    t_bz_client['one']:='10-<2D><>   <20><>';
    t_bz_client['two']:='<27><><EFBFBD><EFBFBD><EFBFBD>ͻ<EFBFBD>';
    t_bz_client['three']:='';
    t_bz_client.post;
    t_bz_client.Append;
    t_bz_client['one']:='11-<2D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
    t_bz_client['two']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
    t_bz_client['three']:=t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
    t_bz_client.post;

    if edit_type.text='1' then
    begin
      t_bz_client.Append;
      t_bz_client['one']:='12-<2D><><EFBFBD><EFBFBD>';
      t_bz_client['two']:='<27><><EFBFBD><EFBFBD>';
      t_bz_client['three']:=t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
      t_bz_client.post;

    end;


    frm_data_share.t_code_fee.Filtered:=false;
    frm_data_share.t_code_fee.Filter:='<27><><EFBFBD><EFBFBD>=1';
    frm_data_share.t_code_fee.Filtered:=true;
  end;

  if (edit_type.text='3')or(edit_type.text='4') then
  begin
    try
      t_bz_balance.close;
      t_bz_balance.open;
      t_bz_balance.Append;
      t_bz_balance['one']:='1-<2D><>Ʊ';
      t_bz_balance['two']:='<27><>Ʊ';
      t_bz_balance['three']:=1;
      t_bz_balance.post;
      t_bz_balance.Append;
      t_bz_balance['one']:='2-<2D>Ƽ<EFBFBD><C6BC><EFBFBD><EFBFBD><EFBFBD>';
      t_bz_balance['two']:='<27>Ƽ<EFBFBD><C6BC><EFBFBD><EFBFBD><EFBFBD>';
      t_bz_balance['three']:=s_w(4,t_ch_accept.DataSource.DataSet.fieldbyname('<27>Ƽ<EFBFBD><C6BC><EFBFBD><EFBFBD><EFBFBD>').asfloat);
      t_bz_balance.post;
      t_bz_balance.Append;
      t_bz_balance['one']:='3-<2D><><EFBFBD><EFBFBD>';
      t_bz_balance['two']:='<27><><EFBFBD><EFBFBD>';
      t_bz_balance['three']:=t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
      t_bz_balance.post;
    finally
      ;
    end;

    t_bz_client.close;
    t_bz_client.open;
    t_bz_client.Append;
    t_bz_client['one']:='1-ί<>е<EFBFBD>λ';
    t_bz_client['two']:='ί<>е<EFBFBD>λ';
    t_bz_client['three']:=t_ch_accept.DataSource.DataSet.fieldbyname('ί<>е<EFBFBD>λ').asstring;
    t_bz_client.post;
    t_bz_client.Append;
    t_bz_client['one']:='2-<2D><><EFBFBD>չ<EFBFBD>˾';
    t_bz_client['two']:='<27><><EFBFBD>չ<EFBFBD>˾';
    t_bz_client['three']:=t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD>չ<EFBFBD>˾').asstring;
    t_bz_client.post;
    t_bz_client.Append;
    t_bz_client['one']:='3-<2D><> <20><> <20><>';
    t_bz_client['two']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
    t_bz_client['three']:=t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
    t_bz_client.post;
    t_bz_client.Append;
    t_bz_client['one']:='4-<2D><>    <20><>';
    t_bz_client['two']:='<27><><EFBFBD><EFBFBD>';
    t_bz_client['three']:=t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
    t_bz_client.post;
    t_bz_client.Append;
    t_bz_client['one']:='5-<2D><>    <20><>';
    t_bz_client['two']:='<27><><EFBFBD><EFBFBD><EFBFBD>ͻ<EFBFBD>';
    t_bz_client['three']:='';
    t_bz_client.post;

    frm_data_share.t_code_fee.Filtered:=false;
    frm_data_share.t_code_fee.Filter:='<27><><EFBFBD><EFBFBD>=1';
    frm_data_share.t_code_fee.Filtered:=true;
  end;

    if t_ch_accept.Active then
  begin
    t_ch_accept.FieldByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').OnChange:=t_ch_acceptcrmcharge;

    t_ch_accept.FieldByName('˰<><CBB0>').OnChange:=t_ch_acceptdjoncharge;

//    t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=DatasetAmtcharge;

    t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=t_ch_acceptdjoncharge;
    t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=t_ch_acceptdjoncharge;
//    TNumericField(t_ch_accept.FieldByName('˰<><CBB0>')).DisplayFormat:='#.####"%";#.####"%";0';
//    TNumericField(t_ch_accept.FieldByName('˰<><CBB0>')).EditFormat:=';;';
  end;

  if t_ch_pay.Active then
  begin
    t_ch_pay.FieldByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').OnChange:=t_ch_acceptcrmcharge;
    t_ch_pay.FieldByName('˰<><CBB0>').OnChange:=t_ch_paydjoncharge;
    t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=t_ch_paydjoncharge;
    t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=t_ch_paydjoncharge;
//    t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=DatasetAmtcharge;
//    TNumericField(t_ch_pay.FieldByName('˰<><CBB0>')).DisplayFormat:='#.####"%";#.####"%";0';
//    TNumericField(t_ch_pay.FieldByName('˰<><CBB0>')).EditFormat:=';;';
  end;

end;

procedure Tfra_fee.bsSkinButton1Click(Sender: TObject);
var
  Pnt:Tpoint;
begin
  Pnt:=bsSkinButton1.ClientToScreen(Point(0,bsSkinButton1.Height));
  PopupMenu1.Popup(Pnt.x,Pnt.y);
  if Panel1.Visible then
  begin
    N8.Visible:=true;
    N9.Visible:=true;
  end
  else
  begin
    N8.Visible:=false;
    N9.Visible:=false;
  end;
end;

procedure Tfra_fee.bsSkinButton2Click(Sender: TObject);
begin
  if t_ch_accept.IsEmpty then
    exit;
  table_post(t_ch_accept);
end;

procedure Tfra_fee.t_ch_acceptAfterInsert(DataSet: TDataSet);
begin
  t_ch_accept['<27><><EFBFBD><EFBFBD>']:=t_ch_accept.DataSource.DataSet['<27><><EFBFBD><EFBFBD>'];
  t_ch_accept['<27><><EFBFBD><EFBFBD>']:='<27><>';
  t_ch_accept['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
  t_ch_accept['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
  t_ch_accept['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
  t_ch_accept['<27><><EFBFBD><EFBFBD>']:=0;
  t_ch_accept['<27>ұ<EFBFBD>']:='RMB';
  t_ch_accept['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=0;
  t_ch_accept['<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>']:=0;
  t_ch_accept['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
  t_ch_accept['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
  t_ch_accept['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
  t_ch_accept['ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>']:=0;
  t_ch_accept['˰<><CBB0>']:=aRateNum;
  t_ch_accept['˰<><CBB0>']:=0;
  t_ch_accept['<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>']:=0;
  t_ch_accept['<27><><EFBFBD><EFBFBD>']:=0;
  t_ch_accept['<27><><EFBFBD><EFBFBD>']:=0;
  t_ch_accept['<27><><EFBFBD><EFBFBD>']:=1;


  if (t_ch_accept.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']<>'') then
    t_ch_accept['<27><><EFBFBD>㵥λ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
  else
    t_ch_accept['<27><><EFBFBD>㵥λ']:='ί<>е<EFBFBD>λ';
  t_ch_accept['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_accept.DataSource.DataSet['<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>'];
  t_ch_accept['˳<><CBB3>']:=t_ch_accept.RecordCount+1;
  t_ch_accept['<27><><EFBFBD><EFBFBD>']:=0;
  t_ch_accept['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ']:=0;

  t_ch_accept['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
  t_ch_accept['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
  t_ch_accept['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
   t_ch_accept['<27><><EFBFBD><EFBFBD>']:=0;
    t_ch_accept['<27><><EFBFBD><EFBFBD>ƾ֤']:='';

end;

procedure Tfra_fee.bsSkinButton4Click(Sender: TObject);
var
  i:integer;
  str_list:Tstringlist;
begin
  if t_ch_accept.isempty then
    exit;
  if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)<>IDOK then
    exit;
 try

  if wwDBGrid1.SelectedList.Count>1 then
  begin
   try
      str_list:=Tstringlist.create;
      for i:=0 to wwDBGrid1.SelectedList.Count-1 do
      begin
        t_ch_accept.GotoBookmark(pointer(wwDBGrid1.SelectedList[i]));
        str_list.Add(t_ch_accept.fieldbyname('CH_ID').asstring);
      end;
      for i:=0 to str_list.Count-1 do
      begin
        if t_ch_accept.locate('CH_ID',str_list[i],[]) then
          t_ch_accept.Delete;
      end;
    finally
      str_list.free;
    end;  
  end
  else
  begin
    t_ch_accept.delete;
  end;
  t_ch_accept.Refresh;
  except
  t_ch_accept.Close;
  t_ch_accept.open;
  end;
end;

procedure Tfra_fee.bsSkinButton3Click(Sender: TObject);
begin
  table_cancel(t_ch_accept);
end;

procedure Tfra_fee.t_ch_acceptBeforePost(DataSet: TDataSet);
var
  client:tclient;
  function GetCorpFullName(Corp:string):Tclient;
  var
    aQuery:TADOQuery;
  begin
    aQuery:=CreateAdoQuery;
    try
      with aQuery do begin
        Close;SQL.Clear;
        sql.Add('sELECT <20>ͻ<EFBFBD>ȫ<EFBFBD><C8AB>,<2C><><EFBFBD>̱<EFBFBD><CCB1><EFBFBD> from t_crm_client where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='''+Corp+'''');
        Open;
        Result.FullName:=FieldByName('<27>ͻ<EFBFBD>ȫ<EFBFBD><C8AB>').AsString;
        Result.Codename:=FieldByName('<27><><EFBFBD>̱<EFBFBD><CCB1><EFBFBD>').AsString;
      end;
    finally
      FreeAndNil(aQuery);
    end;
  end;
begin
  t_ch_accept['<27><><EFBFBD><EFBFBD>״̬']:=t_ch_accept['<27><><EFBFBD><EFBFBD>״̬'];
  t_ch_accept['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=t_ch_accept['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>'];
  t_ch_accept['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_accept['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
  if t_ch_accept['<27><><EFBFBD><EFBFBD>״̬']='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>' then
  begin
    if (t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='')or
       (t_ch_accept.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring='')or
       (t_ch_accept.fieldbyname('<27>ұ<EFBFBD>').asstring='')or
       (t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat=0)then
    begin
      showmessage('<27>Բ<EFBFBD><D4B2>𣬷<EFBFBD><F0A3ACB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>벻<EFBFBD><EBB2BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܱ<EFBFBD><DCB1>棡');
      abort;
    end;
  end;
{
  if (t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat<>0) and (t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat<>0)then
  begin
    t_ch_accept['<27><><EFBFBD><EFBFBD>']:=
      s_w(strtoint(apointnum),t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
  end;
 }
  t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=nil;
  try
   t_ch_accept['<27><><EFBFBD><EFBFBD>']:=s_w(strtoint(apointnum),t_ch_accept['<27><><EFBFBD><EFBFBD>']);
  finally
//    t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=DatasetAmtcharge;
  end;
  IF not frm_data_share.t_code_currency.Locate('<27>ұ<EFBFBD>',t_ch_accept.fieldbyname('<27>ұ<EFBFBD>').asstring,[])THEN
  begin
    showmessage('<27>Բ<EFBFBD><D4B2>𣬷<EFBFBD><F0A3ACB7>ñұ<C3B1><D2B1><EFBFBD><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7>');
    abort;
  end;


  if frm_data_share.t_code_fee.locate('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',t_ch_accept.fieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString ,[]) then
  begin
    t_ch_accept['˳<><CBB3>']:=frm_data_share.t_code_fee.fieldbyname('˳<><CBB3>').asInteger;
    if (frm_data_share.t_code_fee.fieldbyname('<27><>ֹ<EFBFBD><D6B9>Ʊ').AsBoolean=True) then
       t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ').AsBoolean:=true;

  end;
    client:=GetCorpFullName(t_ch_accept.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString);
   t_ch_accept.FieldByName('<27>ͻ<EFBFBD>ȫ<EFBFBD><C8AB>').asstring:=client.FullName;
   t_ch_accept.FieldByName('<27><><EFBFBD>̱<EFBFBD><CCB1><EFBFBD>').asstring:=client.Codename;
//  t_ch_accept.FieldByName('<27>ͻ<EFBFBD>ȫ<EFBFBD><C8AB>').asstring:=GetCorpFullName(t_ch_accept.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString);

  //table_before_post(t_ch_accept,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  if t_ch_accept.fieldbyname('<27>ұ<EFBFBD>').asstring<>'' then
  begin
    if t_ch_accept.fieldbyname('<27>ұ<EFBFBD>').asstring='USD' then begin
      if edit_type.text='1' then
        t_ch_accept['<27><><EFBFBD><EFBFBD>']:=getUsdExRate(t_ch_accept.datasource.dataset.fieldbyname('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)
      else if edit_type.text='2' then
        t_ch_accept['<27><><EFBFBD><EFBFBD>']:=getUsdExRate(t_ch_accept.datasource.dataset.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)
      else if edit_type.text='3' then
        t_ch_accept['<27><><EFBFBD><EFBFBD>']:=getUsdExRate(t_ch_accept.datasource.dataset.fieldbyname('һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)
      else if edit_type.text='4' then
        t_ch_accept['<27><><EFBFBD><EFBFBD>']:=getUsdExRate(t_ch_accept.datasource.dataset.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
    end else
      if t_ch_accept.fieldbyname('<27>ұ<EFBFBD>').asstring='RMB' then
        t_ch_accept['<27><><EFBFBD><EFBFBD>']:=1;

{
      IF not frm_data_share.t_code_currency.Locate('<27>ұ<EFBFBD>',t_ch_accept.fieldbyname('<27>ұ<EFBFBD>').asstring,[])THEN
      begin
        showmessage('<27>Բ<EFBFBD><D4B2>𣬷<EFBFBD><F0A3ACB7>ñұ<C3B1><D2B1><EFBFBD><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7>');
        abort;
      end
      else
      begin
        if not strtobool(get_parameters_value(38,'true')) then
        begin
          t_ch_accept['<27><><EFBFBD><EFBFBD>']:=frm_data_share.t_code_currency.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
        end;
      end;
}
  end else begin
    showmessage('<27>Բ<EFBFBD><D4B2>𣬱ұ<F0A3ACB1><D2B1><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>');
    abort;
  end;
if ( t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat<>0) AND ((t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>˷Ѵ<CBB7><D1B4><EFBFBD><EFBFBD><EFBFBD>') or (t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD><EFBFBD><EFBFBD>')) then begin
  if (t_ch_accept.fieldbyname('<27><>ע').asstring='') then begin
     showmessage('<27><><EFBFBD><EFBFBD><EFBFBD>ɷ<EFBFBD><C9B7>ñ<EFBFBD>ע<EFBFBD><D7A2><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>');
    abort;
  end;

end;

//  if ( t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat<>0) AND ((t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>˷Ѵ<CBB7><D1B4><EFBFBD><EFBFBD><EFBFBD>') or (t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD><EFBFBD><EFBFBD>')) then begin
  if ( t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat<>0) AND ((t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>˷Ѵ<CBB7><D1B4><EFBFBD><EFBFBD><EFBFBD>44444444') ) then begin

    try
    frm_fee_baoganadd:=tfrm_fee_baoganadd.Create(application);
    frm_fee_baoganadd.table1.Enabled:=false;
    frm_fee_baoganadd.table1.DataSet:=t_ch_accept;
    frm_fee_baoganadd.table1.Enabled:=true;
    frm_fee_baoganadd.CFFeeName:=t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
    frm_fee_baoganadd.CFCURR:=t_ch_accept.FieldByName('<27>ұ<EFBFBD>').asstring;
    frm_fee_baoganadd.CFAMOUNT:=t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat;
    frm_fee_baoganadd.CFEXCHANGE:=t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat;
    if (t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>˷Ѵ<CBB7><D1B4><EFBFBD><EFBFBD><EFBFBD>') then begin
      frm_fee_baoganadd.wwDBLookupCombo1.Text:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɺ<EFBFBD><C9BA>˷<EFBFBD>';
      frm_fee_baoganadd.wwDBLookupCombo4.Text:='USD';
      frm_fee_baoganadd.Edit1.Text:=t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
      frm_fee_baoganadd.Edit2.Text:=t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
      frm_fee_baoganadd.wwDBLookupCombo2.Text:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
      frm_fee_baoganadd.Edit3.Text:='0';

    end else begin
      frm_fee_baoganadd.wwDBLookupCombo1.Text:='<27><><EFBFBD><EFBFBD><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD><EFBFBD>ɺ<EFBFBD><C9BA>˷<EFBFBD>';
      frm_fee_baoganadd.wwDBLookupCombo4.Text:='USD';
      frm_fee_baoganadd.Edit1.Text:='0';
      if edit_type.text='1' then
        frm_fee_baoganadd.Edit2.Text:=FloatToStr(getUsdExRate(t_ch_accept.datasource.dataset.fieldbyname('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring))
      else if edit_type.text='2' then
        frm_fee_baoganadd.Edit2.Text:=FloatToStr(getUsdExRate(t_ch_accept.datasource.dataset.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring))
      else if edit_type.text='3' then
        frm_fee_baoganadd.Edit2.Text:=FloatToStr(getUsdExRate(t_ch_accept.datasource.dataset.fieldbyname('һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring))
      else if edit_type.text='4' then
        frm_fee_baoganadd.Edit2.Text:=FloatToStr(getUsdExRate(t_ch_accept.datasource.dataset.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring));
      frm_fee_baoganadd.wwDBLookupCombo2.Text:='<27><><EFBFBD><EFBFBD><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
      frm_fee_baoganadd.Edit3.Text:=t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
    end;

    frm_fee_baoganadd.ShowModal;
  finally
    frm_fee_baoganadd.Free;
    frm_fee_baoganadd:=nil;
  end;
      abort;
  end;

end;

procedure Tfra_fee.t_ch_acceptBeforeEdit(DataSet: TDataSet);
begin
  if edit_type.text='1' then begin
     if not if_open('022') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='2' then begin
    if not if_open('055') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='3' then begin
    if not if_open('073') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='4' then begin
    if not if_open('081') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end;


  if not do_data('7000',t_ch_accept.FieldByName('¼<><C2BC><EFBFBD><EFBFBD>').asstring,'','','','','') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
    abort;
  end;
  fee_befor_modify(t_ch_accept);
end;

procedure Tfra_fee.wwDBLookupCombo5Change(Sender: TObject);
begin
  if (t_ch_accept.state=dsinsert)or(t_ch_accept.state=dsedit) then
  begin
    if not t_bz_client.IsEmpty then
    if t_bz_client.Locate('one',wwDBLookupCombo5.text,[])then
    begin
      t_ch_accept['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=t_bz_client.fieldbyname('three').asstring;
    end;
  end;
end;

procedure Tfra_fee.wwDBLookupCombo4Change(Sender: TObject);
begin
  if (t_ch_accept.state=dsinsert)or(t_ch_accept.state=dsedit) then
  begin
    if not t_bz_balance.IsEmpty then
    if t_bz_balance.Locate('one',wwDBLookupCombo4.text,[])then
    begin
      t_ch_accept['<27><><EFBFBD><EFBFBD>']:=t_bz_balance.fieldbyname('three').asfloat;
    end;
  end;
end;

procedure Tfra_fee.wwDBLookupCombo3Change(Sender: TObject);
begin
  if (t_ch_accept.state=dsinsert)or(t_ch_accept.state=dsedit) then
  begin
    if wwDBLookupCombo3.text='USD' then begin
      if edit_type.text='1' then
        t_ch_accept['<27><><EFBFBD><EFBFBD>']:=getUsdExRate(t_ch_accept.datasource.dataset.fieldbyname('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)
      else if edit_type.text='2' then
        t_ch_accept['<27><><EFBFBD><EFBFBD>']:=getUsdExRate(t_ch_accept.datasource.dataset.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)
      else if edit_type.text='3' then
        t_ch_accept['<27><><EFBFBD><EFBFBD>']:=getUsdExRate(t_ch_accept.datasource.dataset.fieldbyname('һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)
      else if edit_type.text='4' then
        t_ch_accept['<27><><EFBFBD><EFBFBD>']:=getUsdExRate(t_ch_accept.datasource.dataset.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
   end else
     if t_ch_accept.fieldbyname('<27>ұ<EFBFBD>').asstring='RMB' then
        t_ch_accept['<27><><EFBFBD><EFBFBD>']:=1;
  end;
end;

procedure Tfra_fee.wwDBLookupCombo7Change(Sender: TObject);
begin
  if (t_ch_pay.state=dsinsert)or(t_ch_pay.state=dsedit) then
  begin
    if not t_bz_client.IsEmpty then
    if t_bz_client.Locate('one',wwDBLookupCombo7.text,[])then
    begin
      t_ch_pay['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=t_bz_client.fieldbyname('three').asstring;
    end;
  end;
end;

procedure Tfra_fee.wwDBLookupCombo9Change(Sender: TObject);
begin
  if (t_ch_pay.state=dsinsert)or(t_ch_pay.state=dsedit) then
  begin
    if not t_bz_balance.IsEmpty then
    if t_bz_balance.Locate('one',wwDBLookupCombo9.text,[])then
    begin
      t_ch_pay['<27><><EFBFBD><EFBFBD>']:=t_bz_balance.fieldbyname('three').asfloat;
    end;
  end;
end;

procedure Tfra_fee.wwDBLookupCombo10Change(Sender: TObject);
begin
  if (t_ch_pay.state=dsinsert)or(t_ch_pay.state=dsedit) then
  begin
    if wwDBLookupCombo10.text='USD' then begin
      if edit_type.text='1' then
        t_ch_pay['<27><><EFBFBD><EFBFBD>']:=getUsdExRate(t_ch_pay.datasource.dataset.fieldbyname('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)
      else if edit_type.text='2' then
        t_ch_pay['<27><><EFBFBD><EFBFBD>']:=getUsdExRate(t_ch_pay.datasource.dataset.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)
      else if edit_type.text='3' then
        t_ch_pay['<27><><EFBFBD><EFBFBD>']:=getUsdExRate(t_ch_pay.datasource.dataset.fieldbyname('һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)
      else if edit_type.text='4' then
        t_ch_pay['<27><><EFBFBD><EFBFBD>']:=getUsdExRate(t_ch_pay.datasource.dataset.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
    end else
      if t_ch_PAY.fieldbyname('<27>ұ<EFBFBD>').asstring='RMB' then
        t_ch_pay['<27><><EFBFBD><EFBFBD>']:=1;
  end;
end;

procedure Tfra_fee.t_ch_payAfterInsert(DataSet: TDataSet);
begin
  t_ch_pay['<27><><EFBFBD><EFBFBD>']:=t_ch_pay.DataSource.DataSet['<27><><EFBFBD><EFBFBD>'];
  t_ch_pay['<27><><EFBFBD><EFBFBD>']:='<27><>';
  t_ch_pay['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
  t_ch_pay['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
  t_ch_pay['<27><><EFBFBD><EFBFBD>']:=0;
  t_ch_pay['<27>ұ<EFBFBD>']:='RMB';
  t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
  t_ch_pay['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=0;
  t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
  t_ch_pay['<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>']:=0;
  t_ch_pay['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
  t_ch_pay['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
  t_ch_pay['ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>']:=0;
  t_ch_pay['˰<><CBB0>']:=aRateNum;
  t_ch_pay['˰<><CBB0>']:=0;
  t_ch_pay['<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>']:=0;

  t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_pay.DataSource.DataSet['<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>'];
  t_ch_pay['˳<><CBB3>']:=t_ch_pay.RecordCount+1;
  t_ch_pay['<27><><EFBFBD><EFBFBD>']:=0;
  t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ']:=0;
  t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
  t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
  t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
    t_ch_pay['<27><><EFBFBD><EFBFBD>']:=0;
    t_ch_pay['<27><><EFBFBD><EFBFBD>ƾ֤']:='';
    t_ch_pay['<27><><EFBFBD><EFBFBD>']:=0;
  t_ch_pay['<27><><EFBFBD><EFBFBD>']:=0;
  t_ch_pay['<27><><EFBFBD><EFBFBD>']:=1;

end;

procedure Tfra_fee.t_ch_payBeforeEdit(DataSet: TDataSet);
begin
  if edit_type.text='1' then begin
     if not if_open('023') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='2' then begin
    if not if_open('056') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='3' then begin
    if not if_open('074') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='4' then begin
    if not if_open('082') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end;
  if not do_data('7000',t_ch_pay.FieldByName('¼<><C2BC><EFBFBD><EFBFBD>').asstring,'','','','','') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
    abort;
  end;
  fee_befor_modify(t_ch_pay);
end;

procedure Tfra_fee.t_ch_payBeforePost(DataSet: TDataSet);
var
  aQuery:TADOQuery;
  var client:Tclient;
  function getprice(DataSet:TDataSet;ctn:string):Double;
  begin
    result:=0;
    DataSet.First;
    while not DataSet.Eof do begin
      if Trim(DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString)=ctn then begin
        if (Trim(DataSet.FieldByName(Trim(DataSet.FieldByName('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').AsString)).AsString)<>'') and (not DataSet.FieldByName(Trim(DataSet.FieldByName('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').AsString)).IsNull) then begin
          Result:=StrToFloatDef(DataSet.FieldByName(Trim(DataSet.FieldByName('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').AsString)).AsString,0);
        end;
        Exit;
      end;
      DataSet.Next;
    end;
  end;


  function GetCorpFullName(Corp:string):Tclient;
  var
    aQuery:TADOQuery;
  begin
    aQuery:=CreateAdoQuery;
    try
      with aQuery do begin
        Close;SQL.Clear;
        sql.Add('sELECT <20>ͻ<EFBFBD>ȫ<EFBFBD><C8AB>,<2C><><EFBFBD>̱<EFBFBD><CCB1><EFBFBD> from t_crm_client where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='''+Corp+'''');
        Open;
        Result.FullName:=FieldByName('<27>ͻ<EFBFBD>ȫ<EFBFBD><C8AB>').AsString;
        Result.Codename:=FieldByName('<27><><EFBFBD>̱<EFBFBD><CCB1><EFBFBD>').AsString;
      end;
    finally
      FreeAndNil(aQuery);
    end;
  end;


begin
  t_ch_pay['<27><><EFBFBD><EFBFBD>״̬']:=t_ch_pay['<27><><EFBFBD><EFBFBD>״̬'];
  t_ch_pay['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=t_ch_pay['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>'];
  t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
  if t_ch_pay['<27><><EFBFBD><EFBFBD>״̬']='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>' then
  begin
    if (t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='')or
       (t_ch_pay.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring='')or
       (t_ch_pay.fieldbyname('<27>ұ<EFBFBD>').asstring='')or
       (t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat=0)then
    begin
      showmessage('<27>Բ<EFBFBD><D4B2>𣬷<EFBFBD><F0A3ACB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>벻<EFBFBD><EBB2BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܱ<EFBFBD><DCB1>棡');
      abort;
    end;
  end;

  if t_ch_pay['ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>'] AND (t_ch_pay['<27><><EFBFBD><EFBFBD>״̬']<>'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>') AND (t_ch_pay['<27><><EFBFBD><EFBFBD>״̬']<>'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>') then begin
    aQuery:=CreateAdoQuery;
    try
      with aQuery do begin
        Close;SQL.Clear;
        SQL.Add('Select * from v_price_detail where ID='+t_ch_pay.fieldbyName('<27>˼۱<CBBC><DBB1><EFBFBD>').AsString);
        Open;
        if not IsEmpty then begin
          if (t_ch_pay['<27><><EFBFBD><EFBFBD>']<>aQuery['<27>˼<EFBFBD>']) then begin
            if t_ch_pay.fieldbyname('<27><>ע').asstring='' then begin
              showmessage('<27>Բ<EFBFBD><D4B2>𣬷<EFBFBD><F0A3ACB7><EFBFBD><EFBFBD><EFBFBD>ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>,<2C><>ע<EFBFBD><D7A2><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>,<2C><>ֹ<EFBFBD>ύ<EFBFBD><E1BDBB>');
              Abort;
            end;
          end;
        end;
      end;
    finally
      FreeAndNil(aQuery)
    end;
  end;
{
  if (t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat<>0) and (t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat<>0)then
    t_ch_pay['<27><><EFBFBD><EFBFBD>']:=s_w(strtoint(apointnum),t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
 }
   t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=nil;
  try
  t_ch_pay['<27><><EFBFBD><EFBFBD>']:=s_w(strtoint(apointnum),t_ch_pay['<27><><EFBFBD><EFBFBD>']);
  finally
//    t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=DatasetAmtcharge;
  end;


  IF not frm_data_share.t_code_currency.Locate('<27>ұ<EFBFBD>',t_ch_pay.fieldbyname('<27>ұ<EFBFBD>').asstring,[])THEN
  begin
    showmessage('<27>Բ<EFBFBD><D4B2>𣬷<EFBFBD><F0A3ACB7>ñұ<C3B1><D2B1><EFBFBD><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7>');
    abort;
   end;
   client:=GetCorpFullName(t_ch_pay.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString);
   t_ch_pay.FieldByName('<27>ͻ<EFBFBD>ȫ<EFBFBD><C8AB>').asstring:=client.FullName;
   t_ch_pay.FieldByName('<27><><EFBFBD>̱<EFBFBD><CCB1><EFBFBD>').asstring:=client.Codename;
  //table_before_post(t_ch_pay,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  if t_ch_pay.fieldbyname('<27>ұ<EFBFBD>').asstring<>'' then
  begin
    if t_ch_pay.fieldbyname('<27>ұ<EFBFBD>').asstring='USD' then begin
      if edit_type.text='1' then
        t_ch_pay['<27><><EFBFBD><EFBFBD>']:=getUsdExRate(t_ch_pay.datasource.dataset.fieldbyname('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)
      else if edit_type.text='2' then
        t_ch_pay['<27><><EFBFBD><EFBFBD>']:=getUsdExRate(t_ch_pay.datasource.dataset.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)
      else if edit_type.text='3' then
        t_ch_pay['<27><><EFBFBD><EFBFBD>']:=getUsdExRate(t_ch_pay.datasource.dataset.fieldbyname('һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)
      else if edit_type.text='4' then
        t_ch_pay['<27><><EFBFBD><EFBFBD>']:=getUsdExRate(t_ch_pay.datasource.dataset.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
    end else
      if t_ch_pay.fieldbyname('<27>ұ<EFBFBD>').asstring='RMB' then
        t_ch_pay['<27><><EFBFBD><EFBFBD>']:=1;

{
      IF not frm_data_share.t_code_currency.Locate('<27>ұ<EFBFBD>',t_ch_pay.fieldbyname('<27>ұ<EFBFBD>').asstring,[])THEN
      begin
        showmessage('<27>Բ<EFBFBD><D4B2>𣬷<EFBFBD><F0A3ACB7>ñұ<C3B1><D2B1><EFBFBD><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7>');
        abort;
      end
      else
      begin
        if not strtobool(get_parameters_value(38,'true')) then
        begin
          t_ch_pay['<27><><EFBFBD><EFBFBD>']:=frm_data_share.t_code_currency.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
        end;
      end;
}
  end;
  if frm_data_share.t_code_fee.locate('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',t_ch_pay.fieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString ,[]) then
  begin
    t_ch_pay['˳<><CBB3>']:=frm_data_share.t_code_fee.fieldbyname('˳<><CBB3>').asInteger;
  end;

end;

procedure Tfra_fee.bsSkinButton10Click(Sender: TObject);
var
  Pnt:Tpoint;
begin
  Pnt:=bsSkinButton10.ClientToScreen(Point(0,bsSkinButton10.Height));
  PopupMenu2.Popup(Pnt.x,Pnt.y);
  if Panel3.Visible then
  begin
    MenuItem8.Visible:=true;
    MenuItem9.Visible:=true;
  end
  else
  begin
    MenuItem8.Visible:=false;
    MenuItem9.Visible:=false;
  end;
end;

procedure Tfra_fee.bsSkinButton14Click(Sender: TObject);
begin
  table_post(t_ch_pay);
end;

procedure Tfra_fee.bsSkinButton15Click(Sender: TObject);
var
  i:integer;
  str_list:Tstringlist;
begin
  if t_ch_pay.isempty then
    exit;
  if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)<>IDOK then
    exit;
  if wwDBGrid2.SelectedList.Count>1 then
  begin
   try
      str_list:=Tstringlist.create;
      for i:=0 to wwDBGrid2.SelectedList.Count-1 do
      begin
        t_ch_pay.GotoBookmark(pointer(wwDBGrid2.SelectedList[i]));
        str_list.Add(t_ch_pay.fieldbyname('CH_ID').asstring);
      end;
      for i:=0 to str_list.Count-1 do
      begin
        if t_ch_pay.locate('CH_ID',str_list[i],[]) then
          t_ch_pay.Delete;
      end;
    finally
      str_list.free;
    end;
  end
  else
  begin
    t_ch_pay.delete;
  end;
  t_ch_pay.Refresh;
end;

procedure Tfra_fee.bsSkinButton16Click(Sender: TObject);
begin
  table_cancel(t_ch_pay);
end;

procedure Tfra_fee.wwDBGrid1DrawDataCell(Sender: TObject;
  const Rect: TRect; Field: TField; State: TGridDrawState);
begin
  fee_color(t_ch_accept,wwDBGrid1,Rect,Field);
end;

procedure Tfra_fee.wwDBGrid2DrawDataCell(Sender: TObject;
  const Rect: TRect; Field: TField; State: TGridDrawState);
begin
  fee_color(t_ch_pay,wwDBGrid2,Rect,Field);
end;

procedure Tfra_fee.bsSkinButton7Click(Sender: TObject);
var
  book1:Tbookmark;
begin
  book1:=t_ch_accept.GetBookmark;
  t_ch_accept.Requery;
  t_ch_accept.GotoBookmark(book1);
  if edit_type.text='1' then begin
     if not if_open('022') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='2' then begin
    if not if_open('055') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='3' then begin
    if not if_open('073') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='4' then begin
    if not if_open('081') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end;
  fee_shen_delete(edit_type.text,'<27><>',t_ch_accept,a_shen_delete);
end;

procedure Tfra_fee.bsSkinButton18Click(Sender: TObject);
var
  book1:Tbookmark;
begin
  book1:=t_ch_pay.GetBookmark;
  t_ch_pay.Requery;
  t_ch_pay.GotoBookmark(book1);

  if edit_type.text='1' then begin
     if not if_open('023') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='2' then begin
    if not if_open('056') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='3' then begin
    if not if_open('074') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='4' then begin
    if not if_open('082') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end;
  fee_shen_delete(edit_type.text,'<27><>',t_ch_pay,p_shen_delete);
end;

procedure Tfra_fee.DBEdit17Change(Sender: TObject);
begin
  if t_ch_accept.IsEmpty then
  begin
    a_bo.Visible:=false;
    a_bo.Align:=alNone;
    a_delete.Visible:=false;
    a_delete.Align:=alNone;
    a_modify_old.Visible:=false;
    a_modify_old.Align:=alNone;
    a_modify_new.Visible:=false;
    a_modify_new.Align:=alNone;
    exit;
  end;
  if t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>ύ'then
  begin
    a_delete.Visible:=false;
    a_delete.Align:=alNone;
    a_modify_old.Visible:=false;
    a_modify_old.Align:=alNone;
    a_modify_new.Visible:=false;
    a_modify_new.Align:=alNone;
    a_bo.Visible:=true;
    a_bo.Align:=alRight;
    exit;
  end;
  if t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'then
  begin
    a_bo.Visible:=false;
    a_bo.Align:=alNone;
    a_modify_old.Visible:=false;
    a_modify_old.Align:=alNone;
    a_modify_new.Visible:=false;
    a_modify_new.Align:=alNone;
    a_delete.Visible:=true;
    a_delete.Align:=alRight;
    exit;
  end;
  if t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'then
  begin
    a_bo.Visible:=false;
    a_bo.Align:=alNone;
    a_delete.Visible:=false;
    a_delete.Align:=alNone;
    a_modify_new.Visible:=true;
    a_modify_new.Align:=alRight;
    a_modify_old.Visible:=true;
    a_modify_old.Align:=alRight;
    exit;
  end;

  a_bo.Visible:=false;
  a_bo.Align:=alNone;
  a_delete.Visible:=false;
  a_delete.Align:=alNone;
  a_modify_old.Visible:=false;
  a_modify_old.Align:=alNone;
  a_modify_new.Visible:=false;
  a_modify_new.Align:=alNone;
end;

procedure Tfra_fee.DBEdit18Change(Sender: TObject);
begin
  if t_ch_pay.IsEmpty then
  begin
    p_bo.Visible:=false;
    p_bo.Align:=alNone;
    p_delete.Visible:=false;
    p_delete.Align:=alNone;
    p_modify_old.Visible:=false;
    p_modify_old.Align:=alNone;
    p_modify_new.Visible:=false;
    p_modify_new.Align:=alNone;
    exit;
  end;
  if t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>ύ'then
  begin
    p_delete.Visible:=false;
    p_delete.Align:=alNone;
    p_modify_old.Visible:=false;
    p_modify_old.Align:=alNone;
    p_modify_new.Visible:=false;
    p_modify_new.Align:=alNone;
    p_bo.Visible:=true;
    p_bo.Align:=alRight;
    exit;
  end;
  if t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'then
  begin
    p_bo.Visible:=false;
    p_bo.Align:=alNone;
    p_modify_old.Visible:=false;
    p_modify_old.Align:=alNone;
    p_modify_new.Visible:=false;
    p_modify_new.Align:=alNone;
    p_delete.Visible:=true;
    p_delete.Align:=alRight;
    exit;
  end;
  if t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'then
  begin
    p_bo.Visible:=false;
    p_bo.Align:=alNone;
    p_delete.Visible:=false;
    p_delete.Align:=alNone;
    p_modify_new.Visible:=true;
    p_modify_new.Align:=alRight;
    p_modify_old.Visible:=true;
    p_modify_old.Align:=alRight;
    exit;
  end;

  p_bo.Visible:=false;
  p_bo.Align:=alNone;
  p_delete.Visible:=false;
  p_delete.Align:=alNone;
  p_modify_old.Visible:=false;
  p_modify_old.Align:=alNone;
  p_modify_new.Visible:=false;
  p_modify_new.Align:=alNone;
end;

procedure Tfra_fee.bsSkinButton8Click(Sender: TObject);
var
  book1:Tbookmark;
  aAdoQuery :TADOQuery;
begin
  book1:=t_ch_accept.GetBookmark;
  t_ch_accept.Requery;
  t_ch_accept.GotoBookmark(book1);

  if edit_type.text='1' then begin
     if not if_open('022') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='2' then begin
    if not if_open('055') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='3' then begin
    if not if_open('073') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='4' then begin
    if not if_open('081') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end;
  try
    aAdoQuery :=CreateAdoQuery;
    frm_main.db.BeginTrans;
    modify_all:=true;
    if t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'then
    begin
      t_ch_accept.Edit;
      t_ch_accept['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
      t_ch_accept.post;
      with aAdoQuery do
      begin
        Close;SQL.Clear;
        SQL.Add('Delete from t_ch_fee_modify');
        SQL.Add('where CH_ID=:CH_ID  and <20><><EFBFBD><EFBFBD>״̬=''<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>''');
        Parameters.ParamByName('CH_ID').Value:=t_ch_accept.FieldByName('CH_ID').AsInteger;
        ExecSQL;
      end;
      //a_shen_delete.Delete;
    end;
    if t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'then
    begin
      t_ch_accept.Edit;
      t_ch_accept['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
      t_ch_accept.post;

      with aAdoQuery do
      begin
        Close;SQL.Clear;
        SQL.Add('Delete from t_ch_fee_modify');
        SQL.Add('where CH_ID=:CH_ID  and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ''  and <20><><EFBFBD><EFBFBD>״̬=''<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>''');
        Parameters.ParamByName('CH_ID').Value:=t_ch_accept.FieldByName('CH_ID').AsInteger;
        ExecSQL;
      end;

      with aAdoQuery do
      begin
        Close;SQL.Clear;
        SQL.Add('Delete from t_ch_fee_modify');
        SQL.Add('where CH_ID=:CH_ID  and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ''  and <20><><EFBFBD><EFBFBD>״̬=''<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>''');
        Parameters.ParamByName('CH_ID').Value:=t_ch_accept.FieldByName('CH_ID').AsInteger;
        ExecSQL;
      end;
      //a_shen_modify_old.Delete;
      //a_shen_modify_new.delete;
    end;
    modify_all:=false;
    frm_main.db.CommitTrans;
  finally
    FreeAndNil(aAdoQuery);
    if frm_main.db.InTransaction then
    begin
      modify_all:=false;
      frm_main.db.RollbackTrans;
      showmessage('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD>');
    end;
  end;
end;

procedure Tfra_fee.bsSkinButton13Click(Sender: TObject);
var
  book1:Tbookmark;
  aAdoQuery :TADOQuery;
begin
  book1:=t_ch_pay.GetBookmark;
  t_ch_pay.Requery;
  t_ch_pay.GotoBookmark(book1);

  if edit_type.text='1' then begin
     if not if_open('023') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='2' then begin
    if not if_open('056') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='3' then begin
    if not if_open('074') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='4' then begin
    if not if_open('082') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end;
  try
    aAdoQuery :=CreateAdoQuery;
    frm_main.db.BeginTrans;
    modify_all:=true;
    if t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'then
    begin
      t_ch_pay.Edit;
      t_ch_pay['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
      t_ch_pay.post;

      with aAdoQuery do
      begin
        Close;SQL.Clear;
        SQL.Add('Delete from t_ch_fee_modify');
        SQL.Add('where CH_ID=:CH_ID  and <20><><EFBFBD><EFBFBD>״̬=''<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>''');
        Parameters.ParamByName('CH_ID').Value:=t_ch_pay.FieldByName('CH_ID').AsInteger;
        ExecSQL;
      end;


     // p_shen_delete.Delete;
    end;
    if t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'then
    begin
      t_ch_pay.Edit;
      t_ch_pay['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
      t_ch_pay.post;
      with aAdoQuery do
      begin
        Close;SQL.Clear;
        SQL.Add('Delete from t_ch_fee_modify');
        SQL.Add('where CH_ID=:CH_ID  and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ''  and <20><><EFBFBD><EFBFBD>״̬=''<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>''');
        Parameters.ParamByName('CH_ID').Value:=t_ch_pay.FieldByName('CH_ID').AsInteger;
        ExecSQL;
      end;

      with aAdoQuery do
      begin
        Close;SQL.Clear;
        SQL.Add('Delete from t_ch_fee_modify');
        SQL.Add('where CH_ID=:CH_ID  and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ''  and <20><><EFBFBD><EFBFBD>״̬=''<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>''');
        Parameters.ParamByName('CH_ID').Value:=t_ch_pay.FieldByName('CH_ID').AsInteger;
        ExecSQL;
      end;

    //  p_shen_modify_old.Delete;
     // p_shen_modify_new.delete;
    end;
    modify_all:=false;
    frm_main.db.CommitTrans;
  finally
    FreeAndNil(aAdoQuery);
    if frm_main.db.InTransaction then
    begin
      modify_all:=false;
      frm_main.db.RollbackTrans;
      showmessage('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD>');
    end;
  end;
end;


procedure Tfra_fee.bsSkinButton6Click(Sender: TObject);
var
  book1:Tbookmark;
begin
  book1:=t_ch_accept.GetBookmark;
  t_ch_accept.Requery;
  t_ch_accept.GotoBookmark(book1);

  if edit_type.text='1' then begin
     if not if_open('022') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='2' then begin
    if not if_open('055') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='3' then begin
    if not if_open('073') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='4' then begin
    if not if_open('081') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end;
  frm_main.db.BeginTrans;
  try
    fee_shen_modify(edit_type.text,'<27><>',t_ch_accept,a_shen_modify_new,a_shen_modify_old,t_bz_client,t_bz_balance);
    frm_main.db.CommitTrans;
  except
    frm_main.db.RollbackTrans;
    MessageDlg('<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˢ<EFBFBD><CBA2><EFBFBD><EFBFBD><EFBFBD>ݺ<EFBFBD><DDBA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',mtWarning,[mbOK],0);
  end;

end;

procedure Tfra_fee.bsSkinButton17Click(Sender: TObject);
var
  book1:Tbookmark;
begin
  book1:=t_ch_pay.GetBookmark;
  t_ch_pay.Requery;
  t_ch_pay.GotoBookmark(book1);

  if edit_type.text='1' then begin
     if not if_open('023') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='2' then begin
    if not if_open('056') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='3' then begin
    if not if_open('074') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='4' then begin
    if not if_open('082') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end;
  frm_main.db.BeginTrans;
  try
    fee_shen_modify(edit_type.text,'<27><>',t_ch_pay,p_shen_modify_new,p_shen_modify_old,t_bz_client,t_bz_balance);
    frm_main.db.CommitTrans;
  except
    frm_main.db.RollbackTrans;
    MessageDlg('<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˢ<EFBFBD><CBA2><EFBFBD><EFBFBD><EFBFBD>ݺ<EFBFBD><DDBA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',mtWarning,[mbOK],0);
  end;

end;

procedure Tfra_fee.N2Click(Sender: TObject);
begin
  t_ch_accept.Append;
end;

procedure Tfra_fee.N7Click(Sender: TObject);
var
  afield : variant;
  i: Integer;
begin
  if t_ch_accept.IsEmpty then
    exit;
  afield := vararraycreate([0,t_ch_accept.fieldcount-1],varvariant);
  for i := 0 to (t_ch_accept.fieldcount-1) do
  begin
    afield[i] :=t_ch_accept.fields[i].value ;
  end;
  t_ch_accept.append;
  for i := 1 to (t_ch_accept.fieldcount-1) do
  begin
    if t_ch_accept.fields[i].FieldName<>'CH_ID' then
      t_ch_accept.fields[i].value := afield[i] ;
  end;
  t_ch_accept['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
  t_ch_accept['<27><><EFBFBD><EFBFBD>ԭ<EFBFBD><D4AD>']:=null;
  t_ch_accept['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
  t_ch_accept['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=0;
  t_ch_accept['<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>']:=0;
  t_ch_accept['<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>']:=null;
  t_ch_accept['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
  t_ch_accept['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
  t_ch_accept['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
  t_ch_accept['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
  t_ch_accept['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
  t_ch_accept['<27><><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD>']:='';

  t_ch_accept['˳<><CBB3>']:=t_ch_accept.RecordCount+1;
  t_ch_accept['<27><><EFBFBD><EFBFBD>']:=0;
  t_ch_accept['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
  t_ch_accept['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
  t_ch_accept['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
    t_ch_accept['<27><><EFBFBD><EFBFBD>']:=0;
    t_ch_accept['<27><><EFBFBD><EFBFBD>ƾ֤']:='';
end;

procedure Tfra_fee.MenuItem1Click(Sender: TObject);
var
  aQuery,aQuery2:TADOQuery;
  Cntrstr:String;
begin
  if edit_type.text='1' then begin
   aQuery:=CreateAdoQuery;
   aQuery2:=CreateAdoQuery;
   try

     with aQuery do begin
       Close;SQL.Clear;
       SQL.Add('Select * from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_ch_pay.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').asString+'''');
       Open;
       if not IsEmpty then begin
         while not eof do begin
           cntrstr:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').AsString;
           CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
           aQuery2.Close;
           aQuery2.SQL.clear;
           aQuery2.sql.add('select * from t_ch_fee where ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>=1 and  <20><><EFBFBD><EFBFBD>='''+t_ch_pay.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').asString+'''');
           aQuery2.Open;
           if aQuery2.IsEmpty then begin
             aQuery2.Close;
             aQuery2.SQL.clear;
             aQuery2.sql.add('select * from v_price_detail ');
             aQuery2.sql.add(' WHERE Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>='''+t_ch_pay.DataSource.DataSet.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
             aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_ch_pay.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
             aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='+formatDatetime('yyyy',t_ch_pay.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']));
             aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_ch_pay.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
             if t_ch_pay.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString<>'' then
                aQuery2.sql.add(' and Ʒ<><C6B7>='''+Trim(t_ch_pay.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)+'''');
             aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_ch_pay.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
             aQuery2.sql.add(' and <20><>'+getZweek(DayOfWeek(t_ch_pay.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime))+'=1');
             aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='''+CntrStr+'''');
             aQuery2.Open;

             if aQuery2.IsEmpty then begin
               aQuery2.Close;
               aQuery2.SQL.clear;
               aQuery2.sql.add('select * from v_price_detail ');
               aQuery2.sql.add(' WHERE Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>='''+t_ch_pay.DataSource.DataSet.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
               aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_ch_pay.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
               aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='+formatDatetime('yyyy',t_ch_pay.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']));
               aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_ch_pay.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
               if t_ch_pay.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString<>'' then
                  aQuery2.sql.add(' and Ʒ<><C6B7>='''+Trim(t_ch_pay.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)+'''');
               aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_ch_pay.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
               aQuery2.sql.add(' and <20><>һ=0 and <20>ܶ<EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 ');
               aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='''+CntrStr+'''');
               aQuery2.Open;
             end;
             if aQuery2.IsEmpty then begin
               aQuery2.Close;
               aQuery2.SQL.clear;
               aQuery2.sql.add('select * from v_price_detail ');
               aQuery2.sql.add(' WHERE Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>='''+t_ch_pay.DataSource.DataSet.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
               aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_ch_pay.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
               aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='+formatDatetime('yyyy',t_ch_pay.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']));
               aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_ch_pay.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
               aQuery2.sql.add(' and (Ʒ<><C6B7>='''' or Ʒ<><C6B7> is null)');
               aQuery2.sql.add(' and <20><>'+getZweek(DayOfWeek(t_ch_pay.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime))+'=1');
               aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='''+CntrStr+'''');
               aQuery2.Open;
             end;
             if aQuery2.IsEmpty then begin
               aQuery2.Close;
               aQuery2.SQL.clear;
               aQuery2.sql.add('select * from v_price_detail ');
               aQuery2.sql.add(' WHERE Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>='''+t_ch_pay.DataSource.DataSet.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
               aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_ch_pay.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
               aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='+formatDatetime('yyyy',t_ch_pay.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']));
               aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_ch_pay.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
               aQuery2.sql.add(' and (Ʒ<><C6B7>='''' or Ʒ<><C6B7> is null)');
               aQuery2.sql.add(' and <20><>һ=0 and <20>ܶ<EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 ');
               aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='''+CntrStr+'''');
               aQuery2.Open;
             end;

             if not aQuery2.IsEmpty then begin
               if aQuery2['<27>˼<EFBFBD>']>0 then begin
                 t_ch_pay.Append;
                 t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD>˷<EFBFBD>';
                 if (t_ch_pay.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾']<>'') and (not t_ch_pay.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾').isnull) then
                   t_ch_pay['<27><><EFBFBD>㵥λ']:='<27><><EFBFBD><EFBFBD>'
                 else
                   t_ch_pay['<27><><EFBFBD>㵥λ']:='<27><><EFBFBD><EFBFBD>˾';

                 t_ch_pay['<27>ұ<EFBFBD>']:='USD';
                 t_ch_pay['<27><><EFBFBD><EFBFBD>']:=getUsdExRate(t_ch_pay.DataSource.DataSet.fieldbyname('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
                 if (t_ch_pay.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾']<>'') and (not t_ch_pay.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾').isnull) then
                   t_ch_pay['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_pay.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾']
                 else
                   t_ch_pay['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_pay.DataSource.DataSet['<27><><EFBFBD><EFBFBD>˾'];

                 t_ch_pay['<27><>׼']:=aQuery['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ'];
                 t_ch_pay['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
                 t_ch_pay['<27><><EFBFBD><EFBFBD>']:=aQuery2['<27>˼<EFBFBD>'];
                 t_ch_pay['ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>']:=1;
                 t_ch_pay['˳<><CBB3>']:=1;
                 t_ch_pay['<27>˼۱<CBBC><DBB1><EFBFBD>']:=aQuery2['ID'];
                 t_ch_pay.post;
               end;
               if aQuery2['<27>˼<EFBFBD>']=0 then begin
                 t_ch_pay.Append;
                 t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD>˷<EFBFBD>';
                 if (t_ch_pay.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾']<>'') and (not t_ch_pay.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾').isnull) then
                   t_ch_pay['<27><><EFBFBD>㵥λ']:='<27><><EFBFBD><EFBFBD>'
                 else
                   t_ch_pay['<27><><EFBFBD>㵥λ']:='<27><><EFBFBD><EFBFBD>˾';

                 t_ch_pay['<27>ұ<EFBFBD>']:='USD';
                 t_ch_pay['<27><><EFBFBD><EFBFBD>']:=getUsdExRate(t_ch_pay.DataSource.DataSet.fieldbyname('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
                 if (t_ch_pay.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾']<>'') and (not t_ch_pay.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾').isnull) then
                   t_ch_pay['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_pay.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾']
                 else
                   t_ch_pay['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_pay.DataSource.DataSet['<27><><EFBFBD><EFBFBD>˾'];
                 t_ch_pay['<27><>׼']:=aQuery['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ'];
                 t_ch_pay['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
                 t_ch_pay['<27><><EFBFBD><EFBFBD>']:=0;
                 t_ch_pay['<27><>ע']:='<27><><EFBFBD><EFBFBD><EFBFBD>˼<EFBFBD>,<2C>˼<EFBFBD><CBBC><EFBFBD>δ<EFBFBD><CEB4><EFBFBD><EFBFBD>';
                 t_ch_pay['ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>']:=1;
                 t_ch_pay['˳<><CBB3>']:=1;
                 t_ch_pay['<27>˼۱<CBBC><DBB1><EFBFBD>']:=aQuery2['ID'];
                 t_ch_pay.post;
               end;

             end;
           end;
           Next;
         end;
       end;

     end;
   finally
     FreeAndNil(aQuery);
     FreeAndNil(aQuery2);
   end;
  end;

  t_ch_pay.Append;
end;

procedure Tfra_fee.MenuItem7Click(Sender: TObject);
var
  afield : variant;
  i: Integer;
begin
  if t_ch_pay.IsEmpty then
    exit;
  afield := vararraycreate([0,t_ch_pay.fieldcount-1],varvariant);
  for i := 0 to (t_ch_pay.fieldcount-1) do
  begin
    afield[i] :=t_ch_pay.fields[i].value ;
  end;
  t_ch_pay.append;
  for i := 1 to (t_ch_pay.fieldcount-1) do
  begin
    if t_ch_pay.fields[i].FieldName<>'CH_ID' then
      t_ch_pay.fields[i].value := afield[i] ;
  end;
  t_ch_pay['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
  t_ch_pay['<27><><EFBFBD><EFBFBD>ԭ<EFBFBD><D4AD>']:=null;
  t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
  t_ch_pay['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=0;
  t_ch_pay['<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>']:=0;
  t_ch_pay['<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>']:=null;
  t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
  t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
  t_ch_pay['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
  t_ch_pay['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
  t_ch_pay['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
  t_ch_pay['<27><><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD>']:='';
  t_ch_pay['˳<><CBB3>']:=t_ch_pay.RecordCount+1;
  t_ch_pay['<27><><EFBFBD><EFBFBD>']:=0;
  t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
    t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
   t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
  t_ch_pay['<27><><EFBFBD><EFBFBD>']:=0;
  t_ch_pay['<27><><EFBFBD><EFBFBD>ƾ֤']:='';

end;

procedure Tfra_fee.wwDBGrid1ColExit(Sender: TObject);
begin
  {
  if (wwDBGrid1.GetActiveCol=7)or(wwDBGrid1.GetActiveCol=6)or(wwDBGrid1.GetActiveCol=8)then
  begin
    if (t_ch_accept.state=dsedit)or(t_ch_accept.state=dsinsert)then
    begin
      if (t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat<>0) and (t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat<>0)then
        t_ch_accept['<27><><EFBFBD><EFBFBD>']:=s_w(strtoint(apointnum),t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
    end;
  end;
  }
end;

procedure Tfra_fee.wwDBGrid2ColExit(Sender: TObject);
begin
  {
  if (wwDBGrid2.GetActiveCol=7)or(wwDBGrid2.GetActiveCol=6)or(wwDBGrid2.GetActiveCol=8)then
  begin
    if (t_ch_pay.state=dsedit)or(t_ch_pay.state=dsinsert)then
    begin
      if (t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat<>0) and (t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat<>0)then
        t_ch_pay['<27><><EFBFBD><EFBFBD>']:=s_w(strtoint(apointnum),t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
    end;
  end;
  }
end;

procedure Tfra_fee.bsSkinButton9Click(Sender: TObject);
var
  Pnt:Tpoint;
begin
  N10.Visible:=true;
  N104.Visible:=true;
  N105.Visible:=true;
  N11.Visible:=true;
  N12.Visible:=true;
  if (t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>')
  or (t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>') then
  begin
    N19.Visible:=true;
    N20.Visible:=true;
  end
  else
  begin
    N19.Visible:=false;
    N20.Visible:=false;
  end;

  N13.Visible:=false;
  N14.Visible:=false;
  N106.Visible:=false;
  N107.Visible:=false;
  N15.Visible:=false;
  N16.Visible:=false;
  N24.Visible:=false;
  N25.Visible:=false;
  
  if Panel2.Visible then
  begin
    N17.Visible:=true;
    N18.Visible:=true;
  end
  else
  begin
    N17.Visible:=false;
    N18.Visible:=false;
  end;
  Pnt:=bsSkinButton9.ClientToScreen(Point(0,bsSkinButton9.Height));
  PopupMenu3.Popup(Pnt.x,Pnt.y);
end;

procedure Tfra_fee.bsSkinButton5Click(Sender: TObject);
var
  Pnt:Tpoint;
begin
  N10.Visible:=false;
  N104.Visible:=false;
  N105.Visible:=false;
  N11.Visible:=false;
  N12.Visible:=false;
  N19.Visible:=false;
  N20.Visible:=false;

  N13.Visible:=false;
  N14.Visible:=true;
  N106.Visible:=true;
  N107.Visible:=true;
  N15.Visible:=true;
  N16.Visible:=true;
  if (t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>')
  or (t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>') then
  begin
    N24.Visible:=true;
    N25.Visible:=true;
  end
  else
  begin
    N24.Visible:=false;
    N25.Visible:=false;
  end;
  
  if Panel2.Visible then
  begin
    N17.Visible:=true;
    N18.Visible:=true;
  end
  else
  begin
    N17.Visible:=false;
    N18.Visible:=false;
  end;
  Pnt:=bsSkinButton5.ClientToScreen(Point(0,bsSkinButton5.Height));
  PopupMenu3.Popup(Pnt.x,Pnt.y);
end;

procedure Tfra_fee.N29Click(Sender: TObject);
begin
  sys_print(edit_report.text+'Ӧ<>շ<EFBFBD><D5B7><EFBFBD>',1,t_ch_accept.DataSource,t_op_gain1,nil,nil,t_ch_accept1,nil,nil,nil,nil,nil,nil);
end;

procedure Tfra_fee.N31Click(Sender: TObject);
begin
  sys_print(edit_report.text+'Ӧ<>շ<EFBFBD><D5B7><EFBFBD>',2,t_ch_accept.DataSource,t_op_gain1,nil,nil,t_ch_accept1,nil,nil,nil,nil,nil,nil);
end;

procedure Tfra_fee.N41Click(Sender: TObject);
begin
  sys_print(edit_report.text+'Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',1,t_ch_pay.DataSource,t_op_gain1,nil,nil,t_ch_pay1,nil,nil,nil,nil,nil,nil);
end;

procedure Tfra_fee.N43Click(Sender: TObject);
begin
  sys_print(edit_report.text+'Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',2,t_ch_pay.DataSource,t_op_gain1,nil,nil,t_ch_pay1,nil,nil,nil,nil,nil,nil);
end;

procedure Tfra_fee.N53Click(Sender: TObject);
var
  book1:Tbookmark;
    dsstr,PostUrl,str:string;
begin
  if not strtobool(get_parameters_value(39,'true'))then
  begin
    if t_ch_accept.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
    begin
      showmessage('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ʣ<EFBFBD><CAA3><EFBFBD><EFBFBD>ܴ<EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>');
      exit;
    end;
  end;
  
  if strtobool(get_parameters_value(2,'false'))then
  begin
    try
      book1:=t_ch_accept.GetBookmark;
      t_ch_accept.DisableControls;
      t_ch_accept.first;
      while not t_ch_accept.eof do
      begin
        if (t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='¼<><C2BC>״̬')
        or(t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>ύ')
        or(t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>')
        or(t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>')
        or(t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>') then
        begin
          showmessage('<27><><EFBFBD>ñ<EFBFBD><C3B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD>󷽿<EFBFBD><F3B7BDBF>Դ<EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD>󵥣<EFBFBD><F3B5A5A3><EFBFBD>');
          t_ch_accept.GotoBookmark(book1);
          t_ch_accept.EnableControls;
          exit;
        end;
        t_ch_accept.next;
      end;
    finally
      t_ch_accept.GotoBookmark(book1);
      t_ch_accept.EnableControls;
    end;

    try
      book1:=t_ch_pay.GetBookmark;
      t_ch_pay.DisableControls;
      t_ch_pay.first;
      while not t_ch_pay.eof do
      begin
        if (t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='¼<><C2BC>״̬')
        or(t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>')
        or(t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>ύ')
        or(t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>')
        or(t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>') then
        begin
          showmessage('<27><><EFBFBD>ñ<EFBFBD><C3B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD>󷽿<EFBFBD><F3B7BDBF>Դ<EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD>󵥣<EFBFBD><F3B5A5A3><EFBFBD>');
          t_ch_pay.GotoBookmark(book1);
          t_ch_pay.EnableControls;
          exit;
        end;
        t_ch_pay.next;
      end;
    finally
      t_ch_pay.GotoBookmark(book1);
      t_ch_pay.EnableControls;
    end; 
  end;

  if strtobool(get_parameters_value(63,'false'))then
  begin
    if t_ch_accept.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
    begin
      t_ch_accept.DataSource.DataSet.edit;
      t_ch_accept.DataSource.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
      t_ch_accept.DataSource.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
      t_ch_accept.DataSource.DataSet.post;
     dsstr:=dsstr+'{';
    dsstr:=dsstr+'"bookingId":'+ t_ch_accept.DataSource.DataSet.FieldByName('DJYID').asstring;
    dsstr:=dsstr+',"lockStatus":true';
   dsstr:=dsstr+'}';
      str:=str+'[';
      str:=str+dsstr;
      str:=str+']';
     PostUrl:='http://47.104.85.216:12345/DataSync/SaveBookingOrderLock';
    TDsDjyThread.create(PostUrl,str,'','1bccf850845542f89057007e51f78f13','2af5ed1f0cc124bcfc4ba05e4a24eac77f2f582c25737477633a1c0303ac3b8ed647e810880dac58');
    InsertSysLog('<27>ϴ<EFBFBD><CFB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><C6B7><EFBFBD>',t_ch_accept.DataSource.DataSet.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
    end;
  end;

  if ((edit_type.text='1')OR(edit_type.text='2'))and strtobool(get_parameters_value(30,'false')) then
  begin
    t_ch_fee_truck.close;
    t_ch_fee_truck.Parameters[0].value:=t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
    t_ch_fee_truck.open;
    sys_print(edit_report.text+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',1,t_ch_accept.DataSource,t_op_gain1,nil,nil,t_ch_accept1,t_ch_pay1,t_ch_fee_truck1,nil,nil,nil,nil);
  end
  else
    sys_print(edit_report.text+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',1,t_ch_accept.DataSource,t_op_gain1,nil,nil,t_ch_accept1,t_ch_pay1,nil,nil,nil,nil,nil);
end;

procedure Tfra_fee.N55Click(Sender: TObject);
var
  book1:Tbookmark;
    dsstr,PostUrl,str:string;  
begin
  if not strtobool(get_parameters_value(39,'true'))then
  begin
    if t_ch_accept.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
    begin
      showmessage('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ʣ<EFBFBD><CAA3><EFBFBD><EFBFBD>ܴ<EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>');
      exit;
    end;
  end;

  if strtobool(get_parameters_value(2,'false'))then
  begin
    try
      book1:=t_ch_accept.GetBookmark;
      t_ch_accept.DisableControls;
      t_ch_accept.first;
      while not t_ch_accept.eof do
      begin
        if (t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='¼<><C2BC>״̬')
        or(t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>')
        or(t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>ύ')
        or(t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>')
        or(t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>') then
        begin
          showmessage('<27><><EFBFBD>ñ<EFBFBD><C3B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD>󷽿<EFBFBD><F3B7BDBF>Դ<EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD>󵥣<EFBFBD><F3B5A5A3><EFBFBD>');
          t_ch_accept.GotoBookmark(book1);
          t_ch_accept.EnableControls;
          exit;
        end;
        t_ch_accept.next;
      end;
    finally
      t_ch_accept.GotoBookmark(book1);
      t_ch_accept.EnableControls;
    end;

    try
      book1:=t_ch_pay.GetBookmark;
      t_ch_pay.DisableControls;
      t_ch_pay.first;
      while not t_ch_pay.eof do
      begin
        if (t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='¼<><C2BC>״̬')
        or(t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>')
        or(t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>')
        or(t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>ύ')
        or(t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>') then
        begin
          showmessage('<27><><EFBFBD>ñ<EFBFBD><C3B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD>󷽿<EFBFBD><F3B7BDBF>Դ<EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD>󵥣<EFBFBD><F3B5A5A3><EFBFBD>');
          t_ch_pay.GotoBookmark(book1);
          t_ch_pay.EnableControls;
          exit;
        end;
        t_ch_pay.next;
      end;
    finally
      t_ch_pay.GotoBookmark(book1);
      t_ch_pay.EnableControls;
    end;
  end;
  if strtobool(get_parameters_value(63,'false'))then
  begin
    if t_ch_accept.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
    begin
      t_ch_accept.DataSource.DataSet.edit;
      t_ch_accept.DataSource.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
      t_ch_accept.DataSource.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;      
      t_ch_accept.DataSource.DataSet.post;
     dsstr:=dsstr+'{';
    dsstr:=dsstr+'"bookingId":'+ t_ch_accept.DataSource.DataSet.FieldByName('DJYID').asstring;
    dsstr:=dsstr+',"lockStatus":true';
   dsstr:=dsstr+'}';
      str:=str+'[';
      str:=str+dsstr;
      str:=str+']';
     PostUrl:='http://47.104.85.216:12345/DataSync/SaveBookingOrderLock';
    TDsDjyThread.create(PostUrl,str,'','1bccf850845542f89057007e51f78f13','2af5ed1f0cc124bcfc4ba05e4a24eac77f2f582c25737477633a1c0303ac3b8ed647e810880dac58');
    InsertSysLog('<27>ϴ<EFBFBD><CFB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><C6B7><EFBFBD>',t_ch_accept.DataSource.DataSet.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);


    end;
  end;
  if ((edit_type.text='1')OR(edit_type.text='2'))and strtobool(get_parameters_value(30,'false')) then
  begin
    t_ch_fee_truck.close;
    t_ch_fee_truck.Parameters[0].value:=t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
    t_ch_fee_truck.open;
    sys_print(edit_report.text+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',2,t_ch_accept.DataSource,t_op_gain1,nil,nil,t_ch_accept1,t_ch_pay1,t_ch_fee_truck1,nil,nil,nil,nil);
  end
  else
    sys_print(edit_report.text+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',2,t_ch_accept.DataSource,t_op_gain1,nil,nil,t_ch_accept1,t_ch_pay1,nil,nil,nil,nil,nil);
end;

procedure Tfra_fee.N35Click(Sender: TObject);
begin
  if t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>' then
  begin
    showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
    exit;
  end;
  sys_print(edit_report.text+'Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>',1,t_ch_accept.DataSource,a_shen_delete1,nil,nil,nil,nil,nil,nil,nil,nil,nil);
end;

procedure Tfra_fee.N37Click(Sender: TObject);
begin
  if t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>' then
  begin
    showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
    exit;
  end;
  sys_print(edit_report.text+'Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>',2,t_ch_accept.DataSource,a_shen_delete1,nil,nil,nil,nil,nil,nil,nil,nil,nil);
end;

procedure Tfra_fee.N47Click(Sender: TObject);
begin
  if t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>' then
  begin
    showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
    exit;
  end;
  sys_print(edit_report.text+'Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>',1,t_ch_pay.DataSource,p_shen_delete1,nil,nil,nil,nil,nil,nil,nil,nil,nil);
end;

procedure Tfra_fee.N49Click(Sender: TObject);
begin
  if t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>' then
  begin
    showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
    exit;
  end;
  sys_print(edit_report.text+'Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>',2,t_ch_pay.DataSource,p_shen_delete1,nil,nil,nil,nil,nil,nil,nil,nil,nil);
end;

procedure Tfra_fee.N38Click(Sender: TObject);
begin
  if t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>' then
  begin
    showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸ģ<DEB8><C4A3><EFBFBD>');
    exit;
  end;
  sys_print(edit_report.text+'Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>',1,t_ch_accept.DataSource,a_shen_modify_old1,a_shen_modify_new1,nil,nil,nil,nil,nil,nil,nil,nil);
end;

procedure Tfra_fee.N40Click(Sender: TObject);
begin
  if t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>' then
  begin
    showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸ģ<DEB8><C4A3><EFBFBD>');
    exit;
  end;
  sys_print(edit_report.text+'Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>',2,t_ch_accept.DataSource,a_shen_modify_old1,a_shen_modify_new1,nil,nil,nil,nil,nil,nil,nil,nil);
end;

procedure Tfra_fee.N50Click(Sender: TObject);
begin
  if t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>' then
  begin
    showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸ģ<DEB8><C4A3><EFBFBD>');
    exit;
  end;
  sys_print(edit_report.text+'Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>',1,t_ch_pay.DataSource,p_shen_modify_old1,p_shen_modify_new1,nil,nil,nil,nil,nil,nil,nil,nil);
end;

procedure Tfra_fee.N52Click(Sender: TObject);
begin
  if t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>' then
  begin
    showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸ģ<DEB8><C4A3><EFBFBD>');
    exit;
  end;
  sys_print(edit_report.text+'Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>',2,t_ch_pay.DataSource,p_shen_modify_old1,p_shen_modify_new1,nil,nil,nil,nil,nil,nil,nil,nil);
end;

procedure Tfra_fee.N32Click(Sender: TObject);
begin
  if t_ch_accept.IsEmpty then
    exit;
  t_ch_client.close;
  t_ch_client.sql.clear;
  t_ch_client.sql.add('select * from t_ch_fee '
    +'where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>=:<3A>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>'
    +' order by ˳<><CBB3>,<2C>ұ<EFBFBD>,CH_ID');
  t_ch_client.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:=t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').value;
  t_ch_client.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').value:=t_ch_accept.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').value;
  t_ch_client.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='<27><>';
  t_ch_client.open;

  t_ch_client_sum.close;
  t_ch_client_sum.sql.clear;
  t_ch_client_sum.sql.add('select isnull(SUM(CASE <20>ұ<EFBFBD> WHEN '+''''+'USD'+''''
    +' THEN ISNULL(<28><><EFBFBD><EFBFBD>,0) ELSE 0 END) ,0) AS <20>ϼ<EFBFBD>USD,'
    +'isnull(SUM(CASE <20>ұ<EFBFBD> WHEN '+''''+'USD'+''''
    +' THEN 0 ELSE ISNULL(<28><><EFBFBD><EFBFBD>,0)*ISNULL(<28><><EFBFBD><EFBFBD>,0) END) ,0) AS <20>ϼ<EFBFBD>RMB FROM t_ch_fee '
    +'where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>=:<3A>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
  t_ch_client_sum.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:=t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').value;
  t_ch_client_sum.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').value:=t_ch_accept.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').value;
  t_ch_client_sum.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='<27><>';
  t_ch_client_sum.open;
  sys_print(edit_report.text+'Ӧ<>տͻ<D5BF><CDBB><EFBFBD><EFBFBD><EFBFBD>',1,t_ch_accept.DataSource,t_ch_client_sum1,nil,nil,t_ch_client1,nil,nil,nil,nil,nil,nil);
end;

procedure Tfra_fee.N34Click(Sender: TObject);
begin
  if t_ch_accept.IsEmpty then
    exit;
  t_ch_client.close;
  t_ch_client.sql.clear;
  t_ch_client.sql.add('select * from t_ch_fee '
    +'where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>=:<3A>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>'
    +' order by ˳<><CBB3>,<2C>ұ<EFBFBD>,CH_ID');
  t_ch_client.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:=t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').value;
  t_ch_client.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').value:=t_ch_accept.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').value;
  t_ch_client.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='<27><>';
  t_ch_client.open;

  t_ch_client_sum.close;
  t_ch_client_sum.sql.clear;
  t_ch_client_sum.sql.add('select isnull(SUM(CASE <20>ұ<EFBFBD> WHEN '+''''+'USD'+''''
    +' THEN ISNULL(<28><><EFBFBD><EFBFBD>,0) ELSE 0 END) ,0) AS <20>ϼ<EFBFBD>USD,'
    +'isnull(SUM(CASE <20>ұ<EFBFBD> WHEN '+''''+'USD'+''''
    +' THEN 0 ELSE ISNULL(<28><><EFBFBD><EFBFBD>,0)*ISNULL(<28><><EFBFBD><EFBFBD>,0) END) ,0) AS <20>ϼ<EFBFBD>RMB FROM t_ch_fee '
    +'where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>=:<3A>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
  t_ch_client_sum.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:=t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').value;
  t_ch_client_sum.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').value:=t_ch_accept.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').value;
  t_ch_client_sum.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='<27><>';
  t_ch_client_sum.open;
  sys_print(edit_report.text+'Ӧ<>տͻ<D5BF><CDBB><EFBFBD><EFBFBD><EFBFBD>',2,t_ch_accept.DataSource,t_ch_client_sum1,nil,nil,t_ch_client1,nil,nil,nil,nil,nil,nil);
end;

procedure Tfra_fee.N44Click(Sender: TObject);
var
  yjstr:string;
begin
  if t_ch_pay.IsEmpty then
    exit;

    yjstr:=getyjstr;
    if (yjstr='') then yjstr:=' 1=1 ';
  t_ch_client.close;
  t_ch_client.sql.clear;
  t_ch_client.sql.add('select * from t_ch_fee '
    +'where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>=:<3A>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and '+yjstr
    +' order by <20>ұ<EFBFBD>,CH_ID');
  t_ch_client.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:=t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').value;
  t_ch_client.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').value:=t_ch_pay.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').value;
  t_ch_client.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='<27><>';
  t_ch_client.open;

  t_ch_client_sum.close;
  t_ch_client_sum.sql.clear;
  t_ch_client_sum.sql.add('select isnull(SUM(CASE <20>ұ<EFBFBD> WHEN '+''''+'USD'+''''
    +' THEN ISNULL(<28><><EFBFBD><EFBFBD>,0) ELSE 0 END) ,0) AS <20>ϼ<EFBFBD>USD,'
    +'isnull(SUM(CASE <20>ұ<EFBFBD> WHEN '+''''+'USD'+''''
    +' THEN 0 ELSE ISNULL(<28><><EFBFBD><EFBFBD>,0)*ISNULL(<28><><EFBFBD><EFBFBD>,0) END) ,0) AS <20>ϼ<EFBFBD>RMB FROM t_ch_fee '
    +'where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>=:<3A>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and '+yjstr);
  t_ch_client_sum.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:=t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').value;
  t_ch_client_sum.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').value:=t_ch_pay.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').value;
  t_ch_client_sum.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='<27><>';
  t_ch_client_sum.open;
  sys_print(edit_report.text+'Ӧ<><D3A6><EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',1,t_ch_pay.DataSource,t_ch_client_sum1,nil,nil,t_ch_client1,nil,nil,nil,nil,nil,nil);
end;

procedure Tfra_fee.N46Click(Sender: TObject);
begin
  if t_ch_pay.IsEmpty then
    exit;
  t_ch_client.close;
  t_ch_client.sql.clear;
  t_ch_client.sql.add('select * from t_ch_fee '
    +'where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>=:<3A>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>'
    +' order by <20>ұ<EFBFBD>,CH_ID');
  t_ch_client.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:=t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').value;
  t_ch_client.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').value:=t_ch_pay.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').value;
  t_ch_client.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='<27><>';
  t_ch_client.open;

  t_ch_client_sum.close;
  t_ch_client_sum.sql.clear;
  t_ch_client_sum.sql.add('select isnull(SUM(CASE <20>ұ<EFBFBD> WHEN '+''''+'USD'+''''
    +' THEN ISNULL(<28><><EFBFBD><EFBFBD>,0) ELSE 0 END) ,0) AS <20>ϼ<EFBFBD>USD,'
    +'isnull(SUM(CASE <20>ұ<EFBFBD> WHEN '+''''+'USD'+''''
    +' THEN 0 ELSE ISNULL(<28><><EFBFBD><EFBFBD>,0)*ISNULL(<28><><EFBFBD><EFBFBD>,0) END) ,0) AS <20>ϼ<EFBFBD>RMB FROM t_ch_fee '
    +'where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>=:<3A>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
  t_ch_client_sum.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:=t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').value;
  t_ch_client_sum.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').value:=t_ch_pay.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').value;
  t_ch_client_sum.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='<27><>';
  t_ch_client_sum.open;
  sys_print(edit_report.text+'Ӧ<><D3A6><EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',2,t_ch_pay.DataSource,t_ch_client_sum1,nil,nil,t_ch_client1,nil,nil,nil,nil,nil,nil);
end;

procedure Tfra_fee.t_ch_acceptAfterPost(DataSet: TDataSet);
begin
  if t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'then
  begin
    if Panel8.Visible then
      t_op_gain.Requery();
    if Panel9.Visible then
      t_op_gain_main.Requery();
  end;
    getsumstr;

end;

procedure Tfra_fee.t_ch_acceptBeforeInsert(DataSet: TDataSet);
begin
  if edit_type.text='1' then begin
     if not if_open('022') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='2' then begin
    if not if_open('055') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='3' then begin
    if not if_open('073') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='4' then begin
    if not if_open('081') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end;
  if t_ch_accept.DataSource.DataSet.State=dsinsert then
    t_ch_accept.DataSource.DataSet.post;
  if t_ch_accept.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'then
  begin
    if (not t_ch_accept.DataSource.DataSet.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD>ý<EFBFBD><C3BD><EFBFBD>').AsBoolean) then begin
      showmessage('<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ʣ<EFBFBD><CAA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӷ<EFBFBD><D3B7>ã<EFBFBD><C3A3><EFBFBD>');
      abort;
    end;
  end;
  if copy(t_ch_accept.DataSource.DataSet.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,1,1)='A'then
  begin
    if not do_data(edit_data.text,t_ch_accept.DataSource.DataSet.fieldbyname('¼<><C2BC><EFBFBD><EFBFBD>').asstring
                 ,t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').asstring
                 ,t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
                 ,t_ch_accept.DataSource.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').asstring,'','') then
    begin
      showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD>ӷ<EFBFBD><D3B7>ã<EFBFBD><C3A3><EFBFBD>');
      abort;
    end;
  end
  else
  begin
    if not do_data(edit_data.text,t_ch_accept.DataSource.DataSet.fieldbyname('¼<><C2BC><EFBFBD><EFBFBD>').asstring
                 ,t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').asstring
                 ,t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
                 ,t_ch_accept.DataSource.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').asstring
                 ,t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>').asstring
                 ,t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring) then
    begin
      showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD>ӷ<EFBFBD><D3B7>ã<EFBFBD><C3A3><EFBFBD>');
      abort;
    end;
  end;
{
  if edit_type.text='1'then
  begin
    if strtobool(get_parameters_value(28,'false'))then
    begin
      if not t_ch_accept.DataSource.DataSet.fieldbyname('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').asboolean then
      begin
        if copy(t_ch_accept.DataSource.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').AsString,1,4)<>'ƴ<><C6B4>'then
        begin
          if (date-t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime)>strtoint(get_parameters_value(29,'3')) then
          begin
            showmessage('ҵ<><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD>õ<EFBFBD><C3B5><EFBFBD><EFBFBD>ޣ<EFBFBD><DEA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD>ã<EFBFBD><C3A3><EFBFBD>');
            abort;
          end;
        end
        else
        begin
          if (date-t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime)>strtoint(get_parameters_value(37,'3')) then
          begin
            showmessage('ҵ<><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD>õ<EFBFBD><C3B5><EFBFBD><EFBFBD>ޣ<EFBFBD><DEA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD>ã<EFBFBD><C3A3><EFBFBD>');
            abort;
          end;
        end;
      end;
    end;
  end;
  }
end;

procedure Tfra_fee.t_ch_payBeforeInsert(DataSet: TDataSet);
begin
  if edit_type.text='1' then begin
     if not if_open('023') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='2' then begin
    if not if_open('056') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='3' then begin
    if not if_open('074') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='4' then begin
    if not if_open('082') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end;
  if t_ch_pay.DataSource.DataSet.State=dsinsert then
    t_ch_pay.DataSource.DataSet.post;
  if t_ch_pay.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'then
  begin
    if (not t_ch_accept.DataSource.DataSet.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD>ý<EFBFBD><C3BD><EFBFBD>').AsBoolean) then begin
      showmessage('<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ʣ<EFBFBD><CAA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӷ<EFBFBD><D3B7>ã<EFBFBD><C3A3><EFBFBD>');
      abort;
    end;
  end;
  if copy(t_ch_pay.DataSource.DataSet.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,1,1)='A'then
  begin
    if not do_data(edit_data.text,t_ch_pay.DataSource.DataSet.fieldbyname('¼<><C2BC><EFBFBD><EFBFBD>').asstring
                 ,t_ch_pay.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').asstring
                 ,t_ch_pay.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
                 ,t_ch_pay.DataSource.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').asstring,'','') then
    begin
      showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD>ӷ<EFBFBD><D3B7>ã<EFBFBD><C3A3><EFBFBD>');
      abort;
    end;
  end
  else
  begin
    if not do_data(edit_data.text,t_ch_pay.DataSource.DataSet.fieldbyname('¼<><C2BC><EFBFBD><EFBFBD>').asstring
                 ,t_ch_pay.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').asstring
                 ,t_ch_pay.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
                 ,t_ch_pay.DataSource.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').asstring
                 ,t_ch_pay.DataSource.DataSet.fieldbyname('<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>').asstring
                 ,t_ch_pay.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring) then
    begin
      showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD>ӷ<EFBFBD><D3B7>ã<EFBFBD><C3A3><EFBFBD>');
      abort;
    end;
  end;
{
  if edit_type.text='1'then
  begin
    if strtobool(get_parameters_value(28,'false'))then
    begin
      if not t_ch_pay.DataSource.DataSet.fieldbyname('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').asboolean then
      begin
        if copy(t_ch_pay.DataSource.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').AsString,1,4)<>'ƴ<><C6B4>'then
        begin
          if (date-t_ch_pay.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime)>strtoint(get_parameters_value(29,'3')) then
          begin
            showmessage('ҵ<><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD>õ<EFBFBD><C3B5><EFBFBD><EFBFBD>ޣ<EFBFBD><DEA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD>ã<EFBFBD><C3A3><EFBFBD>');
            abort;
          end;
        end
        else
        begin
          if (date-t_ch_pay.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime)>strtoint(get_parameters_value(37,'3')) then
          begin
            showmessage('ҵ<><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD>õ<EFBFBD><C3B5><EFBFBD><EFBFBD>ޣ<EFBFBD><DEA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD>ã<EFBFBD><C3A3><EFBFBD>');
            abort;
          end;
        end;
      end;
    end;
  end;
  }
end;

procedure Tfra_fee.Panel11Resize(Sender: TObject);
begin
  if bsSkinPanel3.Visible then
    Panel3.Height:=round((Panel11.height-bsSkinPanel3.height)/2)
  else
    Panel3.Height:=round((Panel11.height)/2);
end;

procedure Tfra_fee.Panel3Resize(Sender: TObject);
var
  i:integer;
begin
  i:=round(Panel3.Width/9);
  bsSkinButton1.Width:=i;
  bsSkinButton2.Width:=i;
  bsSkinButton3.Width:=i;
  bsSkinButton4.Width:=i;
  bsSkinButton6.Width:=i;
  bsSkinButton7.Width:=i;
  bsSkinButton8.Width:=i;
  bsSkinButton10.Width:=i;
  bsSkinButton11.Width:=i;
  bsSkinButton12.Width:=i;
  bsSkinButton13.Width:=i;
  bsSkinButton14.Width:=i;
  bsSkinButton15.Width:=i;
  bsSkinButton16.Width:=i;
  bsSkinButton17.Width:=i;
  bsSkinButton18.Width:=i;
end;

procedure Tfra_fee.Panel2Resize(Sender: TObject);
var
  i:integer;
begin
  i:=round((Panel2.Width-196)/10);
  bsSkinDBEdit1.Width:=i;
  bsSkinDBEdit2.Width:=i;
  bsSkinDBEdit3.Width:=i;
  bsSkinDBEdit4.Width:=i;
  bsSkinDBEdit5.Width:=i;
  bsSkinDBEdit6.Width:=i;
  bsSkinDBEdit7.Width:=i;
  bsSkinDBEdit8.Width:=i;
  bsSkinDBEdit9.Width:=i;
end;

procedure Tfra_fee.N56Click(Sender: TObject);
begin
  sys_print(edit_report.text+'Ӧ<>շ<EFBFBD><D5B7><EFBFBD>',3,t_ch_accept.DataSource,nil,nil,nil,t_ch_accept1,nil,nil,nil,nil,nil,nil);
end;

procedure Tfra_fee.N58Click(Sender: TObject);
begin
  if t_ch_accept.IsEmpty then
    exit;
  t_ch_client.close;
  t_ch_client.sql.clear;
  t_ch_client.sql.add('select * from t_ch_fee '
    +'where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>=:<3A>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>'
    +' order by ˳<><CBB3>,<2C>ұ<EFBFBD>,CH_ID');
  t_ch_client.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:=t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').value;
  t_ch_client.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').value:=t_ch_accept.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').value;
  t_ch_client.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='<27><>';
  t_ch_client.open;

  t_ch_client_sum.close;
  t_ch_client_sum.sql.clear;
  t_ch_client_sum.sql.add('select isnull(SUM(CASE <20>ұ<EFBFBD> WHEN '+''''+'USD'+''''
    +' THEN ISNULL(<28><><EFBFBD><EFBFBD>,0) ELSE 0 END) ,0) AS <20>ϼ<EFBFBD>USD,'
    +'isnull(SUM(CASE <20>ұ<EFBFBD> WHEN '+''''+'USD'+''''
    +' THEN 0 ELSE ISNULL(<28><><EFBFBD><EFBFBD>,0)*ISNULL(<28><><EFBFBD><EFBFBD>,0) END) ,0) AS <20>ϼ<EFBFBD>RMB FROM t_ch_fee '
    +'where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>=:<3A>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
  t_ch_client_sum.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:=t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').value;
  t_ch_client_sum.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').value:=t_ch_accept.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').value;
  t_ch_client_sum.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='<27><>';
  t_ch_client_sum.open;
  sys_print(edit_report.text+'Ӧ<>տͻ<D5BF><CDBB><EFBFBD><EFBFBD><EFBFBD>',3,t_ch_accept.DataSource,t_ch_client_sum1,nil,nil,t_ch_client1,nil,nil,nil,nil,nil,nil);
end;

procedure Tfra_fee.N60Click(Sender: TObject);
begin
  if t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>' then
  begin
    showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
    exit;
  end;
  sys_print(edit_report.text+'Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>',3,t_ch_accept.DataSource,a_shen_delete1,nil,nil,nil,nil,nil,nil,nil,nil,nil);
end;

procedure Tfra_fee.N62Click(Sender: TObject);
begin
  if t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>' then
  begin
    showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸ģ<DEB8><C4A3><EFBFBD>');
    exit;
  end;
  sys_print(edit_report.text+'Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>',3,t_ch_accept.DataSource,a_shen_modify_old1,a_shen_modify_new1,nil,nil,nil,nil,nil,nil,nil,nil);
end;

procedure Tfra_fee.N64Click(Sender: TObject);
begin
  sys_print(edit_report.text+'Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',3,t_ch_pay.DataSource,nil,nil,nil,t_ch_pay1,nil,nil,nil,nil,nil,nil);
end;

procedure Tfra_fee.N66Click(Sender: TObject);
begin
  if t_ch_pay.IsEmpty then
    exit;
  t_ch_client.close;
  t_ch_client.sql.clear;
  t_ch_client.sql.add('select * from t_ch_fee '
    +'where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>=:<3A>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>'
    +' order by <20>ұ<EFBFBD>,CH_ID');
  t_ch_client.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:=t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').value;
  t_ch_client.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').value:=t_ch_pay.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').value;
  t_ch_client.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='<27><>';
  t_ch_client.open;

  t_ch_client_sum.close;
  t_ch_client_sum.sql.clear;
  t_ch_client_sum.sql.add('select isnull(SUM(CASE <20>ұ<EFBFBD> WHEN '+''''+'USD'+''''
    +' THEN ISNULL(<28><><EFBFBD><EFBFBD>,0) ELSE 0 END) ,0) AS <20>ϼ<EFBFBD>USD,'
    +'isnull(SUM(CASE <20>ұ<EFBFBD> WHEN '+''''+'USD'+''''
    +' THEN 0 ELSE ISNULL(<28><><EFBFBD><EFBFBD>,0)*ISNULL(<28><><EFBFBD><EFBFBD>,0) END) ,0) AS <20>ϼ<EFBFBD>RMB FROM t_ch_fee '
    +'where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>=:<3A>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
  t_ch_client_sum.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:=t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').value;
  t_ch_client_sum.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').value:=t_ch_pay.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').value;
  t_ch_client_sum.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='<27><>';
  t_ch_client_sum.open;
  sys_print(edit_report.text+'Ӧ<><D3A6><EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',3,t_ch_pay.DataSource,t_ch_client_sum1,nil,nil,t_ch_client1,nil,nil,nil,nil,nil,nil);
end;

procedure Tfra_fee.N68Click(Sender: TObject);
begin
  if t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>' then
  begin
    showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
    exit;
  end;
  sys_print(edit_report.text+'Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>',3,t_ch_pay.DataSource,p_shen_delete1,nil,nil,nil,nil,nil,nil,nil,nil,nil);
end;

procedure Tfra_fee.N70Click(Sender: TObject);
begin
  if t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>' then
  begin
    showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸ģ<DEB8><C4A3><EFBFBD>');
    exit;
  end;
  sys_print(edit_report.text+'Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>',3,t_ch_pay.DataSource,p_shen_modify_old1,p_shen_modify_new1,nil,nil,nil,nil,nil,nil,nil,nil);
end;

procedure Tfra_fee.N72Click(Sender: TObject);
var
  book1:Tbookmark;
    dsstr,PostUrl,str:string;  
begin
  if not strtobool(get_parameters_value(39,'true'))then
  begin
    if t_ch_accept.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
    begin
      showmessage('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ʣ<EFBFBD><CAA3><EFBFBD><EFBFBD>ܴ<EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>');
      exit;
    end;
  end;

  if strtobool(get_parameters_value(2,'false'))then
  begin
    try
      book1:=t_ch_accept.GetBookmark;
      t_ch_accept.DisableControls;
      t_ch_accept.first;
      while not t_ch_accept.eof do
      begin
        if (t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='¼<><C2BC>״̬')
        or(t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>')
        or(t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>ύ')
        or(t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>')
        or(t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>') then
        begin
          showmessage('<27><><EFBFBD>ñ<EFBFBD><C3B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD>󷽿<EFBFBD><F3B7BDBF>Դ<EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD>󵥣<EFBFBD><F3B5A5A3><EFBFBD>');
          t_ch_accept.GotoBookmark(book1);
          t_ch_accept.EnableControls;
          exit;
        end;
        t_ch_accept.next;
      end;
    finally
      t_ch_accept.GotoBookmark(book1);
      t_ch_accept.EnableControls;
    end;

    try
      book1:=t_ch_pay.GetBookmark;
      t_ch_pay.DisableControls;
      t_ch_pay.first;
      while not t_ch_pay.eof do
      begin
        if (t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='¼<><C2BC>״̬')
        or(t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>')
        or(t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>')
        or(t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>ύ')
        or(t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>') then
        begin
          showmessage('<27><><EFBFBD>ñ<EFBFBD><C3B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD>󷽿<EFBFBD><F3B7BDBF>Դ<EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD>󵥣<EFBFBD><F3B5A5A3><EFBFBD>');
          t_ch_pay.GotoBookmark(book1);
          t_ch_pay.EnableControls;
          exit;
        end;
        t_ch_pay.next;
      end;
    finally
      t_ch_pay.GotoBookmark(book1);
      t_ch_pay.EnableControls;
    end; 
  end;

  if strtobool(get_parameters_value(63,'false'))then
  begin
    if t_ch_accept.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
    begin
      t_ch_accept.DataSource.DataSet.edit;
      t_ch_accept.DataSource.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
      t_ch_accept.DataSource.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
      t_ch_accept.DataSource.DataSet.post;
     dsstr:=dsstr+'{';
    dsstr:=dsstr+'"bookingId":'+ t_ch_accept.DataSource.DataSet.FieldByName('DJYID').asstring;
    dsstr:=dsstr+',"lockStatus":true';
   dsstr:=dsstr+'}';
      str:=str+'[';
      str:=str+dsstr;
      str:=str+']';
     PostUrl:='http://47.104.85.216:12345/DataSync/SaveBookingOrderLock';
    TDsDjyThread.create(PostUrl,str,'','1bccf850845542f89057007e51f78f13','2af5ed1f0cc124bcfc4ba05e4a24eac77f2f582c25737477633a1c0303ac3b8ed647e810880dac58');
    InsertSysLog('<27>ϴ<EFBFBD><CFB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><C6B7><EFBFBD>',t_ch_accept.DataSource.DataSet.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
    end;
  end;
  
  if ((edit_type.text='1')OR(edit_type.text='2'))and strtobool(get_parameters_value(30,'false')) then
  begin
    t_ch_fee_truck.close;
    t_ch_fee_truck.Parameters[0].value:=t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
    t_ch_fee_truck.open;
    sys_print(edit_report.text+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',3,t_ch_accept.DataSource,t_op_gain1,nil,nil,t_ch_accept1,t_ch_pay1,t_ch_fee_truck1,nil,nil,nil,nil);
  end
  else
    sys_print(edit_report.text+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',3,t_ch_accept.DataSource,t_op_gain1,nil,nil,t_ch_accept1,t_ch_pay1,nil,nil,nil,nil,nil);
end;

procedure Tfra_fee.N1Click(Sender: TObject);
begin
  try
    if not assigned(frm_code_fee_project_add) then
      frm_code_fee_project_add:=tfrm_code_fee_project_add.Create (self);
    frm_code_fee_project_add.op_type.text:=edit_type.text;
    frm_code_fee_project_add.fee_type.text:='<27>շ<EFBFBD>';
    frm_code_fee_project_add.t_op_bill1.Enabled:=FALSE;
    frm_code_fee_project_add.t_op_bill1.DataSet:=t_ch_accept.DataSource.DataSet;
    frm_code_fee_project_add.t_op_bill1.Enabled:=true;
    frm_code_fee_project_add.t_ch_fee1.Enabled:=false;
    frm_code_fee_project_add.t_ch_fee1.DataSet:=t_ch_accept;
    frm_code_fee_project_add.t_ch_fee1.Enabled:=true;
    frm_code_fee_project_add.ShowModal;
  finally
    frm_code_fee_project_add.free;
    frm_code_fee_project_add:=nil;
  end;
end;

procedure Tfra_fee.MenuItem3Click(Sender: TObject);
begin
  try
    if not assigned(frm_code_fee_project_add) then
      frm_code_fee_project_add:=tfrm_code_fee_project_add.Create (self);
    frm_code_fee_project_add.op_type.text:=edit_type.text;
    frm_code_fee_project_add.fee_type.text:='<27><><EFBFBD><EFBFBD>';
    frm_code_fee_project_add.t_op_bill1.Enabled:=false;
    frm_code_fee_project_add.t_op_bill1.DataSet:=t_ch_pay.DataSource.DataSet;
    frm_code_fee_project_add.t_op_bill1.Enabled:=true;
    frm_code_fee_project_add.t_ch_fee1.Enabled:=false;
    frm_code_fee_project_add.t_ch_fee1.DataSet:=t_ch_pay;
    frm_code_fee_project_add.t_ch_fee1.Enabled:=true;
    frm_code_fee_project_add.ShowModal;
  finally
    frm_code_fee_project_add.free;
    frm_code_fee_project_add:=nil;
  end;
end;

procedure Tfra_fee.N5Click(Sender: TObject);
var
  i,k:integer;
begin
  if t_ch_accept.IsEmpty then
    exit;
  if wwDBGrid1.SelectedList.Count>=1 then
  begin
    for i:=0 to wwDBGrid1.SelectedList.Count-1 do
    begin
      t_ch_accept.GotoBookmark(pointer(wwDBGrid1.SelectedList[i]));
      t_ch_pay.append;
      for k := 0 to (t_ch_accept.fieldcount-1) do
      begin
        if t_ch_pay.FindField(t_ch_accept.fields[k].FieldName)<>nil then
        if t_ch_accept.fields[k].FieldName<>'CH_ID' then
          t_ch_pay.FindField(t_ch_accept.fields[k].FieldName).value:=t_ch_accept.fields[k].value ;
      end;
      t_ch_pay['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
      t_ch_pay['<27><><EFBFBD><EFBFBD>']:='<27><>';
      t_ch_pay['<27><><EFBFBD><EFBFBD>ԭ<EFBFBD><D4AD>']:=null;
      t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
      t_ch_pay['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=0;
      t_ch_pay['<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>']:=0;
      t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
      t_ch_pay['<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>']:=null;
      t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
      t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
      t_ch_pay['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
      t_ch_pay['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
      t_ch_pay['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
      t_ch_pay['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
      t_ch_pay['<27><><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD>']:='';
      t_ch_pay['˳<><CBB3>']:=t_ch_pay.RecordCount+1;
      t_ch_pay['<27><><EFBFBD><EFBFBD>']:=0;
      t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
      t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
      t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
   t_ch_pay['<27><><EFBFBD><EFBFBD>']:=0;
    t_ch_pay['<27><><EFBFBD><EFBFBD>ƾ֤']:='';

      t_ch_pay.post;
    end;
  end
  else
  begin
      t_ch_pay.append;
      for k:= 0 to (t_ch_accept.fieldcount-1) do
      begin
        if t_ch_pay.FindField(t_ch_accept.fields[k].FieldName)<>nil then
        if t_ch_accept.fields[k].FieldName<>'CH_ID' then
          t_ch_pay.FindField(t_ch_accept.fields[k].FieldName).value:=t_ch_accept.fields[k].value ;
      end;
      t_ch_pay['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
      t_ch_pay['<27><><EFBFBD><EFBFBD>']:='<27><>';
      t_ch_pay['<27><><EFBFBD><EFBFBD>ԭ<EFBFBD><D4AD>']:=null;
      t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
      t_ch_pay['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=0;
      t_ch_pay['<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>']:=null;
      t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
      t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
      t_ch_pay['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
      t_ch_pay['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
      t_ch_pay['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
      t_ch_pay['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
      t_ch_pay['<27><><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD>']:='';
      t_ch_pay['˳<><CBB3>']:=t_ch_pay.RecordCount+1;
      t_ch_pay['<27><><EFBFBD><EFBFBD>']:=0;
      t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
      t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
        t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
        t_ch_pay['<27><><EFBFBD><EFBFBD>']:=0;
    t_ch_pay['<27><><EFBFBD><EFBFBD>ƾ֤']:='';
      t_ch_pay.post;
  end;
end;

procedure Tfra_fee.N77Click(Sender: TObject);
var
  k:integer;
begin
  if t_ch_pay.IsEmpty then
    exit;
  t_ch_pay.first;
  while not t_ch_pay.eof do
  begin
    t_ch_accept.append;
    for k:= 0 to (t_ch_pay.fieldcount-1) do
    begin
      if t_ch_accept.FindField(t_ch_pay.fields[k].FieldName)<>nil then
      if t_ch_pay.fields[k].FieldName<>'CH_ID' then
        t_ch_accept.FindField(t_ch_pay.fields[k].FieldName).value:=t_ch_pay.fields[k].value ;
    end;
    t_ch_accept['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
    t_ch_accept['<27><><EFBFBD><EFBFBD>']:='<27><>';
    t_ch_accept['<27><><EFBFBD><EFBFBD>ԭ<EFBFBD><D4AD>']:=null;
    t_ch_accept['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
    t_ch_accept['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=0;
    t_ch_accept['<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>']:=0;
    t_ch_accept['<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>']:=null;
    t_ch_accept['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
    t_ch_accept['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
    t_ch_accept['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
    t_ch_accept['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
    t_ch_accept['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
    t_ch_accept['<27><><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD>']:='';
    t_ch_accept['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
    t_ch_accept['˳<><CBB3>']:=t_ch_accept.RecordCount+1;
    t_ch_accept['<27><><EFBFBD><EFBFBD>']:=0;
    t_ch_accept['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
        t_ch_accept['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
            t_ch_accept['<27><><EFBFBD><EFBFBD>']:=0;
    t_ch_accept['<27><><EFBFBD><EFBFBD>ƾ֤']:='';
        t_ch_accept['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
    t_ch_accept.post;
    t_ch_pay.next;
  end;
end;

procedure Tfra_fee.N74Click(Sender: TObject);
var
  k:integer;
begin
  if t_ch_accept.IsEmpty then
    exit;
  t_ch_accept.first;
  while not t_ch_accept.eof do
  begin
    t_ch_pay.append;
    for k := 0 to (t_ch_accept.fieldcount-1) do
    begin
      if t_ch_pay.FindField(t_ch_accept.fields[k].FieldName)<>nil then
      if t_ch_accept.fields[k].FieldName<>'CH_ID' then
        t_ch_pay.FindField(t_ch_accept.fields[k].FieldName).value:=t_ch_accept.fields[k].value ;
    end;
    t_ch_pay['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
    t_ch_pay['<27><><EFBFBD><EFBFBD>']:='<27><>';
    t_ch_pay['<27><><EFBFBD><EFBFBD>ԭ<EFBFBD><D4AD>']:=null;
    t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
    t_ch_pay['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=0;
    t_ch_pay['<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>']:=0;
    t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
    t_ch_pay['<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>']:=null;
    t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
    t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
    t_ch_pay['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
    t_ch_pay['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
    t_ch_pay['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
    t_ch_pay['<27><><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD>']:='';
    t_ch_pay['˳<><CBB3>']:=t_ch_pay.RecordCount+1;
    t_ch_pay['<27><><EFBFBD><EFBFBD>']:=0;
    t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
    t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
            t_ch_pay['<27><><EFBFBD><EFBFBD>']:=0;
    t_ch_pay['<27><><EFBFBD><EFBFBD>ƾ֤']:='';
        t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';

    t_ch_pay.post;
    t_ch_accept.next;
  end;
end;

procedure Tfra_fee.N75Click(Sender: TObject);
var
  i,k:integer;
begin
  if t_ch_pay.IsEmpty then
    exit;
  if wwDBGrid2.SelectedList.Count>=1 then
  begin
    for i:=0 to wwDBGrid2.SelectedList.Count-1 do
    begin
      t_ch_pay.GotoBookmark(pointer(wwDBGrid2.SelectedList[i]));
      t_ch_accept.append;
      for k:= 0 to (t_ch_pay.fieldcount-1) do
      begin
        if t_ch_accept.FindField(t_ch_pay.fields[k].FieldName)<>nil then
        if t_ch_pay.fields[k].FieldName<>'CH_ID' then
          t_ch_accept.FindField(t_ch_pay.fields[k].FieldName).value:=t_ch_pay.fields[k].value ;
      end;
      t_ch_accept['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
      t_ch_accept['<27><><EFBFBD><EFBFBD>']:='<27><>';
      t_ch_accept['<27><><EFBFBD><EFBFBD>ԭ<EFBFBD><D4AD>']:=null;
      t_ch_accept['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
      t_ch_accept['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=0;
      t_ch_accept['<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>']:=0;
      t_ch_accept['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
      t_ch_accept['<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>']:=null;
      t_ch_accept['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
      t_ch_accept['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
      t_ch_accept['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
      t_ch_accept['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
      t_ch_accept['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
      t_ch_accept['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
      t_ch_accept['<27><><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD>']:='';
      t_ch_accept['˳<><CBB3>']:=t_ch_accept.RecordCount+1;
      t_ch_accept['<27><><EFBFBD><EFBFBD>']:=0;
      t_ch_accept['ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>']:=0;
      t_ch_accept['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
      t_ch_accept['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
      t_ch_accept['<27><><EFBFBD><EFBFBD>']:=0;
      t_ch_accept['<27><><EFBFBD><EFBFBD>ƾ֤']:='';

        t_ch_accept['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';

      t_ch_accept.post;
    end;
  end
  else
  begin
      t_ch_accept.append;
      for k:= 0 to (t_ch_pay.fieldcount-1) do
      begin
        if t_ch_accept.FindField(t_ch_pay.fields[k].FieldName)<>nil then
        if t_ch_pay.fields[k].FieldName<>'CH_ID' then
          t_ch_accept.FindField(t_ch_pay.fields[k].FieldName).value:=t_ch_pay.fields[k].value ;
      end;
      t_ch_accept['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
      t_ch_accept['<27><><EFBFBD><EFBFBD>']:='<27><>';
      t_ch_accept['<27><><EFBFBD><EFBFBD>ԭ<EFBFBD><D4AD>']:=null;
      t_ch_accept['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
      t_ch_accept['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=0;
      t_ch_accept['<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>']:=0;
      t_ch_accept['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
      t_ch_accept['<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>']:=null;
      t_ch_accept['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
      t_ch_accept['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
      t_ch_accept['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
      t_ch_accept['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
      t_ch_accept['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
      t_ch_accept['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
      t_ch_accept['<27><><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD>']:='';
      t_ch_accept['˳<><CBB3>']:=t_ch_accept.RecordCount+1;
      t_ch_accept['<27><><EFBFBD><EFBFBD>']:=0;
      t_ch_accept['ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>']:=0;
      t_ch_accept['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
            t_ch_accept['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
                t_ch_accept['<27><><EFBFBD><EFBFBD>']:=0;
    t_ch_accept['<27><><EFBFBD><EFBFBD>ƾ֤']:='';
        t_ch_accept['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
      t_ch_accept.post;
  end;
end;

procedure Tfra_fee.N79Click(Sender: TObject);
begin
  try
    if not assigned(frm_fee_history) then
      frm_fee_history:=tfrm_fee_history.Create (self);
    frm_fee_history.op_type.text:=edit_type.text;
    frm_fee_history.fee_type.text:='<27><>';
    frm_fee_history.t_do_fee.Enabled:=false;
    frm_fee_history.t_do_fee.DataSet:=t_ch_accept;
    frm_fee_history.t_do_fee.Enabled:=true;
    frm_fee_history.t_bz_balance1.Enabled:=false;
    frm_fee_history.t_bz_balance1.DataSet:=t_bz_balance;
    frm_fee_history.t_bz_balance1.Enabled:=true;
    frm_fee_history.ShowModal;
  finally
    frm_fee_history.free;
    frm_fee_history:=nil;
  end;
end;

procedure Tfra_fee.N81Click(Sender: TObject);
begin
  try
    if not assigned(frm_fee_history) then
      frm_fee_history:=tfrm_fee_history.Create (self);
    frm_fee_history.op_type.text:=edit_type.text;
    frm_fee_history.fee_type.text:='<27><>';
    frm_fee_history.t_do_fee.Enabled:=false;
    frm_fee_history.t_do_fee.DataSet:=t_ch_pay;
    frm_fee_history.t_do_fee.Enabled:=true;
    frm_fee_history.t_bz_balance1.Enabled:=false;
    frm_fee_history.t_bz_balance1.DataSet:=t_bz_balance;
    frm_fee_history.t_bz_balance1.Enabled:=true;
  
    frm_fee_history.ShowModal;
  finally
    frm_fee_history.free;
    frm_fee_history:=nil;
  end;
end;

procedure Tfra_fee.N82Click(Sender: TObject);
begin
  fee_balance_view(t_ch_accept);
end;

procedure Tfra_fee.MenuItem5Click(Sender: TObject);
begin
  fee_balance_view(t_ch_pay);
end;

procedure Tfra_fee.N84Click(Sender: TObject);
begin
  fee_invoice_view(t_ch_accept);
end;

procedure Tfra_fee.MenuItem10Click(Sender: TObject);
begin
  fee_check_view(t_ch_pay);
end;

procedure Tfra_fee.N86Click(Sender: TObject);
begin
  fee_modify_view(t_ch_accept);
end;

procedure Tfra_fee.MenuItem12Click(Sender: TObject);
begin
  fee_modify_view(t_ch_pay);
end;

procedure Tfra_fee.N88Click(Sender: TObject);
begin
  price_person_view;
end;

procedure Tfra_fee.N89Click(Sender: TObject);
var
  aQuery:TAdoQuery;
begin
  if edit_type.text='1' then begin
     if not if_open('022') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='2' then begin
    if not if_open('055') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='3' then begin
    if not if_open('073') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='4' then begin
    if not if_open('081') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end;

  fee_update_part(edit_type.text,'<27><>',t_ch_accept,wwDBGrid1);

  if pos('ƴ<><C6B4>',t_ch_accept.DataSource.DataSet.fieldbyname('װ<>˷<EFBFBD>ʽ').AsString)>0 then exit;

  aQuery:=CreateAdoQuery;
  try
    with aQuery do begin
      SQL.Add('Select count(*) as Ʊ<><C6B1> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬=''¼<><C2BC>״̬'' and <20><><EFBFBD><EFBFBD>='''+t_ch_accept['<27><><EFBFBD><EFBFBD>']+'''');
      Open;
      if not IsEmpty then begin
        if FieldByName('Ʊ<><C6B1>').AsInteger=0 then begin
          if t_op_gain.FieldByName('ë<><C3AB><EFBFBD><EFBFBD>').AsFloat<=0 then begin
            iszeroprofit;
          end;
        end;
      end;
    end;
  finally
    FreeAndNil(aQuery);
  end;

end;

procedure Tfra_fee.MenuItem15Click(Sender: TObject);
var
  aQuery,aQuery2:TADOQuery;
  Cntrstr:String;

begin
  if edit_type.text='1' then begin
     if not if_open('023') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
{
   aQuery:=CreateAdoQuery;
   aQuery2:=CreateAdoQuery;
   try
     with aQuery do begin
       Close;SQL.Clear;
       SQL.Add('Select * from t_op_ctn where <20><><EFBFBD><EFBFBD>='+t_ch_pay.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']);
       Open;
       if not IsEmpty then begin
         while not eof do begin
           cntrstr:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').AsString;
           CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
           aQuery2.Close;
           aQuery2.SQL.clear;
           aQuery2.sql.add('select * from t_ch_fee where ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>=1 and  <20><><EFBFBD><EFBFBD>='+t_ch_pay.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']);
           aQuery2.Open;
           if aQuery2.IsEmpty then begin
             aQuery2.Close;
             aQuery2.SQL.clear;
             aQuery2.sql.add('select * from v_price_detail ');
             aQuery2.sql.add(' WHERE Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>='''+t_ch_pay.DataSource.DataSet.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
             aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_ch_pay.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
             aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='+formatDatetime('yyyy',t_ch_pay.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']));
             aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_ch_pay.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
             if t_ch_pay.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString<>'' then
                aQuery2.sql.add(' and Ʒ<><C6B7>='''+Trim(t_ch_pay.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)+'''');
             aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_ch_pay.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
             aQuery2.sql.add(' and <20><>'+getZweek(DayOfWeek(t_ch_pay.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime))+'=1');
             aQuery2.sql.add(' and Ʒ<><C6B7>='''+CntrStr+'''');
             aQuery2.Open;
             if aQuery2.IsEmpty then begin
               aQuery2.Close;
               aQuery2.SQL.clear;
               aQuery2.sql.add('select * from v_price_detail ');
               aQuery2.sql.add(' WHERE Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>='''+t_ch_pay.DataSource.DataSet.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
               aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_ch_pay.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
               aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='+formatDatetime('yyyy',t_ch_pay.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']));
               aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_ch_pay.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
               aQuery2.sql.add(' and <20><>'+getZweek(DayOfWeek(t_ch_pay.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime))+'=1');
               aQuery2.sql.add(' and Ʒ<><C6B7>='''+CntrStr+'''');
               aQuery2.Open;
             end;
             if not aQuery2.IsEmpty then begin
               if aQuery2['<27><><EFBFBD>뷢<EFBFBD><EBB7A2><EFBFBD>˼<EFBFBD>'] then begin
                 showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD>,<2C><>Ʊҵ<C6B1><D2B5>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD><EFBFBD>˼ۣ<CBBC><DBA3><EFBFBD><EFBFBD>˷ѱ<CBB7><D1B1><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD><EFBFBD>˼ۣ<CBBC>');
                 abort;
               end;
             end;
           end;
           Next;
         end;
       end;

     end;
   finally
     FreeAndNil(aQuery);
     FreeAndNil(aQuery2);
   end;
 }

  end else if edit_type.text='2' then begin
    if not if_open('056') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='3' then begin
    if not if_open('074') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='4' then begin
    if not if_open('082') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end;

  fee_update_part(edit_type.text,'<27><>',t_ch_pay,wwDBGrid2);

  if pos('ƴ<><C6B4>',t_ch_pay.DataSource.DataSet.fieldbyname('װ<>˷<EFBFBD>ʽ').AsString)>0 then exit;

  aQuery:=CreateAdoQuery;
  try
    with aQuery do begin
      SQL.Add('Select count(*) as Ʊ<><C6B1> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬=''¼<><C2BC>״̬'' and <20><><EFBFBD><EFBFBD>='''+t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''');
      Open;
      if not IsEmpty then begin
        if FieldByName('Ʊ<><C6B1>').AsInteger=0 then begin
          if t_op_gain.FieldByName('ë<><C3AB><EFBFBD><EFBFBD>').AsFloat<=0 then begin
            iszeroprofit;
          end;
        end;
      end;
    end;
  finally
    FreeAndNil(aQuery);
  end;

end;

procedure Tfra_fee.bsSkinButton11Click(Sender: TObject);
var
  Pnt:Tpoint;
begin
  Pnt:=bsSkinButton11.ClientToScreen(Point(0,bsSkinButton11.Height));
  PopupMenu6.Popup(Pnt.x,Pnt.y);
end;

procedure Tfra_fee.bsSkinButton12Click(Sender: TObject);
var
  Pnt:Tpoint;
begin
  Pnt:=bsSkinButton12.ClientToScreen(Point(0,bsSkinButton12.Height));
  PopupMenu7.Popup(Pnt.x,Pnt.y);
end;

procedure Tfra_fee.N91Click(Sender: TObject);
var
  aQuery:TADOQuery;
begin
  if edit_type.text='1' then begin
     if not if_open('022') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='2' then begin
    if not if_open('055') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='3' then begin
    if not if_open('073') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='4' then begin
    if not if_open('081') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end;
  fee_update_all(edit_type.text,'<27><>',t_ch_accept);

  if pos('ƴ<><C6B4>',t_ch_accept.DataSource.DataSet.fieldbyname('װ<>˷<EFBFBD>ʽ').AsString)>0 then exit;


  aQuery:=CreateAdoQuery;
  try
    with aQuery do begin
      SQL.Add('Select count(*) as Ʊ<><C6B1> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬=''¼<><C2BC>״̬'' and <20><><EFBFBD><EFBFBD>='''+t_ch_accept['<27><><EFBFBD><EFBFBD>']+'''');
      Open;
      if not IsEmpty then begin
        if FieldByName('Ʊ<><C6B1>').AsInteger=0 then begin
          if t_op_gain.FieldByName('ë<><C3AB><EFBFBD><EFBFBD>').AsFloat<=0 then begin
            iszeroprofit;
          end;
        end;
      end;
    end;
  finally
    FreeAndNil(aQuery);
  end;

end;

procedure Tfra_fee.MenuItem17Click(Sender: TObject);
var
  aQuery:TADOQuery;
begin
  if edit_type.text='1' then begin
     if not if_open('023') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='2' then begin
    if not if_open('056') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='3' then begin
    if not if_open('074') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='4' then begin
    if not if_open('082') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end;
  fee_update_all(edit_type.text,'<27><>',t_ch_pay);

  if pos('ƴ<><C6B4>',t_ch_pay.DataSource.DataSet.fieldbyname('װ<>˷<EFBFBD>ʽ').AsString)>0 then exit;

  aQuery:=CreateAdoQuery;
  try
    with aQuery do begin
      SQL.Add('Select count(*) as Ʊ<><C6B1> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬=''¼<><C2BC>״̬'' and <20><><EFBFBD><EFBFBD>='''+t_ch_pay['<27><><EFBFBD><EFBFBD>']+'''');
      Open;
      if not IsEmpty then begin
        if FieldByName('Ʊ<><C6B1>').AsInteger=0 then begin
          if t_op_gain.FieldByName('ë<><C3AB><EFBFBD><EFBFBD>').AsFloat<=0 then begin
            iszeroprofit;
          end;
        end;
      end;
    end;
  finally
    FreeAndNil(aQuery);
  end;

end;

procedure Tfra_fee.N93Click(Sender: TObject);
begin
  if t_ch_accept.IsEmpty then
    exit;
  table_post(t_ch_accept); 

  try
    frm_fee_list:=tfrm_fee_list.Create (self);
    frm_fee_list.DataSource1.Enabled:=false;
    frm_fee_list.DataSource1.DataSet:=t_ch_accept;
    frm_fee_list.DataSource1.Enabled:=true;
    frm_fee_list.ShowModal;
  finally
    frm_fee_list.Free;
    frm_fee_list:=nil;
    t_ch_accept.Requery();
  end;
end;

procedure Tfra_fee.N95Click(Sender: TObject);
begin
  if t_ch_pay.IsEmpty then
    exit;
  table_post(t_ch_pay); 

  try
    frm_fee_list:=tfrm_fee_list.Create (self);
    frm_fee_list.DataSource1.Enabled:=false;
    frm_fee_list.DataSource1.DataSet:=t_ch_pay;
    frm_fee_list.DataSource1.Enabled:=true;
    frm_fee_list.ShowModal;
  finally
    frm_fee_list.Free;
    frm_fee_list:=nil;
    t_ch_pay.Requery();
  end;
end;

procedure Tfra_fee.N97Click(Sender: TObject);
begin
  open_code_edit('006');
end;

procedure Tfra_fee.N101Click(Sender: TObject);
begin
  if edit_type.text='1' then begin
     if not if_open('022') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='2' then begin
    if not if_open('055') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='3' then begin
    if not if_open('073') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='4' then begin
    if not if_open('081') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end;
  fee_update_part_no(t_ch_accept,wwDBGrid1);
  if Panel8.Visible then
    t_op_gain.Requery();
  if Panel9.Visible then
    t_op_gain_main.Requery();
end;

procedure Tfra_fee.N103Click(Sender: TObject);
begin
  if edit_type.text='1' then begin
     if not if_open('023') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='2' then begin
    if not if_open('056') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='3' then begin
    if not if_open('074') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='4' then begin
    if not if_open('082') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end;
  fee_update_part_no(t_ch_pay,wwDBGrid2);
  if Panel8.Visible then
    t_op_gain.Requery();
  if Panel9.Visible then
    t_op_gain_main.Requery();
end;

procedure Tfra_fee.t_ch_acceptAfterDelete(DataSet: TDataSet);
begin
  if Panel8.Visible then
    t_op_gain.Requery();
  if Panel9.Visible then
    t_op_gain_main.Requery();
      getsumstr;

end;

procedure Tfra_fee.t_ch_payAfterPost(DataSet: TDataSet);
begin
  if t_ch_pay.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'then
  begin
    if Panel8.Visible then
      t_op_gain.Requery();
    if Panel9.Visible then
      t_op_gain_main.Requery();
  end;
  getsumstr;

end;

procedure Tfra_fee.N108Click(Sender: TObject);
var
  i:integer;
  str:widestring;
begin
  if t_ch_accept.IsEmpty then
    exit;
  if wwDBGrid1.SelectedList.Count>=1 then
  begin
    for i:=0 to wwDBGrid1.SelectedList.Count-1 do
    begin
      t_ch_accept.GotoBookmark(pointer(wwDBGrid1.SelectedList[i]));
      if i=0 then
        str:='('+t_ch_accept.fieldbyname('CH_ID').asstring
      else
        str:=str+','+t_ch_accept.fieldbyname('CH_ID').asstring;    
    end;
  end
  else
  begin
    str:='('+t_ch_accept.fieldbyname('CH_ID').asstring;
  end;
  str:=str+')';   
  t_ch_client.close;
  t_ch_client.sql.clear;
  t_ch_client.sql.add('select * from t_ch_fee '
    +'where CH_ID in '+str
    +' order by <20>ұ<EFBFBD>,CH_ID');
  t_ch_client.open;

  t_ch_client_sum.close;
  t_ch_client_sum.sql.clear;
  t_ch_client_sum.sql.add('select isnull(SUM(CASE <20>ұ<EFBFBD> WHEN '+''''+'USD'+''''
    +' THEN ISNULL(<28><><EFBFBD><EFBFBD>,0) ELSE 0 END) ,0) AS <20>ϼ<EFBFBD>USD,'
    +'isnull(SUM(CASE <20>ұ<EFBFBD> WHEN '+''''+'USD'+''''
    +' THEN 0 ELSE ISNULL(<28><><EFBFBD><EFBFBD>,0)*ISNULL(<28><><EFBFBD><EFBFBD>,0) END) ,0) AS <20>ϼ<EFBFBD>RMB FROM t_ch_fee '
    +'where CH_ID in '+str);
  t_ch_client_sum.open;
  sys_print(edit_report.text+'Ӧ<><D3A6>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',1,t_ch_accept.DataSource,t_ch_client_sum1,nil,nil,t_ch_client1,nil,nil,nil,nil,nil,nil);
end;

procedure Tfra_fee.N113Click(Sender: TObject);
var
  i:integer;
  str:widestring;
begin
  if t_ch_pay.IsEmpty then
    exit;
  if wwDBGrid2.SelectedList.Count>=1 then
  begin
    for i:=0 to wwDBGrid2.SelectedList.Count-1 do
    begin
      t_ch_pay.GotoBookmark(pointer(wwDBGrid2.SelectedList[i]));
      if i=0 then
        str:='('+t_ch_pay.fieldbyname('CH_ID').asstring
      else
        str:=str+','+t_ch_pay.fieldbyname('CH_ID').asstring;
    end;
  end
  else
  begin
    str:='('+t_ch_pay.fieldbyname('CH_ID').asstring;
  end;
  str:=str+')';
  t_ch_client.close;
  t_ch_client.sql.clear;
  t_ch_client.sql.add('select * from t_ch_fee '
    +'where CH_ID in '+str
    +' order by <20>ұ<EFBFBD>,CH_ID');
  t_ch_client.open;
  t_ch_client_sum.close;
  t_ch_client_sum.sql.clear;
  t_ch_client_sum.sql.add('select isnull(SUM(CASE <20>ұ<EFBFBD> WHEN '+''''+'USD'+''''
    +' THEN ISNULL(<28><><EFBFBD><EFBFBD>,0) ELSE 0 END) ,0) AS <20>ϼ<EFBFBD>USD,'
    +'isnull(SUM(CASE <20>ұ<EFBFBD> WHEN '+''''+'USD'+''''
    +' THEN 0 ELSE ISNULL(<28><><EFBFBD><EFBFBD>,0)*ISNULL(<28><><EFBFBD><EFBFBD>,0) END) ,0) AS <20>ϼ<EFBFBD>RMB FROM t_ch_fee '
    +'where CH_ID in '+str);
  t_ch_client_sum.open;
  sys_print(edit_report.text+'Ӧ<><D3A6>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',1,t_ch_accept.DataSource,t_ch_client_sum1,nil,nil,t_ch_client1,nil,nil,nil,nil,nil,nil);
end;

procedure Tfra_fee.N110Click(Sender: TObject);
var
  i:integer;
  str:widestring;
begin
  if t_ch_accept.IsEmpty then
    exit;
  if wwDBGrid1.SelectedList.Count>=1 then
  begin
    for i:=0 to wwDBGrid1.SelectedList.Count-1 do
    begin
      t_ch_accept.GotoBookmark(pointer(wwDBGrid1.SelectedList[i]));
      if i=0 then
        str:='('+t_ch_accept.fieldbyname('CH_ID').asstring
      else
        str:=str+','+t_ch_accept.fieldbyname('CH_ID').asstring;    
    end;
  end
  else
  begin
    str:='('+t_ch_accept.fieldbyname('CH_ID').asstring;
  end;
  str:=str+')';   
  t_ch_client.close;
  t_ch_client.sql.clear;
  t_ch_client.sql.add('select * from t_ch_fee '
    +'where CH_ID in '+str
    +' order by <20>ұ<EFBFBD>,CH_ID');
  t_ch_client.open;
  t_ch_client_sum.close;
  t_ch_client_sum.sql.clear;
  t_ch_client_sum.sql.add('select isnull(SUM(CASE <20>ұ<EFBFBD> WHEN '+''''+'USD'+''''
    +' THEN ISNULL(<28><><EFBFBD><EFBFBD>,0) ELSE 0 END) ,0) AS <20>ϼ<EFBFBD>USD,'
    +'isnull(SUM(CASE <20>ұ<EFBFBD> WHEN '+''''+'USD'+''''
    +' THEN 0 ELSE ISNULL(<28><><EFBFBD><EFBFBD>,0)*ISNULL(<28><><EFBFBD><EFBFBD>,0) END) ,0) AS <20>ϼ<EFBFBD>RMB FROM t_ch_fee '
    +'where CH_ID in '+str);
  t_ch_client_sum.open;
  sys_print(edit_report.text+'Ӧ<><D3A6>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',3,t_ch_accept.DataSource,t_ch_client_sum1,nil,nil,t_ch_client1,nil,nil,nil,nil,nil,nil);
end;

procedure Tfra_fee.N112Click(Sender: TObject);
var
  i:integer;
  str:widestring;
begin
  if t_ch_accept.IsEmpty then
    exit;
  if wwDBGrid1.SelectedList.Count>=1 then
  begin
    for i:=0 to wwDBGrid1.SelectedList.Count-1 do
    begin
      t_ch_accept.GotoBookmark(pointer(wwDBGrid1.SelectedList[i]));
      if i=0 then
        str:='('+t_ch_accept.fieldbyname('CH_ID').asstring
      else
        str:=str+','+t_ch_accept.fieldbyname('CH_ID').asstring;    
    end;
  end
  else
  begin
    str:='('+t_ch_accept.fieldbyname('CH_ID').asstring;
  end;
  str:=str+')';
  t_ch_client.close;
  t_ch_client.sql.clear;
  t_ch_client.sql.add('select * from t_ch_fee '
    +'where CH_ID in '+str
    +' order by <20>ұ<EFBFBD>,CH_ID');
  t_ch_client.open;
  t_ch_client_sum.close;
  t_ch_client_sum.sql.clear;
  t_ch_client_sum.sql.add('select isnull(SUM(CASE <20>ұ<EFBFBD> WHEN '+''''+'USD'+''''
    +' THEN ISNULL(<28><><EFBFBD><EFBFBD>,0) ELSE 0 END) ,0) AS <20>ϼ<EFBFBD>USD,'
    +'isnull(SUM(CASE <20>ұ<EFBFBD> WHEN '+''''+'USD'+''''
    +' THEN 0 ELSE ISNULL(<28><><EFBFBD><EFBFBD>,0)*ISNULL(<28><><EFBFBD><EFBFBD>,0) END) ,0) AS <20>ϼ<EFBFBD>RMB FROM t_ch_fee '
    +'where CH_ID in '+str);
  t_ch_client_sum.open;
  sys_print(edit_report.text+'Ӧ<><D3A6>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',2,t_ch_accept.DataSource,t_ch_client_sum1,nil,nil,t_ch_client1,nil,nil,nil,nil,nil,nil);
end;

procedure Tfra_fee.N115Click(Sender: TObject);
var
  i:integer;
  str:widestring;
begin
  if t_ch_pay.IsEmpty then
    exit;
  if wwDBGrid2.SelectedList.Count>=1 then
  begin
    for i:=0 to wwDBGrid2.SelectedList.Count-1 do
    begin
      t_ch_pay.GotoBookmark(pointer(wwDBGrid2.SelectedList[i]));
      if i=0 then
        str:='('+t_ch_pay.fieldbyname('CH_ID').asstring
      else
        str:=str+','+t_ch_pay.fieldbyname('CH_ID').asstring;
    end;
  end
  else
  begin
    str:='('+t_ch_pay.fieldbyname('CH_ID').asstring;
  end;
  str:=str+')';
  t_ch_client.close;
  t_ch_client.sql.clear;
  t_ch_client.sql.add('select * from t_ch_fee '
    +'where CH_ID in '+str
    +' order by <20>ұ<EFBFBD>,CH_ID');
  t_ch_client.open;
  t_ch_client_sum.close;
  t_ch_client_sum.sql.clear;
  t_ch_client_sum.sql.add('select isnull(SUM(CASE <20>ұ<EFBFBD> WHEN '+''''+'USD'+''''
    +' THEN ISNULL(<28><><EFBFBD><EFBFBD>,0) ELSE 0 END) ,0) AS <20>ϼ<EFBFBD>USD,'
    +'isnull(SUM(CASE <20>ұ<EFBFBD> WHEN '+''''+'USD'+''''
    +' THEN 0 ELSE ISNULL(<28><><EFBFBD><EFBFBD>,0)*ISNULL(<28><><EFBFBD><EFBFBD>,0) END) ,0) AS <20>ϼ<EFBFBD>RMB FROM t_ch_fee '
    +'where CH_ID in '+str);
  t_ch_client_sum.open;
  sys_print(edit_report.text+'Ӧ<><D3A6>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',3,t_ch_accept.DataSource,t_ch_client_sum1,nil,nil,t_ch_client1,nil,nil,nil,nil,nil,nil);
end;

procedure Tfra_fee.N117Click(Sender: TObject);
var
  i:integer;
  str:widestring;
begin
  if t_ch_pay.IsEmpty then
    exit;
  if wwDBGrid2.SelectedList.Count>=1 then
  begin
    for i:=0 to wwDBGrid2.SelectedList.Count-1 do
    begin
      t_ch_pay.GotoBookmark(pointer(wwDBGrid2.SelectedList[i]));
      if i=0 then
        str:='('+t_ch_pay.fieldbyname('CH_ID').asstring
      else
        str:=str+','+t_ch_pay.fieldbyname('CH_ID').asstring;
    end;
  end
  else
  begin
    str:='('+t_ch_pay.fieldbyname('CH_ID').asstring;
  end;
  str:=str+')';   
  t_ch_client.close;
  t_ch_client.sql.clear;
  t_ch_client.sql.add('select * from t_ch_fee '
    +'where CH_ID in '+str
    +' order by <20>ұ<EFBFBD>,CH_ID');
  t_ch_client.open;
  t_ch_client_sum.close;
  t_ch_client_sum.sql.clear;
  t_ch_client_sum.sql.add('select isnull(SUM(CASE <20>ұ<EFBFBD> WHEN '+''''+'USD'+''''
    +' THEN ISNULL(<28><><EFBFBD><EFBFBD>,0) ELSE 0 END) ,0) AS <20>ϼ<EFBFBD>USD,'
    +'isnull(SUM(CASE <20>ұ<EFBFBD> WHEN '+''''+'USD'+''''
    +' THEN 0 ELSE ISNULL(<28><><EFBFBD><EFBFBD>,0)*ISNULL(<28><><EFBFBD><EFBFBD>,0) END) ,0) AS <20>ϼ<EFBFBD>RMB FROM t_ch_fee '
    +'where CH_ID in '+str);
  t_ch_client_sum.open;
  sys_print(edit_report.text+'Ӧ<><D3A6>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',2,t_ch_accept.DataSource,t_ch_client_sum1,nil,nil,t_ch_client1,nil,nil,nil,nil,nil,nil);
end;

procedure Tfra_fee.N119Click(Sender: TObject);
begin
  try
    frm_ch_fee_truck:=tfrm_ch_fee_truck.Create (self);
    frm_ch_fee_truck.t_ch_fee_truck.DataSource:=t_ch_accept.DataSource;
    frm_ch_fee_truck.ShowModal;
  finally
    frm_ch_fee_truck.Free;
    frm_ch_fee_truck:=nil;
  end;
end;

procedure Tfra_fee.N121Click(Sender: TObject);
begin
  try
    frm_ch_fee_truck:=tfrm_ch_fee_truck.Create (self);
    frm_ch_fee_truck.t_ch_fee_truck.DataSource:=t_ch_pay.DataSource;
    frm_ch_fee_truck.ShowModal;
  finally
    frm_ch_fee_truck.Free;
    frm_ch_fee_truck:=nil;
  end;
end;

procedure Tfra_fee.DBEdit43Change(Sender: TObject);
begin
  if Panel8.Visible then
  begin
    if (DBEdit43.Text='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ')then
    begin
      Panel9.Visible:=true;
      Panel8.Height:=40;
    end
    else
    begin
      Panel9.Visible:=false;
      Panel8.Height:=20;
    end;
  end;
end;

procedure Tfra_fee.Panel9Resize(Sender: TObject);
var
  i:integer;
begin
  i:=round((Panel9.Width-196)/10);
  bsSkinDBEdit11.Width:=i;
  bsSkinDBEdit12.Width:=i;
  bsSkinDBEdit13.Width:=i;
  bsSkinDBEdit14.Width:=i;
  bsSkinDBEdit15.Width:=i;
  bsSkinDBEdit16.Width:=i;
  bsSkinDBEdit17.Width:=i;
  bsSkinDBEdit18.Width:=i;
  bsSkinDBEdit19.Width:=i;
end;

procedure Tfra_fee.wwDBLookupCombo1KeyPress(Sender: TObject;
  var Key: Char);
begin
  if key=#13 then
  begin
    if (t_ch_accept.state=dsinsert)or(t_ch_accept.state=dsedit) then
    begin
      if t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue then
      begin
        if not frm_data_share.t_code_fee.IsEmpty then
        if frm_data_share.t_code_fee.locate('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,[]) then
        begin
          t_ch_accept['<27>ұ<EFBFBD>']:=frm_data_share.t_code_fee.fieldbyname('Ĭ<>ϱұ<CFB1>').asstring;

          t_ch_accept['˳<><CBB3>']:=frm_data_share.t_code_fee.fieldbyname('˳<><CBB3>').asInteger;

          t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ').AsBoolean:=frm_data_share.t_code_fee.fieldbyname('<27><>ֹ<EFBFBD><D6B9>Ʊ').AsBoolean;

          if frm_data_share.t_code_fee.fieldbyname('<27>շѿͻ<D1BF>').asstring<>''then
          begin
            if t_bz_client.Locate('two',frm_data_share.t_code_fee.fieldbyname('<27>շѿͻ<D1BF>').asstring,[])then
            begin
             t_ch_accept['<27><><EFBFBD>㵥λ']:=frm_data_share.t_code_fee.fieldbyname('<27>շѿͻ<D1BF>').asstring;
                t_ch_accept['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=t_bz_client.fieldbyname('three').asstring;
            end;
          end;
        end;
//        if (t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>˷Ѵ<CBB7><D1B4><EFBFBD><EFBFBD><EFBFBD>') or (t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD><EFBFBD><EFBFBD>') then begin
         if (t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>˷Ѵ<CBB7><D1B4><EFBFBD><EFBFBD><EFBFBD>444444444444') then begin
         ShowMessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
        end;

      end;
    end;
  end;
end;

procedure Tfra_fee.wwDBLookupCombo6KeyPress(Sender: TObject;
  var Key: Char);
begin
  if key=#13 then
  begin
    if (t_ch_pay.state=dsinsert)or(t_ch_pay.state=dsedit) then
    begin
      if t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue then
      begin
        if not frm_data_share.t_code_fee.IsEmpty then
        if frm_data_share.t_code_fee.locate('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,[]) then
        begin
          t_ch_pay['<27>ұ<EFBFBD>']:=frm_data_share.t_code_fee.fieldbyname('Ĭ<>ϱұ<CFB1>').asstring;
          t_ch_pay['˳<><CBB3>']:=frm_data_share.t_code_fee.fieldbyname('˳<><CBB3>').asInteger;


          if frm_data_share.t_code_fee.fieldbyname('<27>շѿͻ<D1BF>').asstring<>''then
          begin
            if t_bz_client.Locate('two',frm_data_share.t_code_fee.fieldbyname('<27>շѿͻ<D1BF>').asstring,[])then
            begin
             t_ch_pay['<27><><EFBFBD>㵥λ']:=frm_data_share.t_code_fee.fieldbyname('<27>շѿͻ<D1BF>').asstring;
                t_ch_pay['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=t_bz_client.fieldbyname('three').asstring;
            end;
          end;
        end;
      end;
    end;
  end;
end;

procedure Tfra_fee.wwDBLookupCombo5Exit(Sender: TObject);
begin
  if t_ch_accept.FieldByName('<27><><EFBFBD>㵥λ').asstring<>''then
  begin
    frm_data_share.t_crm_client.Filtered:=false;
    if t_ch_accept.FieldByName('<27><><EFBFBD>㵥λ').asstring='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then begin
      frm_data_share.t_crm_client.Filter:='ί<>е<EFBFBD>λ=1';
    end else begin
      frm_data_share.t_crm_client.Filter:=t_ch_accept.FieldByName('<27><><EFBFBD>㵥λ').asstring+'=1';
    end;
      frm_data_share.t_crm_client.Filtered:=true;
  end
  else
  begin
    frm_data_share.t_crm_client.Filtered:=false;
  end;
end;

procedure Tfra_fee.wwDBLookupCombo7Exit(Sender: TObject);
begin
  if t_ch_pay.FieldByName('<27><><EFBFBD>㵥λ').asstring<>''then
  begin
    frm_data_share.t_crm_client.Filtered:=false;
    if t_ch_pay.FieldByName('<27><><EFBFBD>㵥λ').asstring='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then begin
      frm_data_share.t_crm_client.Filter:='ί<>е<EFBFBD>λ=1';
    end else begin
      frm_data_share.t_crm_client.Filter:=t_ch_pay.FieldByName('<27><><EFBFBD>㵥λ').asstring+'=1';
    end;
    frm_data_share.t_crm_client.Filtered:=true;
  end
  else
  begin
    frm_data_share.t_crm_client.Filtered:=false;
  end;
end;

procedure Tfra_fee.a_shen_modify_newBeforePost(DataSet: TDataSet);
begin
  {
  if (a_shen_modify_new.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat<>0) and (a_shen_modify_new.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat<>0)then
    a_shen_modify_new['<27><><EFBFBD><EFBFBD>']:=s_w(strtoint(apointnum),a_shen_modify_new.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*a_shen_modify_new.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
  a_shen_modify_new['<27><><EFBFBD><EFBFBD>']:=s_w(strtoint(apointnum),a_shen_modify_new['<27><><EFBFBD><EFBFBD>']);
   }
  if a_shen_modify_new.fieldbyname('<27>ұ<EFBFBD>').asstring<>'' then
  begin
    if a_shen_modify_new.fieldbyname('<27>ұ<EFBFBD>').asstring='USD' then begin
      if edit_type.text='1' then
        a_shen_modify_new['<27><><EFBFBD><EFBFBD>']:=getUsdExRate(t_ch_accept.datasource.dataset.fieldbyname('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)
      else if edit_type.text='2' then
        a_shen_modify_new['<27><><EFBFBD><EFBFBD>']:=getUsdExRate(t_ch_accept.datasource.dataset.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)
      else if edit_type.text='3' then
        a_shen_modify_new['<27><><EFBFBD><EFBFBD>']:=getUsdExRate(t_ch_accept.datasource.dataset.fieldbyname('һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)
      else if edit_type.text='4' then
        a_shen_modify_new['<27><><EFBFBD><EFBFBD>']:=getUsdExRate(t_ch_accept.datasource.dataset.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
    end else

    IF not frm_data_share.t_code_currency.Locate('<27>ұ<EFBFBD>',a_shen_modify_new.fieldbyname('<27>ұ<EFBFBD>').asstring,[])THEN
    begin
      showmessage('<27>Բ<EFBFBD><D4B2>𣬷<EFBFBD><F0A3ACB7>ñұ<C3B1><D2B1><EFBFBD><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7>');
      abort;
    end
    else
    begin
      if not strtobool(get_parameters_value(38,'true')) then
      begin
        a_shen_modify_new['<27><><EFBFBD><EFBFBD>']:=frm_data_share.t_code_currency.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
      end;
    end;
  end else begin
    showmessage('<27>Բ<EFBFBD><D4B2>𣬱ұ<F0A3ACB1><D2B1><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>');
    abort;
  end;
end;

procedure Tfra_fee.p_shen_modify_newBeforePost(DataSet: TDataSet);
begin
  {
  if (p_shen_modify_new.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat<>0) and (p_shen_modify_new.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat<>0)then
    p_shen_modify_new['<27><><EFBFBD><EFBFBD>']:=s_w(strtoint(apointnum),p_shen_modify_new.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*p_shen_modify_new.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
  p_shen_modify_new['<27><><EFBFBD><EFBFBD>']:=s_w(strtoint(apointnum),p_shen_modify_new['<27><><EFBFBD><EFBFBD>']);
   }
  if p_shen_modify_new.fieldbyname('<27>ұ<EFBFBD>').asstring<>'' then
  begin
    if p_shen_modify_new.fieldbyname('<27>ұ<EFBFBD>').asstring='USD' then begin
      if edit_type.text='1' then
        p_shen_modify_new['<27><><EFBFBD><EFBFBD>']:=getUsdExRate(t_ch_accept.datasource.dataset.fieldbyname('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)
      else if edit_type.text='2' then
        p_shen_modify_new['<27><><EFBFBD><EFBFBD>']:=getUsdExRate(t_ch_accept.datasource.dataset.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)
      else if edit_type.text='3' then
        p_shen_modify_new['<27><><EFBFBD><EFBFBD>']:=getUsdExRate(t_ch_accept.datasource.dataset.fieldbyname('һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)
      else if edit_type.text='4' then
        p_shen_modify_new['<27><><EFBFBD><EFBFBD>']:=getUsdExRate(t_ch_accept.datasource.dataset.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
    end else
    IF not frm_data_share.t_code_currency.Locate('<27>ұ<EFBFBD>',p_shen_modify_new.fieldbyname('<27>ұ<EFBFBD>').asstring,[])THEN
    begin
      showmessage('<27>Բ<EFBFBD><D4B2>𣬷<EFBFBD><F0A3ACB7>ñұ<C3B1><D2B1><EFBFBD><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7>');
      abort;
    end
    else
    begin

      if not strtobool(get_parameters_value(38,'true')) then
      begin
        p_shen_modify_new['<27><><EFBFBD><EFBFBD>']:=frm_data_share.t_code_currency.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
      end;
 
    end;
  end else begin
    showmessage('<27>Բ<EFBFBD><D4B2>𣬱ұ<F0A3ACB1><D2B1><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>');
    abort;
  end;
end;

procedure Tfra_fee.INVOICEEXCEL1Click(Sender: TObject);
var
  ExcelTemplet:Variant;
begin

  if t_ch_accept.IsEmpty then
    exit;
  t_ch_client.close;
  t_ch_client.sql.clear;
  t_ch_client.sql.add('select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C>ұ<EFBFBD>,SUM(<28><><EFBFBD><EFBFBD>) AS <20><><EFBFBD><EFBFBD> from t_ch_fee '
    +'where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>=:<3A>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>'
    +' Group by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C>ұ<EFBFBD> order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  t_ch_client.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:=t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').value;
  t_ch_client.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').value:=t_ch_accept.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').value;
  t_ch_client.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='<27><>';
  t_ch_client.open;

  t_ch_client_sum.close;
  t_ch_client_sum.sql.clear;
  t_ch_client_sum.sql.add('select isnull(SUM(CASE <20>ұ<EFBFBD> WHEN '+''''+'USD'+''''
    +' THEN ISNULL(<28><><EFBFBD><EFBFBD>,0) ELSE 0 END) ,0) AS <20>ϼ<EFBFBD>USD,'
    +'isnull(SUM(CASE <20>ұ<EFBFBD> WHEN '+''''+'USD'+''''
    +' THEN 0 ELSE ISNULL(<28><><EFBFBD><EFBFBD>,0)*ISNULL(<28><><EFBFBD><EFBFBD>,0) END) ,0) AS <20>ϼ<EFBFBD>RMB FROM t_ch_fee '
    +'where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>=:<3A>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
  t_ch_client_sum.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:=t_ch_accept.fieldbyname('<27><><EFBFBD><EFBFBD>').value;
  t_ch_client_sum.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').value:=t_ch_accept.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').value;
  t_ch_client_sum.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='<27><>';
  t_ch_client_sum.open;

  try
    ExcelTemplet:= CreateOleObject('Excel.Application');
    ExcelTemplet.Visible := true;//<2F>Ƿ<EFBFBD><C7B7><EFBFBD>ʾ
    ExcelTemplet.Workbooks.Open(ExtractFileDir(ParamStr(0))+'\HIGHTRANS.xls');
    ExcelTemplet.WorkSheets[1].Cells[5,7].value:=t_ch_accept.DataSource.DataSet.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString;
    ExcelTemplet.WorkSheets[1].Cells[6,7].value:=FormatDateTime('YYYY-MM-DD',Now);
    ExcelTemplet.WorkSheets[1].Cells[9,2].value:=t_ch_accept.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'/'+t_ch_accept.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
    ExcelTemplet.WorkSheets[1].Cells[10,2].value:=t_ch_accept.DataSource.DataSet.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString;
    ExcelTemplet.WorkSheets[1].Cells[11,2].value:=FormatDateTime('YYYY-MM-DD',t_ch_accept.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
    t_ch_client.First;
    while not t_ch_client.eof do begin
      if t_ch_client['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']='<27><><EFBFBD>˷<EFBFBD>' then
        ExcelTemplet.WorkSheets[1].Cells[13,2].value:=FormatFloat('#,##0.00;-#,##0.00',t_ch_client['<27><><EFBFBD><EFBFBD>']);
      if t_ch_client['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
        ExcelTemplet.WorkSheets[1].Cells[14,2].value:=FormatFloat('#,##0.00;-#,##0.00',t_ch_client['<27><><EFBFBD><EFBFBD>']);
      if (t_ch_client['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') or (t_ch_client['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') then
        ExcelTemplet.WorkSheets[1].Cells[15,2].value:=FormatFloat('#,##0.00;-#,##0.00',t_ch_client['<27><><EFBFBD><EFBFBD>']);
      if t_ch_client['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']='<27><>֤<EFBFBD><D6A4>' then
        ExcelTemplet.WorkSheets[1].Cells[16,2].value:=FormatFloat('#,##0.00;-#,##0.00',t_ch_client['<27><><EFBFBD><EFBFBD>']);
      if t_ch_client['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']='<27>ļ<EFBFBD><C4BC><EFBFBD>' then
        ExcelTemplet.WorkSheets[1].Cells[17,2].value:=FormatFloat('#,##0.00;-#,##0.00',t_ch_client['<27><><EFBFBD><EFBFBD>']);
      if t_ch_client['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']='ǩ<><C7A9><EFBFBD><EFBFBD>' then
        ExcelTemplet.WorkSheets[1].Cells[18,2].value:=FormatFloat('#,##0.00;-#,##0.00',t_ch_client['<27><><EFBFBD><EFBFBD>']);
      if t_ch_client['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']='<27><><EFBFBD>ŷ<EFBFBD>' then
        ExcelTemplet.WorkSheets[1].Cells[19,2].value:=FormatFloat('#,##0.00;-#,##0.00',t_ch_client['<27><><EFBFBD><EFBFBD>']);
      if (t_ch_client['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']='<27>ĵ<EFBFBD><C4B5><EFBFBD>') or (t_ch_client['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']='<27><><EFBFBD>ķ<EFBFBD>') then
        ExcelTemplet.WorkSheets[1].Cells[20,2].value:=FormatFloat('#,##0.00;-#,##0.00',t_ch_client['<27><><EFBFBD><EFBFBD>']);
      if t_ch_client['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']='THC' then
        ExcelTemplet.WorkSheets[1].Cells[21,2].value:=FormatFloat('#,##0.00;-#,##0.00',t_ch_client['<27><><EFBFBD><EFBFBD>']);
      if t_ch_client['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']='AMS' then
        ExcelTemplet.WorkSheets[1].Cells[22,2].value:=FormatFloat('#,##0.00;-#,##0.00',t_ch_client['<27><><EFBFBD><EFBFBD>']);
      if t_ch_client['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']='<27><>վ<EFBFBD><D5BE>' then
        ExcelTemplet.WorkSheets[1].Cells[23,2].value:=FormatFloat('#,##0.00;-#,##0.00',t_ch_client['<27><><EFBFBD><EFBFBD>']);
      if t_ch_client['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']='<27><><EFBFBD>ӷ<EFBFBD>' then
        ExcelTemplet.WorkSheets[1].Cells[24,2].value:=FormatFloat('#,##0.00;-#,##0.00',t_ch_client['<27><><EFBFBD><EFBFBD>']);
      if t_ch_client['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']='<27><><EFBFBD>ط<EFBFBD>' then
        ExcelTemplet.WorkSheets[1].Cells[25,2].value:=FormatFloat('#,##0.00;-#,##0.00',t_ch_client['<27><><EFBFBD><EFBFBD>']);
      if t_ch_client['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']='<27><>ʹ<EFBFBD><CAB9>' then
        ExcelTemplet.WorkSheets[1].Cells[26,2].value:=FormatFloat('#,##0.00;-#,##0.00',t_ch_client['<27><><EFBFBD><EFBFBD>']);
      if (t_ch_client['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') OR (t_ch_client['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']='<27>ۿڰ<DBBF>ȫ<EFBFBD><C8AB>') then
        ExcelTemplet.WorkSheets[1].Cells[27,2].value:=FormatFloat('#,##0.00;-#,##0.00',t_ch_client['<27><><EFBFBD><EFBFBD>']);
      if (t_ch_client['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2>') OR (t_ch_client['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']='<27><>Ϣ<EFBFBD><CFA2>') then
        ExcelTemplet.WorkSheets[1].Cells[28,2].value:=FormatFloat('#,##0.00;-#,##0.00',t_ch_client['<27><><EFBFBD><EFBFBD>']);
      if t_ch_client['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']='Ǧ<><C7A6><EFBFBD><EFBFBD>' then
        ExcelTemplet.WorkSheets[1].Cells[29,2].value:=FormatFloat('#,##0.00;-#,##0.00',t_ch_client['<27><><EFBFBD><EFBFBD>']);
      if (t_ch_client['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']='<27>豸<EFBFBD><E8B1B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') or (t_ch_client['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']='<27>豸<EFBFBD><E8B1B8><EFBFBD><EFBFBD>') then
        ExcelTemplet.WorkSheets[1].Cells[30,2].value:=FormatFloat('#,##0.00;-#,##0.00',t_ch_client['<27><><EFBFBD><EFBFBD>']);
      if (t_ch_client['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']='ָ<><D6B8><EFBFBD><EFBFBD><EFBFBD>ŷ<EFBFBD>') or  (t_ch_client['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']='ָ<><D6B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') then
        ExcelTemplet.WorkSheets[1].Cells[31,2].value:=FormatFloat('#,##0.00;-#,##0.00',t_ch_client['<27><><EFBFBD><EFBFBD>']);
      if (t_ch_client['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') or (t_ch_client['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']='<27><><EFBFBD><EFBFBD>') then
        ExcelTemplet.WorkSheets[1].Cells[32,2].value:=FormatFloat('#,##0.00;-#,##0.00',t_ch_client['<27><><EFBFBD><EFBFBD>']);
      if (t_ch_client['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']='Ѭ<><D1AC><EFBFBD><EFBFBD><EFBFBD>ط<EFBFBD>') or (t_ch_client['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']='Ѭ<><D1AC><EFBFBD><EFBFBD>') then
        ExcelTemplet.WorkSheets[1].Cells[33,2].value:=FormatFloat('#,##0.00;-#,##0.00',t_ch_client['<27><><EFBFBD><EFBFBD>']);
      if t_ch_client['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']='װж<D7B0><D0B6>' then
        ExcelTemplet.WorkSheets[1].Cells[34,2].value:=FormatFloat('#,##0.00;-#,##0.00',t_ch_client['<27><><EFBFBD><EFBFBD>']);
      if t_ch_client['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
        ExcelTemplet.WorkSheets[1].Cells[35,2].value:=FormatFloat('#,##0.00;-#,##0.00',t_ch_client['<27><><EFBFBD><EFBFBD>']);
      if t_ch_client['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']='<27>ᵹ<EFBFBD><E1B5B9>' then
        ExcelTemplet.WorkSheets[1].Cells[36,2].value:=FormatFloat('#,##0.00;-#,##0.00',t_ch_client['<27><><EFBFBD><EFBFBD>']);
      if t_ch_client['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']='<27>յ<EFBFBD><D5B5><EFBFBD>' then
        ExcelTemplet.WorkSheets[1].Cells[37,2].value:=FormatFloat('#,##0.00;-#,##0.00',t_ch_client['<27><><EFBFBD><EFBFBD>']);
      if t_ch_client['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']='<27>Ӽ<EFBFBD><D3BC><EFBFBD>' then
        ExcelTemplet.WorkSheets[1].Cells[38,2].value:=FormatFloat('#,##0.00;-#,##0.00',t_ch_client['<27><><EFBFBD><EFBFBD>']);

      t_ch_client.Next;
    end;

    ExcelTemplet.WorkSheets[1].Cells[40,2].value:=FormatFloat('#,##0.00;-#,##0.00',t_ch_client_sum['<27>ϼ<EFBFBD>RMB']);
    ExcelTemplet.WorkSheets[1].Cells[41,2].value:=FormatFloat('#,##0.00;-#,##0.00',t_ch_client_sum['<27>ϼ<EFBFBD>USD']);

  except
    Showmessage('<27><>ȷ<EFBFBD><C8B7>HIGHTRANS.xls<6C>ļ<EFBFBD><C4BC>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ԡ<EFBFBD>');
    ExcelTemplet.DisplayAlerts := false;//<2F>Ƿ<EFBFBD><C7B7><EFBFBD>ʾ<EFBFBD><CABE><EFBFBD><EFBFBD>
    ExcelTemplet.Quit;//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˳<EFBFBD>
  end;

end;

procedure Tfra_fee.t_ch_acceptDSDesigner5Change(Sender: TField);
begin
  if (t_ch_accept.state=dsinsert)or(t_ch_accept.state=dsedit) then
  begin
    if not frm_data_share.t_code_fee.IsEmpty then
    if frm_data_share.t_code_fee.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo1.text,[]) then
    begin
      t_ch_accept['<27>ұ<EFBFBD>']:=frm_data_share.t_code_fee.fieldbyname('Ĭ<>ϱұ<CFB1>').asstring;

      if frm_data_share.t_code_fee.fieldbyname('<27>շѿͻ<D1BF>').asstring<>''then
      begin
        if t_bz_client.Locate('two',frm_data_share.t_code_fee.fieldbyname('<27>շѿͻ<D1BF>').asstring,[])then
        begin
          t_ch_accept['<27><><EFBFBD>㵥λ']:=frm_data_share.t_code_fee.fieldbyname('<27>շѿͻ<D1BF>').asstring;
          t_ch_accept['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=t_bz_client.fieldbyname('three').asstring;
        end;
      end;
    end;



  end;
end;

procedure Tfra_fee.t_ch_payDSDesigner5Change(Sender: TField);
begin
  if (t_ch_pay.state=dsinsert)or(t_ch_pay.state=dsedit) then
  begin
    if not frm_data_share.t_code_fee.IsEmpty then
    if frm_data_share.t_code_fee.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo6.text,[]) then
    begin
      t_ch_pay['<27>ұ<EFBFBD>']:=frm_data_share.t_code_fee.fieldbyname('Ĭ<>ϱұ<CFB1>').asstring;
      if frm_data_share.t_code_fee.fieldbyname('<27><><EFBFBD>ѿͻ<D1BF>').asstring<>''then
      begin
        if t_bz_client.Locate('two',frm_data_share.t_code_fee.fieldbyname('<27><><EFBFBD>ѿͻ<D1BF>').asstring,[])then
        begin
          t_ch_pay['<27><><EFBFBD>㵥λ']:=frm_data_share.t_code_fee.fieldbyname('<27><><EFBFBD>ѿͻ<D1BF>').asstring;
          t_ch_pay['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=t_bz_client.fieldbyname('three').asstring;
        end;
      end;
    end;
  end;
end;

procedure Tfra_fee.N124Click(Sender: TObject);
var
  aQuery:TADOQuery;
begin
  aQuery:=CreateAdoQuery;
  try
    with aQuery do begin
      aQuery.Close;
      aQuery.SQL.Clear;
      aQuery.SQL.Add('select <20><>Ӷ<EFBFBD><D3B6>׼ from t_crm_client where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='''+t_ch_pay.DataSource.DataSet['ί<>е<EFBFBD>λ']+'''');
      aQuery.Open;
      if (not aQuery.FieldByName('<27><>Ӷ<EFBFBD><D3B6>׼').IsNull) and (aQuery.FieldByName('<27><>Ӷ<EFBFBD><D3B6>׼').AsFloat<>0) then begin
        t_ch_pay.Append;
        t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><>Ӷ';
        t_ch_pay['<27><><EFBFBD>㵥λ']:='ί<>е<EFBFBD>λ';
        t_ch_pay['<27>ұ<EFBFBD>']:='USD';
        t_ch_pay['<27><>׼']:='<27>ƷѶ<C6B7>';
        if s_w(4,t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat/1000)>t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat then
          begin
            if s_w(4,t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat/1000)>1 then
              t_ch_pay['<27><><EFBFBD><EFBFBD>']:=s_w(4,t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat/1000)
            else
              t_ch_pay['<27><><EFBFBD><EFBFBD>']:=1;
          end
          else
          begin
            if t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat>1 then
              t_ch_pay['<27><><EFBFBD><EFBFBD>']:=t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
            else
              t_ch_pay['<27><><EFBFBD><EFBFBD>']:=1;
          end;
       t_ch_pay['<27><><EFBFBD><EFBFBD>']:=getUsdExRate(t_ch_pay.DataSource.DataSet.fieldbyname('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
       t_ch_pay['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_pay.DataSource.DataSet['ί<>е<EFBFBD>λ'];
       t_ch_pay['<27><><EFBFBD><EFBFBD>']:=aQuery.FieldByName('<27><>Ӷ<EFBFBD><D3B6>׼').AsFloat;
       t_ch_pay.post;
      end;
    end;
  finally
    FreeAndNil(aQuery);
  end;


end;

procedure Tfra_fee.DBEdit48Change(Sender: TObject);
begin
  if t_ch_pay.IsEmpty then
  begin
    ap_price_view.Visible:=false;
    ap_price_view.Align:=alNone;
    exit;
  end;
  if t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='Ӷ<><D3B6>'then
  begin
    ap_price_view.Visible:=true;
    ap_price_view.Align:=alRight;
    exit;
  end else begin
    ap_price_view.Visible:=false;
    ap_price_view.Align:=alNone;
  end;

end;

procedure Tfra_fee.t_ch_acceptAfterOpen(DataSet: TDataSet);
begin
  t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OnChange:=t_ch_acceptDSDesigner5Change;
   getsumstr;

end;

procedure Tfra_fee.t_ch_payAfterOpen(DataSet: TDataSet);
begin
  t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OnChange:=t_ch_payDSDesigner5Change;
  getsumstr;

end;

procedure Tfra_fee.iszeroprofit;
var
  aQuery,aQuery2:TAdoQuery;
  str,emp,mail:String;
  function isquanxian(empl:String):Boolean;
  var
    aQuery3:TAdoQuery;
  begin
    result:=false;
    aQuery3:=CreateAdoQuery;
    try
      with aQuery3 do begin
        Close;SQL.Clear;
        SQL.Add('Select * from t_sys_code_data where <20><><EFBFBD><EFBFBD>=''0001'' and ְԱ='''+employee+''' and <20><>Ա='''+empl+'''');
        Open;
        if not IsEmpty then begin
          Result:=aQuery3['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>'];
        end;
      end;
    finally
      FreeAndNil(aQuery3);
    end;
  end;
begin
  aQuery:=CreateAdoQuery;
  aQuery2:=CreateAdoQuery;

  frmzeroprofit:=Tfrmzeroprofit.Create(self);
  try
    frmzeroprofit.ShowModal;
    if frmzeroprofit.ModalResult=mrOk then begin
      str:=frmzeroprofit.Memo1.Lines.CommaText;
    end;
  finally
    FreeAndNil(frmzeroprofit);
  end;
  try
    aQuery.Close;
    aQuery.SQL.Clear;
    aQuery.SQL.Add('Select * from t_sys_awoke where <20><><EFBFBD><EFBFBD>״̬=''׼<><D7BC>ִ<EFBFBD><D6B4>'' AND <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' AND <20><>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><='''+FormatDateTime('YYYY-MM-DD',NOW)+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='''+FormatDateTime('YYYY-MM-DD',NOW)+'''');
    aQuery.Open;
    if not aQuery.IsEmpty then begin
        SMTP1.AuthType := satDefault;       //(satNone, satDefault, satSASL);

//        SMTP1.AuthenticationType := atLogin;
        SMTP1.username:= frm_data_share.t_sys_company.FieldByName('<27><>¼<EFBFBD>û<EFBFBD><C3BB><EFBFBD>').AsString;
        SMTP1.Password :=frm_data_share.t_sys_company.FieldByName('<27><>¼<EFBFBD><C2BC><EFBFBD><EFBFBD>').AsString;

        SMTP1.Host :=frm_data_share.t_sys_company.FieldByName('SMTP<54><50><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ').AsString;
        SMTP1.Port :=Strtointdef(Trim(frm_data_share.t_sys_company.FieldByName('SMTP<54><50><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˿<EFBFBD>').AsString),25);
        try
          SMTP1.Connect;
        except
          Showmessage('<27><><EFBFBD><EFBFBD>SMTP<54><50><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!');
          Exit;
        end;
        try
        with IdMsg do
        begin
          From.address :=frm_data_share.t_sys_company.FieldByName('SMTP<54><50><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
          aQuery2.Close;
          aQuery2.SQL.Clear;
          aQuery2.SQL.Add('Select * from t_sys_awoke_emp where AWOKE_ID='+aQuery.FieldByName('AWOKE_ID').AsString);
          aQuery2.Open;
          aQuery2.first;
          while not aQuery2.eof do begin
           if aQuery2.FieldByName('<27><><EFBFBD>ݷ<EFBFBD>Χ').AsString='<27><>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>' then begin
             emp:=aQuery2.FieldByName('<27><>Ա').AsString;
             if mail='' then
               mail:=GetEmail(emp)
             else
               mail:=mail+','+GetEmail(emp);
            end else if aQuery2.FieldByName('<27><><EFBFBD>ݷ<EFBFBD>Χ').AsString='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then begin
              if GetDeptName(aQuery2.FieldByName('<27><>Ա').AsString)=department then begin
                emp:=aQuery2.FieldByName('<27><>Ա').AsString;
                if mail='' then
                  mail:=GetEmail(emp)
                else
                  mail:=mail+','+GetEmail(emp);
              end;
            end else if aQuery2.FieldByName('<27><><EFBFBD>ݷ<EFBFBD>Χ').AsString='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then begin
              if aQuery2.FieldByName('<27><>Ա').AsString=employee then begin
                emp:=aQuery2.FieldByName('<27><>Ա').AsString;
                if mail='' then
                  mail:=GetEmail(emp)
                else
                  mail:=mail+','+GetEmail(emp);
              end;
            end else if aQuery2.FieldByName('<27><><EFBFBD>ݷ<EFBFBD>Χ').AsString='Ȩ<><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then begin
              if isquanxian(aQuery2.FieldByName('<27><>Ա').AsString) then begin
                emp:=aQuery2.FieldByName('<27><>Ա').AsString;
                if mail='' then
                  mail:=GetEmail(emp)
                else
                  mail:=mail+','+GetEmail(emp);
              end;
            end;

           aQuery2.Next;
         end;
         Recipients.EMailAddresses:=mail;
         Body.Clear;
         Body.Add('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+t_ch_accept.DataSource.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+' Ϊ<><CEAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭ<><D4AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:');
         Body.Add(Str);
         Subject :=aQuery.fieldByName('<27><><EFBFBD>ѱ<EFBFBD><D1B1><EFBFBD>').AsString;
         end;
         SMTP1.Send(IdMsg);
         finally
//           showmessage(mail);
           SMTP1.Disconnect;
          end;



{
        NMSMTP1.Host:=frm_data_share.t_sys_company.FieldByName('SMTP<54><50><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ').AsString;
        NMSMTP1.Port:=Strtointdef(Trim(frm_data_share.t_sys_company.FieldByName('SMTP<54><50><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˿<EFBFBD>').AsString),25);
        if NMSMTP1.Connected then
         begin
           NMSMTP1.Disconnect;
         end;
         NMSMTP1.Connect;
         NMSMTP1.PostMessage.FromAddress :=frm_data_share.t_sys_company.FieldByName('SMTP<54><50><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
         NMSMTP1.PostMessage.FromName :='<27>ʼ<EFBFBD><CABC>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>';
         NMSMTP1.PostMessage.ToAddress.Clear;
         aQuery2.Close;
         aQuery2.SQL.Clear;
         aQuery2.SQL.Add('Select * from t_sys_awoke_emp where AWOKE_ID='+aQuery.FieldByName('AWOKE_ID').AsString);
         aQuery2.Open;
         while not aQuery2.eof do begin
           emp:=aQuery2.FieldByName('<27><>Ա').AsString;
           mail:=GetEmail(emp);
           NMSMTP1.PostMessage.ToAddress.Add(mail);
           aQuery2.Next;
         end;
         NMSMTP1.PostMessage.Body.Clear;
         NMSMTP1.PostMessage.Body.Add('ί<>б<EFBFBD><D0B1><EFBFBD>:'+t_ch_accept.DataSource.DataSet.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString+' Ϊ<><CEAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭ<><D4AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:');
         NMSMTP1.PostMessage.Body.Add(Str);
         NMSMTP1.PostMessage.Subject :=aQuery.fieldByName('<27><><EFBFBD>ѱ<EFBFBD><D1B1><EFBFBD>').AsString;
         NMSMTP1.SendMail;
}
    end;
  finally
    FreeAndNil(aQuery);
    FreeAndNil(aQuery2);
  end;

end;

procedure Tfra_fee.t_ch_acceptdjoncharge(Sender: TField);
begin
  //<2F>շѽ<D5B7><D1BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
  if (Sender.DataSet.state=dsedit)or(Sender.DataSet.state=dsinsert)then
  begin
    try
      Sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=nil;
      Sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=nil;
      if (Sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat<>0) and (Sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat<>0)then
        Sender.DataSet['<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>']:=s_w(strtoint(apointnum),Sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*Sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat)
       else
        Sender.DataSet['<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>']:=s_w(strtoint(apointnum),Sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);

       Sender.DataSet['˰<><CBB0>']:=s_w(strtoint(apointnum),Sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>').asfloat/100*Sender.DataSet.fieldbyname('˰<><CBB0>').asfloat);

       Sender.DataSet['<27><><EFBFBD><EFBFBD>']:=s_w(strtoint(apointnum),Sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>').asfloat+Sender.DataSet.fieldbyname('˰<><CBB0>').asfloat);
    finally
//      Sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=DatasetAmtcharge;
      Sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=t_ch_acceptdjoncharge;
    end;
  end;
end;

procedure Tfra_fee.t_ch_paydjoncharge(Sender: TField);
begin
  if (Sender.DataSet.state=dsedit)or(Sender.DataSet.state=dsinsert)then
  begin
    try
      Sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=nil;
      Sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=nil;
      if (Sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat<>0) and (Sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat<>0)then
        Sender.DataSet['<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>']:=s_w(strtoint(apointnum),Sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*Sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat)
       else
        Sender.DataSet['<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>']:=s_w(strtoint(apointnum),Sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);

       Sender.DataSet['˰<><CBB0>']:=s_w(strtoint(apointnum),Sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>').asfloat*Sender.DataSet.fieldbyname('˰<><CBB0>').asfloat/100);
       Sender.DataSet['<27><><EFBFBD><EFBFBD>']:=s_w(strtoint(apointnum),Sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>').asfloat+Sender.DataSet.fieldbyname('˰<><CBB0>').asfloat);

    finally
//      Sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=DatasetAmtcharge;
      Sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=t_ch_paydjoncharge;
    end;
  end;
end;

{
      if   UpperCase(Sender.DataSet.Name)='T_CH_PAY' then
         wwDBGrid2.Refresh
      else  wwDBGrid1.Refresh;
 }

procedure Tfra_fee.DatasetAmtcharge(Sender: TField);
begin
  if not Sender.DataSet.IsEmpty then
  if (Sender.DataSet.state=dsedit)or(Sender.DataSet.state=dsinsert)then
  begin
    if Sender.DataSet.fieldbyname('˰<><CBB0>').asfloat<>0 then begin
      Sender.DataSet['<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>']:=s_w(strtoint(apointnum),Sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat/(1+Sender.DataSet.fieldbyname('˰<><CBB0>').asfloat/100));
      Sender.DataSet['˰<><CBB0>']:=s_w(strtoint(apointnum),Sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat-Sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>').asfloat);
    end else begin
      Sender.DataSet['˰<><CBB0>']:=0;
      Sender.DataSet['<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>']:=s_w(strtoint(apointnum),Sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
    end;

    try
      Sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=nil;
      Sender.DataSet.FieldByName('˰<><CBB0>').OnChange:=nil;
      Sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=nil;

     if Sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat<>0 then
        Sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').asfloat:=Sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>').asfloat/Sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
    finally
      if   UpperCase(Sender.DataSet.Name)='T_CH_ACCEPT' then
      begin
         Sender.DataSet.FieldByName('˰<><CBB0>').OnChange:=t_ch_acceptdjoncharge;
         Sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=t_ch_acceptdjoncharge;
         Sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=t_ch_acceptdjoncharge;
      end
      else
      begin
         Sender.DataSet.FieldByName('˰<><CBB0>').OnChange:=t_ch_paydjoncharge;
         Sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=t_ch_paydjoncharge;
         Sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=t_ch_paydjoncharge;
      end;
    end;
{
  if   UpperCase(Sender.DataSet.Name)='T_CH_PAY' then
     wwDBGrid2.Refresh
  else  wwDBGrid1.Refresh;
}
  end;
end;

procedure Tfra_fee.t_ch_acceptcrmcharge(Sender: TField);//<2F>շѽ<D5B7><D1BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
begin
  if not Sender.DataSet.IsEmpty then
  if (Sender.DataSet.state=dsedit)or(Sender.DataSet.state=dsinsert)then
  begin
    case StrToInt(edit_type.text) of
      1,2:
        begin
          if   UpperCase(Sender.DataSet.Name)='T_CH_ACCEPT' then
          begin
            if frm_data_share.t_crm_client.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',Sender.DataSet.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>˾').AsString,[]) then
            begin
              Sender.DataSet['˰<><CBB0>']:=frm_data_share.t_crm_client.fieldbyname('Ĭ<><C4AC>˰<EFBFBD><CBB0>').AsFloat;
//              Sender.DataSet['<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>']:=frm_data_share.t_sys_company.fieldbyname('˰<><CBB0>').AsFloat;
            end
            else
            if frm_data_share.t_crm_client.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',Sender.DataSet.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString,[]) then
            begin
              Sender.DataSet['˰<><CBB0>']:=frm_data_share.t_crm_client.fieldbyname('Ĭ<><C4AC>˰<EFBFBD><CBB0>').AsFloat;
//              Sender.DataSet['<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>']:=frm_data_share.t_sys_company.fieldbyname('˰<><CBB0>').AsFloat;
            end
            else
            begin
             Sender.DataSet['˰<><CBB0>']:=aRateNum;
//             Sender.DataSet['<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>']:=frm_data_share.t_sys_company.fieldbyname('˰<><CBB0>').AsFloat;
            end;
          end
          else
          begin
            if frm_data_share.t_crm_client.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',Sender.DataSet.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString,[]) then
            begin
              Sender.DataSet['˰<><CBB0>']:=frm_data_share.t_crm_client.fieldbyname('Ĭ<><C4AC>˰<EFBFBD><CBB0>').AsFloat;
//              Sender.DataSet['<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>']:=frm_data_share.t_sys_company.fieldbyname('˰<><CBB0>').AsFloat;
            end
            else
            begin
             Sender.DataSet['˰<><CBB0>']:=aRateNum;
//             Sender.DataSet['<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>']:=frm_data_share.t_sys_company.fieldbyname('˰<><CBB0>').AsFloat;
            end;
          end;
        end;
      3,4:
      begin
        if UpperCase(Sender.DataSet.Name)='T_CH_ACCEPT' then
        begin
            if frm_data_share.t_crm_client.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',Sender.DataSet.DataSource.DataSet.fieldbyname('<27><><EFBFBD>չ<EFBFBD>˾').AsString,[]) then
            begin
              Sender.DataSet['˰<><CBB0>']:=frm_data_share.t_crm_client.fieldbyname('Ĭ<><C4AC>˰<EFBFBD><CBB0>').AsFloat;
//              Sender.DataSet['<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>']:=frm_data_share.t_sys_company.fieldbyname('˰<><CBB0>').AsFloat;
            end
            else
            if frm_data_share.t_crm_client.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',Sender.DataSet.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString,[]) then
            begin
              Sender.DataSet['˰<><CBB0>']:=frm_data_share.t_crm_client.fieldbyname('Ĭ<><C4AC>˰<EFBFBD><CBB0>').AsFloat;
//              Sender.DataSet['<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>']:=frm_data_share.t_sys_company.fieldbyname('˰<><CBB0>').AsFloat;
            end
            else
            begin
             Sender.DataSet['˰<><CBB0>']:=aRateNum;
//             Sender.DataSet['<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>']:=frm_data_share.t_sys_company.fieldbyname('˰<><CBB0>').AsFloat;
            end;
        end
        else
        begin
          if frm_data_share.t_crm_client.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',Sender.DataSet.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString,[]) then
          begin
            Sender.DataSet['˰<><CBB0>']:=frm_data_share.t_crm_client.fieldbyname('Ĭ<><C4AC>˰<EFBFBD><CBB0>').AsFloat;
//            Sender.DataSet['<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>']:=frm_data_share.t_sys_company.fieldbyname('˰<><CBB0>').AsFloat;
          end
          else
          begin
            Sender.DataSet['˰<><CBB0>']:=aRateNum;
//            Sender.DataSet['<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>']:=frm_data_share.t_sys_company.fieldbyname('˰<><CBB0>').AsFloat;
          end;
        end;
      end
      else
      begin
       Sender.DataSet['˰<><CBB0>']:=aRateNum;
//        Sender.DataSet['<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>']:=frm_data_share.t_sys_company.fieldbyname('˰<><CBB0>').AsFloat;
      end;
    end;
{
    if   UpperCase(Sender.DataSet.Name)='T_CH_PAY' then
      wwDBGrid2.Refresh
    else  wwDBGrid1.Refresh;
}
  end;


end;


procedure Tfra_fee.DatasetNOPricecharge(Sender: TField);//<2F>շѽ<D5B7><D1BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
begin

end;

procedure Tfra_fee.getsumstr;
var
  aQuery1,aQuery2:TAdoQuery;
  str1,str2:string;
  acceptstr,paystr:widestring;
  accepteof,payeof:boolean;
  armb,ausd,aot,atotal,prmb,pusd,pot,ptotal,rarmb,rausd,raot,ratotal,rprmb,rpusd,rpot,rptotal:double;
begin
  //<2F><><EFBFBD><EFBFBD><EFBFBD>²<EFBFBD><C2B2>ϼ<EFBFBD><CFBC>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
  if not bsSkinPanel3.Visible then exit;
  memo1.Lines.Clear;
  if (t_ch_accept.IsEmpty or (not t_ch_accept.Active)) and (t_ch_pay.IsEmpty or (not t_ch_pay.Active)) then exit;
  aQuery1:=CreateAdoQuery;
  aQuery2:=CreateAdoQuery;

  armb:=0;
  ausd:=0;
  aot:=0;
  atotal:=0;
  prmb:=0;
  pusd:=0;
  pot:=0;
  ptotal:=0;
  rarmb:=0;
  rausd:=0;
  raot:=0;
  ratotal:=0;
  rprmb:=0;
  rpusd:=0;
  rpot:=0;
  rptotal:=0;


  try
    accepteof:=false;
    payeof:=false;
    if (t_ch_accept.IsEmpty or (not t_ch_accept.Active)) then
      aQuery1.SQL.Text:='select <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,sum(case <20>ұ<EFBFBD> when ''RMB'' then <20><><EFBFBD><EFBFBD> else 0 end) as <20><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>,'
      +'sum(case <20>ұ<EFBFBD> when ''USD'' then <20><><EFBFBD><EFBFBD> else 0 end) as <20><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>,'
      +'sum(case <20>ұ<EFBFBD> when ''USD'' then 0 else (case <20>ұ<EFBFBD> when ''RMB'' then 0 else <20><><EFBFBD><EFBFBD> end) end) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
      +'sum(<28><><EFBFBD><EFBFBD>*<2A><><EFBFBD><EFBFBD>) as <20>ϼƽ<CFBC><C6BD><EFBFBD>'
      +',sum(case <20>ұ<EFBFBD> when ''RMB'' then ˰<><CBB0> else 0 end) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>,'
      +'sum(case <20>ұ<EFBFBD> when ''USD'' then ˰<><CBB0> else 0 end) as <20><>Ԫ˰<D4AA><CBB0>,'
      +'sum(case <20>ұ<EFBFBD> when ''USD'' then 0 else (case <20>ұ<EFBFBD> when ''RMB'' then 0 else ˰<><CBB0> end) end) as <20><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>,'
      +'sum(˰<><CBB0>*<2A><><EFBFBD><EFBFBD>) as <20>ϼ<EFBFBD>˰<EFBFBD><CBB0>'
      +' from t_ch_fee where 1=2 group by <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>'
    else begin
      acceptstr:=new_query(t_ch_accept);
      aQuery1.SQL.Text:='select <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,sum(case <20>ұ<EFBFBD> when ''RMB'' then <20><><EFBFBD><EFBFBD> else 0 end) as <20><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>,'
      +'sum(case <20>ұ<EFBFBD> when ''USD'' then <20><><EFBFBD><EFBFBD> else 0 end) as <20><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>,'
      +'sum(case <20>ұ<EFBFBD> when ''USD'' then 0 else (case <20>ұ<EFBFBD> when ''RMB'' then 0 else <20><><EFBFBD><EFBFBD> end) end) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
      +'sum(<28><><EFBFBD><EFBFBD>*<2A><><EFBFBD><EFBFBD>) as <20>ϼƽ<CFBC><C6BD><EFBFBD>'
      +',sum(case <20>ұ<EFBFBD> when ''RMB'' then ˰<><CBB0> else 0 end) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>,'
      +'sum(case <20>ұ<EFBFBD> when ''USD'' then ˰<><CBB0> else 0 end) as <20><>Ԫ˰<D4AA><CBB0>,'
      +'sum(case <20>ұ<EFBFBD> when ''USD'' then 0 else (case <20>ұ<EFBFBD> when ''RMB'' then 0 else ˰<><CBB0> end) end) as <20><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>,'
      +'sum(˰<><CBB0>*<2A><><EFBFBD><EFBFBD>) as <20>ϼ<EFBFBD>˰<EFBFBD><CBB0>'
      +' from t_ch_fee '+acceptstr+' group by <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>';
      aQuery1.DataSource:=t_ch_accept.DataSource;
    end;
    aQuery1.Open;
    aQuery1.first;

    if (t_ch_pay.IsEmpty or (not t_ch_pay.Active)) then
      aQuery2.SQL.Text:='select <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,sum(case <20>ұ<EFBFBD> when ''RMB'' then <20><><EFBFBD><EFBFBD> else 0 end) as <20><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>,'
      +'sum(case <20>ұ<EFBFBD> when ''USD'' then <20><><EFBFBD><EFBFBD> else 0 end) as <20><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>,'
      +'sum(case <20>ұ<EFBFBD> when ''USD'' then 0 else (case <20>ұ<EFBFBD> when ''RMB'' then 0 else <20><><EFBFBD><EFBFBD> end) end) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
      +'sum(<28><><EFBFBD><EFBFBD>*<2A><><EFBFBD><EFBFBD>) as <20>ϼƽ<CFBC><C6BD><EFBFBD>'
      +',sum(case <20>ұ<EFBFBD> when ''RMB'' then ˰<><CBB0> else 0 end) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>,'
      +'sum(case <20>ұ<EFBFBD> when ''USD'' then ˰<><CBB0> else 0 end) as <20><>Ԫ˰<D4AA><CBB0>,'
      +'sum(case <20>ұ<EFBFBD> when ''USD'' then 0 else (case <20>ұ<EFBFBD> when ''RMB'' then 0 else ˰<><CBB0> end) end) as <20><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>,'
      +'sum(˰<><CBB0>*<2A><><EFBFBD><EFBFBD>) as <20>ϼ<EFBFBD>˰<EFBFBD><CBB0>'
      +' from t_ch_fee where 1=2 group by <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>'
    else begin
      paystr:=new_query(t_ch_pay);
      aQuery2.SQL.Text:='select <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,sum(case <20>ұ<EFBFBD> when ''RMB'' then <20><><EFBFBD><EFBFBD> else 0 end) as <20><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>,'
      +'sum(case <20>ұ<EFBFBD> when ''USD'' then <20><><EFBFBD><EFBFBD> else 0 end) as <20><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>,'
      +'sum(case <20>ұ<EFBFBD> when ''USD'' then 0 else (case <20>ұ<EFBFBD> when ''RMB'' then 0 else <20><><EFBFBD><EFBFBD> end) end) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
      +'sum(<28><><EFBFBD><EFBFBD>*<2A><><EFBFBD><EFBFBD>) as <20>ϼƽ<CFBC><C6BD><EFBFBD>'
      +',sum(case <20>ұ<EFBFBD> when ''RMB'' then ˰<><CBB0> else 0 end) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>,'
      +'sum(case <20>ұ<EFBFBD> when ''USD'' then ˰<><CBB0> else 0 end) as <20><>Ԫ˰<D4AA><CBB0>,'
      +'sum(case <20>ұ<EFBFBD> when ''USD'' then 0 else (case <20>ұ<EFBFBD> when ''RMB'' then 0 else ˰<><CBB0> end) end) as <20><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>,'
      +'sum(˰<><CBB0>*<2A><><EFBFBD><EFBFBD>) as <20>ϼ<EFBFBD>˰<EFBFBD><CBB0>'
      +' from t_ch_fee '+paystr+' group by <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>';
      aQuery2.DataSource:=t_ch_pay.DataSource;
    end;
    aQuery2.Open;
    aQuery2.first;
    while (not aQuery1.Eof) or (not aQuery2.Eof) do begin
       if aQuery1.Eof then begin
           str1:=FixLenStr('',120);
       end else begin
         str1:=FixLenStr(aQuery1.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString,20)+' '+FixLenStr(FormatFloat('#,##0.00',aQuery1.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat),12,' ',false);
           if aQuery1.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>').Asfloat<>0 then
             str1:=str1+'(˰'+FixLenStr(FormatFloat('#,##0.00',aQuery1.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>').Asfloat),8,' ',false)+')'+' '+FixLenStr(FormatFloat('#,##0.00',aQuery1.fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat),12,' ',false)
           else
             str1:=str1+'            '+' '+FixLenStr(FormatFloat('#,##0.00',aQuery1.fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat),12,' ',false);
           if aQuery1.fieldbyname('<27><>Ԫ˰<D4AA><CBB0>').Asfloat<>0 then
             str1:=str1+'(˰'+FixLenStr(FormatFloat('#,##0.00',aQuery1.fieldbyname('<27><>Ԫ˰<D4AA><CBB0>').Asfloat),8,' ',false)+')'+' '+FixLenStr(FormatFloat('#,##0.00',aQuery1.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Asfloat),12,' ',false)
           else
             str1:=str1+'            '+' '+FixLenStr(FormatFloat('#,##0.00',aQuery1.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Asfloat),12,' ',false);
           if aQuery1.fieldbyname('<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>').Asfloat<>0 then
             str1:=str1+'(˰'+FixLenStr(FormatFloat('#,##0.00',aQuery1.fieldbyname('<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>').Asfloat),8,' ',false)+')'+' '+FixLenStr(FormatFloat('#,##0.00',aQuery1.fieldbyname('<27>ϼƽ<CFBC><C6BD><EFBFBD>').Asfloat),12,' ',false)
           else
             str1:=str1+'            '+' '+FixLenStr(FormatFloat('#,##0.00',aQuery1.fieldbyname('<27>ϼƽ<CFBC><C6BD><EFBFBD>').Asfloat),12,' ',false);

           if aQuery1.fieldbyname('<27>ϼ<EFBFBD>˰<EFBFBD><CBB0>').Asfloat<>0 then
             str1:=str1+'(˰'+FixLenStr(FormatFloat('#,##0.00',aQuery1.fieldbyname('<27>ϼ<EFBFBD>˰<EFBFBD><CBB0>').Asfloat),8,' ',false)+')'
           else
             str1:=str1+'            ';

         armb:=armb+aquery1.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').AsFloat;
         ausd:=ausd+aquery1.fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').AsFloat;
         aot:=aot+aquery1.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
         atotal:=atotal+aquery1.fieldbyname('<27>ϼƽ<CFBC><C6BD><EFBFBD>').AsFloat;
         rarmb:=rarmb+aquery1.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>').AsFloat;
         rausd:=rausd+aquery1.fieldbyname('<27><>Ԫ˰<D4AA><CBB0>').AsFloat;
         raot:=raot+aquery1.fieldbyname('<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>').AsFloat;
         ratotal:=ratotal+aquery1.fieldbyname('<27>ϼ<EFBFBD>˰<EFBFBD><CBB0>').AsFloat;

         aQuery1.Next;
       end;
       if aQuery2.Eof then begin
         str2:=FixLenStr('',120);
       end else begin
         str2:=FixLenStr(aQuery2.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString,20)+' '+FixLenStr(FormatFloat('#,##0.00',aQuery2.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat),12,' ',false);
           if aQuery2.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>').Asfloat<>0 then
             str2:=str2+'(˰'+FixLenStr(FormatFloat('#,##0.00',aQuery2.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>').Asfloat),8,' ',false)+')'+' '+FixLenStr(FormatFloat('#,##0.00',aQuery2.fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat),12,' ',false)
           else
             str2:=str2+'            '+' '+FixLenStr(FormatFloat('#,##0.00',aQuery2.fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat),12,' ',false);
           if aQuery2.fieldbyname('<27><>Ԫ˰<D4AA><CBB0>').Asfloat<>0 then
             str2:=str2+'(˰'+FixLenStr(FormatFloat('#,##0.00',aQuery2.fieldbyname('<27><>Ԫ˰<D4AA><CBB0>').Asfloat),8,' ',false)+')'+' '+FixLenStr(FormatFloat('#,##0.00',aQuery2.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Asfloat),12,' ',false)
           else
             str2:=str2+'            '+' '+FixLenStr(FormatFloat('#,##0.00',aQuery2.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Asfloat),12,' ',false);
           if aQuery2.fieldbyname('<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>').Asfloat<>0 then
             str2:=str2+'(˰'+FixLenStr(FormatFloat('#,##0.00',aQuery2.fieldbyname('<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>').Asfloat),8,' ',false)+')'+' '+FixLenStr(FormatFloat('#,##0.00',aQuery2.fieldbyname('<27>ϼƽ<CFBC><C6BD><EFBFBD>').Asfloat),12,' ',false)
           else
             str2:=str2+'            '+' '+FixLenStr(FormatFloat('#,##0.00',aQuery2.fieldbyname('<27>ϼƽ<CFBC><C6BD><EFBFBD>').Asfloat),12,' ',false);

           if aQuery2.fieldbyname('<27>ϼ<EFBFBD>˰<EFBFBD><CBB0>').Asfloat<>0 then
             str2:=str2+'(˰'+FixLenStr(FormatFloat('#,##0.00',aQuery2.fieldbyname('<27>ϼ<EFBFBD>˰<EFBFBD><CBB0>').Asfloat),8,' ',false)+')'
           else
             str2:=str2+'            ';


         prmb:=prmb+aquery2.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').AsFloat;
         pusd:=pusd+aquery2.fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').AsFloat;
         pot:=pot+aquery2.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
         ptotal:=ptotal+aquery2.fieldbyname('<27>ϼƽ<CFBC><C6BD><EFBFBD>').AsFloat;
         rprmb:=rprmb+aquery2.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>').AsFloat;
         rpusd:=rpusd+aquery2.fieldbyname('<27><>Ԫ˰<D4AA><CBB0>').AsFloat;
         rpot:=rpot+aquery2.fieldbyname('<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>').AsFloat;
         rptotal:=rptotal+aquery2.fieldbyname('<27>ϼ<EFBFBD>˰<EFBFBD><CBB0>').AsFloat;

         aQuery2.Next;
       end;
      memo1.Lines.Add(str1+'|'+str2);
    end;
    str1:=FixLenStr('-',120,'-');
    str2:=FixLenStr('-',120,'-');
    memo1.Lines.Add(str1+'|'+str2);

     str1:=FixLenStr('Ӧ<>պϼ<D5BA>',20)+' '+FixLenStr(FormatFloat('#,##0.00',armb),12,' ',false);
        if rarmb<>0 then
             str1:=str1+'(˰'+FixLenStr(FormatFloat('#,##0.00',rarmb),8,' ',false)+')'+' '+FixLenStr(FormatFloat('#,##0.00',ausd),12,' ',false)
           else
             str1:=str1+'            '+' '+FixLenStr(FormatFloat('#,##0.00',ausd),12,' ',false);
           if rausd<>0 then
             str1:=str1+'(˰'+FixLenStr(FormatFloat('#,##0.00',rausd),8,' ',false)+')'+' '+FixLenStr(FormatFloat('#,##0.00',aot),12,' ',false)
           else
             str1:=str1+'            '+' '+FixLenStr(FormatFloat('#,##0.00',aot),12,' ',false);
           if raot<>0 then
             str1:=str1+'(˰'+FixLenStr(FormatFloat('#,##0.00',raot),8,' ',false)+')'+' '+FixLenStr(FormatFloat('#,##0.00',atotal),12,' ',false)
           else
             str1:=str1+'            '+' '+FixLenStr(FormatFloat('#,##0.00',atotal),12,' ',false);

           if ratotal<>0 then
             str1:=str1+'(˰'+FixLenStr(FormatFloat('#,##0.00',ratotal),8,' ',false)+')'
           else
             str1:=str1+'            ';

    str2:=FixLenStr('Ӧ<><D3A6><EFBFBD>ϼ<EFBFBD>',20)+' '+FixLenStr(FormatFloat('#,##0.00',prmb),12,' ',false);
        if rprmb<>0 then
             str2:=str2+'(˰'+FixLenStr(FormatFloat('#,##0.00',rprmb),8,' ',false)+')'+' '+FixLenStr(FormatFloat('#,##0.00',pusd),12,' ',false)
           else
             str2:=str2+'            '+' '+FixLenStr(FormatFloat('#,##0.00',pusd),12,' ',false);
           if rpusd<>0 then
             str2:=str2+'(˰'+FixLenStr(FormatFloat('#,##0.00',rpusd),8,' ',false)+')'+' '+FixLenStr(FormatFloat('#,##0.00',pot),12,' ',false)
           else
             str2:=str2+'            '+' '+FixLenStr(FormatFloat('#,##0.00',pot),12,' ',false);
           if rpot<>0 then
             str2:=str2+'(˰'+FixLenStr(FormatFloat('#,##0.00',rpot),8,' ',false)+')'+' '+FixLenStr(FormatFloat('#,##0.00',ptotal),12,' ',false)
           else
             str2:=str2+'            '+' '+FixLenStr(FormatFloat('#,##0.00',ptotal),12,' ',false);

           if rptotal<>0 then
             str2:=str2+'(˰'+FixLenStr(FormatFloat('#,##0.00',rptotal),8,' ',false)+')'
           else
             str2:=str2+'            ';

   memo1.Lines.Add(str1+'|'+str2);



    str1:=FixLenStr('-',120,'-');
    str2:=FixLenStr('-',120,'-');
    memo1.Lines.Add(str1+'|'+str2);

    str1:=FixLenStr('<27><><EFBFBD><EFBFBD><EFBFBD>ϼ<EFBFBD>:',20)+' '+FixLenStr('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:',12,' ',false)
    +' '+FixLenStr(FormatFloat('#,##0.00',armb-prmb),12,' ',false)
    +' '+FixLenStr('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>:',12,' ',false)+' '+FixLenStr(FormatFloat('#,##0.00',ausd-pusd),12,' ',false)+FixLenStr('',48);
    str2:=FixLenStr('',19)+' '+FixLenStr('<27><><EFBFBD><EFBFBD><EFBFBD>ұ<EFBFBD><D2B1><EFBFBD><EFBFBD><EFBFBD>:',13,' ',false)+' '+FixLenStr(FormatFloat('#,##0.00',aot-pot),12,' ',false)
    +' '+FixLenStr('<27>ϼ<EFBFBD><CFBC><EFBFBD><EFBFBD><EFBFBD>:',12,' ',false)+' '+FixLenStr(FormatFloat('#,##0.00',atotal-ptotal),12,' ',false);

    if (edit_type.text='1') and if_open('226') then
    memo1.Lines.Add(str1+'|'+str2);
    if (edit_type.text='2') and if_open('227') then
    memo1.Lines.Add(str1+'|'+str2);
    if (edit_type.text='3') and if_open('228') then
    memo1.Lines.Add(str1+'|'+str2);
    if (edit_type.text='4') and if_open('229') then
    memo1.Lines.Add(str1+'|'+str2);

    if (edit_type.text='6') and if_open('229') then
      memo1.Lines.Add(str1+'|'+str2);



    if (edit_type.text='7') then
      memo1.Lines.Add(str1+'|'+str2);
  finally
    freeandnil(aQuery1);
    freeandnil(aQuery2);
  end;
  if memo1.Lines.Count>0 then begin
    str1:=FixLenStr('Ӧ<>տͻ<D5BF>',20)+' '+FixLenStr('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>            ',24,' ',false)+' '+FixLenStr('Ӧ<><D3A6><EFBFBD><EFBFBD>Ԫ            ',24,' ',false)+' '+FixLenStr('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>            ',24,' ',false)+' '+FixLenStr('Ӧ<>պϼ<D5BA>            ',24,' ',false);
    str2:=FixLenStr('Ӧ<><D3A6><EFBFBD>ͻ<EFBFBD>',20)+' '+FixLenStr('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>            ',24,' ',false)+' '+FixLenStr('Ӧ<><D3A6><EFBFBD><EFBFBD>Ԫ            ',24,' ',false)+' '+FixLenStr('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>            ',24,' ',false)+' '+FixLenStr('Ӧ<><D3A6><EFBFBD>ϼ<EFBFBD>            ',24,' ',false);
    Memo1.Lines.Insert(0,str1+'|'+str2);
  end;
end;

procedure Tfra_fee.NMSMTP1Connect(Sender: TObject);
var
  StrUserName,strPassword:String;
begin
{
  strUserName:=EncodeString(frm_data_share.t_sys_company.FieldByName('<27><>¼<EFBFBD>û<EFBFBD><C3BB><EFBFBD>').AsString);
  strPassword:=EncodeString(frm_data_share.t_sys_company.FieldByName('<27><>¼<EFBFBD><C2BC><EFBFBD><EFBFBD>').AsString);
  nmsmtp1.Transaction('EHLO')   ;
  nmsmtp1.Transaction('AUTH   LOGIN');
  nmsmtp1.Transaction(strUserName);
  nmsmtp1.Transaction(strPassword);
  }
end;

procedure Tfra_fee.DBEdit50Change(Sender: TObject);
begin
  getsumstr;
end;

procedure Tfra_fee.N126Click(Sender: TObject);
begin
   fee_invoicecr_view(t_ch_pay);
{
  if edit_type.text='1' then begin
     if not if_open('022') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='2' then begin
    if not if_open('055') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='3' then begin
    if not if_open('073') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end else if edit_type.text='4' then begin
    if not if_open('081') then
     begin
       showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
       abort;
    end;
  end;
  t_ch_accept.Edit;
  t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ').AsBoolean:=True;
  t_ch_accept.Post;
  }
end;

end.