unit u_rp_dui_query;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BusinessSkinForm, ComCtrls, bsSkinTabs, wwdbdatetimepicker,
  RxLookup, StdCtrls, Mask, wwdbedit, Wwdotdot, Wwdbcomb, bsSkinCtrls;

type
  Tfrm_rp_dui_query = class(TForm)
    bsSkinButton1: TbsSkinButton;
    bsSkinButton10: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    bsSkinGroupBox1: TbsSkinGroupBox;
    Label6: TLabel;
    Label9: TLabel;
    Label5: TLabel;
    Label4: TLabel;
    Label10: TLabel;
    wwDBComboBox15: TwwDBComboBox;
    Edit2: TEdit;
    wwDBComboBox21: TwwDBComboBox;
    RxDBLookupCombo2: TRxDBLookupCombo;
    wwDBComboBox6: TwwDBComboBox;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    RxDBLookupCombo4: TRxDBLookupCombo;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    wwDBComboBox18: TwwDBComboBox;
    wwDBComboBox5: TwwDBComboBox;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinNotebook1: TbsSkinNotebook;
    Label12: TLabel;
    wwDBComboBox7: TwwDBComboBox;
    Edit3: TEdit;
    Label13: TLabel;
    wwDBComboBox8: TwwDBComboBox;
    Edit5: TEdit;
    Label15: TLabel;
    wwDBComboBox16: TwwDBComboBox;
    Edit6: TEdit;
    Label16: TLabel;
    wwDBComboBox9: TwwDBComboBox;
    Edit7: TEdit;
    wwDBDateTimePicker6: TwwDBDateTimePicker;
    wwDBComboBox12: TwwDBComboBox;
    Label18: TLabel;
    wwDBDateTimePicker5: TwwDBDateTimePicker;
    wwDBComboBox10: TwwDBComboBox;
    Label17: TLabel;
    Label20: TLabel;
    wwDBComboBox20: TwwDBComboBox;
    wwDBDateTimePicker8: TwwDBDateTimePicker;
    Label19: TLabel;
    wwDBComboBox13: TwwDBComboBox;
    wwDBDateTimePicker7: TwwDBDateTimePicker;
    RxDBLookupCombo6: TRxDBLookupCombo;
    wwDBComboBox22: TwwDBComboBox;
    Label22: TLabel;
    RxDBLookupCombo5: TRxDBLookupCombo;
    wwDBComboBox24: TwwDBComboBox;
    Label21: TLabel;
    Label24: TLabel;
    wwDBComboBox25: TwwDBComboBox;
    RxDBLookupCombo8: TRxDBLookupCombo;
    Label23: TLabel;
    wwDBComboBox23: TwwDBComboBox;
    RxDBLookupCombo7: TRxDBLookupCombo;
    Label25: TLabel;
    wwDBComboBox26: TwwDBComboBox;
    Edit8: TEdit;
    Label26: TLabel;
    wwDBComboBox27: TwwDBComboBox;
    Edit9: TEdit;
    Edit11: TEdit;
    wwDBComboBox29: TwwDBComboBox;
    Label28: TLabel;
    Edit10: TEdit;
    wwDBComboBox28: TwwDBComboBox;
    Label27: TLabel;
    Label29: TLabel;
    wwDBComboBox30: TwwDBComboBox;
    wwDBDateTimePicker9: TwwDBDateTimePicker;
    Label30: TLabel;
    wwDBComboBox31: TwwDBComboBox;
    wwDBDateTimePicker10: TwwDBDateTimePicker;
    wwDBDateTimePicker12: TwwDBDateTimePicker;
    wwDBComboBox33: TwwDBComboBox;
    Label32: TLabel;
    wwDBDateTimePicker11: TwwDBDateTimePicker;
    wwDBComboBox32: TwwDBComboBox;
    Label31: TLabel;
    Label34: TLabel;
    wwDBComboBox35: TwwDBComboBox;
    RxDBLookupCombo10: TRxDBLookupCombo;
    Label33: TLabel;
    wwDBComboBox34: TwwDBComboBox;
    RxDBLookupCombo9: TRxDBLookupCombo;
    RxDBLookupCombo12: TRxDBLookupCombo;
    wwDBComboBox37: TwwDBComboBox;
    Label36: TLabel;
    RxDBLookupCombo11: TRxDBLookupCombo;
    wwDBComboBox36: TwwDBComboBox;
    Label35: TLabel;
    Label37: TLabel;
    wwDBComboBox38: TwwDBComboBox;
    Edit12: TEdit;
    Label38: TLabel;
    wwDBComboBox39: TwwDBComboBox;
    Edit13: TEdit;
    Label40: TLabel;
    wwDBComboBox41: TwwDBComboBox;
    Edit15: TEdit;
    Label39: TLabel;
    wwDBComboBox40: TwwDBComboBox;
    Edit14: TEdit;
    wwDBDateTimePicker14: TwwDBDateTimePicker;
    wwDBComboBox43: TwwDBComboBox;
    Label42: TLabel;
    wwDBComboBox42: TwwDBComboBox;
    Label41: TLabel;
    Label44: TLabel;
    wwDBComboBox45: TwwDBComboBox;
    wwDBDateTimePicker16: TwwDBDateTimePicker;
    Label43: TLabel;
    wwDBComboBox44: TwwDBComboBox;
    wwDBDateTimePicker15: TwwDBDateTimePicker;
    RxDBLookupCombo14: TRxDBLookupCombo;
    wwDBComboBox47: TwwDBComboBox;
    Label46: TLabel;
    RxDBLookupCombo13: TRxDBLookupCombo;
    wwDBComboBox46: TwwDBComboBox;
    Label45: TLabel;
    Label48: TLabel;
    wwDBComboBox49: TwwDBComboBox;
    RxDBLookupCombo16: TRxDBLookupCombo;
    Label47: TLabel;
    wwDBComboBox48: TwwDBComboBox;
    RxDBLookupCombo15: TRxDBLookupCombo;
    wwDBDateTimePicker13: TwwDBDateTimePicker;
    Label49: TLabel;
    wwDBComboBox50: TwwDBComboBox;
    Edit16: TEdit;
    Label50: TLabel;
    wwDBComboBox51: TwwDBComboBox;
    Edit17: TEdit;
    Edit18: TEdit;
    wwDBComboBox52: TwwDBComboBox;
    Label51: TLabel;
    Edit19: TEdit;
    wwDBComboBox53: TwwDBComboBox;
    Label52: TLabel;
    Label53: TLabel;
    wwDBComboBox54: TwwDBComboBox;
    wwDBDateTimePicker17: TwwDBDateTimePicker;
    Label54: TLabel;
    wwDBComboBox55: TwwDBComboBox;
    wwDBDateTimePicker18: TwwDBDateTimePicker;
    wwDBDateTimePicker19: TwwDBDateTimePicker;
    wwDBComboBox56: TwwDBComboBox;
    Label55: TLabel;
    wwDBDateTimePicker20: TwwDBDateTimePicker;
    wwDBComboBox57: TwwDBComboBox;
    Label56: TLabel;
    Label57: TLabel;
    wwDBComboBox58: TwwDBComboBox;
    RxDBLookupCombo17: TRxDBLookupCombo;
    Label58: TLabel;
    wwDBComboBox59: TwwDBComboBox;
    RxDBLookupCombo18: TRxDBLookupCombo;
    RxDBLookupCombo19: TRxDBLookupCombo;
    wwDBComboBox60: TwwDBComboBox;
    Label59: TLabel;
    RxDBLookupCombo20: TRxDBLookupCombo;
    wwDBComboBox61: TwwDBComboBox;
    Label60: TLabel;
    Label3: TLabel;
    wwDBComboBox4: TwwDBComboBox;
    Edit4: TEdit;
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton10Click(Sender: TObject);
    procedure bsSkinButton5Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_rp_dui_query: Tfrm_rp_dui_query;
  dui_query_num:integer;

