unit u_rp_no_airi;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxExEdtr, DB, ADODB, bsSkinCtrls, dxDBTLCl, dxGrClms, dxDBGrid,
  dxTL, dxDBCtrl, dxCntner, ComCtrls, bsSkinTabs, ExtCtrls;

type
  Tfrm_rp_no_airi = class(TForm)
    Panel1: TPanel;
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet1: TbsSkinTabSheet;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridMaskColumn;
    dxDBGrid1Column54: TdxDBGridMaskColumn;
    dxDBGrid1Column11: TdxDBGridMaskColumn;
    dxDBGrid1Column13: TdxDBGridMaskColumn;
    dxDBGrid1Column61: TdxDBGridColumn;
    dxDBGrid1Column15: TdxDBGridMaskColumn;
    dxDBGrid1USD: TdxDBGridColumn;
    dxDBGrid1Column3: TdxDBGridColumn;
    dxDBGrid1Column4: TdxDBGridColumn;
    dxDBGrid1RMB: TdxDBGridColumn;
    dxDBGrid1Column6: TdxDBGridColumn;
    dxDBGrid1Column7: TdxDBGridColumn;
    dxDBGrid1Column8: TdxDBGridColumn;
    dxDBGrid1Column9: TdxDBGridColumn;
    dxDBGrid1Column10: TdxDBGridColumn;
    dxDBGrid1Column12: TdxDBGridDateColumn;
    dxDBGrid1Column18: TdxDBGridMaskColumn;
    dxDBGrid1Column21: TdxDBGridMaskColumn;
    dxDBGrid1Column22: TdxDBGridDateColumn;
    dxDBGrid1Column23: TdxDBGridMaskColumn;
    dxDBGrid1Column24: TdxDBGridMaskColumn;
    dxDBGrid1Column25: TdxDBGridMaskColumn;
    dxDBGrid1Column26: TdxDBGridMaskColumn;
    dxDBGrid1Column28: TdxDBGridColumn;
    dxDBGrid1Column53: TdxDBGridMaskColumn;
    dxDBGrid1Column55: TdxDBGridMaskColumn;
    dxDBGrid1Column57: TdxDBGridMaskColumn;
    dxDBGrid1Column59: TdxDBGridMaskColumn;
    bsSkinTabSheet2: TbsSkinTabSheet;
    dxDBGrid3: TdxDBGrid;
    dxDBGrid3Column1: TdxDBGridMaskColumn;
    dxDBGrid3Column2: TdxDBGridMaskColumn;
    dxDBGrid3Column3: TdxDBGridMaskColumn;
    dxDBGrid3Column4: TdxDBGridMaskColumn;
    dxDBGrid3Column12: TdxDBGridMaskColumn;
    dxDBGrid3Column5: TdxDBGridMaskColumn;
    dxDBGrid3Column6: TdxDBGridMaskColumn;
    dxDBGrid3Column7: TdxDBGridMaskColumn;
    dxDBGrid3Column8: TdxDBGridColumn;
    dxDBGrid3Column9: TdxDBGridColumn;
    dxDBGrid3Column10: TdxDBGridColumn;
    dxDBGrid3Column11: TdxDBGridDateColumn;
    dxDBGrid3Column15: TdxDBGridMaskColumn;
    dxDBGrid3Column18: TdxDBGridMaskColumn;
    dxDBGrid3Column19: TdxDBGridDateColumn;
    dxDBGrid3Column20: TdxDBGridMaskColumn;
    dxDBGrid3Column21: TdxDBGridMaskColumn;
    dxDBGrid3Column22: TdxDBGridMaskColumn;
    dxDBGrid3Column23: TdxDBGridMaskColumn;
    dxDBGrid3Column25: TdxDBGridColumn;
    dxDBGrid3Column50: TdxDBGridMaskColumn;
    dxDBGrid3Column51: TdxDBGridMaskColumn;
    dxDBGrid3Column53: TdxDBGridMaskColumn;
    dxDBGrid3Column55: TdxDBGridMaskColumn;
    bsSkinTabSheet3: TbsSkinTabSheet;
    dxDBGrid4: TdxDBGrid;
    dxDBGridMaskColumn1: TdxDBGridMaskColumn;
    dxDBGridMaskColumn2: TdxDBGridMaskColumn;
    dxDBGridMaskColumn3: TdxDBGridMaskColumn;
    dxDBGridMaskColumn4: TdxDBGridMaskColumn;
    dxDBGridColumn1: TdxDBGridColumn;
    dxDBGridMaskColumn5: TdxDBGridMaskColumn;
    dxDBGridColumn2: TdxDBGridColumn;
    dxDBGridColumn3: TdxDBGridColumn;
    dxDBGridColumn4: TdxDBGridColumn;
    dxDBGridColumn5: TdxDBGridColumn;
    dxDBGridColumn6: TdxDBGridColumn;
    dxDBGridColumn7: TdxDBGridColumn;
    dxDBGridColumn8: TdxDBGridColumn;
    dxDBGridColumn9: TdxDBGridColumn;
    dxDBGridColumn10: TdxDBGridColumn;
    dxDBGridDateColumn1: TdxDBGridDateColumn;
    dxDBGridMaskColumn6: TdxDBGridMaskColumn;
    dxDBGridMaskColumn7: TdxDBGridMaskColumn;
    dxDBGridDateColumn2: TdxDBGridDateColumn;
    dxDBGridMaskColumn8: TdxDBGridMaskColumn;
    dxDBGridMaskColumn9: TdxDBGridMaskColumn;
    dxDBGridMaskColumn10: TdxDBGridMaskColumn;
    dxDBGridMaskColumn11: TdxDBGridMaskColumn;
    dxDBGridColumn11: TdxDBGridColumn;
    dxDBGridMaskColumn12: TdxDBGridMaskColumn;
    dxDBGridMaskColumn13: TdxDBGridMaskColumn;
    dxDBGridMaskColumn14: TdxDBGridMaskColumn;
    dxDBGridMaskColumn15: TdxDBGridMaskColumn;
    bsSkinTabSheet4: TbsSkinTabSheet;
    dxDBGrid5: TdxDBGrid;
    dxDBGridMaskColumn16: TdxDBGridMaskColumn;
    dxDBGridMaskColumn17: TdxDBGridMaskColumn;
    dxDBGridMaskColumn18: TdxDBGridMaskColumn;
    dxDBGridMaskColumn19: TdxDBGridMaskColumn;
    dxDBGridMaskColumn20: TdxDBGridMaskColumn;
    dxDBGridMaskColumn21: TdxDBGridMaskColumn;
    dxDBGridMaskColumn22: TdxDBGridMaskColumn;
    dxDBGridMaskColumn23: TdxDBGridMaskColumn;
    dxDBGridColumn12: TdxDBGridColumn;
    dxDBGridColumn13: TdxDBGridColumn;
    dxDBGridColumn14: TdxDBGridColumn;
    dxDBGridDateColumn3: TdxDBGridDateColumn;
    dxDBGridMaskColumn24: TdxDBGridMaskColumn;
    dxDBGridMaskColumn25: TdxDBGridMaskColumn;
    dxDBGridDateColumn4: TdxDBGridDateColumn;
    dxDBGridMaskColumn26: TdxDBGridMaskColumn;
    dxDBGridMaskColumn27: TdxDBGridMaskColumn;
    dxDBGridMaskColumn28: TdxDBGridMaskColumn;
    dxDBGridMaskColumn29: TdxDBGridMaskColumn;
    dxDBGridColumn15: TdxDBGridColumn;
    dxDBGridMaskColumn30: TdxDBGridMaskColumn;
    dxDBGridMaskColumn31: TdxDBGridMaskColumn;
    dxDBGridMaskColumn32: TdxDBGridMaskColumn;
    dxDBGridMaskColumn33: TdxDBGridMaskColumn;
    bsSkinTabSheet5: TbsSkinTabSheet;
    dxDBGrid6: TdxDBGrid;
    dxDBGridMaskColumn95: TdxDBGridMaskColumn;
    dxDBGridColumn17: TdxDBGridColumn;
    dxDBGridColumn18: TdxDBGridColumn;
    dxDBGridColumn19: TdxDBGridColumn;
    dxDBGridColumn20: TdxDBGridColumn;
    dxDBGridColumn21: TdxDBGridColumn;
    dxDBGridColumn22: TdxDBGridColumn;
    dxDBGridColumn23: TdxDBGridColumn;
    dxDBGridColumn24: TdxDBGridColumn;
    dxDBGridColumn25: TdxDBGridColumn;
    dxDBGridColumn26: TdxDBGridColumn;
    dxDBGridColumn27: TdxDBGridColumn;
    dxDBGridColumn28: TdxDBGridColumn;
    dxDBGridColumn29: TdxDBGridColumn;
    dxDBGridColumn30: TdxDBGridColumn;
    dxDBGridColumn31: TdxDBGridColumn;
    dxDBGridColumn32: TdxDBGridColumn;
    dxDBGridColumn33: TdxDBGridColumn;
    dxDBGridColumn34: TdxDBGridColumn;
    dxDBGridColumn35: TdxDBGridColumn;
    dxDBGridColumn36: TdxDBGridColumn;
    dxDBGridColumn37: TdxDBGridColumn;
    bsSkinTabSheet6: TbsSkinTabSheet;
    dxDBGrid7: TdxDBGrid;
    dxDBGridMaskColumn96: TdxDBGridMaskColumn;
    dxDBGridColumn38: TdxDBGridColumn;
    dxDBGridColumn39: TdxDBGridColumn;
    dxDBGridColumn40: TdxDBGridColumn;
    dxDBGridColumn41: TdxDBGridColumn;
    dxDBGridColumn42: TdxDBGridColumn;
    dxDBGridColumn43: TdxDBGridColumn;
    dxDBGridColumn44: TdxDBGridColumn;
    dxDBGridColumn45: TdxDBGridColumn;
    dxDBGridColumn46: TdxDBGridColumn;
    dxDBGridColumn47: TdxDBGridColumn;
    dxDBGridColumn48: TdxDBGridColumn;
    dxDBGridColumn49: TdxDBGridColumn;
    dxDBGridColumn50: TdxDBGridColumn;
    dxDBGridColumn51: TdxDBGridColumn;
    dxDBGridColumn52: TdxDBGridColumn;
    dxDBGridColumn53: TdxDBGridColumn;
    dxDBGridColumn54: TdxDBGridColumn;
    dxDBGridColumn55: TdxDBGridColumn;
    dxDBGridColumn56: TdxDBGridColumn;
    dxDBGridColumn57: TdxDBGridColumn;
    dxDBGridColumn58: TdxDBGridColumn;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinButton10: TbsSkinButton;
    bsSkinButton9: TbsSkinButton;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox3: TbsSkinCheckRadioBox;
    dxDBGrid2: TdxDBGrid;
    dxDBGridColumn59: TdxDBGridColumn;
    dxDBGridColumn60: TdxDBGridColumn;
    dxDBGridColumn61: TdxDBGridColumn;
    dxDBGridColumn62: TdxDBGridColumn;
    dxDBGridColumn63: TdxDBGridColumn;
    dxDBGridColumn64: TdxDBGridColumn;
    dxDBGridColumn65: TdxDBGridColumn;
    dxDBGridColumn66: TdxDBGridColumn;
    dxDBGridColumn67: TdxDBGridColumn;
    dxDBGridColumn68: TdxDBGridColumn;
    dxDBGridColumn69: TdxDBGridColumn;
    dxDBGridColumn70: TdxDBGridColumn;
    dxDBGridColumn71: TdxDBGridColumn;
    dxDBGridColumn72: TdxDBGridColumn;
    dxDBGridColumn73: TdxDBGridColumn;
    dxDBGridColumn74: TdxDBGridColumn;
    dxDBGridColumn75: TdxDBGridColumn;
    dxDBGridColumn76: TdxDBGridColumn;
    dxDBGridColumn77: TdxDBGridColumn;
    dxDBGridColumn78: TdxDBGridColumn;
    dxDBGridColumn79: TdxDBGridColumn;
    p_accept_bill: TADOStoredProc;
    p_accept_fee: TADOStoredProc;
    p_accept_fee1: TDataSource;
    p_accept_bill1: TDataSource;
    p_pay_fee1: TDataSource;
    p_pay_fee: TADOStoredProc;
    p_pay_bill: TADOStoredProc;
    p_pay_bill1: TDataSource;
    p_total1: TDataSource;
    p_total: TADOStoredProc;
    p_total_client: TADOStoredProc;
    p_total_client1: TDataSource;
    p_total_sales: TADOStoredProc;
    p_total_sales1: TDataSource;
    SaveDialog: TSaveDialog;
    dxDBGrid1Column29: TdxDBGridColumn;
    dxDBGrid1Column30: TdxDBGridColumn;
    dxDBGrid3Column26: TdxDBGridColumn;
    dxDBGrid3Column27: TdxDBGridColumn;
    dxDBGrid4Column29: TdxDBGridColumn;
    dxDBGrid4Column30: TdxDBGridColumn;
    dxDBGrid5Column25: TdxDBGridColumn;
    dxDBGrid5Column26: TdxDBGridColumn;
    dxDBGrid1Column31: TdxDBGridColumn;
    dxDBGrid3Column28: TdxDBGridColumn;
    dxDBGrid4Column31: TdxDBGridColumn;
    dxDBGrid5Column27: TdxDBGridColumn;
    dxDBGrid1Column32: TdxDBGridColumn;
    dxDBGrid1Column33: TdxDBGridColumn;
    dxDBGrid1Column34: TdxDBGridColumn;
    procedure bsSkinButton5Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bsSkinPanel2Resize(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton9Click(Sender: TObject);
    procedure bsSkinButton10Click(Sender: TObject);
    procedure dxDBGrid1ColumnSorting(Sender: TObject;
      Column: TdxDBTreeListColumn; var Allow: Boolean);
    procedure dxDBGrid3ColumnSorting(Sender: TObject;
      Column: TdxDBTreeListColumn; var Allow: Boolean);
    procedure dxDBGrid4ColumnSorting(Sender: TObject;
      Column: TdxDBTreeListColumn; var Allow: Boolean);
    procedure dxDBGrid5ColumnSorting(Sender: TObject;
      Column: TdxDBTreeListColumn; var Allow: Boolean);
    procedure dxDBGrid6ColumnSorting(Sender: TObject;
      Column: TdxDBTreeListColumn; var Allow: Boolean);
    procedure dxDBGrid7ColumnSorting(Sender: TObject;
      Column: TdxDBTreeListColumn; var Allow: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_rp_no_airi: Tfrm_rp_no_airi;

implementation

uses u_main,my_sys_function, u_rp_airi_query, u_data_share;

{$R *.dfm}

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

procedure Tfrm_rp_no_airi.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  savereggrid(dxdbgrid1,caption+'1');
  savereggrid(dxdbgrid3,caption+'3');
  savereggrid(dxdbgrid4,caption+'4');
  savereggrid(dxdbgrid5,caption+'5');
  frm_rp_no_airi.Hide;
  frm_rp_no_airi.ManualFloat(frm_rp_no_airi.BoundsRect );
  frm_main.freeTabs('frm_rp_no_airi');
  action:=cafree;
  frm_rp_no_airi:=nil;
end;

procedure Tfrm_rp_no_airi.bsSkinPanel2Resize(Sender: TObject);
var
  i:integer;
begin
  i:=round(bsSkinPanel2.Width/7);
  bsSkinCheckRadioBox1.Width:=i;
  bsSkinCheckRadioBox2.Width:=i;
  bsSkinCheckRadioBox3.Width:=i;
  bsSkinButton10.Width:=i;
  bsSkinButton9.Width:=i;
  bsSkinButton1.Width:=i;
end;

procedure Tfrm_rp_no_airi.bsSkinButton1Click(Sender: TObject);
begin
  with SaveDialog do
  begin
    DefaultExt :='xls';
    Filter := '(*.xls)|*.xls';
    if Execute then
    begin
      if bsSkinTabSheet1.Showing then
        dxDBGrid1.SaveToXLS(FileName,true)
      else if bsSkinTabSheet2.Showing then
        dxDBGrid3.SaveToXLS(FileName,true)
      else if bsSkinTabSheet3.Showing then
        dxDBGrid4.SaveToXLS(FileName,true)
      else if bsSkinTabSheet4.Showing then
        dxDBGrid5.SaveToXLS(FileName,true)
      else if bsSkinTabSheet5.Showing then
        dxDBGrid6.SaveToXLS(FileName,true)
      else if bsSkinTabSheet6.Showing then
        dxDBGrid7.SaveToXLS(FileName,true);
    end;
  end;
end;

procedure Tfrm_rp_no_airi.FormShow(Sender: TObject);
begin
  loadreggrid(dxdbgrid1,false,caption+'1');
  loadreggrid(dxdbgrid3,false,caption+'3');
  loadreggrid(dxdbgrid4,false,caption+'4');
  loadreggrid(dxdbgrid6,false,caption+'5');
  if frm_data_share.t_load_employee.FieldByName('应收').asboolean then
  begin
    bsSkinTabSheet1.TabVisible:=true;
    bsSkinTabSheet2.TabVisible:=true;
    
    dxDBGridColumn17.Visible:=true;
    dxDBGridColumn18.Visible:=true;
    dxDBGridColumn19.Visible:=true;
    dxDBGridColumn20.Visible:=true;
    dxDBGridColumn21.Visible:=true;
    dxDBGridColumn22.Visible:=true;
    dxDBGridColumn23.Visible:=true;
    dxDBGridColumn24.Visible:=true;
    dxDBGridColumn25.Visible:=true;

    dxDBGridColumn38.Visible:=true;
    dxDBGridColumn39.Visible:=true;
    dxDBGridColumn40.Visible:=true;
    dxDBGridColumn41.Visible:=true;
    dxDBGridColumn42.Visible:=true;
    dxDBGridColumn43.Visible:=true;
    dxDBGridColumn44.Visible:=true;
    dxDBGridColumn45.Visible:=true;
    dxDBGridColumn46.Visible:=true;

    dxDBGridColumn59.Visible:=true;
    dxDBGridColumn60.Visible:=true;
    dxDBGridColumn61.Visible:=true;
    dxDBGridColumn62.Visible:=true;
    dxDBGridColumn63.Visible:=true;
    dxDBGridColumn64.Visible:=true;
    dxDBGridColumn65.Visible:=true;
    dxDBGridColumn66.Visible:=true;
    dxDBGridColumn67.Visible:=true;
  end
  else
  begin
    bsSkinTabSheet1.TabVisible:=false;
    bsSkinTabSheet2.TabVisible:=false;
    
    dxDBGridColumn17.Visible:=false;
    dxDBGridColumn18.Visible:=false;
    dxDBGridColumn19.Visible:=false;
    dxDBGridColumn20.Visible:=false;
    dxDBGridColumn21.Visible:=false;
    dxDBGridColumn22.Visible:=false;
    dxDBGridColumn23.Visible:=false;
    dxDBGridColumn24.Visible:=false;
    dxDBGridColumn25.Visible:=false;

    dxDBGridColumn38.Visible:=false;
    dxDBGridColumn39.Visible:=false;
    dxDBGridColumn40.Visible:=false;
    dxDBGridColumn41.Visible:=false;
    dxDBGridColumn42.Visible:=false;
    dxDBGridColumn43.Visible:=false;
    dxDBGridColumn44.Visible:=false;
    dxDBGridColumn45.Visible:=false;
    dxDBGridColumn46.Visible:=false;

    dxDBGridColumn59.Visible:=false;
    dxDBGridColumn60.Visible:=false;
    dxDBGridColumn61.Visible:=false;
    dxDBGridColumn62.Visible:=false;
    dxDBGridColumn63.Visible:=false;
    dxDBGridColumn64.Visible:=false;
    dxDBGridColumn65.Visible:=false;
    dxDBGridColumn66.Visible:=false;
    dxDBGridColumn67.Visible:=false;
  end;

  if frm_data_share.t_load_employee.FieldByName('应付').asboolean then
  begin
    bsSkinTabSheet3.TabVisible:=true;
    bsSkinTabSheet4.TabVisible:=true;

    dxDBGridColumn26.Visible:=true;
    dxDBGridColumn27.Visible:=true;
    dxDBGridColumn28.Visible:=true;
    dxDBGridColumn29.Visible:=true;
    dxDBGridColumn30.Visible:=true;
    dxDBGridColumn31.Visible:=true;
    dxDBGridColumn32.Visible:=true;
    dxDBGridColumn33.Visible:=true;
    dxDBGridColumn34.Visible:=true;

    dxDBGridColumn47.Visible:=true;
    dxDBGridColumn48.Visible:=true;
    dxDBGridColumn49.Visible:=true;
    dxDBGridColumn50.Visible:=true;
    dxDBGridColumn51.Visible:=true;
    dxDBGridColumn52.Visible:=true;
    dxDBGridColumn53.Visible:=true;
    dxDBGridColumn54.Visible:=true;
    dxDBGridColumn55.Visible:=true;

    dxDBGridColumn68.Visible:=true;
    dxDBGridColumn69.Visible:=true;
    dxDBGridColumn70.Visible:=true;
    dxDBGridColumn71.Visible:=true;
    dxDBGridColumn72.Visible:=true;
    dxDBGridColumn73.Visible:=true;
    dxDBGridColumn74.Visible:=true;
    dxDBGridColumn75.Visible:=true;
    dxDBGridColumn76.Visible:=true;
  end
  else
  begin
    bsSkinTabSheet3.TabVisible:=false;
    bsSkinTabSheet4.TabVisible:=false;

    dxDBGridColumn26.Visible:=false;
    dxDBGridColumn27.Visible:=false;
    dxDBGridColumn28.Visible:=false;
    dxDBGridColumn29.Visible:=false;
    dxDBGridColumn30.Visible:=false;
    dxDBGridColumn31.Visible:=false;
    dxDBGridColumn32.Visible:=false;
    dxDBGridColumn33.Visible:=false;
    dxDBGridColumn34.Visible:=false;

    dxDBGridColumn47.Visible:=false;
    dxDBGridColumn48.Visible:=false;
    dxDBGridColumn49.Visible:=false;
    dxDBGridColumn50.Visible:=false;
    dxDBGridColumn51.Visible:=false;
    dxDBGridColumn52.Visible:=false;
    dxDBGridColumn53.Visible:=false;
    dxDBGridColumn54.Visible:=false;
    dxDBGridColumn55.Visible:=false;

    dxDBGridColumn68.Visible:=false;
    dxDBGridColumn69.Visible:=false;
    dxDBGridColumn70.Visible:=false;
    dxDBGridColumn71.Visible:=false;
    dxDBGridColumn72.Visible:=false;
    dxDBGridColumn73.Visible:=false;
    dxDBGridColumn74.Visible:=false;
    dxDBGridColumn75.Visible:=false;
    dxDBGridColumn76.Visible:=false;
  end;
  if  frm_data_share.t_load_employee.FieldByName('应付').asboolean
  and frm_data_share.t_load_employee.FieldByName('应收').asboolean then
  begin
    dxDBGridColumn35.Visible:=true;
    dxDBGridColumn36.Visible:=true;
    dxDBGridColumn37.Visible:=true;

    dxDBGridColumn56.Visible:=true;
    dxDBGridColumn57.Visible:=true;
    dxDBGridColumn58.Visible:=true;

    dxDBGridColumn77.Visible:=true;
    dxDBGridColumn78.Visible:=true;
    dxDBGridColumn79.Visible:=true;
  end
  else
  begin
    dxDBGridColumn35.Visible:=false;
    dxDBGridColumn36.Visible:=false;
    dxDBGridColumn37.Visible:=false;

    dxDBGridColumn56.Visible:=false;
    dxDBGridColumn57.Visible:=false;
    dxDBGridColumn58.Visible:=false;

    dxDBGridColumn77.Visible:=false;
    dxDBGridColumn78.Visible:=false;
    dxDBGridColumn79.Visible:=false;
  end; 
end;

procedure Tfrm_rp_no_airi.bsSkinButton9Click(Sender: TObject);
begin
  sys_print('空运进口欠费',2,nil,nil,nil,nil,p_accept_bill1,p_accept_fee1,p_pay_bill1,p_pay_fee1,p_total_client1,p_total_sales1,p_total1);
end;

procedure Tfrm_rp_no_airi.bsSkinButton10Click(Sender: TObject);
begin
  try
    frm_rp_airi_query:=tfrm_rp_airi_query.Create (self);
    rp_airi_query_num:=1;
    if bsSkinCheckRadioBox1.Checked then
      rp_airi_query_type:=1
    else if bsSkinCheckRadioBox2.Checked then
      rp_airi_query_type:=2
    else
      rp_airi_query_type:=3;
    rp_airi_query_limited:='0033';
    rp_airi_query_str:='空运进口欠费';
    frm_rp_airi_query.ShowModal;
  finally
    frm_rp_airi_query.Free;
  end;
end;

procedure Tfrm_rp_no_airi.dxDBGrid1ColumnSorting(Sender: TObject;
  Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
  Column_sort_pro(Column,p_accept_bill,'客户名称,业务编号');
end;

procedure Tfrm_rp_no_airi.dxDBGrid3ColumnSorting(Sender: TObject;
  Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
  Column_sort_pro(Column,p_accept_fee,'客户名称,业务编号');
end;

procedure Tfrm_rp_no_airi.dxDBGrid4ColumnSorting(Sender: TObject;
  Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
  Column_sort_pro(Column,p_pay_bill,'客户名称,业务编号');
end;

procedure Tfrm_rp_no_airi.dxDBGrid5ColumnSorting(Sender: TObject;
  Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
  Column_sort_pro(Column,p_pay_fee,'客户名称,业务编号');
end;

procedure Tfrm_rp_no_airi.dxDBGrid6ColumnSorting(Sender: TObject;
  Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
  Column_sort_pro(Column,p_total_client,'客户名称');
end;

procedure Tfrm_rp_no_airi.dxDBGrid7ColumnSorting(Sender: TObject;
  Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
  Column_sort_pro(Column,p_total_sales,'揽货人');
end;

end.