unit u_op_seai_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;

type
  Tfrm_op_seai_assistant = class(TForm)
    t_op_seae_assistant: TADOQuery;
    t_op_seae_assistant1: TDataSource;
    dxDBGrid1: TdxDBGrid;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinPanel2: TbsSkinPanel;
    Label122: TLabel;
    RxDBLookupCombo2: TRxDBLookupCombo;
    DBMemo33: TDBMemo;
    DBMemo34: TDBMemo;
    RxDBLookupCombo3: TRxDBLookupCombo;
    Label121: TLabel;
    RxDBLookupCombo4: TRxDBLookupCombo;
    Label123: TLabel;
    DBMemo35: TDBMemo;
    dxDBGrid1Column1: TdxDBGridMaskColumn;
    dxDBGrid1Column2: TdxDBGridMaskColumn;
    Label38: TLabel;
    DBEdit9: TDBEdit;
    Label36: TLabel;
    DBEdit7: TDBEdit;
    Label125: TLabel;
    wwDBLookupCombo49: TwwDBLookupCombo;
    Label126: TLabel;
    DBEdit63: TDBEdit;
    Label15: TLabel;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    Label7: TLabel;
    wwDBLookupCombo3: TwwDBLookupCombo;
    wwDBLookupCombo52: TwwDBLookupCombo;
    Label124: TLabel;
    Label146: TLabel;
    DBEdit10: TDBEdit;
    Label145: TLabel;
    DBEdit11: TDBEdit;
    Label32: TLabel;
    wwDBLookupCombo21: TwwDBLookupCombo;
    wwDBComboBox1: TwwDBComboBox;
    Label21: TLabel;
    wwDBDateTimePicker4: TwwDBDateTimePicker;
    Label26: TLabel;
    DBEdit25: TDBEdit;
    Label27: TLabel;
    Label30: TLabel;
    RxDBLookupCombo15: TRxDBLookupCombo;
    Label28: TLabel;
    DBEdit26: TDBEdit;
    Label31: TLabel;
    DBEdit27: TDBEdit;
    Label13: TLabel;
    DBEdit5: TDBEdit;
    Label163: TLabel;
    DBMemo38: TDBMemo;
    Label158: TLabel;
    DBMemo37: TDBMemo;
    DBMemo39: TDBMemo;
    Label164: TLabel;
    Label165: TLabel;
    DBMemo40: TDBMemo;
    Label166: TLabel;
    DBMemo41: TDBMemo;
    Label167: TLabel;
    DBMemo42: TDBMemo;
    Label168: TLabel;
    DBEdit80: TDBEdit;
    DBEdit81: TDBEdit;
    wwDBLookupCombo61: TwwDBLookupCombo;
    DBEdit82: TDBEdit;
    Label169: TLabel;
    DBEdit83: TDBEdit;
    Label170: TLabel;
    bsSkinButton9: TbsSkinButton;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton4: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    bsSkinButton8: TbsSkinButton;
    Label33: TLabel;
    RxDBLookupCombo19: TRxDBLookupCombo;
    DBMemo6: TDBMemo;
    wwDBLookupCombo2: TwwDBLookupCombo;
    wwDBLookupCombo5: TwwDBLookupCombo;
    wwDBLookupCombo6: TwwDBLookupCombo;
    bsSkinButton21: TbsSkinButton;
    Label1: TLabel;
    bsSkinButton5: TbsSkinButton;
    bsSkinButton6: TbsSkinButton;
    bsSkinButton7: TbsSkinButton;
    bsSkinButton10: TbsSkinButton;
    bsSkinButton11: TbsSkinButton;
    wwDBLookupCombo1: TwwDBLookupCombo;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    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);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_op_seai_assistant: Tfrm_op_seai_assistant;

implementation

uses u_op_seae, u_main, my_sys_function, u_data_share;

{$R *.dfm}

procedure Tfrm_op_seai_assistant.bsSkinPanel2Resize(Sender: TObject);
var
  i:integer;
begin
  i:=round(bsSkinPanel2.width/6);
  bsSkinButton9.width:=i;
  bsSkinButton1.width:=i;
  bsSkinButton2.width:=i;
  bsSkinButton4.width:=i;
  bsSkinButton3.width:=i;
end;

procedure Tfrm_op_seai_assistant.bsSkinButton1Click(Sender: TObject);
begin
  t_op_seae_assistant.insert;
