unit u_op_aire_close;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxExEdtr, DB, ADODB, RxLookup, StdCtrls, Mask, DBCtrls, Grids,
  Wwdbigrd, Wwdbgrid, dxDBGrid, dxDBTLCl, dxGrClms, dxTL, dxDBCtrl,
  dxCntner, ComCtrls, bsSkinTabs, bsSkinCtrls, XPMenu, Menus,
  bsSkinBoxCtrls, bsdbctrls, ExtCtrls;

type
  Tfrm_op_aire_close = class(TForm)
    bsSkinPanel2: TbsSkinPanel;
    bsSkinButton5: TbsSkinButton;
    bsSkinButton8: TbsSkinButton;
    bsSkinButton10: TbsSkinButton;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    bsSkinButton4: TbsSkinButton;
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet1: TbsSkinTabSheet;
    bsSkinTabSheet2: TbsSkinTabSheet;
    wwDBGrid1: TwwDBGrid;
    wwDBGrid2: TwwDBGrid;
    t_ch_accept: TADOQuery;
    t_ch_accept1: TDataSource;
    t_ch_pay: TADOQuery;
    t_ch_pay1: TDataSource;
    t_op_aire1: TDataSource;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridMaskColumn;
    dxDBGrid1Column2: TdxDBGridMaskColumn;
    dxDBGrid1Column3: TdxDBGridMaskColumn;
    dxDBGrid1Column5: TdxDBGridMaskColumn;
    dxDBGrid1Column6: TdxDBGridMaskColumn;
    dxDBGrid1Column7: TdxDBGridMaskColumn;
    dxDBGrid1Column8: TdxDBGridMaskColumn;
    dxDBGrid1Column4: TdxDBGridDateColumn;
    dxDBGrid1Column9: TdxDBGridMaskColumn;
    dxDBGrid1Column10: TdxDBGridMaskColumn;
    dxDBGrid1Column11: TdxDBGridMaskColumn;
    dxDBGrid1Column12: TdxDBGridMaskColumn;
    dxDBGrid1Column13: TdxDBGridMaskColumn;
    dxDBGrid1Column14: TdxDBGridDateColumn;
    dxDBGrid1Column15: TdxDBGridMaskColumn;
    dxDBGrid1Column16: TdxDBGridDateColumn;
    dxDBGrid1Column17: TdxDBGridMaskColumn;
    dxDBGrid1Column31: TdxDBGridColumn;
    dxDBGrid1Column18: TdxDBGridMaskColumn;
    dxDBGrid1Column19: TdxDBGridColumn;
    dxDBGrid1Column20: TdxDBGridMaskColumn;
    dxDBGrid1Column21: TdxDBGridMaskColumn;
    dxDBGrid1Column23: TdxDBGridColumn;
    dxDBGrid1Column22: TdxDBGridColumn;
    dxDBGrid1Column24: TdxDBGridColumn;
    dxDBGrid1Column25: TdxDBGridMaskColumn;
    dxDBGrid1Column26: TdxDBGridMaskColumn;
    dxDBGrid1Column27: TdxDBGridMaskColumn;
    dxDBGrid1Column28: TdxDBGridMaskColumn;
    dxDBGrid1Column29: TdxDBGridMaskColumn;
    dxDBGrid1Column30: TdxDBGridDateColumn;
    bsSkinPanel3: TbsSkinPanel;
    Label1: TLabel;
    Label19: TLabel;
    Label2: TLabel;
    Label17: TLabel;
    Label3: TLabel;
    Label37: TLabel;
    Label5: TLabel;
    Label38: TLabel;
    Label4: TLabel;
    Label36: TLabel;
    DBEdit1: TDBEdit;
    RxDBLookupCombo12: TRxDBLookupCombo;
    DBEdit2: TDBEdit;
    RxDBLookupCombo13: TRxDBLookupCombo;
    DBEdit3: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit9: TDBEdit;
    RxDBLookupCombo1: TRxDBLookupCombo;
    DBEdit19: TDBEdit;
    bsSkinButton7: TbsSkinButton;
    bsSkinButton6: TbsSkinButton;
    dxDBGrid1Column32: TdxDBGridColumn;
    PopupMenu2: TPopupMenu;
    N10: TMenuItem;
    N11: TMenuItem;
    N14: TMenuItem;
    N13: TMenuItem;
    N12: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    XPMenu1: TXPMenu;
    t_op_gain: TADOQuery;
    t_op_gain1: TDataSource;
    Panel2: TPanel;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel5: TbsSkinStdLabel;
    bsSkinStdLabel6: TbsSkinStdLabel;
    bsSkinStdLabel7: TbsSkinStdLabel;
    bsSkinStdLabel8: TbsSkinStdLabel;
    bsSkinStdLabel9: TbsSkinStdLabel;
    bsSkinStdLabel10: TbsSkinStdLabel;
    bsSkinDBEdit6: TbsSkinDBEdit;
    bsSkinDBEdit4: TbsSkinDBEdit;
    bsSkinDBEdit1: TbsSkinDBEdit;
    bsSkinDBEdit3: TbsSkinDBEdit;
    bsSkinDBEdit5: TbsSkinDBEdit;
    bsSkinDBEdit2: TbsSkinDBEdit;
    bsSkinDBEdit8: TbsSkinDBEdit;
    bsSkinDBEdit7: TbsSkinDBEdit;
    bsSkinDBEdit9: TbsSkinDBEdit;
    bsSkinDBEdit10: TbsSkinDBEdit;
    bsSkinButton2: TbsSkinButton;
    PopupMenu3: TPopupMenu;
    N37: TMenuItem;
    N38: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N3: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N6: TMenuItem;
    N5: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N19: TMenuItem;
    bsSkinPanel9: TbsSkinPanel;
    Label116: TLabel;
    Label130: TLabel;
    Label131: TLabel;
    Label132: TLabel;
    Edit1: TEdit;
    Edit4: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    bsSkinButton44: TbsSkinButton;
    dxDBGrid1Column33: TdxDBGridColumn;
    t_op_aire: TADOQuery;
    dxDBGrid1Column34: TdxDBGridColumn;
    dxDBGrid1Column35: TdxDBGridColumn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bsSkinButton5Click(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure dxDBGrid1Column3CustomDraw(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
      const AText: String; AFont: TFont; var AColor: TColor; ASelected,
      AFocused: Boolean; var ADone: Boolean);
    procedure bsSkinButton10Click(Sender: TObject);
    procedure dxDBGrid1DblClick(Sender: TObject);
    procedure wwDBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
      Field: TField; State: TGridDrawState);
    procedure wwDBGrid2DrawDataCell(Sender: TObject; const Rect: TRect;
      Field: TField; State: TGridDrawState);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton4Click(Sender: TObject);
    procedure bsSkinButton8Click(Sender: TObject);
    procedure dxDBGrid1Column2CustomDraw(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
      const AText: String; AFont: TFont; var AColor: TColor; ASelected,
      AFocused: Boolean; var ADone: Boolean);
    procedure bsSkinButton7Click(Sender: TObject);
    procedure bsSkinButton6Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure dxDBGrid1ColumnSorting(Sender: TObject;
      Column: TdxDBTreeListColumn; var Allow: Boolean);
    procedure Panel2Resize(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure bsSkinButton44Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_op_aire_close: Tfrm_op_aire_close;

implementation

uses u_main, u_op_close_select, u_op_close_all,
  u_op_open_select, u_op_open_all, my_sys_function;

{$R *.dfm}

procedure Tfrm_op_aire_close.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  savereggrid(dxdbgrid1,caption);
  frm_op_aire_close.Hide;
  frm_op_aire_close.ManualFloat(frm_op_aire_close.BoundsRect );
  frm_main.freeTabs('frm_op_aire_close');
  action:=cafree;
  frm_op_aire_close:=nil;
end;

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

procedure Tfrm_op_aire_close.FormResize(Sender: TObject);
var
  i:integer;
begin
  i:=round(bsSkinPanel2.Width/9);
  bsSkinButton7.Width:=i;
  bsSkinButton6.Width:=i;
  bsSkinButton10.Width:=i;
  bsSkinButton3.Width:=i;
  bsSkinButton1.Width:=i;
  bsSkinButton4.Width:=i;
  bsSkinButton8.Width:=i;
  bsSkinButton2.Width:=i;

  wwDBGrid1.Height:=round((bsSkinTabSheet2.Height-bsSkinPanel3.Height-Panel2.Height)/2);
end;

procedure Tfrm_op_aire_close.FormShow(Sender: TObject);
var aQuery:TAdoQuery;
  ayear,amonth,endday:integer;
begin


      aQuery:=CreateAdoQuery;
      try
        with aQuery do begin
          sql.Add('select top 1 * from period where closed=''F'' order by period');
          open;
          Logininfo.offyear:=fieldbyname('pyear').AsInteger;
          Logininfo.offmonth:=fieldbyname('pmonth').AsInteger;
          if strtoint(get_parameters_value(140,'0'))=0 then
          begin
            Logininfo.endday:=EncodeDate(Logininfo.offyear, Logininfo.offmonth,1)-1;

           // showmessage(DateToStr(Logininfo.endday));
          end
          else begin
            endday:=strtoint(get_parameters_value(140,'0'));
            if Logininfo.offmonth=1 then begin
               aYear:=Logininfo.offyear-1;
               amonth:=12;
            end else begin
              aYear:=Logininfo.offyear;
              amonth:=Logininfo.offmonth-1;
            end;
            Logininfo.endday:=EncodeDate(ayear,amonth,endday);
          end;
        end;
      finally
        FreeAndNil(aQuery);
      end;
  t_op_aire.Close;
  t_op_aire.sql.Text:='select * from t_op_aire where 业务状态<>'+''''+'业务封帐'+''''
                   +' or 费用状态<>'+''''+'费用封帐'+''''
                   +default_sort(55,'t_op_aire','','desc');
  t_op_aire.open;
  t_ch_accept.open;
  t_ch_pay.open;
  t_op_gain.open;

  loadreggrid(dxdbgrid1,false,caption);
  if if_open('079') or if_open('148') then begin
    bsSkinButton3.Enabled:=true;
    bsSkinButton1.Enabled:=true;
  end;
  if if_open('334') or if_open('339') then begin
    bsSkinButton4.Enabled:=true;
    bsSkinButton8.Enabled:=true;
  end;

end;

procedure Tfrm_op_aire_close.dxDBGrid1Column3CustomDraw(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
  AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
  var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
begin
  AColor:=dxgrid_color_fee(ANode.strings[dxDBGrid1Column3.Index]);
  AFont.Color:=clblack;
end;

procedure Tfrm_op_aire_close.bsSkinButton10Click(Sender: TObject);
begin
  query_aire(4,'0013');
end;

procedure Tfrm_op_aire_close.dxDBGrid1DblClick(Sender: TObject);
begin
  bsSkinTabSheet2.show;
end;

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

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

procedure Tfrm_op_aire_close.bsSkinButton3Click(Sender: TObject);
begin
  if t_op_aire.IsEmpty then
    exit;
  if (t_op_aire.fieldbyname('业务状态').asstring='业务封帐')
  and(t_op_aire.fieldbyname('费用状态').asstring='费用封帐')then
  begin
    showmessage('对不起业务信息的业务、费用都已经封帐，不能操作！！');
    exit;
  end;
  try
    frm_op_close_select:=tfrm_op_close_select.Create(self);
    close_select_num:=3;
    if if_open('079') and if_open('148') then
    begin
      frm_op_close_select.bsSkinCheckRadioBox3.Checked:=true;
    end
    else if if_open('079') then
    begin
      frm_op_close_select.bsSkinCheckRadioBox1.Checked:=true;
      frm_op_close_select.bsSkinCheckRadioBox2.Enabled:=false;
      frm_op_close_select.bsSkinCheckRadioBox3.Enabled:=false;
    end
    else if if_open('148') then
    begin
      frm_op_close_select.bsSkinCheckRadioBox2.Checked:=true;
      frm_op_close_select.bsSkinCheckRadioBox1.Enabled:=false;
      frm_op_close_select.bsSkinCheckRadioBox3.Enabled:=false;
    end;
    frm_op_close_select.yewu.DataSet:=t_op_aire;
    frm_op_close_select.accept.DataSet:=t_ch_accept;
    frm_op_close_select.pay.DataSet:=t_ch_pay;
    frm_op_close_select.ShowModal;
  finally
    frm_op_close_select.Free;
  end;
end;

procedure Tfrm_op_aire_close.bsSkinButton1Click(Sender: TObject);
begin
  if t_op_aire.IsEmpty then
    exit;
  if (t_op_aire.fieldbyname('业务状态').asstring='业务封帐')
  and(t_op_aire.fieldbyname('费用状态').asstring='费用封帐')then
  begin
    showmessage('对不起业务信息的业务、费用都已经封帐，不能操作！！');
    exit;
  end;
  try
    frm_op_close_all:=tfrm_op_close_all.Create(self);
    if if_open('079') and if_open('148') then
    begin
      frm_op_close_all.bsSkinCheckRadioBox3.Checked:=true;
    end
    else if if_open('079') then
    begin
      frm_op_close_all.bsSkinCheckRadioBox1.Checked:=true;
      frm_op_close_all.bsSkinCheckRadioBox2.Enabled:=false;
      frm_op_close_all.bsSkinCheckRadioBox3.Enabled:=false;
    end
    else if if_open('148') then
    begin
      frm_op_close_all.bsSkinCheckRadioBox2.Checked:=true;
      frm_op_close_all.bsSkinCheckRadioBox1.Enabled:=false;
      frm_op_close_all.bsSkinCheckRadioBox3.Enabled:=false;
    end;
    frm_op_close_all.yewu.DataSet:=t_op_aire;
    frm_op_close_all.accept.DataSet:=t_ch_accept;
    frm_op_close_all.pay.DataSet:=t_ch_pay;
    frm_op_close_all.ShowModal;
  finally
    frm_op_close_all.Free;
  end;
end;

procedure Tfrm_op_aire_close.bsSkinButton4Click(Sender: TObject);
begin
  if t_op_aire.IsEmpty then
    exit;
  if (t_op_aire.fieldbyname('业务状态').asstring<>'业务封帐')
  and(t_op_aire.fieldbyname('费用状态').asstring<>'费用封帐')then
  begin
    showmessage('对不起业务信息的业务、费用都没有封帐，不能操作！！');
    exit;
  end;
  try
    frm_op_open_select:=tfrm_op_open_select.Create(self);
    open_select_num:=3;
    if if_open('334') and if_open('339') then
    begin
      frm_op_open_select.bsSkinCheckRadioBox3.Checked:=true;
    end
    else if if_open('334') then
    begin
      frm_op_open_select.bsSkinCheckRadioBox1.Checked:=true;
      frm_op_open_select.bsSkinCheckRadioBox2.Enabled:=false;
      frm_op_open_select.bsSkinCheckRadioBox3.Enabled:=false;
    end
    else if if_open('339') then
    begin
      frm_op_open_select.bsSkinCheckRadioBox2.Checked:=true;
      frm_op_open_select.bsSkinCheckRadioBox1.Enabled:=false;
      frm_op_open_select.bsSkinCheckRadioBox3.Enabled:=false;
    end;
    frm_op_open_select.yewu.DataSet:=t_op_aire;
    frm_op_open_select.accept.DataSet:=t_ch_accept;
    frm_op_open_select.pay.DataSet:=t_ch_pay;
    frm_op_open_select.ShowModal;
  finally
    frm_op_open_select.Free;
  end;
end;

procedure Tfrm_op_aire_close.bsSkinButton8Click(Sender: TObject);
begin
  if t_op_aire.IsEmpty then
    exit;
  if (t_op_aire.fieldbyname('业务状态').asstring<>'业务封帐')
  and(t_op_aire.fieldbyname('费用状态').asstring<>'费用封帐')then
  begin
    showmessage('对不起业务信息的业务、费用都没有封帐，不能操作！！');
    exit;
  end;
  try
    frm_op_open_all:=tfrm_op_open_all.Create(self);
    if if_open('334') and if_open('339') then
    begin
      frm_op_open_all.bsSkinCheckRadioBox3.Checked:=true;
    end
    else if if_open('334') then
    begin
      frm_op_open_all.bsSkinCheckRadioBox1.Checked:=true;
      frm_op_open_all.bsSkinCheckRadioBox2.Enabled:=false;
      frm_op_open_all.bsSkinCheckRadioBox3.Enabled:=false;
    end
    else if if_open('339') then
    begin
      frm_op_open_all.bsSkinCheckRadioBox2.Checked:=true;
      frm_op_open_all.bsSkinCheckRadioBox1.Enabled:=false;
      frm_op_open_all.bsSkinCheckRadioBox3.Enabled:=false;
    end;
    frm_op_open_all.yewu.DataSet:=t_op_aire;
    frm_op_open_all.accept.DataSet:=t_ch_accept;
    frm_op_open_all.pay.DataSet:=t_ch_pay;
    frm_op_open_all.ShowModal;
  finally
    frm_op_open_all.Free;
  end;
end;

procedure Tfrm_op_aire_close.dxDBGrid1Column2CustomDraw(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
  AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
  var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
begin
  AColor:=dxgrid_color('空运出口',ANode.Strings[dxDBGrid1Column2.Index]);
  AFont.Color:=clblack;
end;

procedure Tfrm_op_aire_close.bsSkinButton7Click(Sender: TObject);
begin
  if not t_op_aire.Bof then
    t_op_aire.Prior;
end;

procedure Tfrm_op_aire_close.bsSkinButton6Click(Sender: TObject);
begin
  if not t_op_aire.eof then
    t_op_aire.next;
end;

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

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

procedure Tfrm_op_aire_close.N12Click(Sender: TObject);
begin
  update_grid(dxdbgrid1,58);
end;

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

procedure Tfrm_op_aire_close.dxDBGrid1ColumnSorting(Sender: TObject;
  Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
//  Column_sort_pro(Column,t_op_aire,'业务编号');
end;

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

procedure Tfrm_op_aire_close.bsSkinButton2Click(Sender: TObject);
var
  Pnt:Tpoint;
begin
  Pnt:=bsSkinButton2.ClientToScreen(Point(0,bsSkinButton2.Height));
  PopupMenu3.Popup(Pnt.x,Pnt.y);
end;

procedure Tfrm_op_aire_close.N37Click(Sender: TObject);
begin
  t_op_aire.Close;
  t_op_aire.sql.text:='select * from t_op_aire where '
                   +' 编号 in (select distinct 编号 from t_op_state where 是否完成<>1) '
                   +default_sort(55,'t_op_aire','','desc');
  t_op_aire.open;
end;

procedure Tfrm_op_aire_close.N1Click(Sender: TObject);
begin
  t_op_aire.Close;
  t_op_aire.sql.Text:='select * from t_op_aire where '
                   +' 费用状态<>'+''''+'费用封帐'+''''
                   +' and 编号 not in (select distinct 编号 from t_ch_fee where 类型='+''''+'收'+''''+')'
                   +default_sort(55,'t_op_aire','','desc');
  t_op_aire.open;
end;

procedure Tfrm_op_aire_close.N4Click(Sender: TObject);
begin
  t_op_aire.Close;
  t_op_aire.sql.Text:='select * from t_op_aire where '
                   +' 费用状态<>'+''''+'费用封帐'+''''
                   +' and 编号 not in (select distinct 编号 from t_ch_fee where 类型='+''''+'付'+''''+')'
                   +default_sort(55,'t_op_aire','','desc');
  t_op_aire.open;
end;

procedure Tfrm_op_aire_close.N17Click(Sender: TObject);
begin
  t_op_aire.Close;
  t_op_aire.sql.text:='select * from t_op_aire where '
                   +' 编号 in (select distinct 编号 from t_ch_fee where 费用状态='
                   +''''+'录入状态'+''''+') '
                   +default_sort(55,'t_op_aire','','desc');
  t_op_aire.open
end;

procedure Tfrm_op_aire_close.N34Click(Sender: TObject);
begin
  t_op_aire.Close;
  t_op_aire.sql.text:='select * from t_op_aire where '
                   +' 编号 in (select distinct 编号 from t_ch_fee where 费用状态 in ('
                   +''''+'驳回提交'+''''+','+''''+'禁止修改'+''''+','+''''+'禁止删除'+''''+')) '
                   +default_sort(55,'t_op_aire','','desc');
  t_op_aire.open;