implementation

uses u_main, u_data_share, u_rp_dui_seae_accept, u_rp_dui_seae_pay,
  u_rp_dui_seai_accept, u_rp_dui_seai_pay, u_rp_dui_aire_accept,
  u_rp_dui_aire_pay, u_rp_dui_airi_accept, u_rp_dui_airi_pay,
  my_sys_function;

{$R *.dfm}

procedure Tfrm_rp_dui_query.FormShow(Sender: TObject);
begin
  case dui_query_num of
    1,2:
    begin
      bsSkinNotebook1.PageIndex:=0;
    end;
    3,4:
    begin
      bsSkinNotebook1.PageIndex:=1;
    end;
    5,6:
    begin
      bsSkinNotebook1.PageIndex:=2;
    end;
    7,8:
    begin
      bsSkinNotebook1.PageIndex:=3;
    end;
  end;
  wwDBComboBox15.text:='模糊';
  wwDBComboBox18.text:='等于';
  wwDBComboBox5.text:='等于';
  wwDBComboBox21.text:='等于';
  wwDBComboBox4.text:='模糊';
  wwDBComboBox6.text:='等于';
  wwDBComboBox7.text:='模糊';
  wwDBComboBox16.text:='模糊';
  wwDBComboBox10.text:='等于';
  wwDBComboBox20.text:='等于';
  wwDBComboBox24.text:='等于';
  wwDBComboBox25.text:='等于';
  wwDBComboBox8.text:='模糊';
  wwDBComboBox9.text:='模糊';
  wwDBComboBox12.text:='等于';
  wwDBComboBox13.text:='等于';
  wwDBComboBox22.text:='等于';
  wwDBComboBox23.text:='等于';

  wwDBComboBox26.text:='模糊';
  wwDBComboBox28.text:='模糊';
  wwDBComboBox30.text:='等于';
  wwDBComboBox32.text:='等于';
  wwDBComboBox35.text:='等于';
  wwDBComboBox36.text:='等于';
  wwDBComboBox27.text:='模糊';
  wwDBComboBox29.text:='模糊';
  wwDBComboBox31.text:='等于';
  wwDBComboBox33.text:='等于';
  wwDBComboBox34.text:='等于';
  wwDBComboBox37.text:='等于';

  wwDBComboBox38.text:='模糊';
  wwDBComboBox39.text:='模糊';
  wwDBComboBox40.text:='模糊';
  wwDBComboBox41.text:='模糊';
  wwDBComboBox42.text:='等于';
  wwDBComboBox43.text:='等于';
  wwDBComboBox44.text:='等于';
  wwDBComboBox45.text:='等于';
  wwDBComboBox46.text:='等于';
  wwDBComboBox47.text:='等于';
  wwDBComboBox48.text:='等于';
  wwDBComboBox49.text:='等于';

  wwDBComboBox50.text:='模糊';
  wwDBComboBox51.text:='模糊';
  wwDBComboBox52.text:='模糊';
  wwDBComboBox53.text:='模糊';
  wwDBComboBox54.text:='等于';
  wwDBComboBox55.text:='等于';
  wwDBComboBox56.text:='等于';
  wwDBComboBox57.text:='等于';
  wwDBComboBox58.text:='等于';
  wwDBComboBox59.text:='等于';
  wwDBComboBox60.text:='等于';
  wwDBComboBox61.text:='等于';

  frm_data_share.t_crm_client_all.requery;
  frm_data_share.t_sys_employee.requery;
