DONGSHENG6/海运业务/u_op_seae_assistant.~pas

unit u_op_seae_assistant;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid,
  StdCtrls, DBCtrls, RxLookup, bsSkinCtrls, Mask, wwdbedit, Wwdotdot,
  Wwdbcomb, wwdbdatetimepicker, wwdblook, Menus, DBCtrlsEh, ExtCtrls,
  ComCtrls, bsSkinTabs, Grids, Wwdbigrd, Wwdbgrid, bsdbctrls,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP;

type
  Tfrm_op_seae_assistant = class(TForm)
    t_op_seae_assistant: TADOQuery;
    t_op_seae_assistant1: TDataSource;
    p_getMaxHblno: TADOStoredProc;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    t_op_seae_assistant_online: TADOQuery;
    Panel1: TPanel;
    bsSkinPanel3: TbsSkinPanel;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridMaskColumn;
    dxDBGrid1Column2: TdxDBGridMaskColumn;
    dxDBGrid1Column3: TdxDBGridColumn;
    StaticText1: TStaticText;
    PopupMenu2: TPopupMenu;
    N3: TMenuItem;
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet1: TbsSkinTabSheet;
    bsSkinTabSheet2: TbsSkinTabSheet;
    bsSkinPanel1: TbsSkinPanel;
    Label122: TLabel;
    Label121: TLabel;
    Label123: TLabel;
    Label38: TLabel;
    Label36: TLabel;
    Label125: TLabel;
    Label126: TLabel;
    Label15: TLabel;
    Label7: TLabel;
    Label124: TLabel;
    Label146: TLabel;
    Label145: TLabel;
    Label32: TLabel;
    Label21: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label30: TLabel;
    Label28: TLabel;
    Label31: TLabel;
    Label13: TLabel;
    Label163: TLabel;
    Label158: TLabel;
    Label165: TLabel;
    Label166: TLabel;
    Label167: TLabel;
    Label168: TLabel;
    Label169: TLabel;
    Label170: TLabel;
    Label33: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    bsSkinSpeedButton1: TbsSkinSpeedButton;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinButton9: TbsSkinButton;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton4: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    bsSkinButton8: TbsSkinButton;
    bsSkinButton12: TbsSkinButton;
    bsSkinButton13: TbsSkinButton;
    bsSkinButton14: TbsSkinButton;
    RxDBLookupCombo2: TRxDBLookupCombo;
    DBMemo33: TDBMemo;
    DBMemo34: TDBMemo;
    RxDBLookupCombo3: TRxDBLookupCombo;
    RxDBLookupCombo4: TRxDBLookupCombo;
    DBMemo35: TDBMemo;
    DBEdit9: TDBEdit;
    DBEdit7: TDBEdit;
    wwDBLookupCombo49: TwwDBLookupCombo;
    DBEdit63: TDBEdit;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    wwDBLookupCombo3: TwwDBLookupCombo;
    wwDBLookupCombo52: TwwDBLookupCombo;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    wwDBLookupCombo21: TwwDBLookupCombo;
    wwDBComboBox1: TwwDBComboBox;
    wwDBDateTimePicker4: TwwDBDateTimePicker;
    DBEdit25: TDBEdit;
    RxDBLookupCombo15: TRxDBLookupCombo;
    DBEdit26: TDBEdit;
    DBEdit27: TDBEdit;
    DBEdit5: TDBEdit;
    DBMemo38: TDBMemo;
    DBMemo37: TDBMemo;
    DBMemo39: TDBMemo;
    DBMemo40: TDBMemo;
    DBMemo41: TDBMemo;
    DBMemo42: TDBMemo;
    DBEdit80: TDBEdit;
    DBEdit81: TDBEdit;
    wwDBLookupCombo61: TwwDBLookupCombo;
    DBEdit82: TDBEdit;
    DBEdit83: TDBEdit;
    RxDBLookupCombo19: TRxDBLookupCombo;
    DBMemo6: TDBMemo;
    wwDBLookupCombo2: TwwDBLookupCombo;
    wwDBLookupCombo5: TwwDBLookupCombo;
    wwDBLookupCombo6: TwwDBLookupCombo;
    bsSkinButton21: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    bsSkinButton6: TbsSkinButton;
    bsSkinButton7: TbsSkinButton;
    bsSkinButton10: TbsSkinButton;
    bsSkinButton11: TbsSkinButton;
    wwDBLookupCombo1: TwwDBLookupCombo;
    DBEdit1: TDBEdit;
    bsSkinPanel10: TbsSkinPanel;
    lblhbl: TLabel;
    DBEditEh1: TDBEditEh;
    Label71: TLabel;
    DBMemo7: TDBMemo;
    Label72: TLabel;
    DBMemo8: TDBMemo;
    Label75: TLabel;
    DBMemo11: TDBMemo;
    DBMemo9: TDBMemo;
    Label74: TLabel;
    Label5: TLabel;
    DBMemo1: TDBMemo;
    bsSkinGroupBox1: TbsSkinGroupBox;
    Label103: TLabel;
    Label104: TLabel;
    Label105: TLabel;
    Label108: TLabel;
    Label6: TLabel;
    DBEdit77: TDBEdit;
    DBEdit72: TDBEdit;
    DBEdit73: TDBEdit;
    DBEdit74: TDBEdit;
    DBEdit75: TDBEdit;
    DBEdit76: TDBEdit;
    DBEdit36: TDBEdit;
    DBEdit37: TDBEdit;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    Label11: TLabel;
    DBEdit6: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    Label14: TLabel;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    DBEdit19: TDBEdit;
    Label16: TLabel;
    Label17: TLabel;
    DBEdit20: TDBEdit;
    DBEdit21: TDBEdit;
    DBEdit22: TDBEdit;
    DBEdit23: TDBEdit;
    DBEdit24: TDBEdit;
    DBEdit28: TDBEdit;
    Label18: TLabel;
    DBEdit29: TDBEdit;
    DBEdit30: TDBEdit;
    DBEdit31: TDBEdit;
    Label4: TLabel;
    DBEdit2: TDBEdit;
    Label35: TLabel;
    RxDBLookupCombo28: TRxDBLookupCombo;
    bsSkinSpeedButton2: TbsSkinSpeedButton;
    OpenDialog1: TOpenDialog;
    t_op_ctn_fendan1: TDataSource;
    wwDBLookupCombo4: TwwDBLookupCombo;
    wwDBLookupCombo7: TwwDBLookupCombo;
    t_op_ctn_fendan: TADOQuery;
    t_op_ctn_fendanctn_id: TAutoIncField;
    t_op_ctn_fendanAS_ID: TIntegerField;
    t_op_ctn_fendanDSDesigner: TStringField;
    t_op_ctn_fendanDSDesigner2: TStringField;
    t_op_ctn_fendanDSDesigner3: TStringField;
    t_op_ctn_fendanDSDesigner4: TIntegerField;
    t_op_ctn_fendanTEU: TIntegerField;
    t_op_ctn_fendanDSDesigner5: TStringField;
    t_op_ctn_fendanDSDesigner6: TStringField;
    t_op_ctn_fendanDSDesigner7: TStringField;
    t_op_ctn_fendanDSDesigner8: TIntegerField;
    t_op_ctn_fendanDSDesigner9: TStringField;
    t_op_ctn_fendanDSDesigner10: TBCDField;
    t_op_ctn_fendanDSDesigner11: TBCDField;
    t_op_ctn_fendanDSDesigner12: TStringField;
    t_op_ctn_fendanDSDesigner13: TStringField;
    t_op_ctn_fendanDSDesigner14: TStringField;
    t_op_ctn_fendanDSDesigner15: TStringField;
    t_pt_fendan: TADOQuery;
    t_pt_fendan1: TDataSource;
    bsSkinPanel4: TbsSkinPanel;
    wwDBGrid1: TwwDBGrid;
    bsSkinPanel5: TbsSkinPanel;
    bsSkinDBNavigator1: TbsSkinDBNavigator;
    bsSkinButton15: TbsSkinButton;
    Label12: TLabel;
    DBMemo2: TDBMemo;
    bsSkinButton16: TbsSkinButton;
    PopupMenu3: TPopupMenu;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    bsSkinButton61: TbsSkinButton;
    PopupMenu6: TPopupMenu;
    AFR1: TMenuItem;
    N180: TMenuItem;
    N181: TMenuItem;
    N185: TMenuItem;
    N186: TMenuItem;
    N182: TMenuItem;
    N183: TMenuItem;
    N184: TMenuItem;
    t_op_ctn_edi: TADOQuery;
    strngfld_op_ctnDSDesigner2: TStringField;
    strngfld_op_ctnDSDesigner6: TStringField;
    strngfld_op_ctnDSDesigner7: TStringField;
    strngfld_op_ctnDSDesigner8: TStringField;
    intgrfld_op_ctnDSDesigner9: TIntegerField;
    strngfld_op_ctnDSDesigner10: TStringField;
    bcdfld_op_ctnDSDesigner11: TBCDField;
    bcdfld_op_ctnDSDesigner12: TBCDField;
    strngfld_op_ctnDSDesigner14: TStringField;
    t_op_ctn_ediDSDesigner: TStringField;
    t_op_ctn_ediPO: TStringField;
    t_op_ctn_ediSKU: TStringField;
    t_op_ctn_ediSKU2: TStringField;
    t_op_ctn_ediUN: TStringField;
    t_op_ctn_ediHTS: TStringField;
    t_op_ctn_ediDSDesigner2: TStringField;
    t_op_ctn_ediDSDesigner3: TBCDField;
    intgrfld_op_ctnDSDesigner5: TIntegerField;
    intgrfld_op_ctnTEU: TIntegerField;
    strngfld_op_ctnDSDesigner4: TStringField;
    strngfld_op_ctnDSDesigner3: TStringField;
    atncfld_op_ctnctn_id: TAutoIncField;
    strngfld_op_ctnDSDesigner: TStringField;
    t_op_seae_edi: TADOQuery;
    t_op_ctn_detail_edi: TADOQuery;
    t_op_ctn_detail_edictn_id: TIntegerField;
    t_op_ctn_detail_ediDSDesigner: TIntegerField;
    t_op_ctn_detail_ediDSDesigner2: TStringField;
    t_op_ctn_detail_ediDSDesigner3: TBCDField;
    t_op_ctn_detail_ediDSDesigner4: TBCDField;
    t_op_ctn_detail_ediUN: TStringField;
    t_op_ctn_detail_ediHTS: TStringField;
    t_op_ctn_detail_ediDSDesigner5: TBCDField;
    AFRLCL1: TMenuItem;
    N9: TMenuItem;
    t_op_ctn_ediDSDesigner4: TStringField;
    bsSkinGroupBox17: TbsSkinGroupBox;
    lbl_1: TLabel;
    lbl_2: TLabel;
    lbl_3: TLabel;
    bsSkinGroupBox14: TbsSkinGroupBox;
    bsSkinButton67: TbsSkinButton;
    bsSkinButton69: TbsSkinButton;
    bsSkinButton70: TbsSkinButton;
    bsSkinButton68: TbsSkinButton;
    bsSkinGroupBox15: TbsSkinGroupBox;
    bsSkinButton71: TbsSkinButton;
    bsSkinButton72: TbsSkinButton;
    bsSkinButton73: TbsSkinButton;
    bsSkinButton65: TbsSkinButton;
    idhttp1: TIdHTTP;
    bsSkinButton17: TbsSkinButton;
    lbl_4: TLabel;
    lbl_5: TLabel;
    PopupMenu4: TPopupMenu;
    N10: TMenuItem;
    bsSkinGroupBox21: TbsSkinGroupBox;
    Label438: TLabel;
    Label440: TLabel;
    Label447: TLabel;
    Label450: TLabel;
    DBEdit243: TDBEdit;
    DBEdit244: TDBEdit;
    DBEdit251: TDBEdit;
    DBEdit254: TDBEdit;
    bsSkinGroupBox22: TbsSkinGroupBox;
    Label441: TLabel;
    Label443: TLabel;
    Label448: TLabel;
    Label451: TLabel;
    DBEdit246: TDBEdit;
    DBEdit247: TDBEdit;
    DBEdit252: TDBEdit;
    DBEdit255: TDBEdit;
    bsSkinGroupBox23: TbsSkinGroupBox;
    Label444: TLabel;
    Label446: TLabel;
    Label449: TLabel;
    Label452: TLabel;
    DBEdit249: TDBEdit;
    DBEdit250: TDBEdit;
    DBEdit253: TDBEdit;
    DBEdit256: TDBEdit;
    bsSkinSplitter1: TbsSkinSplitter;
    DBEdit32: TDBEdit;
    Label19: TLabel;
    procedure bsSkinPanel2Resize(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton4Click(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure bsSkinButton9Click(Sender: TObject);
    procedure t_op_seae_assistantAfterInsert(DataSet: TDataSet);
    procedure t_op_seae_assistantBeforeInsert(DataSet: TDataSet);
    procedure bsSkinButton8Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure DBEdit9KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit7KeyPress(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 DBEdit10KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit11KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBLookupCombo21KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit25KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBDateTimePicker4KeyPress(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 DBEdit5KeyPress(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 DBEdit83KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo2Change(Sender: TObject);
    procedure RxDBLookupCombo3Change(Sender: TObject);
    procedure RxDBLookupCombo4Change(Sender: TObject);
    procedure DBMemo40Change(Sender: TObject);
    procedure DBMemo41Change(Sender: TObject);
    procedure DBMemo41Exit(Sender: TObject);
    procedure DBMemo42Change(Sender: TObject);
    procedure DBMemo42Exit(Sender: TObject);
    procedure wwDBLookupCombo61Change(Sender: TObject);
    procedure RxDBLookupCombo19Change(Sender: TObject);
    procedure wwDBLookupCombo2Enter(Sender: TObject);
    procedure wwDBLookupCombo5Enter(Sender: TObject);
    procedure wwDBLookupCombo6Enter(Sender: TObject);
    procedure wwDBLookupCombo2Change(Sender: TObject);
    procedure wwDBLookupCombo5Change(Sender: TObject);
    procedure wwDBLookupCombo6Change(Sender: TObject);
    procedure wwDBLookupCombo2Exit(Sender: TObject);
    procedure wwDBLookupCombo5Exit(Sender: TObject);
    procedure wwDBLookupCombo6Exit(Sender: TObject);
    procedure wwDBLookupCombo2KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBLookupCombo5KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBLookupCombo6KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo2KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo3KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo4KeyPress(Sender: TObject; var Key: Char);
    procedure dxDBGrid1ColumnSorting(Sender: TObject;
      Column: TdxDBTreeListColumn; var Allow: Boolean);
    procedure t_op_seae_assistantBeforePost(DataSet: TDataSet);
    procedure bsSkinButton21Click(Sender: TObject);
    procedure bsSkinButton7Click(Sender: TObject);
    procedure bsSkinButton6Click(Sender: TObject);
    procedure bsSkinButton5Click(Sender: TObject);
    procedure bsSkinButton10Click(Sender: TObject);
    procedure bsSkinButton11Click(Sender: TObject);
    procedure wwDBLookupCombo1KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo19KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBLookupCombo1Enter(Sender: TObject);
    procedure wwDBLookupCombo1Exit(Sender: TObject);
    procedure wwDBLookupCombo1Change(Sender: TObject);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit7DblClick(Sender: TObject);
    procedure DBEdit7Exit(Sender: TObject);
    procedure RxDBLookupCombo15Change(Sender: TObject);
    procedure bsSkinButton12Click(Sender: TObject);
    procedure bsSkinButton13Click(Sender: TObject);
    procedure DBEditEh1EditButtons0Click(Sender: TObject;
      var Handled: Boolean);
    procedure t_op_seae_assistantAfterPost(DataSet: TDataSet);
    procedure bsSkinButton14Click(Sender: TObject);
    procedure dxDBGrid1Column1CustomDraw(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 N3Click(Sender: TObject);
    procedure bsSkinSpeedButton2Click(Sender: TObject);
    procedure wwDBLookupCombo4Change(Sender: TObject);
    procedure t_op_ctn_fendanAfterInsert(DataSet: TDataSet);
    procedure t_op_seae_assistantAfterScroll(DataSet: TDataSet);
    procedure t_op_ctn_fendanBeforeInsert(DataSet: TDataSet);
    procedure bsSkinButton15Click(Sender: TObject);
    procedure DBMemo33Click(Sender: TObject);
    procedure DBMemo34Click(Sender: TObject);
    procedure DBMemo35Click(Sender: TObject);
    procedure bsSkinButton16Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure bsSkinButton61Click(Sender: TObject);
    procedure AFR1Click(Sender: TObject);
    procedure bsSkinButton65Click(Sender: TObject);
    procedure bsSkinGroupBox17Click(Sender: TObject);
    procedure bsSkinGroupBox17MouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure bsSkinGroupBox17MouseEnter(Sender: TObject);
    procedure bsSkinGroupBox17MouseLeave(Sender: TObject);
    procedure bsSkinGroupBox17MouseUp(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure bsSkinButton17Click(Sender: TObject);
    procedure DBEdit7Change(Sender: TObject);
    procedure N10Click(Sender: TObject);
  private
    updates:boolean;

    function DoPost(_URL:string;_Referer:string;_Order:TStringList):String; //<2F><><EFBFBD><EFBFBD>ҳ<EFBFBD><D2B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    procedure SetState(response:string) ;
    function GetINFO(_s:string;_time:integer):string;
    function GetPosition(_Target, _S: String; _Time: Integer): Integer;
    function formatStr(_Str: String): String;


    procedure SetCDState(SHSJ,SHHZ,YDSJ,YDHZ,BGZT,TDFX,TDSJ,CKZZ,ZZSJ:string);
    procedure SaveState(_info, _time,_remark: string;_end:integer);

    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_op_seae_assistant: Tfrm_op_seae_assistant;

implementation

uses u_op_seae, u_main, my_sys_function, u_data_share,u_op_seae_assistant_qr ,
     u_send_msg, u_op_history, u_op_manifest, u_op_seae_hbl ;

{$R *.dfm}

procedure Tfrm_op_seae_assistant.bsSkinPanel2Resize(Sender: TObject);
var
  i:integer;
begin
  i:=round(bsSkinPanel2.width/10);
  bsSkinButton9.width:=i;
  bsSkinButton1.width:=i;
  bsSkinButton2.width:=i;
  bsSkinButton4.width:=i;
  bsSkinButton3.width:=i;
  bsSkinButton13.width:=i;
  bsSkinButton12.width:=i;
  bsSkinButton14.width:=i;
  bsSkinButton61.width:=i;
end;

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

procedure Tfrm_op_seae_assistant.bsSkinButton2Click(Sender: TObject);
begin
  table_post(t_op_seae_assistant);
end;

procedure Tfrm_op_seae_assistant.bsSkinButton4Click(Sender: TObject);
begin
  table_delete(t_op_seae_assistant);
end;

procedure Tfrm_op_seae_assistant.bsSkinButton3Click(Sender: TObject);
begin
  table_cancel(t_op_seae_assistant);
end;

procedure Tfrm_op_seae_assistant.bsSkinButton9Click(Sender: TObject);
var
  i:integer;
  str:widestring;
begin
  if t_op_seae_assistant.IsEmpty then
    exit;

{
  if dxDBGrid1.SelectedCount<1 then
  begin
    ShowMessage('ѡ<><D1A1><EFBFBD><EFBFBD>ӡ<EFBFBD>ֵ<EFBFBD>Ϊ0,<2C><>ѡ<EFBFBD><D1A1>');
    exit;
  end;
  if dxDBGrid1.SelectedCount>=0 then
  begin
    for i:=0 to dxDBGrid1.SelectedCount-1 do
    begin
      t_op_seae_assistant.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
        if i=0 then
          str:='('+t_op_seae_assistant.fieldbyname('AS_ID').asstring
        else
          str:=str+','+t_op_seae_assistant.fieldbyname('AS_ID').asstring;
    end;
  str:=str+')';

}
  if dxDBGrid1.SelectedCount>0 then
  begin
    for i:=0 to dxDBGrid1.SelectedCount-1 do begin
      t_op_seae_assistant.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
      if i=0 then
        str:='('+''''+t_op_seae_assistant.fieldbyname('AS_ID').asstring+''''
      else
        str:=str+','+''''+t_op_seae_assistant.fieldbyname('AS_ID').asstring+'''';
    end;
  end else begin
    str:='('+''''+t_op_seae_assistant.fieldbyname('AS_ID').asstring+'''';
  end;
  str:=str+')';



  t_pt_fendan.close;
  t_pt_fendan.sql.clear;
  t_pt_fendan.sql.add('select * from t_op_seae_assistant '
    +'where AS_ID in '+str
    +' order by AS_ID');
  t_pt_fendan.open;
  sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3>ڵ<EFBFBD>֤',2,t_pt_fendan1,t_op_seae_assistant.DataSource,nil,nil,nil,nil,nil,nil,nil,nil,nil);
end;

procedure Tfrm_op_seae_assistant.t_op_seae_assistantAfterInsert(
  DataSet: TDataSet);
var
  afield : variant;
  i: Integer;
  aAdoQuery,aAdoQuery2:TAdoQuery;
begin

  // <20><><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>

  if application.MessageBox('<27><><EFBFBD>Ƿ<EFBFBD>Ҫ<EFBFBD><D2AA>ֱ<EFBFBD><D6B1><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2>ֱ<EFBFBD><D6B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>뷢<EFBFBD><EBB7A2><EFBFBD><EFBFBD>\<5C>ջ<EFBFBD><D5BB><EFBFBD>\֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>Ϣ?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
  begin
    for i:=0 to (t_op_seae_assistant.DataSource.DataSet.fieldcount-1) do
    begin
      try
        if t_op_seae_assistant.FindField(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName)<>nil then
          t_op_seae_assistant[t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName]:=
            t_op_seae_assistant.DataSource.DataSet.fields[i].value;
      except
        ;
      end;
    end;
    t_op_seae_assistant['<27>ύȷ<E1BDBB><C8B7>']:=td_sate1 ;
    t_op_seae_assistant['<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>']:='ֱ<><D6B1>';
  aAdoQuery2:=CreateAdoQuery;
  with aAdoQuery2 do
  try
    Close;sql.Clear;
    sql.Add('select * from t_op_ams');
    sql.Add('where <20><><EFBFBD><EFBFBD>=:bsno');
    Parameters.ParamByName('bsno').Value:=t_op_seae_assistant.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
    Open;
    if not IsEmpty then begin

    t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD>绰']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD>绰').AsString;
    t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString;
    t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
    t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>').AsString;
    t_op_seae_assistant['<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD>绰']:=fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD>绰').AsString;
    t_op_seae_assistant['<27>ջ<EFBFBD><D5BB>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>']:=fieldbyname('<27>ջ<EFBFBD><D5BB>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString;
    t_op_seae_assistant['<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
    t_op_seae_assistant['<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>']:=fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>').AsString;
    t_op_seae_assistant['֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>ϵ<EFBFBD>绰']:=fieldbyname('֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>ϵ<EFBFBD>绰').AsString;
    t_op_seae_assistant['֪ͨ<CDA8>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>']:=fieldbyname('֪ͨ<CDA8>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString;
    t_op_seae_assistant['֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
    t_op_seae_assistant['֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>']:=fieldbyname('֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>').AsString;
    end;
    finally
      FreeAndNil(aAdoQuery2);
    end;
  end
  else
  begin
    for i:=0 to (t_op_seae_assistant.DataSource.DataSet.fieldcount-1) do
    begin
      try
        if (t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
        and(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName<>'<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>')
        and(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName<>'<27>ջ<EFBFBD><D5BB><EFBFBD>')
        and(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName<>'<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>')
        and(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName<>'֪ͨ<CDA8><D6AA>')
        and(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName<>'֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>')then
        if t_op_seae_assistant.FindField(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName)<>nil then
          t_op_seae_assistant[t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName]:=
            t_op_seae_assistant.DataSource.DataSet.fields[i].value;
      except
        ;
      end;
    end;
    t_op_seae_assistant['<27>ύȷ<E1BDBB><C8B7>']:=td_sate1 ;
    t_op_seae_assistant['<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>']:='<27>׵<EFBFBD>';
  aAdoQuery2:=CreateAdoQuery;
  with aAdoQuery2 do
  try
    Close;sql.Clear;
    sql.Add('select * from t_op_ams');
    sql.Add('where <20><><EFBFBD><EFBFBD>=:bsno');
    Parameters.ParamByName('bsno').Value:=t_op_seae_assistant.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
    Open;
    if not IsEmpty then begin
    t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD>绰']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD>绰').AsString;
    t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString;
    t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
    t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>']:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>').AsString;
    t_op_seae_assistant['<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD>绰']:=fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD>绰').AsString;
    t_op_seae_assistant['<27>ջ<EFBFBD><D5BB>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>']:=fieldbyname('<27>ջ<EFBFBD><D5BB>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString;
    t_op_seae_assistant['<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
    t_op_seae_assistant['<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>']:=fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>').AsString;
    t_op_seae_assistant['֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>ϵ<EFBFBD>绰']:=fieldbyname('֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>ϵ<EFBFBD>绰').AsString;
    t_op_seae_assistant['֪ͨ<CDA8>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>']:=fieldbyname('֪ͨ<CDA8>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString;
    t_op_seae_assistant['֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=fieldbyname('֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
    t_op_seae_assistant['֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>']:=fieldbyname('֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>').AsString;
    end;
    finally
      FreeAndNil(aAdoQuery2);
    end;    
  end;

  aAdoQuery:=CreateAdoQuery;
  with aAdoQuery do
  try

    Close;sql.Clear;
    sql.Add('select * from t_op_ctn');
    sql.Add('where <20><><EFBFBD><EFBFBD>=:bsno');
    Parameters.ParamByName('bsno').Value:=t_op_seae_assistant.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
    Open;First;
    while not eof do
    begin
      t_op_ctn_fendan.Insert;
      t_op_ctn_fendan.FieldByName('<27><><EFBFBD><EFBFBD>').Value:=FieldByName('<27><><EFBFBD><EFBFBD>').Value;
      t_op_ctn_fendan.FieldByName('<27>ߴ<EFBFBD>').Value:=FieldByName('<27>ߴ<EFBFBD>').Value;
      t_op_ctn_fendan.FieldByName('<27><><EFBFBD><EFBFBD>').Value:=FieldByName('<27><><EFBFBD><EFBFBD>').Value;
      t_op_ctn_fendan.FieldByName('<27><><EFBFBD><EFBFBD>').Value:=FieldByName('<27><><EFBFBD><EFBFBD>').Value;
      t_op_ctn_fendan.FieldByName('TEU').Value:=FieldByName('TEU').Value;
      t_op_ctn_fendan.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').Value:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').Value;
      t_op_ctn_fendan.FieldByName('<27><><EFBFBD><EFBFBD>').Value:=FieldByName('<27><><EFBFBD><EFBFBD>').Value;
      t_op_ctn_fendan.FieldByName('<27><><EFBFBD><EFBFBD>').Value:=FieldByName('<27><><EFBFBD><EFBFBD>').Value;
      t_op_ctn_fendan.FieldByName('<27><><EFBFBD><EFBFBD>').Value:=FieldByName('<27><><EFBFBD><EFBFBD>').Value;
      t_op_ctn_fendan.FieldByName('<27><><EFBFBD><EFBFBD>').Value:=FieldByName('<27><><EFBFBD><EFBFBD>').Value;
      t_op_ctn_fendan.FieldByName('<27><>װ').Value:=FieldByName('<27><>װ').Value;
      t_op_ctn_fendan.FieldByName('<27><><EFBFBD><EFBFBD>').Value:=FieldByName('<27><><EFBFBD><EFBFBD>').Value;
      t_op_ctn_fendan.FieldByName('<27><><EFBFBD><EFBFBD>').Value:=FieldByName('<27><><EFBFBD><EFBFBD>').Value;
      t_op_ctn_fendan.post;
      Next;
    end;
  finally
    Free;
  end;


end;

procedure Tfrm_op_seae_assistant.t_op_seae_assistantBeforeInsert(
  DataSet: TDataSet);
begin
  if t_op_seae_assistant.DataSource.DataSet.State=dsinsert then
    t_op_seae_assistant.DataSource.DataSet.post;
  if t_op_seae_assistant.DataSource.DataSet.ISEMPTY then
    abort;
end;

procedure Tfrm_op_seae_assistant.bsSkinButton8Click(Sender: TObject);
var
  afield : variant;
  i: Integer;
begin
  // ˢ<>¸<EFBFBD><C2B8><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>
  if t_op_seae_assistant.IsEmpty then
    exit;
  t_op_seae_assistant.edit;
  if application.MessageBox('<27><><EFBFBD>Ƿ<EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD>ֱ<EFBFBD><D6B1><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2>ֱ<EFBFBD><D6B1><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>\<5C>ջ<EFBFBD><D5BB><EFBFBD>\֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>Ϣ?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
  begin
    for i:=0 to (t_op_seae_assistant.DataSource.DataSet.fieldcount-1) do
    begin
      try
        if t_op_seae_assistant.FindField(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName)<>nil then
          t_op_seae_assistant[t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName]:=
            t_op_seae_assistant.DataSource.DataSet.fields[i].value;
      except
        ;
      end;
    end;
  end
  else
  begin
    for i:=0 to (t_op_seae_assistant.DataSource.DataSet.fieldcount-1) do
    begin
      try
        if (t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
        and(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName<>'<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>')
        and(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName<>'<27>ջ<EFBFBD><D5BB><EFBFBD>')
        and(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName<>'<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>')
        and(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName<>'֪ͨ<CDA8><D6AA>')
        and(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName<>'֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>')then
          if t_op_seae_assistant.FindField(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName)<>nil then
            t_op_seae_assistant[t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName]:=
               t_op_seae_assistant.DataSource.DataSet.fields[i].value;
      except
        ;
      end;
    end;
  end;
end;

procedure Tfrm_op_seae_assistant.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  frm_op_seae_assistant.Hide;
  frm_op_seae_assistant.ManualFloat(frm_op_seae_assistant.BoundsRect );
  action:=cafree;
  frm_op_seae_assistant:=nil;
end;

procedure Tfrm_op_seae_assistant.FormShow(Sender: TObject);
begin
  if not t_op_seae_assistant.active then
  t_op_seae_assistant.open;
  if not t_op_ctn_fendan.active then
     t_op_ctn_fendan.Open;
  try
    if strtobool(get_parameters_value(154,'false')) then
      t_op_seae_assistant_online.Open;
  except
    on E: Exception do
    begin
      ShowMessage(e.Message);
    end;
  end;
  updates:=false;

end;

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

procedure Tfrm_op_seae_assistant.DBEdit7KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_dbedit(Key,DBEdit1);
end;

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

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

procedure Tfrm_op_seae_assistant.wwDBDateTimePicker2KeyPress(
  Sender: TObject; var Key: Char);
begin
  key_wwDBLookupCombo(Key,wwDBLookupCombo3);
end;

procedure Tfrm_op_seae_assistant.wwDBLookupCombo3KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_wwDBLookupCombo(Key,wwDBLookupCombo52);
end;

procedure Tfrm_op_seae_assistant.wwDBLookupCombo52KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_dbedit(Key,DBEdit10);
end;

procedure Tfrm_op_seae_assistant.DBEdit10KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_dbedit(Key,DBEdit11);
end;

procedure Tfrm_op_seae_assistant.DBEdit11KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_wwDBLookupCombo(Key,wwDBLookupCombo21);
end;

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

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

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

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

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

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

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

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

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

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

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

procedure Tfrm_op_seae_assistant.DBEdit83KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_dbedit(Key,DBEdit80);
end;

procedure Tfrm_op_seae_assistant.RxDBLookupCombo2Change(Sender: TObject);
begin
  if (t_op_seae_assistant.State=dsinsert)or(t_op_seae_assistant.State=dsedit)then
  begin
    if RxDBLookupCombo2.DisplayValue<>'' then
      t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_shiper.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
      t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD>绰']:=frm_data_share.t_crm_client_shiper.fieldbyname('<27>绰').asstring;
      t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client_shiper.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
      t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD>˵紫']:=frm_data_share.t_crm_client_shiper.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
      t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>']:=frm_data_share.t_crm_client_shiper.fieldbyname('<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD>').asstring;
      t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client_shiper.fieldbyname('<27><>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>').asstring;
  end;
 
end;

procedure Tfrm_op_seae_assistant.RxDBLookupCombo3Change(Sender: TObject);
begin
  if (t_op_seae_assistant.State=dsinsert)or(t_op_seae_assistant.State=dsedit)then
  begin
    if RxDBLookupCombo3.DisplayValue<>'' then
      t_op_seae_assistant['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_shouhuo.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
      t_op_seae_assistant['<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD>绰']:=frm_data_share.t_crm_client_shouhuo.fieldbyname('<27>绰').asstring;
      t_op_seae_assistant['<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client_shouhuo.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
      t_op_seae_assistant['<27>ջ<EFBFBD><D5BB>˵紫']:=frm_data_share.t_crm_client_shouhuo.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
      t_op_seae_assistant['<27>ջ<EFBFBD><D5BB>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>']:=frm_data_share.t_crm_client_shouhuo.fieldbyname('<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD>').asstring;
      t_op_seae_assistant['<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client_shouhuo.fieldbyname('<27><>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>').asstring;
  end;
end;

procedure Tfrm_op_seae_assistant.RxDBLookupCombo4Change(Sender: TObject);
begin
  if (t_op_seae_assistant.State=dsinsert)or(t_op_seae_assistant.State=dsedit)then
  begin
    if RxDBLookupCombo4.DisplayValue<>'' then
      t_op_seae_assistant['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_tongzhi.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
      t_op_seae_assistant['֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>ϵ<EFBFBD>绰']:=frm_data_share.t_crm_client_tongzhi.fieldbyname('<27>绰').asstring;
      t_op_seae_assistant['֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client_tongzhi.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
      t_op_seae_assistant['֪ͨ<CDA8>˵紫']:=frm_data_share.t_crm_client_tongzhi.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
      t_op_seae_assistant['֪ͨ<CDA8>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>']:=frm_data_share.t_crm_client_tongzhi.fieldbyname('<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD>').asstring;
      t_op_seae_assistant['֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client_tongzhi.fieldbyname('<27><>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>').asstring;
  end;
end;

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

procedure Tfrm_op_seae_assistant.DBMemo41Change(Sender: TObject);
begin
  if (t_op_seae_assistant.state=dsedit)or(t_op_seae_assistant.state=dsinsert)then
  begin
    t_op_seae_assistant['<27><><EFBFBD><EFBFBD>']:=total_num(DBMemo41);
  end;
end;

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

procedure Tfrm_op_seae_assistant.DBMemo42Change(Sender: TObject);
begin
  if (t_op_seae_assistant.state=dsedit)or(t_op_seae_assistant.state=dsinsert)then
  begin
    t_op_seae_assistant['<27><><EFBFBD><EFBFBD>']:=total_num(DBMemo42);
  end;
end;

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

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

procedure Tfrm_op_seae_assistant.RxDBLookupCombo19Change(Sender: TObject);
begin
  if (t_op_seae_assistant.state=dsinsert)or(t_op_seae_assistant.state=dsedit)then
  begin
    if RxDBLookupCombo19.DisplayValue='' then
      exit;
      t_op_seae_assistant['<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_assistant.wwDBLookupCombo2Enter(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_assistant.wwDBLookupCombo5Enter(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_assistant.wwDBLookupCombo6Enter(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_assistant.wwDBLookupCombo2Change(Sender: TObject);
begin
  if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo2.text,[]) then
  begin
    t_op_seae_assistant.edit;
    t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
    t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD>绰']:=frm_data_share.t_code_code.fieldbyname('<27>绰').asstring;
    t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
    t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD>˵紫']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
    t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD>').asstring;
    t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>').asstring;
  end;
end;

procedure Tfrm_op_seae_assistant.wwDBLookupCombo5Change(Sender: TObject);
begin
  if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo5.text,[]) then
  begin
    t_op_seae_assistant.edit;
    t_op_seae_assistant['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
    t_op_seae_assistant['<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD>绰']:=frm_data_share.t_code_code.fieldbyname('<27>绰').asstring;
    t_op_seae_assistant['<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
    t_op_seae_assistant['<27>ջ<EFBFBD><D5BB>˵紫']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
    t_op_seae_assistant['<27>ջ<EFBFBD><D5BB>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD>').asstring;
    t_op_seae_assistant['<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>').asstring;
  end;
end;

procedure Tfrm_op_seae_assistant.wwDBLookupCombo6Change(Sender: TObject);
begin
  if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo6.text,[]) then
  begin
    t_op_seae_assistant.edit;
    t_op_seae_assistant['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
    t_op_seae_assistant['֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>ϵ<EFBFBD>绰']:=frm_data_share.t_code_code.fieldbyname('<27>绰').asstring;
    t_op_seae_assistant['֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
    t_op_seae_assistant['֪ͨ<CDA8>˵紫']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
    t_op_seae_assistant['֪ͨ<CDA8>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD>').asstring;
    t_op_seae_assistant['֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>').asstring;
  end;
end;

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

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

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

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

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

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

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

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

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

procedure Tfrm_op_seae_assistant.dxDBGrid1ColumnSorting(Sender: TObject;
  Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
  Column_sort(Column,t_op_seae_assistant,'<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>');
end;

procedure Tfrm_op_seae_assistant.t_op_seae_assistantBeforePost(
  DataSet: TDataSet);
begin
  t_op_seae_assistant['Ӣ<>Ĵ<EFBFBD><C4B4><EFBFBD>']:=date_eng(t_op_seae_assistant.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime);

  try
    if t_op_seae_assistant.state in [dsedit] then
    if (t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD>').Value<>t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD>').oldValue) or (t_op_seae_assistant.FieldByName('<27><>װ').Value<>t_op_seae_assistant.FieldByName('<27><>װ').oldValue)
    or (t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD>').Value<>t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD>').oldValue) or (t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD>').Value<>t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD>').oldValue)
    or (t_op_seae_assistant.FieldByName('<27><>ͷ').Value<>t_op_seae_assistant.FieldByName('<27><>ͷ').oldValue) or (t_op_seae_assistant.FieldByName('<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>').Value<>t_op_seae_assistant.FieldByName('<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>').oldValue)
    then begin
      updates:=true;
    end;
  except

  end;
end;

procedure Tfrm_op_seae_assistant.bsSkinButton21Click(Sender: TObject);
begin
  frm_main.view_momo(t_op_seae_assistant1,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;

procedure Tfrm_op_seae_assistant.bsSkinButton7Click(Sender: TObject);
begin
  frm_main.view_momo(t_op_seae_assistant1,'<27><>ͷ');
end;

procedure Tfrm_op_seae_assistant.bsSkinButton6Click(Sender: TObject);
begin
  frm_main.view_momo(t_op_seae_assistant1,'<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>');
end;

procedure Tfrm_op_seae_assistant.bsSkinButton5Click(Sender: TObject);
begin
  frm_main.view_momo(t_op_seae_assistant1,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ');
end;

procedure Tfrm_op_seae_assistant.bsSkinButton10Click(Sender: TObject);
begin
  frm_main.view_momo(t_op_seae_assistant1,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;

procedure Tfrm_op_seae_assistant.bsSkinButton11Click(Sender: TObject);
begin
  frm_main.view_momo(t_op_seae_assistant1,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;

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

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

procedure Tfrm_op_seae_assistant.wwDBLookupCombo1Enter(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_assistant.wwDBLookupCombo1Exit(Sender: TObject);
begin
  wwDBLookupCombo1.Clear;
end;

procedure Tfrm_op_seae_assistant.wwDBLookupCombo1Change(Sender: TObject);
begin
  if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo1.text,[]) then
  begin
    t_op_seae_assistant.edit;
    t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
  end;
end;

procedure Tfrm_op_seae_assistant.DBEdit1KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_wwDBLookupCombo(Key,wwDBLookupCombo49);
end;

procedure Tfrm_op_seae_assistant.DBEdit7DblClick(Sender: TObject);
begin
   with p_getMaxHblno do begin
     close;
     Parameters.ParamByName('@hblhead').value:=DBEdit7.text+'%';
     open;
     if (not IsEmpty) and (FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString<>'') then begin
       lblhbl.Caption:=FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString;
       bsSkinPanel10.Visible:=true;
     end;
   end;
end;

procedure Tfrm_op_seae_assistant.DBEdit7Exit(Sender: TObject);
begin
  bsSkinPanel10.Visible:=false;
end;

procedure Tfrm_op_seae_assistant.RxDBLookupCombo15Change(Sender: TObject);
begin
     if RxDBLookupCombo15.DisplayValues[1]='FREIGHT PREPAID' then begin
      t_op_seae_assistant1.DataSet['Ԥ<><D4A4><EFBFBD>ص<EFBFBD>']:=t_op_seae_assistant1.DataSet['װ<><D7B0><EFBFBD><EFBFBD>'];
      t_op_seae_assistant1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>']:='';
    end;
    if RxDBLookupCombo15.DisplayValues[1]='FREIGHT COLLECT' then begin
      t_op_seae_assistant1.DataSet['Ԥ<><D4A4><EFBFBD>ص<EFBFBD>']:='';
      t_op_seae_assistant1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>']:='DESTINATION';
    end;
end;

procedure Tfrm_op_seae_assistant.bsSkinButton12Click(Sender: TObject);
var i:integer ;
    myfield:string ;
begin
  //<2F>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD><EFBFBD>ᵥȷ<E1B5A5><C8B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
  if t_op_seae_assistant.IsEmpty then exit ;
  if t_op_seae_assistant.State in [dsedit,dsinsert] then t_op_seae_assistant.post ;
  if (t_op_seae_assistant['<27>ύȷ<E1BDBB><C8B7>']<>td_sate1) then exit ;
  if t_op_seae_assistant.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString='' then
  begin
    showmessage('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>Ϊ<EFBFBD>ղ<EFBFBD><D5B2><EFBFBD><EFBFBD>ύȷ<E1BDBB>ϣ<EFBFBD>');
    exit ;
  end ;
  try
    t_op_seae_assistant_online.Close ;
    t_op_seae_assistant_online.Open;
    while t_op_seae_assistant_online.RecordCount>0 do t_op_seae_assistant_online.Delete ;
    t_op_seae_assistant.Edit ;
    t_op_seae_assistant['<27>ύȷ<E1BDBB><C8B7>']:=td_sate2 ;
    t_op_seae_assistant.Post ;
    ////add <20><><EFBFBD><EFBFBD> <20><><EFBFBD>ݿ<EFBFBD>
    t_op_seae_assistant_online.Insert ;
    for i:=0 to (t_op_seae_assistant_online.fieldcount-1) do
    begin
      try
        myfield:=t_op_seae_assistant_online.Fields[i].fieldName ;
        if t_op_seae_assistant.FindField(myfield)<>nil then
        t_op_seae_assistant_online[myfield]:=t_op_seae_assistant[myfield];
      except
        ;
      end;
    end ;
    t_op_seae_assistant_online['<27>ύȷ<E1BDBB><C8B7>']:=td_assate1 ;
    t_op_seae_assistant_online.post ;
  except
    showmessage('<27>ύʧ<E1BDBB><CAA7>');
    exit ;
  end ;
 //<2F><><EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
  if (yctx<>'<27><><EFBFBD><EFBFBD>') then  exit ;
  if (trim(get_parameters_value(136,'<27><>'))='<27><>') then exit;
  frm_send_msg:=Tfrm_send_msg.Create(self);
  try
    frm_data_share.t_crm_client_all.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',t_op_seae_assistant1.DataSet['ί<>е<EFBFBD>λ'],[]);
    frm_send_msg.t_crm_client_link.Open;
      frm_send_msg.memmsg.open;
      frm_send_msg.memmsg.insert;
      frm_send_msg.memmsg.FieldByName('<27>ռ<EFBFBD><D5BC><EFBFBD>λ').AsString:=t_op_seae_assistant1.DataSet['ί<>е<EFBFBD>λ'];
      if not frm_send_msg.t_crm_client_link.IsEmpty then begin
        frm_send_msg.t_crm_client_link.first;
        frm_send_msg.memmsg.FieldByName('<27>ռ<EFBFBD><D5BC><EFBFBD>').AsString:=frm_send_msg.t_crm_client_link['<27><><EFBFBD><EFBFBD>'];
      end;

      frm_send_msg.memmsg.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:='<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>:'+t_op_seae_assistant1.DataSet['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']+','
      +'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+t_op_seae_assistant1.DataSet.Fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+','
      +'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+t_op_seae_assistant1.DataSet.Fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+','
      +'<27><><EFBFBD>Σ<EFBFBD>'+t_op_seae_assistant1.DataSet.Fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+' '+'<27><><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7>';
    if trim(get_parameters_value(136,'<27><>'))='MSN' then
      frm_send_msg.checkboxMSN.Checked:=true;
    if trim(get_parameters_value(136,'<27><>'))='<27>ʼ<EFBFBD>' then
      frm_send_msg.checkboxMAIL.Checked:=true;
    if trim(get_parameters_value(136,'<27><>'))='<27><><EFBFBD><EFBFBD>' then
      frm_send_msg.checkboxMSG.Checked:=true;
     frm_send_msg.ShowModal;
  finally
    FreeAndNil(frm_send_msg);
  end;
end;

procedure Tfrm_op_seae_assistant.bsSkinButton13Click(Sender: TObject);
begin
  //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᵥȷ<E1B5A5><C8B7> ״̬
  if t_op_seae_assistant.IsEmpty then exit ;
  if t_op_seae_assistant['<27>ύȷ<E1BDBB><C8B7>']=td_sate3 then
  begin
     showmessage('<27><>ǰ״̬<D7B4><CCAC><EFBFBD><EFBFBD>ȡ<EFBFBD><C8A1>ȷ<EFBFBD>ϣ<EFBFBD>');
     exit ;
  end ;
  t_op_seae_assistant.Edit ;
  t_op_seae_assistant['<27>ύȷ<E1BDBB><C8B7>']:=td_sate1 ;
  t_op_seae_assistant.Post ;
  ////del <20><><EFBFBD><EFBFBD> <20><><EFBFBD>ݿ<EFBFBD>
  with frm_main.qryTmp,sql do
  begin
    close ; clear ;
    add('delete from t_op_seae_assistant_on where as_id=:as_id');
    parameters.ParamByName('as_id').value:=t_op_seae_assistant.Fieldbyname('as_id').AsInteger ;
    execsql ;
  end ;
end;

procedure Tfrm_op_seae_assistant.DBEditEh1EditButtons0Click(
  Sender: TObject; var Handled: Boolean);
begin
  //<2F><><EFBFBD><EFBFBD><EFBFBD>ᵥȷ<E1B5A5>ϸ<EFBFBD><CFB8>µ<EFBFBD><C2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
  if t_op_seae_assistant['<27>ύȷ<E1BDBB><C8B7>']=td_sate1 then  exit ;
  if t_op_seae_assistant.State in [dsedit,dsinsert] then t_op_seae_assistant.post ;
  frm_op_seae_assistant_qr:=Tfrm_op_seae_assistant_qr.Create(self);
  frm_op_seae_assistant_qr.showasid(t_op_seae_assistant,t_op_seae_assistant.FieldByName('as_id').asinteger) ;
  frm_op_seae_assistant_qr.Free ;
  t_op_seae_assistant.Refresh ;
  if (t_op_seae_assistant.DataSource.DataSet<>nil)and (t_op_seae_assistant.DataSource.DataSet.Active) then
    t_op_seae_assistant.DataSource.DataSet.Refresh ;
end;

procedure Tfrm_op_seae_assistant.t_op_seae_assistantAfterPost(
  DataSet: TDataSet);
begin
//  TAdoQuery(t_op_seae_assistant.DataSource.DataSet).Refresh;
  //<2F><><EFBFBD>ļ<EFBFBD><C4BC>س߸<D8B3><DFB8>»<EFBFBD><C2BB><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>
  try
    if updates then
    if MessageDlg('<27><><EFBFBD><EFBFBD><EFBFBD>ء<EFBFBD><D8A1>߻<EFBFBD><DFBB><EFBFBD>ͷ<EFBFBD><CDB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѷ<EFBFBD><D1B7><EFBFBD><EFBFBD>ı<EFBFBD>,<2C>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD>ݣ<EFBFBD>',mtWarning,[mbYes,mbNo],0)=mrYes then begin
      t_op_seae_assistant.DataSource.DataSet.Edit;
      t_op_seae_assistant.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD>'];
      t_op_seae_assistant.DataSource.DataSet['<27><>װ']:=t_op_seae_assistant['<27><>װ'];
      t_op_seae_assistant.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD>'];
      t_op_seae_assistant.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD>'];
      t_op_seae_assistant.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ'];
      t_op_seae_assistant.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
      t_op_seae_assistant.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
      t_op_seae_assistant.DataSource.DataSet['<27><>ͷ']:=t_op_seae_assistant['<27><>ͷ'];
      t_op_seae_assistant.DataSource.DataSet['<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>']:=t_op_seae_assistant['<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>'];
      t_op_seae_assistant.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д'];
      frm_op_seae.assup:=true;
      t_op_seae_assistant.DataSource.DataSet.post;
      updates:=false;
    end;
   finally
     frm_op_seae.assup:=false;
   end;

end;

procedure Tfrm_op_seae_assistant.bsSkinButton14Click(Sender: TObject);
begin
  //<2F><><EFBFBD>µ<EFBFBD><C2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>
  try
    if MessageDlg('ȷʵҪ<CAB5><D2AA><EFBFBD>»<EFBFBD><C2BB><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',mtWarning,[mbYes,mbNo],0)=mrYes then begin
      t_op_seae_assistant.DataSource.DataSet.Edit;
      if t_op_seae_assistant.FieldByName('<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>').AsString='ֱ<><D6B1>' then begin
        t_op_seae_assistant.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>'];
        t_op_seae_assistant.DataSource.DataSet['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=t_op_seae_assistant['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>'];
        t_op_seae_assistant.DataSource.DataSet['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=t_op_seae_assistant['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>'];
      end;
      t_op_seae_assistant.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
      t_op_seae_assistant.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
      t_op_seae_assistant.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д'];
      t_op_seae_assistant.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD>'];
      t_op_seae_assistant.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD>'];
      t_op_seae_assistant.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
      t_op_seae_assistant.DataSource.DataSet['װ<><D7B0><EFBFBD><EFBFBD>']:=t_op_seae_assistant['װ<><D7B0><EFBFBD><EFBFBD>'];
      t_op_seae_assistant.DataSource.DataSet['ж<><D0B6><EFBFBD><EFBFBD>']:=t_op_seae_assistant['ж<><D0B6><EFBFBD><EFBFBD>'];
      t_op_seae_assistant.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>'];
      t_op_seae_assistant.DataSource.DataSet['Ŀ<>ĵ<EFBFBD>']:=t_op_seae_assistant['Ŀ<>ĵ<EFBFBD>'];
      t_op_seae_assistant.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
      t_op_seae_assistant.DataSource.DataSet['<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>']:=t_op_seae_assistant['<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>'];
      t_op_seae_assistant.DataSource.DataSet['ǩ<><C7A9><EFBFBD>ص<EFBFBD>']:=t_op_seae_assistant['ǩ<><C7A9><EFBFBD>ص<EFBFBD>'];
      t_op_seae_assistant.DataSource.DataSet['ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_assistant['ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
      t_op_seae_assistant.DataSource.DataSet['<27><><EFBFBD>ѷ<EFBFBD>ʽ']:=t_op_seae_assistant['<27><><EFBFBD>ѷ<EFBFBD>ʽ'];

      t_op_seae_assistant.DataSource.DataSet['Ԥ<><D4A4><EFBFBD>ص<EFBFBD>']:=t_op_seae_assistant['Ԥ<><D4A4><EFBFBD>ص<EFBFBD>'];
      t_op_seae_assistant.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>'];
      t_op_seae_assistant.DataSource.DataSet['<27><>ͷ']:=t_op_seae_assistant['<27><>ͷ'];
      t_op_seae_assistant.DataSource.DataSet['<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>']:=t_op_seae_assistant['<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>'];


      t_op_seae_assistant.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD>'];
      t_op_seae_assistant.DataSource.DataSet['<27><>װ']:=t_op_seae_assistant['<27><>װ'];
      t_op_seae_assistant.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD>'];
      t_op_seae_assistant.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD>'];
      t_op_seae_assistant.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ'];
      t_op_seae_assistant.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
      t_op_seae_assistant.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
      t_op_seae_assistant.DataSource.DataSet.post;
    end;
  except

  end;

end;

procedure Tfrm_op_seae_assistant.dxDBGrid1Column1CustomDraw(
  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[dxDBGrid1Column3.Index])='ֱ<><D6B1>' then
    AColor:=clgreen;
  AFont.Color:=clblack;

end;

procedure Tfrm_op_seae_assistant.N3Click(Sender: TObject);
begin
  //ǿ<><C7BF>ת<EFBFBD><D7AA><EFBFBD>ɴ<EFBFBD>д
  if t_op_seae_assistant.state in [dsedit,dsinsert] then t_op_seae_assistant.post;

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

  t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=UpperCase(t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
  t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ').AsString:=UpperCase(t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ').AsString);
  t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д').AsString:=UpperCase(t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д').AsString);
  t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=UpperCase(t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD>').AsString);
  t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=UpperCase(t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD>').AsString);

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

procedure Tfrm_op_seae_assistant.bsSkinSpeedButton2Click(Sender: TObject);
var
  Edistring:TStrings;
  filenames:string;
begin
  EdiString:=TStringList.Create;
  try
    OpenDialog1.Execute;
    FileNames:=OpenDialog1.FileName;
    if FileNames<>'' then  begin
       EdiString.LoadFromFile(FileNames);
       NewEdiSEAE(EdiString,t_op_seae_assistant1);
     end;
  finally
    FreeAndNil(EdiString);
  end;

end;

procedure Tfrm_op_seae_assistant.wwDBLookupCombo4Change(Sender: TObject);
begin
  if (t_op_ctn_fendan.State=dsedit)or(t_op_ctn_fendan.State=dsinsert) then
  begin
    if frm_data_share.t_code_ctn.Locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo4.text,[]) then
    begin
      t_op_ctn_fendan['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:=frm_data_share.t_code_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ'];
      t_op_ctn_fendan['<27><><EFBFBD><EFBFBD>']:=frm_data_share.t_code_ctn['<27><><EFBFBD><EFBFBD>'];
      t_op_ctn_fendan['<27>ߴ<EFBFBD>']:=frm_data_share.t_code_ctn['<27>ߴ<EFBFBD>'];
    end
    else
    begin
      t_op_ctn_fendan['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:='';
      t_op_ctn_fendan['<27><><EFBFBD><EFBFBD>']:='';
      t_op_ctn_fendan['<27>ߴ<EFBFBD>']:='';
    end;
  end;

end;

procedure Tfrm_op_seae_assistant.t_op_ctn_fendanAfterInsert(
  DataSet: TDataSet);
begin
  t_op_ctn_fendan['<27><><EFBFBD><EFBFBD>']:=t_op_seae_assistant.FieldByName('AS_ID').AsInteger;
  t_op_ctn_fendan['<27><><EFBFBD><EFBFBD>']:=1;
end;

procedure Tfrm_op_seae_assistant.t_op_seae_assistantAfterScroll(
  DataSet: TDataSet);
begin
  t_op_ctn_fendan.Open;
end;

procedure Tfrm_op_seae_assistant.t_op_ctn_fendanBeforeInsert(
  DataSet: TDataSet);
begin
  if  t_op_seae_assistant.IsEmpty then
  begin
    ShowMessage('<27><><EFBFBD>ȵ<EFBFBD><C8B5><EFBFBD><EFBFBD>ӷֵ<D3B7><D6B5><EFBFBD>ť,<2C><><EFBFBD>ӷֵ<D3B7>');
    Abort;
  end;
  if t_op_seae_assistant.State in [dsEdit,dsInsert] then
    t_op_seae_assistant.Post;
end;

procedure Tfrm_op_seae_assistant.bsSkinButton15Click(Sender: TObject);
begin
  frm_main.view_momo(t_op_ctn_fendan1,'Ʒ<><C6B7>');

end;

procedure Tfrm_op_seae_assistant.DBMemo33Click(Sender: TObject);
begin
  wwDBLookupCombo2.Text:='Num:'+IntToStr(Length(DBMemo33.Lines[DBMemo33.CaretPos.Y]));
end;

procedure Tfrm_op_seae_assistant.DBMemo34Click(Sender: TObject);
begin
  wwDBLookupCombo5.Text:='Num:'+IntToStr(Length(DBMemo34.Lines[DBMemo34.CaretPos.Y]));

end;

procedure Tfrm_op_seae_assistant.DBMemo35Click(Sender: TObject);
begin
  wwDBLookupCombo6.Text:='Num:'+IntToStr(Length(DBMemo35.Lines[DBMemo35.CaretPos.Y]));
end;

procedure Tfrm_op_seae_assistant.bsSkinButton16Click(Sender: TObject);
begin
  frm_main.view_momo(t_op_seae_assistant1,'EDI<44><49>ע');

end;

procedure Tfrm_op_seae_assistant.N4Click(Sender: TObject);
begin
  t_op_seae_assistant.insert;

end;

procedure Tfrm_op_seae_assistant.N5Click(Sender: TObject);
var
  afield : variant;
  i,old_AS_ID: Integer;
  aAdoQuery:TAdoQuery;
begin

  if t_op_seae_assistant.IsEmpty then
  begin
    showmessage('û<>и<EFBFBD><D0B8><EFBFBD>ĸ<EFBFBD>壬<EFBFBD><E5A3AC><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD><EFBFBD>½<EFBFBD><C2BD><EFBFBD>');
    exit;
  end;


  try
    t_op_seae_assistant.AfterInsert:=nil;
    old_AS_ID:=t_op_seae_assistant.FieldByName('AS_ID').AsInteger;
    afield := vararraycreate([0,t_op_seae_assistant.fieldcount-1],varvariant);
    for i := 0 to (t_op_seae_assistant.fieldcount-1) do
    begin
      afield[i] :=t_op_seae_assistant.fields[i].value ;
    end;
    t_op_seae_assistant.append;
    for i := 0 to (t_op_seae_assistant.fieldcount-1) do
    begin
      if (t_op_seae_assistant.fields[i].FieldName<>'AS_ID')  then
        t_op_seae_assistant.fields[i].value := afield[i] ;
    end;
    t_op_seae_assistant.Post;


  aAdoQuery:=CreateAdoQuery;
  with aAdoQuery do
  try
    Close;sql.Clear;
    sql.Add('select * from t_op_ctn_fendan');
    sql.Add('where AS_ID=:AS_ID');
    Parameters.ParamByName('AS_ID').Value:=old_AS_ID;
    Open;First;
    while not eof do
    begin
      t_op_ctn_fendan.Insert;
      t_op_ctn_fendan.FieldByName('<27><><EFBFBD><EFBFBD>').Value:=FieldByName('<27><><EFBFBD><EFBFBD>').Value;
      t_op_ctn_fendan.FieldByName('<27>ߴ<EFBFBD>').Value:=FieldByName('<27>ߴ<EFBFBD>').Value;
      t_op_ctn_fendan.FieldByName('<27><><EFBFBD><EFBFBD>').Value:=FieldByName('<27><><EFBFBD><EFBFBD>').Value;
      t_op_ctn_fendan.FieldByName('<27><><EFBFBD><EFBFBD>').Value:=FieldByName('<27><><EFBFBD><EFBFBD>').Value;
      t_op_ctn_fendan.FieldByName('TEU').Value:=FieldByName('TEU').Value;
      t_op_ctn_fendan.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').Value:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').Value;
      t_op_ctn_fendan.FieldByName('<27><><EFBFBD><EFBFBD>').Value:=FieldByName('<27><><EFBFBD><EFBFBD>').Value;
      t_op_ctn_fendan.FieldByName('<27><><EFBFBD><EFBFBD>').Value:=FieldByName('<27><><EFBFBD><EFBFBD>').Value;
      t_op_ctn_fendan.FieldByName('<27><><EFBFBD><EFBFBD>').Value:=FieldByName('<27><><EFBFBD><EFBFBD>').Value;
      t_op_ctn_fendan.FieldByName('<27><><EFBFBD><EFBFBD>').Value:=FieldByName('<27><><EFBFBD><EFBFBD>').Value;
      t_op_ctn_fendan.FieldByName('<27><>װ').Value:=FieldByName('<27><>װ').Value;
      t_op_ctn_fendan.FieldByName('<27><><EFBFBD><EFBFBD>').Value:=FieldByName('<27><><EFBFBD><EFBFBD>').Value;
      t_op_ctn_fendan.FieldByName('<27><><EFBFBD><EFBFBD>').Value:=FieldByName('<27><><EFBFBD><EFBFBD>').Value;
      t_op_ctn_fendan.post;
      Next;
    end;
  finally
    Free;
  end;
  finally
      t_op_seae_assistant.AfterInsert:=t_op_seae_assistantAfterInsert;
  end;
end;

procedure Tfrm_op_seae_assistant.N8Click(Sender: TObject);
begin
  try
     t_op_seae_assistant.AfterInsert:=nil;

    if not assigned(frm_op_history) then
      frm_op_history:=tfrm_op_history.Create (self);
    frm_op_history.op_type.text:='1';
    frm_op_history.t_do_fee.Enabled:=false;
    frm_op_history.t_do_fee.DataSet:=t_op_seae_assistant;
    frm_op_history.t_do_fee.Enabled:=true;

    frm_op_history.t_op_ctn_fendan1.Enabled:=false;
    frm_op_history.t_op_ctn_fendan1.DataSet:=t_op_ctn_fendan;
    frm_op_history.t_op_ctn_fendan1.Enabled:=true;

    frm_op_history.bsSkinNotebook1.PageIndex:=1;

    frm_op_history.bsno:=t_op_seae_assistant.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
    frm_op_history.bsCardNo:=t_op_seae_assistant.DataSource.DataSet.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;

    frm_op_history.bsSkinNotebook1.PageIndex:=1;

    frm_op_history.ShowModal;
  finally
   t_op_seae_assistant.AfterInsert:=t_op_seae_assistantAfterInsert;
    frm_op_history.free;
    frm_op_history:=nil;
  end;

end;

procedure Tfrm_op_seae_assistant.bsSkinButton61Click(Sender: TObject);
var
  Pnt:Tpoint;
 
begin

  Pnt:=bsSkinButton61.ClientToScreen(Point(0,bsSkinButton61.Height));
  PopupMenu6.Popup(Pnt.x,Pnt.y);
end;

procedure Tfrm_op_seae_assistant.AFR1Click(Sender: TObject);
var
  str:widestring;
  i:integer;
  id,strbsno:string;
  TempStr:TStringlist;
  aQuery,aQuery2,aQuerycuststr,aQueryPort,aQueryShipper:TADOQuery;
  function getcustedi(cust:string):string;
  var
    aQuery:TADOQuery;
  begin
    aQuery:=CreateAdoQuery;
    result:='';
    try
      aQuery.Close;
      aQuery.SQL.Text:='select EDI<44><49><EFBFBD><EFBFBD> from t_crm_client where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='''+cust+'''';
      aQuery.Open;
      if not aQuery.IsEmpty then
        result:=aQuery.fieldbyname('EDI<44><49><EFBFBD><EFBFBD>').AsString;
    finally
      FreeAndNil(aQuery);
    end;
  end;
    function GetvesselEdi(avessel: String): String;
  var
  aQuery:TADOQuery;
  begin
  aQuery:=CreateAdoQuery;
  try
    with aQuery do begin
      Close;SQL.Clear;
      SQL.Add('Select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_code_vessel where Ӣ<>Ĵ<EFBFBD><C4B4><EFBFBD>='''+avessel+'''');
      Open;
      if IsEmpty then
        Result:='a'
      else
        Result:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
    end;
  finally
    FreeAndNil(aQuery);
  end;
  end;
  
begin
  if t_op_seae_assistant.IsEmpty then
    exit;

 if (t_op_seae_assistant.State=dsinsert)or(t_op_seae_assistant.State=dsedit) then
  t_op_seae_assistant.post;
  if MessageDlg('ȷʵҪ<CAB5><D2AA>ѡ<EFBFBD>е<EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>EDI<44><49><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',mtWarning,[mbyes,mbno],0)=mryes then begin
    if not t_op_seae_edi.active then t_op_seae_edi.Open;
    if not t_op_ctn_detail_edi.active then t_op_ctn_detail_edi.Open;
 try
    TempStr:=TStringList.Create;
    aQuery:=CreateAdoQuery;
    aQuery2:=CreateAdoQuery;
    aQueryPort:=CreateAdoQuery;
     aQueryShipper:=CreateAdoQuery;
    aQuery.sql.Text:='select * from t_op_ctn where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>';
    t_op_ctn_edi.close;
    t_op_ctn_edi.sql.Text:='select * from t_op_ctn_edi where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>';
    aQueryPort.sql.Text:='select <20><><EFBFBD><EFBFBD>˾,װ<><D7B0><EFBFBD><EFBFBD>,װ<>۴<EFBFBD><DBB4><EFBFBD>,ж<><D0B6><EFBFBD><EFBFBD>,ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,Ŀ<>ĵ<EFBFBD>,Ŀ<>ĵش<C4B5><D8B4><EFBFBD>,Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>,Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD><EFBFBD>,<2C>¶ȵ<C2B6>λ,<2C><><EFBFBD><EFBFBD><EFBFBD>¶<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD>¶<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD>¶<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ,<2C>˷<EFBFBD>Э<EFBFBD><D0AD><EFBFBD><EFBFBD>,ʪ<><CAAA>,<2C><><EFBFBD>յ<EFBFBD><D5B5><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>';
    aQueryPort.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD>'];
    aQueryPort.open;

    aQuerycuststr:=CreateAdoQuery;
    aQuerycuststr.sql.text:=' select <20>绰,<2C><><EFBFBD><EFBFBD>,<2C><>,<2C><><EFBFBD><EFBFBD> from t_crm_client where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>=:<3A>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>';
     aQueryShipper.sql.Text:='select * from t_code_edicode where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>=:<3A>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>';

        id:=get_id;
        t_op_seae_edi.Insert;
        t_op_seae_edi['<27><><EFBFBD><EFBFBD>']:=id;
        t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD>'];
        t_op_seae_edi['EDI<44><49><EFBFBD><EFBFBD>']:='AFR';
        t_op_seae_edi['EDI״̬']:='δ<><CEB4><EFBFBD><EFBFBD>';
        t_op_seae_edi['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
        t_op_seae_edi['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Date;
        t_op_seae_edi['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_assistant['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
        t_op_seae_edi['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae_assistant['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>'];
        t_op_seae_edi['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae_assistant['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>'];
{
          if length(t_op_seae_assistant.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString)<=12 then
            t_op_seae_edi['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae_assistant['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']
        else begin
             strbsno:=t_op_seae_assistant.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString;
            t_op_seae_edi['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=Copy(strbsno,Length(strbsno)-11,12)   ;
         end;

        if length(t_op_seae_assistant.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString)<=12 then
            t_op_seae_edi['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae_assistant['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']
        else begin
           strbsno:=t_op_seae_assistant.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString;
            t_op_seae_edi['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=Copy(strbsno,Length(strbsno)-11,12)   ;
         end;
         }
        t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>'];
        t_op_seae_edi['<27><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>']:=getcustedi(aQueryPort.fieldbyname('<27><><EFBFBD><EFBFBD>˾').AsString);
        TempStr.Text:=t_op_seae_assistant.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>').AsString;
        if TempStr.Count>=1 then
        t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=TempStr.Strings[0];
        if TempStr.Count>=2 then
        t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>ַ1']:=TempStr.Strings[1];
        if TempStr.Count>=3 then
        t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>ַ2']:=TempStr.Strings[2];
        if TempStr.Count>=4 then
        t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>ַ3']:=TempStr.Strings[3];
         t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
            if t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString<>'' then begin
               aQueryShipper.Close;
               aQueryShipper.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
               aQueryShipper.Open;
               if not aQueryShipper.IsEmpty then begin
                  t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
                  t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>ַ1').AsString:=aQueryShipper.FieldByName('<27><>ַ1').AsString;
                  t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>ַ2').AsString:=aQueryShipper.FieldByName('<27><>ַ2').AsString;
                  t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>ַ3').AsString:=aQueryShipper.FieldByName('<27><>ַ3').AsString;
                  t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
                  t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD>').AsString:=aQueryShipper.FieldByName('<27>ʱ<EFBFBD>').AsString;
                  t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString;
                  t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD><CFB5>').AsString:=aQueryShipper.FieldByName('<27><>ϵ<EFBFBD><CFB5>').AsString;
                  t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˵绰').AsString:=aQueryShipper.FieldByName('<27>绰').AsString;
                  t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><>').AsString;
               end else begin
               aQuerycuststr.close;
               aQuerycuststr.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
               aQuerycuststr.Open;
               if not aQuerycuststr.IsEmpty then begin
                 t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
                 t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
                 t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˵绰']:=aQuerycuststr.fieldbyname('<27>绰').AsString;
                 t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><>').AsString;
               end;
               end;
            end;
        TempStr.Text:=t_op_seae_assistant.fieldbyname('<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>').AsString;
        if TempStr.Count>=1 then
        t_op_seae_edi['<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=TempStr.Strings[0];
        if TempStr.Count>=2 then
        t_op_seae_edi['<27>ջ<EFBFBD><D5BB>˵<EFBFBD>ַ1']:=TempStr.Strings[1];
        if TempStr.Count>=3 then
        t_op_seae_edi['<27>ջ<EFBFBD><D5BB>˵<EFBFBD>ַ2']:=TempStr.Strings[2];
        if TempStr.Count>=4 then
        t_op_seae_edi['<27>ջ<EFBFBD><D5BB>˵<EFBFBD>ַ3']:=TempStr.Strings[3];
        t_op_seae_edi['<27>ջ<EFBFBD><D5BB><EFBFBD>']:=t_op_seae_assistant.FieldByName('<27>ջ<EFBFBD><D5BB><EFBFBD>').AsString;
            if t_op_seae_assistant.FieldByName('<27>ջ<EFBFBD><D5BB><EFBFBD>').AsString<>'' then begin
               aQueryShipper.Close;
               aQueryShipper.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=t_op_seae_assistant.FieldByName('<27>ջ<EFBFBD><D5BB><EFBFBD>').AsString;
               aQueryShipper.Open;
               if not aQueryShipper.IsEmpty then begin
                  t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
                  t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB>˵<EFBFBD>ַ1').AsString:=aQueryShipper.FieldByName('<27><>ַ1').AsString;
                  t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB>˵<EFBFBD>ַ2').AsString:=aQueryShipper.FieldByName('<27><>ַ2').AsString;
                  t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB>˵<EFBFBD>ַ3').AsString:=aQueryShipper.FieldByName('<27><>ַ3').AsString;
                  t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB>˳<EFBFBD><CBB3><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
                  t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD>ʱ<EFBFBD>').AsString:=aQueryShipper.FieldByName('<27>ʱ<EFBFBD>').AsString;
                  t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString;
                  t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD><CFB5>').AsString:=aQueryShipper.FieldByName('<27><>ϵ<EFBFBD><CFB5>').AsString;
                  t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB>˵绰').AsString:=aQueryShipper.FieldByName('<27>绰').AsString;
                  t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><>').AsString;
               end else begin
               aQuerycuststr.close;
               aQuerycuststr.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=t_op_seae_assistant.FieldByName('<27>ջ<EFBFBD><D5BB><EFBFBD>').AsString;
               aQuerycuststr.Open;
               if not aQuerycuststr.IsEmpty then begin
                 t_op_seae_edi['<27>ջ<EFBFBD><D5BB>˳<EFBFBD><CBB3><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
                 t_op_seae_edi['<27>ջ<EFBFBD><D5BB>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
                 t_op_seae_edi['<27>ջ<EFBFBD><D5BB>˵绰']:=aQuerycuststr.fieldbyname('<27>绰').AsString;
                 t_op_seae_edi['<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><>').AsString;
               end;
              end; 
            end;
       TempStr.Text:=t_op_seae_assistant.fieldbyname('֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>').AsString;
        if TempStr.Count>=1 then
        t_op_seae_edi['֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=TempStr.Strings[0];
        if TempStr.Count>=2 then
        t_op_seae_edi['֪ͨ<CDA8>˵<EFBFBD>ַ1']:=TempStr.Strings[1];
        if TempStr.Count>=3 then
        t_op_seae_edi['֪ͨ<CDA8>˵<EFBFBD>ַ2']:=TempStr.Strings[2];
        if TempStr.Count>=4 then
        t_op_seae_edi['֪ͨ<CDA8>˵<EFBFBD>ַ3']:=TempStr.Strings[3];
        t_op_seae_edi['֪ͨ<CDA8><D6AA>']:=t_op_seae_assistant.FieldByName('֪ͨ<CDA8><D6AA>').AsString;
            if t_op_seae_assistant.FieldByName('֪ͨ<CDA8><D6AA>').AsString<>'' then begin
                aQueryShipper.Close;
               aQueryShipper.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=t_op_seae_assistant.FieldByName('֪ͨ<CDA8><D6AA>').AsString;
               aQueryShipper.Open;
               if not aQueryShipper.IsEmpty then begin
                  t_op_seae_edi.fieldbyname('֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
                  t_op_seae_edi.fieldbyname('֪ͨ<CDA8>˵<EFBFBD>ַ1').AsString:=aQueryShipper.FieldByName('<27><>ַ1').AsString;
                  t_op_seae_edi.fieldbyname('֪ͨ<CDA8>˵<EFBFBD>ַ2').AsString:=aQueryShipper.FieldByName('<27><>ַ2').AsString;
                  t_op_seae_edi.fieldbyname('֪ͨ<CDA8>˵<EFBFBD>ַ3').AsString:=aQueryShipper.FieldByName('<27><>ַ3').AsString;
                  t_op_seae_edi.fieldbyname('֪ͨ<CDA8>˳<EFBFBD><CBB3><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
                  t_op_seae_edi.fieldbyname('֪ͨ<CDA8><D6AA><EFBFBD>ʱ<EFBFBD>').AsString:=aQueryShipper.FieldByName('<27>ʱ<EFBFBD>').AsString;
                  t_op_seae_edi.fieldbyname('֪ͨ<CDA8>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString;
                  t_op_seae_edi.fieldbyname('֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>ϵ<EFBFBD><CFB5>').AsString:=aQueryShipper.FieldByName('<27><>ϵ<EFBFBD><CFB5>').AsString;
                  t_op_seae_edi.fieldbyname('֪ͨ<CDA8>˵绰').AsString:=aQueryShipper.FieldByName('<27>绰').AsString;
                  t_op_seae_edi.fieldbyname('֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><>').AsString;
               end else begin
               aQuerycuststr.close;
               aQuerycuststr.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=t_op_seae_assistant.FieldByName('֪ͨ<CDA8><D6AA>').AsString;
               aQuerycuststr.Open;
               if not aQuerycuststr.IsEmpty then begin
                 t_op_seae_edi['֪ͨ<CDA8>˳<EFBFBD><CBB3><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
                 t_op_seae_edi['֪ͨ<CDA8>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
                 t_op_seae_edi['֪ͨ<CDA8>˵绰']:=aQuerycuststr.fieldbyname('<27>绰').AsString;
                 t_op_seae_edi['֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><>').AsString;
               end;
              end; 
            end;
        t_op_seae_edi['<27><><EFBFBD><EFBFBD>']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD>'];
        t_op_seae_edi['<27><><EFBFBD><EFBFBD>IMO']:=GetvesselEdi(t_op_seae_assistant.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);
        t_op_seae_edi['<27><><EFBFBD><EFBFBD>']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD>'];
        t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
        t_op_seae_edi['Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_assistant['Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
        t_op_seae_edi['װ<><D7B0><EFBFBD><EFBFBD>']:=aQueryPort['װ<><D7B0><EFBFBD><EFBFBD>'];
        t_op_seae_edi['װ<>۴<EFBFBD><DBB4><EFBFBD>']:=aQueryPort['װ<>۴<EFBFBD><DBB4><EFBFBD>'];
        t_op_seae_edi['ж<><D0B6><EFBFBD><EFBFBD>']:=aQueryPort['ж<><D0B6><EFBFBD><EFBFBD>'];
        t_op_seae_edi['ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=aQueryPort['ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
        t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>']:=aQueryPort['װ<><D7B0><EFBFBD><EFBFBD>'];
        t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=aQueryPort['װ<>۴<EFBFBD><DBB4><EFBFBD>'];
        t_op_seae_edi['Ŀ<>ĵ<EFBFBD>']:=aQueryPort['Ŀ<>ĵ<EFBFBD>'];
        t_op_seae_edi['Ŀ<>Ĵ<EFBFBD><C4B4><EFBFBD>']:=aQueryPort['Ŀ<>ĵش<C4B5><D8B4><EFBFBD>'];
        t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
        t_op_seae_edi['<27><>ͷ']:=t_op_seae_assistant['<27><>ͷ'];
        t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
        t_op_seae_edi['<27><><EFBFBD><EFBFBD>']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD>'];
        t_op_seae_edi['<27><>װ']:=t_op_seae_assistant['<27><>װ'];
        t_op_seae_edi['<27><><EFBFBD><EFBFBD>']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD>'];
        t_op_seae_edi['<27><><EFBFBD><EFBFBD>']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD>'];
        t_op_seae_edi['Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>']:=aQueryPort['Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>'];
        t_op_seae_edi['Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>']:=aQueryPort['Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>'];
        t_op_seae_edi['<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD><EFBFBD>']:=aQueryPort['<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD><EFBFBD>'];
        t_op_seae_edi['<27>¶ȵ<C2B6>λ']:=aQueryPort['<27>¶ȵ<C2B6>λ'];
        t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>¶<EFBFBD>']:=aQueryPort['<27><><EFBFBD><EFBFBD><EFBFBD>¶<EFBFBD>'];

        t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>¶<EFBFBD>']:=aQueryPort['<27><><EFBFBD><EFBFBD><EFBFBD>¶<EFBFBD>'];
        t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>¶<EFBFBD>']:=aQueryPort['<27><><EFBFBD><EFBFBD><EFBFBD>¶<EFBFBD>'];
        t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ']:=aQueryPort['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ'];
        t_op_seae_edi['<27>˷<EFBFBD>Э<EFBFBD><D0AD><EFBFBD><EFBFBD>']:=aQueryPort['<27>˷<EFBFBD>Э<EFBFBD><D0AD><EFBFBD><EFBFBD>'];
        t_op_seae_edi['ʪ<><CAAA>']:=aQueryPort['ʪ<><CAAA>'];
        t_op_seae_edi['<27><><EFBFBD>պ<EFBFBD><D5BA><EFBFBD>']:=aQueryPort['<27><><EFBFBD>յ<EFBFBD><D5B5><EFBFBD>'];
        t_op_seae_edi['<27><><EFBFBD><EFBFBD>Ŀ<EFBFBD><C4BF>']:='A';
        if TMenuItem(Sender).tag=1 then begin
          t_op_seae_edi['װ<><D7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='LCL';
          t_op_seae_edi['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ']:=0;
        end else begin
          t_op_seae_edi['װ<><D7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='FCL';
          t_op_seae_edi['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ']:=1;
        end;
          t_op_seae_edi['<27><><EFBFBD>䷽ʽ']:='PortToPort';
        t_op_seae_edi['<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>']:='House';
        t_op_seae_edi.Post;
        t_op_ctn_fendan.First;
        t_op_ctn_edi.Close;
        t_op_ctn_edi.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=id;
        t_op_ctn_edi.Open;

        while not t_op_ctn_fendan.Eof do begin
          t_op_ctn_edi.Insert;
          t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=id;
          t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=t_op_ctn_fendan['<27><><EFBFBD><EFBFBD>'];
          t_op_ctn_edi['<27>ߴ<EFBFBD>']:=t_op_ctn_fendan['<27>ߴ<EFBFBD>'];
          t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=t_op_ctn_fendan['<27><><EFBFBD><EFBFBD>'];
          t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=1;
          t_op_ctn_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:=t_op_ctn_fendan['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ'];
          t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=t_op_ctn_fendan['<27><><EFBFBD><EFBFBD>'];
          t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=t_op_ctn_fendan['<27><><EFBFBD><EFBFBD>'];
          if t_op_ctn_fendan.FieldByName('Ʒ<><C6B7>').AsString<>'' then
             t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=t_op_ctn_fendan['Ʒ<><C6B7>']
          else
           t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
          if t_op_ctn_fendan.FieldByName('<27><>ͷ').AsString<>'' then
            t_op_ctn_edi['<27><>ͷ']:=t_op_ctn_fendan['<27><>ͷ']
          else
            t_op_ctn_edi['<27><>ͷ']:=t_op_seae_assistant['<27><>ͷ'];

          if frm_data_share.t_code_ctn.Locate('<27><><EFBFBD><EFBFBD>',t_op_ctn_edi.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,[]) then
          begin
            if frm_data_share.t_code_ctn.FieldByName('<27>ߴ<EFBFBD>').asstring='20'then
            t_op_ctn_edi['TEU']:=1;
          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_edi['TEU']:=2;
         end;
          t_op_ctn_edi.Post;
            t_op_ctn_detail_edi.Insert;
            t_op_ctn_detail_edi['ctn_id']:=t_op_ctn_edi['ctn_id'];
            t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=t_op_ctn_fendan['<27><><EFBFBD><EFBFBD>'];
            t_op_ctn_detail_edi['<27><>װ']:=t_op_ctn_fendan['<27><>װ'];
            t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=t_op_ctn_fendan['<27><><EFBFBD><EFBFBD>'];
            t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=t_op_ctn_fendan['<27><><EFBFBD><EFBFBD>'];
            t_op_ctn_detail_edi.Post;


          t_op_ctn_fendan.Next;
        end;



   ShowMessage('<27><><EFBFBD>ɳɹ<C9B3>,<2C>뵽EDIͨ<49><CDA8>ģ<EFBFBD><C4A3><EFBFBD>鿴<EFBFBD><E9BFB4>');
   finally
   FreeAndNil(TempStr);
   FreeAndNil(aQuery);
   freeandnil(aQueryShipper);
   end;
  end;

end;

procedure Tfrm_op_seae_assistant.bsSkinButton65Click(Sender: TObject);
var aAdoQuery:TAdoQuery;
begin

  if t_op_seae_assistant.DataSource.dataset.fieldbyname('<27><>վ').asstring='' then
  begin
    showmessage('<27><>վ<EFBFBD><D5BE><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>');
    exit;
  end;

  if t_op_seae_assistant.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring='' then
  begin
    showmessage('<27><><EFBFBD>ᵥ<EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>');
    exit;
  end;

  if t_op_seae_assistant.DataSource.dataset.fieldbyname('<27><><EFBFBD><EFBFBD>˾').asstring='' then
  begin
    showmessage('<27><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>');
    exit;
  end;

  if t_op_seae_assistant.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='' then
  begin
    showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>');
    exit;
  end;

  if t_op_seae_assistant.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring='' then
  begin
    showmessage('<27><><EFBFBD>ᵥ<EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>');
    exit;
  end;


  aAdoQuery:=CreateAdoQuery;
  with  aAdoQuery do
  try
    close;sql.clear;
    sql.Add('select sum(CONVERT(DECIMAL(18,2),<2C><><EFBFBD><EFBFBD>)) <20><><EFBFBD><EFBFBD>,sum(CONVERT(DECIMAL(18,2),<2C><><EFBFBD><EFBFBD>)) <20><><EFBFBD><EFBFBD> ,sum(CONVERT(DECIMAL(18,2),<2C><><EFBFBD><EFBFBD>)) <20><><EFBFBD><EFBFBD> from t_op_seae_assistant where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
    Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=t_op_seae_assistant1.DataSet.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
    open;

    if  t_op_seae_assistant1.DataSet.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat<>aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat then
    begin
      showmessage('<27>ܼ<EFBFBD><DCBC><EFBFBD>:'+t_op_seae_assistant1.DataSet.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>:'+aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>').AsString);
      exit;
    end;


    if  t_op_seae_assistant1.DataSet.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat<>aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat then
    begin
      showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+t_op_seae_assistant1.DataSet.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>:'+aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>').AsString);
      exit;
    end;

    if  t_op_seae_assistant1.DataSet.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat<>aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat then
    begin
      if MessageDlg('<27>ܳ<EFBFBD><DCB3><EFBFBD>:'+t_op_seae_assistant1.DataSet.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>:'+aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,mtWarning,[mbYes,mbNo],0)=mrYes then
      else
      begin
        exit;
      end;
    end;



    close;sql.clear;
    sql.Add('select sum(CONVERT(DECIMAL(18,2),<2C><><EFBFBD><EFBFBD>)) <20><><EFBFBD><EFBFBD>,sum(CONVERT(DECIMAL(18,2),<2C><><EFBFBD><EFBFBD>)) <20><><EFBFBD><EFBFBD> ,sum(CONVERT(DECIMAL(18,2),<2C><><EFBFBD><EFBFBD>)) <20><><EFBFBD><EFBFBD>');
    sql.Add('from t_op_ctn_fendan where   as_id in (select as_id from  t_op_seae_assistant where  <20><><EFBFBD><EFBFBD>='+''''+t_op_seae_assistant1.DataSet.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''')');
    open;

    if  t_op_seae_assistant1.DataSet.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat<>aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat then
    begin
      showmessage('װ<><D7B0><EFBFBD>ܼ<EFBFBD><DCBC><EFBFBD>:'+t_op_seae_assistant1.DataSet.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>:'+aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>').AsString);
      exit;
    end;


    if  t_op_seae_assistant1.DataSet.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat<>aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat then
    begin
      showmessage('װ<><D7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+t_op_seae_assistant1.DataSet.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>:'+aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>').AsString);
      exit;
    end;

    if  t_op_seae_assistant1.DataSet.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat<>aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat then
    begin
      if MessageDlg('װ<><D7B0><EFBFBD>ܳ<EFBFBD><DCB3><EFBFBD>:'+t_op_seae_assistant1.DataSet.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>:'+aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,mtWarning,[mbYes,mbNo],0)=mrYes then
      else
      begin
        exit;
      end;
    end;

  finally
    Free;
  end;

 try
    if not assigned(frm_op_manifest) then
      frm_op_manifest:=Tfrm_op_manifest.Create(application);
      frm_op_manifest.t_op_seae1:=t_op_seae_assistant1;
      frm_op_manifest.t_op_seae2:=t_op_seae_assistant1.DataSet.DataSource;
      frm_op_manifest.ifmaster:=false;
      frm_op_manifest.RxDBLookupCombo1.Value:=t_op_seae_assistant1.DataSet.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>˾').asstring;

      frm_op_manifest.ShowModal;
  finally
    frm_op_manifest.free;
    frm_op_manifest:=nil;
  end;

end;




procedure Tfrm_op_seae_assistant.SetState(response: string);
var
_eventstart,_eventend,_statestart,_stateend:integer;
_temp:string;
begin
    _eventstart:=pos('name="__VIEWSTATE" id="',response);
    _temp:=copy(response,_eventstart+43,3000);
    _eventend:=pos('" />',_temp);
    _temp:=copy(_temp,0,_eventend-1);
    STATE:=_temp;
    //edit1.text:=_eventstart.Tostring();
    _statestart:=pos('id="__EVENTVALIDATION" value="',response);
    _temp:=copy(response,_statestart+30,3000);
    _stateend:=pos('" />',_temp);
    _temp:=copy(_temp,0,_stateend-1);
    EVENT:=_temp;
end;

function Tfrm_op_seae_assistant.DoPost(_URL:string;_Referer:string;_order:TStringList):String;
var
  Param:TStringList;
  RStream:TStringStream;
  post:AnsiString;
begin
  Param:=TStringList.Create;
  RStream:=TStringStream.Create('');
  Param:=_order;
  IdHTTP1.ProtocolVersion:=pv1_1;
  IdHTTP1.HTTPOptions:=IdHTTP1.HTTPOptions+[hoTreat302Like303];
  IdHTTP1.Request.Accept:='text/html, application/xhtml+xml, */*';
  IdHTTP1.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko';
  IdHTTP1.Request.AcceptEncoding:='gzip, deflate';
  IdHTTP1.Request.Host:='56.qdcdc.com';
  IdHTTP1.Request.ContentType:='application/x-www-form-urlencoded';

  IdHTTP1.Request.Referer:=_Referer;
  try
  IdHTTP1.Post(_URL,Param,RStream);
        except
      on e:Exception do//<2F>׳<EFBFBD><D7B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>쳣
      begin

    //doing something

        raise;

        end;
    end;
  result:=UTF8Decode(RStream.DataString);
end;

function Tfrm_op_seae_assistant.GetINFO(_s: string; _time: integer): string;
var _i,start1,end1:Integer;
_temp,str:string;
begin
        _i:=pos('<27><>ѯ<EFBFBD><D1AF><EFBFBD><EFBFBD>',_s);
        _temp:=copy(_S,_i,10000);
        //Memo1.Text:=_temp;

        start1:=GetPosition('<td>',_temp,_time);
        end1:=GetPosition('</td>',_temp,_time+2);

        str:=trim(formatstr(copy(_temp,start1,end1-start1)));
        result:=str;
end;

function Tfrm_op_seae_assistant.GetPosition(_Target, _S: String; _Time: Integer): Integer;
var _i,_j,_k,_L,Position:integer;
_temp:String;
begin
  _temp:=_s;
  _L:=Length(_Target);
  Position:=0;
  for _j := 0 to _Time-1 do
  begin
     _i:=pos(_Target,_temp);
     if _j<>_Time-1 then begin
       _temp:=copy(_temp,_i+_L,Length(_temp)-_i-_L);
       Position:=Position+_i+_L;
     end
     else begin
       Position:=Position+_i;
     end;
  end;

  result:=Position;
end;

function Tfrm_op_seae_assistant.formatStr(_Str: String): String;
var _S:String;
begin
    _S:=StringReplace(_Str, '<td>', '', [rfReplaceAll]);
    _S:=StringReplace(_S, '</td>', '', [rfReplaceAll]);
    _S:=StringReplace(_S, '<br />', ' ', [rfReplaceAll]);
    _S:=trim(_S);
    if (pos('   ',_S)>0) then begin
    _S:=StringReplace(_S, ' ', '', [rfReplaceAll]);
    end;
    result:=_S;
end;



procedure Tfrm_op_seae_assistant.SetCDState(SHSJ, SHHZ, YDSJ, YDHZ, BGZT,TDFX,TDSJ,CKZZ,ZZSJ: string);
begin
        if (SHSJ='')and (SHHZ='') then  lbl_1.Caption:=''
        else
        lbl_1.Caption:='Ԥ<><D4A4><EFBFBD>յ<EFBFBD>:'+SHHZ+#13+' ʱ<><CAB1>:'+SHSJ ;

        if (YDSJ='') and (YDHZ='') then  lbl_2.Caption:=''
        else
        lbl_2.Caption:='<27>˵<EFBFBD>״̬:'+YDHZ+#13+' ʱ<><CAB1>:'+YDSJ ;

        if (BGZT='') then  lbl_3.Caption:=''
        else
        lbl_3.Caption:='<27><><EFBFBD><EFBFBD>:'+BGZT ;


        if (TDFX='') and (TDSJ='') then  lbl_4.Caption:=''
        else
        lbl_4.Caption:='<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>:'+TDFX+#13+' ʱ<><CAB1>:'+TDSJ ;

        if (CKZZ='') and (ZZSJ='') then  lbl_5.Caption:=''
        else
        lbl_5.Caption:='<27><><EFBFBD><EFBFBD>װ<EFBFBD><D7B0>:'+CKZZ+#13+' ʱ<><CAB1>:'+ZZSJ ;


        if (Pos('<27><><EFBFBD><EFBFBD><EFBFBD>걨',SHHZ)=0) then begin
           lbl_1.font.color := clred ;
        end else begin
           lbl_1.font.color := clBlack ;
        end;

        if (Pos('<27><><EFBFBD><EFBFBD>',YDHZ)=0) then begin
           lbl_2.font.color := clred ;
        end else begin
           lbl_2.font.color := clBlack ;
        end;

        if (Pos('<27><>֤<EFBFBD><D6A4><EFBFBD><EFBFBD>',BGZT)=0) then begin
           lbl_3.font.color := clred ;
        end else begin
           lbl_3.font.color := clBlack ;
        end;

        if (Pos('<27>ѷ<EFBFBD><D1B7><EFBFBD>',TDFX)=0) then begin
           lbl_4.font.color := clred ;
        end else begin
           lbl_4.font.color := clBlack ;
        end;

        if (Pos('ͬ<><CDAC>װ<EFBFBD><D7B0>',CKZZ)=0) then begin
           lbl_5.font.color := clred ;
        end else begin
           lbl_5.font.color := clBlack ;
        end;
end;


procedure Tfrm_op_seae_assistant.SaveState(_info, _time,_remark: string;_end:integer);
var aAdoQuery:TAdoQuery;
STATUS:string;
AYear,AMonth,ADay,AHour,AMinute,ASecond, AMilliSecond:string;
bsno,_date:String;
begin
  bsno:=t_op_seae_assistant.FieldByName('as_id').AsString;
    aAdoQuery:=CreateAdoQuery;


    if _time<>'' then begin
    AYear:=inttostr(strtoint(Copy(_time,1,4)));
    AMonth:=(Copy(_time,GetPosition('-',_time,1)+1,GetPosition('-',_time,2)-GetPosition('-',_time,1)-2));
    ADay:=(Trim(Copy(_time,GetPosition('-',_time,2),2)));

    AHour:=(trim(Copy(_time,GetPosition(':',_time,1)-2,2)));
    AMinute:=(Copy(_time,GetPosition(':',_time,1)+1,GetPosition(':',_time,2)-GetPosition(':',_time,1)-2));
    AMilliSecond:='.000';
    ASecond:='00';
    _date:=''''+AYear+'-'+AMonth+'-'+ADay+' '+AHour+':'+AMinute+':'+ASecond+AMilliSecond+'''';
    end else _date:='null';
    aAdoQuery.Close;
    aAdoQuery.Sql.Clear;
    aAdoQuery.SQL.Add(' if (select count(*) from t_op_state_assistant where as_id='''+bsno+''' and ҵ<><D2B5>״̬='''+_info+''')=0');
    aAdoQuery.SQL.Add(' begin Insert Into t_op_state_assistant (as_id  ,ҵ<><D2B5>״̬ ,<2C>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,¼<><C2BC><EFBFBD><EFBFBD> ,¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>,<2C><>ע)');
    aAdoQuery.SQL.Add(' values                 ('''+bsno+''','''+_info+''' ,'+inttostr(_end)+','+_date+','''+employee+''','''+employee+''',getdate(),1,'''+_remark+''') end');
    aAdoQuery.SQL.Add(' else begin update t_op_state_assistant set <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>='+inttostr(_end)+',<2C><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>='+_date+',¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=getdate(),<2C><>ע='''+_remark+''' ');
    aAdoQuery.SQL.Add(' where as_id='''+bsno+''' and ҵ<><D2B5>״̬='''+_info+''' end');
    aAdoQuery.Close;
    {
  aAdoQuery.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>').Value:=EncodeDatetime(AYear,AMonth,ADay,AHour,AMinute,ASecond, AMilliSecond);   //DATASTR
  aAdoQuery.Parameters.ParamByName('¼<><C2BC><EFBFBD><EFBFBD>').Value:=employee;
  aAdoQuery.Parameters.ParamByName('¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=FormatDateTime('YYYY-MM-DD',Now);
  aAdoQuery.Parameters.ParamByName('ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>').Value:=True;
  aAdoQuery.Parameters.ParamByName('<27><>ע').Value:=_remark;   }
  //ShowMessage(aAdoQuery.SQL.text);
  aAdoQuery.ExecSQL;
end;

procedure Tfrm_op_seae_assistant.bsSkinGroupBox17Click(Sender: TObject);
var Param:TStringList;
    response,MBLNO,s,s_val:string;
    RStream:TStringStream;

    SHSJ,SHHZ,YDSJ,YDHZ,BGZT,TDFX,TDSJ,CKZZ,ZZSJ:string;

  str_memo:Tmemo;
  Str:TStrings;
  SenderHandphone,SenderEmail,  SenderFax:string;
  basecnt,i,beginpos,endpos,baseid:Integer;
  alist:TStringList;

  QYT,WEIGHT,ctncount:Double;
  aAdoQuery:TAdoQuery; 

begin
                  //<2F>򿪵<EFBFBD>¼ҳ<C2BC><D2B3>
    baseid:=-1;              
    MBLNO:=t_op_seae_assistant.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring;

    if Trim(MBLNO)='' then
    begin
      ShowMessage('<27><><EFBFBD>ᵥ<EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>');
      exit;

    end;
    Param:=TStringList.Create;
    response:=DoPost('http://56.qdcdc.com/cnm/login.aspx','',Param) ;

    SetState(response);
    //////////////////
    //<2F><><EFBFBD><EFBFBD><EFBFBD>ʺ<EFBFBD><CABA><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>½
    RStream:=TStringStream.Create('');
    Param.Clear;
    Param.Add('__VIEWSTATE='+state );
    Param.Add('__EVENTVALIDATION=' + EVENT);
    Param.Add('user_name=sdeport');
    Param.Add('password=sdeport');
    Param.Add('hdSuccess=true');

    response:=DoPost('http://56.qdcdc.com/cnm/Login.aspx','http://56.qdcdc.com/cnm/Login.aspx',Param);

    SetState(response);
    ////////////////////
    //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѯҳ<D1AF><D2B3>
    Param.Clear;
    response:=DoPost('http://56.qdcdc.com/cnm/MftQuery/BillExportQuery.aspx','',Param) ;

    SetState(response);
    /////////////////////

    Param.Clear;

    Param.Add('__VIEWSTATE='+state );
    Param.Add('__EVENTVALIDATION=' + EVENT);
    Param.Add('txtIMO=' );
    Param.Add('txtTransportName=' );
    Param.Add('txtVoyageNo=' );
    Param.Add('txtBillNo='+MBLNO );
    Param.Add('LinkButtonQuery=%E6%9F%A5%E8%AF%A2' );
    Param.Add('hdSelectRow=' );
    Param.Add('hdData=' );

    Param.Add('hdCols=%E5%BA%8F%E5%8F%B7%2C%E5%87%BA%E5%8F%A3%E6%8F%90%E5%8D%95%E5%8F%B7%2C%E9%A2%84%E9%85%8D%E8%88%B1%E5%8D%95%2C%E5%87%BA%E5%8F%A3%E8%BF%90%E6%8A%B5%E6%8A');
    Param[Param.Count-1]:=Param[Param.Count-1]+'%A5%E5%91%8A%2C%E5%87%BA%E5%8F%A3%E8%A3%85%E8%BD%BD%2C%E5%87%BA%E5%8F%A3%E7%90%86%E8%B4%A7%2C%E5%87%BA%E5%8F%A3%E6%8A%A5%E5%85%B3%E7%8A%B6%E6%80%81%2C%E7%A9%BA%E7%AE%B1%E9%AA%8C%E6%94%BE%2C%E6%8F%90%E5%8D%95%E6%94%BE%E8%A1%8C';

    Param.Add('hdChildHide=' );
    Param.Add('hdColsHide=' );
    Param.Add('hdColSpan=%E6%8F%90%E5%8D%95%E5%8F%B7' );
    Param.Add('hdMutiQuery=' );
    Param.Add('hdReturnResult=' );
    Param.Add('hdLoadMarkText=' );
    Param.Add('hdArrivalMarkText=' );
    Param.Add('hdEmptyResult=' );
    Param.Add('hdTalMarkText=' );


    response:=DoPost('http://56.qdcdc.com/cnm/MftQuery/BillExportQuery.aspx'
    ,'http://56.qdcdc.com/cnm/MftQuery/BillExportQuery.aspx',Param);

    idhttp1.Disconnect;
    _s:=response;

    //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѯ<EFBFBD><D1AF><EFBFBD><EFBFBD>
      //ShowMessage(GetPosition(edt1.Text,Memo1.Text,8).ToString());
      if (Pos('û<>в鵽<D0B2><E9B5BD><EFBFBD><EFBFBD>',_s)>0) then
      begin
         ShowMessage('û<>в鵽<D0B2><E9B5BD><EFBFBD><EFBFBD>');
      end
      else
      begin
        //1  <20><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>
        basecnt:=10;
        beginpos:=Pos('<tr class="selectRow TableInputTr ExportRow" value=',_s);
        endpos:=Pos('<td colspan="20" align="center">',_s);
        _s:=Copy(_s,beginpos,endpos-beginpos);


        alist:=TStringList.Create;
        for i:=0 to 25 do
        begin
          if _s<>'' then
          begin
            beginpos:=Pos('<td>',_s);
            endpos:=Pos('</td>',_s);
            s:=Copy(_s,beginpos+4,endpos-beginpos-4);
            _s:=Trim(Copy(_s,endpos+5,Length(_s)));
            alist.Add(StringReplace(Trim(s), #13#10, '', [rfReplaceAll]));
          end;
        end;


       // Memo1.Lines.AddStrings(alist);
        //Memo1.Lines.Add(IntToStr(alist.Count));

{
        SHSJ:=GetINFO(_s,35);   //Ԥ<><D4A4><EFBFBD>յ<EFBFBD>
        SHHZ:=GetINFO(_s,36);   // <20>˵<EFBFBD>״̬




        YDSJ:=GetINFO(_s,37);    //<2F>˵<EFBFBD><CBB5><EFBFBD><EFBFBD><EFBFBD>
        YDHZ:=GetINFO(_s,38);    //<2F>˵<EFBFBD>
        BGZT:=GetINFO(_s,46);     //<2F><><EFBFBD><EFBFBD>״̬
}
        SHSJ:=alist[11+baseid]; //Ԥ<><D4A4><EFBFBD>յ<EFBFBD> ʱ<><CAB1>
        SHHZ:=alist[12+baseid];  //
        YDSJ:=alist[13+baseid]; // <20>˵<EFBFBD>״̬  ʱ<><CAB1>
        YDHZ:=alist[14+baseid];
        if alist[15+baseid]<>'-' then
        BGZT:=alist[15+baseid];  //<2F><>֤<EFBFBD><D6A4><EFBFBD><EFBFBD>

        TDFX:=alist[17+baseid];  //װ<><D7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        TDSJ:=alist[16+baseid];
        CKZZ:=alist[20+baseid];   //װ<><D7B0>
        ZZSJ:=alist[19+baseid];

        IF Trim(alist[9+baseid])<>'' THEN
          QYT:=strtofloat(alist[9+baseid]);
        IF Trim(alist[10+baseid])<>'' THEN
        WEIGHT:=strtofloat(alist[10+baseid]);

        IF Trim(alist[8+baseid])<>'' THEN
        ctncount:=strtofloat(alist[8+baseid]);




        if (Pos('<27><><EFBFBD><EFBFBD><EFBFBD>걨',SHHZ)=0) then begin
           lbl_1.font.color := clred ;
        end else begin
           lbl_1.font.color := clBlack ;
        end;

        if (Pos('<27><><EFBFBD><EFBFBD>',YDHZ)=0) then begin
           lbl_2.font.color := clred ;
        end else begin
           lbl_2.font.color := clBlack ;
        end;

        if (Pos('<27><>֤<EFBFBD><D6A4><EFBFBD><EFBFBD>',BGZT)=0) then begin
           lbl_3.font.color := clred ;
        end else begin
           lbl_3.font.color := clBlack ;
        end;


        if (Pos('<27>ѷ<EFBFBD><D1B7><EFBFBD>',YDHZ)=0) then begin
           lbl_4.font.color := clred ;
        end else begin
           lbl_4.font.color := clBlack ;
        end;

        if (Pos('ͬ<><CDAC>װ<EFBFBD><D7B0>',BGZT)=0) then begin
           lbl_5.font.color := clred ;
        end else begin
           lbl_5.font.color := clBlack ;
        end;


        SetCDState(SHSJ,SHHZ,YDSJ,YDHZ,BGZT,TDFX,TDSJ,CKZZ,ZZSJ);

        if lbl_1.font.Color=clred then
        begin
          SaveState('Ԥ<><D4A4><EFBFBD>յ<EFBFBD>',SHSJ,SHHZ,0);
        end
        else begin
          SaveState('Ԥ<><D4A4><EFBFBD>յ<EFBFBD>',SHSJ,SHHZ,1);
        end;
        if lbl_2.font.Color=clred then
        begin
          SaveState('<27>˵<EFBFBD>״̬',YDSJ,YDHZ,0);
        end
        else begin
          SaveState('<27>˵<EFBFBD>״̬',YDSJ,YDHZ,1);
        end;
        if lbl_3.font.Color=clred then
        begin
          SaveState('<27><><EFBFBD><EFBFBD>','',BGZT,0);
        end
        else begin
          SaveState('<27><><EFBFBD><EFBFBD>','',BGZT,1);
        end;

        if lbl_4.font.Color=clred then
        begin
          SaveState('<27>ѷ<EFBFBD><D1B7><EFBFBD>',TDSJ,TDFX,0);
        end
        else begin
          SaveState('<27>ѷ<EFBFBD><D1B7><EFBFBD>',TDSJ,TDFX,1);
        end;

        if lbl_5.font.Color=clred then
        begin
          SaveState('ͬ<><CDAC>װ<EFBFBD><D7B0>',ZZSJ,CKZZ,0);
        end
        else begin
          SaveState('ͬ<><CDAC>װ<EFBFBD><D7B0>',ZZSJ,CKZZ,1);
        end;
      end;


     aAdoQuery:=createAdoQuery;
     with aAdoQuery do
     try
       Close;sql.Clear;
       sql.Add('select sum(<28><><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD>');
       sql.Add('from  t_op_ctn_fendan');
       sql.Add('where as_id=:as_id');
       Parameters.ParamByName('as_id').Value:=t_op_seae_assistant.FieldByName('as_id').AsInteger;
       Open;First;
       if  ctncount<>FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat then
        s_val:=' <20><><EFBFBD><EFBFBD> ';
     finally
       free;
     end;

      if  QYT<>t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat then
        s_val:=s_val+' <20><><EFBFBD><EFBFBD>' ;
      if  WEIGHT<>t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat then
        s_val:=s_val+' <20><><EFBFBD><EFBFBD>';

      if s_val<>'' then   
      showmessage('<27>걨<EFBFBD><EAB1A8><EFBFBD><EFBFBD>Ϊ:'+alist[8+baseid]+' <20>걨<EFBFBD><EAB1A8><EFBFBD><EFBFBD>Ϊ:'+alist[9+baseid]+' <20>걨<EFBFBD><EAB1A8><EFBFBD><EFBFBD>Ϊ:'+alist[10+baseid]+#13#10+ '<27>ԱȽ<D4B1><C8BD><EFBFBD>:'+s_val+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');






  {

     str_memo:=Tmemo.create(application);
     str_memo.visible:=false;
     str_memo.Parent:=frm_op_seae;
     str_memo.Lines.Add('<27><>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>:'+frm_data_share.t_sys_company.fieldByName('<27><><EFBFBD><EFBFBD>').AsString);
     str_memo.Lines.Add('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+employee);
     str_memo.Lines.Add('<27><><EFBFBD><EFBFBD>:'+frm_data_share.t_load_employee.fieldByName('<27><><EFBFBD><EFBFBD>').AsString);
     str_memo.Lines.Add('<27>绰:'+frm_data_share.t_load_employee.fieldByName('<27>̶<EFBFBD><CCB6>绰').AsString);
     str_memo.Lines.Add('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>:'+t_op_seae_assistant.fieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString+'  <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>:'+t_op_seae_assistant.fieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString);
     try
       if Trim(str_memo.lines.Text)<>'' then
       begin
         SMTP1.AuthType := satDefault;
         SMTP1.username:='admin@dongshengsoft.com';
         SMTP1.Password :='ds!@#)(*';
         SMTP1.Host :='smtpcom.263xmail.com';
         SMTP1.Port :=25;
         try
           SMTP1.Connect;
         except
           on e : Exception do
           begin
             ShowMessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+E.Message);
           end;
         end;
         if not SMTP1.Connected then
         begin
            Sleep(1000);
            SMTP1.Connect;
         end;
         try
         with IdMsg do
         begin
           body.Clear;
           ContentType:='us-ascii';
           CharSet:='GB2312';
           Body.Text :=str_memo.lines.Text;
           From.address :='admin@dongshengsoft.com';
           Recipients.EMailAddresses :='dongshengsoft@dongshengsoft.com';
           Subject:=frm_data_share.t_sys_company.fieldByName('<27><><EFBFBD><EFBFBD>').AsString+' ͨ<><CDA8><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD>ѯ';
         end;
         if not SMTP1.Connected then
         begin
            Sleep(1000);
            SMTP1.Connect;
         end;
          SMTP1.Send(IdMsg);
         // MessageDlg('<27><><EFBFBD>ͳɹ<CDB3>',mtConfirmation,[mbOK],0)
         finally
           SMTP1.Disconnect;
         end;
       end;
     except
     end;
     str_memo.free;

}
end;

procedure Tfrm_op_seae_assistant.bsSkinGroupBox17MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin

//   showmessage('bsSkinGroupBox17MouseDown');
  bsSkinGroupBox17.DefaultFont.Color:=clred;

end;

procedure Tfrm_op_seae_assistant.bsSkinGroupBox17MouseEnter(
  Sender: TObject);
begin
//   showmessage('bsSkinGroupBox17MouseEnter');
   bsSkinGroupBox17.DefaultFont.Name:='<27><><EFBFBD><EFBFBD>';
   bsSkinGroupBox17.DefaultFont.Color:=clNavy;
   bsSkinGroupBox17.Cursor:=crHandPoint;

end;

procedure Tfrm_op_seae_assistant.bsSkinGroupBox17MouseLeave(
  Sender: TObject);
begin
   bsSkinGroupBox17.DefaultFont.Name:='Arial';
   bsSkinGroupBox17.DefaultFont.Color:=clBlack;
   bsSkinGroupBox17.Cursor:=crDefault;

end;

procedure Tfrm_op_seae_assistant.bsSkinGroupBox17MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  bsSkinGroupBox17.DefaultFont.Color:=clNavy;

end;

procedure Tfrm_op_seae_assistant.bsSkinButton17Click(Sender: TObject);
var
  bok:Tbookmark;
  if_first:boolean;
  pkgs:integer;
  kgs,cbm:double;
  s,package:string;
  list1,list2,list3,list4:TStringList;
begin
  if t_op_ctn_fendan.IsEmpty then
    exit;
  t_op_seae_assistant.AfterPost:=nil;

  t_op_ctn_fendan.First;
  if_first:=true;
  pkgs:=0;
  kgs:=0.00;
  cbm:=0.00;
  bok:=t_op_ctn_fendan.GetBookmark;
  try
    list1:=TStringList.Create;
    list2:=TStringList.Create;
    list3:=TStringList.Create;
    list4:=TStringList.Create;
    t_op_ctn_fendan.DisableControls;
  while not t_op_ctn_fendan.Eof do
  begin
      if if_first then
      begin
        if (Trim(t_op_ctn_fendan.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring)<>'') then
          list1.Text:=t_op_ctn_fendan.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn_fendan.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
        list2.Text:=t_op_ctn_fendan.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+t_op_ctn_fendan.fieldbyname('<27><>װ').asstring;
        list3.Text:=t_op_ctn_fendan.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'KGS';
        list4.Text:=t_op_ctn_fendan.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'CBM';
        pkgs:=t_op_ctn_fendan.fieldbyname('<27><><EFBFBD><EFBFBD>').asinteger;
        kgs:=t_op_ctn_fendan.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
        cbm:=t_op_ctn_fendan.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
        package:=t_op_ctn_fendan.fieldbyname('<27><>װ').asstring;
        if_first:=false;
      end
      else
      begin
        if (Trim(t_op_ctn_fendan.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring)<>'') then
        list1.Add(t_op_ctn_fendan.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn_fendan.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
        list2.Add(t_op_ctn_fendan.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+t_op_ctn_fendan.fieldbyname('<27><>װ').asstring);
        list3.Add(t_op_ctn_fendan.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'KGS');
        list4.Add(t_op_ctn_fendan.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'CBM');
        pkgs:=pkgs+t_op_ctn_fendan.fieldbyname('<27><><EFBFBD><EFBFBD>').asinteger;
        kgs:=kgs+t_op_ctn_fendan.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
        cbm:=cbm+t_op_ctn_fendan.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
        package:=t_op_ctn_fendan.fieldbyname('<27><>װ').asstring;


      end;
    t_op_ctn_fendan.next;
  end;

  t_op_seae_assistant.edit;
  t_op_seae_assistant.FieldByName('<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>').asstring:=list1.Text;
  t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ').asstring:=list2.Text;
  t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring:=list3.Text;
  t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring:=list4.Text;
  t_op_seae_assistant.post;
  finally
    t_op_seae_assistant.AfterPost:=t_op_seae_assistantAfterPost;
    t_op_ctn_fendan.EnableControls;
    t_op_ctn_fendan.GotoBookmark(bok);
    list1.Free;
    list2.Free;
    list3.Free;
    list4.Free;
  end;

end;

procedure Tfrm_op_seae_assistant.DBEdit7Change(Sender: TObject);
  var aAdoQuery:TAdoQuery;
  SHSJ, SHHZ, YDSJ, YDHZ, BGZT,TDFX,TDSJ,CKZZ,ZZSJ: string;
  i:integer;
begin
    SHSJ:=''; SHHZ:=''; YDSJ:=''; YDHZ:=''; BGZT:='';
    TDFX:='';TDSJ:='';CKZZ:='';ZZSJ:='';
    SetCDState(SHSJ,SHHZ,YDSJ,YDHZ,BGZT,TDFX,TDSJ,CKZZ,ZZSJ);
    aAdoQuery:=CreateAdoQuery;
    aAdoQuery.Close;
    aAdoQuery.Sql.Clear;
    aAdoQuery.SQL.Add(' select * from t_op_state_assistant where as_id=:as_id and ҵ<><D2B5>״̬ in (''Ԥ<><D4A4><EFBFBD>յ<EFBFBD>'',''<27>˵<EFBFBD>״̬'',''<27><><EFBFBD><EFBFBD>'',''<27>ѷ<EFBFBD><D1B7><EFBFBD>'',''ͬ<><CDAC>װ<EFBFBD><D7B0>'') ');
    aAdoQuery.Parameters.ParamByName('as_id').Value:=t_op_seae_assistant.FieldByName('as_id').AsInteger;
    SHSJ:=''; SHHZ:=''; YDSJ:=''; YDHZ:=''; BGZT:='';
    aAdoQuery.open;
    with aAdoQuery do
    if Recordcount>0 then begin
    for i:=0 to Recordcount-1 do
    begin
      if FieldByName('ҵ<><D2B5>״̬').AsString='Ԥ<><D4A4><EFBFBD>յ<EFBFBD>' then begin
         SHHZ:=FieldByName('<27><>ע').AsString;
         SHSJ:=FieldByName('<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>').AsString;
      end;
      if FieldByName('ҵ<><D2B5>״̬').AsString='<27>˵<EFBFBD>״̬' then begin
         YDHZ:=FieldByName('<27><>ע').AsString;
         YDSJ:=FieldByName('<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>').AsString;
      end;
      if FieldByName('ҵ<><D2B5>״̬').AsString='<27><><EFBFBD><EFBFBD>' then begin
         BGZT:=FieldByName('<27><>ע').AsString;
      end;
      if FieldByName('ҵ<><D2B5>״̬').AsString='<27>ѷ<EFBFBD><D1B7><EFBFBD>' then begin
         TDFX:=FieldByName('<27><>ע').AsString;
         TDSJ:=FieldByName('<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>').AsString;
      end;

      if FieldByName('ҵ<><D2B5>״̬').AsString='ͬ<><CDAC>װ<EFBFBD><D7B0>' then begin
         CKZZ:=FieldByName('<27><>ע').AsString;
         ZZSJ:=FieldByName('<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>').AsString;
      end;

      Next;
    end;
     SetCDState(SHSJ,SHHZ,YDSJ,YDHZ,BGZT,TDFX,TDSJ,CKZZ,ZZSJ);
    end;


end;

procedure Tfrm_op_seae_assistant.N10Click(Sender: TObject);
var
  t_op_seae_Hbl,t_op_ctn_hbl
  ,t_op_ctn_fendan,t_op_ctn_fendan_sum
  ,t_op_ctn_fendan_Desc,t_op_ctn_fendan_Marks,t_op_ctn_fendan_ctnno:TADOQuery;
  i:integer;
  id,str,desc,marks:widestring;
  bsno:string;
begin

begin
  if t_op_seae_assistant.IsEmpty then
    exit;

 if (t_op_seae_assistant.State=dsinsert)or(t_op_seae_assistant.State=dsedit) then
  t_op_seae_assistant.post;
  if MessageDlg('ȷʵҪ<CAB5><D2AA>ѡ<EFBFBD>е<EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',mtWarning,[mbyes,mbno],0)<>mryes then
  exit;

  try
    t_op_seae_Hbl:=CreateAdoQuery;

    t_op_ctn_hbl:=CreateAdoQuery;

    t_op_ctn_fendan:=CreateAdoQuery;


    t_op_ctn_fendan_sum:=CreateAdoQuery;

    t_op_ctn_fendan_Desc:=CreateAdoQuery;

    t_op_ctn_fendan_Marks:=CreateAdoQuery;




    with t_op_seae_Hbl do
    begin
      Close;SQL.Clear;
      sql.Add('select * from t_op_seae_hbl where <20><><EFBFBD><EFBFBD>=''''');
      open;
    end;

    if dxDBGrid1.SelectedCount>0 then
    begin
      for i:=0 to dxDBGrid1.SelectedCount-1 do begin
        t_op_seae_assistant.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
        if i=0 then
          str:='('+''''+t_op_seae_assistant.fieldbyname('AS_ID').asstring+''''
        else
          str:=str+','+''''+t_op_seae_assistant.fieldbyname('AS_ID').asstring+'''';
      end;
    end
    else
    begin
      str:='('+''''+t_op_seae_assistant.fieldbyname('AS_ID').asstring+'''';
    end;
    str:=str+')';


    t_op_ctn_fendan.close;
    t_op_ctn_fendan.sql.clear;
    t_op_ctn_fendan.sql.add('select <20><><EFBFBD><EFBFBD>,<2C>ߴ<EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><>װ,sum(<28><><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD> from t_op_ctn_fendan '
      +'where AS_ID in '+str
      +' Group by <20><><EFBFBD><EFBFBD>,<2C>ߴ<EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><>װ '
      +' ');
    t_op_ctn_fendan.open;t_op_ctn_fendan.First;


    t_op_ctn_fendan_sum.close;
    t_op_ctn_fendan_sum.sql.clear;
    t_op_ctn_fendan_sum.sql.add('select sum(<28><><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD> from t_op_ctn_fendan '
      +'where AS_ID in '+str
      +' ');
    t_op_ctn_fendan_sum.open;t_op_ctn_fendan_sum.First;

    t_op_ctn_fendan_Desc.close;
    t_op_ctn_fendan_Desc.sql.clear;
    t_op_ctn_fendan_Desc.sql.add('select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae_assistant '
      +'where AS_ID in '+str
      +' ');
    t_op_ctn_fendan_Desc.open;t_op_ctn_fendan_Desc.First;
    while not t_op_ctn_fendan_Desc.Eof do
    begin
      desc:=desc+' '+t_op_ctn_fendan_Desc.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
      t_op_ctn_fendan_Desc.Next;
    end;

    t_op_ctn_fendan_Marks.close;
    t_op_ctn_fendan_Marks.sql.clear;
    t_op_ctn_fendan_Marks.sql.add('select distinct <20><>ͷ from t_op_seae_assistant '
      +'where AS_ID in '+str
      +' ');
    t_op_ctn_fendan_Marks.open;t_op_ctn_fendan_Marks.First;
    while not t_op_ctn_fendan_Marks.Eof do
    begin
      marks:=marks+t_op_ctn_fendan_Marks.FieldByName('<27><>ͷ').AsString;
      t_op_ctn_fendan_Marks.Next;
    end;


    t_op_ctn_hbl.close;
    t_op_ctn_hbl.sql.Text:='select * from t_op_ctn_hbl where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>';

    id:=get_id;
    t_op_seae_Hbl.Insert;
    t_op_seae_Hbl['<27><><EFBFBD><EFBFBD>']:=id;
    bsno:=t_op_seae_Hbl['<27><><EFBFBD><EFBFBD>'];
    t_op_seae_Hbl['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD>'];
    t_op_seae_Hbl['EDI״̬']:='δ<><CEB4>ӡ';
    t_op_seae_Hbl['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
    t_op_seae_Hbl['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Date;
    t_op_seae_Hbl['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_assistant.DataSource.DataSet.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
    t_op_seae_Hbl['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae_assistant.DataSource.DataSet.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString;
    t_op_seae_Hbl['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae_assistant.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString;
    t_op_seae_Hbl['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>'];
    t_op_seae_Hbl['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=t_op_seae_assistant['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>'];
    t_op_seae_Hbl['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=t_op_seae_assistant['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>'];
    t_op_seae_Hbl['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
    t_op_seae_Hbl['<27><><EFBFBD><EFBFBD>']:=t_op_seae_assistant.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
    t_op_seae_Hbl['<27><><EFBFBD><EFBFBD>']:=t_op_seae_assistant.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
    t_op_seae_Hbl['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_assistant.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').value;


   // t_op_seae_Hbl['Ӣ<>Ĵ<EFBFBD><C4B4><EFBFBD>']:=date_eng(t_op_seae_assistant.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime);

    t_op_seae_Hbl['װ<><D7B0><EFBFBD><EFBFBD>']:=t_op_seae_assistant.DataSource.DataSet.FieldByName('װ<><D7B0><EFBFBD><EFBFBD>').AsString;
    t_op_seae_Hbl['ж<><D0B6><EFBFBD><EFBFBD>']:=t_op_seae_assistant.DataSource.DataSet.FieldByName('ж<><D0B6><EFBFBD><EFBFBD>').AsString;
    t_op_seae_Hbl['Ŀ<>ĵ<EFBFBD>']:=t_op_seae_assistant.DataSource.DataSet.FieldByName('Ŀ<>ĵ<EFBFBD>').AsString;
    t_op_seae_Hbl['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_assistant.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
    t_op_seae_Hbl['<27><>ͷ']:=marks;
    t_op_seae_Hbl['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=desc;
    t_op_seae_Hbl['<27><><EFBFBD><EFBFBD>']:=t_op_ctn_fendan_sum['<27><><EFBFBD><EFBFBD>'];
    t_op_seae_Hbl['<27><>װ']:=t_op_seae_assistant['<27><>װ'];
    t_op_seae_Hbl['<27><><EFBFBD><EFBFBD>']:=t_op_ctn_fendan_sum['<27><><EFBFBD><EFBFBD>'];
    t_op_seae_Hbl['<27><><EFBFBD><EFBFBD>']:=t_op_ctn_fendan_sum['<27><><EFBFBD><EFBFBD>'];






    t_op_seae_Hbl['ǩ<><C7A9><EFBFBD>ص<EFBFBD>']:=t_op_seae_assistant['ǩ<><C7A9><EFBFBD>ص<EFBFBD>'];

    //t_op_seae_Hbl['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>']:=t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>'];

    t_op_seae_Hbl['Ԥ<><D4A4><EFBFBD>ص<EFBFBD>']:=t_op_seae_assistant['Ԥ<><D4A4><EFBFBD>ص<EFBFBD>'];

    t_op_seae_Hbl['<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>']:=t_op_seae_assistant['<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>'];

    t_op_seae_Hbl['<27><><EFBFBD>ѷ<EFBFBD>ʽ']:=t_op_seae_assistant['<27><><EFBFBD>ѷ<EFBFBD>ʽ'];

    t_op_seae_Hbl['<27><>װ<EFBFBD><D7B0>']:=t_op_seae_assistant['<27><>װ<EFBFBD><D7B0>'];


    t_op_seae_Hbl['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']
          :='SAY TOTAL '+ntoc(t_op_ctn_fendan_sum.FieldByName('<27><><EFBFBD><EFBFBD>').asfloat,true)
           +t_op_seae_assistant.FieldByName('<27><>װ').asstring+' ONLY.';

    t_op_seae_Hbl.Post;


    t_op_ctn_hbl.Close;
    t_op_ctn_hbl.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=id;
    t_op_ctn_hbl.Open;

    while not t_op_ctn_fendan.Eof do
    begin
      t_op_ctn_hbl.Insert;
      t_op_ctn_hbl['<27><><EFBFBD><EFBFBD>']:=id;
      t_op_ctn_hbl['<27><><EFBFBD><EFBFBD>']:=t_op_ctn_fendan['<27><><EFBFBD><EFBFBD>'];
      t_op_ctn_hbl['<27>ߴ<EFBFBD>']:=t_op_ctn_fendan['<27>ߴ<EFBFBD>'];
      t_op_ctn_hbl['<27><><EFBFBD><EFBFBD>']:=t_op_ctn_fendan['<27><><EFBFBD><EFBFBD>'];
      t_op_ctn_hbl['<27><><EFBFBD><EFBFBD>']:=1;
      t_op_ctn_hbl['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:=t_op_ctn_fendan['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ'];
      t_op_ctn_hbl['<27><><EFBFBD><EFBFBD>']:=t_op_ctn_fendan['<27><><EFBFBD><EFBFBD>'];
      t_op_ctn_hbl['<27><><EFBFBD><EFBFBD>']:=t_op_ctn_fendan['<27><><EFBFBD><EFBFBD>'];
      t_op_ctn_hbl['<27><><EFBFBD><EFBFBD>']:=t_op_ctn_fendan['<27><><EFBFBD><EFBFBD>'];
      t_op_ctn_hbl['<27><>װ']:=t_op_ctn_fendan['<27><>װ'];
      t_op_ctn_hbl['<27><><EFBFBD><EFBFBD>']:=t_op_ctn_fendan['<27><><EFBFBD><EFBFBD>'];
      t_op_ctn_hbl['<27><><EFBFBD><EFBFBD>']:=t_op_ctn_fendan['<27><><EFBFBD><EFBFBD>'];
      t_op_ctn_hbl.Post;
      t_op_ctn_fendan.next;
    end;
   // ShowMessage('<27><>Ʊ<EFBFBD>ɹ<EFBFBD>,<2C>뵽<EFBFBD><EBB5BD>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>鿴<EFBFBD><E9BFB4>');
  finally
     FreeAndNil(t_op_seae_Hbl);
     FreeAndNil(t_op_ctn_hbl);
     FreeAndNil(t_op_ctn_fendan);
     freeandnil(t_op_ctn_fendan_sum);
     freeandnil(t_op_ctn_fendan_Desc);
     freeandnil(t_op_ctn_fendan_Marks);
  end;



  if not assigned(frm_op_seae_hbl) then
    frm_op_seae_hbl:=tfrm_op_seae_hbl.Create(self);
  if frm_op_seae_hbl.t_op_seae.Active then
  begin
    frm_op_seae_hbl.t_op_seae.Requery();

    frm_op_seae_hbl.t_op_seae.Locate('<27><><EFBFBD><EFBFBD>',bsno,[loPartialKey]);
    frm_op_seae_hbl.ManualDock(frm_main.SearchTabs('frm_op_seae_hbl',frm_op_seae_hbl.caption,'1084'),nil,alClient);
    frm_op_seae_hbl.show;
    frm_op_seae_hbl.Notebook1.PageIndex:=1;
    frm_op_seae_hbl.bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
    frm_op_seae_hbl.bsSkinButton15.OnClick(frm_op_seae_hbl.bsSkinButton15);
  end
  else
  begin
    frm_op_seae_hbl.ManualDock(frm_main.SearchTabs('frm_op_seae_hbl',frm_op_seae_hbl.caption,'1084'),nil,alClient);
    frm_op_seae_hbl.show;
    frm_op_seae_hbl.t_op_seae.Locate('<27><><EFBFBD><EFBFBD>',bsno,[loPartialKey]);
    frm_op_seae_hbl.Notebook1.PageIndex:=1;
    frm_op_seae_hbl.bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
    frm_op_seae_hbl.bsSkinButton15.OnClick(frm_op_seae_hbl.bsSkinButton15);
  end;



end;

end;

end.