unit u_ch_fee_aire_sales;

interface

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

type
  Tfrm_ch_fee_aire_sales = class(TForm)
    bsSkinPanel2: TbsSkinPanel;
    bsSkinButton5: TbsSkinButton;
    bsSkinButton6: TbsSkinButton;
    bsSkinButton7: TbsSkinButton;
    bsSkinButton10: TbsSkinButton;
    bsSkinButton11: TbsSkinButton;
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet1: TbsSkinTabSheet;
    bsSkinTabSheet2: TbsSkinTabSheet;
    bsSkinTabSheet3: TbsSkinTabSheet;
    bsSkinTabSheet4: TbsSkinTabSheet;
    dxDBGrid2: TdxDBGrid;
    dxDBGrid2Column1: TdxDBGridMaskColumn;
    dxDBGrid2Column2: TdxDBGridCheckColumn;
    dxDBGrid2Column3: TdxDBGridDateColumn;
    dxDBGrid2Column4: TdxDBGridMaskColumn;
    dxDBGrid2Column5: TdxDBGridMaskColumn;
    t_op_state: TADOQuery;
    t_op_state1: 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;
    bsSkinPanel1: 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;
    DBEdit9: TDBEdit;
    RxDBLookupCombo1: TRxDBLookupCombo;
    DBEdit19: TDBEdit;
    bsSkinPanel3: TbsSkinPanel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    DBEdit5: TDBEdit;
    RxDBLookupCombo2: TRxDBLookupCombo;
    DBEdit6: TDBEdit;
    RxDBLookupCombo3: TRxDBLookupCombo;
    DBEdit7: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    RxDBLookupCombo4: TRxDBLookupCombo;
    DBEdit20: TDBEdit;
    bsSkinPanel4: TbsSkinPanel;
    Label16: TLabel;
    Label18: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    DBEdit13: TDBEdit;
    RxDBLookupCombo5: TRxDBLookupCombo;
    DBEdit14: TDBEdit;
    RxDBLookupCombo6: TRxDBLookupCombo;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    RxDBLookupCombo7: TRxDBLookupCombo;
    DBEdit21: TDBEdit;
    fra_fee1: Tfra_fee;
    Label122: TLabel;
    DBMemo33: TDBMemo;
    DBMemo34: TDBMemo;
    Label121: TLabel;
    Label123: TLabel;
    DBMemo35: TDBMemo;
    Label28: TLabel;
    DBMemo1: TDBMemo;
    Label85: TLabel;
    DBEdit22: TDBEdit;
    Label86: TLabel;
    DBEdit23: TDBEdit;
    bsSkinGroupBox1: TbsSkinGroupBox;
    Label87: TLabel;
    Label88: TLabel;
    Label29: TLabel;
    DBEdit24: TDBEdit;
    DBEdit25: TDBEdit;
    wwDBDateTimePicker3: TwwDBDateTimePicker;
    bsSkinGroupBox2: TbsSkinGroupBox;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    DBEdit26: TDBEdit;
    DBEdit27: TDBEdit;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    bsSkinGroupBox4: TbsSkinGroupBox;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    DBEdit28: TDBEdit;
    DBEdit29: TDBEdit;
    wwDBDateTimePicker5: TwwDBDateTimePicker;
    bsSkinGroupBox3: TbsSkinGroupBox;
    Label39: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    DBEdit30: TDBEdit;
    DBEdit31: TDBEdit;
    wwDBDateTimePicker4: TwwDBDateTimePicker;
    Label42: TLabel;
    DBEdit32: TDBEdit;
    Label43: TLabel;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    wwDBComboBox7: TwwDBComboBox;
    wwDBComboBox9: TwwDBComboBox;
    Label44: TLabel;
    Label45: TLabel;
    RxDBLookupCombo15: TRxDBLookupCombo;
    wwDBComboBox8: TwwDBComboBox;
    Label46: TLabel;
    Label47: TLabel;
    Label48: TLabel;
    DBEdit33: TDBEdit;
    Label49: TLabel;
    DBEdit34: TDBEdit;
    Label164: TLabel;
    RxDBLookupCombo11: TRxDBLookupCombo;
    RxDBLookupCombo8: TRxDBLookupCombo;
    Label50: TLabel;
    Label51: TLabel;
    RxDBLookupCombo9: TRxDBLookupCombo;
    RxDBLookupCombo10: TRxDBLookupCombo;
    Label52: TLabel;
    DBEdit77: TDBEdit;
    DBEdit71: TDBEdit;
    Label102: TLabel;
    Label108: TLabel;
    DBEdit76: TDBEdit;
    DBEdit70: TDBEdit;
    Label101: TLabel;
    Label107: TLabel;
    DBEdit63: TDBEdit;
    Label100: TLabel;
    DBEdit75: TDBEdit;
    DBEdit57: TDBEdit;
    Label106: TLabel;
    Label99: TLabel;
    DBEdit56: TDBEdit;
    DBEdit74: TDBEdit;
    Label105: TLabel;
    Label98: TLabel;
    DBEdit35: TDBEdit;
    DBEdit73: TDBEdit;
    Label97: TLabel;
    Label104: TLabel;
    DBEdit36: TDBEdit;
    Label96: TLabel;
    DBEdit72: TDBEdit;
    DBEdit37: TDBEdit;
    Label53: TLabel;
    Label103: TLabel;
    Label109: TLabel;
    DBMemo17: TDBMemo;
    Label110: TLabel;
    DBMemo18: TDBMemo;
    Label111: TLabel;
    DBMemo19: TDBMemo;
    dxDBGrid2Column6: TdxDBGridColumn;
    dxDBGrid2Column7: TdxDBGridColumn;
    dxDBGrid1Column32: TdxDBGridColumn;
    DBEdit4: TDBEdit;
    Label65: TLabel;
    DBEdit38: TDBEdit;
    bsSkinButton1: TbsSkinButton;
    PopupMenu2: TPopupMenu;
    N10: TMenuItem;
    N11: TMenuItem;
    N14: TMenuItem;
    N13: TMenuItem;
    N12: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    XPMenu1: TXPMenu;
    t_op_aire: TADOStoredProc;
    PopupMenu3: TPopupMenu;
    N37: TMenuItem;
    N38: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bsSkinButton5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton11Click(Sender: TObject);
    procedure dxDBGrid1DblClick(Sender: TObject);
    procedure bsSkinButton7Click(Sender: TObject);
    procedure bsSkinButton6Click(Sender: TObject);
    procedure bsSkinButton10Click(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 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 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 bsSkinButton1Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_ch_fee_aire_sales: Tfrm_ch_fee_aire_sales;

implementation

uses u_main, my_sys_function, u_data_share;

{$R *.dfm}

procedure Tfrm_ch_fee_aire_sales.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  savereggrid(dxdbgrid1,caption);
  savewwgrid(fra_fee1.wwDBGrid1);
  savewwgrid(fra_fee1.wwDBGrid2);
  frm_ch_fee_aire_sales.Hide;
  frm_ch_fee_aire_sales.ManualFloat(frm_ch_fee_aire_sales.BoundsRect );
  frm_main.freeTabs('frm_ch_fee_aire_sales');
  action:=cafree;
  frm_ch_fee_aire_sales:=nil;
end;

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

procedure Tfrm_ch_fee_aire_sales.FormShow(Sender: TObject);
begin
  t_op_state.close;
  t_op_aire.Close;
  t_op_aire.Parameters.ParamByName('SQLStr').value:='select top 50 * from t_op_aire where '
                   +'揽货人='+''''+employee+''''
                   +default_sort(55,'t_op_aire','','desc');
  t_op_aire.open;
  t_op_state.open;

  loadreggrid(dxdbgrid1,false,caption);

  bsSkinButton7.Width:=round(bsSkinPanel2.Width/6);
  bsSkinButton6.Width:=round(bsSkinPanel2.Width/6);
  bsSkinButton1.Width:=round(bsSkinPanel2.Width/6);
  bsSkinButton10.Width:=round(bsSkinPanel2.Width/6);
  bsSkinButton11.Width:=round(bsSkinPanel2.Width/6);
  loadwwgrid(fra_fee1.wwDBGrid1);
  loadwwgrid(fra_fee1.wwDBGrid2);
  fra_fee1.edit_type.text:='3';
  fra_fee1.edit_data.text:='0023';
  fra_fee1.edit_report.text:='空运出口';
  fra_fee1.t_ch_accept.DataSource:=t_op_aire1;
  if if_open('220') then
  begin
    fra_fee1.t_ch_accept.DataSource:=t_op_aire1;
    if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('208')=false) then
    begin
      fra_fee1.t_ch_accept.close;
      fra_fee1.t_ch_accept.SQL.Clear;
      fra_fee1.t_ch_accept.SQL.Add('select * from t_ch_fee where 类型='
        +''''+'收'+''''+' and 编号=:编号 and (录入人='
        +''''+employee+''''+' or (录入人<>'+''''+employee+''''
        +' and 机密<>1) ) order by 顺序,CH_ID');
    end;
    fra_fee1.t_ch_accept.open;
    fra_fee1.a_shen_delete.open;
    fra_fee1.a_shen_modify_old.open;
    fra_fee1.a_shen_modify_new.open;
    fra_fee1.Panel3.visible:=true;
  end
  else
  begin
    fra_fee1.Panel3.visible:=false;
  end;

  if if_open('221') then
  begin
    fra_fee1.t_ch_pay.DataSource:=t_op_aire1;
    if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('208')=false) then
    begin
      fra_fee1.t_ch_pay.close;
      fra_fee1.t_ch_pay.SQL.Clear;
      fra_fee1.t_ch_pay.SQL.Add('select * from t_ch_fee where 类型='
        +''''+'付'+''''+' and 编号=:编号 and (录入人='
        +''''+employee+''''+' or (录入人<>'+''''+employee+''''
        +' and 机密<>1) ) order by 顺序,CH_ID');
    end;
    fra_fee1.t_ch_pay.open;
    fra_fee1.p_shen_delete.open;
    fra_fee1.p_shen_modify_old.open;
    fra_fee1.p_shen_modify_new.open;
    fra_fee1.Panel1.visible:=true;
  end
  else
  begin
    fra_fee1.Panel1.visible:=false;
  end;  
    
  if fra_fee1.Panel1.visible and
     fra_fee1.Panel3.visible then
  begin
    fra_fee1.Panel8.Visible:=true;
    fra_fee1.Panel8.Height:=20;
    fra_fee1.t_op_gain.DataSource:=t_op_aire1;
    fra_fee1.t_op_gain.open;

    fra_fee1.Panel9.Visible:=false;
  end
  else
  begin
    fra_fee1.Panel8.Visible:=false;
  end;
  frm_data_share.t_crm_client.requery;
  frm_data_share.t_code_currency.requery;
end;

procedure Tfrm_ch_fee_aire_sales.bsSkinButton11Click(Sender: TObject);
begin
  bsSkinTabSheet3.Show;
end;

procedure Tfrm_ch_fee_aire_sales.dxDBGrid1DblClick(Sender: TObject);
begin
  bsSkinTabSheet2.Show;
end;

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

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

procedure Tfrm_ch_fee_aire_sales.bsSkinButton10Click(Sender: TObject);
begin
  query_aire(2,'0023');
end;

procedure Tfrm_ch_fee_aire_sales.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_ch_fee_aire_sales.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_ch_fee_aire_sales.N10Click(Sender: TObject);
begin
  update_grid_view_no(dxdbgrid1);
end;

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

procedure Tfrm_ch_fee_aire_sales.N12Click(Sender: TObject);
begin
  update_grid(dxdbgrid1,56);
end;

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

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

procedure Tfrm_ch_fee_aire_sales.bsSkinButton1Click(Sender: TObject);
var
  Pnt:Tpoint;
begin
  Pnt:=bsSkinButton1.ClientToScreen(Point(0,bsSkinButton1.Height));
  PopupMenu3.Popup(Pnt.x,Pnt.y);
end;

procedure Tfrm_ch_fee_aire_sales.N37Click(Sender: TObject);
begin
  t_op_aire.Close;
  t_op_aire.Parameters.ParamByName('SQLStr').value:='select * from t_op_aire where '
                   +open_data('0023','揽货人','操作员','客服员','no','no')
                   +' and 编号 in (select distinct 编号 from t_op_state where 是否完成<>1) '
                   +default_sort(55,'t_op_aire','','desc');
  t_op_aire.open;
end;

procedure Tfrm_ch_fee_aire_sales.N17Click(Sender: TObject);
begin
  t_op_aire.Close;
  t_op_aire.Parameters.ParamByName('SQLStr').value:='select * from t_op_aire where '
                   +open_data('0023','揽货人','操作员','客服员','no','no')
                   +' and 编号 in (select distinct 编号 from t_ch_fee where 费用状态='
                   +''''+'录入状态'+''''+') '
                   +default_sort(55,'t_op_aire','','desc');
  t_op_aire.open
end;

procedure Tfrm_ch_fee_aire_sales.N34Click(Sender: TObject);
begin
  t_op_aire.Close;
  t_op_aire.Parameters.ParamByName('SQLStr').value:='select * from t_op_aire where '
                   +open_data('0023','揽货人','操作员','客服员','no','no')
                   +' and 编号 in (select distinct 编号 from t_ch_fee where 费用状态 in ('
                   +''''+'驳回提交'+''''+','+''''+'禁止修改'+''''+','+''''+'禁止删除'+''''+')) '
                   +default_sort(55,'t_op_aire','','desc');
  t_op_aire.open;
