unit u_op_seae_edi_cosco;

interface

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

type
  Tfrm_op_seae_edi_cosco = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    Label2: TLabel;
    Edit2: TEdit;
    Edit1: TEdit;
    Label1: TLabel;
    SaveDialog1: TSaveDialog;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    Label3: TLabel;
    Label4: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox3: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox4: TbsSkinCheckRadioBox;
    procedure bsSkinButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
  private
    function FormatListString(Old:TStrings;mCount,Strlength:integer):String;
    function FormatEdiString(str:String;Strlength:integer=0):String;
    function GetLengthword(var s: String; l: Integer;str:String): String;
    procedure GetLengthTString(var sl:TStringList;l:integer);
    function GetCntrEdi(cntrsize: String):String;
    { Private declarations }
  public
    { Public declarations }
    function GetpkgsEdi(pkgs: String): String;
    procedure Edi_ZY;
    procedure Edi_Jap;
    procedure Edi_fs;
  end;

var
  frm_op_seae_edi_cosco: Tfrm_op_seae_edi_cosco;

implementation

uses u_op_seae, u_main, my_sys_function, u_data_share;

{$R *.dfm}
function Tfrm_op_seae_edi_cosco.GetpkgsEdi(pkgs: String): String;
var
  aQuery:TADOQuery;
