unit u_ch_fee_seai_sales;

interface

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

type
  Tfrm_ch_fee_seai_sales = class(TForm)
    bsSkinPanel2: TbsSkinPanel;
    bsSkinButton5: TbsSkinButton;
    bsSkinButton6: TbsSkinButton;
    bsSkinButton7: TbsSkinButton;
    bsSkinButton10: TbsSkinButton;
    bsSkinButton11: TbsSkinButton;
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet1: TbsSkinTabSheet;
    bsSkinTabSheet2: TbsSkinTabSheet;
    bsSkinTabSheet3: TbsSkinTabSheet;
    t_op_seai1: TDataSource;
    t_op_state: TADOQuery;
    t_op_state1: TDataSource;
    bsSkinTabSheet4: TbsSkinTabSheet;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridMaskColumn;
    dxDBGrid1Column2: TdxDBGridMaskColumn;
    dxDBGrid1Column3: TdxDBGridMaskColumn;
    dxDBGrid1Column4: TdxDBGridMaskColumn;
    dxDBGrid1Column5: TdxDBGridMaskColumn;
    dxDBGrid1Column6: TdxDBGridMaskColumn;
    dxDBGrid1Column7: TdxDBGridMaskColumn;
    dxDBGrid1Column8: TdxDBGridDateColumn;
    dxDBGrid1Column9: TdxDBGridDateColumn;
    dxDBGrid1Column10: TdxDBGridMaskColumn;
    dxDBGrid1Column11: TdxDBGridMaskColumn;
    dxDBGrid1Column12: TdxDBGridMaskColumn;
    dxDBGrid1Column13: TdxDBGridMaskColumn;
    dxDBGrid1Column14: TdxDBGridMaskColumn;
    dxDBGrid1Column15: TdxDBGridMaskColumn;
    dxDBGrid1Column16: TdxDBGridMaskColumn;
    dxDBGrid1Column17: TdxDBGridMaskColumn;
    dxDBGrid1Column18: TdxDBGridMaskColumn;
    dxDBGrid11: TdxDBGridMaskColumn;
    dxDBGrid12: TdxDBGridMaskColumn;
    dxDBGrid13: TdxDBGridMaskColumn;
    dxDBGrid14: TdxDBGridMaskColumn;
    dxDBGrid15: TdxDBGridMaskColumn;
    dxDBGrid16: TdxDBGridMaskColumn;
    dxDBGrid17: TdxDBGridMaskColumn;
    dxDBGrid18: TdxDBGridMaskColumn;
    dxDBGrid19: TdxDBGridMaskColumn;
    dxDBGrid110: TdxDBGridMaskColumn;
    dxDBGrid1Column39: TdxDBGridMaskColumn;
    dxDBGrid1TEU: TdxDBGridMaskColumn;
    dxDBGrid1Column41: TdxDBGridMaskColumn;
    dxDBGrid1Column42: TdxDBGridMaskColumn;
    dxDBGrid1Column43: TdxDBGridMaskColumn;
    dxDBGrid1Column44: TdxDBGridColumn;
    dxDBGrid1Column45: TdxDBGridColumn;
    dxDBGrid1Column46: TdxDBGridMaskColumn;
    dxDBGrid1Column47: TdxDBGridMaskColumn;
    dxDBGrid1Column48: TdxDBGridDateColumn;
    dxDBGrid1Column49: TdxDBGridMaskColumn;
    dxDBGrid1Column50: TdxDBGridMaskColumn;
    dxDBGrid1Column51: TdxDBGridMaskColumn;
    dxDBGrid1Column52: TdxDBGridMaskColumn;
    dxDBGrid1Column53: TdxDBGridMaskColumn;
    dxDBGrid1Column54: TdxDBGridMaskColumn;
    dxDBGrid1Column55: TdxDBGridMaskColumn;
    dxDBGrid1Column56: TdxDBGridMaskColumn;
    dxDBGrid1Column57: TdxDBGridMaskColumn;
    bsSkinPanel1: TbsSkinPanel;
    Label1: TLabel;
    Label19: TLabel;
    Label2: TLabel;
    Label17: TLabel;
    Label3: TLabel;
    Label37: TLabel;
    Label5: TLabel;
    Label38: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    bsSkinPanel3: TbsSkinPanel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    DBEdit5: TDBEdit;
    RxDBLookupCombo3: TRxDBLookupCombo;
    DBEdit6: TDBEdit;
    RxDBLookupCombo4: TRxDBLookupCombo;
    DBEdit7: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    RxDBLookupCombo5: TRxDBLookupCombo;
    RxDBLookupCombo6: TRxDBLookupCombo;
    bsSkinPanel4: TbsSkinPanel;
    Label18: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    DBEdit13: TDBEdit;
    RxDBLookupCombo7: TRxDBLookupCombo;
    DBEdit14: TDBEdit;
    RxDBLookupCombo8: TRxDBLookupCombo;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    RxDBLookupCombo9: TRxDBLookupCombo;
    RxDBLookupCombo10: TRxDBLookupCombo;
    fra_fee1: Tfra_fee;
    dxDBGrid2: TdxDBGrid;
    dxDBGrid2Column1: TdxDBGridMaskColumn;
    dxDBGrid2Column2: TdxDBGridCheckColumn;
    dxDBGrid2Column3: TdxDBGridDateColumn;
    dxDBGrid2Column4: TdxDBGridMaskColumn;
    dxDBGrid2Column5: TdxDBGridMaskColumn;
    dxDBGrid2Column6: TdxDBGridColumn;
    dxDBGrid2Column7: TdxDBGridColumn;
    dxDBGrid1Column58: TdxDBGridColumn;
    DBEdit4: TDBEdit;
    Label65: TLabel;
    DBEdit26: TDBEdit;
    dxDBGrid1Column59: TdxDBGridColumn;
    bsSkinButton1: TbsSkinButton;
    Label122: TLabel;
    DBMemo33: TDBMemo;
    Label121: TLabel;
    DBMemo34: TDBMemo;
    Label123: TLabel;
    DBMemo35: TDBMemo;
    Label125: TLabel;
    Label124: TLabel;
    Label29: TLabel;
    DBEdit19: TDBEdit;
    Label30: TLabel;
    DBEdit20: TDBEdit;
    Label31: TLabel;
    DBEdit21: TDBEdit;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    DBEdit22: TDBEdit;
    DBEdit23: TDBEdit;
    Label39: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    Label126: TLabel;
    DBEdit63: TDBEdit;
    Label42: TLabel;
    Label43: TLabel;
    Label44: TLabel;
    DBEdit24: TDBEdit;
    Label45: TLabel;
    Label73: TLabel;
    Label46: TLabel;
    Label47: TLabel;
    Label48: TLabel;
    Label164: TLabel;
    Label49: TLabel;
    DBEdit83: TDBEdit;
    Label50: TLabel;
    DBEdit25: TDBEdit;
    Label51: TLabel;
    DBEdit82: TDBEdit;
    Label52: TLabel;
    DBEdit81: TDBEdit;
    Label53: TLabel;
    DBEdit27: TDBEdit;
    Label54: TLabel;
    Label55: TLabel;
    DBMemo1: TDBMemo;
    Label56: TLabel;
    DBMemo2: TDBMemo;
    Label57: TLabel;
    DBMemo3: TDBMemo;
    Label58: TLabel;
    DBMemo4: TDBMemo;
    PopupMenu2: TPopupMenu;
    N10: TMenuItem;
    N11: TMenuItem;
    N14: TMenuItem;
    N13: TMenuItem;
    N12: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    XPMenu1: TXPMenu;
    bsSkinTabSheet5: TbsSkinTabSheet;
    t_op_card: TADOQuery;
    t_op_card1: TDataSource;
    bsSkinGroupBox5: TbsSkinGroupBox;
    bsSkinDBCheckRadioBox1: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox2: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox3: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox4: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox5: TbsSkinDBCheckRadioBox;
    bsSkinGroupBox3: TbsSkinGroupBox;
    dxDBGrid3: TdxDBGrid;
    dxDBGridButtonColumn1: TdxDBGridButtonColumn;
    dxDBGridMaskColumn1: TdxDBGridMaskColumn;
    dxDBGridDateColumn1: TdxDBGridDateColumn;
    dxDBGridDateColumn2: TdxDBGridDateColumn;
    dxDBGridCheckColumn1: TdxDBGridCheckColumn;
    dxDBGridDateColumn3: TdxDBGridDateColumn;
    dxDBGridCheckColumn2: TdxDBGridCheckColumn;
    dxDBGridDateColumn4: TdxDBGridDateColumn;
    dxDBGridMaskColumn2: TdxDBGridMaskColumn;
    t_op_seai: TADOStoredProc;
    PopupMenu3: TPopupMenu;
    N37: TMenuItem;
    N38: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    DBEdit28: TDBEdit;
    DBEdit29: TDBEdit;
    DBEdit30: TDBEdit;
    DBEdit31: TDBEdit;
    DBEdit32: TDBEdit;
    DBEdit33: TDBEdit;
    DBEdit34: TDBEdit;
    DBEdit35: TDBEdit;
    DBEdit36: TDBEdit;
    DBEdit37: TDBEdit;
    DBEdit38: TDBEdit;
    DBEdit39: TDBEdit;
    DBEdit40: TDBEdit;
    DBEdit41: TDBEdit;
    DBEdit42: TDBEdit;
    DBEdit43: TDBEdit;
    DBEdit44: TDBEdit;
    DBEdit45: TDBEdit;
    DBEdit46: TDBEdit;
    DBEdit47: TDBEdit;
    DBEdit48: TDBEdit;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    dxDBGrid1Column60: TdxDBGridColumn;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton9: TbsSkinButton;
    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);
    procedure dxDBGrid1Column60CustomDraw(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 fra_fee1bsSkinButton6Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_ch_fee_seai_sales: Tfrm_ch_fee_seai_sales;

implementation

uses u_main, my_sys_function, u_data_share;

{$R *.dfm}

procedure Tfrm_ch_fee_seai_sales.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  savereggrid(dxdbgrid1,caption);
  savewwgrid(fra_fee1.wwDBGrid1,'海运进口销售应收');
  savewwgrid(fra_fee1.wwDBGrid2,'海运进口销售应付');
  frm_ch_fee_seai_sales.Hide;
  frm_ch_fee_seai_sales.ManualFloat(frm_ch_fee_seai_sales.BoundsRect );
  frm_main.freeTabs('frm_ch_fee_seai_sales');
  action:=cafree;
  frm_ch_fee_seai_sales:=nil;
end;

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

procedure Tfrm_ch_fee_seai_sales.FormShow(Sender: TObject);
begin
  t_op_state.close;
  t_op_seai.Close;
  t_op_seai.Parameters.ParamByName('SQLStr').value:='select * from t_op_seai where '
                   +' SUBSTRING(CONVERT(char(15),进口日期,111),1,7)='''+FormatDateTime('YYYY',Date)+'/'+FormatDateTime('MM',Date)+''' and '
                   +'揽货人='+''''+employee+''''
                   +default_sort(54,'t_op_seai','','desc');
  t_op_seai.open;
  t_op_state.open;
  t_op_card.open;

  loadreggrid(dxdbgrid1,true,caption);

  bsSkinButton7.Width:=round(bsSkinPanel2.Width/8);
  bsSkinButton6.Width:=round(bsSkinPanel2.Width/8);
  bsSkinButton1.Width:=round(bsSkinPanel2.Width/8);
  bsSkinButton10.Width:=round(bsSkinPanel2.Width/8);
  bsSkinButton11.Width:=round(bsSkinPanel2.Width/8);
  bsSkinButton2.Width:=round(bsSkinPanel2.Width/8);
  bsSkinButton9.Width:=round(bsSkinPanel2.Width/8);
  loadwwgrid(fra_fee1.wwDBGrid1,'海运进口销售应收');
  loadwwgrid(fra_fee1.wwDBGrid2,'海运进口销售应付');
  fra_fee1.edit_type.text:='2';
  fra_fee1.edit_data.text:='0022';
  fra_fee1.edit_report.text:='海运进口';
  fra_fee1.t_ch_accept.DataSource:=t_op_seai1;
  if strtobool(get_parameters_value(150,'false')) then
    fra_fee1.bsSkinPanel3.Visible:=true;
  fra_fee1.DBEdit48.DataSource:=t_op_seai1;

  if if_open('295') then
  begin
    fra_fee1.t_ch_accept.DataSource:=t_op_seai1;
    if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('207')=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('296') then
  begin
    fra_fee1.t_ch_pay.DataSource:=t_op_seai1;
    if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('207')=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
    if if_open('227') then begin
      fra_fee1.Panel8.Visible:=true;
      fra_fee1.Panel8.Height:=20;
    end else
      fra_fee1.Panel8.Visible:=false;

    fra_fee1.t_op_gain.DataSource:=t_op_seai1;
    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;

  if G_ZWCHK='TRUE'  then
  begin
    bsSkinButton11.Visible:=false ;
    bsSkinTabSheet3.TabVisible:=false ;
  end ;
end;

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

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

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

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

procedure Tfrm_ch_fee_seai_sales.bsSkinButton10Click(Sender: TObject);
begin
  query_seai(2,'0022');
end;

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

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

procedure Tfrm_ch_fee_seai_sales.N12Click(Sender: TObject);
begin
  update_grid(dxdbgrid1,36);
end;

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

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

procedure Tfrm_ch_fee_seai_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_seai_sales.N37Click(Sender: TObject);
begin
  t_op_seai.Close;
  t_op_seai.Parameters.ParamByName('SQLStr').value:='select * from t_op_seai where '
                   +open_data('0022','揽货人','操作员','客服员','报关操作','报检操作')
                   +' and 编号 in (select distinct 编号 from t_op_state where 是否完成<>1) '
                   +default_sort(54,'t_op_seai','','desc');
  t_op_seai.open;
end;

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

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

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

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

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

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

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

procedure Tfrm_ch_fee_seai_sales.dxDBGrid1Column60CustomDraw(
  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[dxDBGrid1Column60.Index]);
  AFont.Color:=clblack;
end;

procedure Tfrm_ch_fee_seai_sales.fra_fee1bsSkinButton6Click(
  Sender: TObject);
begin
  fra_fee1.bsSkinButton6Click(Sender);

end;

procedure Tfrm_ch_fee_seai_sales.bsSkinButton2Click(Sender: TObject);
var
  book1:Tbookmark;
begin
  book1:=t_op_seai1.DataSet.GetBookmark;
  t_op_seai1.DataSet.Refresh;
  t_op_seai1.DataSet.GotoBookmark(book1);

end;

procedure Tfrm_ch_fee_seai_sales.bsSkinButton9Click(Sender: TObject);
begin
  sys_print('海运进口销售台帐',2,t_op_seai1,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil);

end;

end.