end;

procedure Tfrm_rp_dui_query.bsSkinButton10Click(Sender: TObject);
begin
  Edit2.text:='';
  wwDBDateTimePicker1.Clear;
  RxDBLookupCombo4.ClearValue;
  Edit4.text:='';
  RxDBLookupCombo2.ClearValue;
  wwDBDateTimePicker2.Clear;
  
  Edit3.text:='';
  Edit5.text:='';
  Edit6.text:='';
  Edit7.text:='';
  Edit8.text:='';
  Edit9.text:='';
  Edit10.text:='';
  Edit11.text:='';
  Edit12.text:='';
  Edit13.text:='';
  Edit14.text:='';
  Edit15.text:='';
  Edit16.text:='';
  Edit17.text:='';
  Edit18.text:='';
  Edit19.text:='';
  wwDBDateTimePicker5.Clear;
  wwDBDateTimePicker6.Clear;
  wwDBDateTimePicker7.Clear;
  wwDBDateTimePicker8.Clear;
  wwDBDateTimePicker9.Clear;
  wwDBDateTimePicker10.Clear;
  wwDBDateTimePicker11.Clear;
  wwDBDateTimePicker12.Clear;
  wwDBDateTimePicker13.Clear;
  wwDBDateTimePicker14.Clear;
  wwDBDateTimePicker15.Clear;
  wwDBDateTimePicker16.Clear;
  wwDBDateTimePicker17.Clear;
  wwDBDateTimePicker18.Clear;
  wwDBDateTimePicker19.Clear;
  wwDBDateTimePicker20.Clear;
  RxDBLookupCombo5.ClearValue;
  RxDBLookupCombo6.ClearValue;
  RxDBLookupCombo7.ClearValue;
  RxDBLookupCombo8.ClearValue;
  RxDBLookupCombo9.ClearValue;
  RxDBLookupCombo10.ClearValue;
  RxDBLookupCombo11.ClearValue;
  RxDBLookupCombo12.ClearValue;
  RxDBLookupCombo13.ClearValue;
  RxDBLookupCombo14.ClearValue;
  RxDBLookupCombo15.ClearValue;
  RxDBLookupCombo16.ClearValue;
  RxDBLookupCombo17.ClearValue;
  RxDBLookupCombo18.ClearValue;
  RxDBLookupCombo19.ClearValue;
  RxDBLookupCombo20.ClearValue;
