D6HECHUAN/新建文件夹/海运业务/u_op_seae_bl.~pas

{$INCLUDE t_main.inc}

unit u_op_seae_bl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  dxExEdtr, XPMenu, Menus, DB, ADODB, bsSkinCtrls, bsdbctrls, wwdbedit,
  Wwdotdot, Wwdbcomb, wwdbdatetimepicker, wwdblook, StdCtrls, DBCtrls,
  ComCtrls, bsSkinTabs, RxLookup, Mask, dxDBTLCl, dxGrClms, dxDBGrid, dxTL,
  dxDBCtrl, dxCntner, ExtCtrls, Dialogs, ExtDlgs, Wwdbdlg, shellapi,
  Grids, DBGrids,inifiles, cxControls, cxContainer, cxEdit, cxTextEdit,
  cxMaskEdit, cxButtonEdit, cxDBEdit, Wwdbigrd, Wwdbgrid;

type
  Tfrm_op_seae_bl = class(TForm)
    t_op_seae: TADOQuery;
    t_op_seae1: TDataSource;
    t_op_seae_fen: TADOQuery;
    t_op_seae_fen1: TDataSource;
    t_op_seae2: TDataSource;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N6: TMenuItem;
    N8: TMenuItem;
    N19: TMenuItem;
    N21: TMenuItem;
    N4: TMenuItem;
    N20: TMenuItem;
    N24: TMenuItem;
    N7: TMenuItem;
    N22: TMenuItem;
    EXCEL1: TMenuItem;
    XPMenu1: TXPMenu;
    Panel2: TPanel;
    bsSkinButton7: TbsSkinButton;
    bsSkinButton6: TbsSkinButton;
    bsSkinButton9: TbsSkinButton;
    bsSkinButton10: TbsSkinButton;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton11: TbsSkinButton;
    bsSkinButton8: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton4: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    Notebook1: TNotebook;
    bsSkinPanel1: TbsSkinPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label37: TLabel;
    Label5: TLabel;
    Label38: TLabel;
    Label4: TLabel;
    Label36: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit9: TDBEdit;
    RxDBLookupCombo1: TRxDBLookupCombo;
    DBEdit7: TDBEdit;
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet6: TbsSkinTabSheet;
    bsSkinTabSheet1: TbsSkinTabSheet;
    bsSkinTabSheet7: TbsSkinTabSheet;
    bsSkinTabSheet2: TbsSkinTabSheet;
    bsSkinTabSheet4: TbsSkinTabSheet;
    Panel3: TPanel;
    dxDBGrid1: TdxDBGrid;
    t_ch_fee: TADOQuery;
    DBEdit18: TDBEdit;
    Label65: TLabel;
    bsSkinButton13: TbsSkinButton;
    Label20: TLabel;
    RxDBLookupCombo29: TRxDBLookupCombo;
    Label42: TLabel;
    RxDBLookupCombo30: TRxDBLookupCombo;
    PopupMenu2: TPopupMenu;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    PopupMenu3: TPopupMenu;
    N17: TMenuItem;
    N18: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N46: TMenuItem;
    N47: TMenuItem;
    N48: TMenuItem;
    N50: TMenuItem;
    N51: TMenuItem;
    N52: TMenuItem;
    N53: TMenuItem;
    N54: TMenuItem;
    N55: TMenuItem;
    PopupMenu4: TPopupMenu;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N61: TMenuItem;
    t_op_seae_huanhuo1: TDataSource;
    N25: TMenuItem;
    N62: TMenuItem;
    N63: TMenuItem;
    N64: TMenuItem;
    dxDBGrid1Column1: TdxDBGridMaskColumn;
    dxDBGrid1Column2: TdxDBGridMaskColumn;
    dxDBGrid1Column3: TdxDBGridMaskColumn;
    dxDBGrid1Column4: TdxDBGridDateColumn;
    dxDBGrid1Column5: TdxDBGridMaskColumn;
    dxDBGrid1Column6: TdxDBGridMaskColumn;
    dxDBGrid1Column7: TdxDBGridMaskColumn;
    dxDBGrid1Column8: TdxDBGridMaskColumn;
    dxDBGrid1Column9: TdxDBGridMaskColumn;
    dxDBGrid1Column10: TdxDBGridMaskColumn;
    dxDBGrid1Column11: TdxDBGridMaskColumn;
    dxDBGrid1Column12: TdxDBGridMaskColumn;
    dxDBGrid1Column13: TdxDBGridMaskColumn;
    dxDBGrid1Column14: TdxDBGridMaskColumn;
    dxDBGrid1Column15: TdxDBGridMaskColumn;
    dxDBGrid1Column16: TdxDBGridMaskColumn;
    dxDBGrid1Column17: TdxDBGridMaskColumn;
    dxDBGrid1Column18: TdxDBGridDateColumn;
    dxDBGrid1Column19: TdxDBGridDateColumn;
    dxDBGrid1Column20: TdxDBGridDateColumn;
    dxDBGrid1Column22: TdxDBGridMaskColumn;
    dxDBGrid1Column23: TdxDBGridMaskColumn;
    dxDBGrid1Column28: TdxDBGridMaskColumn;
    dxDBGrid1Column29: TdxDBGridMaskColumn;
    dxDBGrid1Column30: TdxDBGridMaskColumn;
    dxDBGrid1Column31: TdxDBGridMaskColumn;
    dxDBGrid1Column32: TdxDBGridMaskColumn;
    dxDBGrid1Column33: TdxDBGridDateColumn;
    dxDBGrid1Column34: TdxDBGridMaskColumn;
    dxDBGrid1Column35: TdxDBGridMaskColumn;
    dxDBGrid1Column36: TdxDBGridMaskColumn;
    dxDBGrid1Column37: TdxDBGridMaskColumn;
    dxDBGrid1Column38: TdxDBGridMaskColumn;
    dxDBGrid1Column39: TdxDBGridMaskColumn;
    dxDBGrid1Column40: TdxDBGridMaskColumn;
    dxDBGrid1Column41: TdxDBGridColumn;
    dxDBGrid1Column42: TdxDBGridColumn;
    dxDBGrid11: TdxDBGridMaskColumn;
    dxDBGrid12: TdxDBGridMaskColumn;
    dxDBGrid13: TdxDBGridMaskColumn;
    dxDBGrid14: TdxDBGridMaskColumn;
    dxDBGrid15: TdxDBGridMaskColumn;
    dxDBGrid16: TdxDBGridMaskColumn;
    dxDBGrid17: TdxDBGridMaskColumn;
    dxDBGrid18: TdxDBGridMaskColumn;
    dxDBGrid19: TdxDBGridMaskColumn;
    dxDBGrid110: TdxDBGridMaskColumn;
    dxDBGrid1Column63: TdxDBGridMaskColumn;
    dxDBGrid1TEU: TdxDBGridMaskColumn;
    dxDBGrid1Column65: TdxDBGridMaskColumn;
    dxDBGrid1Column66: TdxDBGridMaskColumn;
    dxDBGrid1Column67: TdxDBGridDateColumn;
    dxDBGrid1Column68: TdxDBGridMaskColumn;
    dxDBGrid1Column69: TdxDBGridMaskColumn;
    dxDBGrid1Column70: TdxDBGridMaskColumn;
    dxDBGrid1Column71: TdxDBGridMaskColumn;
    dxDBGrid1Column72: TdxDBGridMaskColumn;
    dxDBGrid1Column97: TdxDBGridMaskColumn;
    N66: TMenuItem;
    N67: TMenuItem;
    N68: TMenuItem;
    N69: TMenuItem;
    N70: TMenuItem;
    N71: TMenuItem;
    N72: TMenuItem;
    bsSkinButton15: TbsSkinButton;
    N73: TMenuItem;
    N74: TMenuItem;
    bsSkinButton38: TbsSkinButton;
    N76: TMenuItem;
    N77: TMenuItem;
    N78: TMenuItem;
    N79: TMenuItem;
    N80: TMenuItem;
    N81: TMenuItem;
    N82: TMenuItem;
    N83: TMenuItem;
    N84: TMenuItem;
    bsSkinPanel5: TbsSkinPanel;
    Label82: TLabel;
    DBMemo12: TDBMemo;
    Label83: TLabel;
    DBEdit23: TDBEdit;
    Label84: TLabel;
    RxDBLookupCombo34: TRxDBLookupCombo;
    Label85: TLabel;
    RxDBLookupCombo35: TRxDBLookupCombo;
    Label86: TLabel;
    RxDBLookupCombo36: TRxDBLookupCombo;
    dxDBGrid1Column114: TdxDBGridColumn;
    bsSkinDBText1: TbsSkinDBText;
    bsSkinPanel6: TbsSkinPanel;
    Label110: TLabel;
    wwDBLookupCombo12: TwwDBLookupCombo;
    N87: TMenuItem;
    WORD1: TMenuItem;
    bsSkinPanel9: TbsSkinPanel;
    Label116: TLabel;
    Edit1: TEdit;
    Label131: TLabel;
    Edit2: TEdit;
    bsSkinButton44: TbsSkinButton;
    N90: TMenuItem;
    N91: TMenuItem;
    N92: TMenuItem;
    N93: TMenuItem;
    N94: TMenuItem;
    N95: TMenuItem;
    N96: TMenuItem;
    N98: TMenuItem;
    N99: TMenuItem;
    bsSkinSpeedButton1: TbsSkinSpeedButton;
    OpenDialog1: TOpenDialog;
    bsSkinButton45: TbsSkinButton;
    PopupMenu5: TPopupMenu;
    N101: TMenuItem;
    N102: TMenuItem;
    N103: TMenuItem;
    dxDBGrid1Column119: TdxDBGridColumn;
    dxDBGrid1Column120: TdxDBGridColumn;
    N108: TMenuItem;
    N113: TMenuItem;
    N114: TMenuItem;
    dxDBGrid1Column122: TdxDBGridCheckColumn;
    dxDBGrid1Column124: TdxDBGridColumn;
    dxDBGrid1Column125: TdxDBGridColumn;
    dxDBGrid1Column126: TdxDBGridColumn;
    SaveDialog1: TSaveDialog;
    N26: TMenuItem;
    TabCtn: TbsSkinTabSheet;
    t_op_ctn: TADOQuery;
    t_op_ctn1: TDataSource;
    wwDBLookupCombo13: TwwDBLookupCombo;
    wwDBLookupCombo14: TwwDBLookupCombo;
    wwDBGrid1: TwwDBGrid;
    bsSkinPanel3: TbsSkinPanel;
    bsSkinButton22: TbsSkinButton;
    bsSkinButton35: TbsSkinButton;
    bsSkinButton40: TbsSkinButton;
    bsSkinButton41: TbsSkinButton;
    bsSkinButton42: TbsSkinButton;
    bsSkinButton46: TbsSkinButton;
    Memo4: TMemo;
    Memo3: TMemo;
    Memo2: TMemo;
    Memo1: TMemo;
    bsSkinPanel4: TbsSkinPanel;
    Label19: TLabel;
    RxDBLookupCombo12: TRxDBLookupCombo;
    Label134: TLabel;
    RxDBLookupCombo49: TRxDBLookupCombo;
    Label16: TLabel;
    RxDBLookupCombo14: TRxDBLookupCombo;
    RxDBLookupCombo31: TRxDBLookupCombo;
    Label41: TLabel;
    Label17: TLabel;
    wwDBComboBox9: TwwDBComboBox;
    wwDBComboBox2: TwwDBComboBox;
    dxDBGrid1Column81: TdxDBGridColumn;
    wwDBComboBoxcns: TwwDBComboBox;
    bsSkinPanel2: TbsSkinPanel;
    Label11: TLabel;
    DBEdit10: TDBEdit;
    Label40: TLabel;
    wwDBComboBoxwd: TwwDBComboBox;
    Label47: TLabel;
    DBEdit15: TDBEdit;
    Label48: TLabel;
    DBEdit16: TDBEdit;
    Label10: TLabel;
    DBEdit6: TDBEdit;
    bsSkinPanel7: TbsSkinPanel;
    Label43: TLabel;
    DBEdit11: TDBEdit;
    Label44: TLabel;
    DBEdit12: TDBEdit;
    Label45: TLabel;
    DBEdit13: TDBEdit;
    Label49: TLabel;
    DBEdit17: TDBEdit;
    Label50: TLabel;
    DBEdit19: TDBEdit;
    Label51: TLabel;
    DBEdit20: TDBEdit;
    bsSkinPanel8: TbsSkinPanel;
    Label163: TLabel;
    Label164: TLabel;
    Label165: TLabel;
    Label166: TLabel;
    Label167: TLabel;
    Label168: TLabel;
    Label169: TLabel;
    Label170: TLabel;
    DBMemo38: TDBMemo;
    bsSkinButton21: TbsSkinButton;
    DBMemo39: TDBMemo;
    DBMemo40: TDBMemo;
    DBMemo41: TDBMemo;
    DBMemo42: TDBMemo;
    DBEdit80: TDBEdit;
    DBEdit81: TDBEdit;
    wwDBLookupCombo61: TwwDBLookupCombo;
    DBEdit82: TDBEdit;
    DBEdit83: TDBEdit;
    RxDBLookupCombo11: TRxDBLookupCombo;
    bsSkinButton16: TbsSkinButton;
    bsSkinButton18: TbsSkinButton;
    bsSkinButton19: TbsSkinButton;
    bsSkinButton20: TbsSkinButton;
    bsSkinButton12: TbsSkinButton;
    bsSkinPanel10: TbsSkinPanel;
    Label13: TLabel;
    Label122: TLabel;
    Label121: TLabel;
    Label123: TLabel;
    Label6: TLabel;
    Label125: TLabel;
    Label126: TLabel;
    Label124: TLabel;
    Label7: TLabel;
    Label146: TLabel;
    Label145: TLabel;
    Label15: TLabel;
    Label25: TLabel;
    Label18: TLabel;
    Label73: TLabel;
    Label32: TLabel;
    Label21: TLabel;
    Label35: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label28: TLabel;
    Label9: TLabel;
    Label12: TLabel;
    Label119: TLabel;
    Label22: TLabel;
    wwDBLookupCombo48: TwwDBLookupCombo;
    wwDBLookupCombo46: TwwDBLookupCombo;
    wwDBLookupCombo47: TwwDBLookupCombo;
    RxDBLookupCombo3: TRxDBLookupCombo;
    DBEdit5: TDBEdit;
    DBMemo35: TDBMemo;
    DBMemo34: TDBMemo;
    DBMemo33: TDBMemo;
    RxDBLookupCombo2: TRxDBLookupCombo;
    RxDBLookupCombo4: TRxDBLookupCombo;
    RxDBLookupCombo5: TRxDBLookupCombo;
    DBMemo1: TDBMemo;
    wwDBLookupCombo49: TwwDBLookupCombo;
    DBEdit63: TDBEdit;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    wwDBDateTimePicker6: TwwDBDateTimePicker;
    wwDBDateTimePicker3: TwwDBDateTimePicker;
    wwDBLookupCombo21: TwwDBLookupCombo;
    wwDBDateTimePicker4: TwwDBDateTimePicker;
    DBEdit25: TDBEdit;
    DBEdit27: TDBEdit;
    DBEdit26: TDBEdit;
    RxDBLookupCombo6: TRxDBLookupCombo;
    RxDBLookupCombo9: TRxDBLookupCombo;
    bsSkinButton23: TbsSkinButton;
    bsSkinButton24: TbsSkinButton;
    bsSkinButton25: TbsSkinButton;
    bsSkinButton26: TbsSkinButton;
    RxDBLookupCombo20: TRxDBLookupCombo;
    RxDBLookupCombo21: TRxDBLookupCombo;
    RxDBLookupCombo22: TRxDBLookupCombo;
    RxDBLookupCombo15: TRxDBLookupCombo;
    RxDBLookupCombo28: TRxDBLookupCombo;
    Button1: TButton;
    wwDBLookupCombo7: TwwDBLookupCombo;
    RxDBLookupCombo43: TRxDBLookupCombo;
    RxDBLookupCombo7: TRxDBLookupCombo;
    wwDBComboBoxBLNUM: TwwDBComboBox;
    wwDBComboBox8: TwwDBComboBox;
    DBEdit21: TDBEdit;
    DBEdit22: TDBEdit;
    DBEdit24: TDBEdit;
    DBEdit28: TDBEdit;
    bsSkinPageControl2: TbsSkinPageControl;
    bsskintabsheet_1: TbsSkinTabSheet;
    Label23: TLabel;
    Label24: TLabel;
    Label29: TLabel;
    Label33: TLabel;
    RxDBLookupCombo16: TRxDBLookupCombo;
    bsSkinButton27: TbsSkinButton;
    DBMemo3: TDBMemo;
    bsSkinButton28: TbsSkinButton;
    RxDBLookupCombo17: TRxDBLookupCombo;
    DBMemo4: TDBMemo;
    RxDBLookupCombo18: TRxDBLookupCombo;
    bsSkinButton29: TbsSkinButton;
    DBMemo5: TDBMemo;
    bsSkinButton30: TbsSkinButton;
    RxDBLookupCombo19: TRxDBLookupCombo;
    DBMemo6: TDBMemo;
    wwDBLookupCombo2: TwwDBLookupCombo;
    wwDBLookupCombo5: TwwDBLookupCombo;
    wwDBLookupCombo6: TwwDBLookupCombo;
    wwDBLookupCombo8: TwwDBLookupCombo;
    bsSkinButton39: TbsSkinButton;
    bsskintabsheet_2: TbsSkinTabSheet;
    dxDBGrid2: TdxDBGrid;
    dxDBGrid2Column1: TdxDBGridMaskColumn;
    dxDBGrid2Column2: TdxDBGridMaskColumn;
    dxDBGrid2Column3: TdxDBGridMaskColumn;
    dxDBGrid2Column4: TdxDBGridMaskColumn;
    dxDBGrid2Column5: TdxDBGridMaskColumn;
    dxDBGrid2Column6: TdxDBGridMaskColumn;
    dxDBGrid2Column7: TdxDBGridDateColumn;
    dxDBGrid2Column8: TdxDBGridMaskColumn;
    dxDBGrid2Column9: TdxDBGridMaskColumn;
    dxDBGrid2Column10: TdxDBGridMaskColumn;
    dxDBGrid2Column11: TdxDBGridColumn;
    dxDBGrid2Column12: TdxDBGridColumn;
    dxDBGrid2Column13: TdxDBGridMaskColumn;
    dxDBGrid2Column14: TdxDBGridMaskColumn;
    dxDBGrid2Column15: TdxDBGridMaskColumn;
    dxDBGrid2Column16: TdxDBGridMaskColumn;
    Panel1: TPanel;
    bsSkinButton31: TbsSkinButton;
    bsSkinButton32: TbsSkinButton;
    bsSkinButton33: TbsSkinButton;
    bsSkinButton34: TbsSkinButton;
    bsSkinButton36: TbsSkinButton;
    bsSkinButton14: TbsSkinButton;
    Label14: TLabel;
    DBMemo2: TDBMemo;
    bsSkinButton17: TbsSkinButton;
    bsSkinPanel11: TbsSkinPanel;
    Label153: TLabel;
    wwDBLookupCombo11: TwwDBLookupCombo;
    bsSkinButton37: TbsSkinButton;
    DBMemo10: TDBMemo;
    bsSkinGroupBox1: TbsSkinGroupBox;
    t_op_seae_edi: TADOQuery;
    Label8: TLabel;
    wwDBLookupCombo1: TwwDBLookupCombo;
    Label34: TLabel;
    Edit7: TEdit;
    t_op_seae_main: TADOQuery;
    Label46: TLabel;
    DBEdit14: TDBEdit;
    DBEdit29: TDBEdit;
    Label39: TLabel;
    Label52: TLabel;
    RxDBLookupCombo8: TRxDBLookupCombo;
    DBEdit30: TDBEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bsSkinButton5Click(Sender: TObject);
    procedure t_op_seaeBeforePost(DataSet: TDataSet);
    procedure FormShow(Sender: TObject);
    procedure t_op_seae_fenBeforePost(DataSet: TDataSet);
    procedure bsSkinButton7Click(Sender: TObject);
    procedure bsSkinButton6Click(Sender: TObject);
    procedure wwDBComboBox2Change(Sender: TObject);
    procedure bsSkinButton11Click(Sender: TObject);
    procedure bsSkinButton33Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure bsSkinButton4Click(Sender: TObject);
    procedure bsSkinButton36Click(Sender: TObject);
    procedure t_op_seaeBeforeDelete(DataSet: TDataSet);
    procedure t_op_seae_fenBeforeDelete(DataSet: TDataSet);
    procedure bsSkinButton8Click(Sender: TObject);
    procedure bsSkinButton9Click(Sender: TObject);
    procedure RxDBLookupCombo2Change(Sender: TObject);
    procedure RxDBLookupCombo3Change(Sender: TObject);
    procedure RxDBLookupCombo4Change(Sender: TObject);
    procedure RxDBLookupCombo16Change(Sender: TObject);
    procedure RxDBLookupCombo17Change(Sender: TObject);
    procedure RxDBLookupCombo18Change(Sender: TObject);
    procedure bsSkinButton26Click(Sender: TObject);
    procedure bsSkinButton25Click(Sender: TObject);
    procedure bsSkinButton24Click(Sender: TObject);
    procedure bsSkinButton23Click(Sender: TObject);
    procedure bsSkinButton21Click(Sender: TObject);
    procedure bsSkinButton22Click(Sender: TObject);
    procedure bsSkinButton16Click(Sender: TObject);
    procedure bsSkinButton17Click(Sender: TObject);
    procedure bsSkinButton18Click(Sender: TObject);
    procedure bsSkinButton19Click(Sender: TObject);
    procedure bsSkinButton20Click(Sender: TObject);
    procedure DBMemo40Change(Sender: TObject);
    procedure DBMemo41Change(Sender: TObject);
    procedure DBMemo42Change(Sender: TObject);
    procedure DBMemo41Exit(Sender: TObject);
    procedure DBMemo42Exit(Sender: TObject);
    procedure wwDBLookupCombo61Change(Sender: TObject);
    procedure bsSkinButton37Click(Sender: TObject);
    procedure DBEdit5Click(Sender: TObject);
    procedure bsSkinPageControl1Change(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure bsSkinButton34Click(Sender: TObject);
    procedure RxDBLookupCombo19Change(Sender: TObject);
    procedure RxDBLookupCombo11Change(Sender: TObject);
    procedure RxDBLookupCombo5Change(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 dxDBGrid2Column3CustomDraw(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 FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure EXCEL1Click(Sender: TObject);
    procedure Panel2Resize(Sender: TObject);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo1KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo12KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit8KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit9KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo2KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo19KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBLookupCombo49KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit63KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBDateTimePicker2KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBLookupCombo3KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBLookupCombo52KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo20KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBLookupCombo21KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBComboBoxBLNUMKeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo15KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit26KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit27KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo6KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo9KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo7KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo8KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo10KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo14KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo11KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit80KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit81KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBLookupCombo61KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit82KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBLookupCombo4KeyPress(Sender: TObject; var Key: Char);
    procedure bsSkinDBCheckRadioBox1KeyPress(Sender: TObject;
      var Key: Char);
    procedure bsSkinDBCheckRadioBox2KeyPress(Sender: TObject;
      var Key: Char);
    procedure RxDBLookupCombo24KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo25KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo27KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo26KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBComboBox12KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit71KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit73KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit109KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBComboBox11KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit114KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit112KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBDateTimePicker4KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo28KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit25KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure DBEdit18KeyPress(Sender: TObject; var Key: Char);
    procedure t_op_seae_fenAfterInsert(DataSet: TDataSet);
    procedure DBEdit3Change(Sender: TObject);
    procedure DBEdit2Change(Sender: TObject);
    procedure wwDBLookupCombo46Enter(Sender: TObject);
    procedure wwDBLookupCombo47Enter(Sender: TObject);
    procedure wwDBLookupCombo48Enter(Sender: TObject);
    procedure RxDBLookupCombo2Enter(Sender: TObject);
    procedure RxDBLookupCombo3Enter(Sender: TObject);
    procedure RxDBLookupCombo4Enter(Sender: TObject);
    procedure wwDBLookupCombo46Change(Sender: TObject);
    procedure wwDBLookupCombo46Exit(Sender: TObject);
    procedure wwDBLookupCombo47Change(Sender: TObject);
    procedure wwDBLookupCombo48Change(Sender: TObject);
    procedure wwDBLookupCombo47Exit(Sender: TObject);
    procedure wwDBLookupCombo48Exit(Sender: TObject);
    procedure wwDBLookupCombo46KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBLookupCombo47KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBLookupCombo48KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo3KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo4KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBLookupCombo2KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBLookupCombo5KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBLookupCombo6KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo16KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo17KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo18KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBLookupCombo2Exit(Sender: TObject);
    procedure wwDBLookupCombo5Exit(Sender: TObject);
    procedure wwDBLookupCombo6Exit(Sender: TObject);
    procedure wwDBLookupCombo2Change(Sender: TObject);
    procedure wwDBLookupCombo5Change(Sender: TObject);
    procedure wwDBLookupCombo6Change(Sender: TObject);
    procedure RxDBLookupCombo29KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo30KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo12Change(Sender: TObject);
    procedure RxDBLookupCombo14Change(Sender: TObject);
    procedure wwDBComboBox3KeyPress(Sender: TObject; var Key: Char);
    procedure bsSkinDBCheckRadioBox4KeyPress(Sender: TObject;
      var Key: Char);
    procedure bsSkinDBCheckRadioBox3KeyPress(Sender: TObject;
      var Key: Char);
    procedure bsSkinDBCheckRadioBox5KeyPress(Sender: TObject;
      var Key: Char);
    procedure N12Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure dxDBGrid1ColumnSorting(Sender: TObject;
      Column: TdxDBTreeListColumn; var Allow: Boolean);
    procedure N17Click(Sender: TObject);
    procedure bsSkinButton13Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure RxDBLookupCombo1Enter(Sender: TObject);
    procedure RxDBLookupCombo1Exit(Sender: TObject);
    procedure RxDBLookupCombo9Enter(Sender: TObject);
    procedure RxDBLookupCombo6Enter(Sender: TObject);
    procedure RxDBLookupCombo8Enter(Sender: TObject);
    procedure RxDBLookupCombo7Enter(Sender: TObject);
    procedure RxDBLookupCombo10Enter(Sender: TObject);
    procedure RxDBLookupCombo9Exit(Sender: TObject);
    procedure RxDBLookupCombo6Exit(Sender: TObject);
    procedure RxDBLookupCombo8Exit(Sender: TObject);
    procedure RxDBLookupCombo7Exit(Sender: TObject);
    procedure RxDBLookupCombo10Exit(Sender: TObject);
    procedure RxDBLookupCombo2Exit(Sender: TObject);
    procedure RxDBLookupCombo3Exit(Sender: TObject);
    procedure RxDBLookupCombo4Exit(Sender: TObject);
    procedure RxDBLookupCombo5Enter(Sender: TObject);
    procedure RxDBLookupCombo5Exit(Sender: TObject);
    procedure RxDBLookupCombo16Enter(Sender: TObject);
    procedure RxDBLookupCombo17Enter(Sender: TObject);
    procedure RxDBLookupCombo18Enter(Sender: TObject);
    procedure RxDBLookupCombo16Exit(Sender: TObject);
    procedure RxDBLookupCombo17Exit(Sender: TObject);
    procedure RxDBLookupCombo18Exit(Sender: TObject);
    procedure RxDBLookupCombo19Enter(Sender: TObject);
    procedure RxDBLookupCombo19Exit(Sender: TObject);
    procedure RxDBLookupCombo28Enter(Sender: TObject);
    procedure RxDBLookupCombo28Exit(Sender: TObject);
    procedure RxDBLookupCombo15Enter(Sender: TObject);
    procedure RxDBLookupCombo15Exit(Sender: TObject);
    procedure RxDBLookupCombo20Enter(Sender: TObject);
    procedure RxDBLookupCombo20Exit(Sender: TObject);
    procedure RxDBLookupCombo11Enter(Sender: TObject);
    procedure RxDBLookupCombo11Exit(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure N44Click(Sender: TObject);
    procedure N46Click(Sender: TObject);
    procedure Label4Click(Sender: TObject);
    procedure Label23Click(Sender: TObject);
    procedure Label24Click(Sender: TObject);
    procedure Label29Click(Sender: TObject);
    procedure Label33Click(Sender: TObject);
    procedure Label12Click(Sender: TObject);
    procedure Label9Click(Sender: TObject);
    procedure Label11Click(Sender: TObject);
    procedure Label10Click(Sender: TObject);
    procedure wwDBLookupCombo2DblClick(Sender: TObject);
    procedure Label125Click(Sender: TObject);
    procedure Label7Click(Sender: TObject);
    procedure Label35Click(Sender: TObject);
    procedure Label30Click(Sender: TObject);
    procedure Label73Click(Sender: TObject);
    procedure Label164Click(Sender: TObject);
    procedure wwDBLookupCombo61DblClick(Sender: TObject);
    procedure bsSkinButton12Click(Sender: TObject);
    procedure bsSkinButton14Click(Sender: TObject);
    procedure N55Click(Sender: TObject);
    procedure N51Click(Sender: TObject);
    procedure N53Click(Sender: TObject);
    procedure RxDBLookupCombo31Enter(Sender: TObject);
    procedure RxDBLookupCombo31Exit(Sender: TObject);
    procedure bsSkinDBCheckRadioBox9KeyPress(Sender: TObject;
      var Key: Char);
    procedure bsSkinDBCheckRadioBox10KeyPress(Sender: TObject;
      var Key: Char);
    procedure wwDBLookupCombo7Enter(Sender: TObject);
    procedure wwDBLookupCombo7Exit(Sender: TObject);
    procedure wwDBLookupCombo7KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo5KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBLookupCombo7Change(Sender: TObject);
    procedure wwDBLookupCombo8KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBLookupCombo8Change(Sender: TObject);
    procedure wwDBLookupCombo8Exit(Sender: TObject);
    procedure bsSkinButton35Click(Sender: TObject);
    procedure RxDBLookupCombo1Change(Sender: TObject);
    procedure N62Click(Sender: TObject);
    procedure N64Click(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 dxDBGrid2Column2CustomDraw(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 t_op_seaePostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure N66Click(Sender: TObject);
    procedure t_op_seaeAfterPost(DataSet: TDataSet);
    procedure Notebook1PageChanged(Sender: TObject);
    procedure wwDBDateTimePicker14KeyPress(Sender: TObject; var Key: Char);
    procedure N74Click(Sender: TObject);
    procedure t_op_seae_fenPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure bsSkinButton38Click(Sender: TObject);
    procedure N76Click(Sender: TObject);
    procedure N78Click(Sender: TObject);
    procedure N80Click(Sender: TObject);
    procedure wwDBLookupCombo11KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBLookupCombo11Change(Sender: TObject);
    procedure wwDBLookupCombo11Exit(Sender: TObject);
    procedure wwDBLookupCombo11DblClick(Sender: TObject);
    procedure t_op_seaeBeforeEdit(DataSet: TDataSet);
    procedure t_op_seae_fenBeforeEdit(DataSet: TDataSet);
    procedure t_op_seae_fenBeforeCancel(DataSet: TDataSet);
    procedure t_op_seaeBeforeCancel(DataSet: TDataSet);
    procedure RxDBLookupCombo32KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo33KeyPress(Sender: TObject; var Key: Char);
    procedure N82Click(Sender: TObject);
    procedure N84Click(Sender: TObject);
    procedure RxDBLookupCombo36Enter(Sender: TObject);
    procedure RxDBLookupCombo36Exit(Sender: TObject);
    procedure bsSkinButton39Click(Sender: TObject);
    procedure bsSkinButton42Click(Sender: TObject);
    procedure bsSkinButton40Click(Sender: TObject);
    procedure bsSkinButton41Click(Sender: TObject);
    procedure dxDBGrid1Column114CustomDraw(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 RxDBLookupCombo43KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit11KeyPress(Sender: TObject; var Key: Char);
    procedure WORD1Click(Sender: TObject);
    procedure wwDBLookupCombo49Change(Sender: TObject);
    procedure bsSkinButton44Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure N92Click(Sender: TObject);
    procedure N93Click(Sender: TObject);
    procedure N96Click(Sender: TObject);
    procedure DBEdit41KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo49KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo31KeyPress(Sender: TObject; var Key: Char);
    procedure N99Click(Sender: TObject);
    procedure RxDBLookupCombo15Change(Sender: TObject);
    procedure bsSkinSpeedButton1Click(Sender: TObject);
    procedure bsSkinButton31Click(Sender: TObject);
    procedure bsSkinButton45Click(Sender: TObject);
    procedure wwDBComboBox9DropDown(Sender: TObject);
    procedure RxDBLookupCombo31Change(Sender: TObject);
    procedure wwDBComboBox9KeyPress(Sender: TObject; var Key: Char);
    procedure N103Click(Sender: TObject);
    procedure N105Click(Sender: TObject);
    procedure t_op_fangdanBeforeEdit(DataSet: TDataSet);
    procedure t_op_fangdanBeforeInsert(DataSet: TDataSet);
    procedure wwDBLookupCombo16KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBLookupCombo17KeyPress(Sender: TObject; var Key: Char);
    procedure bsSkinButton47Click(Sender: TObject);
    procedure EDI1Click(Sender: TObject);
    procedure bsSkinButton46Click(Sender: TObject);
    procedure wwDBLookupCombo13Change(Sender: TObject);
    procedure t_op_ctnAfterPost(DataSet: TDataSet);
    procedure t_op_ctnAfterInsert(DataSet: TDataSet);
    procedure t_op_ctnBeforeDelete(DataSet: TDataSet);
    procedure t_op_ctnBeforeEdit(DataSet: TDataSet);
    procedure t_op_ctnBeforePost(DataSet: TDataSet);
    procedure RxDBLookupCombo21Enter(Sender: TObject);
    procedure RxDBLookupCombo21Exit(Sender: TObject);
    procedure RxDBLookupCombo21Change(Sender: TObject);
    procedure RxDBLookupCombo22Change(Sender: TObject);
    procedure RxDBLookupCombo7Change(Sender: TObject);
    procedure RxDBLookupCombo43Change(Sender: TObject);
    procedure wwDBComboBox8Change(Sender: TObject);
    procedure RxDBLookupCombo8Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    procedure setconcolor;
    procedure UpLoadPro(fname:string);  //fname<6D><65><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>·<EFBFBD><C2B7><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>
    procedure DownLoadPro(fname:string);           //<2F><><EFBFBD><EFBFBD><EFBFBD>ݿ<EFBFBD><DDBF>ı<EFBFBD><C4B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>

    { Private declarations }
  public
    psqlstr:widestring;
    assup:boolean;

    { Public declarations }
  end;

var
  frm_op_seae_bl: Tfrm_op_seae_bl;
  frm_op_seae_list_type:integer;
  frm_op_seae_bl_create:boolean;

implementation

uses u_main,u_data_share, my_sys_function, u_op_seae_add,
  u_op_ctn, u_op_add_ctn,u_op_seae_excel,
  u_ch_fee_se, {$IFDEF ZTGENGZONG} u_op_seae_state,u_op_seae_state_up,{$ENDIF} u_op_seae_assistant,
  u_op_seae_vessel, u_sys_progress, u_ch_fee_zhupiao,
  u_ch_piliang_seae,  u_op_date_change, u_op_seae_print_mul,
  u_op_seae_edi_hk, u_op_seae_word, u_sys_tab_sort,
  u_op_seae_history, u_op_letter;

{$R *.dfm}

procedure Tfrm_op_seae_bl.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  savereggrid(dxdbgrid1,caption);
  savereggrid(dxdbgrid2,caption+'1');
 if assigned(frm_op_letter) then
    frm_op_letter.close;

  if assigned(frm_op_seae_assistant) then
    frm_op_seae_assistant.close;
  frm_op_seae_bl.Hide;
  frm_op_seae_bl.ManualFloat(frm_op_seae_bl.BoundsRect );
  frm_main.freeTabs('frm_op_seae_bl');
  frm_op_seae_bl_create:=false;
  action:=cafree;
  frm_op_seae_bl:=nil;
end;

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

procedure Tfrm_op_seae_bl.t_op_seaeBeforePost(DataSet: TDataSet);
var
  aQuery:TAdoQuery;
begin
  if not EdiAdd then begin
  table_before_post(t_op_seae,'ί<>е<EFBFBD>λ');
  table_before_post(t_op_seae,'<27><><EFBFBD><EFBFBD>Ա');
  table_before_post(t_op_seae,'<27>ͷ<EFBFBD>Ա');
  table_before_post(t_op_seae,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  table_before_post(t_op_seae,'װ<>˷<EFBFBD>ʽ');
  table_before_post(t_op_seae,'װ<><D7B0><EFBFBD><EFBFBD>');
//  table_before_post(t_op_seae,'ж<><D0B6><EFBFBD><EFBFBD>');
//  table_before_post(t_op_seae,'ҵ<><D2B5><EFBFBD><EFBFBD>Դ');
  if pos('ָ<><D6B8>',t_op_seae.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD>Դ').AsString)>0 then begin
  end else begin
//    table_before_post(t_op_seae,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
//    table_before_post(t_op_seae,'<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>');
  end;
  table_before_post(t_op_seae,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
 end;

 if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>Զ<EFBFBD>ȡ<EFBFBD><C8A1>' then
   if t_op_seae.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull or (trim(t_op_seae['ί<>б<EFBFBD><D0B1><EFBFBD>'])='') then
      if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>ڹ<EFBFBD><DAB9><EFBFBD>').Asstring)='<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>' then
        t_op_seae['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(1,subComp,department,employee,t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>'])
      else
        t_op_seae['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(1,subComp,department,employee,t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);

  if not EdiAdd then begin

  op_empty('t_op_seae',t_op_seae);

{
  if t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>¶<EFBFBD>').asstring='' then
    showmessage('<27><>Ʊҵ<C6B1><D2B5><EFBFBD>¶<EFBFBD>Ϊ<EFBFBD>գ<EFBFBD><D5A3><EFBFBD>');
 }
  if t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').oldvalue<>t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
  if (t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>'<27><><EFBFBD>ĵ<EFBFBD>') and (Logininfo.endday>=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime) then begin
     showmessage('<27>˿<EFBFBD><CBBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC><EFBFBD><EFBFBD><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>ҵ<EFBFBD>񣡣<EFBFBD>');
     abort;
  end;


{
  if t_op_seae.fieldbyname('<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>').asstring<>''then
  begin
    if t_op_seae.fieldbyname('<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>').asdatetime>t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
    begin
      showmessage('<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD>ڲ<EFBFBD><DAB2>ܴ<EFBFBD><DCB4>ڿ<EFBFBD><DABF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD>');
      abort;
    end;
  end;
  }
  if t_op_seae.fieldbyname('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>''then
  begin
    if t_op_seae.fieldbyname('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime<t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
    begin
      showmessage('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD>ڱ<EFBFBD><DAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڿ<EFBFBD><DABF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD>');
      abort;
    end;
  end;
  if t_op_seae.fieldbyname('<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>''then
  begin
    if t_op_seae.fieldbyname('<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime<t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
    begin
      showmessage('<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڱ<EFBFBD><DAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڿ<EFBFBD><DABF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD>');
      abort;
    end;
  end;

  if t_op_seae.FieldByName('ί<>е<EFBFBD>λ').OldValue<>t_op_seae.FieldByName('ί<>е<EFBFBD>λ').asstring then
  begin
    if frm_data_share.t_crm_client_all.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',t_op_seae.FieldByName('ί<>е<EFBFBD>λ').asstring,[])then
    begin
      if frm_data_share.t_crm_client_all.fieldbyname('<27>ͻ<EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>ͻ<EFBFBD>'then
      begin
        showmessage('<27><>ǰҵ<C7B0><D2B5>ί<EFBFBD>е<EFBFBD>λ<EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>棬<EFBFBD><E6A3AC><EFBFBD><EFBFBD><EFBFBD>ٽ<EFBFBD><D9BD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>лָ<D0BB><D6B8>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
        abort;
      end;
    end;
  end;
  end;

  if t_op_seae.State=dsinsert then
  begin
    if t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring=''then
    begin
      t_op_seae['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=get_no(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime,getbsno(Logininfo.SeaExpBsNo,'SE'));
      t_op_seae['<27><><EFBFBD><EFBFBD>']:=get_id;
    end;
    t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
    t_op_seae['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
    t_op_seae['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
  end
  else
  begin
    if not EdiAdd then begin
      if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD><EFBFBD>' then
      begin
//        if (Trim(t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)<>'<27><><EFBFBD>ĵ<EFBFBD>') then
//          table_before_post(t_op_seae,'<27><>װ<EFBFBD><D7B0>');
      end;
    end;
  end;
  t_op_seae['Ӣ<>Ĵ<EFBFBD><C4B4><EFBFBD>']:=date_eng(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime);

  if strtobool(get_parameters_value(31,'false')) then
  begin
    if (trim(t_op_seae.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring)='') or (Trim(t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>') or (t_op_seae.fieldbyname('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ') then
    begin
      t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
    end
    else
    begin
      t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=Logininfo.subcompcode+t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>'];
    end;
  end
  else
  begin
    t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
  end;

  if strtobool(get_parameters_value(32,'false')) then
  begin
    if (trim(t_op_seae.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring)='') or (Trim(t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>')  then
    begin
      t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
    end
    else
    begin
      t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=Logininfo.subcompcode+t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>'];
    end;
  end
  else
  begin
    t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
  end;

  if strtobool(get_parameters_value(33,'false')) then
  begin
    if (trim(t_op_seae.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').asstring)='') or (t_op_seae.fieldbyname('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ') or (Trim(t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>')  then
    begin
      t_op_seae['ί<>б<EFBFBD>׼']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
    end
    else
    begin
      t_op_seae['ί<>б<EFBFBD>׼']:=t_op_seae['ί<>б<EFBFBD><D0B1><EFBFBD>'];
    end;
  end
  else
  begin
    t_op_seae['ί<>б<EFBFBD>׼']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
  end;

end;

procedure Tfrm_op_seae_bl.FormShow(Sender: TObject);
var
  inifile1,seabandini:Tinifile;
  i,j,n:integer;
  sl:TStrings;
begin
  if not ASSIGNED(frm_sys_progress) then
    frm_sys_progress:=tfrm_sys_progress.Create(self);
  frm_sys_progress.bsSkinGauge1.ProgressText:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ⱥ򡣡<C8BA><F2A1A3A1><EFBFBD>';
  frm_sys_progress.Show;
  frm_sys_progress.bsSkinGauge1.MaxValue:=35;
  frm_sys_progress.bsSkinGauge1.MinValue:=0;
  frm_sys_progress.bsSkinGauge1.Value:=0;
  frm_sys_progress.Update;
  frm_op_seae_list_type:=1;
  Label37.Caption:=Logininfo.seaewtno;
  dxDBGrid1Column8.Caption:=Logininfo.seaewtno;
{
  if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>Զ<EFBFBD>ȡ<EFBFBD><C8A1>' then begin
    DBEdit8.Width:=119;
    bsSkinSpeedButton1.Visible:=false;
    if frm_data_share.t_sys_noset.fieldbyname('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD><D6B6>༭').AsBoolean then begin
      DBEdit8.ReadOnly:=false;
    end else begin
      DBEdit8.ReadOnly:=true;
    end;
  end else if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>ֶ<EFBFBD>ȡ<EFBFBD><C8A1>' then begin
    DBEdit8.Width:=99;
    bsSkinSpeedButton1.Visible:=true;
    if frm_data_share.t_sys_noset.fieldbyname('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD><D6B6>༭').AsBoolean then begin
      DBEdit8.ReadOnly:=false;
    end else begin
      DBEdit8.ReadOnly:=true;
    end;
  end else if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>ֶ<EFBFBD><D6B6>༭' then begin
    DBEdit8.ReadOnly:=false;
    DBEdit8.Width:=119;
    bsSkinSpeedButton1.Visible:=false;
  end;
  }
//  t_op_msg.close;
  t_op_seae_fen.close;
//  t_op_seae_huanhuo.close;
  t_op_seae.Close;
  t_op_seae.SQL.clear;
  if strtobool(get_parameters_value(132,'true')) then begin
//     t_op_seae.SQL.Add('select top 100 * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and װ<>˷<EFBFBD>ʽ<>''<27><><EFBFBD><EFBFBD>'' and '
     t_op_seae.SQL.Add('select top 100 * from t_op_seae where װ<>˷<EFBFBD>ʽ<>''<27><>Ʊ<EFBFBD><C6B1>ϸ'' and '
                   +'(¼<><C2BC><EFBFBD><EFBFBD>='+''''+employee+''''+' or <20><><EFBFBD><EFBFBD>Ա='+''''+employee+''''
                   +' or <20>ͷ<EFBFBD>Ա='+''''+employee+''''+')'
                   +' order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> DESC,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>');
   end else begin
//      t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and װ<>˷<EFBFBD>ʽ<>''<27><><EFBFBD><EFBFBD>'' and '
      t_op_seae.SQL.Add('select * from t_op_seae where װ<>˷<EFBFBD>ʽ<>''<27><>Ʊ<EFBFBD><C6B1>ϸ'' and '
                   +' SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7)='''+FormatDateTime('YYYY',Date)+'/'+FormatDateTime('MM',Date)+''' and '
                   +open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
                   +' order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> DESC,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>');

  end;
  t_op_seae.open;
  psqlstr:='';
  prnlist:=false;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  t_op_seae_fen.open;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_code_tiaokuan.open;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
{
  fra_op_card1.t_op_card.DataSource:=t_op_seae2;
  fra_op_card1.t_op_card.open;
  }
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  loadreggrid(dxdbgrid1,true,caption);
  loadreggrid(dxdbgrid2,false,caption+'1');
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_op_seae_bl.wwDBComboBox2Change(Sender);
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_op_seae_bl_create:=true;
  frm_data_share.t_sys_employee.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_crm_client.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_crm_client_ship.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_crm_client_changzhan.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
//  frm_data_share.t_crm_client_truck.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
//  frm_data_share.t_crm_client_baoguan.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_crm_client_weituo.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_crm_client_daili.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
//  frm_data_share.t_crm_client_huodai.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_crm_client_shiper.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_crm_client_shouhuo.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_crm_client_tongzhi.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_crm_client_other.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_code_code.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_code_vessel.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_code_loaport.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_code_disport.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_code_items.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_code_free.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_code_signbill.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_code_goods.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_code_package.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_code_fee.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_code_currency.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_code_trade.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
//  frm_data_share.t_code_card.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_code_source.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  bsSkinTabSheet2.TabVisible:= if_open('293') or if_open('294');

  inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'data.ini');
  bsSkinPanel9.Visible:=inifile1.Readbool('other','qdisp',false);


  if bsSkinPanel9.Visible then begin
    bsSkinPanel9.Visible:=true;
    bsSkinButton13.Top:=3+bsSkinPanel9.Height;
    bsSkinButton15.Top:=3+bsSkinPanel9.Height;
  end;
  inifile1.free;

  seabandini:=Tinifile.Create(ExtractFilePath(application.ExeName)+'bandno.ini');
  sl:=TStringList.Create;
  try
    seabandini.ReadSection('seaexp',sl);
    for j:=0 to sl.Count-1 do begin
      n:=seabandini.Readinteger('seaexp',sl[j],0);
      for i:=0 to bsSkinPageControl1.PageCount-1 do begin
        if bsSkinPageControl1.Pages[i].Name=sl[j] then begin
          bsSkinPageControl1.Pages[i].PageIndex:=n;
        end;
      end;
    end;

  finally
    freeandnil(seabandini);
    freeandnil(sl);
  end;


  {$IFDEF ZTGENGZONG}
    if not if_reg(195) then begin
      bsSkinTabSheet7.TabVisible:=false;
      N42.Visible:=false;
      bsSkinButton15.Visible:=false;
    end;
  {$ELSE}
    bsSkinTabSheet7.TabVisible:=false;
    N42.Visible:=false;
    bsSkinButton15.Visible:=false;
 {$ENDIF}


  assup:=false;


  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_sys_progress.close;
  frm_sys_progress:=nil;
end;

procedure Tfrm_op_seae_bl.t_op_seae_fenBeforePost(DataSet: TDataSet);
begin

  table_before_post(t_op_seae_fen,'ί<>е<EFBFBD>λ');
  table_before_post(t_op_seae_fen,'<27><><EFBFBD><EFBFBD>Ա');
  table_before_post(t_op_seae_fen,'<27>ͷ<EFBFBD>Ա');
  table_before_post(t_op_seae_fen,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  table_before_post(t_op_seae_fen,'װ<><D7B0><EFBFBD><EFBFBD>');
  table_before_post(t_op_seae_fen,'ж<><D0B6><EFBFBD><EFBFBD>');
  table_before_post(t_op_seae_fen,'ҵ<><D2B5><EFBFBD><EFBFBD>Դ');
  if pos('ָ<><D6B8>',t_op_seae_fen.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD>Դ').AsString)>0 then begin
  end else begin
    table_before_post(t_op_seae_fen,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
    table_before_post(t_op_seae_fen,'<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>');
  end;

  table_before_post(t_op_seae_fen,'<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>');
  table_before_post(t_op_seae_fen,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');

 if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>Զ<EFBFBD>ȡ<EFBFBD><C8A1>' then
   if t_op_seae_fen['ί<>б<EFBFBD><D0B1><EFBFBD>']='' then
     if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>ڹ<EFBFBD><DAB9><EFBFBD>').Asstring)='<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>' then
       t_op_seae_fen['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(1,subComp,department,employee,t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>'])
     else
       t_op_seae_fen['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(1,subComp,department,employee,t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);


  op_empty('t_op_seae',t_op_seae_fen);


  if t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').oldvalue<>t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
  if (t_op_seae_fen.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>'<27><><EFBFBD>ĵ<EFBFBD>') and (Logininfo.endday>=t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime) then begin
     showmessage('<27>˿<EFBFBD><CBBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC><EFBFBD><EFBFBD><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>ҵ<EFBFBD>񣡣<EFBFBD>');
     abort;
  end;


  if t_op_seae_fen.fieldbyname('<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>').asstring<>''then
  begin
    if t_op_seae_fen.fieldbyname('<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>').asdatetime>t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
    begin
      showmessage('<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD>ڲ<EFBFBD><DAB2>ܴ<EFBFBD><DCB4>ڿ<EFBFBD><DABF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD>');
      abort;
    end;
  end;
  if t_op_seae_fen.fieldbyname('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>''then
  begin
    if t_op_seae_fen.fieldbyname('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime<t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
    begin
      showmessage('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD>ڱ<EFBFBD><DAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڿ<EFBFBD><DABF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD>');
      abort;
    end;
  end;
  if t_op_seae_fen.fieldbyname('<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>''then
  begin
    if t_op_seae_fen.fieldbyname('<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime<t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
    begin
      showmessage('<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڱ<EFBFBD><DAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڿ<EFBFBD><DABF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD>');
      abort;
    end;
  end;

  if t_op_seae_fen.FieldByName('ί<>е<EFBFBD>λ').OldValue<>t_op_seae_fen.FieldByName('ί<>е<EFBFBD>λ').asstring then
  begin
    if frm_data_share.t_crm_client_all.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',t_op_seae_fen.FieldByName('ί<>е<EFBFBD>λ').asstring,[])then
    begin
      if frm_data_share.t_crm_client_all.fieldbyname('<27>ͻ<EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>ͻ<EFBFBD>'then
      begin
        showmessage('<27><>ǰҵ<C7B0><D2B5>ί<EFBFBD>е<EFBFBD>λ<EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>棬<EFBFBD><E6A3AC><EFBFBD><EFBFBD><EFBFBD>ٽ<EFBFBD><D9BD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>лָ<D0BB><D6B8>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
        abort;
      end;
    end;
  end;

  if t_op_seae_fen.State=dsinsert then
  begin
    if t_op_seae_fen.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring=''then
    begin
      t_op_seae_fen['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=get_no(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime,getbsno(Logininfo.SeaExpBsNo,'SE'));
      t_op_seae_fen['<27><><EFBFBD><EFBFBD>']:=get_id;
    end;
    t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
    t_op_seae_fen['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
    t_op_seae_fen['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
  end;
  t_op_seae_fen['Ӣ<>Ĵ<EFBFBD><C4B4><EFBFBD>']:=date_eng(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime);

  if strtobool(get_parameters_value(31,'false')) then
  begin
    if (trim(t_op_seae_fen.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring)='') or (t_op_seae_fen.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ĵ<EFBFBD>') then
    begin
      t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
    end
    else
    begin
      t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=Logininfo.subcompcode+t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>'];
    end;
  end
  else
  begin
    t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
  end;

  if strtobool(get_parameters_value(32,'false')) then
  begin
    if (trim(t_op_seae_fen.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring)='') or (t_op_seae_fen.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ĵ<EFBFBD>') then
    begin
      t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
    end
    else
    begin
      t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=Logininfo.subcompcode+t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>'];
    end;
  end
  else
  begin
    t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
  end;
  if strtobool(get_parameters_value(33,'false')) then
  begin
    if (trim(t_op_seae_fen.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').asstring)='') or (t_op_seae_fen.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ĵ<EFBFBD>') then
    begin
      t_op_seae_fen['ί<>б<EFBFBD>׼']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
    end
    else
    begin
      t_op_seae_fen['ί<>б<EFBFBD>׼']:=t_op_seae_fen['ί<>б<EFBFBD><D0B1><EFBFBD>'];
    end;
  end
  else
  begin
    t_op_seae_fen['ί<>б<EFBFBD>׼']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
  end;

end;

procedure Tfrm_op_seae_bl.bsSkinButton7Click(Sender: TObject);
begin
    if t_op_seae2.DataSet=nil then
      exit;
    if not t_op_seae2.DataSet.Bof then
      t_op_seae2.DataSet.Prior;
end;

procedure Tfrm_op_seae_bl.bsSkinButton6Click(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if not t_op_seae2.DataSet.eof then
    t_op_seae2.DataSet.next;
end;

procedure Tfrm_op_seae_bl.wwDBComboBox2Change(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
   if (wwDBComboBox2.text='<27><>Ʊ<EFBFBD><C6B1>ϸ') or (wwDBComboBox2.text='<27><>Ʊ<EFBFBD><C6B1>Ʊ') then
     bsSkinTabSheet2.TabVisible:=false
    else
     bsSkinTabSheet2.TabVisible:=true;
  if (wwDBComboBox2.text='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ') or (wwDBComboBox2.text='<27><>Ʊ<EFBFBD><C6B1>Ʊ') or (wwDBComboBox2.text='<27><>Ʊ<EFBFBD><C6B1>Ʊ') then
  begin
    Label14.Caption:='<27>ֵ<EFBFBD><D6B5>б<EFBFBD>';
    DBMemo2.DataField:='<27>ֵ<EFBFBD><D6B5>б<EFBFBD>';
    bsSkinButton37.Visible:=true;
    wwDBLookupCombo11.Visible:=false;

    bsSkinPageControl2.Visible:=true;
    bsSkinButton12.Visible:=true;
//    bsSkinButton14.Visible:=true;

    RxDBLookupCombo2.Visible:=false;
    RxDBLookupCombo3.Visible:=false;
    RxDBLookupCombo4.Visible:=false;
    RxDBLookupCombo5.Visible:=false;
    DBMemo33.Visible:=false;
    DBMemo34.Visible:=false;
    DBMemo35.Visible:=false;
    DBMemo1.Visible:=false;
    wwDBLookupCombo46.Visible:=false;
    wwDBLookupCombo47.Visible:=false;
    wwDBLookupCombo48.Visible:=false;
    wwDBLookupCombo7.Visible:=false;
    if strtobool(get_parameters_value(131,'false')) then begin
    end else begin
      DBEdit7.Color:=clBtnFace;
      DBEdit7.ReadOnly:=true;
    end;
  end
  else
  begin
    Label14.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
    DBMemo2.DataField:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
    bsSkinButton37.Visible:=false;
//    wwDBLookupCombo11.Visible:=true;

    bsSkinPageControl2.Visible:=false;
    bsSkinButton12.Visible:=false;
    bsSkinButton14.Visible:=false;

    RxDBLookupCombo2.Visible:=true;
    RxDBLookupCombo3.Visible:=true;
    RxDBLookupCombo4.Visible:=true;
    RxDBLookupCombo5.Visible:=true;
    DBMemo33.Visible:=true;
    DBMemo34.Visible:=true;
    DBMemo35.Visible:=true;
    DBMemo1.Visible:=true;
    wwDBLookupCombo46.Visible:=true;
    wwDBLookupCombo47.Visible:=true;
    wwDBLookupCombo48.Visible:=true;
    wwDBLookupCombo7.Visible:=true;
    DBEdit7.Color:=clWindow;
    DBEdit7.ReadOnly:=false;

  end;
end;

procedure Tfrm_op_seae_bl.bsSkinButton11Click(Sender: TObject);
var
  answer:TModalResult;
begin
  if bsSkinButton11.Caption='<27>༭<EFBFBD>޸<EFBFBD>' then
  begin
    bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
    Notebook1.PageIndex:=1;
    exit;
  end;
  if bsSkinButton11.Caption='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>' then
  begin
    if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
    BEGIN
      answer:=messagedlg( '<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE>޸ģ<DEB8><C4A3>Ƿ񱣴棿',mtWarning,mbYesNoCancel,0);
      if answer=mrYes then
      begin
        t_op_seae.post;
      end;
      if answer=mrNo then
      begin
        t_op_seae.cancel;
      end;
      if answer=mrCancel then
      begin
        exit;
      end;
    END;
    bsSkinButton11.Caption:='<27>༭<EFBFBD>޸<EFBFBD>';
    Notebook1.PageIndex:=0;
    exit;
  end;
  if bsSkinButton11.Caption='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ' then
  begin
    if (t_op_seae_fen.State=dsinsert)or(t_op_seae_fen.State=dsedit) then
    BEGIN
      answer:=messagedlg( '<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE>޸ģ<DEB8><C4A3>Ƿ񱣴棿',mtWarning,mbYesNoCancel,0);
      if answer=mrYes then
      begin
        t_op_seae_fen.post;
      end;
      if answer=mrNo then
      begin
        t_op_seae_fen.cancel;
      end;
      if answer=mrCancel then
      begin
        exit;
      end;
    END;
    bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
    try
      t_op_seae2.Enabled:=false;
      t_op_seae2.DataSet:=t_op_seae;
    finally
      t_op_seae2.Enabled:=true;
    end;
    Notebook1.PageIndex:=1;
    exit;
  end;
end;

procedure Tfrm_op_seae_bl.bsSkinButton33Click(Sender: TObject);
begin
  bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ';
  try
    t_op_seae2.Enabled:=false;
    t_op_seae2.DataSet:=t_op_seae_fen;
  finally
    t_op_seae2.Enabled:=true;
  end;
end;

procedure Tfrm_op_seae_bl.bsSkinButton2Click(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then
    t_op_seae2.DataSet.post;


end;

procedure Tfrm_op_seae_bl.bsSkinButton3Click(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then
    t_op_seae2.DataSet.cancel;
end;

procedure Tfrm_op_seae_bl.bsSkinButton4Click(Sender: TObject);
var
  answer:TModalResult;
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if t_op_seae2.DataSet.IsEmpty then
    exit;


  t_ch_fee.close;
  t_ch_fee.Parameters[0].value:=t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
  t_ch_fee.open;
  if not t_ch_fee.IsEmpty then
  begin
    application.MessageBox('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD>ڷ<EFBFBD><DAB7>ò<EFBFBD><C3B2><EFBFBD>ֱ<EFBFBD><D6B1>ɾ<EFBFBD><C9BE>!','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL);
    t_ch_fee.close;
    exit;
  end;
  if (t_op_seae2.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ') or (t_op_seae2.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><>Ʊ<EFBFBD><C6B1>Ʊ') or (t_op_seae2.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><>Ʊ<EFBFBD><C6B1>Ʊ') then
  begin
    if not t_op_seae_fen.IsEmpty then
    begin
      showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD>ƴ<EFBFBD><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD>ڷ<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
      exit;
    end;
  end;
  if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then begin
    t_op_seae2.DataSet.delete;
  end;
end;

procedure Tfrm_op_seae_bl.bsSkinButton36Click(Sender: TObject);
begin
  if (t_op_seae_fen.State=dsinsert)or(t_op_seae_fen.State=dsedit) then
    t_op_seae_fen.post;
end;

procedure Tfrm_op_seae_bl.t_op_seaeBeforeDelete(DataSet: TDataSet);
begin
  op_befor_post(t_op_seae,'0001');
  delete_add(1,t_op_seae);
  if not t_op_seae.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull then
  delwtno(t_op_seae['ί<>б<EFBFBD><D0B1><EFBFBD>']);
end;

procedure Tfrm_op_seae_bl.t_op_seae_fenBeforeDelete(DataSet: TDataSet);
begin
  op_befor_post(t_op_seae_fen,'0001');
  delete_add(1,t_op_seae_fen);
  if not t_op_seae_fen.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull then
  delwtno(t_op_seae_fen['ί<>б<EFBFBD><D0B1><EFBFBD>']);
end;

procedure Tfrm_op_seae_bl.bsSkinButton8Click(Sender: TObject);
var
  Pnt:Tpoint;
begin
  Pnt:=bsSkinButton8.ClientToScreen(Point(0,bsSkinButton8.Height));
  PopupMenu1.Popup(Pnt.x,Pnt.y);
end;

procedure Tfrm_op_seae_bl.bsSkinButton9Click(Sender: TObject);
begin
  sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3>ڵ<EFBFBD>֤',2,t_op_seae2,nil,nil,nil,t_op_seae_fen1,t_op_ctn1,nil,nil,nil,nil,nil);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo2Change(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit)then
  begin
    if RxDBLookupCombo2.DisplayValue<>'' then
      t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_shiper.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
  end;
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo3Change(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit)then
  begin
    if RxDBLookupCombo3.DisplayValue<>'' then
      t_op_seae2.DataSet['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_shouhuo.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
  end;
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo4Change(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit)then
  begin
    if RxDBLookupCombo4.DisplayValue<>'' then
      t_op_seae2.DataSet['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_tongzhi.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
  end;
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo16Change(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit)then
  begin
    if RxDBLookupCombo16.DisplayValue<>'' then
      t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_shiper.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
  end;
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo17Change(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit)then
  begin
    if RxDBLookupCombo17.DisplayValue<>'' then
      t_op_seae2.DataSet['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_shouhuo.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
  end;
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo18Change(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit)then
  begin
    if RxDBLookupCombo17.DisplayValue<>'' then
      t_op_seae2.DataSet['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_tongzhi.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
  end;
end;

procedure Tfrm_op_seae_bl.bsSkinButton26Click(Sender: TObject);
begin
  frm_main.view_momo(t_op_seae2,'<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>');
end;

procedure Tfrm_op_seae_bl.bsSkinButton25Click(Sender: TObject);
begin
  frm_main.view_momo(t_op_seae2,'<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>');
end;

procedure Tfrm_op_seae_bl.bsSkinButton24Click(Sender: TObject);
begin
  frm_main.view_momo(t_op_seae2,'֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>');
end;

procedure Tfrm_op_seae_bl.bsSkinButton23Click(Sender: TObject);
begin
  frm_main.view_momo(t_op_seae2,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;

procedure Tfrm_op_seae_bl.bsSkinButton21Click(Sender: TObject);
begin
  frm_main.view_momo(t_op_seae2,'<27><>ͷ');
end;

procedure Tfrm_op_seae_bl.bsSkinButton22Click(Sender: TObject);
begin
  t_op_ctn.insert;
end;

procedure Tfrm_op_seae_bl.bsSkinButton16Click(Sender: TObject);
begin
  frm_main.view_momo(t_op_seae2,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;

procedure Tfrm_op_seae_bl.bsSkinButton17Click(Sender: TObject);
begin
  frm_main.view_momo(t_op_seae2,DBMemo2.DataField);
end;

procedure Tfrm_op_seae_bl.bsSkinButton18Click(Sender: TObject);
begin
  frm_main.view_momo(t_op_seae2,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ');
end;

procedure Tfrm_op_seae_bl.bsSkinButton19Click(Sender: TObject);
begin
  frm_main.view_momo(t_op_seae2,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;

procedure Tfrm_op_seae_bl.bsSkinButton20Click(Sender: TObject);
begin
  frm_main.view_momo(t_op_seae2,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;

procedure Tfrm_op_seae_bl.DBMemo40Change(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then
  begin
    t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>']:=total_num(DBMemo40);
    t_op_seae2.DataSet['<27><>װ']:=total_package(dbmemo40);
    t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']
          :='SAY:'+ntoc(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').asfloat,true)
           +t_op_seae2.DataSet.FieldByName('<27><>װ').asstring+' ONLY.';
  end;
end;

procedure Tfrm_op_seae_bl.DBMemo41Change(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then
  begin
    t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>']:=total_num(DBMemo41);
  end;
end;

procedure Tfrm_op_seae_bl.DBMemo42Change(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then
  begin
    t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>']:=total_num(DBMemo42);
  end;
end;

procedure Tfrm_op_seae_bl.DBMemo41Exit(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then
  begin
    kgs_cbm(DBMemo41,'KGS');
    t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=DBMemo41.text;
  end;
end;

procedure Tfrm_op_seae_bl.DBMemo42Exit(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then
  begin
    kgs_cbm(DBMemo42,'CBM');
    t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=DBMemo42.text;
  end;
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo61Change(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then
  begin
    t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']
          :='SAY:'+ntoc(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').asfloat,true)
           +wwDBLookupCombo61.text+' ONLY.';
  end;
end;

procedure Tfrm_op_seae_bl.bsSkinButton37Click(Sender: TObject);
var
  if_first:boolean;
  max,j:integer;
begin
  if t_op_seae.FieldByName('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
  begin
    showmessage('<27><>ǰƴ<C7B0><C6B4><EFBFBD><EFBFBD>Ʊҵ<C6B1><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ɣ<EFBFBD><C9A3><EFBFBD><EFBFBD>ܼ<EFBFBD><DCBC>룡<EFBFBD><EBA3A1>');
    exit;
  end;

  if not t_op_seae_fen.IsEmpty then
  begin
    t_op_seae.Edit;
    t_op_seae_fen.First;
    if_first:=true;
    while not t_op_seae_fen.eof do
    begin
      if if_first then
      begin
        DBMemo2.text:=t_op_seae_fen.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring;
        DBMemo39.text:=t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
        DBMemo40.text:=t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ').asstring;
        DBMemo41.text:=t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
        DBMemo42.text:=t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
        if_first:=false;
      end
      else
      begin
        max:=DBMemo2.Lines.Count;
        if DBMemo39.Lines.Count>max then max:=DBMemo39.Lines.Count;
        if DBMemo40.Lines.Count>max then max:=DBMemo40.Lines.Count;
        if DBMemo41.Lines.Count>max then max:=DBMemo41.Lines.Count;
        if DBMemo42.Lines.Count>max then max:=DBMemo42.Lines.Count;

        if max=DBMemo2.Lines.Count then
        begin
          DBMemo2.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring);
        end
        else
        begin
          for j:=1 to (max-DBMemo2.Lines.Count) do
          begin
            DBMemo2.Lines.Add(' ');
          end;
          DBMemo2.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring);
        end;

        if max=DBMemo39.Lines.Count then
        begin
          DBMemo39.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
        end
        else
        begin
          for j:=1 to (max-DBMemo39.Lines.Count) do
          begin
            DBMemo39.Lines.Add(' ');
          end;
          DBMemo39.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
        end;

        if max=DBMemo40.Lines.Count then
        begin
          DBMemo40.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ').asstring);
        end
        else
        begin
          for j:=1 to (max-DBMemo40.Lines.Count) do
          begin
            DBMemo40.Lines.Add(' ');
          end;
          DBMemo40.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ').asstring);
        end;

        if max=DBMemo41.Lines.Count then
        begin
          DBMemo41.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
        end
        else
        begin
          for j:=1 to (max-DBMemo41.Lines.Count) do
          begin
            DBMemo41.Lines.Add(' ');
          end;
          DBMemo41.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
        end;

        if max=DBMemo42.Lines.Count then
        begin
          DBMemo42.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
        end
        else
        begin
          for j:=1 to (max-DBMemo42.Lines.Count) do
          begin
            DBMemo42.Lines.Add(' ');
          end;
          DBMemo42.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
        end;
      end;
      t_op_seae_fen.next;
    end;
    t_op_seae['<27><>װ']:='PACKAGES';
    t_op_seae.post;
  end;
end;

procedure Tfrm_op_seae_bl.DBEdit5Click(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if (t_op_seae2.DataSet.State=dsinsert)then
    t_op_seae2.DataSet.post;
  if t_op_seae2.DataSet.IsEmpty then
    exit;
{
  if (t_op_seae2.DataSet.fieldbyname('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ')
  or (t_op_seae2.DataSet.fieldbyname('װ<>˷<EFBFBD>ʽ').asstring='ƴ<>䵥Ʊ')then
    exit;
 }
  try
    frm_op_ctn:=tfrm_op_ctn.Create (self);
    frm_op_ctn.t_op_ctn.DataSource:=t_op_seae2;
    frm_op_ctn_type:=true;
    op_ctn_limited:='0001';
    frm_op_ctn.ShowModal;
  finally
    frm_op_ctn.Free;
    if t_op_ctn.Active then
      t_op_ctn.Requery;
  end;
end;

procedure Tfrm_op_seae_bl.bsSkinPageControl1Change(Sender: TObject);
begin
  if frm_op_seae_bl_create=false then
    exit;
  if bsSkinPageControl1.ActivePage=TabCtn then
  begin
    if not t_op_ctn.Active then t_op_ctn.open;
    Exit;
  end else begin
    if t_op_ctn.State in [dsedit,dsinsert] then t_op_ctn.Post;
   end;

{
  if bsSkinPageControl1.ActivePage=bsSkinTabSheet8 then
  begin
    if not t_op_ams.Active then t_op_ams.open;
  end else begin
    if t_op_ams.State in [dsedit,dsinsert] then t_op_ams.Post;
   end;
 }
  if t_op_seae2.DataSet.state in [dsedit,dsinsert] then t_op_seae2.DataSet.post;

  if bsSkinPageControl1.ActivePage=bsSkinTabSheet4 then
  begin
    if not assigned(frm_op_letter) then
    begin
      frm_op_letter:=tfrm_op_letter.Create (self);
      frm_op_letter.t_op_letter.DataSource:=t_op_seae2;
      frm_op_letter.ManualDock(bsSkinGroupBox1,nil,alClient);
      frm_op_letter.show;
    end;
    exit;
  end;
{
  if bsSkinPageControl1.ActivePage=bsSkinTabSheet3 then
  begin
    bsSkinGroupBox5.CaptionMode:=false;
    bsSkinGroupBox6.CaptionMode:=false;
    bsSkinGroupBox7.CaptionMode:=false;
    bsSkinGroupBox8.CaptionMode:=false;
    exit;
  end;
 }


  if bsSkinPageControl1.ActivePage=bsSkinTabSheet6 then
  begin
    if not assigned(frm_op_seae_assistant) then
    begin
      frm_op_seae_assistant:=tfrm_op_seae_assistant.Create (self);
      frm_op_seae_assistant.t_op_seae_assistant.DataSource:=t_op_seae2;
      frm_op_seae_assistant.ManualDock(bsSkinTabSheet6,nil,alClient);
      frm_op_seae_assistant.show;
    end;
    exit;
  end else begin
    if assigned(frm_op_seae_assistant) then
      if frm_op_seae_assistant.t_op_seae_assistant.State in [dsedit,dsinsert] then frm_op_seae_assistant.t_op_seae_assistant.Post;
  end;


end;

procedure Tfrm_op_seae_bl.N2Click(Sender: TObject);
begin
  if t_op_seae.IsEmpty then
    exit;
  if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD><EFBFBD>' then
    exit;
  if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ'then
  begin
    if not t_op_seae_fen.IsEmpty then
    begin
      showmessage('<27><>ǰƴ<C7B0><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD>䣡<EFBFBD><E4A3A1>');
      exit;
    end;
  end;
  t_op_seae.edit;
  t_op_seae['װ<>˷<EFBFBD>ʽ']:='<27><><EFBFBD><EFBFBD>';
  t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
  t_op_seae.post;
end;

procedure Tfrm_op_seae_bl.N5Click(Sender: TObject);
begin
  if t_op_seae.IsEmpty then
    exit;
  if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD><EFBFBD>' then
    exit;
  if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ'then
  begin
    if not t_op_seae_fen.IsEmpty then
    begin
      showmessage('<27><>ǰƴ<C7B0><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD>أ<EFBFBD><D8A3><EFBFBD>');
      exit;
    end;
  end;
  t_op_seae.edit;
  t_op_seae['װ<>˷<EFBFBD>ʽ']:='<27><><EFBFBD><EFBFBD>';
  t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
  t_op_seae.post;
end;

procedure Tfrm_op_seae_bl.N6Click(Sender: TObject);
begin
  if t_op_seae.IsEmpty then
    exit;
  if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD><EFBFBD>' then
    exit;
  if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ'then
  begin
    if not t_op_seae_fen.IsEmpty then
    begin
      showmessage('<27><>ǰƴ<C7B0><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
      exit;
    end;
  end;
  t_op_seae.edit;
  t_op_seae['װ<>˷<EFBFBD>ʽ']:='<27><><EFBFBD><EFBFBD>';
  t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
  t_op_seae.post;
end;

procedure Tfrm_op_seae_bl.N4Click(Sender: TObject);
begin
  if t_op_seae.IsEmpty then
    exit;
  if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ' then
    exit;
  t_op_seae.edit;
  t_op_seae['װ<>˷<EFBFBD>ʽ']:='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ';
  t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
  t_op_seae.post;
end;

procedure Tfrm_op_seae_bl.N24Click(Sender: TObject);
var
  aQuery:TAdoQuery;
begin
  if t_op_seae.IsEmpty then
    exit;
  if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ' then
    exit;
  if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ'then
  begin
    if not t_op_seae_fen.IsEmpty then
    begin
      showmessage('<27><>ǰƴ<C7B0><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊƴ<CEAA><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>');
      exit;
    end;
  end;
  if t_op_seae.FieldByName('<27><>װ<EFBFBD><D7B0>').asstring<>''then
  begin
    if MessageDlg('<27><>Ʊҵ<C6B1><D2B5><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊƴ<CEAA>䵥Ʊ<E4B5A5><C6B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD>',mtWarning,[mbyes,mbno],0)=mrno then
    exit;
    aQuery:=CreateAdoQuery;
    try
      with aQuery do begin
        Close;SQL.Clear;
        SQL.Add('delete from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''');
        ExecSQL;
      end;
    finally
      FreeAndNil(aQuery);
    end;
  end;
  t_op_seae.edit;
  t_op_seae['װ<>˷<EFBFBD>ʽ']:='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ';
  t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
  t_op_seae['<27><>װ<EFBFBD><D7B0>']:='';
  t_op_seae['<27><><EFBFBD><EFBFBD>1']:=0;
  t_op_seae['<27><><EFBFBD><EFBFBD>2']:=0;
  t_op_seae['<27><><EFBFBD><EFBFBD>3']:=0;
  t_op_seae['<27><><EFBFBD><EFBFBD>4']:=0;
  t_op_seae['<27><><EFBFBD><EFBFBD>5']:=0;
  t_op_seae['<27><><EFBFBD><EFBFBD>6']:=0;
  t_op_seae['<27><><EFBFBD><EFBFBD>7']:=0;
  t_op_seae['<27><><EFBFBD><EFBFBD>8']:=0;
  t_op_seae['<27><><EFBFBD><EFBFBD>9']:=0;
  t_op_seae['<27><><EFBFBD><EFBFBD>10']:=0;
  t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
  t_op_seae['<27><>TEU']:=0;
  t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']:='';
  t_op_seae.post;
end;

procedure Tfrm_op_seae_bl.N22Click(Sender: TObject);
var
  aQuery:TAdoQuery;
begin
  if t_op_seae.IsEmpty then
    exit;
  if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<>䵥Ʊ' then
    exit;
  if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ'then
  begin
    if not t_op_seae_fen.IsEmpty then
    begin
      showmessage('<27><>ǰƴ<C7B0><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊƴ<CEAA>䵥Ʊ<E4B5A5><C6B1><EFBFBD><EFBFBD>');
      exit;
    end;
  end;
  if t_op_seae.FieldByName('<27><>װ<EFBFBD><D7B0>').asstring<>''then
  begin
    if MessageDlg('<27><>Ʊҵ<C6B1><D2B5><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊƴ<CEAA>䵥Ʊ<E4B5A5><C6B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD>',mtWarning,[mbyes,mbno],0)=mrno then
    exit;
    aQuery:=CreateAdoQuery;
    try
      with aQuery do begin
        Close;SQL.Clear;
        SQL.Add('delete from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''');
        ExecSQL;
      end;
    finally
      FreeAndNil(aQuery);
    end;
  end;
  t_op_seae.edit;
  t_op_seae['װ<>˷<EFBFBD>ʽ']:='ƴ<>䵥Ʊ';
  t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
  t_op_seae['<27><>װ<EFBFBD><D7B0>']:='';
  t_op_seae['<27><><EFBFBD><EFBFBD>1']:=0;
  t_op_seae['<27><><EFBFBD><EFBFBD>2']:=0;
  t_op_seae['<27><><EFBFBD><EFBFBD>3']:=0;
  t_op_seae['<27><><EFBFBD><EFBFBD>4']:=0;
  t_op_seae['<27><><EFBFBD><EFBFBD>5']:=0;
  t_op_seae['<27><><EFBFBD><EFBFBD>6']:=0;
  t_op_seae['<27><><EFBFBD><EFBFBD>7']:=0;
  t_op_seae['<27><><EFBFBD><EFBFBD>8']:=0;
  t_op_seae['<27><><EFBFBD><EFBFBD>9']:=0;
  t_op_seae['<27><><EFBFBD><EFBFBD>10']:=0;
  t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
  t_op_seae['<27><>TEU']:=0;
  t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']:='';
  t_op_seae.post;
end;

procedure Tfrm_op_seae_bl.N27Click(Sender: TObject);
begin
  if t_op_seae_fen.IsEmpty then
    exit;

  t_op_seae_fen.edit;
  t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
  t_op_seae_fen['װ<>˷<EFBFBD>ʽ']:='ƴ<>䵥Ʊ';
  t_op_seae_fen.post;
  t_op_seae_fen.Requery();
end;

procedure Tfrm_op_seae_bl.N29Click(Sender: TObject);
begin
  if t_op_seae_fen.IsEmpty then
    exit;

  t_op_seae_fen.edit;
  t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
  t_op_seae_fen.post;
  t_op_seae_fen.Requery();
end;

procedure Tfrm_op_seae_bl.N9Click(Sender: TObject);
begin
  if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
    t_op_seae.post;
  try
    frm_op_add_ctn:=tfrm_op_add_ctn.Create (self);
    frm_op_add_ctn.ShowModal;
  finally
    frm_op_add_ctn.Free;
  end;
end;

procedure Tfrm_op_seae_bl.bsSkinButton34Click(Sender: TObject);
var
  Pnt:Tpoint;
begin
  Pnt:=bsSkinButton34.ClientToScreen(Point(0,bsSkinButton34.Height));
  PopupMenu4.Popup(Pnt.x,Pnt.y);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo19Change(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if (t_op_seae2.DataSet.state=dsinsert)or(t_op_seae2.DataSet.state=dsedit)then
  begin
//    if RxDBLookupCombo19.DisplayValue<>'' then
//      exit;
//    if trim(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)=''then
      t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client_daili['<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>'];
  end;
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo11Change(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if (t_op_seae2.DataSet.state=dsinsert)or(t_op_seae2.DataSet.state=dsedit)then
  begin
    if RxDBLookupCombo11.DisplayValue='' then
      exit;
        t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring:=t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring+#13#10+frm_data_share.t_code_goods['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
//    if trim(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)=''then
//     DBMemo39.Lines.Append(frm_data_share.t_code_goods['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
//     TMemoField(t_op_seae2.Fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')).
//     :=frm_data_share.t_code_goods['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
  end;
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo5Change(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if (t_op_seae2.DataSet.state=dsinsert)or(t_op_seae2.DataSet.state=dsedit)then
  begin
    if RxDBLookupCombo5.DisplayValue='' then
      exit;
//    if trim(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)=''then
      t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client_daili['<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>'];
  end;
end;

procedure Tfrm_op_seae_bl.bsSkinButton10Click(Sender: TObject);
begin
  query_seae(1,'0001');
end;

procedure Tfrm_op_seae_bl.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_seae_bl.dxDBGrid2Column3CustomDraw(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[dxDBGrid2Column3.Index]);
  AFont.Color:=clblack;
end;

procedure Tfrm_op_seae_bl.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  CanClose:=frm_close_query(t_op_seae);
  CanClose:=frm_close_query(t_op_seae_fen);
end;

procedure Tfrm_op_seae_bl.EXCEL1Click(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if t_op_seae2.DataSet.IsEmpty then
    exit;
  if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then
    t_op_seae2.DataSet.post;
  try
    frm_op_seae_excel:=tfrm_op_seae_excel.Create (self);
    frm_op_seae_excel.tradetype:='SEA';

    frm_op_seae_excel.ShowModal;
  finally
    frm_op_seae_excel.Free;
  end;
end;

procedure Tfrm_op_seae_bl.Panel2Resize(Sender: TObject);
var
  i:integer;
begin
  i:=round(Panel2.Width/12);
  bsSkinButton7.Width:=i;
  bsSkinButton6.Width:=i;
  bsSkinButton9.Width:=i;
  bsSkinButton10.Width:=i;
  bsSkinButton1.Width:=i;
  bsSkinButton11.Width:=i;
  bsSkinButton8.Width:=i;
  bsSkinButton2.Width:=i;
  bsSkinButton4.Width:=i;
  bsSkinButton3.Width:=i;
  bsSkinButton38.Width:=i;
  bsSkinButton13.Left:=Panel2.Width-bsSkinButton13.Width-20;
  bsSkinButton15.left:=bsSkinButton13.Left-75;
end;

procedure Tfrm_op_seae_bl.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  key_dbedit(Key,DBEdit2);
end;

procedure Tfrm_op_seae_bl.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
  key_dbedit(Key,DBEdit3);
end;

procedure Tfrm_op_seae_bl.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
  key_dbedit(Key,DBEdit4);
end;

procedure Tfrm_op_seae_bl.DBEdit4KeyPress(Sender: TObject; var Key: Char);
begin
  key_dbedit(Key,DBEdit18);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo1KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo12);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo12KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBedit(Key,DBEDIT8);
end;

procedure Tfrm_op_seae_bl.DBEdit8KeyPress(Sender: TObject; var Key: Char);
begin
  key_dbedit(Key,DBEdit9);
end;

procedure Tfrm_op_seae_bl.DBEdit9KeyPress(Sender: TObject; var Key: Char);
begin
  key_dbedit(Key,DBEdit7);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo2KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_wwDBLookupCombo(Key,wwDBLookupCombo46);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo19KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_wwDBLookupCombo(Key,wwDBLookupCombo8);
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo49KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_dbedit(Key,DBEdit63);
end;

procedure Tfrm_op_seae_bl.DBEdit63KeyPress(Sender: TObject; var Key: Char);
begin
  key_wwDBDateTimePicker(Key,wwDBDateTimePicker2);
end;

procedure Tfrm_op_seae_bl.wwDBDateTimePicker2KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_wwDBDateTimePicker(Key,wwDBDateTimePicker6);
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo3KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo21);
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo52KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo22);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo20KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo49);
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo21KeyPress(Sender: TObject;
  var Key: Char);
begin
//  key_wwDBComboBox(Key,wwDBComboBox1);
end;

procedure Tfrm_op_seae_bl.wwDBComboBoxBLNUMKeyPress(Sender: TObject;
  var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo28);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo15KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_dbedit(Key,DBEdit26);
end;

procedure Tfrm_op_seae_bl.DBEdit26KeyPress(Sender: TObject; var Key: Char);
begin
  key_dbedit(Key,DBEdit27);
end;

procedure Tfrm_op_seae_bl.DBEdit27KeyPress(Sender: TObject; var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo20);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo6KeyPress(Sender: TObject;
  var Key: Char);
begin
//  key_RxDBLookupCombo(Key,RxDBLookupCombo8);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo9KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo6);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo7KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_wwDBComboBox(Key,wwDBComboBox2);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo8KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo7);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo10KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBMemo(Key,DBMemo38);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo14KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo31);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo11KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBMemo(Key,DBMemo39);
end;

procedure Tfrm_op_seae_bl.DBEdit80KeyPress(Sender: TObject; var Key: Char);
begin
  key_dbedit(Key,DBEdit81);
end;

procedure Tfrm_op_seae_bl.DBEdit81KeyPress(Sender: TObject; var Key: Char);
begin
  key_wwDBLookupCombo(Key,wwDBLookupCombo61);
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo61KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_dbedit(Key,DBEdit82);
end;

procedure Tfrm_op_seae_bl.DBEdit82KeyPress(Sender: TObject; var Key: Char);
begin
  key_dbedit(Key,DBEdit83);
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo4KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_dbedit(Key,DBEdit12);
end;

procedure Tfrm_op_seae_bl.bsSkinDBCheckRadioBox1KeyPress(Sender: TObject;
  var Key: Char);
begin
//  key_RxDBLookupCombo(Key,RxDBLookupCombo32);
end;

procedure Tfrm_op_seae_bl.bsSkinDBCheckRadioBox2KeyPress(Sender: TObject;
  var Key: Char);
begin
//  key_RxDBLookupCombo(Key,RxDBLookupCombo33);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo24KeyPress(Sender: TObject;
  var Key: Char);
begin
//  key_RxDBLookupCombo(Key,RxDBLookupCombo25);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo25KeyPress(Sender: TObject;
  var Key: Char);
begin
//  key_RxDBLookupCombo(Key,RxDBLookupCombo27);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo27KeyPress(Sender: TObject;
  var Key: Char);
begin
//  key_RxDBLookupCombo(Key,RxDBLookupCombo26);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo26KeyPress(Sender: TObject;
  var Key: Char);
begin
//  key_wwDBComboBox(Key,wwDBComboBox12);
end;

procedure Tfrm_op_seae_bl.wwDBComboBox12KeyPress(Sender: TObject;
  var Key: Char);
begin
//  key_dbedit(Key,DBEdit71);
end;

procedure Tfrm_op_seae_bl.DBEdit71KeyPress(Sender: TObject; var Key: Char);
begin
//  key_dbedit(Key,DBEdit73);
end;

procedure Tfrm_op_seae_bl.DBEdit73KeyPress(Sender: TObject; var Key: Char);
begin
//  key_dbedit(Key,DBEdit109);
end;

procedure Tfrm_op_seae_bl.DBEdit109KeyPress(Sender: TObject; var Key: Char);
begin
//  key_wwDBComboBox(Key,wwDBComboBox11);
end;

procedure Tfrm_op_seae_bl.wwDBComboBox11KeyPress(Sender: TObject;
  var Key: Char);
begin
//  key_dbedit(Key,DBEdit114);
end;

procedure Tfrm_op_seae_bl.DBEdit114KeyPress(Sender: TObject; var Key: Char);
begin
//  key_dbedit(Key,DBEdit112);
end;

procedure Tfrm_op_seae_bl.DBEdit112KeyPress(Sender: TObject; var Key: Char);
begin
//  key_dbedit(Key,DBEdit111);
end;

procedure Tfrm_op_seae_bl.wwDBDateTimePicker4KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo15);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo28KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_dbedit(Key,DBEdit25);
end;

procedure Tfrm_op_seae_bl.DBEdit25KeyPress(Sender: TObject; var Key: Char);
begin
  key_wwDBDateTimePicker(Key,wwDBDateTimePicker4);
end;

procedure Tfrm_op_seae_bl.Button1Click(Sender: TObject);
begin
  if t_op_seae2.DataSet.IsEmpty then
    exit;
  try
    frm_op_seae_vessel:=tfrm_op_seae_vessel.Create (self);
    frm_op_seae_vessel.v_vessel_voyage.open;
    frm_op_seae_vessel.wwIncrementalSearch1.Text:=wwDBLookupCombo49.text;
    op_seae_vessel_num:=1;
    frm_op_seae_vessel.ShowModal;
  finally
    frm_op_seae_vessel.Free;
    frm_op_seae_vessel:=nil;
  end;
end;

procedure Tfrm_op_seae_bl.DBEdit18KeyPress(Sender: TObject; var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo1);
end;

procedure Tfrm_op_seae_bl.t_op_seae_fenAfterInsert(DataSet: TDataSet);
begin

  t_op_seae_fen['<27><>վ']:=t_op_seae['<27><>վ'];
  t_op_seae_fen['<27><><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
  t_op_seae_fen['<27><><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
  t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
  t_op_seae_fen['<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>'];
  t_op_seae_fen['Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
  t_op_seae_fen['<27><><EFBFBD>˸<EFBFBD>']:=t_op_seae['<27><><EFBFBD>˸<EFBFBD>'];
  t_op_seae_fen['װ<><D7B0><EFBFBD><EFBFBD>']:=t_op_seae['װ<><D7B0><EFBFBD><EFBFBD>'];
  t_op_seae_fen['װ<>۴<EFBFBD><DBB4><EFBFBD>']:=t_op_seae['װ<>۴<EFBFBD><DBB4><EFBFBD>'];
  t_op_seae_fen['ж<><D0B6><EFBFBD><EFBFBD>']:=t_op_seae['ж<><D0B6><EFBFBD><EFBFBD>'];
  t_op_seae_fen['ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
  t_op_seae_fen['<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
  t_op_seae_fen['<27><><EFBFBD≯ۿ<CCB8>']:=t_op_seae['<27><><EFBFBD≯ۿ<CCB8>'];
  t_op_seae_fen['<27><><EFBFBD>̴<EFBFBD><CCB4><EFBFBD>']:=t_op_seae['<27><><EFBFBD>̴<EFBFBD><CCB4><EFBFBD>'];
  t_op_seae_fen['<27><><EFBFBD>̺<EFBFBD><CCBA><EFBFBD>']:=t_op_seae['<27><><EFBFBD>̺<EFBFBD><CCBA><EFBFBD>'];
  t_op_seae_fen['Ŀ<>ĵ<EFBFBD>']:=t_op_seae['Ŀ<>ĵ<EFBFBD>'];
  t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>'];
  t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
  t_op_seae_fen['<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>']:=t_op_seae['<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>'];
  t_op_seae_fen['ǩ<><C7A9><EFBFBD><EFBFBD>ʽ']:=t_op_seae['ǩ<><C7A9><EFBFBD><EFBFBD>ʽ'];
  t_op_seae_fen['ǩ<><C7A9><EFBFBD>ص<EFBFBD>']:=t_op_seae['ǩ<><C7A9><EFBFBD>ص<EFBFBD>'];
  t_op_seae_fen['ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
  t_op_seae_fen['<27><><EFBFBD>ѷ<EFBFBD>ʽ']:=t_op_seae['<27><><EFBFBD>ѷ<EFBFBD>ʽ'];
  t_op_seae_fen['Ԥ<><D4A4><EFBFBD>ص<EFBFBD>']:=t_op_seae['Ԥ<><D4A4><EFBFBD>ص<EFBFBD>'];
  t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>'];
  t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
  t_op_seae_fen['<27><>ͷ']:=t_op_seae['<27><>ͷ'];
  t_op_seae_fen['<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>']:=t_op_seae['<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>'];
  t_op_seae_fen['<27><><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
  t_op_seae_fen['<27><><EFBFBD><EFBFBD>˾']:=t_op_seae['<27><><EFBFBD><EFBFBD>˾'];

end;

procedure Tfrm_op_seae_bl.DBEdit3Change(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  DBEdit3.Color:=dxgrid_color_fee(DBEdit3.text);
end;

procedure Tfrm_op_seae_bl.DBEdit2Change(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  DBEdit2.Color:=dxgrid_color('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>',DBEdit2.text);
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo46Enter(Sender: TObject);
begin
  with frm_data_share do
  begin
    t_code_code.Filtered:=false;
    t_code_code.Filter:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=1';
    t_code_code.Filtered:=true;
  end;
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo47Enter(Sender: TObject);
begin
  with frm_data_share do
  begin
    t_code_code.Filtered:=false;
    t_code_code.Filter:='<27>ջ<EFBFBD><D5BB><EFBFBD>=1';
    t_code_code.Filtered:=true;
  end;
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo48Enter(Sender: TObject);
begin
  with frm_data_share do
  begin
    t_code_code.Filtered:=false;
    t_code_code.Filter:='֪ͨ<CDA8><D6AA>=1';
    t_code_code.Filtered:=true;
  end;
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo2Enter(Sender: TObject);
begin
  RxLookupComboEnter(RxDBLookupCombo2);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo3Enter(Sender: TObject);
begin
  RxLookupComboEnter(RxDBLookupCombo3);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo4Enter(Sender: TObject);
begin
  RxLookupComboEnter(RxDBLookupCombo4);
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo46Change(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo46.text,[]) then
  begin
    t_op_seae2.DataSet.edit;
    t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
  end;
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo46Exit(Sender: TObject);
begin
  wwDBLookupCombo46.Clear;
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo47Change(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo47.text,[]) then
  begin
    t_op_seae2.DataSet.edit;
    t_op_seae2.DataSet['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
  end;
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo48Change(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo48.text,[]) then
  begin
    t_op_seae2.DataSet.edit;
    t_op_seae2.DataSet['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
  end;
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo47Exit(Sender: TObject);
begin
  wwDBLookupCombo47.Clear;
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo48Exit(Sender: TObject);
begin
  wwDBLookupCombo48.Clear;
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo46KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBMemo(Key,DBMemo33);
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo47KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBMemo(Key,DBMemo34);
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo48KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBMemo(Key,DBMemo35);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo3KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_wwDBLookupCombo(Key,wwDBLookupCombo47);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo4KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_wwDBLookupCombo(Key,wwDBLookupCombo48);
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo2KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBMemo(Key,DBMemo3);
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo5KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBMemo(Key,DBMemo4);
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo6KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBMemo(Key,DBMemo5);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo16KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_wwDBLookupCombo(Key,wwDBLookupCombo2);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo17KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_wwDBLookupCombo(Key,wwDBLookupCombo5);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo18KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_wwDBLookupCombo(Key,wwDBLookupCombo6);
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo2Exit(Sender: TObject);
begin
  wwDBLookupCombo2.Clear;
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo5Exit(Sender: TObject);
begin
  wwDBLookupCombo5.Clear;
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo6Exit(Sender: TObject);
begin
  wwDBLookupCombo6.Clear;
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo2Change(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo2.text,[]) then
  begin
    t_op_seae2.DataSet.edit;
    t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
  end;
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo5Change(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo5.text,[]) then
  begin
    t_op_seae2.DataSet.edit;
    t_op_seae2.DataSet['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
  end;
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo6Change(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo6.text,[]) then
  begin
    t_op_seae2.DataSet.edit;
    t_op_seae2.DataSet['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
  end;

end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo29KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo14);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo30KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo9);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo12Change(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if (t_op_seae2.DataSet.state=dsinsert)or(t_op_seae2.DataSet.state=dsedit)then
  begin
    if RxDBLookupCombo12.DisplayValue='' then
      exit;
    if frm_data_share.t_sys_employee.locate('<27><><EFBFBD><EFBFBD>',RxDBLookupCombo12.DisplayValue,[]) then
      t_op_seae2.DataSet['<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>']:=frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
  end;
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo14Change(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if (t_op_seae2.DataSet.state=dsinsert)or(t_op_seae2.DataSet.state=dsedit)then
  begin
    if RxDBLookupCombo14.DisplayValue='' then
      exit;
    if frm_data_share.t_sys_employee.locate('<27><><EFBFBD><EFBFBD>',RxDBLookupCombo14.DisplayValue,[]) then
      t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
  end;
end;

procedure Tfrm_op_seae_bl.wwDBComboBox3KeyPress(Sender: TObject;
  var Key: Char);
begin
//  key_RxDBLookupCombo(Key,RxDBLookupCombo10);
end;

procedure Tfrm_op_seae_bl.bsSkinDBCheckRadioBox4KeyPress(Sender: TObject;
  var Key: Char);
begin
//  key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox9);
end;

procedure Tfrm_op_seae_bl.bsSkinDBCheckRadioBox3KeyPress(Sender: TObject;
  var Key: Char);
begin
//  key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox5);
end;

procedure Tfrm_op_seae_bl.bsSkinDBCheckRadioBox5KeyPress(Sender: TObject;
  var Key: Char);
begin
//  key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox4);
end;

procedure Tfrm_op_seae_bl.N12Click(Sender: TObject);
begin
  update_grid(dxdbgrid1,1);
end;

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

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

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

procedure Tfrm_op_seae_bl.dxDBGrid1ColumnSorting(Sender: TObject;
  Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
  Column_sort(Column,t_op_seae,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;

procedure Tfrm_op_seae_bl.N17Click(Sender: TObject);
begin
 if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then
   psqlstr:=t_op_seae.sql.Text;
  t_op_seae.Close;
  t_op_seae.SQL.clear;
  t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
                   +open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
                   +' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬='
                   +''''+'¼<><C2BC>״̬'+''''+')) '
                   +default_sort(53,'t_op_seae','','desc'));
  t_op_seae.open;
end;

procedure Tfrm_op_seae_bl.bsSkinButton13Click(Sender: TObject);
var
  Pnt:Tpoint;
begin
  Pnt:=bsSkinButton13.ClientToScreen(Point(0,bsSkinButton13.Height));
  PopupMenu3.Popup(Pnt.x,Pnt.y);
end;

procedure Tfrm_op_seae_bl.N34Click(Sender: TObject);
begin
 if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then
   psqlstr:=t_op_seae.sql.Text;
  t_op_seae.Close;
  t_op_seae.SQL.clear;
  t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
                   +open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
                   +' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
                   +''''+'<27><><EFBFBD><EFBFBD><EFBFBD>ύ'+''''+','+''''+'<27><>ֹ<EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><>ֹɾ<D6B9><C9BE>'+''''+'))) '
                   +default_sort(53,'t_op_seae','','desc'));
  t_op_seae.open;
end;

procedure Tfrm_op_seae_bl.N36Click(Sender: TObject);
begin
 if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then
   psqlstr:=t_op_seae.sql.Text;
  t_op_seae.Close;
  t_op_seae.SQL.clear;
  t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
                   +open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
                   +' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
                   +''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''+'))) '
                   +default_sort(53,'t_op_seae','','desc'));
  t_op_seae.open;
end;

procedure Tfrm_op_seae_bl.N37Click(Sender: TObject);
begin
 if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then
   psqlstr:=t_op_seae.sql.Text;
  t_op_seae.Close;
  t_op_seae.SQL.clear;
  t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
                   +open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
                   +' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_op_state where <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><>1)) '
                   +default_sort(53,'t_op_seae','','desc'));
  t_op_seae.open;
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo1Enter(Sender: TObject);
begin
  RxLookupComboEnter(RxDBLookupCombo1);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo1Exit(Sender: TObject);
begin
  RxLookupComboExit(RxDBLookupCombo1);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo9Enter(Sender: TObject);
begin
  RxLookupComboEnter(RxDBLookupCombo9);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo6Enter(Sender: TObject);
begin
  RxLookupComboEnter(RxDBLookupCombo6);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo8Enter(Sender: TObject);
begin
//  RxLookupComboEnter(RxDBLookupCombo8);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo7Enter(Sender: TObject);
begin
  RxLookupComboEnter(RxDBLookupCombo7);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo10Enter(Sender: TObject);
begin
//  RxLookupComboEnter(RxDBLookupCombo10);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo9Exit(Sender: TObject);
begin
  RxLookupComboExit(RxDBLookupCombo9);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo6Exit(Sender: TObject);
begin
  RxLookupComboExit(RxDBLookupCombo6);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo8Exit(Sender: TObject);
begin
//  RxLookupComboExit(RxDBLookupCombo8);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo7Exit(Sender: TObject);
begin
  RxLookupComboExit(RxDBLookupCombo7);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo10Exit(Sender: TObject);
begin
//  RxLookupComboExit(RxDBLookupCombo10);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo2Exit(Sender: TObject);
begin
  RxLookupComboExit(RxDBLookupCombo2);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo3Exit(Sender: TObject);
begin
  RxLookupComboExit(RxDBLookupCombo3);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo4Exit(Sender: TObject);
begin
  RxLookupComboExit(RxDBLookupCombo4);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo5Enter(Sender: TObject);
begin
  RxLookupComboEnter(RxDBLookupCombo5);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo5Exit(Sender: TObject);
begin
  RxLookupComboExit(RxDBLookupCombo5);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo16Enter(Sender: TObject);
begin
  RxLookupComboEnter(RxDBLookupCombo16);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo17Enter(Sender: TObject);
begin
  RxLookupComboEnter(RxDBLookupCombo17);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo18Enter(Sender: TObject);
begin
  RxLookupComboEnter(RxDBLookupCombo18);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo16Exit(Sender: TObject);
begin
  RxLookupComboExit(RxDBLookupCombo16);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo17Exit(Sender: TObject);
begin
  RxLookupComboExit(RxDBLookupCombo17);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo18Exit(Sender: TObject);
begin
  RxLookupComboExit(RxDBLookupCombo18);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo19Enter(Sender: TObject);
begin
  RxLookupComboEnter(RxDBLookupCombo19);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo19Exit(Sender: TObject);
begin
  RxLookupComboExit(RxDBLookupCombo19);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo28Enter(Sender: TObject);
begin
  RxDBLookupCombo28.LookupDisplay:='<27><><EFBFBD><EFBFBD>;ǩ<><C7A9><EFBFBD><EFBFBD>ʽ';
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo28Exit(Sender: TObject);
begin
  RxDBLookupCombo28.LookupDisplay:='ǩ<><C7A9><EFBFBD><EFBFBD>ʽ';
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo15Enter(Sender: TObject);
begin
  RxDBLookupCombo15.LookupDisplay:='<27><><EFBFBD><EFBFBD>;<3B><><EFBFBD>ѷ<EFBFBD>ʽ';
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo15Exit(Sender: TObject);
begin
  RxDBLookupCombo15.LookupDisplay:='<27><><EFBFBD>ѷ<EFBFBD>ʽ';
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo20Enter(Sender: TObject);
begin
  RxDBLookupCombo20.LookupDisplay:='<27><><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD>;<3B><><EFBFBD><EFBFBD>';
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo20Exit(Sender: TObject);
begin
  RxDBLookupCombo20.LookupDisplay:='<27><><EFBFBD><EFBFBD>';
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo11Enter(Sender: TObject);
begin
  RxDBLookupCombo11.LookupDisplay:='<27><><EFBFBD><EFBFBD>;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo11Exit(Sender: TObject);
begin
  RxDBLookupCombo11.LookupDisplay:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
end;

procedure Tfrm_op_seae_bl.N40Click(Sender: TObject);
begin
  if t_op_seae.IsEmpty then
    exit;
  Notebook1.PageIndex:=1;
  bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
  bsSkinTabSheet2.show;
  if if_open('293') or if_open('294') then
  begin
    if not assigned(frm_ch_fee_sea) then
    begin
      frm_ch_fee_sea:=tfrm_ch_fee_sea.Create (self);
      frm_ch_fee_sea.ManualDock(bsSkinTabSheet2,nil,alClient);
      frm_ch_fee_sea.Show;
    end;
  end
  else
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ã<EFBFBD><C3A3><EFBFBD>');
  end;
end;

procedure Tfrm_op_seae_bl.N42Click(Sender: TObject);
begin
  if t_op_seae.IsEmpty then
    exit;
  Notebook1.PageIndex:=1;
  bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
  bsSkinTabSheet7.show;
  {$IFDEF ZTGENGZONG}
  if not assigned(frm_op_seae_state) then
  begin
    frm_op_seae_state:=tfrm_op_seae_state.Create (self);
    frm_op_seae_state.fra_op_state1.t_op_state.DataSource:=t_op_seae2;
    frm_op_seae_state.fra_op_state1.t_op_state.open;
    frm_op_seae_state.fra_op_state1.edit_state.Text:='1';
    frm_op_seae_state.ManualDock(bsSkinTabSheet7,nil,alClient);
    frm_op_seae_state.show;
  end;
  {$ENDIF}
end;

procedure Tfrm_op_seae_bl.N44Click(Sender: TObject);
begin
  if t_op_seae.IsEmpty then
    exit;
  Notebook1.PageIndex:=1;
  bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
end;

procedure Tfrm_op_seae_bl.N46Click(Sender: TObject);
begin
  if t_op_seae.IsEmpty then
    exit;
  Notebook1.PageIndex:=1;
  bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
  bsSkinTabSheet6.show;
  if not assigned(frm_op_seae_assistant) then
  begin
    frm_op_seae_assistant:=tfrm_op_seae_assistant.Create (self);
    frm_op_seae_assistant.t_op_seae_assistant.DataSource:=t_op_seae2;
    frm_op_seae_assistant.ManualDock(bsSkinTabSheet6,nil,alClient);
    frm_op_seae_assistant.show;
  end;
end;

procedure Tfrm_op_seae_bl.Label4Click(Sender: TObject);
begin
  client_view(t_op_seae2.DataSet.fieldbyname('ί<>е<EFBFBD>λ').asstring,frm_data_share.t_crm_client_weituo);
end;

procedure Tfrm_op_seae_bl.Label23Click(Sender: TObject);
begin
  client_view(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,frm_data_share.t_crm_client_shiper);
end;

procedure Tfrm_op_seae_bl.Label24Click(Sender: TObject);
begin
  client_view(t_op_seae2.DataSet.fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD>').asstring,frm_data_share.t_crm_client_shouhuo);
end;

procedure Tfrm_op_seae_bl.Label29Click(Sender: TObject);
begin
  client_view(t_op_seae2.DataSet.fieldbyname('֪ͨ<CDA8><D6AA>').asstring,frm_data_share.t_crm_client_tongzhi);
end;

procedure Tfrm_op_seae_bl.Label33Click(Sender: TObject);
begin
  client_view(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,frm_data_share.t_crm_client_daili);
end;

procedure Tfrm_op_seae_bl.Label12Click(Sender: TObject);
begin
  client_view(t_op_seae2.DataSet.fieldbyname('<27><>վ').asstring,frm_data_share.t_crm_client_changzhan);
end;

procedure Tfrm_op_seae_bl.Label9Click(Sender: TObject);
begin
//  client_view(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>˾').asstring,frm_data_share.t_crm_client_ship);
end;

procedure Tfrm_op_seae_bl.Label11Click(Sender: TObject);
begin
//  client_view(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾').asstring,frm_data_share.t_crm_client_huodai);
end;

procedure Tfrm_op_seae_bl.Label10Click(Sender: TObject);
begin
//  client_view(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,frm_data_share.t_crm_client_baoguan);
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo2DblClick(Sender: TObject);
begin
  open_code_edit('016');
end;

procedure Tfrm_op_seae_bl.Label125Click(Sender: TObject);
begin
  open_code_edit('097');
end;

procedure Tfrm_op_seae_bl.Label7Click(Sender: TObject);
begin
  open_code_edit('011');
end;

procedure Tfrm_op_seae_bl.Label35Click(Sender: TObject);
begin
  open_code_edit('071');
end;

procedure Tfrm_op_seae_bl.Label30Click(Sender: TObject);
begin
  open_code_edit('015');
end;

procedure Tfrm_op_seae_bl.Label73Click(Sender: TObject);
begin
  open_code_edit('012');
end;

procedure Tfrm_op_seae_bl.Label164Click(Sender: TObject);
begin
  open_code_edit('007');
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo61DblClick(Sender: TObject);
begin
  open_code_edit('013');
end;

procedure Tfrm_op_seae_bl.bsSkinButton12Click(Sender: TObject);
begin
  t_op_seae_fen.first;
  while not t_op_seae_fen.Eof do
  begin
    t_op_seae_fen.edit;
    t_op_seae_fen['<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>']:=t_op_seae['<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>'];
    t_op_seae_fen.post;
    t_op_seae_fen.next;
  end;
end;

procedure Tfrm_op_seae_bl.bsSkinButton14Click(Sender: TObject);
begin
  if not (if_open('293') or if_open('294')) then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ã<EFBFBD><C3A3><EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_fee_zhupiao) then
    frm_ch_fee_zhupiao:=tfrm_ch_fee_zhupiao.Create (self);
  frm_ch_fee_zhupiao.fra_fee_zhu1.fenpiao1.DataSet:=t_op_seae_fen;
  with frm_ch_fee_zhupiao do
  begin
    if if_open('293') then
    begin
      fra_fee_zhu1.t_ch_accept.close;
      fra_fee_zhu1.t_ch_accept.Parameters[1].value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
      fra_fee_zhu1.t_ch_accept.open;
      fra_fee_zhu1.zhupiao1.DataSet:=t_op_seae;
      fra_fee_zhu1.dxDBGrid1.FullExpand;
      fra_fee_zhu1.bsSkinPanel3.visible:=true;
    end
    else
      fra_fee_zhu1.bsSkinPanel3.visible:=false;
    if if_open('294') then
    begin
      fra_fee_zhu1.t_ch_pay.close;
      fra_fee_zhu1.t_ch_pay.Parameters[1].value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
      fra_fee_zhu1.t_ch_pay.open;
      fra_fee_zhu1.zhupiao1.DataSet:=t_op_seae;
      fra_fee_zhu1.dxDBGrid2.FullExpand;
      fra_fee_zhu1.bsSkinPanel4.visible:=true;
    end
    else
      fra_fee_zhu1.bsSkinPanel4.visible:=false;

    if fra_fee_zhu1.bsSkinPanel3.visible and
       fra_fee_zhu1.bsSkinPanel4.visible then
    begin
      fra_fee_zhu1.t_op_gain.close;
      fra_fee_zhu1.t_op_gain.Parameters[1].value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
      fra_fee_zhu1.t_op_gain.open;
      fra_fee_zhu1.t_op_gain_fen.close;
      fra_fee_zhu1.t_op_gain_fen.Parameters[1].value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
      fra_fee_zhu1.t_op_gain_fen.open;
    end
    else
    begin
      fra_fee_zhu1.t_op_gain.close;
      fra_fee_zhu1.t_op_gain_fen.close;
      fra_fee_zhu1.bsSkinTabSheet2.TabVisible:=false;
    end;
    fra_fee_zhu1.dxDBGrid3.FullExpand;
  end;
  frm_ch_fee_zhupiao.ShowModal;
end;

procedure Tfrm_op_seae_bl.N55Click(Sender: TObject);
var
  str:widestring;
begin
  if t_op_seae.IsEmpty then
    exit;

  if if_open('293') and if_open('294') then
  begin
    if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
      t_op_seae.post;
    try
      frm_ch_piliang_seae:=tfrm_ch_piliang_seae.Create (self);
      t_op_seae.DisableControls;
      t_op_seae.first;
      while not t_op_seae.eof do
      begin
        if str='' then
          str:=''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+''''
        else
          str:=str+','+''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
        t_op_seae.next;
      end;
      str:='('+str+')';
      str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD> in '+str+default_sort(53,'t_op_seae','','desc');
      frm_ch_piliang_seae.t_op_seae.Parameters.ParamByName('SQLStr').value:=str;
      frm_ch_piliang_seae.t_op_seae.open;
      frm_ch_piliang_seae.ShowModal;
    finally
      t_op_seae.EnableControls;
      frm_ch_piliang_seae.Free;
      frm_ch_piliang_seae:=nil;
    end;
  end
  else
  begin
    showmessage('<27><><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>');
  end;
end;

procedure Tfrm_op_seae_bl.N51Click(Sender: TObject);
var
  str:widestring;
begin
  if t_op_seae.IsEmpty then
    exit;
  if not if_open('230') then begin
    showmessage('<27><>û<EFBFBD><C3BB>Ȩ<EFBFBD>޴<EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>');
    exit;
  end;

  if if_open('293') and if_open('294') then
  begin
    if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
      t_op_seae.post;
    try
      frm_ch_piliang_seae:=tfrm_ch_piliang_seae.Create (self);
      str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD>='
          +''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
      frm_ch_piliang_seae.t_op_seae.Parameters.ParamByName('SQLStr').value:=str;
      frm_ch_piliang_seae.t_op_seae.open;
      frm_ch_piliang_seae.ShowModal;
    finally
      frm_ch_piliang_seae.Free;
      frm_ch_piliang_seae:=nil;
    end;
  end
  else
  begin
    showmessage('<27><><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>');
  end;
end;

procedure Tfrm_op_seae_bl.N53Click(Sender: TObject);
var
  str:widestring;
  i:integer;
begin
  if t_op_seae.IsEmpty then
    exit;
  if dxDBGrid1.SelectedCount<1 then
  begin
    showmessage('<27><>ѡ<EFBFBD><D1A1>Ҫ<EFBFBD><D2AA>ӡ<EFBFBD><D3A1>ҵ<EFBFBD><D2B5><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>');
    exit;
  end;
  if if_open('293') and if_open('294') then
  begin
    if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
      t_op_seae.post;
    try
      frm_ch_piliang_seae:=tfrm_ch_piliang_seae.Create (self);
      t_op_seae.DisableControls;

      for i:=0 to dxDBGrid1.SelectedCount-1 do
      begin
        t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
        if str='' then
          str:=''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+''''
        else
          str:=str+','+''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
      end;
      str:='('+str+')';
      str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD> in '+str+default_sort(53,'t_op_seae','','desc');
      frm_ch_piliang_seae.t_op_seae.Parameters.ParamByName('SQLStr').value:=str;
      frm_ch_piliang_seae.t_op_seae.open;
      frm_ch_piliang_seae.ShowModal;
    finally
      t_op_seae.EnableControls;
      frm_ch_piliang_seae.Free;
      frm_ch_piliang_seae:=nil;
    end;
  end
  else
  begin
    showmessage('<27><><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>');
  end;
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo31Enter(Sender: TObject);
begin
  RxDBLookupCombo31.LookupDisplay:='<27><><EFBFBD><EFBFBD>;ҵ<><D2B5><EFBFBD><EFBFBD>Դ';
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo31Exit(Sender: TObject);
begin
  RxDBLookupCombo31.LookupDisplay:='ҵ<><D2B5><EFBFBD><EFBFBD>Դ';
end;

procedure Tfrm_op_seae_bl.bsSkinDBCheckRadioBox9KeyPress(Sender: TObject;
  var Key: Char);
begin
//  key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox10);
end;

procedure Tfrm_op_seae_bl.bsSkinDBCheckRadioBox10KeyPress(Sender: TObject;
  var Key: Char);
begin
//  key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox11);
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo7Enter(Sender: TObject);
begin
  with frm_data_share do
  begin
    t_code_code.Filtered:=false;
    t_code_code.Filter:='<27><><EFBFBD><EFBFBD>=1';
    t_code_code.Filtered:=true;
  end;
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo7Exit(Sender: TObject);
begin
  wwDBLookupCombo7.Clear;
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo7KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBMemo(Key,DBMemo1);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo5KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_wwDBLookupCombo(Key,wwDBLookupCombo7);
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo7Change(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo7.text,[]) then
  begin
    t_op_seae2.DataSet.edit;
    t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
  end;
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo8KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBMemo(Key,DBMemo6);
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo8Change(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo8.text,[]) then
  begin
    t_op_seae2.DataSet.edit;
    t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
  end;
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo8Exit(Sender: TObject);
begin
  wwDBLookupCombo8.Clear;
end;

procedure Tfrm_op_seae_bl.bsSkinButton35Click(Sender: TObject);
begin
 table_post(t_op_ctn);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo1Change(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if t_op_seae2.DataSet.State=dsinsert then
  begin
    if frm_data_share.t_crm_client_weituo.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',RxDBLookupCombo1.DisplayValues[1],[])then
    begin
      if frm_data_share.t_crm_client_weituo.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asboolean then
      begin
        t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=RxDBLookupCombo1.DisplayValues[1];
        t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_weituo.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
      end;
      if frm_data_share.t_crm_client_weituo.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>''then
      begin
        t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client_weituo.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
      end;
    end;
  end;
end;

procedure Tfrm_op_seae_bl.N62Click(Sender: TObject);
begin
 if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then
   psqlstr:=t_op_seae.sql.Text;
  t_op_seae.Close;
  t_op_seae.SQL.clear;
  t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
                   +open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
                   +' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
                   +' and not exists (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where t_ch_fee.<2E><><EFBFBD><EFBFBD>=t_op_seae.<2E><><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')'
                   +default_sort(53,'t_op_seae','','desc'));
  t_op_seae.open;
end;

procedure Tfrm_op_seae_bl.N64Click(Sender: TObject);
begin
 if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then
   psqlstr:=t_op_seae.sql.Text;
  t_op_seae.Close;
  t_op_seae.SQL.clear;
  t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
                   +open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
                   +' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
                   +' and not exists (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where t_ch_fee.<2E><><EFBFBD><EFBFBD>=t_op_seae.<2E><><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')'
                   +default_sort(53,'t_op_seae','','desc'));
  t_op_seae.open;
end;

procedure Tfrm_op_seae_bl.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('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>',ANode.Strings[dxDBGrid1Column2.Index]);
  AFont.Color:=clblack;
end;

procedure Tfrm_op_seae_bl.dxDBGrid2Column2CustomDraw(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('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>',ANode.Strings[dxDBGrid2Column2.Index]);
  AFont.Color:=clblack;
end;

procedure Tfrm_op_seae_bl.t_op_seaePostError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
var
  str:widestring;
begin
    update_wenti(E);

  if pos('SOME VALUES MAY HAVE BEEN CHANGED',UpperCase(E.Message))<>0 then
  begin
    showmessage('<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB>޸ģ<DEB8><C4A3><EFBFBD>ǰ<EFBFBD>޸Ĳ<DEB8><C4B2>ܱ<EFBFBD><DCB1><EFBFBD>'+#13#10+'<27><>ˢ<EFBFBD><CBA2><EFBFBD><EFBFBD><EFBFBD>ݺ<EFBFBD><DDBA><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>');
    abort;
  end;
  if pos('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼',UpperCase(E.Message))<>0 then
  begin
    str:='select * from t_op_seae where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼='+''''+t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']+'''';
    double_seae(str,1);
    abort;
  end;
  if pos('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼',UpperCase(E.Message))<>0 then
  begin
    str:='select * from t_op_seae where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼='+''''+t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']+'''';
    double_seae(str,2);
    abort;
  end;
  if pos('ί<>б<EFBFBD>׼',UpperCase(E.Message))<>0 then
  begin
    str:='select * from t_op_seae where ί<>б<EFBFBD>׼='+''''+t_op_seae['ί<>б<EFBFBD>׼']+'''';
    double_seae(str,3);
    abort;
  end;
end;

procedure Tfrm_op_seae_bl.N66Click(Sender: TObject);
begin
  if t_op_seae2.DataSet.IsEmpty then
    exit;
  if not do_data('0001',t_op_seae2.DataSet.FieldByName('¼<><C2BC><EFBFBD><EFBFBD>').asstring
                       ,t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>Ա').asstring
                       ,t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
                       ,t_op_seae2.DataSet.FieldByName('<27>ͷ<EFBFBD>Ա').asstring
                       ,''
                       ,'') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
    abort;
  end;

  if t_op_seae2.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
  begin
    showmessage('<27><>Ʊҵ<C6B1><D2B5>״̬<D7B4>Ѿ<EFBFBD>Ϊҵ<CEAA><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸ģ<DEB8>');
    abort;
  end;

  if t_op_seae2.DataSet=nil then
    exit;
  if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then
    t_op_seae2.DataSet.post;
  try
    frm_op_date_change:=tfrm_op_date_change.Create (self);
     frm_op_date_change.DataSource1.Enabled:=false;
    frm_op_date_change.DataSource1.DataSet:=t_op_seae2.DataSet;
     frm_op_date_change.DataSource1.Enabled:=true;
    frm_op_date_change.ShowModal;
  finally
    frm_op_date_change.Free;
    frm_op_date_change:=nil;
  end;
end;

procedure Tfrm_op_seae_bl.t_op_seaeAfterPost(DataSet: TDataSet);
begin
  telll_sales;
end;

procedure Tfrm_op_seae_bl.Notebook1PageChanged(Sender: TObject);
begin
  if Notebook1.PageIndex<>0 then
  begin
    setconcolor;
    {$IFDEF ZTGENGZONG}
    if assigned(frm_op_seae_state_up) then
      frm_op_seae_state_up.Hide;
    {$ENDIF}
  end;

end;

procedure Tfrm_op_seae_bl.wwDBDateTimePicker14KeyPress(Sender: TObject;
  var Key: Char);
begin
//  key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox1);
end;

procedure Tfrm_op_seae_bl.N74Click(Sender: TObject);
begin
  update_grid_sort(dxdbgrid1,1);
end;

procedure Tfrm_op_seae_bl.t_op_seae_fenPostError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
var
  str:widestring;
begin
  if pos('SOME VALUES MAY HAVE BEEN CHANGED',UpperCase(E.Message))<>0 then
  begin
    showmessage('<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB>޸ģ<DEB8><C4A3><EFBFBD>ǰ<EFBFBD>޸Ĳ<DEB8><C4B2>ܱ<EFBFBD><DCB1><EFBFBD>'+#13#10+'<27><>ˢ<EFBFBD><CBA2><EFBFBD><EFBFBD><EFBFBD>ݺ<EFBFBD><DDBA><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>');
    abort;
  end;
  if pos('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼',UpperCase(E.Message))<>0 then
  begin
    str:='select * from t_op_seae where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼='+''''+t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']+'''';
    double_seae(str,1);
    abort;
  end;
  if pos('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼',UpperCase(E.Message))<>0 then
  begin
    str:='select * from t_op_seae where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼='+''''+t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']+'''';
    double_seae(str,2);
    abort;
  end;
  if pos('ί<>б<EFBFBD>׼',UpperCase(E.Message))<>0 then
  begin
    str:='select * from t_op_seae where ί<>б<EFBFBD>׼='+''''+t_op_seae_fen['ί<>б<EFBFBD>׼']+'''';
    double_seae(str,3);
    abort;
  end;
end;

procedure Tfrm_op_seae_bl.bsSkinButton38Click(Sender: TObject);
var
  book1:Tbookmark;
begin
  if t_op_seae2.DataSet=nil then
    exit;
  book1:=t_op_seae2.DataSet.GetBookmark;
  t_op_seae2.DataSet.Refresh;
  t_op_seae2.DataSet.GotoBookmark(book1);
end;

procedure Tfrm_op_seae_bl.N76Click(Sender: TObject);
begin
  update_grid_view_no(dxdbgrid2);
end;

procedure Tfrm_op_seae_bl.N78Click(Sender: TObject);
begin
  update_grid_view_all(dxdbgrid2);
end;

procedure Tfrm_op_seae_bl.N80Click(Sender: TObject);
begin
  update_grid(dxdbgrid2,25);
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo11KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBMemo(Key,DBMemo2);
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo11Change(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if frm_data_share.t_code_tiaokuan.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo11.text,[]) then
  begin
    t_op_seae2.DataSet.edit;
    if t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']='' then
      t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_tiaokuan.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
    else
      t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+#13#10+frm_data_share.t_code_tiaokuan.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring

  end;
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo11Exit(Sender: TObject);
begin
  wwDBLookupCombo11.TEXT:='';
end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo11DblClick(Sender: TObject);
begin
  open_code_edit('188');
end;

procedure Tfrm_op_seae_bl.t_op_seaeBeforeEdit(DataSet: TDataSet);
begin

  op_befor_post(t_op_seae,'0001');
end;

procedure Tfrm_op_seae_bl.t_op_seae_fenBeforeEdit(DataSet: TDataSet);
begin
  op_befor_post(t_op_seae_fen,'0001');
end;

procedure Tfrm_op_seae_bl.t_op_seae_fenBeforeCancel(DataSet: TDataSet);
begin
  delete_no(t_op_seae_fen);
  if t_op_seae_fen.State=dsinsert then
  if not t_op_seae_fen.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull then
   delwtno(t_op_seae_fen['ί<>б<EFBFBD><D0B1><EFBFBD>']);

end;

procedure Tfrm_op_seae_bl.t_op_seaeBeforeCancel(DataSet: TDataSet);
begin
  delete_no(t_op_seae);
  if t_op_seae.State=dsinsert then
  if not t_op_seae.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull then
   delwtno(t_op_seae['ί<>б<EFBFBD><D0B1><EFBFBD>']);

end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo32KeyPress(Sender: TObject;
  var Key: Char);
begin
//  key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox2);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo33KeyPress(Sender: TObject;
  var Key: Char);
begin
//  key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox3);
end;

procedure Tfrm_op_seae_bl.N82Click(Sender: TObject);
begin
 if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then
   psqlstr:=t_op_seae.sql.Text;
  t_op_seae.Close;
  t_op_seae.SQL.clear;
  t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
                   +open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
                   +' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
                   +' and not exists (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where t_ch_fee.<2E><><EFBFBD><EFBFBD>=t_op_seae.<2E><><EFBFBD><EFBFBD>)'
                   +default_sort(53,'t_op_seae','','desc'));
  t_op_seae.open;
end;

procedure Tfrm_op_seae_bl.N84Click(Sender: TObject);
begin
 if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then
   psqlstr:=t_op_seae.sql.Text;
  t_op_seae.Close;
  t_op_seae.SQL.clear;
  t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
                   +open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
                   +' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
                   +' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+')'
                   +default_sort(53,'t_op_seae','','desc'));
  t_op_seae.open;
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo36Enter(Sender: TObject);
begin
  RxLookupComboEnter(RxDBLookupCombo36);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo36Exit(Sender: TObject);
begin
  RxLookupComboExit(RxDBLookupCombo36);
end;

procedure Tfrm_op_seae_bl.bsSkinButton39Click(Sender: TObject);
begin
  t_op_seae_fen.first;
  while not t_op_seae_fen.Eof do
  begin
    t_op_seae_fen.edit;
    t_op_seae_fen['<27><><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
    t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
    t_op_seae_fen.post;
    t_op_seae_fen.next;
  end;
end;

procedure Tfrm_op_seae_bl.bsSkinButton42Click(Sender: TObject);
var
  bok:Tbookmark;
  if_first:boolean;
  pkgs:integer;
  kgs,cbm:double;
  aQuery:TADOQuery;
begin
  if t_op_ctn.IsEmpty then
    exit;
//  op_befor_post(frm_op_seae.t_op_seae,op_ctn_limited);
  t_op_ctn.First;
  if_first:=true;
  pkgs:=0;
  kgs:=0.00;
  cbm:=0.00;
  bok:=t_op_ctn.GetBookmark;
  while not t_op_ctn.Eof do
  begin
    if strtobool(get_parameters_value(139,'true')) then begin
      if if_first then
      begin
        memo1.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
        memo2.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+t_op_ctn.fieldbyname('<27><>װ').asstring;
        memo3.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'KGS';
        memo4.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'CBM';
        pkgs:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asinteger;
        kgs:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
        cbm:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
        if_first:=false;
      end
      else
      begin
        memo1.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
        memo2.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+t_op_ctn.fieldbyname('<27><>װ').asstring);
        memo3.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'KGS');
        memo4.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'CBM');
        pkgs:=pkgs+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asinteger;
        kgs:=kgs+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
        cbm:=cbm+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;

      end;
    end else begin
      if if_first then
      begin
        memo1.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').asstring+'/'
        +t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+t_op_ctn.fieldbyname('<27><>װ').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'KGS'+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'CBM';
        memo2.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+t_op_ctn.fieldbyname('<27><>װ').asstring;
        memo3.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'KGS';
        memo4.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'CBM';
        pkgs:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asinteger;
        kgs:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
        cbm:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
        if_first:=false;
      end
      else
      begin
        memo1.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').asstring+'/'
        +t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+t_op_ctn.fieldbyname('<27><>װ').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'KGS'+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'CBM'
        );
        memo2.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+t_op_ctn.fieldbyname('<27><>װ').asstring);
        memo3.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'KGS');
        memo4.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'CBM');
        pkgs:=pkgs+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asinteger;
        kgs:=kgs+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
        cbm:=cbm+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
      end;
    end;
    t_op_ctn.next;
  end;
    t_op_ctn.DataSource.DataSet.edit;
    t_op_ctn.DataSource.DataSet['<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>']:=memo1.Lines.Text;
//    t_op_ctn.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ']:=memo2.Lines.Text;
//    t_op_ctn.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=memo3.Lines.Text;
//    t_op_ctn.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=memo4.Lines.Text;
//    t_op_ctn.DataSource.DataSet.post;
  t_op_ctn.GotoBookmark(bok);
end;

procedure Tfrm_op_seae_bl.bsSkinButton40Click(Sender: TObject);
begin
  table_delete(t_op_ctn);
end;

procedure Tfrm_op_seae_bl.bsSkinButton41Click(Sender: TObject);
begin
  table_cancel(t_op_ctn);
end;

procedure Tfrm_op_seae_bl.dxDBGrid1Column114CustomDraw(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

  if Trim(ANode.Strings[dxDBGrid1Column114.Index])='<27><><EFBFBD>ĵ<EFBFBD>' then
    AColor:=clred;
  AFont.Color:=clblack;

end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo43KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_wwDBLookupCombo(Key,wwDBLookupCombo21);

end;

procedure Tfrm_op_seae_bl.DBEdit11KeyPress(Sender: TObject; var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo43);

end;

procedure Tfrm_op_seae_bl.WORD1Click(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if t_op_seae2.DataSet.IsEmpty then
    exit;
  if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then
    t_op_seae2.DataSet.post;
  try
    frm_op_seae_word:=tfrm_op_seae_word.Create (self);
    frm_op_seae_word.ShowModal;
  finally
    frm_op_seae_word.Free;
  end;

end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo49Change(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
{
  if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then
  begin
    if frm_data_share.t_code_vessel.Locate('Ӣ<>Ĵ<EFBFBD><C4B4><EFBFBD>',wwDBLookupCombo49.text,[]) then
    begin
      t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>˾']:=frm_data_share.t_code_vessel['<27><><EFBFBD><EFBFBD>˾'];
    end;
  end;
 }
end;

procedure Tfrm_op_seae_bl.bsSkinButton44Click(Sender: TObject);
var
  str:widestring;
begin
  str:='';
  str:=query_tiaojian(1,str,'t_op_seae.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','ģ<><C4A3>',Edit1.text);
  str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>','ģ<><C4A3>',Edit2.text);
  str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>',wwDBLookupCombo1.text);
  str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD><EFBFBD>','ģ<><C4A3>',Edit7.text);

  if trim(str)='' then
  begin
    str:='where '+open_data('0001','t_op_seae.¼<><C2BC><EFBFBD><EFBFBD>',
    't_op_seae.<2E><><EFBFBD><EFBFBD>Ա','no','no','no');
  end
  else
  begin
    str:=str+' and '+open_data('0001','t_op_seae.¼<><C2BC><EFBFBD><EFBFBD>',
         't_op_seae.<2E><><EFBFBD><EFBFBD>Ա','no','no','no');
  end;

  str:='select * from t_op_seae where װ<>˷<EFBFBD>ʽ<>''<27><>Ʊ<EFBFBD><C6B1>Ʊ'' and <20><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from t_op_seae '
          +str+')'+default_sort(53,'t_op_seae','','desc');
 if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then
   psqlstr:=t_op_seae.sql.Text;
 t_op_seae.close;
 t_op_seae.sql.clear;
 t_op_seae.sql.add(str);
 t_op_seae.Open;
 if t_op_seae.IsEmpty then
 begin
   showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD>');
   exit;
 end;

end;

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

procedure Tfrm_op_seae_bl.N92Click(Sender: TObject);
var
  inifile1:Tinifile;
begin
  bsSkinPanel9.Visible:=true;
  bsSkinButton13.Top:=3+bsSkinPanel9.Height;
  bsSkinButton15.Top:=3+bsSkinPanel9.Height;
  inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'data.ini');
  inifile1.WriteBool('other','qdisp',bsSkinPanel9.Visible);
  inifile1.free;


end;

procedure Tfrm_op_seae_bl.N93Click(Sender: TObject);
var
  inifile1:Tinifile;
begin
  bsSkinPanel9.Visible:=false;
  bsSkinButton13.Top:=3;
  bsSkinButton15.Top:=3;
  inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'data.ini');
  inifile1.WriteBool('other','qdisp',bsSkinPanel9.Visible);
  inifile1.free;

end;

procedure Tfrm_op_seae_bl.N96Click(Sender: TObject);
begin
 if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then
   psqlstr:=t_op_seae.sql.Text;
  t_op_seae.Close;
  t_op_seae.SQL.clear;
  t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
                   +open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
                   +' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
                   +' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD><><3E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>  and <20><><EFBFBD><EFBFBD>='''+'<27><>'+''''+' )'
                   +default_sort(53,'t_op_seae','','desc'));
  t_op_seae.open ;
end;

procedure Tfrm_op_seae_bl.DBEdit41KeyPress(Sender: TObject; var Key: Char);
begin
  if bsSkinPageControl2.Visible then
    key_RxDBLookupCombo(Key,RxDBLookupCombo16)
  else
    key_RxDBLookupCombo(Key,RxDBLookupCombo2);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo49KeyPress(Sender: TObject;
  var Key: Char);
begin
 key_RxDBLookupCombo(Key,RxDBLookupCombo14);
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo31KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_wwDBComboBox(Key,wwDBComboBox9);
end;

procedure Tfrm_op_seae_bl.N99Click(Sender: TObject);
var
  i,j,l:integer;
  s:string;
  seabandini:tinifile ;

begin
  seabandini:=Tinifile.Create(ExtractFilePath(application.ExeName)+'bandno.ini');
  frm_sys_tab_sort:=tfrm_sys_tab_sort.create(self);
  try
    frm_sys_tab_sort.ListBox2.Clear;
    for i:=0 to bsSkinPageControl1.PageCount-1 do begin
      frm_sys_tab_sort.ListBox2.Items.Add(bsSkinPageControl1.Pages[i].Caption+':'+bsSkinPageControl1.Pages[i].Name);
    end;
    frm_sys_tab_sort.ShowModal;
    if frm_sys_tab_sort.ModalResult=mrOk then begin
      for j:=0 to frm_sys_tab_sort.ListBox2.Items.Count-1 do begin
        s:=frm_sys_tab_sort.ListBox2.Items[j];
        l:=pos(':',s)+1;
        for i:=0 to bsSkinPageControl1.PageCount-1 do begin
          if bsSkinPageControl1.Pages[i].Name=copy(s,l,length(s)-l+1) then begin
            bsSkinPageControl1.Pages[i].PageIndex:=j;
            seabandini.Writeinteger('seaexp',copy(s,l,length(s)-l+1),j);
          end;
        end;
      end;
    end;
  finally
    FreeAndNil(frm_sys_tab_sort);
    freeandnil(seabandini);
  end;
end;

procedure Tfrm_op_seae_bl.setconcolor;
  procedure consetcolor(fielname:String);
  var
    i:integer;
    scolor:string;
  begin
    scolor:=get_parameters_value(144,'clInfoBk');
    with bsSkinTabSheet1 do begin
      for i:=0 to ControlCount-1 do begin
         if Controls[i] is TwwDBComboBox then begin
           if TwwDBComboBox(Controls[i]).DataField=fielname then begin
             TwwDBComboBox(Controls[i]).Color:=StringToColor(scolor);
             exit;
           end;
         end else if Controls[i] is TwwDBLookupCombo then begin
           if TwwDBLookupCombo(Controls[i]).DataField=fielname then begin
             TwwDBLookupCombo(Controls[i]).Color:=StringToColor(scolor);
             exit;
           end;
         end else if Controls[i] is TDBEdit then begin
           if TDBEdit(Controls[i]).DataField=fielname then begin
             TDBEdit(Controls[i]).Color:=StringToColor(scolor);
             exit;
           end;
         end else if Controls[i] is TwwDBDateTimePicker then begin
           if TwwDBDateTimePicker(Controls[i]).DataField=fielname then begin
             TwwDBDateTimePicker(Controls[i]).Color:=StringToColor(scolor);
             exit;
           end;
         end else if Controls[i] is TDBMemo then begin
           if TDBMemo(Controls[i]).DataField=fielname then begin
             TDBMemo(Controls[i]).Color:=StringToColor(scolor);
             exit;
           end;
         end else if Controls[i] is TRxDBLookupCombo then begin
           if TRxDBLookupCombo(Controls[i]).DataField=fielname then begin
             TRxDBLookupCombo(Controls[i]).Color:=StringToColor(scolor);
             exit;
           end;
         end;
      end;
    end;
    with bsSkinPanel1 do begin
      for i:=0 to ControlCount-1 do begin
         if Controls[i] is TDBEdit then begin
           if TDBEdit(Controls[i]).DataField=fielname then begin
             TDBEdit(Controls[i]).Color:=StringToColor(scolor);
             exit;
           end;
         end else if Controls[i] is TRxDBLookupCombo then begin
           if TRxDBLookupCombo(Controls[i]).DataField=fielname then begin
             TRxDBLookupCombo(Controls[i]).Color:=StringToColor(scolor);
             exit;
           end;
         end;
      end;
    end;

  end;
begin
  frm_data_share.t_code_empty.Filtered:=false;
  frm_data_share.t_code_empty.Filter:='<27><>=''t_op_seae''';
  frm_data_share.t_code_empty.Filtered:=true;
  frm_data_share.t_code_empty.First;
  while not frm_data_share.t_code_empty.Eof do
  begin
    if (frm_data_share.t_code_empty.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>') or (frm_data_share.t_code_empty.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>') then begin
      if t_op_seae2.DataSet.FindField('װ<>˷<EFBFBD>ʽ')<>nil then begin
        if pos('<27><>Ʊ',t_op_seae2.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').asstring)>0 then begin
        end else begin
          consetcolor(frm_data_share.t_code_empty.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring);
        end;
      end else begin
        consetcolor(frm_data_share.t_code_empty.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring);
      end;
    end else begin
      consetcolor(frm_data_share.t_code_empty.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring);
    end;
    frm_data_share.t_code_empty.next;
  end;


end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo15Change(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;

    if RxDBLookupCombo15.DisplayValues[1]='FREIGHT PREPAID' then begin
      t_op_seae2.DataSet['Ԥ<><D4A4><EFBFBD>ص<EFBFBD>']:=t_op_seae2.DataSet['װ<><D7B0><EFBFBD><EFBFBD>'];
      t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>']:='';
    end;
    if RxDBLookupCombo15.DisplayValues[1]='FREIGHT COLLECT' then begin
      t_op_seae2.DataSet['Ԥ<><D4A4><EFBFBD>ص<EFBFBD>']:='';
      t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>']:='DESTINATION';
    end;

end;

procedure Tfrm_op_seae_bl.bsSkinSpeedButton1Click(Sender: TObject);
begin
  if t_op_seae2.dataset.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').isnull or (t_op_seae2.DataSet['ί<>б<EFBFBD><D0B1><EFBFBD>']='') then begin
    t_op_seae2.DataSet.Edit;
    if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>ڹ<EFBFBD><DAB9><EFBFBD>').Asstring)='<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>' then
      t_op_seae2.DataSet['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(1,subComp,department,employee,t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>'])
    else
      t_op_seae2.DataSet['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(1,subComp,department,employee,t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
  end;

end;

procedure Tfrm_op_seae_bl.bsSkinButton31Click(Sender: TObject);
begin
  sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3>ڵ<EFBFBD>֤',2,t_op_seae2,nil,nil,nil,t_op_seae_fen1,nil,nil,nil,nil,nil,nil);

end;

procedure Tfrm_op_seae_bl.bsSkinButton45Click(Sender: TObject);
var
  tempstr:widestring;
begin
  if psqlstr<>'' then begin
    tempstr:=psqlstr;
    t_op_seae.close;
    if t_op_seae.sql.Text<>'' then
      psqlstr:=t_op_seae.sql.Text;
    t_op_seae.sql.clear;
    t_op_seae.sql.add(tempstr);
    t_op_seae.Open;
  end;
end;

procedure Tfrm_op_seae_bl.wwDBComboBox9DropDown(Sender: TObject);
var
  aQuery:TAdoQuery;
begin
  wwDBComboBox9.Items.Clear;
  if t_op_seae2.DataSet.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD>Դ').AsString='' then begin
    exit;
  end;

  aQuery:=CreateAdoQuery;
  try
    with aQuery do begin
      close;sql.Clear;
      sql.Add('select <20><>Դ<EFBFBD><D4B4>ϸ from t_code_source_dl where ҵ<><D2B5><EFBFBD><EFBFBD>Դ='''+t_op_seae2.DataSet.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD>Դ').AsString+''' order by <20><>Դ<EFBFBD><D4B4>ϸ ');
      open;
      first;
      while not eof do begin
        wwDBComboBox9.Items.Add(FieldByName('<27><>Դ<EFBFBD><D4B4>ϸ').AsString);
        next;
      end;
    end;
  finally
    FreeAndNil(aQuery);
  end;

end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo31Change(Sender: TObject);
begin
  t_op_seae2.DataSet.FieldByName('<27><>Դ<EFBFBD><D4B4>ϸ').AsString:='';
end;

procedure Tfrm_op_seae_bl.wwDBComboBox9KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo9);
end;

procedure Tfrm_op_seae_bl.N103Click(Sender: TObject);
begin
  if t_op_seae2.dataset.state in [dsedit,dsinsert] then t_op_seae2.dataset.post;

  if t_op_seae2.dataset.IsEmpty then exit;
  t_op_seae2.DataSet.Edit;
  t_op_seae2.DataSet.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString);
  t_op_seae2.DataSet.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString);
  t_op_seae2.DataSet.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString);
  t_op_seae2.DataSet.FieldByName('<27><><EFBFBD>յ<EFBFBD><D5B5><EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD>յ<EFBFBD><D5B5><EFBFBD>').AsString);
  t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>').AsString);
  t_op_seae2.DataSet.FieldByName('<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>').AsString);
  t_op_seae2.DataSet.FieldByName('֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>').AsString);
  t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
  t_op_seae2.DataSet.FieldByName('<27><>ͷ').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><>ͷ').AsString);
  t_op_seae2.DataSet.FieldByName('<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>').AsString);

  t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
  t_op_seae2.DataSet.FieldByName('<27>ֵ<EFBFBD><D6B5>б<EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27>ֵ<EFBFBD><D6B5>б<EFBFBD>').AsString);
  t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ').AsString);
  t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д').AsString);
  t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString);
  t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString);

  t_op_seae2.DataSet.FieldByName('װ<><D7B0><EFBFBD><EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('װ<><D7B0><EFBFBD><EFBFBD>').AsString);
  t_op_seae2.DataSet.FieldByName('ж<><D0B6><EFBFBD><EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('ж<><D0B6><EFBFBD><EFBFBD>').AsString);
  t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>').AsString);
  t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>').AsString);
  t_op_seae2.DataSet.FieldByName('Ŀ<>ĵ<EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('Ŀ<>ĵ<EFBFBD>').AsString);
  t_op_seae2.DataSet.FieldByName('ǩ<><C7A9><EFBFBD>ص<EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('ǩ<><C7A9><EFBFBD>ص<EFBFBD>').AsString);
  t_op_seae2.DataSet.FieldByName('Ԥ<><D4A4><EFBFBD>ص<EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('Ԥ<><D4A4><EFBFBD>ص<EFBFBD>').AsString);

  t_op_seae2.DataSet.post;
end;

procedure Tfrm_op_seae_bl.N105Click(Sender: TObject);
var
  can_do:boolean;
  gdo,xdo:smallint;
begin
  if t_op_seae2.DataSet.IsEmpty then
    exit;
  if not do_data('0001',t_op_seae2.DataSet.FieldByName('¼<><C2BC><EFBFBD><EFBFBD>').asstring
                       ,t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>Ա').asstring
                       ,t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
                       ,t_op_seae2.DataSet.FieldByName('<27>ͷ<EFBFBD>Ա').asstring
                       ,''
                       ,'') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
    abort;
  end;

  if t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
  begin
    showmessage('<27><>Ʊҵ<C6B1><D2B5>״̬<D7B4>Ѿ<EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>״̬<D7B4><CCAC>');
    abort;
  end;

  t_ch_fee.close;
  t_ch_fee.Parameters[0].value:=t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
  t_ch_fee.open;
  can_do:=true;
  t_ch_fee.first;
  while not t_ch_fee.eof do
  begin
    if can_do then
    begin
      if (t_ch_fee.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
         (t_ch_fee.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
         (t_ch_fee.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
         (t_ch_fee.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
         (t_ch_fee.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
       begin
         can_do:=false;
         showmessage('<27><>Ʊҵ<C6B1><D2B5><EFBFBD>еķ<D0B5><C4B7><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD>ܷ<EFBFBD><DCB7>÷<EFBFBD><C3B7>ʣ<EFBFBD>');
         exit;
       end;
     end;
     t_ch_fee.next;
  end;

  gdo:=strtoint(get_parameters_value(137,'0'));
  xdo:=strtoint(get_parameters_value(138,'0'));
  t_ch_fee.close;


  if can_do then
   begin
     prnlist:=true;
     try
       t_op_seae2.DataSet.edit;
       t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
       t_op_seae2.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Now;
       if (gdo<>0) or (xdo<>0) then begin
         if trim(t_op_seae2.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><>ͨ<EFBFBD><CDA8>' then begin
           if gdo=1 then begin
             if t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
               t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
           end;
         end else if trim(t_op_seae2.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>' then begin
           if xdo=1 then begin
             if t_op_seae2.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
               t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=t_op_seae2.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
             end;
           end;
       end;
      t_op_seae2.DataSet.post;
     finally
       prnlist:=false;
     end;
  end;


end;

procedure Tfrm_op_seae_bl.t_op_fangdanBeforeEdit(DataSet: TDataSet);
begin
  op_befor_post(t_op_seae,'0001');

end;

procedure Tfrm_op_seae_bl.t_op_fangdanBeforeInsert(DataSet: TDataSet);
begin
  op_befor_post(t_op_seae,'0001');

end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo16KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_wwDBDateTimePicker(Key,wwDBDateTimePicker3);

end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo17KeyPress(Sender: TObject;
  var Key: Char);
begin
 key_RxDBLookupCombo(Key,RxDBLookupCombo43);
end;

procedure Tfrm_op_seae_bl.bsSkinButton47Click(Sender: TObject);
var
  book1:Tbookmark;
begin
  if t_op_seae2.DataSet=nil then
    exit;
  book1:=t_op_seae2.DataSet.GetBookmark;
  TAdoQuery(t_op_seae2.DataSet).Requery;
  t_op_seae2.DataSet.GotoBookmark(book1);
end;

procedure Tfrm_op_seae_bl.DownLoadPro(fname: string);
begin
end;

procedure Tfrm_op_seae_bl.UpLoadPro(fname: string);
begin
end;


procedure Tfrm_op_seae_bl.EDI1Click(Sender: TObject);
begin
  if t_op_seae.isempty then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD>е<EFBFBD><D0B5><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>EDI<44>ļ<EFBFBD><C4BC><EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_op_seae_edi_hk) then
      frm_op_seae_edi_hk:=tfrm_op_seae_edi_hk.Create(application);
    frm_op_seae_edi_hk.ShowModal;
  finally
    frm_op_seae_edi_hk.free;
    frm_op_seae_edi_hk:=nil;
  end;

end;

procedure Tfrm_op_seae_bl.bsSkinButton46Click(Sender: TObject);
begin
 sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>װ<EFBFBD>䵥',2,t_op_ctn.DataSource,nil,nil,nil,nil,nil,t_op_ctn1,nil,nil,nil,nil);

end;

procedure Tfrm_op_seae_bl.wwDBLookupCombo13Change(Sender: TObject);
begin
  if (t_op_ctn.State=dsedit)or(t_op_ctn.State=dsinsert) then
  begin
    if frm_data_share.t_code_ctn.Locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo13.text,[]) then
    begin
      t_op_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:=frm_data_share.t_code_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ'];
      t_op_ctn['<27><><EFBFBD><EFBFBD>']:=frm_data_share.t_code_ctn['<27><><EFBFBD><EFBFBD>'];
      t_op_ctn['<27>ߴ<EFBFBD>']:=frm_data_share.t_code_ctn['<27>ߴ<EFBFBD>'];
      t_op_ctn['<27><>Ƥ<EFBFBD><C6A4>']:=frm_data_share.t_code_ctn['<27><>Ƥ<EFBFBD><C6A4>'];
    end
    else
    begin
      t_op_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:='';
      t_op_ctn['<27><><EFBFBD><EFBFBD>']:='';
      t_op_ctn['<27>ߴ<EFBFBD>']:='';
      t_op_ctn['<27><>Ƥ<EFBFBD><C6A4>']:=0;
    end;
  end;
end;

procedure Tfrm_op_seae_bl.t_op_ctnAfterPost(DataSet: TDataSet);
begin
  update_ctn(t_op_ctn);
end;

procedure Tfrm_op_seae_bl.t_op_ctnAfterInsert(DataSet: TDataSet);
begin
  t_op_ctn['<27><><EFBFBD><EFBFBD>']:=t_op_ctn.DataSource.DataSet['<27><><EFBFBD><EFBFBD>'];
  t_op_ctn['<27><><EFBFBD><EFBFBD>']:=1;
  t_op_ctn['<27><>״̬']:='F';

end;

procedure Tfrm_op_seae_bl.t_op_ctnBeforeDelete(DataSet: TDataSet);
begin
 if t_op_ctn.RecordCount=1 then
  begin
    if t_op_ctn.DataSource.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD><EFBFBD>' then
    begin
      if (Trim(t_op_ctn.DataSource.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)<>'<27><><EFBFBD>ĵ<EFBFBD>') then begin
        showmessage('ҵ<><D2B5><EFBFBD><EFBFBD>װ<EFBFBD>䲻<EFBFBD><E4B2BB>Ϊ<EFBFBD>գ<EFBFBD><D5A3>㲻<EFBFBD><E3B2BB>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
        abort;
      end;
    end;
  end;
  op_befor_post(frm_op_seae.t_op_seae,'0001');
end;

procedure Tfrm_op_seae_bl.t_op_ctnBeforeEdit(DataSet: TDataSet);
begin
  op_befor_post(frm_op_seae.t_op_seae,'0001');
end;

procedure Tfrm_op_seae_bl.t_op_ctnBeforePost(DataSet: TDataSet);
begin
  if frm_data_share.t_code_ctn.Locate('<27><><EFBFBD><EFBFBD>',t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,[]) then
  begin
    t_op_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:=frm_data_share.t_code_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ'];
    if frm_data_share.t_code_ctn.FieldByName('<27>ߴ<EFBFBD>').asstring='20'then
      t_op_ctn['TEU']:=1*t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').asinteger;

    if (frm_data_share.t_code_ctn.FieldByName('<27>ߴ<EFBFBD>').asstring='40')OR
       (frm_data_share.t_code_ctn.FieldByName('<27>ߴ<EFBFBD>').asstring='45')then
      t_op_ctn['TEU']:=2*t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').asinteger;
  end
  else
  begin
    t_op_ctn['<27><><EFBFBD><EFBFBD>']:='';
    t_op_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:='';
    t_op_ctn['<27><><EFBFBD><EFBFBD>']:='';
    t_op_ctn['<27>ߴ<EFBFBD>']:='';
  end;

  table_before_post(t_op_ctn,'<27><><EFBFBD><EFBFBD>');
  table_before_post(t_op_ctn,'<27><><EFBFBD><EFBFBD>');
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo21Enter(Sender: TObject);
begin
  TRxDBLookupCombo(Sender).LookupDisplay:='Ӣ<><D3A2><EFBFBD><EFBFBD>;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>;<3B>ۿڴ<DBBF><DAB4><EFBFBD>'
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo21Exit(Sender: TObject);
begin
  TRxDBLookupCombo(Sender).LookupDisplay:='<27>ۿڴ<DBBF><DAB4><EFBFBD>'
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo21Change(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if t_op_seae2.DataSet.State in [dsinsert,dsedit] then
  begin
    if frm_data_share.t_code_loaport.Locate('<27>ۿڴ<DBBF><DAB4><EFBFBD>',RxDBLookupCombo21.DisplayValues[2],[])then
    begin
      t_op_seae2.DataSet['װ<><D7B0><EFBFBD><EFBFBD>']:=frm_data_share.t_code_loaport.fieldbyname('Ӣ<><D3A2><EFBFBD><EFBFBD>').asstring;
    end;
  end;

end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo22Change(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if t_op_seae2.DataSet.State in [dsinsert,dsedit] then
  begin
    if frm_data_share.t_code_loaport.Locate('<27>ۿڴ<DBBF><DAB4><EFBFBD>',RxDBLookupCombo22.DisplayValues[2],[])then
    begin
      t_op_seae2.DataSet['ж<><D0B6><EFBFBD><EFBFBD>']:=frm_data_share.t_code_loaport.fieldbyname('Ӣ<><D3A2><EFBFBD><EFBFBD>').asstring;
    end;
  end;

end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo7Change(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if t_op_seae2.DataSet.State in [dsinsert,dsedit] then
  begin
    if frm_data_share.t_code_loaport.Locate('<27>ۿڴ<DBBF><DAB4><EFBFBD>',RxDBLookupCombo7.DisplayValues[2],[])then
    begin
      t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>']:=frm_data_share.t_code_loaport.fieldbyname('Ӣ<><D3A2><EFBFBD><EFBFBD>').asstring;
    end;
  end;

end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo43Change(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if t_op_seae2.DataSet.State in [dsinsert,dsedit] then
  begin
    if frm_data_share.t_code_loaport.Locate('<27>ۿڴ<DBBF><DAB4><EFBFBD>',RxDBLookupCombo43.DisplayValues[2],[])then
    begin
      t_op_seae2.DataSet['Ŀ<>ĵ<EFBFBD>']:=frm_data_share.t_code_loaport.fieldbyname('Ӣ<><D3A2><EFBFBD><EFBFBD>').asstring;
    end;
  end;

end;

procedure Tfrm_op_seae_bl.wwDBComboBox8Change(Sender: TObject);
begin
  if wwDBComboBox8.Text='R<><52><EFBFBD><EFBFBD>' then begin
    bsSkinPanel2.Visible:=true;
    bsSkinPanel7.Visible:=false;
  end else if wwDBComboBox8.Text='DΣ<44><CEA3>Ʒ' then begin
    bsSkinPanel2.Visible:=false;
    bsSkinPanel7.Visible:=True;
  end else begin
    bsSkinPanel2.Visible:=false;
    bsSkinPanel7.Visible:=false;
  end;
end;

procedure Tfrm_op_seae_bl.RxDBLookupCombo8Change(Sender: TObject);
begin
  if t_op_seae2.DataSet=nil then
    exit;
  if t_op_seae2.DataSet.State in [dsinsert,dsedit] then
  begin
    if frm_data_share.t_code_loaport.Locate('<27>ۿڴ<DBBF><DAB4><EFBFBD>',RxDBLookupCombo8.DisplayValues[2],[])then
    begin
      t_op_seae2.DataSet['<27>ջ<EFBFBD><D5BB><EFBFBD>']:=frm_data_share.t_code_loaport.fieldbyname('Ӣ<><D3A2><EFBFBD><EFBFBD>').asstring;
    end;
  end;

end;

procedure Tfrm_op_seae_bl.Button2Click(Sender: TObject);
var
  sl:TStrings;
begin
  sl:=TStringList.Create;
  try
    sl.Text:=t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>').AsString;
    ShowMessage(sl.Strings[0]);
  finally
    FreeAndNil(sl);
  end;

end;

end.