end;

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

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

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

procedure Tfrm_op_seai_assistant.bsSkinButton9Click(Sender: TObject);
begin
  sys_print('海运出口单证',2,t_op_seae_assistant1,t_op_seae_assistant.DataSource,nil,nil,nil,nil,nil,nil,nil,nil,nil);
end;

procedure Tfrm_op_seai_assistant.t_op_seae_assistantAfterInsert(
  DataSet: TDataSet);
var
  afield : variant;
  i: Integer;
begin
  if application.MessageBox('您是否要调入发货人\收货人\通知人信息?','敬告:',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<>'发货人')
        and(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName<>'发货人代码')
        and(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName<>'收货人')
        and(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName<>'收货人代码')
        and(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName<>'通知人')
        and(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName<>'通知人代码')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;
  t_op_seae_assistant['件数包装']:=t_op_seae_assistant.fieldbyname('件数').AsString+t_op_seae_assistant.fieldbyname('包装').AsString;
  t_op_seae_assistant['货物重量']:=t_op_seae_assistant.fieldbyname('重量').AsString+'KGS';
  t_op_seae_assistant['货物尺码']:=t_op_seae_assistant.fieldbyname('尺码').AsString+'CBM';

end;

procedure Tfrm_op_seai_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_seai_assistant.bsSkinButton8Click(Sender: TObject);
var
  afield : variant;
  i: Integer;
begin
  if t_op_seae_assistant.IsEmpty then
    exit;
  t_op_seae_assistant.edit;
  if application.MessageBox('您是否要调入发货人\收货人\通知人信息?','敬告:',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<>'发货人')
        and(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName<>'发货人代码')
        and(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName<>'收货人')
        and(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName<>'收货人代码')
        and(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName<>'通知人')
        and(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName<>'通知人代码')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_seai_assistant.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  frm_op_seai_assistant.Hide;
  frm_op_seai_assistant.ManualFloat(frm_op_seai_assistant.BoundsRect );
  action:=cafree;
  frm_op_seai_assistant:=nil;
  
end;

procedure Tfrm_op_seai_assistant.FormShow(Sender: TObject);
begin
  t_op_seae_assistant.open;
end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

procedure Tfrm_op_seai_assistant.DBEdit27KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_dbedit(Key,DBEdit5);
end;

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

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

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

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

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

procedure Tfrm_op_seai_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['发货人代码']:=frm_data_share.t_crm_client_shiper.fieldbyname('快捷代码').asstring;
  end;
end;

procedure Tfrm_op_seai_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['收货人代码']:=frm_data_share.t_crm_client_shouhuo.fieldbyname('快捷代码').asstring;
  end;
end;

procedure Tfrm_op_seai_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['通知人代码']:=frm_data_share.t_crm_client_tongzhi.fieldbyname('快捷代码').asstring;
  end;
end;

procedure Tfrm_op_seai_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['件数']:=total_num(DBMemo40);
    t_op_seae_assistant['包装']:=total_package(dbmemo40);
    t_op_seae_assistant['件数大写']
          :='SAY:'+ntoc(t_op_seae_assistant.FieldByName('件数').asfloat,true)
           +t_op_seae_assistant.FieldByName('包装').asstring+' ONLY.';
  end;
end;

procedure Tfrm_op_seai_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['重量']:=total_num(DBMemo41);
  end;
end;

procedure Tfrm_op_seai_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['货物重量']:=DBMemo41.text;
  end;
end;

procedure Tfrm_op_seai_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['尺码']:=total_num(DBMemo42);
  end;
end;

procedure Tfrm_op_seai_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['货物尺码']:=DBMemo42.text;
  end;
end;

procedure Tfrm_op_seai_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['件数大写']
          :='SAY:'+ntoc(t_op_seae_assistant.FieldByName('件数').asfloat,true)
           +wwDBLookupCombo61.text+' ONLY.';
  end;
end;

procedure Tfrm_op_seai_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['代理内容']:=frm_data_share.t_crm_client_daili['快捷代码'];
  end;
end;

procedure Tfrm_op_seai_assistant.wwDBLookupCombo2Enter(Sender: TObject);
begin
  with frm_data_share do
  begin
    t_code_code.Filtered:=false;
    t_code_code.Filter:='发货人=1';
    t_code_code.Filtered:=true;
  end;
