unit u_op_seae_add;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BusinessSkinForm, bsSkinCtrls, StdCtrls, wwdbdatetimepicker, DB,ADODB;

type
  Tfrm_op_seae_add = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox3: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox4: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox5: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox6: TbsSkinCheckRadioBox;
    Label1: TLabel;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    data1: TDataSource;
    bsSkinButton3: TbsSkinButton;
    bsSkinCheckRadioBox7: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox8: TbsSkinCheckRadioBox;
    bsSkinButton4: TbsSkinButton;
    OpenDialog1: TOpenDialog;
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure bsSkinButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_op_seae_add: Tfrm_op_seae_add;
  frm_op_seae_add_num:integer;

implementation

uses u_main, u_op_seae, my_sys_function, u_data_share;

{$R *.dfm}

procedure Tfrm_op_seae_add.bsSkinButton2Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_op_seae_add.bsSkinButton1Click(Sender: TObject);
var
  i: Integer;
  function GetPortEdiID(Port: String): String;
var
  aQuery:TADOQuery;
begin
  aQuery:=CreateAdoQuery;
  try
    with aQuery do begin
      Close;SQL.Clear;
      SQL.Add('Select EDI代码 from t_code_disport where 英文名='''+Port+'''');
      Open;
      if not IsEmpty then
        Result:=Trim(FieldByName('EDI代码').asstring)
      else
        Result:='CNTAO';
    end;
  finally
    FreeAndNil(aQuery);
  end;
end;
begin
  if (frm_op_seae_add_num=3) or (frm_op_seae_add_num=2) then
  begin
    data1.DataSet.append;
    for i := 0 to (data1.DataSet.DataSource.DataSet.fieldcount-1) do
    begin
      data1.DataSet[data1.DataSet.DataSource.DataSet.fields[i].FieldName]:=
        data1.DataSet.DataSource.DataSet[data1.DataSet.DataSource.DataSet.fields[i].FieldName];
    end;
    if bsSkinCheckRadioBox1.Checked then
      data1.DataSet['装运方式']:=bsSkinCheckRadioBox1.Caption;
    if bsSkinCheckRadioBox2.Checked then
      data1.DataSet['装运方式']:=bsSkinCheckRadioBox2.Caption;
    if bsSkinCheckRadioBox3.Checked then
      data1.DataSet['装运方式']:=bsSkinCheckRadioBox3.Caption;
    if bsSkinCheckRadioBox4.Checked then
      data1.DataSet['装运方式']:=bsSkinCheckRadioBox4.Caption;
    if bsSkinCheckRadioBox5.Checked then
      data1.DataSet['装运方式']:=bsSkinCheckRadioBox5.Caption;
    if bsSkinCheckRadioBox6.Checked then
      data1.DataSet['装运方式']:=bsSkinCheckRadioBox6.Caption;
    if bsSkinCheckRadioBox7.Checked then
      data1.DataSet['装运方式']:=bsSkinCheckRadioBox7.Caption;
    if bsSkinCheckRadioBox8.Checked then
      data1.DataSet['装运方式']:=bsSkinCheckRadioBox8.Caption;


    data1.DataSet['业务编号']:='';
    data1.DataSet['主编号']:='';
    data1.DataSet['编号']:=get_id;
    data1.DataSet['箱型1']:=0;
    data1.DataSet['箱型2']:=0;
    data1.DataSet['箱型3']:=0;
    data1.DataSet['箱型4']:=0;
    data1.DataSet['箱型5']:=0;
    data1.DataSet['箱型6']:=0;
    data1.DataSet['箱型7']:=0;
    data1.DataSet['箱型8']:=0;
    data1.DataSet['箱型9']:=0;
    data1.DataSet['箱型10']:=0;
    data1.DataSet['其他箱型']:=0;
    data1.DataSet['箱TEU']:=0;
    data1.DataSet['集装箱']:='';
    data1.DataSet['箱数大写']:='';
    data1.DataSet['计费标准']:='';
    data1.DataSet['报关日期']:=null;
    data1.DataSet['报关员']:='';
    data1.DataSet['报关单号']:='';
    data1.DataSet['核销单号']:='';
    data1.DataSet['手册号']:='';
    data1.DataSet['是否退税']:=0;
    data1.DataSet['退税日期']:=null;
    data1.DataSet['是否通关']:=0;
    data1.DataSet['通关日期']:=null;
    data1.DataSet['分单列表']:='';
    data1.DataSet['发票号']:='';
    data1.DataSet['商品编码']:='';
    data1.DataSet['是否签单']:=0;
    data1.DataSet['请求派车']:=0;
    data1.DataSet['是否派车']:=0;
    data1.DataSet['是否退税']:=0;
    data1.DataSet['是否通关']:=0;
    data1.DataSet['是否签单']:=0;

    data1.DataSet['是否解锁']:=0;
    data1.DataSet['解锁日期']:=null;
    data1.DataSet['解锁人']:='';
    data1.DataSet['应收陆运']:=0;
    data1.DataSet['应付陆运']:=0;
    data1.DataSet['陆运利润']:=0;

    data1.DataSet['业务状态']:='接受委托';
    data1.DataSet['费用状态']:='录入状态';
    data1.DataSet['签单方式']:='正本';
    data1.DataSet['录入人']:=employee;
    data1.DataSet['录入日期']:=date;
    data1.DataSet['操作员']:=employee;
    data1.DataSet['报关操作']:=employee;
    data1.DataSet['报检操作']:=employee;
    data1.DataSet['会计期间']:=wwDBDateTimePicker1.date;
    data1.DataSet['周次']:=WeekofYear(wwDBDateTimePicker1.date);
    data1.DataSet['财务']:=0;
    data1.DataSet['财务凭证']:='';

    data1.DataSet['件数包装']:='';
    data1.DataSet['货物重量']:='';
    data1.DataSet['货物尺码']:='';
    data1.DataSet['货物描述']:='';
    data1.DataSet['分单列表']:='';

    data1.DataSet['备案号']:='';
    data1.DataSet['运抵国']:='';
    data1.DataSet['境内货源地']:='';
    data1.DataSet['批准文号']:='';
    data1.DataSet['成交方式']:='';
    data1.DataSet['净重']:=0;
    data1.DataSet['单价']:='';
    data1.DataSet['总价']:='';
    data1.DataSet['商品名称']:='';
    data1.DataSet['数量单位']:='';
    data1.DataSet['接单日期']:=null;
    data1.DataSet['报检日期']:=null;
    data1.DataSet['报检单号']:='';
    data1.DataSet['验货时间']:=null;
    data1.DataSet['实验时间']:=null;
    data1.DataSet['熏蒸时间']:=null;
    data1.DataSet['出证时间']:=null;
    data1.DataSet['实验内容']:='';
    data1.DataSet['币制']:='';
    data1.DataSet['拼箱类型']:='合票单票';
    data1.DataSet['已出号']:=0;
    data1.DataSet['已订舱']:=0;
    data1.DataSet['已放箱']:=0;
    data1.DataSet['已背箱']:=0;
    data1.DataSet['第三方付费']:='';
    data1.DataSet['方案名称']:='';
    data1.DataSet['FEE2']:=0;
  end
  else
  begin
    data1.DataSet.Insert;
    if bsSkinCheckRadioBox1.Checked then
      data1.DataSet['装运方式']:=bsSkinCheckRadioBox1.Caption;
    if bsSkinCheckRadioBox2.Checked then
      data1.DataSet['装运方式']:=bsSkinCheckRadioBox2.Caption;
    if bsSkinCheckRadioBox3.Checked then
      data1.DataSet['装运方式']:=bsSkinCheckRadioBox3.Caption;
    if bsSkinCheckRadioBox4.Checked then
      data1.DataSet['装运方式']:=bsSkinCheckRadioBox4.Caption;
    if bsSkinCheckRadioBox5.Checked then
      data1.DataSet['装运方式']:=bsSkinCheckRadioBox5.Caption;
    if bsSkinCheckRadioBox6.Checked then
      data1.DataSet['装运方式']:=bsSkinCheckRadioBox6.Caption;
    if bsSkinCheckRadioBox7.Checked then
      data1.DataSet['装运方式']:=bsSkinCheckRadioBox7.Caption;
    if bsSkinCheckRadioBox8.Checked then
      data1.DataSet['装运方式']:=bsSkinCheckRadioBox8.Caption;

    data1.DataSet['会计期间']:=wwDBDateTimePicker1.date;
    data1.DataSet['周次']:=WeekofYear(wwDBDateTimePicker1.date);
    data1.DataSet['编号']:=get_id;
    data1.DataSet['录入人']:=employee;
    data1.DataSet['录入日期']:=date;
    data1.DataSet['操作员']:=employee;
    data1.DataSet['报关操作']:=employee;
    data1.DataSet['报检操作']:=employee;
    data1.DataSet['航线操作']:=employee;
//    data1.DataSet['揽货人']:=employee;
    data1.DataSet['客服员']:=employee;
    data1.DataSet['销售部门']:=department;
    data1.DataSet['操作部门']:=department;
    data1.DataSet['业务来源']:='自揽货';
    data1.DataSet['起运港']:=get_parameters_value(14,'QINGDAO,CHINA');
    data1.DataSet['装货港']:=get_parameters_value(16,'QINGDAO,CHINA');
    data1.DataSet['装港代码']:='CNTAO';
    data1.DataSet['提单份数']:=get_parameters_value(20,'THREE');
    data1.DataSet['签单方式']:='正本';
    
    if copy(data1.DataSet.fieldbyname('装运方式').asstring,1,4)='拼箱'then
      data1.DataSet['运输条款']:=get_parameters_value(48,'CFS-CFS')
    else
      data1.DataSet['运输条款']:=get_parameters_value(21,'CY-CY');
    data1.DataSet['唛头']:=get_parameters_value(22,'N/M');
    data1.DataSet['付费方式']:=get_parameters_value(23,'FREIGHT PREPAID');
    data1.DataSet['签单地点']:=get_parameters_value(49,'QINGDAO,CHINA');
    data1.DataSet['预付地点']:=get_parameters_value(50,'QINGDAO,CHINA');
    data1.DataSet['退税日期']:=null;
    data1.DataSet['签单日期']:=null;
    data1.DataSet['派车日期']:=null;
    data1.DataSet['寄单日期']:=null;
    data1.DataSet['是否寄单']:=0;
    data1.DataSet['是否退税']:=0;
    data1.DataSet['是否通关']:=0;
    data1.DataSet['是否签单']:=0;
    data1.DataSet['请求派车']:=0;
    data1.DataSet['是否派车']:=0;
    data1.DataSet['是否解锁']:=0;
    data1.DataSet['解锁日期']:=null;
    data1.DataSet['解锁人']:='';
    data1.DataSet['应收陆运']:=0;
    data1.DataSet['应付陆运']:=0;
    data1.DataSet['陆运利润']:=0;
    data1.DataSet['财务']:=0;
    data1.DataSet['财务凭证']:='';
    data1.DataSet['拼箱类型']:='合票单票';
    data1.DataSet['已出号']:=0;
    data1.DataSet['已订舱']:=0;
    data1.DataSet['已放箱']:=0;
    data1.DataSet['已背箱']:=0;
    data1.DataSet['第三方付费']:='';
    data1.DataSet['方案名称']:='';
    data1.DataSet['FEE2']:=0;
 end;
       frm_op_seae.DBEdit8.ReadOnly:=false;
       frm_op_seae.DBEdit9.ReadOnly:=false;
       frm_op_seae.wwDBDateTimePicker2.Enabled:=True;
       frm_op_seae.RxDBLookupCombo1.Enabled:=True;

       frm_op_seae.wwDBComboBox8.Enabled:=True;

  if frm_op_seae_add_num=1 then
  begin
    frm_op_seae.Notebook1.PageIndex:=1;
    frm_op_seae.bsSkinButton11.Caption:='返回列表';
  end;
  if frm_op_seae_add_num=2 then
  begin
    frm_op_seae.Notebook1.PageIndex:=1;
    frm_op_seae.bsSkinButton11.Caption:='返回主票';
  end;
  if frm_op_seae_add_num=3 then
  begin
    frm_op_seae.Notebook1.PageIndex:=1;
    frm_op_seae.bsSkinButton11.Caption:='返回主票';
    frm_op_seae.t_op_seae2.Enabled:=false;
    frm_op_seae.t_op_seae2.DataSet:=frm_op_seae.t_op_seae_fen;
    frm_op_seae.t_op_seae2.Enabled:=true;
  end;
  close;
end;

procedure Tfrm_op_seae_add.FormShow(Sender: TObject);
begin
  wwDBDateTimePicker1.Date:=date;
end;

procedure Tfrm_op_seae_add.bsSkinButton3Click(Sender: TObject);
var
  afield : variant;
  i: Integer;
  aQuery:TAdoQuery;
  oldbsno,OrgBSNO:string;
  isonlysft:Boolean;
begin
  isonlysft:=false;
  if data1.DataSet.IsEmpty then
  begin
    showmessage('没有复制母体，不能复制新建！');
    exit;
  end;
  if (get_parameters_value(511,'false')='true') then
    isonlysft:=True;

  oldbsno:=data1.DataSet.FieldByName('编号').AsString;
  afield := vararraycreate([0,data1.DataSet.fieldcount-1],varvariant);
  for i := 0 to (data1.DataSet.fieldcount-1) do
  begin
    afield[i] :=data1.DataSet.fields[i].value ;
  end;
  data1.DataSet.append;
  for i := 0 to (data1.DataSet.fieldcount-1) do
  begin
    if isonlysft then begin
      if (data1.DataSet.fields[i].FieldName='发货人代码') or (data1.DataSet.fields[i].FieldName='收货人代码') or (data1.DataSet.fields[i].FieldName='通知人代码')
      or (data1.DataSet.fields[i].FieldName='装运方式')or (data1.DataSet.fields[i].FieldName='装港代码')or (data1.DataSet.fields[i].FieldName='装货港')
      or (data1.DataSet.fields[i].FieldName='签单地点')or (data1.DataSet.fields[i].FieldName='预付地点')or (data1.DataSet.fields[i].FieldName='委托单位')
      or (data1.DataSet.fields[i].FieldName='操作员')or (data1.DataSet.fields[i].FieldName='航线操作') or (data1.DataSet.fields[i].FieldName='运输方式')
      or (data1.DataSet.fields[i].FieldName='发货人编号')  or (data1.DataSet.fields[i].FieldName='辅助字段一')
      or (data1.DataSet.fields[i].FieldName='EDI备注') or (data1.DataSet.fields[i].FieldName='订舱人说明')
      then
        data1.DataSet.fields[i].value := afield[i] ;
    end else
      data1.DataSet.fields[i].value := afield[i] ;
  end;

  data1.DataSet['周次']:=WeekofYear(wwDBDateTimePicker1.date);
  if bsSkinCheckRadioBox1.Checked then
    data1.DataSet['装运方式']:=bsSkinCheckRadioBox1.Caption;
  if bsSkinCheckRadioBox2.Checked then
    data1.DataSet['装运方式']:=bsSkinCheckRadioBox2.Caption;
  if bsSkinCheckRadioBox3.Checked then
    data1.DataSet['装运方式']:=bsSkinCheckRadioBox3.Caption;
  if bsSkinCheckRadioBox4.Checked then
    data1.DataSet['装运方式']:=bsSkinCheckRadioBox4.Caption;
  if bsSkinCheckRadioBox5.Checked then
    data1.DataSet['装运方式']:=bsSkinCheckRadioBox5.Caption;
  if bsSkinCheckRadioBox6.Checked then
    data1.DataSet['装运方式']:=bsSkinCheckRadioBox6.Caption;
  if bsSkinCheckRadioBox7.Checked then
    data1.DataSet['装运方式']:=bsSkinCheckRadioBox7.Caption;
  if bsSkinCheckRadioBox8.Checked then
    data1.DataSet['装运方式']:=bsSkinCheckRadioBox8.Caption;
  data1.DataSet['业务编号']:='';
  data1.DataSet['主编号']:='';
  OrgBSNO:=get_id;
  data1.DataSet['编号']:=OrgBSNO;
//  data1.DataSet['编号']:=get_id;
  data1.DataSet['箱型1']:=0;
  data1.DataSet['箱型2']:=0;
  data1.DataSet['箱型3']:=0;
  data1.DataSet['箱型4']:=0;
  data1.DataSet['箱型5']:=0;
  data1.DataSet['箱型6']:=0;
  data1.DataSet['箱型7']:=0;
  data1.DataSet['箱型8']:=0;
  data1.DataSet['箱型9']:=0;
  data1.DataSet['箱型10']:=0;
  data1.DataSet['其他箱型']:=0;
  data1.DataSet['箱TEU']:=0;
  data1.DataSet['拼箱类型']:='合票单票';

//hxt HECHUAN
 if bsSkinCheckRadioBox1.Checked then begin
    if data1.DataSet['集装箱']<>null then begin
      if Pos('R',data1.DataSet['集装箱'])>0 then begin
        data1.DataSet['货物名称']:='';
        data1.DataSet['货物描述']:='';
      end;
   end;
 end;

  data1.DataSet['集装箱']:='';
  data1.DataSet['箱数大写']:='';
  data1.DataSet['计费标准']:='';
  data1.DataSet['报关日期']:=null;
//HXT

  data1.DataSet['报关行']:='';
  data1.DataSet['承运车队']:='';
  data1.DataSet['报关员']:='';
  data1.DataSet['报关单号']:='';
  data1.DataSet['核销单号']:='';
  data1.DataSet['手册号']:='';
  data1.DataSet['是否退税']:=0;
  data1.DataSet['退税日期']:=null;
  data1.DataSet['是否通关']:=0;
  data1.DataSet['通关日期']:=null;
  data1.DataSet['危险品分类']:='';
  data1.DataSet['危险品编号']:=null;
  data1.DataSet['冷藏通风量']:='';
  data1.DataSet['温度单位']:='';
  data1.DataSet['设置温度']:='';
  data1.DataSet['最低温度']:='';
  data1.DataSet['最高温度']:='';
  data1.DataSet['货物标识']:='';
  data1.DataSet['二程开船日期']:=null;
  data1.DataSet['二程港口']:='';
  data1.DataSet['二程船名']:='';
  data1.DataSet['二程航次']:='';
  data1.DataSet['箱号封号']:='';
  data1.DataSet['备注']:='';
  data1.DataSet['分单列表']:='';
  data1.DataSet['发票号']:='';
  data1.DataSet['商品编码']:='';
  data1.DataSet['是否签单']:=0;
  data1.DataSet['签回日期']:=null;
  data1.DataSet['请求派车']:=0;
  data1.DataSet['是否派车']:=0;
  data1.DataSet['派车日期']:=null;
  data1.DataSet['是否解锁']:=0;
  data1.DataSet['解锁日期']:=null;
  data1.DataSet['解锁人']:='';
  data1.DataSet['应收陆运']:=0;
  data1.DataSet['应付陆运']:=0;
  data1.DataSet['陆运利润']:=0;
  data1.DataSet['是否退税']:=0;
  data1.DataSet['是否通关']:=0;
  data1.DataSet['是否签单']:=0;
  data1.DataSet['退税日期']:=null;
  data1.DataSet['签单日期']:=null;
  data1.DataSet['派车日期']:=null;
  data1.DataSet['寄单日期']:=null;
  data1.DataSet['是否寄单']:=0;

  data1.DataSet['业务状态']:='接受委托';
  data1.DataSet['费用状态']:='录入状态';
  data1.DataSet['录入人']:=employee;
  data1.DataSet['录入日期']:=date;
  data1.DataSet['操作员']:=employee;
  data1.DataSet['报关操作']:=employee;
  data1.DataSet['报检操作']:=employee;
  data1.DataSet['航线操作']:=employee;
  data1.DataSet['会计期间']:=wwDBDateTimePicker1.date;
  data1.DataSet['财务']:=0;
  data1.DataSet['财务凭证']:='';
  data1.DataSet['备案号']:='';
  data1.DataSet['运抵国']:='';
  data1.DataSet['境内货源地']:='';
  data1.DataSet['批准文号']:='';
  data1.DataSet['成交方式']:='';
  data1.DataSet['净重']:=0;
  data1.DataSet['单价']:='';
  data1.DataSet['总价']:='';
  data1.DataSet['商品名称']:='';
  data1.DataSet['数量单位']:='';
  data1.DataSet['接单日期']:=null;
  data1.DataSet['报检日期']:=null;
  data1.DataSet['报检单号']:='';
  data1.DataSet['验货时间']:=null;
  data1.DataSet['实验时间']:=null;
  data1.DataSet['熏蒸时间']:=null;
  data1.DataSet['出证时间']:=null;
  data1.DataSet['实验内容']:='';
  data1.DataSet['币制']:='';
  data1.DataSet['拼箱类型']:='合票单票';
  data1.DataSet['已出号']:=0;
  data1.DataSet['已订舱']:=0;
  data1.DataSet['已放箱']:=0;
  data1.DataSet['已背箱']:=0;
  data1.DataSet['方案名称']:='';
  data1.DataSet['FEE2']:=0;

  data1.DataSet['业务解锁']:=0;
  data1.DataSet['业务解锁日期']:=null;
  data1.DataSet['业务解锁人']:='';


  data1.DataSet['应结日期']:=null;
  data1.DataSet['结费类型']:='';

  data1.DataSet['扣单状态']:='';
  data1.DataSet['预抵日期']:=null;
  data1.DataSet['ETA']:=null;
  data1.DataSet['ATA']:=null;
  data1.DataSet['ETD']:=null;


 // if data1.DataSet.FieldByName('签单方式').AsString='' then
 //   data1.DataSet.FieldByName('签单方式').AsString:='正本';


  {
  if data1.DataSet.FieldByName('委托单位').IsNull or (data1.DataSet.FieldByName('委托单位').AsString='') or data1.DataSet.FieldByName('揽货人').IsNull or (data1.DataSet.FieldByName('揽货人').AsString='') then begin
  end else begin
    if frm_data_share.t_crm_client.Locate('客户简称',data1.DataSet.FieldByName('委托单位').AsString,[]) then
      if (Trim(frm_data_share.t_crm_client.FieldByName('客户性质').AsString)='其他') then begin

      end else begin
        aQuery:=CreateAdoQuery;
        try
          with aQuery do begin
            Close;sql.Clear;
            sql.Add('Select distinct 揽货人 from t_crm_client_sales where 客户简称='''+data1.DataSet.FieldByName('委托单位').AsString+''' and 揽货人='''+data1.DataSet['揽货人']+''' and 状态=''审核'' ');
            Open;
          if not IsEmpty then begin

          end else begin
            data1.DataSet['揽货人']:='';
          end;
          end;
        finally
          FreeAndNil(aQuery);
        end;
      end;
  end;
  }
    data1.DataSet['揽货人']:='';
    data1.DataSet['操作员']:='';
    data1.DataSet['客服员']:='';


  if copy(data1.DataSet.fieldbyname('装运方式').asstring,1,4)='拼箱'then
  begin
    if not strtobool(get_parameters_value(52,'false')) then
    begin
      data1.DataSet['件数包装']:='';
      data1.DataSet['货物重量']:='';
      data1.DataSet['货物尺码']:='';
      data1.DataSet['货物描述']:='';
      data1.DataSet['分单列表']:='';
    end;
  end
  else
  begin
    if not strtobool(get_parameters_value(51,'false')) then
    begin
      data1.DataSet['件数包装']:='';
      data1.DataSet['货物重量']:='';
      data1.DataSet['货物尺码']:='';
      data1.DataSet['货物描述']:='';
      data1.DataSet['分单列表']:='';
    end;
  end;

  aQuery:=CreateAdoQuery;
  try
    With aQuery do begin

      Close;sql.clear;
      sql.add('insert into T_OP_AMS(编号,[发货人国家代码],[收货人国家代码],[通知人国家代码],[发货人联系电话],[通知人代码],[通知人联系电话],[收货人联系电话],[发货人企业代码],[收货人企业代码]'
      +',[通知人企业代码],[发货人邮箱],[收货人邮箱],[通知人邮箱],发货人代码,收货人代码)'
      +'select '''+OrgBSNO+''',[发货人国家代码],[收货人国家代码],[通知人国家代码],[发货人联系电话],[通知人代码],[通知人联系电话],[收货人联系电话],[发货人企业代码],[收货人企业代码]'
      +',[通知人企业代码],[发货人邮箱],[收货人邮箱],[通知人邮箱],发货人代码,收货人代码 from T_OP_AMS where 编号='''+oldbsno+'''');
      execsql;

    end;
  finally
    FreeAndNil(aQuery);
  end;


       frm_op_seae.DBEdit8.ReadOnly:=false;
       frm_op_seae.DBEdit9.ReadOnly:=false;
       frm_op_seae.wwDBDateTimePicker2.Enabled:=True;
       frm_op_seae.RxDBLookupCombo1.Enabled:=True;
       frm_op_seae.wwDBComboBox8.Enabled:=True;
       

  if frm_op_seae_add_num=1 then
  begin
    frm_op_seae.Notebook1.PageIndex:=1;
    frm_op_seae.bsSkinButton11.Caption:='返回列表';
  end;
  if frm_op_seae_add_num=2 then
  begin
    frm_op_seae.Notebook1.PageIndex:=1;
    frm_op_seae.bsSkinButton11.Caption:='返回主票';
  end;
  if frm_op_seae_add_num=3 then
  begin
    frm_op_seae.Notebook1.PageIndex:=1;
    frm_op_seae.bsSkinButton11.Caption:='返回主票';
    frm_op_seae.t_op_seae2.Enabled:=false;
    frm_op_seae.t_op_seae2.DataSet:=frm_op_seae.t_op_seae_fen;
    frm_op_seae.t_op_seae2.Enabled:=true;
  end;
  frm_op_seae.bsSkinTabSheet1.Show;
  close;
end;

procedure Tfrm_op_seae_add.bsSkinButton4Click(Sender: TObject);
var
  EdiString:TStrings;
  FileNames,bsno:String;
  i: Integer;
begin
  if (frm_op_seae_add_num=3) or (frm_op_seae_add_num=2) then
  begin
    data1.DataSet.append;
    for i := 0 to (data1.DataSet.DataSource.DataSet.fieldcount-1) do
    begin
      data1.DataSet[data1.DataSet.DataSource.DataSet.fields[i].FieldName]:=
        data1.DataSet.DataSource.DataSet[data1.DataSet.DataSource.DataSet.fields[i].FieldName];
    end;
    if bsSkinCheckRadioBox1.Checked then
      data1.DataSet['装运方式']:=bsSkinCheckRadioBox1.Caption;
    if bsSkinCheckRadioBox2.Checked then
      data1.DataSet['装运方式']:=bsSkinCheckRadioBox2.Caption;
    if bsSkinCheckRadioBox3.Checked then
      data1.DataSet['装运方式']:=bsSkinCheckRadioBox3.Caption;
    if bsSkinCheckRadioBox4.Checked then
      data1.DataSet['装运方式']:=bsSkinCheckRadioBox4.Caption;
    if bsSkinCheckRadioBox5.Checked then
      data1.DataSet['装运方式']:=bsSkinCheckRadioBox5.Caption;
    if bsSkinCheckRadioBox6.Checked then
      data1.DataSet['装运方式']:=bsSkinCheckRadioBox6.Caption;
    if bsSkinCheckRadioBox7.Checked then
      data1.DataSet['装运方式']:=bsSkinCheckRadioBox7.Caption;
    if bsSkinCheckRadioBox8.Checked then
      data1.DataSet['装运方式']:=bsSkinCheckRadioBox8.Caption;

    data1.DataSet['业务编号']:='';
    data1.DataSet['主编号']:='';
    data1.DataSet['编号']:=get_id;;
    data1.DataSet['箱型1']:=0;
    data1.DataSet['箱型2']:=0;
    data1.DataSet['箱型3']:=0;
    data1.DataSet['箱型4']:=0;
    data1.DataSet['箱型5']:=0;
    data1.DataSet['箱型6']:=0;
    data1.DataSet['箱型7']:=0;
    data1.DataSet['箱型8']:=0;
    data1.DataSet['箱型9']:=0;
    data1.DataSet['箱型10']:=0;
    data1.DataSet['其他箱型']:=0;
    data1.DataSet['箱TEU']:=0;
    data1.DataSet['集装箱']:='';
    data1.DataSet['箱数大写']:='';
    data1.DataSet['计费标准']:='';
    data1.DataSet['报关日期']:=null;
    data1.DataSet['报关员']:='';
    data1.DataSet['报关单号']:='';
    data1.DataSet['核销单号']:='';
    data1.DataSet['手册号']:='';
    data1.DataSet['是否退税']:=0;
    data1.DataSet['退税日期']:=null;
    data1.DataSet['是否通关']:=0;
    data1.DataSet['通关日期']:=null;
    data1.DataSet['分单列表']:='';
    data1.DataSet['发票号']:='';
    data1.DataSet['商品编码']:='';
    data1.DataSet['是否签单']:=0;
    data1.DataSet['请求派车']:=0;
    data1.DataSet['是否派车']:=0;
    data1.DataSet['是否退税']:=0;
    data1.DataSet['是否通关']:=0;
    data1.DataSet['是否签单']:=0;

    data1.DataSet['是否解锁']:=0;
    data1.DataSet['解锁日期']:=null;
    data1.DataSet['解锁人']:='';
    data1.DataSet['应收陆运']:=0;
    data1.DataSet['应付陆运']:=0;
    data1.DataSet['陆运利润']:=0;

    data1.DataSet['业务状态']:='接受委托';
    data1.DataSet['费用状态']:='录入状态';
    data1.DataSet['签单方式']:='正本';
    data1.DataSet['录入人']:=employee;
    data1.DataSet['录入日期']:=date;
    data1.DataSet['操作员']:=employee;
    data1.DataSet['报关操作']:=employee;
    data1.DataSet['报检操作']:=employee;
    data1.DataSet['会计期间']:=wwDBDateTimePicker1.date;
    data1.DataSet['周次']:=WeekofYear(wwDBDateTimePicker1.date);
    data1.DataSet['财务']:=0;
    data1.DataSet['财务凭证']:='';

    data1.DataSet['件数包装']:='';
    data1.DataSet['货物重量']:='';
    data1.DataSet['货物尺码']:='';
    data1.DataSet['货物描述']:='';
    data1.DataSet['分单列表']:='';

    data1.DataSet['备案号']:='';
    data1.DataSet['运抵国']:='';
    data1.DataSet['境内货源地']:='';
    data1.DataSet['批准文号']:='';
    data1.DataSet['成交方式']:='';
    data1.DataSet['净重']:=0;
    data1.DataSet['单价']:='';
    data1.DataSet['总价']:='';
    data1.DataSet['商品名称']:='';
    data1.DataSet['数量单位']:='';
    data1.DataSet['接单日期']:=null;
    data1.DataSet['报检日期']:=null;
    data1.DataSet['报检单号']:='';
    data1.DataSet['验货时间']:=null;
    data1.DataSet['实验时间']:=null;
    data1.DataSet['熏蒸时间']:=null;
    data1.DataSet['出证时间']:=null;
    data1.DataSet['实验内容']:='';
    data1.DataSet['币制']:='';
    data1.DataSet['拼箱类型']:='合票单票';
    data1.DataSet['已出号']:=0;
    data1.DataSet['已订舱']:=0;
    data1.DataSet['已放箱']:=0;
    data1.DataSet['已背箱']:=0;
    data1.DataSet['第三方付费']:='';

  end
  else
  begin
    data1.DataSet.Insert;
    if bsSkinCheckRadioBox1.Checked then
      data1.DataSet['装运方式']:=bsSkinCheckRadioBox1.Caption;
    if bsSkinCheckRadioBox2.Checked then
      data1.DataSet['装运方式']:=bsSkinCheckRadioBox2.Caption;
    if bsSkinCheckRadioBox3.Checked then
      data1.DataSet['装运方式']:=bsSkinCheckRadioBox3.Caption;
    if bsSkinCheckRadioBox4.Checked then
      data1.DataSet['装运方式']:=bsSkinCheckRadioBox4.Caption;
    if bsSkinCheckRadioBox5.Checked then
      data1.DataSet['装运方式']:=bsSkinCheckRadioBox5.Caption;
    if bsSkinCheckRadioBox6.Checked then
      data1.DataSet['装运方式']:=bsSkinCheckRadioBox6.Caption;
    if bsSkinCheckRadioBox7.Checked then
      data1.DataSet['装运方式']:=bsSkinCheckRadioBox7.Caption;
    if bsSkinCheckRadioBox8.Checked then
      data1.DataSet['装运方式']:=bsSkinCheckRadioBox8.Caption;

    data1.DataSet['编号']:=get_id;;
    data1.DataSet['会计期间']:=wwDBDateTimePicker1.date;
    data1.DataSet['周次']:=WeekofYear(wwDBDateTimePicker1.date);
    data1.DataSet['录入人']:=employee;
    data1.DataSet['录入日期']:=date;
    data1.DataSet['操作员']:=employee;
    data1.DataSet['报关操作']:=employee;
    data1.DataSet['报检操作']:=employee;
    data1.DataSet['航线操作']:=employee;
//    data1.DataSet['揽货人']:=employee;
    data1.DataSet['客服员']:=employee;
    data1.DataSet['销售部门']:=department;
    data1.DataSet['操作部门']:=department;
    data1.DataSet['业务来源']:='自揽货';
    data1.DataSet['起运港']:=get_parameters_value(14,'QINGDAO,CHINA');
    data1.DataSet['装港代码']:='CNTAO';
    data1.DataSet['装货港']:=get_parameters_value(16,'QINGDAO,CHINA');
    data1.DataSet['提单份数']:=get_parameters_value(20,'THREE');
    data1.DataSet['签单方式']:='正本';
    
    if copy(data1.DataSet.fieldbyname('装运方式').asstring,1,4)='拼箱'then
      data1.DataSet['运输条款']:=get_parameters_value(48,'CFS-CFS')
    else
      data1.DataSet['运输条款']:=get_parameters_value(21,'CY-CY');
    data1.DataSet['唛头']:=get_parameters_value(22,'N/M');
    data1.DataSet['付费方式']:=get_parameters_value(23,'FREIGHT PREPAID');
    data1.DataSet['签单地点']:=get_parameters_value(49,'QINGDAO,CHINA');
    data1.DataSet['预付地点']:=get_parameters_value(50,'QINGDAO,CHINA');
    data1.DataSet['退税日期']:=null;
    data1.DataSet['签单日期']:=null;
    data1.DataSet['派车日期']:=null;
    data1.DataSet['寄单日期']:=null;
    data1.DataSet['是否寄单']:=0;
    data1.DataSet['是否退税']:=0;
    data1.DataSet['是否通关']:=0;
    data1.DataSet['是否签单']:=0;
    data1.DataSet['请求派车']:=0;
    data1.DataSet['是否派车']:=0;
    data1.DataSet['是否解锁']:=0;
    data1.DataSet['解锁日期']:=null;
    data1.DataSet['解锁人']:='';
    data1.DataSet['应收陆运']:=0;
    data1.DataSet['应付陆运']:=0;
    data1.DataSet['陆运利润']:=0;
    data1.DataSet['财务']:=0;
    data1.DataSet['财务凭证']:='';
    data1.DataSet['拼箱类型']:='合票单票';
    data1.DataSet['已出号']:=0;
    data1.DataSet['已订舱']:=0;
    data1.DataSet['已放箱']:=0;
    data1.DataSet['已背箱']:=0;
    data1.DataSet['第三方付费']:='';
 end;

  EdiString:=TStringList.Create;
  try
    OpenDialog1.Execute;
    FileNames:=OpenDialog1.FileName;
    if FileNames<>'' then  begin
       EdiString.LoadFromFile(FileNames);
       NewEdiSEAE(EdiString,data1,wwDBDateTimePicker1.date,true);
     end;
  finally
    FreeAndNil(EdiString);
  end;
       frm_op_seae.DBEdit8.ReadOnly:=false;
       frm_op_seae.DBEdit9.ReadOnly:=false;
       frm_op_seae.wwDBDateTimePicker2.Enabled:=True;
       frm_op_seae.RxDBLookupCombo1.Enabled:=True;
       frm_op_seae.wwDBComboBox8.Enabled:=True;
       

  if frm_op_seae_add_num=1 then
  begin
    frm_op_seae.Notebook1.PageIndex:=1;
    frm_op_seae.bsSkinButton11.Caption:='返回列表';
  end;
  if frm_op_seae_add_num=2 then
  begin
    frm_op_seae.Notebook1.PageIndex:=1;
    frm_op_seae.bsSkinButton11.Caption:='返回主票';
  end;
  if frm_op_seae_add_num=3 then
  begin
    frm_op_seae.Notebook1.PageIndex:=1;
    frm_op_seae.bsSkinButton11.Caption:='返回主票';
    frm_op_seae.t_op_seae2.Enabled:=false;
    frm_op_seae.t_op_seae2.DataSet:=frm_op_seae.t_op_seae_fen;
    frm_op_seae.t_op_seae2.Enabled:=true;
  end;
  close;
end;

end.