begin
  aQuery:=CreateAdoQuery;
  try
    with aQuery do begin
      Close;SQL.Clear;
      SQL.Add('Select Edi代码 from t_code_package where 代码='''+pkgs+'''');
      Open;
      if IsEmpty then
        Result:=''
      else
        Result:=FieldByName('Edi代码').AsString;
    end;
  finally
    FreeAndNil(aQuery);
  end;

end;

function Tfrm_op_seae_edi_cosco.GetLengthword(var s: String; l: Integer;str:String): String;
var
  i:Integer;
  b:Boolean;
begin
  s:='';
  if Length(str)<=l then begin
    result:=str;
  end else begin
    b:=true;
    s:=Copy(str,l+1,Length(str)-l);
    str:=Copy(str,1,l);
    result:='';
    for i:=Length(str) downto 1 do begin
      if ( not (str[i] in [' ',';',',','.',':','/','(',')','?','+','-'])) and b then
        s:=str[i]+s
      else begin
        b:=false;
        result:=str[i]+Result;
      end;
    end;
    s:=s+' ';
  end;

end;

procedure Tfrm_op_seae_edi_cosco.GetLengthTString(var sl: TStringList; l: integer);
var
  i:integer;
  str_head,S:String;
  Stemp:TStrings;
begin
  Stemp:=TStringList.Create;
  try
    str_head:='';
    S:='';
    for i:=0 to sl.Count-1 do begin
      if sl[i]<>'' then
        stemp.add(GetLengthword(str_head,l,s+sl[i]));
      S:=Str_head;
    end;
      while S<>'' do begin
        stemp.add(GetLengthword(str_head,l,s));
        S:=Str_head;
      end;
      SL.Assign(Stemp);
  finally
    FreeAndNil(Stemp);
  end;
end;

function Tfrm_op_seae_edi_cosco.FormatEdiString(str:String;Strlength:integer=0):String;
var
  i:integer;
  strC:widestring;
begin
  strC:='';
  for i:=1 to length(str) do
  begin
    if ((str[i]=#39) or (str[i]=':') or (str[i]='+') or (str[i]='?') or (str[i]=';'))  then
    begin
      strC:=strC+'?'+str[i];
    end
    else
    begin
      strC:=strC+str[i];
    end;
  end;
  result:=strC;
end;


function Tfrm_op_seae_edi_cosco.FormatListString(Old:TStrings;mCount,Strlength:integer):String;
var
  i:integer;
  NewStrs:TStrings;
  mStr:String;
begin
  Result:='';
  NewStrs:=TStringList.Create;
  for i:=0 to old.Count-1 do begin
    if Length(old.Strings[i])<=Strlength then begin
      NewStrs.Add(old.Strings[i]);
    end else begin
      mStr:=old.Strings[i];
      while length(mStr)>Strlength do begin
        newStrs.Add(copy(mStr,1,Strlength));
        system.Delete(mStr,1,Strlength);
      end;
      newStrs.Add(mStr);
    end;
  end;
  try
    for i:=0 to mCount-1 do begin
      if i<NewStrs.Count then begin
        Result:=Result+NewStrs.Strings[i];
      end;
      if i<mCount-1 then
        Result:=Result+':';
    end;
  finally
    FreeAndNil(NewStrs);
  end;

end;


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

procedure Tfrm_op_seae_edi_cosco.FormShow(Sender: TObject);
var
  inifile1:Tinifile;
begin
  inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
  edit1.text:=inifile1.ReadString('EDI','COSCOSEND','');
  edit2.text:=inifile1.ReadString('EDI','COSCORECIEVE','COSCO');
  edit4.text:=inifile1.ReadString('EDI','COSCOPORTLOAD','CNTAO');
  edit3.text:=inifile1.ReadString('EDI','COSCOPORTDISCHARG','');
  bsSkinCheckRadioBox1.Checked:=inifile1.ReadBool('EDI','COSCONOCTN',true);
  inifile1.free;
end;
function Tfrm_op_seae_edi_cosco.GetCntrEdi(cntrsize: String):String;
var
  aQuery:TADOQuery;
begin
  aQuery:=CreateAdoQuery;
  try
    with aQuery do begin
      Close;SQL.Clear;
      SQL.Add('Select Edi代码 from t_code_ctn where 代码='''+cntrsize+'''');
      Open;
      if IsEmpty then
        Result:=''
      else
        Result:=FieldByName('Edi代码').AsString;
    end;
  finally
    FreeAndNil(aQuery);
  end;

end;
procedure Tfrm_op_seae_edi_cosco.Edi_ZY;
var
  str,sl,sl1:Tstringlist;
  i,j,Count,L,M:integer;
  strsql,strRmain,strtemp,S:string;
  rs:Tadoquery;
  aQuery2:Tadoquery;
  wide_str:widestring;
  k:integer;
  inifile1:Tinifile;
  strType:string;
  strDatetime:string;
  SenderCode,ReciverCode:string;
  function GetShipperString:String;
  var
    TempStr:TStringList;
  begin
    TempStr:=TStringList.Create;
    try
    if bsSkinCheckRadioBox2.Checked then
     TempStr.Text:=FormatEdiString(aQuery2.fieldbyname('发货人代码').AsString)
    else
     TempStr.Text:=FormatEdiString(frm_op_seae.t_op_seae.fieldbyname('发货人代码').AsString);
    GetLengthTString(TempStr,35);
    Result:='16:';
    Result:=Result+':';
    Result:=Result+FormatListString(TempStr,6,35)+'''';
    finally
      FreeAndNil(TempStr);
    end;
  end;

  function GetConsigneString:String;
  var
    TempStr:TStringList;
  begin
    TempStr:=TStringList.Create;
    try
      if bsSkinCheckRadioBox2.Checked then
        TempStr.Text:=FormatEdiString(aquery2.fieldbyname('收货人代码').AsString)
      else
        TempStr.Text:=FormatEdiString(frm_op_seae.t_op_seae.fieldbyname('收货人代码').AsString);
    GetLengthTString(TempStr,35);
    Result:='17:';
    Result:=Result+':';
    Result:=Result+FormatListString(TempStr,6,35)+'''';
    finally
      FreeAndNil(TempStr);
    end;
  end;

  function GetNOTIFYString:String;
  var
    TempStr:TStringList;
  begin
    TempStr:=TStringList.Create;
    try
      if bsSkinCheckRadioBox2.Checked then
        TempStr.Text:=FormatEdiString(aquery2.fieldbyname('通知人代码').AsString)
      else
        TempStr.Text:=FormatEdiString(frm_op_seae.t_op_seae.fieldbyname('通知人代码').AsString);
    GetLengthTString(TempStr,35);
    Result:='18:';
    Result:=Result+':';
    Result:=Result+FormatListString(TempStr,6,35)+'''';
    finally
      FreeAndNil(TempStr);
    end;
  end;
  function GetMARKSString:String;
  var
    TempStr:TStringList;
  begin
    TempStr:=TStringList.Create;
    try
      if bsSkinCheckRadioBox2.Checked then
        TempStr.Text:=FormatEdiString(aQuery2.fieldbyname('唛头').AsString)
      else
        TempStr.Text:=FormatEdiString(frm_op_seae.t_op_seae.fieldbyname('唛头').AsString);
    GetLengthTString(TempStr,35);
    Result:='44:';
    Result:=Result+FormatListString(TempStr,10,35)+'''';
    finally
      FreeAndNil(TempStr);
    end;
  end;


begin
  SenderCode:=trim(edit1.Text) ;
  ReciverCode:=trim(edit2.Text) ;
  strType:='9';
  sl:=Tstringlist.Create;
  sl1:=Tstringlist.Create;


  if frm_op_seae.dxdbgrid1.SelectedCount<=1 then
  begin
   if bsSkinCheckRadioBox2.Checked then begin
     aQuery2:=CreateAdoQuery;
     with aQuery2 do begin
       Close;
       SQL.Clear;
       SQL.Add('select * from t_op_seae_assistant where 编号='''+frm_op_seae.t_op_seae.fieldbyname('编号').AsString+'''');
       open;
     end;
   end;

    str:=Tstringlist.Create;
    str.Clear;
    str.Add('00:IFCSUM:MANIFEST:'+trim(strType)+':'+ SenderCode+':'+ReciverCode+':'+FormatDateTime('YYMMDDHHMM', Now)+#39);
    Count:=0;

    str.Add('10::'
                  + trim(frm_op_seae.t_op_seae.fieldbyname('船名').asstring) +':'
                  + trim(frm_op_seae.t_op_seae.fieldbyname('航次').asstring)
                  + '::::'
                  + FormatDateTime('YYYYMMDD',frm_op_seae.t_op_seae.fieldbyname('开船日期').asdatetime)+':'
                  +trim(edit4.text)+':'
                  +trim(frm_op_seae.t_op_seae.fieldbyname('装货港').asstring)
                  +#39); //船舶经营人


    str.Add('11:'
                  +'SOF'+':'
                  +trim(frm_op_seae.t_op_seae.fieldbyname('船公司').asstring)
                  +#39); //船舶经营人


   if bsSkinCheckRadioBox2.Checked then begin
    if frm_data_share.t_code_free.locate('代码',aQuery2.fieldbyname('付费方式').asstring,[]) then
    begin
      strtemp:=copy(frm_data_share.t_code_free.fieldbyname('代码').asstring,1,1);
    end
    else
    begin
      strtemp:='P';
    end;
   end else begin
    if frm_data_share.t_code_free.locate('代码',frm_op_seae.t_op_seae.fieldbyname('付费方式').asstring,[]) then
    begin
      strtemp:=copy(frm_data_share.t_code_free.fieldbyname('代码').asstring,1,1);
    end
    else
    begin
      strtemp:='P';
    end;
   end;


   if bsSkinCheckRadioBox2.Checked then begin
    str.Add ('12:'+trim(aQuery2.fieldbyname('主提单号').asstring)+':'
                  +':::::'  // 收货地
                  +trim(edit4.text)+':'
                  +trim(aQuery2.fieldbyname('装货港').asstring)+':'
                  +'CY-CY'+':'
                  +strtemp+':'
                  +FormatDateTime('YYYYMMDD',aQuery2.fieldbyname('开船日期').asdatetime)+#39);

    str.Add ('13:'+trim(edit3.text)+':'
                  +trim(aQuery2.fieldbyname('卸货港').asstring)+':'
                  +trim(edit3.Text)+':'
                  +trim(aQuery2.fieldbyname('交货地点').asstring)
                  +#39);
   end else begin
    str.Add ('12:'+trim(frm_op_seae.t_op_seae.fieldbyname('主提单号').asstring)+':'
                  +':::::'  // 收货地
                  +trim(edit4.text)+':'
                  +trim(frm_op_seae.t_op_seae.fieldbyname('装货港').asstring)+':'
                  +'CY-CY'+':'
                  +strtemp+':'
                  +FormatDateTime('YYYYMMDD',frm_op_seae.t_op_seae.fieldbyname('开船日期').asdatetime)+#39);

    str.Add ('13:'+trim(edit3.text)+':'
                  +trim(frm_op_seae.t_op_seae.fieldbyname('卸货港').asstring)+':'
                  +trim(edit3.Text)+':'
                  +trim(frm_op_seae.t_op_seae.fieldbyname('交货地点').asstring)
                  +#39);
   end;
        Str.Add(GetShipperString);
        Str.Add(GetConsigneString);
        Str.Add(GetNOTIFYString);

    IF trim(frm_op_seae.t_op_seae.fieldbyname('货物标识').asstring)='' THEN
      strtemp:='S'
    else
      strtemp:=trim(frm_op_seae.t_op_seae.fieldbyname('货物标识').asstring);

      str.Add ('41:001:'+strtemp+':'     //  货物标识		S/R/D/O
                  +trim(frm_op_seae.t_op_seae.fieldbyname('件数').asstring)
                  +'::'
                  +trim(frm_op_seae.t_op_seae.fieldbyname('包装').asstring) +':'  //第一层包装说明
                  +trim(frm_op_seae.t_op_seae.fieldbyname('重量').asstring) +'::' // 第一层包装尺码
                  +trim(frm_op_seae.t_op_seae.fieldbyname('尺码').asstring)  // 第一层包装皮重
                  +#39);
    IF trim(frm_op_seae.t_op_seae.fieldbyname('货物标识').asstring)='R'THEN
    BEGIN
      str.Add ('43:'     //  危险品、冷冻
                  +trim(frm_op_seae.t_op_seae.fieldbyname('温度单位').asstring) +':'
                  +trim(frm_op_seae.t_op_seae.fieldbyname('设置温度').asstring) +':'
                  +trim(frm_op_seae.t_op_seae.fieldbyname('最低温度').asstring) +':'
                  +trim(frm_op_seae.t_op_seae.fieldbyname('最高温度').asstring)
                  +#39);
    END;
    IF trim(frm_op_seae.t_op_seae.fieldbyname('货物标识').asstring)='D'THEN
    BEGIN
      str.Add ('43:'     //  危险品、冷冻
                  +trim(frm_op_seae.t_op_seae.fieldbyname('危险品分类').asstring) +':'
                  +trim(frm_op_seae.t_op_seae.fieldbyname('危险品编号').asstring) +':'
                  +':'
                  +':'
                  +#39);
    END;

        Str.Add(GetMARKSString);
//        Str.Add(GetCARGODESCRIPTIONString);

    if bsSkinCheckRadioBox2.Checked then
     sl1.Text:=FormatEdiString(aQuery2.fieldbyname('货物描述').AsString)
    else
     sl1.Text:=FormatEdiString(frm_op_seae.t_op_seae.fieldbyname('货物描述').AsString);
     GetLengthTString(sl1,70);
     sl.text:='';
     for L:=0 to sl1.Count-1 do begin
       if Trim(sl1.Strings[L])<>'' then
         sl.Add(sl1.Strings[L]);
     end;

      M:=1;
      for L:=0 to sl.Count-1 do begin
        if M<=5 then begin
          if M=1 then begin
            s:='47:'+FormatEdiString(sl.Strings[L],0)+':';
          end else begin
            if M=5 then
              s:=s+FormatEdiString(sl.Strings[L],0)
            else
              s:=s+FormatEdiString(sl.Strings[L],0)+':';
          end;
        end else begin
          S:=S+'''';
          Str.Add(S);
          M:=1;
          s:='47:'+FormatEdiString(sl.Strings[L],0)+':';
        end;
        M:=M+1;
      end;
      S:=S+'''';
      Str.Add(S);

    Count:=Count+11;
    if not bsSkinCheckRadioBox1.Checked then begin

    strRmain:='';
      try
        rs:=Tadoquery.Create(application);
        rs.Connection := frm_main.db;
        strsql:='select * from t_op_ctn where 编号='
             +#39+frm_op_seae.t_op_seae.fieldbyname('编号').asstring+#39;
        rs.Close;
        rs.sql.clear;
        rs.sql.add(strsql);
        rs.Open;
        if not rs.IsEmpty then begin
          rs.First;
          while not rs.Eof do begin
            if rs.fieldbyname('备注').asstring='' then
              strtemp:='F'
            else
              strtemp:=copy(rs.fieldbyname('备注').asstring,1,1);
            str.Add ('51:001:'+trim(rs.fieldbyname('箱号').asstring)+':'+trim(rs.fieldbyname('封号').asstring)+':'+Trim(rs.fieldbyname('尺寸').asstring+rs.fieldbyname('箱型').asstring)+':'+strtemp+':'
                          +trim(IntToStr(rs.fieldbyname('件数').AsInteger))+':'+trim(FloatToStr(rs.fieldbyname('重量').AsFloat))+':'+''''
                          );
            rs.Next;
          end;
        end;
        rs.Close;
        rs.Destroy;
      except
        on e:exception do
        begin
          rs.Close;
          rs.Destroy;
          exit;
        end;
      end;
      end else begin
        str.Add ('51:::::::::::::::'+'''');
      end;
    count:=str.count;
    str.Add ('99:'+ inttostr(count+1)+#39);
  end
  else
  begin
    str:=Tstringlist.Create;
    str.Clear;
    str.Add('00:IFCSUM:MANIFEST:'+trim(strType)+':'+ SenderCode+':'+ ReciverCode +':'+FormatDateTime('YYMMDDHHMM', Now)+#39);
    str.Add('10::'
                  + trim(frm_op_seae.t_op_seae.fieldbyname('船名').asstring) +':'
                  +trim(frm_op_seae.t_op_seae.fieldbyname('航次').asstring)
                  + '::::'
                  + FormatDateTime('YYYYMMDD',frm_op_seae.t_op_seae.fieldbyname('开船日期').asdatetime)+':'
                  +trim(edit4.Text)+':'
                  +trim(frm_op_seae.t_op_seae.fieldbyname('装货港').asstring)
                  +#39); //船舶经营人
    str.Add('11:'
                  +'SOF'+':'
                  +trim(frm_op_seae.t_op_seae.fieldbyname('船公司').asstring)
                  +#39); //船舶经营人

    Count:=0;
    for k:=0 to frm_op_seae.dxdbgrid1.SelectedCount-1 do
    begin
      frm_op_seae.t_op_seae.GotoBookmark(pointer(frm_op_seae.dxdbgrid1.selectedrows[k]));

     if bsSkinCheckRadioBox2.Checked then begin
       aQuery2:=CreateAdoQuery;
       with aQuery2 do begin
         Close;
         SQL.Clear;
         SQL.Add('select * from t_op_seae_assistant where 编号='''+frm_op_seae.t_op_seae.fieldbyname('编号').AsString+'''');
         open;
       end;
     end;

      {
      str.Add('11::'
                  + trim(frm_op_seae.t_op_seae.fieldbyname('船名').asstring) +':'
                  + 'V.'+trim(frm_op_seae.t_op_seae.fieldbyname('航次').asstring)
                  + '::::::::::' +#39); //船舶经营人
}
   if bsSkinCheckRadioBox2.Checked then begin
    if frm_data_share.t_code_free.locate('代码',aQuery2.fieldbyname('付费方式').asstring,[]) then
    begin
      strtemp:=copy(frm_data_share.t_code_free.fieldbyname('代码').asstring,1,1);
    end
    else
    begin
      strtemp:='P';
    end;
   end else begin

    if frm_data_share.t_code_free.locate('代码',frm_op_seae.t_op_seae.fieldbyname('付费方式').asstring,[]) then
    begin
      strtemp:=copy(frm_data_share.t_code_free.fieldbyname('代码').asstring,1,1);
    end
    else
    begin
      strtemp:='P';
    end;
   end;
   if bsSkinCheckRadioBox2.Checked then begin
    str.Add ('12:'+trim(aQuery2.fieldbyname('主提单号').asstring)+':'
                  +':::::'  // 收货地
                  +trim(edit4.text)+':'
                  +trim(aQuery2.fieldbyname('装货港').asstring)+':'
                  +'CY-CY'+':'
                  +strtemp+':'
                  +FormatDateTime('YYYYMMDD',aQuery2.fieldbyname('开船日期').asdatetime)+#39);

    str.Add ('13:'+trim(edit3.text)+':'
                  +trim(aQuery2.fieldbyname('卸货港').asstring)+':'
                  +trim(edit3.Text)+':'
                  +trim(aQuery2.fieldbyname('交货地点').asstring)
                  +#39);
   end else begin

    str.Add ('12:'+trim(frm_op_seae.t_op_seae.fieldbyname('主提单号').asstring)+':'
                  +':::::'  // 收货地
                  +trim(edit4.Text)+':'
                  +trim(frm_op_seae.t_op_seae.fieldbyname('装货港').asstring)+':'
                  +'CY-CY'+':'
                  +strtemp+':'
                  +FormatDateTime('YYYYMMDD',frm_op_seae.t_op_seae.fieldbyname('开船日期').asdatetime)+#39);

    str.Add ('13:'+trim(edit3.text)+':'
                  +trim(frm_op_seae.t_op_seae.fieldbyname('卸货港').asstring)+':'
                  +trim(edit3.Text)+':'
                  +trim(frm_op_seae.t_op_seae.fieldbyname('交货地点').asstring)
                  +#39);
   end;
        Str.Add(GetShipperString);
        Str.Add(GetConsigneString);
        Str.Add(GetNOTIFYString);

    IF trim(frm_op_seae.t_op_seae.fieldbyname('货物标识').asstring)='' THEN
      strtemp:='S'
    else
      strtemp:=trim(frm_op_seae.t_op_seae.fieldbyname('货物标识').asstring);

    str.Add ('41:001:'+strtemp+':'     //  货物标识		S/R/D/O
                  +trim(frm_op_seae.t_op_seae.fieldbyname('件数').asstring)
                  +'::'
                  +trim(frm_op_seae.t_op_seae.fieldbyname('包装').asstring) +':'  //第一层包装说明
                  +trim(frm_op_seae.t_op_seae.fieldbyname('重量').asstring) +'::' // 第一层包装尺码
                  +trim(frm_op_seae.t_op_seae.fieldbyname('尺码').asstring)  // 第一层包装皮重
                  +#39);
    IF trim(frm_op_seae.t_op_seae.fieldbyname('货物标识').asstring)='R'THEN
    BEGIN
      str.Add ('43:'     //  危险品、冷冻
                  +trim(frm_op_seae.t_op_seae.fieldbyname('温度单位').asstring) +':'
                  +trim(frm_op_seae.t_op_seae.fieldbyname('设置温度').asstring) +':'
                  +trim(frm_op_seae.t_op_seae.fieldbyname('最低温度').asstring) +':'
                  +trim(frm_op_seae.t_op_seae.fieldbyname('最高温度').asstring)
                  +#39);
    END;
    IF trim(frm_op_seae.t_op_seae.fieldbyname('货物标识').asstring)='D'THEN
    BEGIN
      str.Add ('43:'     //  危险品、冷冻
                  +trim(frm_op_seae.t_op_seae.fieldbyname('危险品分类').asstring) +':'
                  +trim(frm_op_seae.t_op_seae.fieldbyname('危险品编号').asstring) +':'
                  +':'
                  +':'
                  +#39);
    END;

        Str.Add(GetMARKSString);
//        Str.Add(GetCARGODESCRIPTIONString);

    if bsSkinCheckRadioBox2.Checked then
     sl1.Text:=FormatEdiString(aQuery2.fieldbyname('货物描述').AsString)
    else
     sl1.Text:=FormatEdiString(frm_op_seae.t_op_seae.fieldbyname('货物描述').AsString);
     GetLengthTString(sl1,70);
     sl.text:='';
     for L:=0 to sl1.Count-1 do begin
       if Trim(sl1.Strings[L])<>'' then
         sl.Add(sl1.Strings[L]);
     end;

      M:=1;
      for L:=0 to sl.Count-1 do begin
        if M<=5 then begin
          if M=1 then begin
            s:='47:'+FormatEdiString(sl.Strings[L],0)+':';
          end else begin
            if M=5 then
              s:=s+FormatEdiString(sl.Strings[L],0)
            else
              s:=s+FormatEdiString(sl.Strings[L],0)+':';
          end;
        end else begin
          S:=S+'''';
          Str.Add(S);
          M:=1;
          s:='47:'+FormatEdiString(sl.Strings[L],0)+':';
        end;
        M:=M+1;
      end;
      S:=S+'''';
      Str.Add(S);

      Count:=Count+11;

      if not bsSkinCheckRadioBox1.Checked then begin
      strRmain:='';
      try
        rs:=Tadoquery.Create(application);
        rs.Connection := frm_main.db;
        strsql:='select * from t_op_ctn where 编号='
             +#39+frm_op_seae.t_op_seae.fieldbyname('编号').asstring+#39;
        rs.Close;
        rs.sql.clear;
        rs.sql.add(strsql);
        rs.Open;
        if not rs.IsEmpty then begin
          rs.First;
          while not rs.Eof do begin
            if rs.fieldbyname('备注').asstring='' then
              strtemp:='F'
            else
              strtemp:=copy(rs.fieldbyname('备注').asstring,1,1);
               str.Add ('51:001:'+trim(rs.fieldbyname('箱号').asstring)+':'+trim(rs.fieldbyname('封号').asstring)+':'+Trim(rs.fieldbyname('尺寸').asstring+rs.fieldbyname('箱型').asstring)+':'+strtemp+':'
                          +trim(IntToStr(rs.fieldbyname('件数').AsInteger))+':'+trim(FloatToStr(rs.fieldbyname('重量').AsFloat))+':'+''''
                          );

            rs.Next;
          end;
        end;
        rs.Close;
        rs.Destroy;
      except
        on e:exception do
        begin
          rs.Close;
          rs.Destroy;
          exit;
        end;
      end;
      end else begin
        str.Add ('51:::::::::::::::'+'''');
      end;

    end;
    count:=str.count;
    str.Add ('99:'+ inttostr(count+1)+#39);
  end;
  freeandnil(sl);
  freeandnil(sl1);

  SaveDialog1.FileName:=frm_op_seae.t_op_seae.fieldbyname('船名').asstring+frm_op_seae.t_op_seae.fieldbyname('航次').asstring;
  if SaveDialog1.Execute then
  begin
    str.SaveToFile(SaveDialog1.FileName+'.txt');
    showmessage('文件生成成功！');
  end
  else
  begin
    showmessage('文件生成失败！');
    exit;
  end;

  inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
  inifile1.WriteString('EDI','COSCOSEND',edit1.text);
  inifile1.WriteString('EDI','COSCORECIEVE',edit2.text);
  inifile1.WriteString('EDI','COSCOPORTLOAD',edit4.text);
  inifile1.WriteString('EDI','COSCOPORTDISCHARG',edit3.text);
  inifile1.WriteBool('EDI','COSCONOCTN',bsSkinCheckRadioBox1.checked);
  inifile1.free;

  close;
end;


/// \日本货
procedure Tfrm_op_seae_edi_cosco.Edi_Jap;
var
  str,sl,sl1:Tstringlist;
  i,j,Count,L,M:integer;
  strsql,strRmain,strtemp,S:string;
  rs:Tadoquery;
  aQuery2:Tadoquery;
  wide_str:widestring;
  k:integer;
  inifile1:Tinifile;
  strType:string;
  strDatetime:string;
  SenderCode,ReciverCode:string;
  function GetShipperString:String;
  var
    TempStr:TStringList;
  begin
    TempStr:=TStringList.Create;
    try
    if bsSkinCheckRadioBox2.Checked then
     TempStr.Text:=FormatEdiString(aQuery2.fieldbyname('发货人代码').AsString)
    else
     TempStr.Text:=FormatEdiString(frm_op_seae.t_op_seae.fieldbyname('发货人代码').AsString);
    GetLengthTString(TempStr,35);
    Result:='16:';
    Result:=Result+':';
    Result:=Result+FormatListString(TempStr,6,35)+'''';
    finally
      FreeAndNil(TempStr);
    end;
  end;

  function GetConsigneString:String;
  var
    TempStr:TStringList;
  begin
    TempStr:=TStringList.Create;
    try
      if bsSkinCheckRadioBox2.Checked then
        TempStr.Text:=FormatEdiString(aquery2.fieldbyname('收货人代码').AsString)
      else
        TempStr.Text:=FormatEdiString(frm_op_seae.t_op_seae.fieldbyname('收货人代码').AsString);
    GetLengthTString(TempStr,35);
    Result:='17:';
    Result:=Result+':';
    Result:=Result+FormatListString(TempStr,6,35)+'''';
    finally
      FreeAndNil(TempStr);
    end;
  end;

  function GetNOTIFYString:String;
  var
    TempStr:TStringList;
  begin
    TempStr:=TStringList.Create;
    try
      if bsSkinCheckRadioBox2.Checked then
        TempStr.Text:=FormatEdiString(aquery2.fieldbyname('通知人代码').AsString)
      else
        TempStr.Text:=FormatEdiString(frm_op_seae.t_op_seae.fieldbyname('通知人代码').AsString);
    GetLengthTString(TempStr,35);
    Result:='18:';
    Result:=Result+':';
    Result:=Result+FormatListString(TempStr,6,35)+'''';
    finally
      FreeAndNil(TempStr);
    end;
  end;
  function GetMARKSString:String;
  var
    TempStr:TStringList;
  begin
    TempStr:=TStringList.Create;
    try
      if bsSkinCheckRadioBox2.Checked then
        TempStr.Text:=FormatEdiString(aQuery2.fieldbyname('唛头').AsString)
      else
        TempStr.Text:=FormatEdiString(frm_op_seae.t_op_seae.fieldbyname('唛头').AsString);
    GetLengthTString(TempStr,35);
    Result:='44:001:';
    Result:=Result+FormatListString(TempStr,10,35)+'''';
    finally
      FreeAndNil(TempStr);
    end;
  end;


begin
  SenderCode:=trim(edit1.Text) ;
  ReciverCode:=trim(edit2.Text) ;
  strType:='9';
  sl:=Tstringlist.Create;
  sl1:=Tstringlist.Create;

  if frm_op_seae.dxdbgrid1.SelectedCount<=1 then
  begin
    if bsSkinCheckRadioBox2.Checked then
    begin
      aQuery2:=CreateAdoQuery;
      with aQuery2 do
      begin
        Close;
        SQL.Clear;
        SQL.Add('select * from t_op_seae_assistant where 编号='''+frm_op_seae.t_op_seae.fieldbyname('编号').AsString+'''');
        open;
      end;
    end;

    str:=Tstringlist.Create;
    str.Clear;
    str.Add('00:IFCSUM:MANIFEST:'+trim(strType)+':'+ SenderCode+':'+ReciverCode+':'+FormatDateTime('YYYYMMDDHHMM', Now)+#39);
    Count:=0;

    str.Add('10:'                                                                //1记录类型标识   2船名代码
               +':'+ trim(frm_op_seae.t_op_seae.fieldbyname('船名').asstring)    //3船名
               + ':'                                                             //4舶国籍代码
               +':'+ trim(frm_op_seae.t_op_seae.fieldbyname('航次').asstring)    //5航次
               + ':'                                                             //6航线代码
               + ':'                                                             //7航线
               + ':'                                                             //8预计到达日期
               + ':'+ FormatDateTime('YYYYMMDD',frm_op_seae.t_op_seae.fieldbyname('开船日期').asdatetime) //9离港日期
               +':'+trim(edit4.text)                                             // 10离港地点代码
               +':'+trim(frm_op_seae.t_op_seae.fieldbyname('装货港').asstring)   //11离港地点
               + ':'                                                             //12下一挂港代码
               + ':'                                                             //13下一挂港
               + ':'                                                             //14集装箱箱数
                  +#39); //船舶经营人


    str.Add('11:'+'00036'   //1 记录类型标识 2 船公司(承运人)代码
                 +':'  //3 船公司(承运人)
                  +#39); //船舶经营人


    if bsSkinCheckRadioBox2.Checked then
    begin
     if frm_data_share.t_code_free.locate('代码',aQuery2.fieldbyname('付费方式').asstring,[]) then
     begin
       strtemp:=copy(frm_data_share.t_code_free.fieldbyname('代码').asstring,1,1);
     end
     else
     begin
       strtemp:='P';
     end;
    end
    else
    begin
      if frm_data_share.t_code_free.locate('代码',frm_op_seae.t_op_seae.fieldbyname('付费方式').asstring,[]) then
      begin
        strtemp:=copy(frm_data_share.t_code_free.fieldbyname('代码').asstring,1,1);
      end
      else
      begin
        strtemp:='P';
      end;
    end;


    if bsSkinCheckRadioBox2.Checked then
    begin
     str.Add ('12:'+trim(aQuery2.fieldbyname('主提单号').asstring)            //1 记录类型标识 2 提单号
                  +':'                                                       //  3前程运输船名代码
                  +':'                                                       //  4 前程运输船名
                  +':'                                                       //  5 前程运输航次
                  +':'+trim(edit4.text)                                      //  6 收货地代码
                  +':'+trim(aQuery2.fieldbyname('装货港').asstring)          //  7 收货地
                  +':'+trim(edit4.text)                                      //  8 装货港代码
                  +':'+trim(aQuery2.fieldbyname('装货港').asstring)          //  9 装货港
                  +':'+'CY-CY'                                              //10 运输条款
                  +':'+strtemp                                              // 11 付款方式
                  +':'+FormatDateTime('YYYYMMDD',aQuery2.fieldbyname('开船日期').asdatetime)  //12 装货日期
                  +':'                                                       //  13检疫代码
                  +':'                                                       //  14 签发日期
                  +':'                                                       //  15  币种
                  +':'                                                       //  16 汇率
                  +#39);

      str.Add ('13:'+trim(edit3.text)                                           // 1 记录类型标识 2   卸货港代码
                  +':'+trim(aQuery2.fieldbyname('卸货港').asstring)           // 3  卸货港
                  +':'+trim(edit3.Text)                                       // 4  交货地代码
                  +':'+trim(aQuery2.fieldbyname('交货地点').asstring)         // 5 交货地
                  +':'                                                       //  6 中转港代码
                  +':'                                                       //  7 中转港
                  +':'                                                       //  8 提单签发地代码
                  +':'                                                       //  9 提单签发地
                  +#39);
    end
    else
    begin
      str.Add ('12:'+trim(frm_op_seae.t_op_seae.fieldbyname('主提单号').asstring)            //1 记录类型标识 2 提单号
                  +':'                                                       //  3前程运输船名代码
                  +':'                                                       //  4 前程运输船名
                  +':'                                                       //  5 前程运输航次
                  +':'+trim(edit4.text)                                      //  6 收货地代码
                  +':'+trim(frm_op_seae.t_op_seae.fieldbyname('装货港').asstring)          //  7 收货地
                  +':'+trim(edit4.text)                                      //  8 装货港代码
                  +':'+trim(frm_op_seae.t_op_seae.fieldbyname('装货港').asstring)  //  9 装货港
                  +':'+'CY-CY'                                              //10 运输条款
                  +':'+strtemp                                              // 11 付款方式
                  +':'+FormatDateTime('YYYYMMDD',frm_op_seae.t_op_seae.fieldbyname('开船日期').asdatetime)  //12 装货日期
                  +':'                                                       //  13检疫代码
                  +':'                                                       //  14 签发日期
                  +':'                                                       //  15  币种
                  +':'                                                       //  16 汇率
                  +#39);

      str.Add ('13:'+trim(edit3.text)                                               // 1 记录类型标识 2   卸货港代码
                  +':'+trim(frm_op_seae.t_op_seae.fieldbyname('卸货港').asstring) // 3  卸货港
                  +':'+trim(edit3.Text)                                            // 4  交货地代码
                  +':'+trim(frm_op_seae.t_op_seae.fieldbyname('交货地点').asstring)         // 5 交货地
                  +':'                                                              //  6 中转港代码
                  +':'                                                              //  7 中转港
                  +':'                                                               //  8 提单签发地代码
                  +':'                                                              //  9 提单签发地
                  +#39);
    end;
    Str.Add(GetShipperString);
    Str.Add(GetConsigneString);
    Str.Add(GetNOTIFYString);

    IF trim(frm_op_seae.t_op_seae.fieldbyname('货物标识').asstring)='' THEN
      strtemp:='S'
    else
      strtemp:=trim(frm_op_seae.t_op_seae.fieldbyname('货物标识').asstring);

      str.Add ('41:001'                                                            // 1  记录类型标识 2货物序号
                  +':'+strtemp                                                      // 3  货物标识		S/R/D/O
                  +':'+trim(frm_op_seae.t_op_seae.fieldbyname('件数').asstring)    // 4  件数
                  +':'                                                             // 5 包装类型代码
                  +':'+trim(frm_op_seae.t_op_seae.fieldbyname('包装').asstring)   // 6  包装类型
                  +':'+trim(frm_op_seae.t_op_seae.fieldbyname('重量').asstring) // 7  货毛重
                  +'::'                                                            // 8  货净重
                  +trim(frm_op_seae.t_op_seae.fieldbyname('尺码').asstring)       // 9  货尺码
                  +#39);



    IF trim(frm_op_seae.t_op_seae.fieldbyname('货物标识').asstring)='R'THEN
    BEGIN
      str.Add ('43:'     //  危险品、冷冻
                  +trim(frm_op_seae.t_op_seae.fieldbyname('温度单位').asstring) +':'
                  +trim(frm_op_seae.t_op_seae.fieldbyname('设置温度').asstring) +':'
                  +trim(frm_op_seae.t_op_seae.fieldbyname('最低温度').asstring) +':'
                  +trim(frm_op_seae.t_op_seae.fieldbyname('最高温度').asstring)
                  +#39);
    END;
    IF trim(frm_op_seae.t_op_seae.fieldbyname('货物标识').asstring)='D'THEN
    BEGIN
      str.Add ('43:'     //  危险品、冷冻
                  +trim(frm_op_seae.t_op_seae.fieldbyname('危险品分类').asstring) +':'
                  +trim(frm_op_seae.t_op_seae.fieldbyname('危险品编号').asstring) +':'
                  +':'
                  +':'
                  +#39);
    END;

        Str.Add(GetMARKSString);
//        Str.Add(GetCARGODESCRIPTIONString);

    if bsSkinCheckRadioBox2.Checked then
     sl1.Text:=FormatEdiString(aQuery2.fieldbyname('货物描述').AsString)
    else
     sl1.Text:=FormatEdiString(frm_op_seae.t_op_seae.fieldbyname('货物描述').AsString);
     GetLengthTString(sl1,70);
     sl.text:='';
     for L:=0 to sl1.Count-1 do begin
       if Trim(sl1.Strings[L])<>'' then
         sl.Add(sl1.Strings[L]);
     end;

      M:=1;
      for L:=0 to sl.Count-1 do begin
        if M<=5 then begin
          if M=1 then begin
            s:='47:001:'+FormatEdiString(sl.Strings[L],0)+':';
          end else begin
            if M=5 then
              s:=s+FormatEdiString(sl.Strings[L],0)
            else
              s:=s+FormatEdiString(sl.Strings[L],0)+':';
          end;
        end else begin
          S:=S+'''';
          Str.Add(S);
          M:=1;
          s:='47:001:'+FormatEdiString(sl.Strings[L],0)+':';
        end;
        M:=M+1;
      end;
      S:=S+'''';
      Str.Add(S);

    Count:=Count+11;
    if not bsSkinCheckRadioBox1.Checked then
    begin

      strRmain:='';
      try
        rs:=Tadoquery.Create(application);
        rs.Connection := frm_main.db;
        strsql:='select * from t_op_ctn where 编号='
             +#39+frm_op_seae.t_op_seae.fieldbyname('编号').asstring+#39;
        rs.Close;
        rs.sql.clear;
        rs.sql.add(strsql);
        rs.Open;
        if not rs.IsEmpty then
        begin
          rs.First;
          while not rs.Eof do
          begin
            if rs.fieldbyname('备注').asstring='' then
              strtemp:='F'
            else
              strtemp:=copy(rs.fieldbyname('备注').asstring,1,1);
            str.Add ('51:001:'+trim(rs.fieldbyname('箱号').asstring)+':'+trim(rs.fieldbyname('封号').asstring)+':'+Trim(rs.fieldbyname('尺寸').asstring+rs.fieldbyname('箱型').asstring)+':'+strtemp+':'
                          +trim(IntToStr(rs.fieldbyname('件数').AsInteger))+':'+trim(FloatToStr(rs.fieldbyname('重量').AsFloat))+':'+''''
                          );
            rs.Next;
          end;
        end;
        rs.Close;
        rs.Destroy;
      except
        on e:exception do
        begin
          rs.Close;
          rs.Destroy;
          exit;
        end;
      end;
    end
    else
    begin
        str.Add ('51:::::::::::::::'+'''');
    end;
    count:=str.count;
    str.Add ('99:'+ inttostr(count+1)+#39);
  end
  else
  begin
    str:=Tstringlist.Create;
    str.Clear;
    str.Add('00:IFCSUM:MANIFEST:'+trim(strType)+':'+ SenderCode+':'+ ReciverCode +':'+FormatDateTime('YYMMDDHHMM', Now)+#39);
    str.Add('10:'                                                                //1记录类型标识   2船名代码
               +':'+ trim(frm_op_seae.t_op_seae.fieldbyname('船名').asstring)    //3船名
               + ':'                                                             //4舶国籍代码
               +':'+ trim(frm_op_seae.t_op_seae.fieldbyname('航次').asstring)    //5航次
               + ':'                                                             //6航线代码
               + ':'                                                             //7航线
               + ':'                                                             //8预计到达日期
               + ':'+ FormatDateTime('YYYYMMDD',frm_op_seae.t_op_seae.fieldbyname('开船日期').asdatetime) //9离港日期
                +':'+trim(edit4.text)                                             // 10离港地点代码
                +':'+trim(frm_op_seae.t_op_seae.fieldbyname('装货港').asstring)   //11离港地点
               + ':'                                                             //12下一挂港代码
               + ':'                                                             //13下一挂港
               + ':'                                                             //14集装箱箱数
                  +#39); //船舶经营人


    str.Add('11:'+'00036'   //1 记录类型标识 2 船公司(承运人)代码
                 +':'  //3 船公司(承运人)
                  +#39); //船舶经营人

    Count:=0;
    for k:=0 to frm_op_seae.dxdbgrid1.SelectedCount-1 do
    begin
      frm_op_seae.t_op_seae.GotoBookmark(pointer(frm_op_seae.dxdbgrid1.selectedrows[k]));

      if bsSkinCheckRadioBox2.Checked then
      begin
        aQuery2:=CreateAdoQuery;
        with aQuery2 do
        begin
          Close;
          SQL.Clear;
          SQL.Add('select * from t_op_seae_assistant where 编号='''+frm_op_seae.t_op_seae.fieldbyname('编号').AsString+'''');
          open;
        end;
      end;

      {
      str.Add('11::'
                  + trim(frm_op_seae.t_op_seae.fieldbyname('船名').asstring) +':'
                  + 'V.'+trim(frm_op_seae.t_op_seae.fieldbyname('航次').asstring)
                  + '::::::::::' +#39); //船舶经营人
}
     if bsSkinCheckRadioBox2.Checked then
     begin
       if frm_data_share.t_code_free.locate('代码',aQuery2.fieldbyname('付费方式').asstring,[]) then
       begin
         strtemp:=copy(frm_data_share.t_code_free.fieldbyname('代码').asstring,1,1);
       end
       else
       begin
         strtemp:='P';
       end;
     end
     else
     begin

       if frm_data_share.t_code_free.locate('代码',frm_op_seae.t_op_seae.fieldbyname('付费方式').asstring,[]) then
       begin
         strtemp:=copy(frm_data_share.t_code_free.fieldbyname('代码').asstring,1,1);
       end
       else
       begin
         strtemp:='P';
       end;
      end;
      if bsSkinCheckRadioBox2.Checked then
      begin
        str.Add ('12:'+trim(aQuery2.fieldbyname('主提单号').asstring)            //1 记录类型标识 2 提单号
                  +':'                                                       //  3前程运输船名代码
                  +':'                                                       //  4 前程运输船名
                  +':'                                                       //  5 前程运输航次
                  +':'+trim(edit4.text)                                      //  6 收货地代码
                  +':'+trim(aQuery2.fieldbyname('装货港').asstring)          //  7 收货地
                  +':'+trim(edit4.text)                                      //  8 装货港代码
                  +':'+trim(aQuery2.fieldbyname('装货港').asstring)          //  9 装货港
                  +':'+'CY-CY'                                              //10 运输条款
                  +':'+strtemp                                              // 11 付款方式
                  +':'+FormatDateTime('YYYYMMDDHH',aQuery2.fieldbyname('开船日期').asdatetime)  //12 装货日期
                  +':'                                                       //  13检疫代码
                  +':'                                                       //  14 签发日期
                  +':'                                                       //  15  币种
                  +':'                                                       //  16 汇率
                  +#39);

        str.Add ('13:'+trim(edit3.text)                                           // 1 记录类型标识 2   卸货港代码
                  +':'+trim(aQuery2.fieldbyname('卸货港').asstring)           // 3  卸货港
                  +':'+trim(edit3.Text)                                       // 4  交货地代码
                  +':'+trim(aQuery2.fieldbyname('交货地点').asstring)         // 5 交货地
                  +':'                                                       //  6 中转港代码
                  +':'                                                       //  7 中转港
                  +':'                                                       //  8 提单签发地代码
                  +':'                                                       //  9 提单签发地
                  +':'                                                       //  10 中转标志
                  +#39);
      end
      else
      begin
       str.Add ('12:'+trim(frm_op_seae.t_op_seae.fieldbyname('主提单号').asstring)            //1 记录类型标识 2 提单号
                  +':'                                                       //  3前程运输船名代码
                  +':'                                                       //  4 前程运输船名
                  +':'                                                       //  5 前程运输航次
                  +':'+trim(edit4.text)                                      //  6 收货地代码
                  +':'+trim(frm_op_seae.t_op_seae.fieldbyname('装货港').asstring)          //  7 收货地
                  +':'+trim(edit4.text)                                      //  8 装货港代码
                  +':'+trim(frm_op_seae.t_op_seae.fieldbyname('装货港').asstring)          //  9 装货港
                  +':'+'CY-CY'                                              //10 运输条款
                  +':'+strtemp                                              // 11 付款方式
                  +':'+FormatDateTime('YYYYMMDDHH',frm_op_seae.t_op_seae.fieldbyname('开船日期').asdatetime)  //12 装货日期
                  +':'                                                       //  13检疫代码
                  +':'                                                       //  14 签发日期
                  +':'                                                       //  15  币种
                  +':'                                                       //  16 汇率
                  +#39);

       str.Add ('13:'+trim(edit3.text)                                               // 1 记录类型标识 2   卸货港代码
                  +':'+trim(frm_op_seae.t_op_seae.fieldbyname('卸货港').asstring) // 3  卸货港
                  +':'+trim(edit3.Text)                                            // 4  交货地代码
                  +':'+trim(frm_op_seae.t_op_seae.fieldbyname('交货地点').asstring)         // 5 交货地
                  +':'                                                              //  6 中转港代码
                  +':'                                                              //  7 中转港
                  +':'                                                               //  8 提单签发地代码
                  +':'                                                              //  9 提单签发地
                  +':'                                                             //  10 中转标志
                  +#39);
      end;
        Str.Add(GetShipperString);
        Str.Add(GetConsigneString);
        Str.Add(GetNOTIFYString);

     IF trim(frm_op_seae.t_op_seae.fieldbyname('货物标识').asstring)='' THEN
       strtemp:='S'
     else
       strtemp:=trim(frm_op_seae.t_op_seae.fieldbyname('货物标识').asstring);

       str.Add ('41:001'                                                            // 1  记录类型标识 2货物序号
                  +':'+strtemp                                                      // 3  货物标识		S/R/D/O
                  +':'+trim(frm_op_seae.t_op_seae.fieldbyname('件数').asstring)    // 4  件数
                  +':'                                                             // 5 包装类型代码
                  +':'+trim(frm_op_seae.t_op_seae.fieldbyname('包装').asstring)   // 6  包装类型
                  +':'+trim(frm_op_seae.t_op_seae.fieldbyname('重量').asstring) // 7  货毛重
                  +'::'                                                            // 8  货净重
                  +trim(frm_op_seae.t_op_seae.fieldbyname('尺码').asstring)       // 9  货尺码
                  +#39);
     IF trim(frm_op_seae.t_op_seae.fieldbyname('货物标识').asstring)='R'THEN
     BEGIN
       str.Add ('43:'     //  危险品、冷冻
                  +trim(frm_op_seae.t_op_seae.fieldbyname('温度单位').asstring) +':'
                  +trim(frm_op_seae.t_op_seae.fieldbyname('设置温度').asstring) +':'
                  +trim(frm_op_seae.t_op_seae.fieldbyname('最低温度').asstring) +':'
                  +trim(frm_op_seae.t_op_seae.fieldbyname('最高温度').asstring)
                  +#39);
     END;
     IF trim(frm_op_seae.t_op_seae.fieldbyname('货物标识').asstring)='D'THEN
     BEGIN
        str.Add ('43:'     //  危险品、冷冻
                  +trim(frm_op_seae.t_op_seae.fieldbyname('危险品分类').asstring) +':'
                  +trim(frm_op_seae.t_op_seae.fieldbyname('危险品编号').asstring) +':'
                  +':'
                  +':'
                  +#39);
     END;

        Str.Add(GetMARKSString);
//        Str.Add(GetCARGODESCRIPTIONString);

      if bsSkinCheckRadioBox2.Checked then
       sl1.Text:=FormatEdiString(aQuery2.fieldbyname('货物描述').AsString)
      else
       sl1.Text:=FormatEdiString(frm_op_seae.t_op_seae.fieldbyname('货物描述').AsString);
       GetLengthTString(sl1,70);
       sl.text:='';
       for L:=0 to sl1.Count-1 do
       begin
         if Trim(sl1.Strings[L])<>'' then
           sl.Add(sl1.Strings[L]);
       end;

        M:=1;
        for L:=0 to sl.Count-1 do
        begin
          if M<=5 then
          begin
            if M=1 then
            begin
              s:='47:001:'+FormatEdiString(sl.Strings[L],0)+':';
            end
            else
            begin
              if M=5 then
                s:=s+FormatEdiString(sl.Strings[L],0)
              else
                s:=s+FormatEdiString(sl.Strings[L],0)+':';
            end;
          end
          else
          begin
            S:=S+'''';
            Str.Add(S);
            M:=1;
            s:='47:001:'+FormatEdiString(sl.Strings[L],0)+':';
          end;
          M:=M+1;
        end;
        S:=S+'''';
        Str.Add(S);

        Count:=Count+11;

        if not bsSkinCheckRadioBox1.Checked then begin
        strRmain:='';
        try
          rs:=Tadoquery.Create(application);
          rs.Connection := frm_main.db;
          strsql:='select * from t_op_ctn where 编号='
               +#39+frm_op_seae.t_op_seae.fieldbyname('编号').asstring+#39;
          rs.Close;
          rs.sql.clear;
          rs.sql.add(strsql);
          rs.Open;
          if not rs.IsEmpty then
          begin
            rs.First;
            while not rs.Eof do
            begin
              if rs.fieldbyname('备注').asstring='' then
              strtemp:='F'
              else
                strtemp:=copy(rs.fieldbyname('备注').asstring,1,1);
               str.Add ('51:001:'+trim(rs.fieldbyname('箱号').asstring)+':'+trim(rs.fieldbyname('封号').asstring)+':'+Trim(rs.fieldbyname('尺寸').asstring+rs.fieldbyname('箱型').asstring)+':'+strtemp+':'
                          +trim(IntToStr(rs.fieldbyname('件数').AsInteger))+':'+trim(FloatToStr(rs.fieldbyname('重量').AsFloat))+':'+''''
                          );

              rs.Next;
            end;
          end;
          rs.Close;
          rs.Destroy;
        except
          on e:exception do
          begin
            rs.Close;
            rs.Destroy;
          exit;
         end;
        end;
      end
      else
      begin
        str.Add ('51:::::::::::::::'+'''');
      end;

    end;
    count:=str.count;
    str.Add ('99:'+ inttostr(count+1)+#39);
  end;
  freeandnil(sl);
  freeandnil(sl1);

  SaveDialog1.FileName:=frm_op_seae.t_op_seae.fieldbyname('船名').asstring+frm_op_seae.t_op_seae.fieldbyname('航次').asstring;
  if SaveDialog1.Execute then
  begin
    str.SaveToFile(SaveDialog1.FileName+'.txt');
    showmessage('文件生成成功！');
  end
  else
  begin
    showmessage('文件生成失败！');
    exit;
  end;

  inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
  inifile1.WriteString('EDI','COSCOSEND',edit1.text);
  inifile1.WriteString('EDI','COSCORECIEVE',edit2.text);
  inifile1.WriteString('EDI','COSCOPORTLOAD',edit4.text);
  inifile1.WriteString('EDI','COSCOPORTDISCHARG',edit3.text);
  inifile1.WriteBool('EDI','COSCONOCTN',bsSkinCheckRadioBox1.checked);
  inifile1.free;

  close;
end;


/// 釜山
procedure Tfrm_op_seae_edi_cosco.Edi_FS;
var
  str,sl,sl1:Tstringlist;
  i,j,Count,L,M:integer;
  strsql,strRmain,strtemp,S:string;
  rs:Tadoquery;
  aQuery2:Tadoquery;
  wide_str:widestring;
  k:integer;
  inifile1:Tinifile;
  strType:string;
  strDatetime:string;
  SenderCode,ReciverCode:string;
  function GetShipperString:String;
  var
    TempStr:TStringList;
  begin
    TempStr:=TStringList.Create;
    try
    if bsSkinCheckRadioBox2.Checked then
     TempStr.Text:=FormatEdiString(aQuery2.fieldbyname('发货人代码').AsString)
    else
     TempStr.Text:=FormatEdiString(frm_op_seae.t_op_seae.fieldbyname('发货人代码').AsString);
    GetLengthTString(TempStr,35);
    Result:='16:';
    Result:=Result+':';
    Result:=Result+FormatListString(TempStr,6,35)+'''';
    finally
      FreeAndNil(TempStr);
    end;
  end;

  function GetConsigneString:String;
  var
    TempStr:TStringList;
  begin
    TempStr:=TStringList.Create;
    try
      if bsSkinCheckRadioBox2.Checked then
        TempStr.Text:=FormatEdiString(aquery2.fieldbyname('收货人代码').AsString)
      else
        TempStr.Text:=FormatEdiString(frm_op_seae.t_op_seae.fieldbyname('收货人代码').AsString);
    GetLengthTString(TempStr,35);
    Result:='17:';
    Result:=Result+':';
    Result:=Result+FormatListString(TempStr,6,35)+'''';
    finally
      FreeAndNil(TempStr);
    end;
  end;

  function GetNOTIFYString:String;
  var
    TempStr:TStringList;
  begin
    TempStr:=TStringList.Create;
    try
      if bsSkinCheckRadioBox2.Checked then
        TempStr.Text:=FormatEdiString(aquery2.fieldbyname('通知人代码').AsString)
      else
        TempStr.Text:=FormatEdiString(frm_op_seae.t_op_seae.fieldbyname('通知人代码').AsString);
    GetLengthTString(TempStr,35);
    Result:='18:';
    Result:=Result+':';
    Result:=Result+FormatListString(TempStr,6,35)+'''';
    finally
      FreeAndNil(TempStr);
    end;
  end;
  function GetMARKSString:String;
  var
    TempStr:TStringList;
  begin
    TempStr:=TStringList.Create;
    try
      if bsSkinCheckRadioBox2.Checked then
        TempStr.Text:=FormatEdiString(aQuery2.fieldbyname('唛头').AsString)
      else
        TempStr.Text:=FormatEdiString(frm_op_seae.t_op_seae.fieldbyname('唛头').AsString);
    GetLengthTString(TempStr,35);
    Result:='44:001:';
    Result:=Result+FormatListString(TempStr,10,35)+'''';
    finally
      FreeAndNil(TempStr);
    end;
  end;


begin
  SenderCode:=trim(edit1.Text) ;
  ReciverCode:=trim(edit2.Text) ;
  strType:='9';
  sl:=Tstringlist.Create;
  sl1:=Tstringlist.Create;

  if frm_op_seae.dxdbgrid1.SelectedCount<=1 then
  begin
    str:=Tstringlist.Create;
    str.Clear;
    str.Add('00:CN1101::'+trim(strType)+':'+ SenderCode+':'+ReciverCode+':'+FormatDateTime('YYYYMMDDHHMMSSS', Now)+':1.0'+#39);
    Count:=0;

    str.Add('10:a'                                                                //1记录类型标识   2船名代码
               +':'+ trim(frm_op_seae.t_op_seae.fieldbyname('船名').asstring)    //3船名
               + ':'                                                             //4舶国籍代码
               +':'+ trim(frm_op_seae.t_op_seae.fieldbyname('航次').asstring)    //5航次
               + ':'                                                             //6航线代码
               + ':'                                                             //7航线
               + ':'                                                             //8预计到达日期
               + ':'+ FormatDateTime('YYYYMMDD',frm_op_seae.t_op_seae.fieldbyname('开船日期').asdatetime) //9离港日期
               +':'+trim(edit4.text)                                             // 10离港地点代码
               +':'+trim(frm_op_seae.t_op_seae.fieldbyname('装货港').asstring)   //11离港地点
               + ':'                                                             //12下一挂港代码
               + ':'                                                             //13下一挂港
               + ':'                                                             //14集装箱箱数
               + ':1'                                                             //15运输方式代码
                  +#39); //船舶经营人


    str.Add('11:'+'00036'   //1 记录类型标识 2 船公司(承运人)代码
                 +':'  //3 船公司(承运人)
                  +#39); //船舶经营人


    if frm_data_share.t_code_free.locate('代码',frm_op_seae.t_op_seae.fieldbyname('付费方式').asstring,[]) then
    begin
      strtemp:=copy(frm_data_share.t_code_free.fieldbyname('代码').asstring,1,1);
    end
    else
    begin
      strtemp:='P';
    end;



    str.Add ('12:'+trim(frm_op_seae.t_op_seae.fieldbyname('主提单号').asstring)            //1 记录类型标识 2 提单号
                  +':'                                                       //  3前程运输船名代码
                  +':'                                                       //  4 前程运输船名
                  +':'                                                       //  5 前程运输航次
                  +':'+trim(edit4.text)                                      //  6 收货地代码
                  +':'+trim(frm_op_seae.t_op_seae.fieldbyname('装货港').asstring)          //  7 收货地
                  +':'+trim(edit4.text)                                      //  8 装货港代码
                  +':'+trim(frm_op_seae.t_op_seae.fieldbyname('装货港').asstring)  //  9 装货港
                  +':'+'CY-CY'                                              //10 运输条款
                  +':'+strtemp                                              // 11 付款方式   ???
                  +':'+FormatDateTime('YYYYMMDD',frm_op_seae.t_op_seae.fieldbyname('开船日期').asdatetime)  //12 装货日期
                  +':'                                                       //  13检疫代码
                  +':'                                                       //  14 签发日期
                  +':'                                                       //  15  币种
                  +':'                                                       //  16 汇率
                  +':'                                                       //  17 分提运单号
                  +':'+trim(frm_op_seae.t_op_seae.fieldbyname('件数').asstring)    // 18  件数
                  +':'+trim(frm_op_seae.t_op_seae.fieldbyname('包装').asstring)   // 19  包装种类代码
                  +':'+trim(frm_op_seae.t_op_seae.fieldbyname('重量').asstring) // 20  货物总毛重
                  +':'+trim(frm_op_seae.t_op_seae.fieldbyname('尺码').asstring)       // 21  货物总毛重
                  +':'                                                              // 22  托运货物价值
                  +':'                                                              // 23  码头作业指令代码
                  +':'                                                              // 24  拆箱人代码
                  +':'                                                              // 25  前一海关单证号
                  +':'                                                              // 26 前一海关单证类型代码
                  +':'                                                              // 26 货物海关处理状态代码(1~99)
                  +#39);

    str.Add ('13:'+trim(edit3.text)                                               // 1 记录类型标识 2   卸货港代码
                  +':'+trim(frm_op_seae.t_op_seae.fieldbyname('卸货港').asstring) // 3  卸货港
                  +':'+trim(edit3.Text)                                            // 4  交货地代码
                  +':'+trim(frm_op_seae.t_op_seae.fieldbyname('交货地点').asstring)         // 5 交货地
                  +':'                                                              //  6 中转港代码
                  +':'                                                              //  7 中转港
                  +':'                                                               //  8 提单签发地代码
                  +':'                                                              //  9 提单签发地
                  +':'                                                              //  10 提单签发地
                  +':'                                                              //  11 提单签发地
                  +':'                                                              //  12 提单签发地
                  +':'                                                              //  13 提单签发地
                  +#39);
    Str.Add(GetShipperString);
    Str.Add(GetConsigneString);
    Str.Add(GetNOTIFYString);

    IF trim(frm_op_seae.t_op_seae.fieldbyname('货物标识').asstring)='' THEN
      strtemp:='S'
    else
      strtemp:=trim(frm_op_seae.t_op_seae.fieldbyname('货物标识').asstring);

      str.Add ('41:001'                                                            // 1  记录类型标识 2货物序号
                  +':'+strtemp                                                      // 3  货物标识		S/R/D/O
                  +':'+trim(frm_op_seae.t_op_seae.fieldbyname('件数').asstring)    // 4  件数
                  +':'                                                             // 5 包装类型代码
                  +':'+trim(frm_op_seae.t_op_seae.fieldbyname('包装').asstring)   // 6  包装类型
                  +':'+trim(frm_op_seae.t_op_seae.fieldbyname('重量').asstring) // 7  货毛重
                  +'::'                                                            // 8  货净重
                  +trim(frm_op_seae.t_op_seae.fieldbyname('尺码').asstring)       // 9  货尺码
                  +#39);



    IF trim(frm_op_seae.t_op_seae.fieldbyname('货物标识').asstring)='R'THEN
    BEGIN
      str.Add ('43:'     //  危险品、冷冻
                  +trim(frm_op_seae.t_op_seae.fieldbyname('温度单位').asstring) +':'
                  +trim(frm_op_seae.t_op_seae.fieldbyname('设置温度').asstring) +':'
                  +trim(frm_op_seae.t_op_seae.fieldbyname('最低温度').asstring) +':'
                  +trim(frm_op_seae.t_op_seae.fieldbyname('最高温度').asstring)
                  +#39);
    END;
    IF trim(frm_op_seae.t_op_seae.fieldbyname('货物标识').asstring)='D'THEN
    BEGIN
      str.Add ('43:'     //  危险品、冷冻
                  +trim(frm_op_seae.t_op_seae.fieldbyname('危险品分类').asstring) +':'
                  +trim(frm_op_seae.t_op_seae.fieldbyname('危险品编号').asstring) +':'
                  +':'
                  +':'
                  +#39);
    END;
        Str.Add(GetMARKSString);
//        Str.Add(GetCARGODESCRIPTIONString);

     sl1.Text:=FormatEdiString(frm_op_seae.t_op_seae.fieldbyname('货物描述').AsString);
     GetLengthTString(sl1,70);
     sl.text:='';
     for L:=0 to sl1.Count-1 do begin
       if Trim(sl1.Strings[L])<>'' then
         sl.Add(sl1.Strings[L]);
     end;

      M:=1;
      for L:=0 to sl.Count-1 do begin
        if M<=5 then begin
          if M=1 then begin
            s:='47:001:'+FormatEdiString(sl.Strings[L],0)+':';
          end else begin
            if M=5 then
              s:=s+FormatEdiString(sl.Strings[L],0)
            else
              s:=s+FormatEdiString(sl.Strings[L],0)+':';
          end;
        end else begin
          S:=S+'''';
          Str.Add(S);
          M:=1;
          s:='47:001:'+FormatEdiString(sl.Strings[L],0)+':';
        end;
        M:=M+1;
      end;
      S:=S+'''';
      Str.Add(S);

    Count:=Count+11;
    if not bsSkinCheckRadioBox1.Checked then
    begin

      strRmain:='';
      try
        rs:=Tadoquery.Create(application);
        rs.Connection := frm_main.db;
        strsql:='select * from t_op_ctn where 编号='
             +#39+frm_op_seae.t_op_seae.fieldbyname('编号').asstring+#39;
        rs.Close;
        rs.sql.clear;
        rs.sql.add(strsql);
        rs.Open;
        if not rs.IsEmpty then
        begin
          rs.First;
          while not rs.Eof do
          begin
            if rs.fieldbyname('备注').asstring='' then
              strtemp:='F'
            else
              strtemp:=copy(rs.fieldbyname('备注').asstring,1,1);
            str.Add ('51:001:'+trim(rs.fieldbyname('箱号').asstring)+':'+trim(rs.fieldbyname('封号').asstring)+':'+Trim(rs.fieldbyname('尺寸').asstring+rs.fieldbyname('箱型').asstring)+':'+strtemp+':'
                          +trim(IntToStr(rs.fieldbyname('件数').AsInteger))+':'+trim(FloatToStr(rs.fieldbyname('重量').AsFloat))+':'+''''
                          );
            rs.Next;
          end;
        end;
        rs.Close;
        rs.Destroy;
      except
        on e:exception do
        begin
          rs.Close;
          rs.Destroy;
          exit;
        end;
      end;
    end
    else
    begin
        str.Add ('51:::::::::::::::'+'''');
    end;
    count:=str.count;
    str.Add ('99:'+ inttostr(count+1)+#39);
  end
  else
  begin
    str:=Tstringlist.Create;
    str.Clear;
    str.Add('00:CN1101::'+trim(strType)+':'+ SenderCode+':'+ReciverCode+':'+FormatDateTime('YYYYMMDDHHMMSSS', Now)+':1.0'+#39);
    str.Add('10:a'                                                                //1记录类型标识   2船名代码
               +':'+ trim(frm_op_seae.t_op_seae.fieldbyname('船名').asstring)    //3船名
               + ':'                                                             //4舶国籍代码
               +':'+ trim(frm_op_seae.t_op_seae.fieldbyname('航次').asstring)    //5航次
               + ':'                                                             //6航线代码
               + ':'                                                             //7航线
               + ':'                                                             //8预计到达日期
               + ':'+ FormatDateTime('YYYYMMDD',frm_op_seae.t_op_seae.fieldbyname('开船日期').asdatetime) //9离港日期
               +':'+trim(edit4.text)                                             // 10离港地点代码
               +':'+trim(frm_op_seae.t_op_seae.fieldbyname('装货港').asstring)   //11离港地点
               + ':'                                                             //12下一挂港代码
               + ':'                                                             //13下一挂港
               + ':'                                                             //14集装箱箱数
               + ':1'                                                             //15运输方式代码
                  +#39); //船舶经营人


    str.Add('11:'+'00036'   //1 记录类型标识 2 船公司(承运人)代码
                 +':'  //3 船公司(承运人)
                  +#39); //船舶经营人

    Count:=0;
    for k:=0 to frm_op_seae.dxdbgrid1.SelectedCount-1 do
    begin
      frm_op_seae.t_op_seae.GotoBookmark(pointer(frm_op_seae.dxdbgrid1.selectedrows[k]));

    if frm_data_share.t_code_free.locate('代码',frm_op_seae.t_op_seae.fieldbyname('付费方式').asstring,[]) then
    begin
      strtemp:=copy(frm_data_share.t_code_free.fieldbyname('代码').asstring,1,1);
    end
    else
    begin
      strtemp:='P';
    end;



    str.Add ('12:'+trim(frm_op_seae.t_op_seae.fieldbyname('主提单号').asstring)            //1 记录类型标识 2 提单号
                  +':'                                                       //  3前程运输船名代码
                  +':'                                                       //  4 前程运输船名
                  +':'                                                       //  5 前程运输航次
                  +':'+trim(edit4.text)                                      //  6 收货地代码
                  +':'+trim(frm_op_seae.t_op_seae.fieldbyname('装货港').asstring)          //  7 收货地
                  +':'+trim(edit4.text)                                      //  8 装货港代码
                  +':'+trim(frm_op_seae.t_op_seae.fieldbyname('装货港').asstring)  //  9 装货港
                  +':'+'CY-CY'                                              //10 运输条款
                  +':'+strtemp                                              // 11 付款方式   ???
                  +':'+FormatDateTime('YYYYMMDD',frm_op_seae.t_op_seae.fieldbyname('开船日期').asdatetime)  //12 装货日期
                  +':'                                                       //  13检疫代码
                  +':'                                                       //  14 签发日期
                  +':'                                                       //  15  币种
                  +':'                                                       //  16 汇率
                  +':'                                                       //  17 分提运单号
                  +':'+trim(frm_op_seae.t_op_seae.fieldbyname('件数').asstring)    // 18  件数
                  +':'+trim(frm_op_seae.t_op_seae.fieldbyname('包装').asstring)   // 19  包装种类代码
                  +':'+trim(frm_op_seae.t_op_seae.fieldbyname('重量').asstring) // 20  货物总毛重
                  +':'+trim(frm_op_seae.t_op_seae.fieldbyname('尺码').asstring)       // 21  货物总毛重
                  +':'                                                              // 22  托运货物价值
                  +':'                                                              // 23  码头作业指令代码
                  +':'                                                              // 24  拆箱人代码
                  +':'                                                              // 25  前一海关单证号
                  +':'                                                              // 26 前一海关单证类型代码
                  +':'                                                              // 26 货物海关处理状态代码(1~99)
                  +#39);

    str.Add ('13:'+trim(edit3.text)                                               // 1 记录类型标识 2   卸货港代码
                  +':'+trim(frm_op_seae.t_op_seae.fieldbyname('卸货港').asstring) // 3  卸货港
                  +':'+trim(edit3.Text)                                            // 4  交货地代码
                  +':'+trim(frm_op_seae.t_op_seae.fieldbyname('交货地点').asstring)         // 5 交货地
                  +':'                                                              //  6 中转港代码
                  +':'                                                              //  7 中转港
                  +':'                                                               //  8 提单签发地代码
                  +':'                                                              //  9 提单签发地
                  +':'                                                              //  10 提单签发地
                  +':'                                                              //  11 提单签发地
                  +':'                                                              //  12 提单签发地
                  +':'                                                              //  13 提单签发地
                  +#39);
    Str.Add(GetShipperString);
    Str.Add(GetConsigneString);
    Str.Add(GetNOTIFYString);

    IF trim(frm_op_seae.t_op_seae.fieldbyname('货物标识').asstring)='' THEN
      strtemp:='S'
    else
      strtemp:=trim(frm_op_seae.t_op_seae.fieldbyname('货物标识').asstring);

      str.Add ('41:001'                                                            // 1  记录类型标识 2货物序号
                  +':'+strtemp                                                      // 3  货物标识		S/R/D/O
                  +':'+trim(frm_op_seae.t_op_seae.fieldbyname('件数').asstring)    // 4  件数
                  +':'                                                             // 5 包装类型代码
                  +':'+trim(frm_op_seae.t_op_seae.fieldbyname('包装').asstring)   // 6  包装类型
                  +':'+trim(frm_op_seae.t_op_seae.fieldbyname('重量').asstring) // 7  货毛重
                  +'::'                                                            // 8  货净重
                  +trim(frm_op_seae.t_op_seae.fieldbyname('尺码').asstring)       // 9  货尺码
                  +#39);



    IF trim(frm_op_seae.t_op_seae.fieldbyname('货物标识').asstring)='R'THEN
    BEGIN
      str.Add ('43:'     //  危险品、冷冻
                  +trim(frm_op_seae.t_op_seae.fieldbyname('温度单位').asstring) +':'
                  +trim(frm_op_seae.t_op_seae.fieldbyname('设置温度').asstring) +':'
                  +trim(frm_op_seae.t_op_seae.fieldbyname('最低温度').asstring) +':'
                  +trim(frm_op_seae.t_op_seae.fieldbyname('最高温度').asstring)
                  +#39);
    END;
    IF trim(frm_op_seae.t_op_seae.fieldbyname('货物标识').asstring)='D'THEN
    BEGIN
      str.Add ('43:'     //  危险品、冷冻
                  +trim(frm_op_seae.t_op_seae.fieldbyname('危险品分类').asstring) +':'
                  +trim(frm_op_seae.t_op_seae.fieldbyname('危险品编号').asstring) +':'
                  +':'
                  +':'
                  +#39);
    END;
        Str.Add(GetMARKSString);
//        Str.Add(GetCARGODESCRIPTIONString);

     sl1.Text:=FormatEdiString(frm_op_seae.t_op_seae.fieldbyname('货物描述').AsString);
     GetLengthTString(sl1,70);
     sl.text:='';
     for L:=0 to sl1.Count-1 do begin
       if Trim(sl1.Strings[L])<>'' then
         sl.Add(sl1.Strings[L]);
     end;

      M:=1;
      for L:=0 to sl.Count-1 do begin
        if M<=5 then begin
          if M=1 then begin
            s:='47:001:'+FormatEdiString(sl.Strings[L],0)+':';
          end else begin
            if M=5 then
              s:=s+FormatEdiString(sl.Strings[L],0)
            else
              s:=s+FormatEdiString(sl.Strings[L],0)+':';
          end;
        end else begin
          S:=S+'''';
          Str.Add(S);
          M:=1;
          s:='47:001:'+FormatEdiString(sl.Strings[L],0)+':';
        end;
        M:=M+1;
      end;
      S:=S+'''';
      Str.Add(S);

    Count:=Count+11;
    if not bsSkinCheckRadioBox1.Checked then
    begin

      strRmain:='';
      try
        rs:=Tadoquery.Create(application);
        rs.Connection := frm_main.db;
        strsql:='select * from t_op_ctn where 编号='
             +#39+frm_op_seae.t_op_seae.fieldbyname('编号').asstring+#39;
        rs.Close;
        rs.sql.clear;
        rs.sql.add(strsql);
        rs.Open;
        if not rs.IsEmpty then
        begin
          rs.First;
          while not rs.Eof do
          begin
            if rs.fieldbyname('备注').asstring='' then
              strtemp:='F'
            else
              strtemp:=copy(rs.fieldbyname('备注').asstring,1,1);
            str.Add ('51:001:'+trim(rs.fieldbyname('箱号').asstring)+':'+trim(rs.fieldbyname('封号').asstring)+':'+Trim(rs.fieldbyname('尺寸').asstring+rs.fieldbyname('箱型').asstring)+':'+strtemp+':'
                          +trim(IntToStr(rs.fieldbyname('件数').AsInteger))+':'+trim(FloatToStr(rs.fieldbyname('重量').AsFloat))+':'+''''
                          );
            rs.Next;
          end;
        end;
        rs.Close;
        rs.Destroy;
      except
        on e:exception do
        begin
          rs.Close;
          rs.Destroy;
          exit;
        end;
      end;
    end
    else
    begin
        str.Add ('51:::::::::::::::'+'''');
    end;

    end;
    count:=str.count;
    str.Add ('99:'+ inttostr(count+1)+#39);
  end;
  freeandnil(sl);
  freeandnil(sl1);

  SaveDialog1.FileName:=frm_op_seae.t_op_seae.fieldbyname('船名').asstring+frm_op_seae.t_op_seae.fieldbyname('航次').asstring;
  if SaveDialog1.Execute then
  begin
    str.SaveToFile(SaveDialog1.FileName+'.txt');
    showmessage('文件生成成功！');
  end
  else
  begin
    showmessage('文件生成失败！');
    exit;
  end;

  inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
  inifile1.WriteString('EDI','COSCOSEND',edit1.text);
  inifile1.WriteString('EDI','COSCORECIEVE',edit2.text);
  inifile1.WriteString('EDI','COSCOPORTLOAD',edit4.text);
  inifile1.WriteString('EDI','COSCOPORTDISCHARG',edit3.text);
  inifile1.WriteBool('EDI','COSCONOCTN',bsSkinCheckRadioBox1.checked);
  inifile1.free;

  close;
end;


procedure Tfrm_op_seae_edi_cosco.bsSkinButton1Click(Sender: TObject);
begin
  if bsSkinCheckRadioBox3.Checked then
    Edi_Jap
  else
  if bsSkinCheckRadioBox4.Checked then
    Edi_fs
  else Edi_zy;
end;

end.