end;

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

procedure Tfrm_rp_dui_query.bsSkinButton1Click(Sender: TObject);
var
  shen_string,op_string:widestring;
begin
  shen_string:='';
  op_string:='';
  shen_string:='where 类别='+inttostr(dui_query_num);
  shen_string:=shen_string+' and '+open_data('0032','对帐人','no','no','no','no');
  shen_string:=query_tiaojian(1,shen_string,'对帐编号',wwDBComboBox15.text,Edit2.text);
  shen_string:=query_tiaojian(1,shen_string,'对帐日期',wwDBComboBox18.text,wwDBDateTimePicker1.text);
  shen_string:=query_tiaojian(1,shen_string,'对帐人',wwDBComboBox5.text,RxDBLookupCombo4.DisplayValues[0]);
  shen_string:=query_tiaojian(1,shen_string,'对帐名称',wwDBComboBox4.text,Edit4.text);
  shen_string:=query_tiaojian(1,shen_string,'对帐客户',wwDBComboBox21.text,RxDBLookupCombo2.DisplayValues[1]);
  shen_string:=query_tiaojian(1,shen_string,'对帐日期',wwDBComboBox6.text,wwDBDateTimePicker2.text);
  
  if bsSkinNotebook1.PageIndex=0 then
  begin
    op_string:=query_tiaojian(1,op_string,'业务编号',wwDBComboBox7.text,Edit3.text);
    op_string:=query_tiaojian(1,op_string,'主提单号',wwDBComboBox16.text,Edit6.text);
    op_string:=query_tiaojian(1,op_string,'开船日期',wwDBComboBox10.text,wwDBDateTimePicker5.text);
    op_string:=query_tiaojian(1,op_string,'会计期间',wwDBComboBox20.text,wwDBDateTimePicker8.text);
    op_string:=query_tiaojian(1,op_string,'客服员',wwDBComboBox24.text,RxDBLookupCombo5.DisplayValues[0]);
    op_string:=query_tiaojian(1,op_string,'操作员',wwDBComboBox25.text,RxDBLookupCombo8.DisplayValues[0]);
    op_string:=query_tiaojian(1,op_string,'委托编号',wwDBComboBox8.text,Edit5.text);
    op_string:=query_tiaojian(1,op_string,'分提单号',wwDBComboBox9.text,Edit7.text);
    op_string:=query_tiaojian(1,op_string,'开船日期',wwDBComboBox12.text,wwDBDateTimePicker6.text);
    op_string:=query_tiaojian(1,op_string,'会计期间',wwDBComboBox13.text,wwDBDateTimePicker7.text);
    op_string:=query_tiaojian(1,op_string,'揽货人',wwDBComboBox22.text,RxDBLookupCombo6.DisplayValues[0]);
    op_string:=query_tiaojian(1,op_string,'录入人',wwDBComboBox23.text,RxDBLookupCombo7.DisplayValues[0]);
    if trim(op_string)<>''then
    begin
      op_string:='(select 编号 from t_op_seae '+op_string+')';
    end;
  end;

  if bsSkinNotebook1.PageIndex=1 then
  begin
    op_string:=query_tiaojian(1,op_string,'业务编号',wwDBComboBox26.text,Edit8.text);
    op_string:=query_tiaojian(1,op_string,'主提单号',wwDBComboBox28.text,Edit10.text);
    op_string:=query_tiaojian(1,op_string,'进口日期',wwDBComboBox30.text,wwDBDateTimePicker9.text);
    op_string:=query_tiaojian(1,op_string,'会计期间',wwDBComboBox32.text,wwDBDateTimePicker11.text);
    op_string:=query_tiaojian(1,op_string,'客服员',wwDBComboBox35.text,RxDBLookupCombo10.DisplayValues[0]);
    op_string:=query_tiaojian(1,op_string,'操作员',wwDBComboBox36.text,RxDBLookupCombo11.DisplayValues[0]);
    op_string:=query_tiaojian(1,op_string,'委托编号',wwDBComboBox27.text,Edit9.text);
    op_string:=query_tiaojian(1,op_string,'分提单号',wwDBComboBox29.text,Edit11.text);
    op_string:=query_tiaojian(1,op_string,'进口日期',wwDBComboBox31.text,wwDBDateTimePicker10.text);
    op_string:=query_tiaojian(1,op_string,'会计期间',wwDBComboBox33.text,wwDBDateTimePicker12.text);
    op_string:=query_tiaojian(1,op_string,'揽货人',wwDBComboBox34.text,RxDBLookupCombo9.DisplayValues[0]);
    op_string:=query_tiaojian(1,op_string,'录入人',wwDBComboBox37.text,RxDBLookupCombo12.DisplayValues[0]);
    if trim(op_string)<>''then
      op_string:='(select 编号 from t_op_seai '+op_string+')';
  end;

  if bsSkinNotebook1.PageIndex=2 then
  begin
    op_string:=query_tiaojian(1,op_string,'业务编号',wwDBComboBox38.text,Edit12.text);
    op_string:=query_tiaojian(1,op_string,'主运单号',wwDBComboBox41.text,Edit15.text);
    op_string:=query_tiaojian(1,op_string,'委托编号',wwDBComboBox39.text,Edit13.text);
    op_string:=query_tiaojian(1,op_string,'分运单号',wwDBComboBox40.text,Edit14.text);
    op_string:=query_tiaojian(1,op_string,'一程开航日期',wwDBComboBox42.text,wwDBDateTimePicker13.text);
    op_string:=query_tiaojian(1,op_string,'一程开航日期',wwDBComboBox43.text,wwDBDateTimePicker14.text);
    op_string:=query_tiaojian(1,op_string,'会计期间',wwDBComboBox45.text,wwDBDateTimePicker16.text);
    op_string:=query_tiaojian(1,op_string,'会计期间',wwDBComboBox44.text,wwDBDateTimePicker15.text);
    op_string:=query_tiaojian(1,op_string,'客服员',wwDBComboBox46.text,RxDBLookupCombo13.DisplayValues[0]);
    op_string:=query_tiaojian(1,op_string,'操作员',wwDBComboBox49.text,RxDBLookupCombo16.DisplayValues[0]);
    op_string:=query_tiaojian(1,op_string,'揽货人',wwDBComboBox47.text,RxDBLookupCombo14.DisplayValues[0]);
    op_string:=query_tiaojian(1,op_string,'录入人',wwDBComboBox48.text,RxDBLookupCombo15.DisplayValues[0]);
    if trim(op_string)<>''then
      op_string:='(select 编号 from t_op_aire '+op_string+')';
  end;

  if bsSkinNotebook1.PageIndex=3 then
  begin
    op_string:=query_tiaojian(1,op_string,'业务编号',wwDBComboBox50.text,Edit16.text);
    op_string:=query_tiaojian(1,op_string,'主运单号',wwDBComboBox53.text,Edit19.text);
    op_string:=query_tiaojian(1,op_string,'委托编号',wwDBComboBox51.text,Edit17.text);
    op_string:=query_tiaojian(1,op_string,'分运单号',wwDBComboBox52.text,Edit18.text);
    op_string:=query_tiaojian(1,op_string,'进口日期',wwDBComboBox54.text,wwDBDateTimePicker17.text);
    op_string:=query_tiaojian(1,op_string,'进口日期',wwDBComboBox55.text,wwDBDateTimePicker18.text);
    op_string:=query_tiaojian(1,op_string,'会计期间',wwDBComboBox57.text,wwDBDateTimePicker20.text);
    op_string:=query_tiaojian(1,op_string,'会计期间',wwDBComboBox56.text,wwDBDateTimePicker19.text);
    op_string:=query_tiaojian(1,op_string,'客服员',wwDBComboBox58.text,RxDBLookupCombo17.DisplayValues[0]);
    op_string:=query_tiaojian(1,op_string,'操作员',wwDBComboBox61.text,RxDBLookupCombo20.DisplayValues[0]);
    op_string:=query_tiaojian(1,op_string,'揽货人',wwDBComboBox59.text,RxDBLookupCombo18.DisplayValues[0]);
    op_string:=query_tiaojian(1,op_string,'录入人',wwDBComboBox60.text,RxDBLookupCombo19.DisplayValues[0]);
    if trim(op_string)<>''then
      op_string:='(select 编号 from t_op_airi '+op_string+')';
  end;

  if op_string<>''then
  begin
    op_string:='(select 对帐编号 from t_ch_dui_bill where 编号 in '+op_string+')';
    shen_string:=shen_string+' and 对帐编号 in '+op_string;
  end;  
  shen_string:='select * from t_ch_dui '+shen_string+' order by 对帐编号 desc';


  case dui_query_num of
    1:
    begin
      with frm_rp_dui_seae_accept do
      begin
        modify_all:=true;
        t_ch_dui.close;
        t_ch_dui.sql.clear;
        t_ch_dui.sql.text:=shen_string;
        t_ch_dui.open;
        modify_all:=false;
        if t_ch_dui.IsEmpty then
        begin
          showmessage('没有检索出所需申请！！');
          exit;
        end;
      end;
    end;
    2:
    begin
      with frm_rp_dui_seae_pay do
      begin
        modify_all:=true;
        t_ch_dui.close;
        t_ch_dui.sql.clear;
        t_ch_dui.sql.text:=shen_string;
        t_ch_dui.open;
        modify_all:=false;
        if t_ch_dui.IsEmpty then
        begin
          showmessage('没有检索出所需申请！！');
          exit;
        end;
        if t_ch_dui.fieldbyname('DM_ID').asstring<>''then
        if t_ch_dui_format.Locate('DM_ID',t_ch_dui.fieldbyname('DM_ID').asinteger,[])then
        begin
          dui_grid(t_ch_dui_format.fieldbyname('字段内容').asstring,dxdbgrid2);
          t_bill_fee.close;
          t_bill_fee.Parameters.ParamByName('SQLStr').value:=dui_sql(t_ch_dui_format.fieldbyname('字段内容').asstring,'t_op_seae',t_ch_dui.fieldbyname('对帐编号').asstring);
          t_bill_fee.open;
        end;
      end;
    end;
    3:
    begin
      with frm_rp_dui_seai_accept do
      begin
        modify_all:=true;
        t_ch_dui.close;
        t_ch_dui.sql.clear;
        t_ch_dui.sql.text:=shen_string;
        t_ch_dui.open;
        modify_all:=false;
        if t_ch_dui.IsEmpty then
        begin
          showmessage('没有检索出所需申请！！');
          exit;
        end;
        if t_ch_dui.fieldbyname('DM_ID').asstring<>''then
        if t_ch_dui_format.Locate('DM_ID',t_ch_dui.fieldbyname('DM_ID').asinteger,[])then
        begin
          dui_grid(t_ch_dui_format.fieldbyname('字段内容').asstring,dxdbgrid2);
          t_bill_fee.close;
          t_bill_fee.Parameters.ParamByName('SQLStr').value:=dui_sql(t_ch_dui_format.fieldbyname('字段内容').asstring,'t_op_seai',t_ch_dui.fieldbyname('对帐编号').asstring);
          t_bill_fee.open;
        end;
      end;
    end;
    4:
    begin
      with frm_rp_dui_seai_pay do
      begin
        modify_all:=true;
        t_ch_dui.close;
        t_ch_dui.sql.clear;
        t_ch_dui.sql.text:=shen_string;
        t_ch_dui.open;
        modify_all:=false;
        if t_ch_dui.IsEmpty then
        begin
          showmessage('没有检索出所需申请！！');
          exit;
        end;
        if t_ch_dui.fieldbyname('DM_ID').asstring<>''then
        if t_ch_dui_format.Locate('DM_ID',t_ch_dui.fieldbyname('DM_ID').asinteger,[])then
        begin
          dui_grid(t_ch_dui_format.fieldbyname('字段内容').asstring,dxdbgrid2);
          t_bill_fee.close;
          t_bill_fee.Parameters.ParamByName('SQLStr').value:=dui_sql(t_ch_dui_format.fieldbyname('字段内容').asstring,'t_op_seai',t_ch_dui.fieldbyname('对帐编号').asstring);
          t_bill_fee.open;
        end;
      end;
    end;
    5:
    begin
      with frm_rp_dui_aire_accept do
      begin
        modify_all:=true;
        t_ch_dui.close;
        t_ch_dui.sql.clear;
        t_ch_dui.sql.text:=shen_string;
        t_ch_dui.open;
        modify_all:=false;
        if t_ch_dui.IsEmpty then
        begin
          showmessage('没有检索出所需申请！！');
          exit;
        end;
        if t_ch_dui.fieldbyname('DM_ID').asstring<>''then
        if t_ch_dui_format.Locate('DM_ID',t_ch_dui.fieldbyname('DM_ID').asinteger,[])then
        begin
          dui_grid(t_ch_dui_format.fieldbyname('字段内容').asstring,dxdbgrid2);
          t_bill_fee.close;
          t_bill_fee.Parameters.ParamByName('SQLStr').value:=dui_sql(t_ch_dui_format.fieldbyname('字段内容').asstring,'t_op_aire',t_ch_dui.fieldbyname('对帐编号').asstring);
          t_bill_fee.open;
        end;
      end;
    end;
    6:
    begin
      with frm_rp_dui_aire_pay do
      begin
        modify_all:=true;
        t_ch_dui.close;
        t_ch_dui.sql.clear;
        t_ch_dui.sql.text:=shen_string;
        t_ch_dui.open;
        modify_all:=false;
        if t_ch_dui.IsEmpty then
        begin
          showmessage('没有检索出所需申请！！');
          exit;
        end;
        if t_ch_dui.fieldbyname('DM_ID').asstring<>''then
        if t_ch_dui_format.Locate('DM_ID',t_ch_dui.fieldbyname('DM_ID').asinteger,[])then
        begin
          dui_grid(t_ch_dui_format.fieldbyname('字段内容').asstring,dxdbgrid2);
          t_bill_fee.close;
          t_bill_fee.Parameters.ParamByName('SQLStr').value:=dui_sql(t_ch_dui_format.fieldbyname('字段内容').asstring,'t_op_aire',t_ch_dui.fieldbyname('对帐编号').asstring);
          t_bill_fee.open;
        end;
      end;
    end;
    7:
    begin
      with frm_rp_dui_airi_accept do
      begin
        modify_all:=true;
        t_ch_dui.close;
        t_ch_dui.sql.clear;
        t_ch_dui.sql.text:=shen_string;
        t_ch_dui.open;
        modify_all:=false;
        if t_ch_dui.IsEmpty then
        begin
          showmessage('没有检索出所需申请！！');
          exit;
        end;
        if t_ch_dui.fieldbyname('DM_ID').asstring<>''then
        if t_ch_dui_format.Locate('DM_ID',t_ch_dui.fieldbyname('DM_ID').asinteger,[])then
        begin
          dui_grid(t_ch_dui_format.fieldbyname('字段内容').asstring,dxdbgrid2);
          t_bill_fee.close;
          t_bill_fee.Parameters.ParamByName('SQLStr').value:=dui_sql(t_ch_dui_format.fieldbyname('字段内容').asstring,'t_op_airi',t_ch_dui.fieldbyname('对帐编号').asstring);
          t_bill_fee.open;
        end;
      end;
    end;
    8:
    begin
      with frm_rp_dui_airi_pay do
      begin
        modify_all:=true;
        t_ch_dui.close;
        t_ch_dui.sql.clear;
        t_ch_dui.sql.text:=shen_string;
        t_ch_dui.open;
        modify_all:=false;
        if t_ch_dui.IsEmpty then
        begin
          showmessage('没有检索出所需申请！！');
          exit;
        end;
        if t_ch_dui.fieldbyname('DM_ID').asstring<>''then
        if t_ch_dui_format.Locate('DM_ID',t_ch_dui.fieldbyname('DM_ID').asinteger,[])then
        begin
          dui_grid(t_ch_dui_format.fieldbyname('字段内容').asstring,dxdbgrid2);
          t_bill_fee.close;
          t_bill_fee.Parameters.ParamByName('SQLStr').value:=dui_sql(t_ch_dui_format.fieldbyname('字段内容').asstring,'t_op_airi',t_ch_dui.fieldbyname('对帐编号').asstring);
          t_bill_fee.open;
        end;
      end;
    end;
  end;
  close;
end;

end.