end;

procedure Tfrm_ch_fee_aire_sales.N36Click(Sender: TObject);
begin
  t_op_aire.Close;
  t_op_aire.Parameters.ParamByName('SQLStr').value:='select * from t_op_aire where '
                   +open_data('0023','揽货人','操作员','客服员','no','no')
                   +' and 编号 in (select distinct 编号 from t_ch_fee where 费用状态 in ('
                   +''''+'提交审核'+''''+','+''''+'申请修改'+''''+','+''''+'申请删除'+''''+')) '
                   +default_sort(55,'t_op_aire','','desc');
  t_op_aire.open;
end;

procedure Tfrm_ch_fee_aire_sales.N2Click(Sender: TObject);
begin
  t_op_aire.Close;
  t_op_aire.Parameters.ParamByName('SQLStr').value:='select * from t_op_aire where '
                   +open_data('0023','揽货人','操作员','客服员','no','no')
                   +' and 费用状态<>'+''''+'费用封帐'+''''
                   +' and 编号 not in (select distinct 编号 from t_ch_fee where 类型='+''''+'收'+''''+')'
                   +default_sort(55,'t_op_aire','','desc');
  t_op_aire.open;
end;

procedure Tfrm_ch_fee_aire_sales.N4Click(Sender: TObject);
begin
  t_op_aire.Close;
  t_op_aire.Parameters.ParamByName('SQLStr').value:='select * from t_op_aire where '
                   +open_data('0023','揽货人','操作员','客服员','no','no')
                   +' and 费用状态<>'+''''+'费用封帐'+''''
                   +' and 编号 not in (select distinct 编号 from t_ch_fee where 类型='+''''+'付'+''''+')'
                   +default_sort(55,'t_op_aire','','desc');
  t_op_aire.open;
end;

procedure Tfrm_ch_fee_aire_sales.N5Click(Sender: TObject);
begin
  t_op_aire.Close;
  t_op_aire.Parameters.ParamByName('SQLStr').value:='select * from t_op_aire where '
                   +open_data('0023','揽货人','操作员','客服员','no','no')
                   +' and 费用状态<>'+''''+'费用封帐'+''''
                   +' and 编号 not in (select distinct 编号 from t_ch_fee )'
                   +default_sort(55,'t_op_aire','','desc');
  t_op_aire.open;
end;

procedure Tfrm_ch_fee_aire_sales.N8Click(Sender: TObject);
begin
  t_op_aire.Close;
  t_op_aire.Parameters.ParamByName('SQLStr').value:='select * from t_op_aire where '
                   +open_data('0023','揽货人','操作员','客服员','no','no')
                   +' and 费用状态<>'+''''+'费用封帐'+''''
                   +' and 编号 in (select distinct 编号 from t_ch_fee where 费用状态<>'+''''+'结算完毕'+''''+')'
                   +default_sort(55,'t_op_aire','','desc');
  t_op_aire.open;
end;

end.