end;

procedure Tfrm_op_aire_close.N36Click(Sender: TObject);
begin
  t_op_aire.Close;
  t_op_aire.sql.Text:='select * from t_op_aire where '
                   +' 编号 in (select distinct 编号 from t_ch_fee where 费用状态 in ('
                   +''''+'提交审核'+''''+','+''''+'申请修改'+''''+','+''''+'申请删除'+''''+')) '
                   +default_sort(55,'t_op_aire','','desc');
  t_op_aire.open;
end;

procedure Tfrm_op_aire_close.N5Click(Sender: TObject);
begin
  t_op_aire.Close;
  t_op_aire.sql.text:='select * from t_op_aire '
                   +' where 费用状态<>'+''''+'费用封帐'+''''
                   +' and 编号 in (select distinct 编号 from t_ch_fee where 费用状态 in ('
                   +''''+'审核通过'+''''+','+''''+'禁止修改'+''''+','+''''+'禁止删除'+''''
                   +','+''''+'部分结算'+''''+','+''''+'结算完毕'+''''+')) '
                   +' and 编号 not in (select distinct 编号 from t_ch_fee where 费用状态 not in ('
                   +''''+'审核通过'+''''+','+''''+'禁止修改'+''''+','+''''+'禁止删除'+''''
                   +','+''''+'部分结算'+''''+','+''''+'结算完毕'+''''+')) '
                   +default_sort(55,'t_op_aire','','desc');
  t_op_aire.open;
