D6HECHUAN/财务管理/u_cw_pingzheng.~pas

unit u_cw_pingzheng;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinCtrls, ComCtrls, bsSkinTabs, dxExEdtr, dxCntner, dxTL,
  dxDBCtrl, dxDBGrid, StdCtrls, wwdbdatetimepicker, RxLookup, DB, ADODB,
  dxDBTLCl, dxGrClms, Mask, wwdbedit, Wwdotdot, Wwdbcomb, Grids, DBGrids;

type
  Tfrm_cw_pingzheng = class(TForm)
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet1: TbsSkinTabSheet;
    bsSkinTabSheet2: TbsSkinTabSheet;
    bsSkinTabSheet3: TbsSkinTabSheet;
    bsSkinTabSheet4: TbsSkinTabSheet;
    bsSkinPanel1: TbsSkinPanel;
    dxDBGrid1: TdxDBGrid;
    Label10: TLabel;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    Label3: TLabel;
    Edit4: TEdit;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    Label5: TLabel;
    Label1: TLabel;
    Edit2: TEdit;
    Label8: TLabel;
    wwDBDateTimePicker3: TwwDBDateTimePicker;
    Label11: TLabel;
    wwDBDateTimePicker4: TwwDBDateTimePicker;
    t_op_seae: TADOQuery;
    t_op_seae1: TDataSource;
    dxDBGrid1Column1: TdxDBGridMaskColumn;
    dxDBGrid1Column2: TdxDBGridDateColumn;
    dxDBGrid1Column3: TdxDBGridMaskColumn;
    dxDBGrid1Column4: TdxDBGridMaskColumn;
    dxDBGrid1Column5: TdxDBGridMaskColumn;
    dxDBGrid1Column6: TdxDBGridMaskColumn;
    dxDBGrid1Column7: TdxDBGridMaskColumn;
    dxDBGrid1Column8: TdxDBGridDateColumn;
    dxDBGrid1Column9: TdxDBGridMaskColumn;
    dxDBGrid1Column10: TdxDBGridMaskColumn;
    dxDBGrid1Column11: TdxDBGridMaskColumn;
    dxDBGrid1Column12: TdxDBGridMaskColumn;
    dxDBGrid1Column13: TdxDBGridMaskColumn;
    dxDBGrid1Column14: TdxDBGridMaskColumn;
    t_yingshou: TADOQuery;
    t_yingshou1: TDataSource;
    t_cw_design: TADOQuery;
    t_cw_design1: TDataSource;
    t_cw_client: TADOQuery;
    t_cw_kemu_kehu1: TDataSource;
    t_op_seai: TADOQuery;
    t_op_seai1: TDataSource;
    t_op_airi1: TDataSource;
    t_op_airi: TADOQuery;
    t_op_aire: TADOQuery;
    t_op_aire1: TDataSource;
    db_cw: TADOConnection;
    T_Voucher_Main: TADOQuery;
    T_Voucher_fen: TADOQuery;
    T_Voucher_Max_num: TADOQuery;
    T_Currency: TADOQuery;
    T_Voucher_Max_seriel: TADOQuery;
    t_cw_load: TADOQuery;
    t_cw_load1: TDataSource;
    T_Voucher_Max: TADOQuery;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinButton5: TbsSkinButton;
    bsSkinPanel3: TbsSkinPanel;
    bsSkinButton10: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinPanel4: TbsSkinPanel;
    Label2: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    Label12: TLabel;
    wwDBDateTimePicker5: TwwDBDateTimePicker;
    Edit1: TEdit;
    wwDBDateTimePicker6: TwwDBDateTimePicker;
    Edit3: TEdit;
    wwDBDateTimePicker7: TwwDBDateTimePicker;
    wwDBDateTimePicker8: TwwDBDateTimePicker;
    bsSkinPanel5: TbsSkinPanel;
    bsSkinButton4: TbsSkinButton;
    bsSkinButton6: TbsSkinButton;
    bsSkinButton7: TbsSkinButton;
    bsSkinButton8: TbsSkinButton;
    dxDBGrid2: TdxDBGrid;
    dxDBGridMaskColumn1: TdxDBGridMaskColumn;
    dxDBGridDateColumn1: TdxDBGridDateColumn;
    dxDBGridMaskColumn2: TdxDBGridMaskColumn;
    dxDBGridMaskColumn3: TdxDBGridMaskColumn;
    dxDBGridMaskColumn4: TdxDBGridMaskColumn;
    dxDBGridMaskColumn5: TdxDBGridMaskColumn;
    dxDBGridMaskColumn6: TdxDBGridMaskColumn;
    dxDBGridDateColumn2: TdxDBGridDateColumn;
    dxDBGridMaskColumn7: TdxDBGridMaskColumn;
    dxDBGridMaskColumn8: TdxDBGridMaskColumn;
    dxDBGridMaskColumn9: TdxDBGridMaskColumn;
    dxDBGridMaskColumn10: TdxDBGridMaskColumn;
    dxDBGridMaskColumn11: TdxDBGridMaskColumn;
    dxDBGridMaskColumn12: TdxDBGridMaskColumn;
    bsSkinPanel6: TbsSkinPanel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    wwDBDateTimePicker9: TwwDBDateTimePicker;
    Edit5: TEdit;
    wwDBDateTimePicker10: TwwDBDateTimePicker;
    Edit6: TEdit;
    wwDBDateTimePicker11: TwwDBDateTimePicker;
    wwDBDateTimePicker12: TwwDBDateTimePicker;
    bsSkinPanel7: TbsSkinPanel;
    bsSkinButton9: TbsSkinButton;
    bsSkinButton11: TbsSkinButton;
    bsSkinButton12: TbsSkinButton;
    bsSkinButton13: TbsSkinButton;
    dxDBGrid3: TdxDBGrid;
    dxDBGridMaskColumn13: TdxDBGridMaskColumn;
    dxDBGridDateColumn3: TdxDBGridDateColumn;
    dxDBGridMaskColumn14: TdxDBGridMaskColumn;
    dxDBGridMaskColumn15: TdxDBGridMaskColumn;
    dxDBGridMaskColumn16: TdxDBGridMaskColumn;
    dxDBGridMaskColumn17: TdxDBGridMaskColumn;
    dxDBGridDateColumn4: TdxDBGridDateColumn;
    dxDBGridMaskColumn19: TdxDBGridMaskColumn;
    dxDBGridMaskColumn20: TdxDBGridMaskColumn;
    dxDBGridMaskColumn22: TdxDBGridMaskColumn;
    dxDBGridMaskColumn23: TdxDBGridMaskColumn;
    dxDBGridMaskColumn24: TdxDBGridMaskColumn;
    bsSkinPanel8: TbsSkinPanel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    wwDBDateTimePicker13: TwwDBDateTimePicker;
    Edit7: TEdit;
    wwDBDateTimePicker14: TwwDBDateTimePicker;
    Edit8: TEdit;
    wwDBDateTimePicker15: TwwDBDateTimePicker;
    wwDBDateTimePicker16: TwwDBDateTimePicker;
    bsSkinPanel9: TbsSkinPanel;
    bsSkinButton14: TbsSkinButton;
    bsSkinButton15: TbsSkinButton;
    bsSkinButton16: TbsSkinButton;
    bsSkinButton17: TbsSkinButton;
    dxDBGrid4: TdxDBGrid;
    dxDBGridMaskColumn18: TdxDBGridMaskColumn;
    dxDBGridDateColumn5: TdxDBGridDateColumn;
    dxDBGridMaskColumn21: TdxDBGridMaskColumn;
    dxDBGridMaskColumn25: TdxDBGridMaskColumn;
    dxDBGridMaskColumn26: TdxDBGridMaskColumn;
    dxDBGridMaskColumn27: TdxDBGridMaskColumn;
    dxDBGridDateColumn6: TdxDBGridDateColumn;
    dxDBGridMaskColumn28: TdxDBGridMaskColumn;
    dxDBGridMaskColumn29: TdxDBGridMaskColumn;
    dxDBGridMaskColumn30: TdxDBGridMaskColumn;
    dxDBGridMaskColumn31: TdxDBGridMaskColumn;
    dxDBGridMaskColumn32: TdxDBGridMaskColumn;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinPanel10: TbsSkinPanel;
    bsSkinPanel11: TbsSkinPanel;
    bsSkinButton18: TbsSkinButton;
    bsSkinButton19: TbsSkinButton;
    bsSkinButton20: TbsSkinButton;
    bsSkinButton21: TbsSkinButton;
    Label25: TLabel;
    Edit9: TEdit;
    Edit21: TEdit;
    Label65: TLabel;
    Label26: TLabel;
    wwDBDateTimePicker17: TwwDBDateTimePicker;
    Label27: TLabel;
    wwDBDateTimePicker18: TwwDBDateTimePicker;
    Label28: TLabel;
    wwDBComboBox1: TwwDBComboBox;
    Label29: TLabel;
    wwDBComboBox2: TwwDBComboBox;
    t_yingfu: TADOQuery;
    t_yingfu1: TDataSource;
    t_chengben1: TDataSource;
    t_chengben: TADOQuery;
    t_shouru: TADOQuery;
    t_shouru1: TDataSource;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    DBGrid4: TDBGrid;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bsSkinPageControl1Change(Sender: TObject);
    procedure bsSkinButton10Click(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton5Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton4Click(Sender: TObject);
    procedure bsSkinButton6Click(Sender: TObject);
    procedure bsSkinButton7Click(Sender: TObject);
    procedure bsSkinButton8Click(Sender: TObject);
    procedure bsSkinButton9Click(Sender: TObject);
    procedure bsSkinButton11Click(Sender: TObject);
    procedure bsSkinButton12Click(Sender: TObject);
    procedure bsSkinButton13Click(Sender: TObject);
    procedure bsSkinButton14Click(Sender: TObject);
    procedure bsSkinButton15Click(Sender: TObject);
    procedure bsSkinButton16Click(Sender: TObject);
    procedure bsSkinButton17Click(Sender: TObject);
  private
    { Private declarations }
  public
    function  cw_client_yingshou_error():boolean;
    function  cw_client_yingfu_error():boolean;
    function  cw_client_shouru_error():boolean;
    function  cw_client_chengben_error():boolean;
    procedure cw_add_1(op_type:integer);
    function  get_str(i:integer;head_str:string):widestring;
    { Public declarations }
  end;

var
  frm_cw_pingzheng: Tfrm_cw_pingzheng;
  frm_cw_pingzheng_open:boolean;
  cw_load,cw_load_group:integer;
  frm_cw_load_iflog:boolean;

implementation

uses u_main, u_cw_load, u_cw_date, my_sys_function;

{$R *.dfm}

function Tfrm_cw_pingzheng.cw_client_yingshou_error():boolean;
var
  re_bool:boolean;
begin
  re_bool:=false;
  if not t_yingshou.IsEmpty then
  begin
    t_yingshou.first;
    while not t_yingshou.eof do
    begin
      if t_yingshou.fieldbyname('<27><>Ŀ<EFBFBD><C4BF>ʾ').AsString=''then
      begin
        showmessage('û<>з<EFBFBD><D0B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6>Ӧ<EFBFBD><D3A6><EFBFBD>ʿ<EFBFBD><CABF><EFBFBD>Ŀ<EFBFBD><C4BF>');
        re_bool:=true;
        break;
      end
      else
      begin
        if not t_cw_client.locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',t_yingshou.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString,[]) then
        begin
          showmessage(t_yingshou.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString+'<27><>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD>ò<EFBFBD><C3B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD>');
          re_bool:=true;
          break;
        end
        else
        begin
          if t_cw_client.fieldbyname('Ӧ<>տͻ<D5BF><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring=''then
          begin
            showmessage(t_yingshou.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString+'<27><>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD>ò<EFBFBD><C3B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD>');
            re_bool:=true;
            break;
          end;
        end;
      end;
      t_yingshou.next;
    end;
  end;
  result:=re_bool;
end;

function Tfrm_cw_pingzheng.cw_client_yingfu_error():boolean;
var
  re_bool:boolean;
begin
  re_bool:=false;
  if not t_yingfu.IsEmpty then
  begin
    t_yingfu.first;
    while not t_yingfu.eof do
    begin
      if t_yingfu.fieldbyname('<27><>Ŀ<EFBFBD><C4BF>ʾ').AsString=''then
      begin
        showmessage('û<>з<EFBFBD><D0B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6>Ӧ<EFBFBD><D3A6><EFBFBD>ʿ<EFBFBD><CABF><EFBFBD>Ŀ<EFBFBD><C4BF>');
        re_bool:=true;
        break;
      end
      else
      begin
        if not t_cw_client.locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',t_yingfu.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString,[]) then
        begin
          showmessage(t_yingfu.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString+'<27><>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD>ò<EFBFBD><C3B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD>');
          re_bool:=true;
          break;
        end
        else
        begin
          if t_cw_client.fieldbyname('Ӧ<><D3A6><EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring=''then
          begin
            showmessage(t_yingfu.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString+'<27><>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD>ò<EFBFBD><C3B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD>');
            re_bool:=true;
            break;
          end;
        end;
      end;
      t_yingfu.next;
    end;
  end;
  result:=re_bool;
end;

function  Tfrm_cw_pingzheng.cw_client_shouru_error():boolean;
var
  re_bool:boolean;
begin
  re_bool:=false;
  if not t_shouru.IsEmpty then
  begin
    t_shouru.first;
    while not t_shouru.eof do
    begin
      if t_shouru.fieldbyname('<27><>Ŀ<EFBFBD><C4BF>ʾ').AsString=''then
      begin
        showmessage('û<>з<EFBFBD><D0B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ<EFBFBD><C4BF>');
        re_bool:=true;
        break;
      end;
      t_shouru.next;
    end;
  end;
  result:=re_bool;
end;

function  Tfrm_cw_pingzheng.cw_client_chengben_error():boolean;
var
  re_bool:boolean;
begin
  re_bool:=false;
  if not t_chengben.IsEmpty then
  begin
    t_chengben.first;
    while not t_chengben.eof do
    begin
      if t_chengben.fieldbyname('<27><>Ŀ<EFBFBD><C4BF>ʾ').AsString=''then
      begin
        showmessage('û<>з<EFBFBD><D0B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ<EFBFBD><C4BF>');
        re_bool:=true;
        break;
      end;
      t_chengben.next;
    end;
  end;
  result:=re_bool;
end;

function Tfrm_cw_pingzheng.get_str(i:integer;head_str:string):widestring;
var
  str:widestring;
begin
  case i of
    1:
    begin
      str:=head_str;
      if t_cw_design.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asboolean then
      begin
        str:=str+'<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>';
      end;
      if t_cw_design.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asboolean then
      begin
        str:=str+t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
      end;
      if t_cw_design.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').asboolean then
      begin
        str:=str+t_op_seae.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').asstring;
      end;
      if t_cw_design.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asboolean then
      begin
        str:=str+t_op_seae.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring;
      end;
      if t_cw_design.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asboolean then
      begin
        str:=str+t_op_seae.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring;
      end;
      if t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asboolean then
      begin
        str:=str+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
      end;
      if t_cw_design.fieldbyname('<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>').asboolean then
      begin
        str:=str+t_op_seae.fieldbyname('<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>').asstring;
      end;
      if t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean then
      begin
        str:=str+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
      end;
      if t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean then
      begin
        str:=str+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
      end;
      if t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean then
      begin
        str:=str+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
      end;
      if t_cw_design.fieldbyname('<27>ۿ<EFBFBD>').asboolean then
      begin
        str:=str+t_op_seae.fieldbyname('ж<><D0B6><EFBFBD><EFBFBD>').asstring;
      end;
      if t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').asboolean then
      begin
        str:=str+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').asstring;
      end;
    end;
    2:
    begin
      str:=head_str;
      if t_cw_design.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asboolean then
      begin
        str:=str+'<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>';
      end;
      if t_cw_design.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asboolean then
      begin
        str:=str+t_op_seai.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
      end;
      if t_cw_design.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').asboolean then
      begin
        str:=str+t_op_seai.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').asstring;
      end;
      if t_cw_design.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asboolean then
      begin
        str:=str+t_op_seai.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring;
      end;
      if t_cw_design.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asboolean then
      begin
        str:=str+t_op_seai.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring;
      end;
      if t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asboolean then
      begin
        str:=str+t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
      end;
      if t_cw_design.fieldbyname('<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>').asboolean then
      begin
        str:=str+t_op_seai.fieldbyname('<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>').asstring;
      end;
      if t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean then
      begin
        str:=str+t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
      end;
      if t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean then
      begin
        str:=str+t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
      end;
      if t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean then
      begin
        str:=str+t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
      end;
      if t_cw_design.fieldbyname('<27>ۿ<EFBFBD>').asboolean then
      begin
        str:=str+t_op_seai.fieldbyname('װ<><D7B0><EFBFBD><EFBFBD>').asstring;
      end;
      if t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').asboolean then
      begin
        str:=str+t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').asstring;
      end;
    end;
    3:
    begin
      str:=head_str;
      if t_cw_design.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asboolean then
      begin
        str:=str+'<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>';
      end;
      if t_cw_design.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asboolean then
      begin
        str:=str+t_op_aire.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
      end;
      if t_cw_design.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').asboolean then
      begin
        str:=str+t_op_aire.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').asstring;
      end;
      if t_cw_design.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asboolean then
      begin
        str:=str+t_op_aire.fieldbyname('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').asstring;
      end;
      if t_cw_design.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asboolean then
      begin
        str:=str+t_op_aire.fieldbyname('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').asstring;
      end;
      if t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asboolean then
      begin
        str:=str+t_op_aire.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
      end;
      if t_cw_design.fieldbyname('<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>').asboolean then
      begin
        str:=str+t_op_aire.fieldbyname('<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>').asstring;
      end;
      if t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean or t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean then
      begin
        str:=str+t_op_aire.fieldbyname('һ<>̺<EFBFBD><CCBA><EFBFBD>').asstring;
      end;
      if t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean then
      begin
        str:=str+t_op_aire.fieldbyname('һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
      end;
      if t_cw_design.fieldbyname('<27>ۿ<EFBFBD>').asboolean then
      begin
        str:=str+t_op_aire.fieldbyname('Ŀ<>ĸ<EFBFBD>').asstring;
      end;
      if t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').asboolean then
      begin
        str:=str+t_op_aire.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').asstring;
      end;
    end;
    4:
    begin
      str:=head_str;
      if t_cw_design.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asboolean then
      begin
        str:=str+'<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>';
      end;
      if t_cw_design.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asboolean then
      begin
        str:=str+t_op_airi.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
      end;
      if t_cw_design.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').asboolean then
      begin
        str:=str+t_op_airi.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').asstring;
      end;
      if t_cw_design.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asboolean then
      begin
        str:=str+t_op_airi.fieldbyname('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').asstring;
      end;
      if t_cw_design.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asboolean then
      begin
        str:=str+t_op_airi.fieldbyname('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').asstring;
      end;
      if t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asboolean then
      begin
        str:=str+t_op_airi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
      end;
      if t_cw_design.fieldbyname('<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>').asboolean then
      begin
        str:=str+t_op_airi.fieldbyname('<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>').asstring;
      end;
      if t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean or t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean then
      begin
        str:=str+t_op_airi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
      end;
      if t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean then
      begin
        str:=str+t_op_airi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
      end;
      if t_cw_design.fieldbyname('<27>ۿ<EFBFBD>').asboolean then
      begin
        str:=str+t_op_airi.fieldbyname('ʼ<><CABC><EFBFBD><EFBFBD>').asstring;
      end;
      if t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').asboolean then
      begin
        str:=str+t_op_airi.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').asstring;
      end;
    end;
  end;
  result:=str;
end;

procedure Tfrm_cw_pingzheng.cw_add_1(op_type:integer);
var
  num_accept_rmb,num_accept_usd,num_accept_all,num_pay_rmb,num_pay_usd,num_pay_all:real;
  bill_count:integer;
  if_do:boolean;
  get_date:Tdatetime;
begin
  try
    frm_cw_date:=Tfrm_cw_date.Create(application);
    frm_cw_date.ShowModal;
    if frm_cw_date.ModalResult = mrOk then
    begin
      if_do:=true;
      get_date:=frm_cw_date.wwDBDateTimePicker1.Date;
    end
    else
      if_do:=false;;
  finally
    frm_cw_date.free;
    frm_cw_date:=nil;
  end;
  if not if_do then
    exit;

  T_Voucher_Main.Requery();
  T_Voucher_fen.Requery();

    try
      T_Voucher_Main.Insert;
      T_Voucher_Main['FDate']:=get_date;//t_yingshou.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').value;
      T_Voucher_Main['FYear']:=
        strtoint(FormatDateTime('yyyy',t_yingshou.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').value));
      T_Voucher_Main['FPeriod']:=
        strtoint(FormatDateTime('mm',t_yingshou.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').value));
      T_Voucher_Main['FGroupID']:=t_cw_design.fieldbyname('ת<><D7AA>ƾ֤<C6BE><D6A4>').asinteger;
    
      T_Voucher_Max_num.close;
      T_Voucher_Max_num.Parameters.ParamByName('FYear').value:=
        strtoint(FormatDateTime('yyyy',t_yingshou.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').value));
      T_Voucher_Max_num.Parameters.ParamByName('FPeriod').value:=
        strtoint(FormatDateTime('mm',t_yingshou.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').value));
      T_Voucher_Max_num.Parameters.ParamByName('FGroupID').value:=t_cw_design.fieldbyname('ת<><D7AA>ƾ֤<C6BE><D6A4>').asinteger;
      T_Voucher_Max_num.open;
      if T_Voucher_Max_num.IsEmpty then
        T_Voucher_Main['FNumber']:=1
      else
        T_Voucher_Main['FNumber']:=T_Voucher_Max_num.fieldbyname('FNumber').asinteger+1;
      
      T_Voucher_Main['FReference']:='';
      T_Voucher_Main['FExplanation']:=frm_cw_pingzheng.get_str(op_type,'');
      T_Voucher_Main['FAttachments']:=1;
      T_Voucher_Main['FEntryCount']:=t_yingshou.RecordCount+t_yingfu.RecordCount+t_shouru.RecordCount+t_chengben.RecordCount;
      T_Voucher_Main['FDebitTotal']:=0;
      T_Voucher_Main['FCreditTotal']:=0;
      T_Voucher_Main['FInternalInd']:='';
      T_Voucher_Main['FPreparerID']:=cw_load;
      T_Voucher_Main['FHandler']:='';
      T_Voucher_Main['FOwnerGroupID']:=cw_load_group;
      T_Voucher_Main['FObjectName']:='';
      T_Voucher_Main['FParameter']:='';
      T_Voucher_Main['FTransDate']:=t_yingshou.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').value;
      T_Voucher_Max_seriel.close;
      T_Voucher_Max_seriel.Parameters.ParamByName('FYear').value:=
        strtoint(FormatDateTime('yyyy',t_yingshou.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').value));
      T_Voucher_Max_seriel.open;
      if T_Voucher_Max_seriel.isempty then
        T_Voucher_Main['FSerialNum']:=1
      else
        T_Voucher_Main['FSerialNum']:=T_Voucher_Max_seriel.fieldbyname('FSerialNum').asinteger+1;
      T_Voucher_Main.post;
    except
      if T_Voucher_Main.state=dsinsert then
        T_Voucher_Main.cancel;
      showmessage('<27><><EFBFBD><EFBFBD>ƾ֤ʧ<D6A4>ܣ<EFBFBD><DCA3><EFBFBD>');
      exit;
    end;
    
    T_Voucher_Max.requery;
    T_Voucher_Main.close;
    T_Voucher_Main.sql.clear;
    T_Voucher_Main.sql.add('select * from t_Voucher where FVoucherID='+T_Voucher_Max.fieldbyname('FNext').asstring);
    T_Voucher_Main.open;
    //Ӧ<><D3A6><EFBFBD>ʿ<EFBFBD>
    bill_count:=0;
    t_yingshou.first;
    while not t_yingshou.eof do
    begin
      try
        T_Voucher_fen.insert;
        T_Voucher_fen['FVoucherID']:=T_Voucher_Main.fieldbyname('FVoucherID').value;
        T_Voucher_fen['FEntryID']:=bill_count;

        T_Voucher_fen['FExplanation']:=frm_cw_pingzheng.get_str(op_type,'Ӧ<><D3A6>');
        T_Voucher_fen['FAccountID']:=t_yingshou.fieldbyname('<27><>Ŀ<EFBFBD><C4BF>ʾ').asinteger;
        T_Voucher_fen['FAccountID2']:=t_yingshou.fieldbyname('<27><>Ŀ<EFBFBD><C4BF>ʾ').asinteger;

        if t_cw_client.locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',t_yingshou.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring,[]) then
        begin
          T_Voucher_fen['FDetailID']:=t_cw_client.fieldbyname('Ӧ<>տͻ<D5BF><CDBB><EFBFBD><EFBFBD><EFBFBD>').asinteger;
        end;
        case t_cw_design.fieldbyname('<27><><EFBFBD>ɰ취').asinteger of
          1:
          begin
            T_Voucher_fen['FCurrencyID']:=t_cw_design.fieldbyname('<27>ұ<EFBFBD>RMB').asinteger;
            T_Voucher_fen['FExchangeRate']:=1;
            if t_yingshou.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat>0 then
            begin
              T_Voucher_fen['FAmountFor']:=s_w(2,t_yingshou.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
              T_Voucher_fen['FAmount']:=s_w(2,t_yingshou.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
              T_Voucher_fen['FDC']:=1;
              num_accept_all:=num_accept_all+s_w(2,t_yingshou.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
            end
            else
            begin
              T_Voucher_fen['FAmountFor']:=s_w(2,t_yingshou.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1);
              T_Voucher_fen['FAmount']:=s_w(2,t_yingshou.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1);
              T_Voucher_fen['FDC']:=0;
              num_pay_all:=num_pay_all+s_w(2,t_yingshou.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1);
            end;
          end;
          2:
          begin
            if t_yingshou.fieldbyname('<27>ұ<EFBFBD>').asstring='USD'then
            begin
              T_Voucher_fen['FCurrencyID']:=t_cw_design.fieldbyname('<27>ұ<EFBFBD>USD').asinteger;
              if T_Currency.Locate('FCurrencyID',t_cw_design.fieldbyname('<27>ұ<EFBFBD>USD').asinteger,[])then
                T_Voucher_fen['FExchangeRate']:=T_Currency.fieldbyname('FExchangeRate').asfloat;
              if t_yingshou.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat>0 then
              begin
                T_Voucher_fen['FAmountFor']:=s_w(2,t_yingshou.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
                T_Voucher_fen['FAmount']:=s_w(2,t_yingshou.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*
                                          T_Currency.fieldbyname('FExchangeRate').asfloat);
                T_Voucher_fen['FDC']:=1;
                num_accept_all:=num_accept_all+s_w(2,t_yingshou.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*
                                          T_Currency.fieldbyname('FExchangeRate').asfloat);
              end
              else
              begin
                T_Voucher_fen['FAmountFor']:=s_w(2,t_yingshou.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1);
                T_Voucher_fen['FAmount']:=s_w(2,t_yingshou.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1*
                                          T_Currency.fieldbyname('FExchangeRate').asfloat);
                T_Voucher_fen['FDC']:=0;
                num_pay_all:=num_pay_all+s_w(2,t_yingshou.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*
                                          T_Currency.fieldbyname('FExchangeRate').asfloat*-1);
              end;
            end
            else
            begin
              T_Voucher_fen['FCurrencyID']:=t_cw_design.fieldbyname('<27>ұ<EFBFBD>RMB').asinteger;
              T_Voucher_fen['FExchangeRate']:=1;
              if t_yingshou.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat>0 then
              begin
                T_Voucher_fen['FAmountFor']:=s_w(2,t_yingshou.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
                T_Voucher_fen['FAmount']:=s_w(2,t_yingshou.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
                T_Voucher_fen['FDC']:=1;
                num_accept_all:=num_accept_all+s_w(2,t_yingshou.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
              end
              else
              begin
                T_Voucher_fen['FAmountFor']:=s_w(2,t_yingshou.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1);
                T_Voucher_fen['FAmount']:=s_w(2,t_yingshou.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1);
                T_Voucher_fen['FDC']:=0;
                num_pay_all:=num_pay_all+s_w(2,t_yingshou.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1);
              end;
            end;
          end;
        end;
        T_Voucher_fen.post;
        bill_count:=bill_count+1;
      except
        if T_Voucher_fen.state=dsinsert then
          T_Voucher_fen.cancel;
        while not T_Voucher_fen.eof do
          T_Voucher_fen.delete;
        T_Voucher_main.delete;
        showmessage('<27><><EFBFBD><EFBFBD>ƾ֤ʧ<D6A4>ܣ<EFBFBD><DCA3><EFBFBD>');
        exit;
      end;
      t_yingshou.next;
    end;
    //Ӧ<><D3A6><EFBFBD>ʿ<EFBFBD>
    t_yingfu.first;
    while not t_yingfu.eof do
    begin
      try
        T_Voucher_fen.insert;
        T_Voucher_fen['FVoucherID']:=T_Voucher_Main.fieldbyname('FVoucherID').value;
        T_Voucher_fen['FEntryID']:=bill_count;

        T_Voucher_fen['FExplanation']:=frm_cw_pingzheng.get_str(op_type,'Ӧ<><D3A6>');
        T_Voucher_fen['FAccountID']:=t_yingfu.fieldbyname('<27><>Ŀ<EFBFBD><C4BF>ʾ').asinteger;
        T_Voucher_fen['FAccountID2']:=t_yingfu.fieldbyname('<27><>Ŀ<EFBFBD><C4BF>ʾ').asinteger;

        if t_cw_client.locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',t_yingfu.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring,[]) then
        begin
          T_Voucher_fen['FDetailID']:=t_cw_client.fieldbyname('Ӧ<><D3A6><EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asinteger;
        end;
        case t_cw_design.fieldbyname('<27><><EFBFBD>ɰ취').asinteger of
          1:
          begin
            T_Voucher_fen['FCurrencyID']:=t_cw_design.fieldbyname('<27>ұ<EFBFBD>RMB').asinteger;
            T_Voucher_fen['FExchangeRate']:=1;
            if t_yingfu.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat>0 then
            begin
              T_Voucher_fen['FAmountFor']:=s_w(2,t_yingfu.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
              T_Voucher_fen['FAmount']:=s_w(2,t_yingfu.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
              T_Voucher_fen['FDC']:=0;
              num_pay_all:=num_pay_all+s_w(2,t_yingfu.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
            end
            else
            begin
              T_Voucher_fen['FAmountFor']:=s_w(2,t_yingfu.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1);
              T_Voucher_fen['FAmount']:=s_w(2,t_yingfu.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1);
              T_Voucher_fen['FDC']:=1;
              num_accept_all:=num_accept_all+s_w(2,t_yingfu.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1);
            end;
          end;
          2:
          begin
            if t_yingfu.fieldbyname('<27>ұ<EFBFBD>').asstring='USD'then
            begin
              T_Voucher_fen['FCurrencyID']:=t_cw_design.fieldbyname('<27>ұ<EFBFBD>USD').asinteger;
              if T_Currency.Locate('FCurrencyID',t_cw_design.fieldbyname('<27>ұ<EFBFBD>USD').asinteger,[])then
                T_Voucher_fen['FExchangeRate']:=T_Currency.fieldbyname('FExchangeRate').asfloat;
              if t_yingfu.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat>0 then
              begin
                T_Voucher_fen['FAmountFor']:=s_w(2,t_yingfu.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
                T_Voucher_fen['FAmount']:=s_w(2,t_yingfu.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*
                                          T_Currency.fieldbyname('FExchangeRate').asfloat);
                T_Voucher_fen['FDC']:=0;
                num_pay_all:=num_pay_all+s_w(2,t_yingfu.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*
                                          T_Currency.fieldbyname('FExchangeRate').asfloat);
              end
              else
              begin
                T_Voucher_fen['FAmountFor']:=s_w(2,t_yingfu.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1);
                T_Voucher_fen['FAmount']:=s_w(2,t_yingfu.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1*
                                          T_Currency.fieldbyname('FExchangeRate').asfloat);
                T_Voucher_fen['FDC']:=1;
                num_accept_all:=num_accept_all+s_w(2,t_yingfu.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*
                                          T_Currency.fieldbyname('FExchangeRate').asfloat*-1);
              end;
            end
            else
            begin
              T_Voucher_fen['FCurrencyID']:=t_cw_design.fieldbyname('<27>ұ<EFBFBD>RMB').asinteger;
              T_Voucher_fen['FExchangeRate']:=1;
              if t_yingfu.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat>0 then
              begin
                T_Voucher_fen['FAmountFor']:=s_w(2,t_yingfu.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
                T_Voucher_fen['FAmount']:=s_w(2,t_yingfu.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
                T_Voucher_fen['FDC']:=0;
                num_pay_all:=num_pay_all+s_w(2,t_yingfu.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
              end
              else
              begin
                T_Voucher_fen['FAmountFor']:=s_w(2,t_yingfu.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1);
                T_Voucher_fen['FAmount']:=s_w(2,t_yingfu.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1);
                T_Voucher_fen['FDC']:=1;
                num_accept_all:=num_accept_all+s_w(2,t_yingfu.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1);
              end;
            end;
          end;
        end;
        T_Voucher_fen.post;
        bill_count:=bill_count+1;
      except
        if T_Voucher_fen.state=dsinsert then
          T_Voucher_fen.cancel;
        while not T_Voucher_fen.eof do
          T_Voucher_fen.delete;
        T_Voucher_main.delete;
        showmessage('<27><><EFBFBD><EFBFBD>ƾ֤ʧ<D6A4>ܣ<EFBFBD><DCA3><EFBFBD>');
        exit;
      end;
      t_yingfu.next;
    end;
    //ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    t_shouru.first;
    while not t_shouru.eof do
    begin
      if t_shouru.fieldbyname('<27><>Ŀ<EFBFBD><C4BF>ʾ').asstring<>''then
      begin
        try
          T_Voucher_fen.insert;
          T_Voucher_fen['FVoucherID']:=T_Voucher_Main.fieldbyname('FVoucherID').value;
          T_Voucher_fen['FEntryID']:=bill_count;

          T_Voucher_fen['FExplanation']:=frm_cw_pingzheng.get_str(op_type,'<27><><EFBFBD><EFBFBD>');
          T_Voucher_fen['FAccountID']:=t_shouru.fieldbyname('<27><>Ŀ<EFBFBD><C4BF>ʾ').asinteger;
          T_Voucher_fen['FAccountID2']:=t_shouru.fieldbyname('<27><>Ŀ<EFBFBD><C4BF>ʾ').asinteger;

          case t_cw_design.fieldbyname('<27><><EFBFBD>ɰ취').asinteger of
            1:
            begin
              T_Voucher_fen['FCurrencyID']:=t_cw_design.fieldbyname('<27>ұ<EFBFBD>RMB').asinteger;
              T_Voucher_fen['FExchangeRate']:=1;
              if t_shouru.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat>0 then
              begin
                T_Voucher_fen['FAmountFor']:=s_w(2,t_shouru.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
                T_Voucher_fen['FAmount']:=s_w(2,t_shouru.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
                T_Voucher_fen['FDC']:=0;
                num_pay_all:=num_pay_all+s_w(2,t_shouru.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
              end
              else
              begin
                T_Voucher_fen['FAmountFor']:=s_w(2,t_shouru.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1);
                T_Voucher_fen['FAmount']:=s_w(2,t_shouru.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1);
                T_Voucher_fen['FDC']:=1;
                num_accept_all:=num_accept_all+s_w(2,t_shouru.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1);
              end;
             end;
            2:
            begin
              if t_shouru.fieldbyname('<27>ұ<EFBFBD>').asstring='USD'then
              begin
                T_Voucher_fen['FCurrencyID']:=t_cw_design.fieldbyname('<27>ұ<EFBFBD>USD').asinteger;
                if T_Currency.Locate('FCurrencyID',t_cw_design.fieldbyname('<27>ұ<EFBFBD>USD').asinteger,[])then
                  T_Voucher_fen['FExchangeRate']:=T_Currency.fieldbyname('FExchangeRate').asfloat;
                if t_shouru.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat>0 then
                begin
                  T_Voucher_fen['FAmountFor']:=s_w(2,t_shouru.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
                  T_Voucher_fen['FAmount']:=s_w(2,t_shouru.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*
                                          T_Currency.fieldbyname('FExchangeRate').asfloat);
                  T_Voucher_fen['FDC']:=0;
                  num_pay_all:=num_pay_all+s_w(2,t_shouru.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*
                                          T_Currency.fieldbyname('FExchangeRate').asfloat);
                end
                else
                begin
                  T_Voucher_fen['FAmountFor']:=s_w(2,t_shouru.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1);
                  T_Voucher_fen['FAmount']:=s_w(2,t_shouru.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1*
                                          T_Currency.fieldbyname('FExchangeRate').asfloat);
                  T_Voucher_fen['FDC']:=1;
                  num_accept_all:=num_accept_all+s_w(2,t_shouru.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*
                                          T_Currency.fieldbyname('FExchangeRate').asfloat*-1);
                end;
              end
              else
              begin
                T_Voucher_fen['FCurrencyID']:=t_cw_design.fieldbyname('<27>ұ<EFBFBD>RMB').asinteger;
                T_Voucher_fen['FExchangeRate']:=1;
                if t_shouru.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat>0 then
                begin
                  T_Voucher_fen['FAmountFor']:=s_w(2,t_shouru.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
                  T_Voucher_fen['FAmount']:=s_w(2,t_shouru.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
                  T_Voucher_fen['FDC']:=0;
                  num_pay_all:=num_pay_all+s_w(2,t_shouru.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
                end
                else
                begin
                  T_Voucher_fen['FAmountFor']:=s_w(2,t_shouru.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1);
                  T_Voucher_fen['FAmount']:=s_w(2,t_shouru.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1);
                  T_Voucher_fen['FDC']:=1;
                  num_accept_all:=num_accept_all+s_w(2,t_shouru.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1);
                end;
              end;
            end;
          end;
          T_Voucher_fen.post;
          bill_count:=bill_count+1;
        except
          if T_Voucher_fen.state=dsinsert then
            T_Voucher_fen.cancel;
          while not T_Voucher_fen.eof do
            T_Voucher_fen.delete;
          T_Voucher_main.delete;
          showmessage('<27><><EFBFBD><EFBFBD>ƾ֤ʧ<D6A4>ܣ<EFBFBD><DCA3><EFBFBD>');
          exit;
        end;
      end;
      t_shouru.next;
    end;
    //ҵ<><D2B5><EFBFBD>ɱ<EFBFBD>
    t_chengben.first;
    while not t_chengben.eof do
    begin
      if t_chengben.fieldbyname('<27><>Ŀ<EFBFBD><C4BF>ʾ').asstring<>''then
      begin
        try
          T_Voucher_fen.insert;
          T_Voucher_fen['FVoucherID']:=T_Voucher_Main.fieldbyname('FVoucherID').value;
          T_Voucher_fen['FEntryID']:=bill_count;

          T_Voucher_fen['FExplanation']:=frm_cw_pingzheng.get_str(op_type,'<27>ɱ<EFBFBD>');
          T_Voucher_fen['FAccountID']:=t_chengben.fieldbyname('<27><>Ŀ<EFBFBD><C4BF>ʾ').asinteger;
          T_Voucher_fen['FAccountID2']:=t_chengben.fieldbyname('<27><>Ŀ<EFBFBD><C4BF>ʾ').asinteger;

          case t_cw_design.fieldbyname('<27><><EFBFBD>ɰ취').asinteger of
            1:
            begin
              T_Voucher_fen['FCurrencyID']:=t_cw_design.fieldbyname('<27>ұ<EFBFBD>RMB').asinteger;
              T_Voucher_fen['FExchangeRate']:=1;
              if t_chengben.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat>0 then
              begin
                T_Voucher_fen['FAmountFor']:=s_w(2,t_chengben.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
                T_Voucher_fen['FAmount']:=s_w(2,t_chengben.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
                T_Voucher_fen['FDC']:=1;
                num_accept_all:=num_accept_all+s_w(2,t_chengben.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
              end
              else
              begin
                T_Voucher_fen['FAmountFor']:=s_w(2,t_chengben.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1);
                T_Voucher_fen['FAmount']:=s_w(2,t_chengben.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1);
                T_Voucher_fen['FDC']:=0;
                num_pay_all:=num_pay_all+s_w(2,t_chengben.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1);
              end;
            end;
            2:
            begin
              if t_chengben.fieldbyname('<27>ұ<EFBFBD>').asstring='USD'then
              begin
                T_Voucher_fen['FCurrencyID']:=t_cw_design.fieldbyname('<27>ұ<EFBFBD>USD').asinteger;
                if T_Currency.Locate('FCurrencyID',t_cw_design.fieldbyname('<27>ұ<EFBFBD>USD').asinteger,[])then
                  T_Voucher_fen['FExchangeRate']:=T_Currency.fieldbyname('FExchangeRate').asfloat;
                if t_chengben.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat>0 then
                begin
                  T_Voucher_fen['FAmountFor']:=s_w(2,t_chengben.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
                  T_Voucher_fen['FAmount']:=s_w(2,t_chengben.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*
                                          T_Currency.fieldbyname('FExchangeRate').asfloat);
                  T_Voucher_fen['FDC']:=1;
                  num_accept_all:=num_accept_all+s_w(2,t_chengben.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*
                                          T_Currency.fieldbyname('FExchangeRate').asfloat);
                end
                else
                begin
                  T_Voucher_fen['FAmountFor']:=s_w(2,t_chengben.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1);
                  T_Voucher_fen['FAmount']:=s_w(2,t_chengben.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1*
                                          T_Currency.fieldbyname('FExchangeRate').asfloat);
                  T_Voucher_fen['FDC']:=0;
                  num_pay_all:=num_pay_all+s_w(2,t_chengben.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*
                                          T_Currency.fieldbyname('FExchangeRate').asfloat*-1);
                end;
              end
              else
              begin
                T_Voucher_fen['FCurrencyID']:=t_cw_design.fieldbyname('<27>ұ<EFBFBD>RMB').asinteger;
                T_Voucher_fen['FExchangeRate']:=1;
                if t_chengben.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat>0 then
                begin
                  T_Voucher_fen['FAmountFor']:=s_w(2,t_chengben.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
                  T_Voucher_fen['FAmount']:=s_w(2,t_chengben.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
                  T_Voucher_fen['FDC']:=1;
                  num_accept_all:=num_accept_all+s_w(2,t_chengben.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
                end
                else
                begin
                  T_Voucher_fen['FAmountFor']:=s_w(2,t_chengben.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1);
                  T_Voucher_fen['FAmount']:=s_w(2,t_chengben.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1);
                  T_Voucher_fen['FDC']:=0;
                  num_pay_all:=num_pay_all+s_w(2,t_chengben.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*-1);
                end;
              end;
            end;
          end;
          T_Voucher_fen.post;
          bill_count:=bill_count+1;
        except
          if T_Voucher_fen.state=dsinsert then
            T_Voucher_fen.cancel;
          while not T_Voucher_fen.eof do
            T_Voucher_fen.delete;
          T_Voucher_main.delete;
          showmessage('<27><><EFBFBD><EFBFBD>ƾ֤ʧ<D6A4>ܣ<EFBFBD><DCA3><EFBFBD>');
          exit;
        end;
      end;
      t_chengben.next;
    end;
    if round(num_accept_all)<>round(num_pay_all) then
    begin
      showmessage('ƾ֤<C6BE><D6A4>:'+floattostr(num_accept_all)+',<2C><>:'+floattostr(num_pay_all)+',<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƽ<EFBFBD><C6BD><EFBFBD><EFBFBD>');
      T_Voucher_fen.first;
      while not T_Voucher_fen.eof do
      begin
        T_Voucher_fen.delete;
      end;
      T_Voucher_main.delete;
      exit;
    end;
    T_Voucher_main.edit;
    T_Voucher_main['FDebitTotal']:=num_accept_all;
    T_Voucher_main['FCreditTotal']:=num_pay_all;
    T_Voucher_main.post;
    try
      t_chengben.DataSource.DataSet.edit;
      t_chengben.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=1;
      t_chengben.DataSource.DataSet['<27><><EFBFBD><EFBFBD>ƾ֤']:=T_Voucher_Main.fieldbyname('FVoucherID').asstring;
      t_chengben.DataSource.DataSet.post;      
    except
      if T_Voucher_fen.state=dsinsert then
        T_Voucher_fen.cancel;
      if T_Voucher_main.state=dsinsert then
        T_Voucher_main.cancel;
      if t_chengben.DataSource.DataSet.state=dsinsert then
        t_chengben.DataSource.DataSet.cancel;
      while not T_Voucher_fen.eof do
        T_Voucher_fen.delete;
      T_Voucher_main.delete;
      showmessage('<27><><EFBFBD><EFBFBD>ƾ֤ʧ<D6A4>ܣ<EFBFBD><DCA3><EFBFBD>');
      exit;
    end;
end;

procedure Tfrm_cw_pingzheng.FormShow(Sender: TObject);
var
  str:widestring;
begin
  t_cw_design.open;
  t_cw_client.open;
  str:='Provider=SQLOLEDB.1;';
  str:=str+'Password='+t_cw_design.fieldbyname('<27><>½<EFBFBD><C2BD><EFBFBD><EFBFBD>').asstring+';';
  str:=str+'Persist Security Info=False;';
  str:=str+'User ID='+t_cw_design.fieldbyname('<27><>½<EFBFBD>û<EFBFBD>').asstring+';';
  str:=str+'Initial Catalog='+t_cw_design.fieldbyname('<27><><EFBFBD>ݿ<EFBFBD>').asstring+';';
  str:=str+'Data Source='+t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
  db_cw.Connected:=false;
  db_cw.ConnectionString:=str;
  case t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asinteger of
    0:
    begin

    end;
    1:
    begin
      T_Voucher_Main.close;
      T_Voucher_Main.sql.clear;
      T_Voucher_Main.sql.add('select top 0 * from T_Voucher');
      T_Voucher_Main.open;

      T_Voucher_fen.close;
      T_Voucher_fen.sql.clear;
      T_Voucher_fen.sql.add('select top 0 * from T_VoucherEntry');
      T_Voucher_fen.open;

      T_Voucher_Max_num.close;
      T_Voucher_Max_num.sql.clear;
      T_Voucher_Max_num.sql.add('select max(FNumber) as FNumber from T_Voucher where '
                               +'FYear=:FYear AND FPeriod=:FPeriod and FGroupID=:FGroupID' );
      T_Voucher_Max_num.open;

      T_Voucher_Max_seriel.close;
      T_Voucher_Max_seriel.sql.clear;
      T_Voucher_Max_seriel.sql.add('select max(FSerialNum) as FSerialNum from T_Voucher '
                                   +'where FYear=:FYear');
      T_Voucher_Max_seriel.open;
      
      T_Currency.close;
      T_Currency.sql.clear;
      T_Currency.sql.add('select * from T_Currency');
      T_Currency.open;

      t_cw_load.close;
      t_cw_load.sql.clear;
      t_cw_load.sql.add('select * from t_user order by FName');
      t_cw_load.open;

      T_Voucher_Max.close;
      T_Voucher_Max.sql.clear;
      T_Voucher_Max.sql.add('select (FNext-1) as FNext from t_Identity where FName='
                           +''''+'t_Voucher'+'''');
      T_Voucher_Max.open;
    end;
    2:
    begin

    end;
    3:
    begin

    end;
  end;
  try
    if not assigned(frm_cw_load) then
      frm_cw_load:=tfrm_cw_load.Create (self);
    frm_cw_load.ShowModal;
  finally
    frm_cw_load.free;
    frm_cw_load:=NIL;
  end;
  frm_cw_pingzheng_open:=true;
end;

procedure Tfrm_cw_pingzheng.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  frm_cw_pingzheng_open:=false;
  frm_cw_load_iflog:=false;
  frm_cw_pingzheng.Hide;
  frm_cw_pingzheng.ManualFloat(frm_cw_pingzheng.BoundsRect );
  frm_main.freeTabs('frm_cw_pingzheng');
  action:=cafree;
  frm_cw_pingzheng:=nil;
end;

procedure Tfrm_cw_pingzheng.bsSkinPageControl1Change(Sender: TObject);
begin
  if frm_cw_pingzheng_open then
  begin
    t_yingshou.close;
    t_yingfu.close;
    t_shouru.close;
    t_chengben.close;
    t_op_seae.close;
    t_op_seai.close;
    t_op_aire.close;
    t_op_airi.close;
  end;
end;

procedure Tfrm_cw_pingzheng.bsSkinButton10Click(Sender: TObject);
var
  str:widestring;
begin
  str:='where (<28><><EFBFBD><EFBFBD> is null or <20><><EFBFBD><EFBFBD>=0) and <20><><EFBFBD><EFBFBD>״̬='+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+'''';
  if Edit4.text<>''then
    str:=str+' and ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> like '+''''+'%'+Edit4.text+'%'+'''';
  if Edit2.text<>''then
    str:=str+' and <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit2.text+'%'+'''';
  if wwDBDateTimePicker1.text<>''then
    str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker1.text+'''';
  if wwDBDateTimePicker2.text<>''then
    str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker2.text+'''';
  if wwDBDateTimePicker3.text<>''then
    str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>>='+''''+wwDBDateTimePicker3.text+'''';
  if wwDBDateTimePicker4.text<>''then
    str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD><='+''''+wwDBDateTimePicker4.text+'''';

  t_yingshou.close;
  t_yingshou.DataSource:=t_op_seae1;
  t_yingshou.sql.Clear;

  t_yingfu.close;
  t_yingfu.DataSource:=t_op_seae1;
  t_yingfu.sql.Clear;

  t_shouru.close;
  t_shouru.DataSource:=t_op_seae1;
  t_shouru.sql.Clear;

  t_chengben.close;
  t_chengben.DataSource:=t_op_seae1;
  t_chengben.sql.Clear;
  
  t_op_seae.close;
  t_op_seae.sql.clear;
  t_op_seae.sql.add('select * from t_op_seae '+str+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  t_op_seae.open;
  case t_cw_design.fieldbyname('<27><><EFBFBD>ɰ취').asinteger of
    1:
    begin
      t_yingshou.sql.add('SELECT t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>, SUM(t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>) AS <20><><EFBFBD><EFBFBD>,'
                        +'v_cw_yingshou.<2E><>Ŀ<EFBFBD><C4BF>ʾ FROM t_ch_fee LEFT OUTER JOIN v_cw_yingshou '
                        +'ON t_ch_fee.CH_ID = v_cw_yingshou.CH_ID '
                        +'WHERE (t_ch_fee.<2E><><EFBFBD><EFBFBD> = '+''''+'<27><>'+''''+') and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> '
                        +' AND v_cw_yingshou.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>'+''''
                        +' GROUP BY t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,v_cw_yingshou.<2E><>Ŀ<EFBFBD><C4BF>ʾ '
                        +' ORDER BY t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
      t_yingfu.sql.add('SELECT t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>, SUM(t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>) AS <20><><EFBFBD><EFBFBD>,'
                        +'v_cw_yingfu.<2E><>Ŀ<EFBFBD><C4BF>ʾ FROM t_ch_fee LEFT OUTER JOIN v_cw_yingfu '
                        +'ON t_ch_fee.CH_ID =v_cw_yingfu.CH_ID '
                        +'WHERE (t_ch_fee.<2E><><EFBFBD><EFBFBD> = '+''''+'<27><>'+''''+') and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> '
                        +' AND v_cw_yingfu.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>'+''''
                        +' GROUP BY t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,v_cw_yingfu.<2E><>Ŀ<EFBFBD><C4BF>ʾ '
                        +' ORDER BY t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
      t_shouru.sql.add('SELECT SUM(t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>) AS <20><><EFBFBD><EFBFBD>,'
                        +'v_cw_shouru.<2E><>Ŀ<EFBFBD><C4BF>ʾ FROM t_ch_fee LEFT OUTER JOIN v_cw_shouru '
                        +'ON t_ch_fee.CH_ID =v_cw_shouru.CH_ID '
                        +'WHERE (t_ch_fee.<2E><><EFBFBD><EFBFBD> = '+''''+'<27><>'+''''+') and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> '
                        +' AND v_cw_shouru.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>'+''''
                        +' GROUP BY v_cw_shouru.<2E><>Ŀ<EFBFBD><C4BF>ʾ '
                        +' ORDER BY v_cw_shouru.<2E><>Ŀ<EFBFBD><C4BF>ʾ');
      t_chengben.sql.add('SELECT SUM(t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>) AS <20><><EFBFBD><EFBFBD>,'
                        +'v_cw_chengben.<2E><>Ŀ<EFBFBD><C4BF>ʾ FROM t_ch_fee LEFT OUTER JOIN v_cw_chengben '
                        +'ON t_ch_fee.CH_ID =v_cw_chengben.CH_ID '
                        +'WHERE (t_ch_fee.<2E><><EFBFBD><EFBFBD> = '+''''+'<27><>'+''''+') and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> '
                        +' AND v_cw_chengben.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>'+''''
                        +' GROUP BY v_cw_chengben.<2E><>Ŀ<EFBFBD><C4BF>ʾ '
                        +' ORDER BY v_cw_chengben.<2E><>Ŀ<EFBFBD><C4BF>ʾ');
    end;
    2:
    begin
      t_yingshou.sql.add('SELECT t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,t_ch_fee.<2E>ұ<EFBFBD>, SUM(t_ch_fee.<2E><><EFBFBD><EFBFBD>) AS <20><><EFBFBD><EFBFBD>,'
                        +'v_cw_yingshou.<2E><>Ŀ<EFBFBD><C4BF>ʾ FROM t_ch_fee LEFT OUTER JOIN v_cw_yingshou '
                        +'ON t_ch_fee.CH_ID = v_cw_yingshou.CH_ID '
                        +'WHERE (t_ch_fee.<2E><><EFBFBD><EFBFBD> = '+''''+'<27><>'+''''+') and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> '
                        +' AND v_cw_yingshou.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>'+''''
                        +' GROUP BY t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,t_ch_fee.<2E>ұ<EFBFBD>,v_cw_yingshou.<2E><>Ŀ<EFBFBD><C4BF>ʾ '
                        +' ORDER BY t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
      t_yingfu.sql.add('SELECT t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,t_ch_fee.<2E>ұ<EFBFBD>, SUM(t_ch_fee.<2E><><EFBFBD><EFBFBD>) AS <20><><EFBFBD><EFBFBD>,'
                        +'v_cw_yingfu.<2E><>Ŀ<EFBFBD><C4BF>ʾ FROM t_ch_fee LEFT OUTER JOIN v_cw_yingfu '
                        +'ON t_ch_fee.CH_ID =v_cw_yingfu.CH_ID '
                        +'WHERE (t_ch_fee.<2E><><EFBFBD><EFBFBD> = '+''''+'<27><>'+''''+') and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> '
                        +' AND v_cw_yingfu.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>'+''''
                        +' GROUP BY t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,t_ch_fee.<2E>ұ<EFBFBD>,v_cw_yingfu.<2E><>Ŀ<EFBFBD><C4BF>ʾ '
                        +' ORDER BY t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
      t_shouru.sql.add('SELECT t_ch_fee.<2E>ұ<EFBFBD>,SUM(t_ch_fee.<2E><><EFBFBD><EFBFBD>) AS <20><><EFBFBD><EFBFBD>,'
                        +'v_cw_shouru.<2E><>Ŀ<EFBFBD><C4BF>ʾ FROM t_ch_fee LEFT OUTER JOIN v_cw_shouru '
                        +'ON t_ch_fee.CH_ID =v_cw_shouru.CH_ID '
                        +'WHERE (t_ch_fee.<2E><><EFBFBD><EFBFBD> = '+''''+'<27><>'+''''+') and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> '
                        +' AND v_cw_shouru.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>'+''''
                        +' GROUP BY v_cw_shouru.<2E><>Ŀ<EFBFBD><C4BF>ʾ,t_ch_fee.<2E>ұ<EFBFBD> '
                        +' ORDER BY t_ch_fee.<2E>ұ<EFBFBD>,v_cw_shouru.<2E><>Ŀ<EFBFBD><C4BF>ʾ');
      t_chengben.sql.add('SELECT t_ch_fee.<2E>ұ<EFBFBD>,SUM(t_ch_fee.<2E><><EFBFBD><EFBFBD>) AS <20><><EFBFBD><EFBFBD>,'
                        +'v_cw_chengben.<2E><>Ŀ<EFBFBD><C4BF>ʾ FROM t_ch_fee LEFT OUTER JOIN v_cw_chengben '
                        +'ON t_ch_fee.CH_ID =v_cw_chengben.CH_ID '
                        +'WHERE (t_ch_fee.<2E><><EFBFBD><EFBFBD> = '+''''+'<27><>'+''''+') and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> '
                        +' AND v_cw_chengben.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>'+''''
                        +' GROUP BY v_cw_chengben.<2E><>Ŀ<EFBFBD><C4BF>ʾ,t_ch_fee.<2E>ұ<EFBFBD> '
                        +' ORDER BY t_ch_fee.<2E>ұ<EFBFBD>,v_cw_chengben.<2E><>Ŀ<EFBFBD><C4BF>ʾ');
    end;
  end;
  t_yingshou.open;
  t_yingfu.open;
  t_shouru.open;
  t_chengben.open;
end;

procedure Tfrm_cw_pingzheng.bsSkinButton3Click(Sender: TObject);
begin
  Edit4.text:='';
  Edit2.text:='';
  wwDBDateTimePicker1.text:='';
  wwDBDateTimePicker2.text:='';
  wwDBDateTimePicker3.text:='';
  wwDBDateTimePicker4.text:='';
end;

procedure Tfrm_cw_pingzheng.bsSkinButton1Click(Sender: TObject);
begin
  if t_op_seae.IsEmpty then
    exit;
  if not T_Voucher_Main.Active then
  begin
    showmessage('û<><C3BB><EFBFBD><EFBFBD><EFBFBD>ò<EFBFBD><C3B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӿڣ<D3BF><DAA3><EFBFBD>');
    exit;
  end;
  if t_yingshou.IsEmpty and t_yingfu.IsEmpty then
  begin
    showmessage('<27><>Ʊҵ<C6B1><D2B5>û<EFBFBD>з<EFBFBD><D0B7><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>');
    exit;
  end;  

  if not t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsBoolean then
  begin
    case t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asinteger of
      1:
      begin
        if (frm_cw_pingzheng.cw_client_yingshou_error=false)
        and(frm_cw_pingzheng.cw_client_yingfu_error=false)
        and(frm_cw_pingzheng.cw_client_shouru_error=false)
        and(frm_cw_pingzheng.cw_client_chengben_error=false) then
        begin
          frm_cw_pingzheng.cw_add_1(1);
        end;
      end;
      2:
      begin
      end;
      3:
      begin
      end;
    end;
  end
  else
  begin
    showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD>');
    exit;
  end;
  showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƾ֤<C6BE><D6A4><EFBFBD>ϣ<EFBFBD><CFA3><EFBFBD>');
  t_op_seae.Requery();
end;

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

procedure Tfrm_cw_pingzheng.bsSkinButton2Click(Sender: TObject);
begin
  if t_op_seae.IsEmpty then
    exit;
  if not T_Voucher_Main.Active then
  begin
    showmessage('û<><C3BB><EFBFBD><EFBFBD><EFBFBD>ò<EFBFBD><C3B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӿڣ<D3BF><DAA3><EFBFBD>');
    exit;
  end;
  t_op_seae.first;
  while not t_op_seae.eof do
  begin
    if (t_yingshou.IsEmpty=false) and (t_yingfu.IsEmpty=false)
    and(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsBoolean=false) then
    case t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asinteger of
      1:
      begin
        if (frm_cw_pingzheng.cw_client_yingshou_error=false)
        and(frm_cw_pingzheng.cw_client_yingfu_error=false)
        and(frm_cw_pingzheng.cw_client_shouru_error=false)
        and(frm_cw_pingzheng.cw_client_chengben_error=false) then
        begin
          frm_cw_pingzheng.cw_add_1(1);
        end;
      end;
      2:
      begin
      end;
      3:
      begin
      end;
    end;
    t_op_seae.next;
  end;
  showmessage('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƾ֤<C6BE><D6A4><EFBFBD>ϣ<EFBFBD><CFA3><EFBFBD>');
  t_op_seae.Requery();
end;

procedure Tfrm_cw_pingzheng.bsSkinButton4Click(Sender: TObject);
var
  str:widestring;
begin
  str:='where (<28><><EFBFBD><EFBFBD> is null or <20><><EFBFBD><EFBFBD>=0) and <20><><EFBFBD><EFBFBD>״̬='+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+'''';
  if Edit1.text<>''then
    str:=str+' and ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> like '+''''+'%'+Edit1.text+'%'+'''';
  if Edit3.text<>''then
    str:=str+' and <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit3.text+'%'+'''';
  if wwDBDateTimePicker5.text<>''then
    str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker5.text+'''';
  if wwDBDateTimePicker6.text<>''then
    str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker6.text+'''';
  if wwDBDateTimePicker7.text<>''then
    str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>>='+''''+wwDBDateTimePicker7.text+'''';
  if wwDBDateTimePicker8.text<>''then
    str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD><='+''''+wwDBDateTimePicker8.text+'''';

  t_yingshou.close;
  t_yingshou.DataSource:=t_op_seai1;
  t_yingshou.sql.Clear;

  t_yingfu.close;
  t_yingfu.DataSource:=t_op_seai1;
  t_yingfu.sql.Clear;

  t_shouru.close;
  t_shouru.DataSource:=t_op_seai1;
  t_shouru.sql.Clear;

  t_chengben.close;
  t_chengben.DataSource:=t_op_seai1;
  t_chengben.sql.Clear;
  t_op_seai.close;
  t_op_seai.sql.clear;
  t_op_seai.sql.add('select * from t_op_seai '+str+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  t_op_seai.open;
  case t_cw_design.fieldbyname('<27><><EFBFBD>ɰ취').asinteger of
    1:
    begin
      t_yingshou.sql.add('SELECT t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>, SUM(t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>) AS <20><><EFBFBD><EFBFBD>,'
                        +'v_cw_yingshou.<2E><>Ŀ<EFBFBD><C4BF>ʾ FROM t_ch_fee LEFT OUTER JOIN v_cw_yingshou '
                        +'ON t_ch_fee.CH_ID = v_cw_yingshou.CH_ID '
                        +'WHERE (t_ch_fee.<2E><><EFBFBD><EFBFBD> = '+''''+'<27><>'+''''+') and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> '
                        +' AND v_cw_yingshou.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>'+''''
                        +' GROUP BY t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,v_cw_yingshou.<2E><>Ŀ<EFBFBD><C4BF>ʾ '
                        +' ORDER BY t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
      t_yingfu.sql.add('SELECT t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>, SUM(t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>) AS <20><><EFBFBD><EFBFBD>,'
                        +'v_cw_yingfu.<2E><>Ŀ<EFBFBD><C4BF>ʾ FROM t_ch_fee LEFT OUTER JOIN v_cw_yingfu '
                        +'ON t_ch_fee.CH_ID =v_cw_yingfu.CH_ID '
                        +'WHERE (t_ch_fee.<2E><><EFBFBD><EFBFBD> = '+''''+'<27><>'+''''+') and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> '
                        +' AND v_cw_yingfu.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>'+''''
                        +' GROUP BY t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,v_cw_yingfu.<2E><>Ŀ<EFBFBD><C4BF>ʾ '
                        +' ORDER BY t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
      t_shouru.sql.add('SELECT SUM(t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>) AS <20><><EFBFBD><EFBFBD>,'
                        +'v_cw_shouru.<2E><>Ŀ<EFBFBD><C4BF>ʾ FROM t_ch_fee LEFT OUTER JOIN v_cw_shouru '
                        +'ON t_ch_fee.CH_ID =v_cw_shouru.CH_ID '
                        +'WHERE (t_ch_fee.<2E><><EFBFBD><EFBFBD> = '+''''+'<27><>'+''''+') and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> '
                        +' AND v_cw_shouru.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>'+''''
                        +' GROUP BY v_cw_shouru.<2E><>Ŀ<EFBFBD><C4BF>ʾ '
                        +' ORDER BY v_cw_shouru.<2E><>Ŀ<EFBFBD><C4BF>ʾ');
      t_chengben.sql.add('SELECT SUM(t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>) AS <20><><EFBFBD><EFBFBD>,'
                        +'v_cw_chengben.<2E><>Ŀ<EFBFBD><C4BF>ʾ FROM t_ch_fee LEFT OUTER JOIN v_cw_chengben '
                        +'ON t_ch_fee.CH_ID =v_cw_chengben.CH_ID '
                        +'WHERE (t_ch_fee.<2E><><EFBFBD><EFBFBD> = '+''''+'<27><>'+''''+') and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> '
                        +' AND v_cw_chengben.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>'+''''
                        +' GROUP BY v_cw_chengben.<2E><>Ŀ<EFBFBD><C4BF>ʾ '
                        +' ORDER BY v_cw_chengben.<2E><>Ŀ<EFBFBD><C4BF>ʾ');
    end;
    2:
    begin
      t_yingshou.sql.add('SELECT t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,t_ch_fee.<2E>ұ<EFBFBD>, SUM(t_ch_fee.<2E><><EFBFBD><EFBFBD>) AS <20><><EFBFBD><EFBFBD>,'
                        +'v_cw_yingshou.<2E><>Ŀ<EFBFBD><C4BF>ʾ FROM t_ch_fee LEFT OUTER JOIN v_cw_yingshou '
                        +'ON t_ch_fee.CH_ID = v_cw_yingshou.CH_ID '
                        +'WHERE (t_ch_fee.<2E><><EFBFBD><EFBFBD> = '+''''+'<27><>'+''''+') and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> '
                        +' AND v_cw_yingshou.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>'+''''
                        +' GROUP BY t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,t_ch_fee.<2E>ұ<EFBFBD>,v_cw_yingshou.<2E><>Ŀ<EFBFBD><C4BF>ʾ '
                        +' ORDER BY t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
      t_yingfu.sql.add('SELECT t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,t_ch_fee.<2E>ұ<EFBFBD>, SUM(t_ch_fee.<2E><><EFBFBD><EFBFBD>) AS <20><><EFBFBD><EFBFBD>,'
                        +'v_cw_yingfu.<2E><>Ŀ<EFBFBD><C4BF>ʾ FROM t_ch_fee LEFT OUTER JOIN v_cw_yingfu '
                        +'ON t_ch_fee.CH_ID =v_cw_yingfu.CH_ID '
                        +'WHERE (t_ch_fee.<2E><><EFBFBD><EFBFBD> = '+''''+'<27><>'+''''+') and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> '
                        +' AND v_cw_yingfu.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>'+''''
                        +' GROUP BY t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,t_ch_fee.<2E>ұ<EFBFBD>,v_cw_yingfu.<2E><>Ŀ<EFBFBD><C4BF>ʾ '
                        +' ORDER BY t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
      t_shouru.sql.add('SELECT t_ch_fee.<2E>ұ<EFBFBD>,SUM(t_ch_fee.<2E><><EFBFBD><EFBFBD>) AS <20><><EFBFBD><EFBFBD>,'
                        +'v_cw_shouru.<2E><>Ŀ<EFBFBD><C4BF>ʾ FROM t_ch_fee LEFT OUTER JOIN v_cw_shouru '
                        +'ON t_ch_fee.CH_ID =v_cw_shouru.CH_ID '
                        +'WHERE (t_ch_fee.<2E><><EFBFBD><EFBFBD> = '+''''+'<27><>'+''''+') and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> '
                        +' AND v_cw_shouru.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>'+''''
                        +' GROUP BY v_cw_shouru.<2E><>Ŀ<EFBFBD><C4BF>ʾ,t_ch_fee.<2E>ұ<EFBFBD> '
                        +' ORDER BY t_ch_fee.<2E>ұ<EFBFBD>,v_cw_shouru.<2E><>Ŀ<EFBFBD><C4BF>ʾ');
      t_chengben.sql.add('SELECT t_ch_fee.<2E>ұ<EFBFBD>,SUM(t_ch_fee.<2E><><EFBFBD><EFBFBD>) AS <20><><EFBFBD><EFBFBD>,'
                        +'v_cw_chengben.<2E><>Ŀ<EFBFBD><C4BF>ʾ FROM t_ch_fee LEFT OUTER JOIN v_cw_chengben '
                        +'ON t_ch_fee.CH_ID =v_cw_chengben.CH_ID '
                        +'WHERE (t_ch_fee.<2E><><EFBFBD><EFBFBD> = '+''''+'<27><>'+''''+') and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> '
                        +' AND v_cw_chengben.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>'+''''
                        +' GROUP BY v_cw_chengben.<2E><>Ŀ<EFBFBD><C4BF>ʾ,t_ch_fee.<2E>ұ<EFBFBD> '
                        +' ORDER BY t_ch_fee.<2E>ұ<EFBFBD>,v_cw_chengben.<2E><>Ŀ<EFBFBD><C4BF>ʾ');
    end;
  end;
  t_yingshou.open;
  t_yingfu.open;
  t_shouru.open;
  t_chengben.open;
end;

procedure Tfrm_cw_pingzheng.bsSkinButton6Click(Sender: TObject);
begin
  Edit1.text:='';
  Edit3.text:='';
  wwDBDateTimePicker5.text:='';
  wwDBDateTimePicker6.text:='';
  wwDBDateTimePicker7.text:='';
  wwDBDateTimePicker8.text:='';
end;

procedure Tfrm_cw_pingzheng.bsSkinButton7Click(Sender: TObject);
begin
  if t_op_seai.IsEmpty then
    exit;
  if not T_Voucher_Main.Active then
  begin
    showmessage('û<><C3BB><EFBFBD><EFBFBD><EFBFBD>ò<EFBFBD><C3B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӿڣ<D3BF><DAA3><EFBFBD>');
    exit;
  end;
  if t_yingshou.IsEmpty and t_yingfu.IsEmpty then
  begin
    showmessage('<27><>Ʊҵ<C6B1><D2B5>û<EFBFBD>з<EFBFBD><D0B7><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>');
    exit;
  end;  
  if not t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').AsBoolean then
  begin
    case t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asinteger of
      1:
      begin
        if (frm_cw_pingzheng.cw_client_yingshou_error=false)
        and(frm_cw_pingzheng.cw_client_yingfu_error=false)
        and(frm_cw_pingzheng.cw_client_shouru_error=false)
        and(frm_cw_pingzheng.cw_client_chengben_error=false) then
        begin
          frm_cw_pingzheng.cw_add_1(2);
        end;
      end;
      2:
      begin
      end;
      3:
      begin
      end;
    end;
  end
  else
  begin
    showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD>');
    exit;
  end;
  showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƾ֤<C6BE><D6A4><EFBFBD>ϣ<EFBFBD><CFA3><EFBFBD>');
  t_op_seai.Requery();
end;

procedure Tfrm_cw_pingzheng.bsSkinButton8Click(Sender: TObject);
begin
  if t_op_seai.IsEmpty then
    exit;
  if not T_Voucher_Main.Active then
  begin
    showmessage('û<><C3BB><EFBFBD><EFBFBD><EFBFBD>ò<EFBFBD><C3B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӿڣ<D3BF><DAA3><EFBFBD>');
    exit;
  end;
  t_op_seai.first;
  while not t_op_seai.eof do
  begin
    if (t_yingshou.IsEmpty=false) and (t_yingfu.IsEmpty=false)
    and(t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').AsBoolean=false) then
    case t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asinteger of
      1:
      begin
        if (frm_cw_pingzheng.cw_client_yingshou_error=false)
        and(frm_cw_pingzheng.cw_client_yingfu_error=false)
        and(frm_cw_pingzheng.cw_client_shouru_error=false)
        and(frm_cw_pingzheng.cw_client_chengben_error=false) then
        begin
          frm_cw_pingzheng.cw_add_1(2);
        end;
      end;
      2:
      begin
      end;
      3:
      begin
      end;
    end;
    t_op_seai.next;
  end;
  showmessage('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƾ֤<C6BE><D6A4><EFBFBD>ϣ<EFBFBD><CFA3><EFBFBD>');
  t_op_seai.Requery();
end;

procedure Tfrm_cw_pingzheng.bsSkinButton9Click(Sender: TObject);
var
  str:widestring;
begin
  str:='where (<28><><EFBFBD><EFBFBD> is null or <20><><EFBFBD><EFBFBD>=0) and <20><><EFBFBD><EFBFBD>״̬='+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+'''';
  if Edit5.text<>''then
    str:=str+' and ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> like '+''''+'%'+Edit5.text+'%'+'''';
  if Edit6.text<>''then
    str:=str+' and <20><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD> like '+''''+'%'+Edit6.text+'%'+'''';
  if wwDBDateTimePicker9.text<>''then
    str:=str+' and һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker9.text+'''';
  if wwDBDateTimePicker10.text<>''then
    str:=str+' and һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker10.text+'''';
  if wwDBDateTimePicker11.text<>''then
    str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>>='+''''+wwDBDateTimePicker11.text+'''';
  if wwDBDateTimePicker12.text<>''then
    str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD><='+''''+wwDBDateTimePicker12.text+'''';

  t_yingshou.close;
  t_yingshou.DataSource:=t_op_aire1;
  t_yingshou.sql.Clear;

  t_yingfu.close;
  t_yingfu.DataSource:=t_op_aire1;
  t_yingfu.sql.Clear;

  t_shouru.close;
  t_shouru.DataSource:=t_op_aire1;
  t_shouru.sql.Clear;

  t_chengben.close;
  t_chengben.DataSource:=t_op_aire1;
  t_chengben.sql.Clear;
  t_op_aire.close;
  t_op_aire.sql.clear;
  t_op_aire.sql.add('select * from t_op_aire '+str+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  t_op_aire.open;
  case t_cw_design.fieldbyname('<27><><EFBFBD>ɰ취').asinteger of
    1:
    begin
      t_yingshou.sql.add('SELECT t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>, SUM(t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>) AS <20><><EFBFBD><EFBFBD>,'
                        +'v_cw_yingshou.<2E><>Ŀ<EFBFBD><C4BF>ʾ FROM t_ch_fee LEFT OUTER JOIN v_cw_yingshou '
                        +'ON t_ch_fee.CH_ID = v_cw_yingshou.CH_ID '
                        +'WHERE (t_ch_fee.<2E><><EFBFBD><EFBFBD> = '+''''+'<27><>'+''''+') and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> '
                        +' AND v_cw_yingshou.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>'+''''
                        +' GROUP BY t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,v_cw_yingshou.<2E><>Ŀ<EFBFBD><C4BF>ʾ '
                        +' ORDER BY t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
      t_yingfu.sql.add('SELECT t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>, SUM(t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>) AS <20><><EFBFBD><EFBFBD>,'
                        +'v_cw_yingfu.<2E><>Ŀ<EFBFBD><C4BF>ʾ FROM t_ch_fee LEFT OUTER JOIN v_cw_yingfu '
                        +'ON t_ch_fee.CH_ID =v_cw_yingfu.CH_ID '
                        +'WHERE (t_ch_fee.<2E><><EFBFBD><EFBFBD> = '+''''+'<27><>'+''''+') and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> '
                        +' AND v_cw_yingfu.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>'+''''
                        +' GROUP BY t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,v_cw_yingfu.<2E><>Ŀ<EFBFBD><C4BF>ʾ '
                        +' ORDER BY t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
      t_shouru.sql.add('SELECT SUM(t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>) AS <20><><EFBFBD><EFBFBD>,'
                        +'v_cw_shouru.<2E><>Ŀ<EFBFBD><C4BF>ʾ FROM t_ch_fee LEFT OUTER JOIN v_cw_shouru '
                        +'ON t_ch_fee.CH_ID =v_cw_shouru.CH_ID '
                        +'WHERE (t_ch_fee.<2E><><EFBFBD><EFBFBD> = '+''''+'<27><>'+''''+') and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> '
                        +' AND v_cw_shouru.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>'+''''
                        +' GROUP BY v_cw_shouru.<2E><>Ŀ<EFBFBD><C4BF>ʾ '
                        +' ORDER BY v_cw_shouru.<2E><>Ŀ<EFBFBD><C4BF>ʾ');
      t_chengben.sql.add('SELECT SUM(t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>) AS <20><><EFBFBD><EFBFBD>,'
                        +'v_cw_chengben.<2E><>Ŀ<EFBFBD><C4BF>ʾ FROM t_ch_fee LEFT OUTER JOIN v_cw_chengben '
                        +'ON t_ch_fee.CH_ID =v_cw_chengben.CH_ID '
                        +'WHERE (t_ch_fee.<2E><><EFBFBD><EFBFBD> = '+''''+'<27><>'+''''+') and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> '
                        +' AND v_cw_chengben.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>'+''''
                        +' GROUP BY v_cw_chengben.<2E><>Ŀ<EFBFBD><C4BF>ʾ '
                        +' ORDER BY v_cw_chengben.<2E><>Ŀ<EFBFBD><C4BF>ʾ');
    end;
    2:
    begin
      t_yingshou.sql.add('SELECT t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,t_ch_fee.<2E>ұ<EFBFBD>, SUM(t_ch_fee.<2E><><EFBFBD><EFBFBD>) AS <20><><EFBFBD><EFBFBD>,'
                        +'v_cw_yingshou.<2E><>Ŀ<EFBFBD><C4BF>ʾ FROM t_ch_fee LEFT OUTER JOIN v_cw_yingshou '
                        +'ON t_ch_fee.CH_ID = v_cw_yingshou.CH_ID '
                        +'WHERE (t_ch_fee.<2E><><EFBFBD><EFBFBD> = '+''''+'<27><>'+''''+') and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> '
                        +' AND v_cw_yingshou.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>'+''''
                        +' GROUP BY t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,t_ch_fee.<2E>ұ<EFBFBD>,v_cw_yingshou.<2E><>Ŀ<EFBFBD><C4BF>ʾ '
                        +' ORDER BY t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
      t_yingfu.sql.add('SELECT t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,t_ch_fee.<2E>ұ<EFBFBD>, SUM(t_ch_fee.<2E><><EFBFBD><EFBFBD>) AS <20><><EFBFBD><EFBFBD>,'
                        +'v_cw_yingfu.<2E><>Ŀ<EFBFBD><C4BF>ʾ FROM t_ch_fee LEFT OUTER JOIN v_cw_yingfu '
                        +'ON t_ch_fee.CH_ID =v_cw_yingfu.CH_ID '
                        +'WHERE (t_ch_fee.<2E><><EFBFBD><EFBFBD> = '+''''+'<27><>'+''''+') and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> '
                        +' AND v_cw_yingfu.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>'+''''
                        +' GROUP BY t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,t_ch_fee.<2E>ұ<EFBFBD>,v_cw_yingfu.<2E><>Ŀ<EFBFBD><C4BF>ʾ '
                        +' ORDER BY t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
      t_shouru.sql.add('SELECT t_ch_fee.<2E>ұ<EFBFBD>,SUM(t_ch_fee.<2E><><EFBFBD><EFBFBD>) AS <20><><EFBFBD><EFBFBD>,'
                        +'v_cw_shouru.<2E><>Ŀ<EFBFBD><C4BF>ʾ FROM t_ch_fee LEFT OUTER JOIN v_cw_shouru '
                        +'ON t_ch_fee.CH_ID =v_cw_shouru.CH_ID '
                        +'WHERE (t_ch_fee.<2E><><EFBFBD><EFBFBD> = '+''''+'<27><>'+''''+') and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> '
                        +' AND v_cw_shouru.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>'+''''
                        +' GROUP BY v_cw_shouru.<2E><>Ŀ<EFBFBD><C4BF>ʾ,t_ch_fee.<2E>ұ<EFBFBD> '
                        +' ORDER BY t_ch_fee.<2E>ұ<EFBFBD>,v_cw_shouru.<2E><>Ŀ<EFBFBD><C4BF>ʾ');
      t_chengben.sql.add('SELECT t_ch_fee.<2E>ұ<EFBFBD>,SUM(t_ch_fee.<2E><><EFBFBD><EFBFBD>) AS <20><><EFBFBD><EFBFBD>,'
                        +'v_cw_chengben.<2E><>Ŀ<EFBFBD><C4BF>ʾ FROM t_ch_fee LEFT OUTER JOIN v_cw_chengben '
                        +'ON t_ch_fee.CH_ID =v_cw_chengben.CH_ID '
                        +'WHERE (t_ch_fee.<2E><><EFBFBD><EFBFBD> = '+''''+'<27><>'+''''+') and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> '
                        +' AND v_cw_chengben.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>'+''''
                        +' GROUP BY v_cw_chengben.<2E><>Ŀ<EFBFBD><C4BF>ʾ,t_ch_fee.<2E>ұ<EFBFBD> '
                        +' ORDER BY t_ch_fee.<2E>ұ<EFBFBD>,v_cw_chengben.<2E><>Ŀ<EFBFBD><C4BF>ʾ');
    end;
  end;
  t_yingshou.open;
  t_yingfu.open;
  t_shouru.open;
  t_chengben.open;
end;

procedure Tfrm_cw_pingzheng.bsSkinButton11Click(Sender: TObject);
begin
  Edit5.text:='';
  Edit6.text:='';
  wwDBDateTimePicker9.text:='';
  wwDBDateTimePicker10.text:='';
  wwDBDateTimePicker11.text:='';
  wwDBDateTimePicker12.text:='';
end;

procedure Tfrm_cw_pingzheng.bsSkinButton12Click(Sender: TObject);
begin
  if t_op_aire.IsEmpty then
    exit;
  if not T_Voucher_Main.Active then
  begin
    showmessage('û<><C3BB><EFBFBD><EFBFBD><EFBFBD>ò<EFBFBD><C3B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӿڣ<D3BF><DAA3><EFBFBD>');
    exit;
  end;
  if t_yingshou.IsEmpty and t_yingfu.IsEmpty then
  begin
    showmessage('<27><>Ʊҵ<C6B1><D2B5>û<EFBFBD>з<EFBFBD><D0B7><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>');
    exit;
  end;  
  if not t_op_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').AsBoolean then
  begin
    case t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asinteger of
      1:
      begin
        if (frm_cw_pingzheng.cw_client_yingshou_error=false)
        and(frm_cw_pingzheng.cw_client_yingfu_error=false)
        and(frm_cw_pingzheng.cw_client_shouru_error=false)
        and(frm_cw_pingzheng.cw_client_chengben_error=false) then
        begin
          frm_cw_pingzheng.cw_add_1(3);
        end;
      end;
      2:
      begin
      end;
      3:
      begin
      end;
    end;
  end
  else
  begin
    showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD>');
    exit;
  end;
  showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƾ֤<C6BE><D6A4><EFBFBD>ϣ<EFBFBD><CFA3><EFBFBD>');
  t_op_aire.Requery();
end;

procedure Tfrm_cw_pingzheng.bsSkinButton13Click(Sender: TObject);
begin
  if t_op_aire.IsEmpty then
    exit;
  if not T_Voucher_Main.Active then
  begin
    showmessage('û<><C3BB><EFBFBD><EFBFBD><EFBFBD>ò<EFBFBD><C3B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӿڣ<D3BF><DAA3><EFBFBD>');
    exit;
  end;
  t_op_aire.first;
  while not t_op_aire.eof do
  begin
    if (t_yingshou.IsEmpty=false) and (t_yingfu.IsEmpty=false)
    and(t_op_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').AsBoolean=false) then
    case t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asinteger of
      1:
      begin
        if (frm_cw_pingzheng.cw_client_yingshou_error=false)
        and(frm_cw_pingzheng.cw_client_yingfu_error=false)
        and(frm_cw_pingzheng.cw_client_shouru_error=false)
        and(frm_cw_pingzheng.cw_client_chengben_error=false) then
        begin
          frm_cw_pingzheng.cw_add_1(3);
        end;
      end;
      2:
      begin
      end;
      3:
      begin
      end;
    end;
    t_op_aire.next;
  end;
  showmessage('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƾ֤<C6BE><D6A4><EFBFBD>ϣ<EFBFBD><CFA3><EFBFBD>');
  t_op_aire.Requery(); 
end;

procedure Tfrm_cw_pingzheng.bsSkinButton14Click(Sender: TObject);
var
  str:widestring;
begin
  str:='where (<28><><EFBFBD><EFBFBD> is null or <20><><EFBFBD><EFBFBD>=0) and <20><><EFBFBD><EFBFBD>״̬='+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+'''';
  if Edit7.text<>''then
    str:=str+' and ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> like '+''''+'%'+Edit7.text+'%'+'''';
  if Edit8.text<>''then
    str:=str+' and <20><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD> like '+''''+'%'+Edit8.text+'%'+'''';
  if wwDBDateTimePicker13.text<>''then
    str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker13.text+'''';
  if wwDBDateTimePicker14.text<>''then
    str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker14.text+'''';
  if wwDBDateTimePicker15.text<>''then
    str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>>='+''''+wwDBDateTimePicker15.text+'''';
  if wwDBDateTimePicker16.text<>''then
    str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD><='+''''+wwDBDateTimePicker16.text+'''';

  t_yingshou.close;
  t_yingshou.DataSource:=t_op_airi1;
  t_yingshou.sql.Clear;

  t_yingfu.close;
  t_yingfu.DataSource:=t_op_airi1;
  t_yingfu.sql.Clear;

  t_shouru.close;
  t_shouru.DataSource:=t_op_airi1;
  t_shouru.sql.Clear;

  t_chengben.close;
  t_chengben.DataSource:=t_op_airi1;
  t_chengben.sql.Clear;
  t_op_airi.close;
  t_op_airi.sql.clear;
  t_op_airi.sql.add('select * from t_op_airi '+str+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  t_op_airi.open;
  case t_cw_design.fieldbyname('<27><><EFBFBD>ɰ취').asinteger of
    1:
    begin
      t_yingshou.sql.add('SELECT t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>, SUM(t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>) AS <20><><EFBFBD><EFBFBD>,'
                        +'v_cw_yingshou.<2E><>Ŀ<EFBFBD><C4BF>ʾ FROM t_ch_fee LEFT OUTER JOIN v_cw_yingshou '
                        +'ON t_ch_fee.CH_ID = v_cw_yingshou.CH_ID '
                        +'WHERE (t_ch_fee.<2E><><EFBFBD><EFBFBD> = '+''''+'<27><>'+''''+') and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> '
                        +' AND v_cw_yingshou.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>'+''''
                        +' GROUP BY t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,v_cw_yingshou.<2E><>Ŀ<EFBFBD><C4BF>ʾ '
                        +' ORDER BY t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
      t_yingfu.sql.add('SELECT t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>, SUM(t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>) AS <20><><EFBFBD><EFBFBD>,'
                        +'v_cw_yingfu.<2E><>Ŀ<EFBFBD><C4BF>ʾ FROM t_ch_fee LEFT OUTER JOIN v_cw_yingfu '
                        +'ON t_ch_fee.CH_ID =v_cw_yingfu.CH_ID '
                        +'WHERE (t_ch_fee.<2E><><EFBFBD><EFBFBD> = '+''''+'<27><>'+''''+') and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> '
                        +' AND v_cw_yingfu.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>'+''''
                        +' GROUP BY t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,v_cw_yingfu.<2E><>Ŀ<EFBFBD><C4BF>ʾ '
                        +' ORDER BY t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
      t_shouru.sql.add('SELECT SUM(t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>) AS <20><><EFBFBD><EFBFBD>,'
                        +'v_cw_shouru.<2E><>Ŀ<EFBFBD><C4BF>ʾ FROM t_ch_fee LEFT OUTER JOIN v_cw_shouru '
                        +'ON t_ch_fee.CH_ID =v_cw_shouru.CH_ID '
                        +'WHERE (t_ch_fee.<2E><><EFBFBD><EFBFBD> = '+''''+'<27><>'+''''+') and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> '
                        +' AND v_cw_shouru.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>'+''''
                        +' GROUP BY v_cw_shouru.<2E><>Ŀ<EFBFBD><C4BF>ʾ '
                        +' ORDER BY v_cw_shouru.<2E><>Ŀ<EFBFBD><C4BF>ʾ');
      t_chengben.sql.add('SELECT SUM(t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>) AS <20><><EFBFBD><EFBFBD>,'
                        +'v_cw_chengben.<2E><>Ŀ<EFBFBD><C4BF>ʾ FROM t_ch_fee LEFT OUTER JOIN v_cw_chengben '
                        +'ON t_ch_fee.CH_ID =v_cw_chengben.CH_ID '
                        +'WHERE (t_ch_fee.<2E><><EFBFBD><EFBFBD> = '+''''+'<27><>'+''''+') and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> '
                        +' AND v_cw_chengben.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>'+''''
                        +' GROUP BY v_cw_chengben.<2E><>Ŀ<EFBFBD><C4BF>ʾ '
                        +' ORDER BY v_cw_chengben.<2E><>Ŀ<EFBFBD><C4BF>ʾ');
    end;
    2:
    begin
      t_yingshou.sql.add('SELECT t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,t_ch_fee.<2E>ұ<EFBFBD>, SUM(t_ch_fee.<2E><><EFBFBD><EFBFBD>) AS <20><><EFBFBD><EFBFBD>,'
                        +'v_cw_yingshou.<2E><>Ŀ<EFBFBD><C4BF>ʾ FROM t_ch_fee LEFT OUTER JOIN v_cw_yingshou '
                        +'ON t_ch_fee.CH_ID = v_cw_yingshou.CH_ID '
                        +'WHERE (t_ch_fee.<2E><><EFBFBD><EFBFBD> = '+''''+'<27><>'+''''+') and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> '
                        +' AND v_cw_yingshou.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>'+''''
                        +' GROUP BY t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,t_ch_fee.<2E>ұ<EFBFBD>,v_cw_yingshou.<2E><>Ŀ<EFBFBD><C4BF>ʾ '
                        +' ORDER BY t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
      t_yingfu.sql.add('SELECT t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,t_ch_fee.<2E>ұ<EFBFBD>, SUM(t_ch_fee.<2E><><EFBFBD><EFBFBD>) AS <20><><EFBFBD><EFBFBD>,'
                        +'v_cw_yingfu.<2E><>Ŀ<EFBFBD><C4BF>ʾ FROM t_ch_fee LEFT OUTER JOIN v_cw_yingfu '
                        +'ON t_ch_fee.CH_ID =v_cw_yingfu.CH_ID '
                        +'WHERE (t_ch_fee.<2E><><EFBFBD><EFBFBD> = '+''''+'<27><>'+''''+') and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> '
                        +' AND v_cw_yingfu.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>'+''''
                        +' GROUP BY t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,t_ch_fee.<2E>ұ<EFBFBD>,v_cw_yingfu.<2E><>Ŀ<EFBFBD><C4BF>ʾ '
                        +' ORDER BY t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
      t_shouru.sql.add('SELECT t_ch_fee.<2E>ұ<EFBFBD>,SUM(t_ch_fee.<2E><><EFBFBD><EFBFBD>) AS <20><><EFBFBD><EFBFBD>,'
                        +'v_cw_shouru.<2E><>Ŀ<EFBFBD><C4BF>ʾ FROM t_ch_fee LEFT OUTER JOIN v_cw_shouru '
                        +'ON t_ch_fee.CH_ID =v_cw_shouru.CH_ID '
                        +'WHERE (t_ch_fee.<2E><><EFBFBD><EFBFBD> = '+''''+'<27><>'+''''+') and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> '
                        +' AND v_cw_shouru.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>'+''''
                        +' GROUP BY v_cw_shouru.<2E><>Ŀ<EFBFBD><C4BF>ʾ,t_ch_fee.<2E>ұ<EFBFBD> '
                        +' ORDER BY t_ch_fee.<2E>ұ<EFBFBD>,v_cw_shouru.<2E><>Ŀ<EFBFBD><C4BF>ʾ');
      t_chengben.sql.add('SELECT t_ch_fee.<2E>ұ<EFBFBD>,SUM(t_ch_fee.<2E><><EFBFBD><EFBFBD>) AS <20><><EFBFBD><EFBFBD>,'
                        +'v_cw_chengben.<2E><>Ŀ<EFBFBD><C4BF>ʾ FROM t_ch_fee LEFT OUTER JOIN v_cw_chengben '
                        +'ON t_ch_fee.CH_ID =v_cw_chengben.CH_ID '
                        +'WHERE (t_ch_fee.<2E><><EFBFBD><EFBFBD> = '+''''+'<27><>'+''''+') and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> '
                        +' AND v_cw_chengben.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>'+''''
                        +' GROUP BY v_cw_chengben.<2E><>Ŀ<EFBFBD><C4BF>ʾ,t_ch_fee.<2E>ұ<EFBFBD> '
                        +' ORDER BY t_ch_fee.<2E>ұ<EFBFBD>,v_cw_chengben.<2E><>Ŀ<EFBFBD><C4BF>ʾ');
    end;
  end;
  t_yingshou.open;
  t_yingfu.open;
  t_shouru.open;
  t_chengben.open;
end;

procedure Tfrm_cw_pingzheng.bsSkinButton15Click(Sender: TObject);
begin
  Edit7.text:='';
  Edit8.text:='';
  wwDBDateTimePicker13.text:='';
  wwDBDateTimePicker14.text:='';
  wwDBDateTimePicker15.text:='';
  wwDBDateTimePicker16.text:='';
end;

procedure Tfrm_cw_pingzheng.bsSkinButton16Click(Sender: TObject);
begin
  if t_op_airi.IsEmpty then
    exit;
  if not T_Voucher_Main.Active then
  begin
    showmessage('û<><C3BB><EFBFBD><EFBFBD><EFBFBD>ò<EFBFBD><C3B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӿڣ<D3BF><DAA3><EFBFBD>');
    exit;
  end;
  if t_yingshou.IsEmpty and t_yingfu.IsEmpty then
  begin
    showmessage('<27><>Ʊҵ<C6B1><D2B5>û<EFBFBD>з<EFBFBD><D0B7><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>');
    exit;
  end;  
  if not t_op_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').AsBoolean then
  begin
    case t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asinteger of
      1:
      begin
        if (frm_cw_pingzheng.cw_client_yingshou_error=false)
        and(frm_cw_pingzheng.cw_client_yingfu_error=false)
        and(frm_cw_pingzheng.cw_client_shouru_error=false)
        and(frm_cw_pingzheng.cw_client_chengben_error=false) then
        begin
          frm_cw_pingzheng.cw_add_1(4);
        end;
      end;
      2:
      begin
      end;
      3:
      begin
      end;
    end;
  end
  else
  begin
    showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD>');
    exit;
  end;
  showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƾ֤<C6BE><D6A4><EFBFBD>ϣ<EFBFBD><CFA3><EFBFBD>');
  t_op_airi.Requery();
end;

procedure Tfrm_cw_pingzheng.bsSkinButton17Click(Sender: TObject);
begin
  if t_op_airi.IsEmpty then
    exit;
  if not T_Voucher_Main.Active then
  begin
    showmessage('û<><C3BB><EFBFBD><EFBFBD><EFBFBD>ò<EFBFBD><C3B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӿڣ<D3BF><DAA3><EFBFBD>');
    exit;
  end;
  t_op_airi.first;
  while not t_op_airi.eof do
  begin
    if (t_yingshou.IsEmpty=false) and (t_yingfu.IsEmpty=false)
    and(t_op_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').AsBoolean=false) then
    case t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asinteger of
      1:
      begin
        if (frm_cw_pingzheng.cw_client_yingshou_error=false)
        and(frm_cw_pingzheng.cw_client_yingfu_error=false)
        and(frm_cw_pingzheng.cw_client_shouru_error=false)
        and(frm_cw_pingzheng.cw_client_chengben_error=false) then
        begin
          frm_cw_pingzheng.cw_add_1(4);
        end;
      end;
      2:
      begin
      end;
      3:
      begin
      end;
    end;
    t_op_seai.next;
  end;
  showmessage('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƾ֤<C6BE><D6A4><EFBFBD>ϣ<EFBFBD><CFA3><EFBFBD>');
  t_op_airi.Requery();      
end;

end.