unit u_rp_no_seai;

interface

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

type
  Tfrm_rp_no_seai = class(TForm)
    Panel1: TPanel;
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet1: TbsSkinTabSheet;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridMaskColumn;
    dxDBGrid1Column54: TdxDBGridMaskColumn;
    dxDBGrid1Column11: TdxDBGridMaskColumn;
    dxDBGrid1Column13: TdxDBGridMaskColumn;
    dxDBGrid1Column15: TdxDBGridMaskColumn;
    dxDBGrid1USD: TdxDBGridColumn;
    dxDBGrid1Column3: TdxDBGridColumn;
    dxDBGrid1Column4: TdxDBGridColumn;
    dxDBGrid1RMB: TdxDBGridColumn;
    dxDBGrid1Column6: TdxDBGridColumn;
    dxDBGrid1Column7: TdxDBGridColumn;
    dxDBGrid1Column8: TdxDBGridColumn;
    dxDBGrid1Column9: TdxDBGridColumn;
    dxDBGrid1Column10: TdxDBGridColumn;
    dxDBGrid1Column12: TdxDBGridDateColumn;
    dxDBGrid1Column14: TdxDBGridMaskColumn;
    dxDBGrid1Column16: TdxDBGridMaskColumn;
    dxDBGrid1Column18: TdxDBGridMaskColumn;
    dxDBGrid1Column19: TdxDBGridMaskColumn;
    dxDBGrid1Column21: TdxDBGridMaskColumn;
    dxDBGrid1Column20: TdxDBGridMaskColumn;
    dxDBGrid1Column22: TdxDBGridDateColumn;
    dxDBGrid1Column23: TdxDBGridMaskColumn;
    dxDBGrid1Column24: TdxDBGridMaskColumn;
    dxDBGrid1Column25: TdxDBGridMaskColumn;
    dxDBGrid1Column26: TdxDBGridMaskColumn;
    dxDBGrid1Column27: TdxDBGridMaskColumn;
    dxDBGrid1Column28: TdxDBGridColumn;
    dxDBGrid1Column29: TdxDBGridColumn;
    dxDBGrid11: TdxDBGridMaskColumn;
    dxDBGrid12: TdxDBGridMaskColumn;
    dxDBGrid13: TdxDBGridMaskColumn;
    dxDBGrid14: TdxDBGridMaskColumn;
    dxDBGrid15: TdxDBGridMaskColumn;
    dxDBGrid16: TdxDBGridMaskColumn;
    dxDBGrid17: TdxDBGridMaskColumn;
    dxDBGrid18: TdxDBGridMaskColumn;
    dxDBGrid19: TdxDBGridMaskColumn;
    dxDBGrid110: TdxDBGridMaskColumn;
    dxDBGrid1Column50: TdxDBGridMaskColumn;
    dxDBGrid1TEU: TdxDBGridMaskColumn;
    dxDBGrid1Column52: TdxDBGridMaskColumn;
    dxDBGrid1Column53: TdxDBGridMaskColumn;
    dxDBGrid1Column55: TdxDBGridMaskColumn;
    dxDBGrid1Column56: TdxDBGridMaskColumn;
    dxDBGrid1Column57: TdxDBGridMaskColumn;
    dxDBGrid1Column58: TdxDBGridMaskColumn;
    dxDBGrid1Column59: TdxDBGridMaskColumn;
    dxDBGrid1Column60: TdxDBGridMaskColumn;
    bsSkinTabSheet2: TbsSkinTabSheet;
    dxDBGrid3: TdxDBGrid;
    dxDBGrid3Column1: TdxDBGridMaskColumn;
    dxDBGrid3Column2: TdxDBGridMaskColumn;
    dxDBGrid3Column3: TdxDBGridMaskColumn;
    dxDBGrid3Column4: TdxDBGridMaskColumn;
    dxDBGrid3Column5: TdxDBGridMaskColumn;
    dxDBGrid3Column6: TdxDBGridMaskColumn;
    dxDBGrid3Column7: TdxDBGridMaskColumn;
    dxDBGrid3Column8: TdxDBGridColumn;
    dxDBGrid3Column9: TdxDBGridColumn;
    dxDBGrid3Column10: TdxDBGridColumn;
    dxDBGrid3Column11: TdxDBGridDateColumn;
    dxDBGrid3Column12: TdxDBGridMaskColumn;
    dxDBGrid3Column13: TdxDBGridMaskColumn;
    dxDBGrid3Column15: TdxDBGridMaskColumn;
    dxDBGrid3Column16: TdxDBGridMaskColumn;
    dxDBGrid3Column18: TdxDBGridMaskColumn;
    dxDBGrid3Column17: TdxDBGridMaskColumn;
    dxDBGrid3Column19: TdxDBGridDateColumn;
    dxDBGrid3Column20: TdxDBGridMaskColumn;
    dxDBGrid3Column21: TdxDBGridMaskColumn;
    dxDBGrid3Column22: TdxDBGridMaskColumn;
    dxDBGrid3Column23: TdxDBGridMaskColumn;
    dxDBGrid3Column24: TdxDBGridMaskColumn;
    dxDBGrid3Column25: TdxDBGridColumn;
    dxDBGrid3Column26: TdxDBGridColumn;
    dxDBGrid31: TdxDBGridMaskColumn;
    dxDBGrid32: TdxDBGridMaskColumn;
    dxDBGrid33: TdxDBGridMaskColumn;
    dxDBGrid34: TdxDBGridMaskColumn;
    dxDBGrid35: TdxDBGridMaskColumn;
    dxDBGrid36: TdxDBGridMaskColumn;
    dxDBGrid37: TdxDBGridMaskColumn;
    dxDBGrid38: TdxDBGridMaskColumn;
    dxDBGrid39: TdxDBGridMaskColumn;
    dxDBGrid310: TdxDBGridMaskColumn;
    dxDBGrid3Column47: TdxDBGridMaskColumn;
    dxDBGrid3TEU: TdxDBGridMaskColumn;
    dxDBGrid3Column49: TdxDBGridMaskColumn;
    dxDBGrid3Column50: TdxDBGridMaskColumn;
    dxDBGrid3Column51: TdxDBGridMaskColumn;
    dxDBGrid3Column52: TdxDBGridMaskColumn;
    dxDBGrid3Column53: TdxDBGridMaskColumn;
    dxDBGrid3Column54: TdxDBGridMaskColumn;
    dxDBGrid3Column55: TdxDBGridMaskColumn;
    dxDBGrid3Column56: TdxDBGridMaskColumn;
    bsSkinTabSheet3: TbsSkinTabSheet;
    dxDBGrid4: TdxDBGrid;
    dxDBGridMaskColumn1: TdxDBGridMaskColumn;
    dxDBGridMaskColumn2: TdxDBGridMaskColumn;
    dxDBGridMaskColumn3: TdxDBGridMaskColumn;
    dxDBGridMaskColumn4: TdxDBGridMaskColumn;
    dxDBGridMaskColumn5: TdxDBGridMaskColumn;
    dxDBGridColumn1: TdxDBGridColumn;
    dxDBGridColumn2: TdxDBGridColumn;
    dxDBGridColumn3: TdxDBGridColumn;
    dxDBGridColumn4: TdxDBGridColumn;
    dxDBGridColumn5: TdxDBGridColumn;
    dxDBGridColumn6: TdxDBGridColumn;
    dxDBGridColumn7: TdxDBGridColumn;
    dxDBGridColumn8: TdxDBGridColumn;
    dxDBGridColumn9: TdxDBGridColumn;
    dxDBGridDateColumn1: TdxDBGridDateColumn;
    dxDBGridMaskColumn6: TdxDBGridMaskColumn;
    dxDBGridMaskColumn7: TdxDBGridMaskColumn;
    dxDBGridMaskColumn8: TdxDBGridMaskColumn;
    dxDBGridMaskColumn9: TdxDBGridMaskColumn;
    dxDBGridMaskColumn10: TdxDBGridMaskColumn;
    dxDBGridMaskColumn11: TdxDBGridMaskColumn;
    dxDBGridDateColumn2: TdxDBGridDateColumn;
    dxDBGridMaskColumn12: TdxDBGridMaskColumn;
    dxDBGridMaskColumn13: TdxDBGridMaskColumn;
    dxDBGridMaskColumn14: TdxDBGridMaskColumn;
    dxDBGridMaskColumn15: TdxDBGridMaskColumn;
    dxDBGridMaskColumn16: TdxDBGridMaskColumn;
    dxDBGridColumn10: TdxDBGridColumn;
    dxDBGridColumn11: TdxDBGridColumn;
    dxDBGridMaskColumn17: TdxDBGridMaskColumn;
    dxDBGridMaskColumn18: TdxDBGridMaskColumn;
    dxDBGridMaskColumn19: TdxDBGridMaskColumn;
    dxDBGridMaskColumn20: TdxDBGridMaskColumn;
    dxDBGridMaskColumn21: TdxDBGridMaskColumn;
    dxDBGridMaskColumn22: TdxDBGridMaskColumn;
    dxDBGridMaskColumn23: TdxDBGridMaskColumn;
    dxDBGridMaskColumn24: TdxDBGridMaskColumn;
    dxDBGridMaskColumn25: TdxDBGridMaskColumn;
    dxDBGridMaskColumn26: TdxDBGridMaskColumn;
    dxDBGridMaskColumn37: TdxDBGridMaskColumn;
    dxDBGridMaskColumn38: TdxDBGridMaskColumn;
    dxDBGridMaskColumn39: TdxDBGridMaskColumn;
    dxDBGridMaskColumn40: TdxDBGridMaskColumn;
    dxDBGridMaskColumn41: TdxDBGridMaskColumn;
    dxDBGridMaskColumn42: TdxDBGridMaskColumn;
    dxDBGridMaskColumn43: TdxDBGridMaskColumn;
    dxDBGridMaskColumn44: TdxDBGridMaskColumn;
    dxDBGridMaskColumn45: TdxDBGridMaskColumn;
    dxDBGridMaskColumn46: TdxDBGridMaskColumn;
    bsSkinTabSheet4: TbsSkinTabSheet;
    dxDBGrid5: TdxDBGrid;
    dxDBGridMaskColumn47: TdxDBGridMaskColumn;
    dxDBGridMaskColumn48: TdxDBGridMaskColumn;
    dxDBGridMaskColumn49: TdxDBGridMaskColumn;
    dxDBGridMaskColumn50: TdxDBGridMaskColumn;
    dxDBGridMaskColumn51: TdxDBGridMaskColumn;
    dxDBGridMaskColumn52: TdxDBGridMaskColumn;
    dxDBGridMaskColumn53: TdxDBGridMaskColumn;
    dxDBGridColumn12: TdxDBGridColumn;
    dxDBGridColumn13: TdxDBGridColumn;
    dxDBGridColumn14: TdxDBGridColumn;
    dxDBGridDateColumn3: TdxDBGridDateColumn;
    dxDBGridMaskColumn54: TdxDBGridMaskColumn;
    dxDBGridMaskColumn55: TdxDBGridMaskColumn;
    dxDBGridMaskColumn56: TdxDBGridMaskColumn;
    dxDBGridMaskColumn57: TdxDBGridMaskColumn;
    dxDBGridMaskColumn58: TdxDBGridMaskColumn;
    dxDBGridMaskColumn59: TdxDBGridMaskColumn;
    dxDBGridDateColumn4: TdxDBGridDateColumn;
    dxDBGridMaskColumn60: TdxDBGridMaskColumn;
    dxDBGridMaskColumn61: TdxDBGridMaskColumn;
    dxDBGridMaskColumn62: TdxDBGridMaskColumn;
    dxDBGridMaskColumn63: TdxDBGridMaskColumn;
    dxDBGridMaskColumn64: TdxDBGridMaskColumn;
    dxDBGridColumn15: TdxDBGridColumn;
    dxDBGridColumn16: TdxDBGridColumn;
    dxDBGridMaskColumn65: TdxDBGridMaskColumn;
    dxDBGridMaskColumn66: TdxDBGridMaskColumn;
    dxDBGridMaskColumn67: TdxDBGridMaskColumn;
    dxDBGridMaskColumn68: TdxDBGridMaskColumn;
    dxDBGridMaskColumn69: TdxDBGridMaskColumn;
    dxDBGridMaskColumn70: TdxDBGridMaskColumn;
    dxDBGridMaskColumn71: TdxDBGridMaskColumn;
    dxDBGridMaskColumn72: TdxDBGridMaskColumn;
    dxDBGridMaskColumn73: TdxDBGridMaskColumn;
    dxDBGridMaskColumn74: TdxDBGridMaskColumn;
    dxDBGridMaskColumn85: TdxDBGridMaskColumn;
    dxDBGridMaskColumn86: TdxDBGridMaskColumn;
    dxDBGridMaskColumn87: TdxDBGridMaskColumn;
    dxDBGridMaskColumn88: TdxDBGridMaskColumn;
    dxDBGridMaskColumn89: TdxDBGridMaskColumn;
    dxDBGridMaskColumn90: TdxDBGridMaskColumn;
    dxDBGridMaskColumn91: TdxDBGridMaskColumn;
    dxDBGridMaskColumn92: TdxDBGridMaskColumn;
    dxDBGridMaskColumn93: TdxDBGridMaskColumn;
    dxDBGridMaskColumn94: 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;
    dxDBGrid1Column61: TdxDBGridColumn;
    dxDBGrid1Column62: TdxDBGridColumn;
    dxDBGrid3Column57: TdxDBGridColumn;
    dxDBGrid3Column58: TdxDBGridColumn;
    dxDBGrid4Column60: TdxDBGridColumn;
    dxDBGrid4Column61: TdxDBGridColumn;
    dxDBGrid5Column56: TdxDBGridColumn;
    dxDBGrid5Column57: TdxDBGridColumn;
    dxDBGrid1Column63: TdxDBGridColumn;
    dxDBGrid3Column59: TdxDBGridColumn;
    dxDBGrid4Column62: TdxDBGridColumn;
    dxDBGrid5Column58: TdxDBGridColumn;
    dxDBGrid1Column64: TdxDBGridColumn;
    dxDBGrid3Column60: TdxDBGridColumn;
    dxDBGrid4Column63: TdxDBGridColumn;
    dxDBGrid5Column59: TdxDBGridColumn;
    PopupMenu2: TPopupMenu;
    N10: TMenuItem;
    N11: TMenuItem;
    N14: TMenuItem;
    N13: TMenuItem;
    N12: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    XPMenu1: TXPMenu;
    dxDBGrid1Column65: TdxDBGridColumn;
    dxDBGrid1Column66: TdxDBGridColumn;
    dxDBGrid1Column67: TdxDBGridColumn;
    dxDBGrid1Column68: TdxDBGridColumn;
    dxDBGrid3Column61: TdxDBGridColumn;
    dxDBGrid3Column62: TdxDBGridColumn;
    dxDBGrid3Column63: TdxDBGridColumn;
    dxDBGrid3Column64: TdxDBGridColumn;
    dxDBGrid5Column50: TdxDBGridColumn;
    dxDBGrid5Column51: TdxDBGridColumn;
    dxDBGrid5Column52: TdxDBGridColumn;
    dxDBGrid5Column53: TdxDBGridColumn;
    dxDBGrid1Column69: TdxDBGridColumn;
    dxDBGrid1Column70: TdxDBGridColumn;
    dxDBGrid3Column65: TdxDBGridColumn;
    dxDBGrid3Column66: TdxDBGridColumn;
    dxDBGrid4Column54: TdxDBGridColumn;
    dxDBGrid4Column55: TdxDBGridColumn;
    dxDBGrid5Column54: TdxDBGridColumn;
    dxDBGrid5Column55: TdxDBGridColumn;
    procedure bsSkinButton5Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bsSkinPanel2Resize(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton9Click(Sender: TObject);
    procedure bsSkinButton10Click(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 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);
    procedure FormShow(Sender: TObject);
    procedure dxDBGrid1DblClick(Sender: TObject);
    procedure dxDBGrid3DblClick(Sender: TObject);
    procedure dxDBGrid4DblClick(Sender: TObject);
    procedure dxDBGrid5DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_rp_no_seai: Tfrm_rp_no_seai;

implementation

uses u_main,my_sys_function, u_data_share, u_rp_seai_query;

{$R *.dfm}

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

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

procedure Tfrm_rp_no_seai.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_seai.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_seai.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_seai.bsSkinButton10Click(Sender: TObject);
begin
  try
    frm_rp_seai_query:=tfrm_rp_seai_query.Create (self);
    rp_seai_query_num:=1;
    if bsSkinCheckRadioBox1.Checked then
      rp_seai_query_type:=1
    else if bsSkinCheckRadioBox2.Checked then
      rp_seai_query_type:=2
    else
      rp_seai_query_type:=3;
    rp_seai_query_limited:='0033';
    rp_seai_query_str:='海运进口欠费';
    frm_rp_seai_query.ShowModal;
  finally
    frm_rp_seai_query.Free;
  end;
end;

procedure Tfrm_rp_no_seai.N10Click(Sender: TObject);
begin
  if bsSkinTabSheet1.showing then
  begin
    update_grid_view_no(dxdbgrid1);
    exit;
  end;
  if bsSkinTabSheet2.showing then
  begin
    update_grid_view_no(dxdbgrid3);
    exit;
  end;
  if bsSkinTabSheet3.showing then
  begin
    update_grid_view_no(dxdbgrid4);
    exit;
  end;
  if bsSkinTabSheet4.showing then
  begin
    update_grid_view_no(dxdbgrid5);
    exit;
  end;
  if bsSkinTabSheet5.showing then
  begin
    update_grid_view_no(dxdbgrid6);
    exit;
  end;
  if bsSkinTabSheet6.showing then
  begin
    update_grid_view_no(dxdbgrid7);
    exit;
  end;
end;

procedure Tfrm_rp_no_seai.N14Click(Sender: TObject);
begin
  if bsSkinTabSheet1.showing then
  begin
    update_grid_view_all(dxdbgrid1);
    exit;
  end;
  if bsSkinTabSheet2.showing then
  begin
    update_grid_view_all(dxdbgrid3);
    exit;
  end;
  if bsSkinTabSheet3.showing then
  begin
    update_grid_view_all(dxdbgrid4);
    exit;
  end;
  if bsSkinTabSheet4.showing then
  begin
    update_grid_view_all(dxdbgrid5);
    exit;
  end;
  if bsSkinTabSheet5.showing then
  begin
    update_grid_view_all(dxdbgrid6);
    exit;
  end;
  if bsSkinTabSheet6.showing then
  begin
    update_grid_view_all(dxdbgrid7);
    exit;
  end;
end;

procedure Tfrm_rp_no_seai.N12Click(Sender: TObject);
begin
  if bsSkinTabSheet1.showing then
  begin
    update_grid(dxdbgrid1,40);
    exit;
  end;
  if bsSkinTabSheet2.showing then
  begin
    update_grid(dxdbgrid3,41);
    exit;
  end;
  if bsSkinTabSheet3.showing then
  begin
    update_grid(dxdbgrid4,42);
    exit;
  end;
  if bsSkinTabSheet4.showing then
  begin
    update_grid(dxdbgrid5,43);
    exit;
  end;
  if bsSkinTabSheet5.showing then
  begin
    update_grid(dxdbgrid6,44);
    exit;
  end;
  if bsSkinTabSheet6.showing then
  begin
    update_grid(dxdbgrid7,45);
    exit;
  end;
end;

procedure Tfrm_rp_no_seai.N16Click(Sender: TObject);
begin
  if bsSkinTabSheet1.showing then
  begin
    grid_save_xls(dxdbgrid1);
    exit;
  end;
  if bsSkinTabSheet2.showing then
  begin
    grid_save_xls(dxdbgrid3);
    exit;
  end;
  if bsSkinTabSheet3.showing then
  begin
    grid_save_xls(dxdbgrid4);
    exit;
  end;
  if bsSkinTabSheet4.showing then
  begin
    grid_save_xls(dxdbgrid5);
    exit;
  end;
  if bsSkinTabSheet5.showing then
  begin
    grid_save_xls(dxdbgrid6);
    exit;
  end;
  if bsSkinTabSheet6.showing then
  begin
    grid_save_xls(dxdbgrid7);
    exit;
  end;
end;

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

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

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

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

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

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

procedure Tfrm_rp_no_seai.FormShow(Sender: TObject);
begin
  loadreggrid(dxdbgrid1,true,caption+'1');
  loadreggrid(dxdbgrid3,true,caption+'3');
  loadreggrid(dxdbgrid4,true,caption+'4');
  loadreggrid(dxdbgrid5,true,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_seai.dxDBGrid1DblClick(Sender: TObject);
begin
  fee_view(p_accept_bill.fieldbyname('编号').asstring);
end;

procedure Tfrm_rp_no_seai.dxDBGrid3DblClick(Sender: TObject);
begin
  fee_view(p_accept_fee.fieldbyname('编号').asstring);
end;

procedure Tfrm_rp_no_seai.dxDBGrid4DblClick(Sender: TObject);
begin
  fee_view(p_pay_bill.fieldbyname('编号').asstring);
end;

procedure Tfrm_rp_no_seai.dxDBGrid5DblClick(Sender: TObject);
begin
  fee_view(p_pay_fee.fieldbyname('编号').asstring);
end;

end.