end;

procedure Tfrm_op_aire_close.N7Click(Sender: TObject);
begin
  t_op_aire.Close;
  t_op_aire.sql.text:='select * from t_op_aire where '
                   +' 费用状态<>'+''''+'费用封帐'+''''
                   +' and 编号 not in (select distinct 编号 from t_ch_fee )'
                   +default_sort(55,'t_op_aire','','desc');
  t_op_aire.open;
end;

procedure Tfrm_op_aire_close.N19Click(Sender: TObject);
begin
  t_op_aire.Close;
  t_op_aire.sql.text:='select * from t_op_aire where '
                   +' 费用状态<>'+''''+'费用封帐'+''''
                   +' and 编号 in (select distinct 编号 from t_ch_fee where 费用状态<>'+''''+'结算完毕'+''''+')'
                   +default_sort(55,'t_op_aire','','desc');
  t_op_aire.open;
end;

procedure Tfrm_op_aire_close.bsSkinButton44Click(Sender: TObject);
var
  str:widestring;
begin
  str:='';
  str:=query_tiaojian(1,str,'t_op_aire.业务编号','模糊',Edit1.text);
  str:=query_tiaojian(1,str,'t_op_aire.委托编号','模糊',Edit4.text);
  str:=query_tiaojian(1,str,'t_op_aire.主运单号','模糊',Edit2.text);
  str:=query_tiaojian(1,str,'t_op_aire.分运单号','模糊',Edit3.text);


  if trim(str)='' then
  begin
    str:='where '+open_data('0013','t_op_aire.录入人',
    't_op_aire.操作员','t_op_aire.客服员','no','no');
  end
  else
  begin
    str:=str+' and '+open_data('0013','t_op_aire.录入人',
         't_op_aire.操作员','t_op_aire.客服员','no','no');
  end;

 str:='select * from t_op_aire '+str+default_sort(55,'t_op_aire','','desc');

 t_op_aire.close;
 t_op_aire.sql.text:=str;
 t_op_aire.Open;
 t_ch_accept.close;
 t_ch_pay.close;
 t_op_gain.close;

 t_ch_accept.open;
 t_ch_pay.open;
 t_op_gain.OPEN;

 if t_op_aire.IsEmpty then
 begin
   showmessage('没有检索出所需数据！！');
   exit;
 end;
end;

procedure Tfrm_op_aire_close.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then
    bsSkinButton44.OnClick(Sender);
end;

end.