end;

procedure Tfrm_op_seai_assistant.wwDBLookupCombo5Enter(Sender: TObject);
begin
  with frm_data_share do
  begin
    t_code_code.Filtered:=false;
    t_code_code.Filter:='收货人=1';
    t_code_code.Filtered:=true;
  end; 
end;

procedure Tfrm_op_seai_assistant.wwDBLookupCombo6Enter(Sender: TObject);
begin
  with frm_data_share do
  begin
    t_code_code.Filtered:=false;
    t_code_code.Filter:='通知人=1';
    t_code_code.Filtered:=true;
  end;
end;

procedure Tfrm_op_seai_assistant.wwDBLookupCombo2Change(Sender: TObject);
begin
  if frm_data_share.t_code_code.locate('代码',wwDBLookupCombo2.text,[]) then
  begin
    t_op_seae_assistant.edit;
    t_op_seae_assistant['发货人代码']:=frm_data_share.t_code_code.fieldbyname('内容').asstring;
  end;
end;

procedure Tfrm_op_seai_assistant.wwDBLookupCombo5Change(Sender: TObject);
begin
  if frm_data_share.t_code_code.locate('代码',wwDBLookupCombo5.text,[]) then
  begin
    t_op_seae_assistant.edit;
    t_op_seae_assistant['收货人代码']:=frm_data_share.t_code_code.fieldbyname('内容').asstring;
  end;
end;

procedure Tfrm_op_seai_assistant.wwDBLookupCombo6Change(Sender: TObject);
begin
  if frm_data_share.t_code_code.locate('代码',wwDBLookupCombo6.text,[]) then
  begin
    t_op_seae_assistant.edit;
    t_op_seae_assistant['通知人代码']:=frm_data_share.t_code_code.fieldbyname('内容').asstring;
  end;
end;

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

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

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

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

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

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

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

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

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

procedure Tfrm_op_seai_assistant.dxDBGrid1ColumnSorting(Sender: TObject;
  Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
  Column_sort(Column,t_op_seae_assistant,'主提单号');
end;

procedure Tfrm_op_seai_assistant.t_op_seae_assistantBeforePost(
  DataSet: TDataSet);
begin
  t_op_seae_assistant['英文船期']:=date_eng(t_op_seae_assistant.fieldbyname('开船日期').AsDateTime);
end;

procedure Tfrm_op_seai_assistant.bsSkinButton21Click(Sender: TObject);
begin
  frm_main.view_momo(t_op_seae_assistant1,'货物描述');
end;

procedure Tfrm_op_seai_assistant.bsSkinButton7Click(Sender: TObject);
begin
  frm_main.view_momo(t_op_seae_assistant1,'唛头');
end;

procedure Tfrm_op_seai_assistant.bsSkinButton6Click(Sender: TObject);
begin
  frm_main.view_momo(t_op_seae_assistant1,'箱号封号');
end;

procedure Tfrm_op_seai_assistant.bsSkinButton5Click(Sender: TObject);
begin
  frm_main.view_momo(t_op_seae_assistant1,'件数包装');
end;

procedure Tfrm_op_seai_assistant.bsSkinButton10Click(Sender: TObject);
begin
  frm_main.view_momo(t_op_seae_assistant1,'货物重量');
end;

procedure Tfrm_op_seai_assistant.bsSkinButton11Click(Sender: TObject);
begin
  frm_main.view_momo(t_op_seae_assistant1,'货物尺码');
end;

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

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

procedure Tfrm_op_seai_assistant.wwDBLookupCombo1Enter(Sender: TObject);
begin
  with frm_data_share do
  begin
    t_code_code.Filtered:=false;
    t_code_code.Filter:='代理=1';
    t_code_code.Filtered:=true;
  end;
end;

procedure Tfrm_op_seai_assistant.wwDBLookupCombo1Exit(Sender: TObject);
begin
  wwDBLookupCombo1.Clear;
end;

procedure Tfrm_op_seai_assistant.wwDBLookupCombo1Change(Sender: TObject);
begin
  if frm_data_share.t_code_code.locate('代码',wwDBLookupCombo1.text,[]) then
  begin
    t_op_seae_assistant.edit;
    t_op_seae_assistant['代理内容']:=frm_data_share.t_code_code.fieldbyname('内容').asstring;
  end;
end;

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

end.