unit u_op_seae_edi_mol; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,IdFTP,IdFTPCommon, Dialogs, BusinessSkinForm, StdCtrls, bsSkinCtrls,inifiles, DB, ADODB, FtpCli, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,IdGlobal, IdExplicitTLSClientServerBase; type Tfrm_op_seae_edi_mol = class(TForm) bsBusinessSkinForm1: TbsBusinessSkinForm; Label2: TLabel; Edit2: TEdit; Edit1: TEdit; Label1: TLabel; SaveDialog1: TSaveDialog; bsSkinButton1: TbsSkinButton; bsSkinButton2: TbsSkinButton; bsSkinButton3: TbsSkinButton; t_op_ctn: TADOQuery; t_op_ctn1: TDataSource; bsSkinRadioGroup1: TbsSkinRadioGroup; Label3: TLabel; Edit3: TEdit; bsSkinGroupBox1: TbsSkinGroupBox; bsSkinButton4: TbsSkinButton; Label4: TLabel; Edit4: TEdit; Edit5: TEdit; Label5: TLabel; Label6: TLabel; Edit6: TEdit; Label7: TLabel; Edit7: TEdit; bsSkinCheckRadioBox1: TbsSkinCheckRadioBox; bsSkinCheckRadioBox2: TbsSkinCheckRadioBox; FtpClient1: TFtpClient; bsSkinButton5: TbsSkinButton; IdFTP1: TIdFTP; CheckBox1: TCheckBox; bsSkinButton7: TbsSkinButton; bsSkinButton6: TbsSkinButton; procedure bsSkinButton2Click(Sender: TObject); procedure FormShow(Sender: TObject); procedure bsSkinButton1Click(Sender: TObject); procedure bsSkinButton3Click(Sender: TObject); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); procedure bsSkinButton4Click(Sender: TObject); procedure FtpClient1Error(Sender: TObject; var Msg: String); procedure bsSkinButton5Click(Sender: TObject); procedure bsSkinButton7Click(Sender: TObject); procedure bsSkinButton6Click(Sender: TObject); private function isEditrue(DataSet:TDataSet): boolean; function GetStrNum(str:String):integer; function FormatListString(Old:TStrings;mCount,Strlength:integer):String; function FormatEdiString(old:String;Strlength:integer=0):String; function CreateEdiFile:TStrings; function CreateEdiFileSI:TStrings; function GetCntrEdi(cntrsize: String):String; function GetpkgsEdi(pkgs:String):String; function GetlineEdi(aline:String):String; procedure GetLengthTString(var sl: TStringList; l: integer); function GetLengthword(var s: String; l: Integer;str:String): String; function GetcustEdi(cust: String): String; function GetvesselEdi(avessel: String): String; function cutpkgs(kindpkg:string):string; { Private declarations } public { Public declarations } function GetShipEdiNO(Ship:String): String; function CreateVgmEdiFile:TStrings; end; var frm_op_seae_edi_mol: Tfrm_op_seae_edi_mol; implementation uses u_op_seae, u_main, my_sys_function, u_data_share, u_op_seae_assistant; {$R *.dfm} function Tfrm_op_seae_edi_mol.GetvesselEdi(avessel: String): String; var aQuery:TADOQuery; begin // aQuery:=CreateAdoQuery; try with aQuery do begin Close;SQL.Clear; SQL.Add('Select 船舶呼号 from t_code_vessel where 英文船名='''+avessel+''''); Open; if IsEmpty then Result:='' else Result:=FieldByName('船舶呼号').AsString; end; finally FreeAndNil(aQuery); end; end; procedure Tfrm_op_seae_edi_mol.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_mol.GetLengthword(var s: String; l: Integer;str:String): String; var i:Integer; b:Boolean; begin s:=''; if Length(str)'') and (Trim(old.Strings[i])<>#10) then 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 i1 then begin for i:=0 to frm_op_seae.dxdbgrid1.SelectedCount-1 do begin frm_op_seae.t_op_seae.GotoBookmark(pointer(frm_op_seae.dxdbgrid1.selectedrows[i])); if not isEditrue(frm_op_seae.t_op_seae) then exit; end; end else begin if not isEditrue(frm_op_seae.t_op_seae) then exit; end; str:=Tstringlist.Create; try SenderCode:=trim(edit1.Text) ; ReciverCode:=trim(edit2.Text) ; if bsSkinRadioGroup1.ItemIndex=0 then strType:='9' else if bsSkinRadioGroup1.ItemIndex=1 then strType:='2' else if bsSkinRadioGroup1.ItemIndex=2 then strType:='3' else if bsSkinRadioGroup1.ItemIndex=3 then strType:='4' else strType:='9'; if bsSkinCheckRadioBox1.Checked then str.Add('00:IFTMIN:BOOKING:'+trim(strType)+':'+ SenderCode+':'+ReciverCode+':'+GetDatetime(datetimetostr(now),1)+#39) else str.Add('00:IFTMBF:BOOKING:'+trim(strType)+':'+ SenderCode+':'+ReciverCode+':'+GetDatetime(datetimetostr(now),1)+#39); if frm_op_seae.dxdbgrid1.SelectedCount>1 then begin for i:=0 to frm_op_seae.dxdbgrid1.SelectedCount-1 do begin frm_op_seae.t_op_seae.GotoBookmark(pointer(frm_op_seae.dxdbgrid1.selectedrows[i])); if Trim(frm_op_seae.t_op_seae.fieldbyname('装运方式').asstring)='整箱' then if bsSkinCheckRadioBox1.Checked then Str.AddStrings(CreateEdiFileSI) else Str.AddStrings(CreateEdiFile) else if Pos('主票',(frm_op_seae.t_op_seae.fieldbyname('装运方式').asstring))>0 then // Str.addstrings(CreateZHUEdiFile) else begin Exit; end; end; end else begin if Trim(frm_op_seae.t_op_seae.fieldbyname('装运方式').asstring)='整箱' then if bsSkinCheckRadioBox1.Checked then Str.AddStrings(CreateEdiFileSI) else Str.AddStrings(CreateEdiFile) else if Pos('主票',(frm_op_seae.t_op_seae.fieldbyname('装运方式').asstring))>0 then // Str.AddStrings(CreateZHUEdiFile) else begin Exit; end; end; I:=str.Count; str.Add('99:'+intToStr(i+1)+''''); for i:=0 to Str.Count-1 do begin if IsZhongwen(Str[i])<>'' then begin MessageDlg('此票业务有中文字符或TAB等不规范字符,请去除字符后重试！',mtWarning,[mbYes],0); exit; end; end; SaveDialog1.FileName:=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; finally FreeAndNil(Str); end; close; end; function Tfrm_op_seae_edi_mol.isEditrue(DataSet:TDataSet): boolean; var cntrs:String; begin result:=true; if not bsSkinCheckRadioBox2.Checked then begin if trim(DataSet.fieldbyname('主提单号').asstring)='' then begin result:=false; MessageDlg('提单号不能为空',mtWarning,[mbOk],0); exit; end; end else begin if trim(frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('主提单号').asstring)='' then begin result:=false; MessageDlg('提单号不能为空',mtWarning,[mbOk],0); exit; end; end; if trim(DataSet.fieldbyname('付费方式').asstring)='' then begin result:=false; MessageDlg('付费方式不能为空',mtWarning,[mbOk],0); exit; end; { if trim(DataSet.fieldbyname('船名').asstring)='' then begin result:=false; MessageDlg('船名不能为空',mtWarning,[mbOk],0); exit; end; if trim(DataSet.fieldbyname('航次').asstring)='' then begin result:=false; MessageDlg('航次不能为空',mtWarning,[mbOk],0); exit; end; } if trim(DataSet.fieldbyname('装港代码').asstring)='' then begin result:=false; MessageDlg('装港代码不能为空',mtWarning,[mbOk],0); exit; end; if trim(DataSet.fieldbyname('装货港').asstring)='' then begin result:=false; MessageDlg('装货港不能为空',mtWarning,[mbOk],0); exit; end; if trim(DataSet.fieldbyname('总价').asstring)='' then begin result:=false; MessageDlg('第一层包装皮重不能为空',mtWarning,[mbOk],0); exit; end; if trim(DataSet.fieldbyname('开船日期').asstring)='' then begin result:=false; MessageDlg('开船日期不能为空',mtWarning,[mbOk],0); exit; end; if trim(DataSet.fieldbyname('卸货代码').asstring)='' then begin result:=false; MessageDlg('卸货代码不能为空',mtWarning,[mbOk],0); exit; end; if trim(DataSet.fieldbyname('目的地').asstring)='' then begin result:=false; MessageDlg('目的地不能为空',mtWarning,[mbOk],0); exit; end; if bsSkinCheckRadioBox1.Checked then begin if trim(DataSet.fieldbyname('提单份数').asstring)='' then begin result:=false; MessageDlg('提单份数为空',mtWarning,[mbOk],0); exit; end; if trim(DataSet.fieldbyname('副本提单份数').asstring)='' then begin result:=false; MessageDlg('副本提单份数为空',mtWarning,[mbOk],0); exit; end; end; if trim(DataSet.fieldbyname('船名').asstring)<>'' then begin if (GetvesselEdi(trim(DataSet.fieldbyname('船名').asstring)))='' then begin result:=false; MessageDlg('船舶呼号不能为空',mtWarning,[mbOk],0); exit; end; end; if trim(frm_op_seae.t_op_seae.fieldbyname('运费协议号').asstring)='' then begin result:=false; MessageDlg('运费协议号不能为空',mtWarning,[mbOk],0); exit; end; { if trim(frm_op_seae.t_op_seae.fieldbyname('运费协议号').asstring)='' then begin result:=false; MessageDlg('运费协议号不能为空',mtWarning,[mbOk],0); exit; end; if trim(frm_op_seae.t_op_seae.fieldbyname('发货人编号').asstring)='' then begin result:=false; MessageDlg('船舶服务号不能为空',mtWarning,[mbOk],0); exit; end; if trim(frm_op_seae.t_op_seae.fieldbyname('EDI备注').asstring)='' then begin result:=false; MessageDlg('EDI备注不能为空',mtWarning,[mbOk],0); exit; end; } if trim(DataSet.fieldbyname('签单地点').asstring)='' then begin result:=false; MessageDlg('签单地点不能为空',mtWarning,[mbOk],0); exit; end; if not bsSkinCheckRadioBox2.Checked then begin if trim(GetpkgsEdi(DataSet.fieldbyname('包装').asstring))='' then begin result:=false; MessageDlg('包装EDI代码不存在!',mtWarning,[mbOk],0); exit; end; if trim(DataSet.fieldbyname('货物描述').asstring)='' then begin result:=false; MessageDlg('货物描述不能为空',mtWarning,[mbOk],0); exit; end; if trim(DataSet.fieldbyname('唛头').asstring)='' then begin result:=false; MessageDlg('唛头不能为空',mtWarning,[mbOk],0); exit; end; if DataSet.fieldbyname('件数').asinteger=0 then begin result:=false; MessageDlg('件数不能为空',mtWarning,[mbOk],0); exit; end; if DataSet.fieldbyname('重量').asFloat=0 then begin result:=false; MessageDlg('总重量不能为空',mtWarning,[mbOk],0); exit; end; if DataSet.fieldbyname('尺码').asFloat=0 then begin result:=false; MessageDlg('总尺码不能为空',mtWarning,[mbOk],0); exit; end; end else begin if trim(GetpkgsEdi(frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('包装').asstring))='' then begin result:=false; MessageDlg('包装EDI代码不存在!',mtWarning,[mbOk],0); exit; end; if trim(frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('货物描述').asstring)='' then begin result:=false; MessageDlg('货物描述不能为空',mtWarning,[mbOk],0); exit; end; if trim(frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('唛头').asstring)='' then begin result:=false; MessageDlg('唛头不能为空',mtWarning,[mbOk],0); exit; end; if frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('件数').asinteger=0 then begin result:=false; MessageDlg('件数不能为空',mtWarning,[mbOk],0); exit; end; if frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('重量').asFloat=0 then begin result:=false; MessageDlg('总重量不能为空',mtWarning,[mbOk],0); exit; end; if frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('尺码').asFloat=0 then begin result:=false; MessageDlg('总尺码不能为空',mtWarning,[mbOk],0); exit; end; end; if trim(frm_op_seae.t_op_seae.fieldbyname('货物标识').asstring)='' then begin result:=false; MessageDlg('货物标识不能为空',mtWarning,[mbOk],0); exit; end; if trim(frm_op_seae.t_op_seae.FieldByName('货物标识').asstring)='D' then begin if Trim(frm_op_seae.t_op_seae.fieldbyname('危险品分类').asstring)='' then begin result:=false; MessageDlg('危险品等级不能为空',mtWarning,[mbOk],0); exit; end; if Trim(frm_op_seae.t_op_seae.fieldbyname('危险品编号').asstring)='' then begin result:=false; MessageDlg('危险品编号不能为空',mtWarning,[mbOk],0); exit; end; if GetStrNum(Trim(frm_op_seae.t_op_seae.fieldbyname('危险品编号').asstring))<>4 then begin result:=false; MessageDlg('危险品编号必须是4位数字',mtWarning,[mbOk],0); exit; end; end; if trim(frm_op_seae.t_op_seae.FieldByName('货物标识').asstring)='R' then begin if Trim(frm_op_seae.t_op_seae.fieldbyname('设置温度').asstring)='' then begin result:=false; MessageDlg('设置温度不能为空',mtWarning,[mbOk],0); exit; end; if Trim(frm_op_seae.t_op_seae.fieldbyname('冷藏通风量').asstring)='' then begin result:=false; MessageDlg('冷藏通风量不能为空',mtWarning,[mbOk],0); exit; end; if Trim(frm_op_seae.t_op_seae.fieldbyname('最低温度').asstring)='' then begin result:=false; MessageDlg('最低温度不能为空',mtWarning,[mbOk],0); exit; end; if Trim(frm_op_seae.t_op_seae.fieldbyname('最高温度').asstring)='' then begin result:=false; MessageDlg('最高温度不能为空',mtWarning,[mbOk],0); exit; end; end; if not bsSkinCheckRadioBox2.Checked then begin t_op_ctn.Close;t_op_ctn.SQL.Clear; t_op_ctn.SQL.Add('select * from t_op_ctn'); t_op_ctn.SQL.Add('where 编号=:编号'); t_op_ctn.SQL.Add('order by 代码'); t_op_ctn.Parameters.ParamByName('编号').Value:=frm_op_seae.t_op_seae.fieldbyname('编号').asstring; end else begin t_op_ctn.Close;t_op_ctn.SQL.Clear; t_op_ctn.SQL.Add('select * from t_op_ctn_fendan'); t_op_ctn.SQL.Add('where AS_ID=:AS_ID'); t_op_ctn.SQL.Add('order by 代码'); t_op_ctn.Parameters.ParamByName('AS_ID').Value:=frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('AS_ID').AsInteger; end; t_op_ctn.open; if t_op_ctn.IsEmpty then begin result:=false; MessageDlg('集装箱不能为空',mtWarning,[mbOk],0); exit; end; t_op_ctn.First; while not t_op_ctn.Eof do begin if Trim(GetCntrEdi(t_op_ctn.fieldbyname('代码').asstring))='' then begin result:=false; MessageDlg('集装箱EDI代码不存在！',mtWarning,[mbOk],0); exit; end; t_op_ctn.Next; end; end; function Tfrm_op_seae_edi_mol.CreateEdiFile:TStrings; var str,sl1:Tstringlist; sl:TStrings; i,j,Count,l,M:integer; strsql,strRmain,strtemp,S:string; rs,aQuery2:Tadoquery; wide_str:widestring; k:integer; strType:string; strDatetime:string; SenderCode,ReciverCode,voy:string; function GetRemarksString:String; var TempStr:TStrings; begin TempStr:=TStringList.Create; try if not bsSkinCheckRadioBox2.Checked then TempStr.Text:=frm_op_seae.t_op_seae.fieldbyname('EDI备注').AsString else TempStr.Text:=frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('EDI备注').AsString; Result:='17:'; Result:=Result+FormatListString(TempStr,5,35)+''''; finally FreeAndNil(TempStr); end; end; function GetShipperString:String; var TempStr:TStringlist; aQuery:TADOQuery; M,L:integer; S:String; begin TempStr:=TStringList.Create; aQuery:=CreateAdoQuery; try if bsSkinCheckRadioBox2.Checked then begin with aQuery do begin Close; SQL.Clear; SQL.Add('select 发货人代码 from t_op_seae_assistant where AS_ID='+frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('AS_ID').AsString+''); // SQL.Add('select 发货人代码 from t_op_seae_assistant where 编号='''+frm_op_seae.t_op_seae.fieldbyname('编号').AsString+''''); open; if not IsEmpty then TempStr.Text:=fieldbyname('发货人代码').AsString else TempStr.Text:=frm_op_seae.t_op_seae.fieldbyname('发货人代码').AsString; end; end else TempStr.Text:=frm_op_seae.t_op_seae.fieldbyname('发货人代码').AsString; GetLengthTString(TempStr,35); if Tempstr.Count<=9 then begin Result:='20:'; Result:=Result+':'; Result:=Result+FormatListString(TempStr,9,35)+''''; end else begin M:=1; for L:=0 to Tempstr.Count-1 do begin if M<=9 then begin if M=1 then begin s:='20:'+FormatEdiString(Tempstr.Strings[L],0)+':'; end else begin if M=9 then s:=s+FormatEdiString(Tempstr.Strings[L],0) else s:=s+FormatEdiString(Tempstr.Strings[L],0)+':'; end; end else begin S:=S+''''; Str.Add(S); M:=1; s:='20:'+FormatEdiString(Tempstr.Strings[L],0)+':'; end; M:=M+1; end; S:=S+''''; Str.Add(S); result:=''; end; finally FreeAndNil(TempStr); end; end; function GetConsigneString:String; var TempStr:TStringlist; aQuery:TADOQuery; M,L:integer; S:String; begin TempStr:=TStringList.Create; aQuery:=CreateAdoQuery; try if bsSkinCheckRadioBox2.Checked then begin with aQuery do begin Close; SQL.Clear; SQL.Add('select 收货人代码 from t_op_seae_assistant where AS_ID='+frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('AS_ID').AsString+''); open; if not IsEmpty then TempStr.Text:=fieldbyname('收货人代码').AsString else TempStr.Text:=frm_op_seae.t_op_seae.fieldbyname('收货人代码').AsString; end; end else TempStr.Text:=frm_op_seae.t_op_seae.fieldbyname('收货人代码').AsString; GetLengthTString(TempStr,35); if Tempstr.Count<=9 then begin Result:='21:'; Result:=Result+':'; Result:=Result+FormatListString(TempStr,9,35)+''''; end else begin M:=1; for L:=0 to Tempstr.Count-1 do begin if M<=9 then begin if M=1 then begin s:='21:'+FormatEdiString(Tempstr.Strings[L],0)+':'; end else begin if M=9 then s:=s+FormatEdiString(Tempstr.Strings[L],0) else s:=s+FormatEdiString(Tempstr.Strings[L],0)+':'; end; end else begin S:=S+''''; Str.Add(S); M:=1; s:='21:'+FormatEdiString(Tempstr.Strings[L],0)+':'; end; M:=M+1; end; S:=S+''''; Str.Add(S); result:=''; end; finally FreeAndNil(TempStr); end; end; function GetNOTIFYString:String; var TempStr:TStringlist; aQuery:TADOQuery; M,L:integer; S:String; begin TempStr:=TStringList.Create; aQuery:=CreateAdoQuery; try if bsSkinCheckRadioBox2.Checked then begin with aQuery do begin Close; SQL.Clear; SQL.Add('select 通知人代码 from t_op_seae_assistant where AS_ID='+frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('AS_ID').AsString+''); // SQL.Add('select 通知人代码 from t_op_seae_assistant where 编号='''+frm_op_seae.t_op_seae.fieldbyname('编号').AsString+''''); open; if not IsEmpty then TempStr.Text:=fieldbyname('通知人代码').AsString else TempStr.Text:=frm_op_seae.t_op_seae.fieldbyname('通知人代码').AsString; end; end else TempStr.Text:=frm_op_seae.t_op_seae.fieldbyname('通知人代码').AsString; GetLengthTString(TempStr,35); if Tempstr.Count<=9 then begin Result:='22:'; Result:=Result+':'; Result:=Result+FormatListString(TempStr,9,35)+''''; end else begin M:=1; for L:=0 to Tempstr.Count-1 do begin if M<=9 then begin if M=1 then begin s:='22:'+FormatEdiString(Tempstr.Strings[L],0)+':'; end else begin if M=9 then s:=s+FormatEdiString(Tempstr.Strings[L],0) else s:=s+FormatEdiString(Tempstr.Strings[L],0)+':'; end; end else begin S:=S+''''; Str.Add(S); M:=1; s:='22:'+FormatEdiString(Tempstr.Strings[L],0)+':'; end; M:=M+1; end; S:=S+''''; Str.Add(S); result:=''; end; finally FreeAndNil(TempStr); end; end; function GetAMSShipperString:String; var TempStr:TStringlist; M,L:integer; S:String; begin TempStr:=TStringList.Create; try TempStr.Text:=frm_op_seae.t_op_AMS.fieldbyname('AMS发货人').AsString; GetLengthTString(TempStr,35); if Tempstr.Count<=9 then begin Result:='23:'; Result:=Result+':'; Result:=Result+FormatListString(TempStr,9,35)+''''; end else begin M:=1; for L:=0 to Tempstr.Count-1 do begin if M<=9 then begin if M=1 then begin s:='23:'+FormatEdiString(Tempstr.Strings[L],0)+':'; end else begin if M=9 then s:=s+FormatEdiString(Tempstr.Strings[L],0) else s:=s+FormatEdiString(Tempstr.Strings[L],0)+':'; end; end else begin S:=S+''''; Str.Add(S); M:=1; s:='23:'+FormatEdiString(Tempstr.Strings[L],0)+':'; end; M:=M+1; end; S:=S+''''; Str.Add(S); result:=''; end; finally FreeAndNil(TempStr); end; end; function GetAMSConsigneString:String; var TempStr:TStringlist; M,L:integer; S:String; begin TempStr:=TStringList.Create; try TempStr.Text:=frm_op_seae.t_op_AMS.fieldbyname('AMS收货人').AsString; GetLengthTString(TempStr,35); if Tempstr.Count<=9 then begin Result:='24:'; Result:=Result+':'; Result:=Result+FormatListString(TempStr,9,35)+''''; end else begin M:=1; for L:=0 to Tempstr.Count-1 do begin if M<=9 then begin if M=1 then begin s:='24:'+FormatEdiString(Tempstr.Strings[L],0)+':'; end else begin if M=9 then s:=s+FormatEdiString(Tempstr.Strings[L],0) else s:=s+FormatEdiString(Tempstr.Strings[L],0)+':'; end; end else begin S:=S+''''; Str.Add(S); M:=1; s:='24:'+FormatEdiString(Tempstr.Strings[L],0)+':'; end; M:=M+1; end; S:=S+''''; Str.Add(S); result:=''; end; finally FreeAndNil(TempStr); end; end; function GetAMSNOTIFYString:String; var TempStr:TStringlist; M,L:integer; S:String; begin TempStr:=TStringList.Create; try TempStr.Text:=frm_op_seae.t_op_AMS.fieldbyname('AMS通知人').AsString; GetLengthTString(TempStr,35); if Tempstr.Count<=9 then begin Result:='25:'; Result:=Result+':'; Result:=Result+FormatListString(TempStr,9,35)+''''; end else begin M:=1; for L:=0 to Tempstr.Count-1 do begin if M<=9 then begin if M=1 then begin s:='25:'+FormatEdiString(Tempstr.Strings[L],0)+':'; end else begin if M=9 then s:=s+FormatEdiString(Tempstr.Strings[L],0) else s:=s+FormatEdiString(Tempstr.Strings[L],0)+':'; end; end else begin S:=S+''''; Str.Add(S); M:=1; s:='25:'+FormatEdiString(Tempstr.Strings[L],0)+':'; end; M:=M+1; end; S:=S+''''; Str.Add(S); result:=''; end; finally FreeAndNil(TempStr); end; end; begin SenderCode:=trim(edit1.Text) ; ReciverCode:=trim(edit2.Text) ; if bsSkinRadioGroup1.ItemIndex=0 then strType:='9' else if bsSkinRadioGroup1.ItemIndex=1 then strType:='2' else if bsSkinRadioGroup1.ItemIndex=2 then strType:='3' else if bsSkinRadioGroup1.ItemIndex=3 then strType:='4' else strType:='9'; str:=Tstringlist.Create; sl:=Tstringlist.Create; sl1:=Tstringlist.Create; aQuery2:=CreateAdoQuery; if bsSkinCheckRadioBox2.Checked then begin with aQuery2 do begin Close; SQL.Clear; SQL.Add('select * from t_op_seae_assistant where AS_ID='''+frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('AS_ID').AsString+''''); // SQL.Add('select * from t_op_seae_assistant where 编号='''+frm_op_seae.t_op_seae.fieldbyname('编号').AsString+''''); open; end; end; if bsSkinCheckRadioBox1.Checked then if not frm_op_seae.t_op_ams.Active then frm_op_seae.t_op_ams.open; str.Clear; Count:=0; if bsSkinCheckRadioBox1.Checked then // bsSkinCheckRadioBox1 SI bsSkinCheckRadioBox2 主单 分单 begin if not bsSkinCheckRadioBox2.Checked then //主单 begin str.Add ('02:'+ trim(frm_op_seae.t_op_seae.fieldbyname('订舱单号').asstring) //运编号 2 +':'+trim(frm_op_seae.t_op_seae.fieldbyname('主提单号').asstring)//提单号 3 +':'+trim(frm_op_seae.t_op_seae.fieldbyname('运输条款').asstring) //交货条款 4 +':'+trim(Edit3.Text) // 订舱人说明 5 +':'+ReciverCode //签单人代码 6 + ':' //7 + ':' //8 + ':' //9 + ':' //10 + ':' //11 + ':' // 12 + ':' // 13 + ':' // 14 + ':' // 15 +':'+trim(frm_op_seae.t_op_seae.fieldbyname('运费协议号').asstring) // 16 +':' // 17 +':'+#39); //18 end else begin str.Add ('02:'+ trim(frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('主提单号').asstring)+':' + trim(frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('主提单号').asstring) +':' + trim(frm_op_seae.t_op_seae.fieldbyname('运输条款').asstring) +':' + trim(Edit3.Text) +':' + ReciverCode+':' + ':::::::' + '::' +trim(frm_op_seae.t_op_seae.fieldbyname('运费协议号').asstring)+'::'+#39); end; end else begin if not bsSkinCheckRadioBox2.Checked then //主单 begin str.Add ('02:'+ trim(frm_op_seae.t_op_seae.fieldbyname('订舱单号').asstring) //运编号 2 +':'+trim(frm_op_seae.t_op_seae.fieldbyname('主提单号').asstring)//提单号 3 +':'+trim(frm_op_seae.t_op_seae.fieldbyname('运输条款').asstring) //交货条款 4 +':'+trim(Edit3.Text) // 订舱人说明 5 +':'+ReciverCode //签单人代码 6 + ':' //7 + ':' //8 + ':' //9 + ':' //10 + ':' //11 + ':' // 12 + ':' // 13 + ':' // 14 + ':' // 15 +':'+trim(frm_op_seae.t_op_seae.fieldbyname('运费协议号').asstring) // 16 +':' // 17 +':'+#39); //18 end else begin str.Add ('02:'+ trim(frm_op_seae.t_op_seae.fieldbyname('订舱单号').asstring)+':' + trim(frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('主提单号').asstring) +':' + trim(frm_op_seae.t_op_seae.fieldbyname('运输条款').asstring) +':' + trim(Edit3.Text) +':' + ReciverCode+':' + ':::::::' + '::' +':' +':'+':'+trim(frm_op_seae.t_op_seae.fieldbyname('运费协议号').asstring)+#39); end; end; IF (trim(frm_op_seae.t_op_seae.fieldbyname('签单方式').asstring)='正本') or (trim(frm_op_seae.t_op_seae.fieldbyname('签单方式').asstring)='电子提单') then //提单类型 strtemp:='ORI' else strtemp:='EXP'; if trim(frm_op_seae.t_op_seae.fieldbyname('内部航次号').asstring)<>'' then voy:=trim(frm_op_seae.t_op_seae.fieldbyname('内部航次号').asstring) else voy:=trim(frm_op_seae.t_op_seae.fieldbyname('航次').asstring); str.add('03:'+strtemp+':' +':' + trim(frm_op_seae.t_op_seae.fieldbyname('签单地点').asstring) +':' + GetDatetime(trim(frm_op_seae.t_op_seae.fieldbyname('签单日期').asstring),0)+':' + get_fenshu(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); str.Add('11:' + trim(GetvesselEdi(frm_op_seae.t_op_seae.fieldbyname('船名').asstring))+':' + trim(frm_op_seae.t_op_seae.fieldbyname('船名').asstring) +':' + voy+':' +'::' + ReciverCode +':' + '::::::' +#39); //船舶经营人 if bsSkinCheckRadioBox1.Checked then begin str.Add ('12:'+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)+':' +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) +':'+trim(frm_op_seae.t_op_seae.fieldbyname('交货代码').asstring) +':'+trim(frm_op_seae.t_op_seae.fieldbyname('交货地点').asstring) +#39); end else begin str.Add ('12:'+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)+':' +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) +':'+trim(frm_op_seae.t_op_seae.fieldbyname('交货代码').asstring) +':'+trim(frm_op_seae.t_op_seae.fieldbyname('交货地点').asstring) +':'+trim(GetcustEdi(frm_op_seae.t_op_seae.fieldbyname('场站').asstring)) +#39); end; if frm_data_share.t_code_free.locate('付费方式',frm_op_seae.t_op_seae.fieldbyname('付费方式').asstring,[]) then begin str.Add ('14:'+frm_data_share.t_code_free.fieldbyname('代码').asstring+':' +trim(frm_op_seae.t_op_seae.fieldbyname('付费方式').asstring)+#39); str.Add('15:' +'::' +trim(frm_data_share.t_code_free.fieldbyname('代码').asstring)+':' +'::' + '::::' +#39); //船舶经营人 end else begin str.Add ('14:'+'P'+':' +trim(frm_op_seae.t_op_seae.fieldbyname('付费方式').asstring)+#39); str.Add('15:' +'::' +'P:' +'::' + '::::' +#39); //船舶经营人 end; if not bsSkinCheckRadioBox2.Checked then //主单 begin if trim(frm_op_seae.t_op_seae.fieldbyname('EDI备注').asstring)<>'' then Str.Add(GetRemarksString); end else begin if trim(frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('EDI备注').asstring)<>'' then Str.Add(GetRemarksString); end; strtemp:=GetShipperString; if strtemp<>'' then Str.Add(strtemp); strtemp:=GetConsigneString; if strtemp<>'' then Str.Add(strtemp); strtemp:=GetNOTIFYString; if strtemp<>'' then Str.Add(strtemp); if bsSkinCheckRadioBox1.Checked then if frm_op_seae.t_op_ams.FieldByName('AMS发货人').AsString<>'' then begin strtemp:=GetAMSShipperString; if strtemp<>'' then Str.Add(strtemp); end; if bsSkinCheckRadioBox1.Checked then if frm_op_seae.t_op_ams.FieldByName('AMS收货人').AsString<>'' then begin strtemp:=GetAMSConsigneString; if strtemp<>'' then Str.Add(strtemp); end; if bsSkinCheckRadioBox1.Checked then if frm_op_seae.t_op_ams.FieldByName('AMS通知人').AsString<>'' then begin strtemp:=GetAMSNOTIFYString; if strtemp<>'' then Str.Add(strtemp); end; { str.Add ('20:'+':' +Changestr(frm_op_seae.t_op_seae.fieldbyname('发货人代码').asstring) +#39); str.Add ('21:'+':' +Changestr(frm_op_seae.t_op_seae.fieldbyname('收货人代码').asstring) +#39); str.Add ('22:'+':' +Changestr(frm_op_seae.t_op_seae.fieldbyname('通知人代码').asstring) +#39); } if not bsSkinCheckRadioBox2.Checked then begin str.Add ('41:1::'+trim(frm_op_seae.t_op_seae.fieldbyname('货物标识').asstring)+':' // 货物标识 S/R/D/O +trim(frm_op_seae.t_op_seae.fieldbyname('件数').asstring) +':' +trim(GetpkgsEdi(frm_op_seae.t_op_seae.fieldbyname('包装').asstring))+':' +cutpkgs(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 else begin str.Add ('41:1::'+trim(frm_op_seae.t_op_seae.fieldbyname('货物标识').asstring)+':' // 货物标识 S/R/D/O +trim(frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('件数').asstring) +':' +trim(GetpkgsEdi(frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('包装').asstring))+':' +cutpkgs(trim(frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('包装').asstring)) +':' //第一层包装说明 +trim(frm_op_seae.t_op_seae.fieldbyname('总价').asstring) +':' //第一层包装说明 +trim(frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('尺码').asstring) +'::::::' // 第一层包装皮重 +trim(frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('重量').asstring) +':::' // 第一层包装尺码 +#39); end; 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) +':' +'C:' +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; if bsSkinCheckRadioBox2.Checked then sl1.Text:=aQuery2.fieldbyname('唛头').AsString else sl1.Text:=frm_op_seae.t_op_seae.fieldbyname('唛头').AsString; GetLengthTString(sl1,35); 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<=10 then begin if M=1 then begin s:='44:'+FormatEdiString(sl.Strings[L],0)+':'; end else begin if M=10 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:='44:'+FormatEdiString(sl.Strings[L],0)+':'; end; M:=M+1; end; S:=S+''''; Str.Add(S); if bsSkinCheckRadioBox2.Checked then sl1.Text:=frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('货物描述').AsString else sl1.Text:=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); // Str.Add(GetCARGODESCRIPTIONString); Count:=Count+11; strRmain:=''; if trim(frm_op_seae.t_op_seae.fieldbyname('装运方式').asstring)='整箱' then begin if not bsSkinCheckRadioBox2.Checked then begin strsql:='select 编号,代码,sum(数量) as 数量 from t_op_ctn group by 编号,代码 having 编号=' +#39+frm_op_seae.t_op_seae.fieldbyname('编号').asstring+#39; end else begin strsql:='select 代码,sum(数量) as 数量 from t_op_ctn_fendan where AS_ID=' +frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('AS_ID').AsString +' group by 代码'; end; try rs:=CreateAdoQuery; rs.Close; rs.sql.clear; rs.sql.add(strsql); rs.Open;rs.First; while not rs.Eof do begin IF trim(frm_op_seae.t_op_seae.fieldbyname('货物标识').asstring)='R' THEN begin str.Add ('48:'+Trim(GetCntrEdi(rs.fieldbyname('代码').asstring)) //2 集装箱尺寸类型 +':'+ trim(rs.fieldbyname('数量').asstring) //3 集装箱箱数 +':F' // 4集装箱状态 +':' // 5主拼号 +':' // 6 装箱方式 +':' // 7 装箱地点代码 +':' // 8 装箱地点说明 +':N' // 9 货主箱标志 +':' // 10 箱号 +':' // 11 代箱信息 +':' // 12 超重箱标志 +':Y' // 13 冷箱标志 +':' // 14 格式：YYYYMMDD +':' // 15 MOL华北专用 +#39); end else begin str.Add ('48:'+Trim(GetCntrEdi(rs.fieldbyname('代码').asstring)) //2 集装箱尺寸类型 +':'+ trim(rs.fieldbyname('数量').asstring) //3 集装箱箱数 +':F' // 4集装箱状态 +':' // 5主拼号 +':' // 6 装箱方式 +':' // 7 装箱地点代码 +':' // 8 装箱地点说明 +':N' // 9 货主箱标志 +':' // 10 箱号 +':' // 11 代箱信息 +':' // 12 超重箱标志 +':' // 13 冷箱标志 +':' // 14 格式：YYYYMMDD +':' // 15 MOL华北专用 +#39); end; rs.Next; end; if bsSkinCheckRadioBox1.Checked then begin if not bsSkinCheckRadioBox2.Checked then begin strsql:='select * from t_op_ctn where 编号=' +#39+frm_op_seae.t_op_seae.fieldbyname('编号').asstring+#39; end else begin strsql:='select * from t_op_ctn_fendan where AS_ID=' +frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('AS_ID').AsString; end; rs.Close;rs.sql.clear; rs.sql.add(strsql); rs.Open; if not rs.IsEmpty then begin if rs.FieldByName('件数').AsInteger>0 then begin rs.First; while not rs.Eof do begin str.Add ('51:'+trim(rs.fieldbyname('箱号').asstring)+':'+Trim(GetCntrEdi(rs.fieldbyname('代码').asstring))+':'+ trim(rs.fieldbyname('封号').asstring)+':'+trim(IntToStr(rs.fieldbyname('件数').AsInteger))+':'+trim(FloatToStr(rs.fieldbyname('重量').AsFloat))+':'+':'+trim(FloatToStr(rs.fieldbyname('尺码').AsFloat))+'''' ); rs.Next; end; end; end; end; rs.Close; rs.Free; except on e:exception do begin rs.Close; rs.Destroy; exit; end; end; end else begin if frm_data_share.t_crm_client_changzhan.locate('客户简称',frm_op_seae.t_op_seae.fieldbyname('场站').asstring,[])then begin strRmain:=strRmain+'L:'+':'+':'+frm_data_share.t_crm_client_changzhan.fieldbyname('EDI代码').asstring+':'+':'+'N'+#39; end else begin strRmain:=strRmain+'L:'+':'+':'+':'+':'+'N'+#39; end; str.Add('48:'+':'+':'+strRmain); Count:=Count+1; end; Result:=str; end; //// function Tfrm_op_seae_edi_mol.CreateEdiFileSI:TStrings; var str,sl1:Tstringlist; sl:TStrings; i,j,Count,l,M:integer; strsql,strRmain,strtemp,S:string; rs,aQuery2:Tadoquery; wide_str:widestring; k:integer; strType:string; strDatetime:string; SenderCode,ReciverCode,voy:string; function GetRemarksString:String; var TempStr:TStrings; begin TempStr:=TStringList.Create; try if not bsSkinCheckRadioBox2.Checked then TempStr.Text:=frm_op_seae.t_op_seae.fieldbyname('EDI备注').AsString else TempStr.Text:=frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('EDI备注').AsString; Result:='17:'; Result:=Result+FormatListString(TempStr,5,35)+''''; finally FreeAndNil(TempStr); end; end; function GetShipperString:String; var TempStr:TStringlist; aQuery:TADOQuery; M,L:integer; S:String; begin TempStr:=TStringList.Create; aQuery:=CreateAdoQuery; try if bsSkinCheckRadioBox2.Checked then begin with aQuery do begin Close; SQL.Clear; SQL.Add('select 发货人代码 from t_op_seae_assistant where AS_ID='+frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('AS_ID').AsString+''); // SQL.Add('select 发货人代码 from t_op_seae_assistant where 编号='''+frm_op_seae.t_op_seae.fieldbyname('编号').AsString+''''); open; if not IsEmpty then TempStr.Text:=fieldbyname('发货人代码').AsString else TempStr.Text:=frm_op_seae.t_op_seae.fieldbyname('发货人代码').AsString; end; end else TempStr.Text:=frm_op_seae.t_op_seae.fieldbyname('发货人代码').AsString; GetLengthTString(TempStr,35); if Tempstr.Count<=9 then begin Result:='20:'; Result:=Result+':'; Result:=Result+FormatListString(TempStr,9,35)+''''; end else begin M:=1; for L:=0 to Tempstr.Count-1 do begin if M<=9 then begin if M=1 then begin s:='20:'+FormatEdiString(Tempstr.Strings[L],0)+':'; end else begin if M=9 then s:=s+FormatEdiString(Tempstr.Strings[L],0) else s:=s+FormatEdiString(Tempstr.Strings[L],0)+':'; end; end else begin S:=S+''''; Str.Add(S); M:=1; s:='20:'+FormatEdiString(Tempstr.Strings[L],0)+':'; end; M:=M+1; end; S:=S+''''; Str.Add(S); result:=''; end; finally FreeAndNil(TempStr); end; end; function GetConsigneString:String; var TempStr:TStringlist; aQuery:TADOQuery; M,L:integer; S:String; begin TempStr:=TStringList.Create; aQuery:=CreateAdoQuery; try if bsSkinCheckRadioBox2.Checked then begin with aQuery do begin Close; SQL.Clear; SQL.Add('select 收货人代码 from t_op_seae_assistant where AS_ID='+frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('AS_ID').AsString+''); open; if not IsEmpty then TempStr.Text:=fieldbyname('收货人代码').AsString else TempStr.Text:=frm_op_seae.t_op_seae.fieldbyname('收货人代码').AsString; end; end else TempStr.Text:=frm_op_seae.t_op_seae.fieldbyname('收货人代码').AsString; GetLengthTString(TempStr,35); if Tempstr.Count<=9 then begin Result:='21:'; Result:=Result+':'; Result:=Result+FormatListString(TempStr,9,35)+''''; end else begin M:=1; for L:=0 to Tempstr.Count-1 do begin if M<=9 then begin if M=1 then begin s:='21:'+FormatEdiString(Tempstr.Strings[L],0)+':'; end else begin if M=9 then s:=s+FormatEdiString(Tempstr.Strings[L],0) else s:=s+FormatEdiString(Tempstr.Strings[L],0)+':'; end; end else begin S:=S+''''; Str.Add(S); M:=1; s:='21:'+FormatEdiString(Tempstr.Strings[L],0)+':'; end; M:=M+1; end; S:=S+''''; Str.Add(S); result:=''; end; finally FreeAndNil(TempStr); end; end; function GetNOTIFYString:String; var TempStr:TStringlist; aQuery:TADOQuery; M,L:integer; S:String; begin TempStr:=TStringList.Create; aQuery:=CreateAdoQuery; try if bsSkinCheckRadioBox2.Checked then begin with aQuery do begin Close; SQL.Clear; SQL.Add('select 通知人代码 from t_op_seae_assistant where AS_ID='+frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('AS_ID').AsString+''); // SQL.Add('select 通知人代码 from t_op_seae_assistant where 编号='''+frm_op_seae.t_op_seae.fieldbyname('编号').AsString+''''); open; if not IsEmpty then TempStr.Text:=fieldbyname('通知人代码').AsString else TempStr.Text:=frm_op_seae.t_op_seae.fieldbyname('通知人代码').AsString; end; end else TempStr.Text:=frm_op_seae.t_op_seae.fieldbyname('通知人代码').AsString; GetLengthTString(TempStr,35); if Tempstr.Count<=9 then begin Result:='22:'; Result:=Result+':'; Result:=Result+FormatListString(TempStr,9,35)+''''; end else begin M:=1; for L:=0 to Tempstr.Count-1 do begin if M<=9 then begin if M=1 then begin s:='22:'+FormatEdiString(Tempstr.Strings[L],0)+':'; end else begin if M=9 then s:=s+FormatEdiString(Tempstr.Strings[L],0) else s:=s+FormatEdiString(Tempstr.Strings[L],0)+':'; end; end else begin S:=S+''''; Str.Add(S); M:=1; s:='22:'+FormatEdiString(Tempstr.Strings[L],0)+':'; end; M:=M+1; end; S:=S+''''; Str.Add(S); result:=''; end; finally FreeAndNil(TempStr); end; end; function GetNOTIFY2String:String; var TempStr:TStringlist; M,L:integer; S:String; begin TempStr:=TStringList.Create; try TempStr.Text:=frm_op_seae.t_op_seae.fieldbyname('第二通知人').AsString; GetLengthTString(TempStr,35); if Tempstr.Count<=9 then begin Result:='22:'; Result:=Result+':'; Result:=Result+FormatListString(TempStr,9,35)+''''; end else begin M:=1; for L:=0 to Tempstr.Count-1 do begin if M<=9 then begin if M=1 then begin s:='22:'+FormatEdiString(Tempstr.Strings[L],0)+':'; end else begin if M=9 then s:=s+FormatEdiString(Tempstr.Strings[L],0) else s:=s+FormatEdiString(Tempstr.Strings[L],0)+':'; end; end else begin S:=S+''''; Str.Add(S); M:=1; s:='22:'+FormatEdiString(Tempstr.Strings[L],0)+':'; end; M:=M+1; end; S:=S+''''; Str.Add(S); result:=''; end; finally FreeAndNil(TempStr); end; end; function GetAMSShipperString:String; var TempStr:TStringlist; M,L:integer; S:String; begin TempStr:=TStringList.Create; try TempStr.Text:=frm_op_seae.t_op_AMS.fieldbyname('AMS发货人').AsString; GetLengthTString(TempStr,35); if Tempstr.Count<=9 then begin Result:='23:'; Result:=Result+':'; Result:=Result+FormatListString(TempStr,9,35)+''''; end else begin M:=1; for L:=0 to Tempstr.Count-1 do begin if M<=9 then begin if M=1 then begin s:='23:'+FormatEdiString(Tempstr.Strings[L],0)+':'; end else begin if M=9 then s:=s+FormatEdiString(Tempstr.Strings[L],0) else s:=s+FormatEdiString(Tempstr.Strings[L],0)+':'; end; end else begin S:=S+''''; Str.Add(S); M:=1; s:='23:'+FormatEdiString(Tempstr.Strings[L],0)+':'; end; M:=M+1; end; S:=S+''''; Str.Add(S); result:=''; end; finally FreeAndNil(TempStr); end; end; function GetAMSConsigneString:String; var TempStr:TStringlist; M,L:integer; S:String; begin TempStr:=TStringList.Create; try TempStr.Text:=frm_op_seae.t_op_AMS.fieldbyname('AMS收货人').AsString; GetLengthTString(TempStr,35); if Tempstr.Count<=9 then begin Result:='24:'; Result:=Result+':'; Result:=Result+FormatListString(TempStr,9,35)+''''; end else begin M:=1; for L:=0 to Tempstr.Count-1 do begin if M<=9 then begin if M=1 then begin s:='24:'+FormatEdiString(Tempstr.Strings[L],0)+':'; end else begin if M=9 then s:=s+FormatEdiString(Tempstr.Strings[L],0) else s:=s+FormatEdiString(Tempstr.Strings[L],0)+':'; end; end else begin S:=S+''''; Str.Add(S); M:=1; s:='24:'+FormatEdiString(Tempstr.Strings[L],0)+':'; end; M:=M+1; end; S:=S+''''; Str.Add(S); result:=''; end; finally FreeAndNil(TempStr); end; end; function GetAMSNOTIFYString:String; var TempStr:TStringlist; M,L:integer; S:String; begin TempStr:=TStringList.Create; try TempStr.Text:=frm_op_seae.t_op_AMS.fieldbyname('AMS通知人').AsString; GetLengthTString(TempStr,35); if Tempstr.Count<=9 then begin Result:='25:'; Result:=Result+':'; Result:=Result+FormatListString(TempStr,9,35)+''''; end else begin M:=1; for L:=0 to Tempstr.Count-1 do begin if M<=9 then begin if M=1 then begin s:='25:'+FormatEdiString(Tempstr.Strings[L],0)+':'; end else begin if M=9 then s:=s+FormatEdiString(Tempstr.Strings[L],0) else s:=s+FormatEdiString(Tempstr.Strings[L],0)+':'; end; end else begin S:=S+''''; Str.Add(S); M:=1; s:='25:'+FormatEdiString(Tempstr.Strings[L],0)+':'; end; M:=M+1; end; S:=S+''''; Str.Add(S); result:=''; end; finally FreeAndNil(TempStr); end; end; begin SenderCode:=trim(edit1.Text) ; ReciverCode:=trim(edit2.Text) ; if bsSkinRadioGroup1.ItemIndex=0 then strType:='9' else if bsSkinRadioGroup1.ItemIndex=1 then strType:='2' else if bsSkinRadioGroup1.ItemIndex=2 then strType:='3' else if bsSkinRadioGroup1.ItemIndex=3 then strType:='4' else strType:='9'; str:=Tstringlist.Create; sl:=Tstringlist.Create; sl1:=Tstringlist.Create; aQuery2:=CreateAdoQuery; if bsSkinCheckRadioBox2.Checked then begin with aQuery2 do begin Close; SQL.Clear; SQL.Add('select * from t_op_seae_assistant where AS_ID='''+frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('AS_ID').AsString+''''); // SQL.Add('select * from t_op_seae_assistant where 编号='''+frm_op_seae.t_op_seae.fieldbyname('编号').AsString+''''); open; end; end; if bsSkinCheckRadioBox1.Checked then if not frm_op_seae.t_op_ams.Active then frm_op_seae.t_op_ams.open; str.Clear; Count:=0; if bsSkinCheckRadioBox1.Checked then // bsSkinCheckRadioBox1 SI bsSkinCheckRadioBox2 主单 分单 begin if not bsSkinCheckRadioBox2.Checked then //主单 begin str.Add ('02:'+ trim(frm_op_seae.t_op_seae.fieldbyname('订舱单号').asstring) //运编号 2 +':'+trim(frm_op_seae.t_op_seae.fieldbyname('主提单号').asstring)//提单号 3 +':'+trim(frm_op_seae.t_op_seae.fieldbyname('运输条款').asstring) //交货条款 4 +':'+trim(Edit3.Text) // 订舱人说明 5 +':'+ReciverCode //签单人代码 6 + ':' //7 + ':' //8 + ':' //9 + ':' //10 + ':' //11 + ':' // 12 + ':' // 13 + ':' // 14 + ':' // 15 +':'+trim(frm_op_seae.t_op_seae.fieldbyname('运费协议号').asstring) // 16 +':' // 17 +':'+#39); //18 end else begin str.Add ('02:'+ trim(frm_op_seae.t_op_seae.fieldbyname('订舱单号').asstring)+':' + trim(frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('主提单号').asstring) +':' + trim(frm_op_seae.t_op_seae.fieldbyname('运输条款').asstring) +':' + trim(Edit3.Text) +':' + ReciverCode+':' + ':::::::' + '::' +trim(frm_op_seae.t_op_seae.fieldbyname('运费协议号').asstring)+'::'+#39); end; end else begin if not bsSkinCheckRadioBox2.Checked then //主单 begin str.Add ('02:'+ trim(frm_op_seae.t_op_seae.fieldbyname('订舱单号').asstring) //运编号 2 +':'+trim(frm_op_seae.t_op_seae.fieldbyname('主提单号').asstring)//提单号 3 +':'+trim(frm_op_seae.t_op_seae.fieldbyname('运输条款').asstring) //交货条款 4 +':'+trim(Edit3.Text) // 订舱人说明 5 +':'+ReciverCode //签单人代码 6 + ':' //7 + ':' //8 + ':' //9 + ':' //10 + ':' //11 + ':' // 12 + ':' // 13 + ':' // 14 + ':' // 15 +':'+trim(frm_op_seae.t_op_seae.fieldbyname('运费协议号').asstring) // 16 +':' // 17 +':'+#39); //18 end else begin str.Add ('02:'+ trim(frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('主提单号').asstring)+':' + trim(frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('主提单号').asstring) +':' + trim(frm_op_seae.t_op_seae.fieldbyname('运输条款').asstring) +':' + trim(Edit3.Text) +':' + ReciverCode+':' + ':::::::' + '::' +':' +':'+':'+trim(frm_op_seae.t_op_seae.fieldbyname('运费协议号').asstring)+#39); end; end; if (trim(frm_op_seae.t_op_seae.fieldbyname('签单方式').asstring)='正本') or (trim(frm_op_seae.t_op_seae.fieldbyname('签单方式').asstring)='电放') then strtemp:='ORI' else strtemp:='EXP'; if trim(frm_op_seae.t_op_seae.fieldbyname('内部航次号').asstring)<>'' then voy:=trim(frm_op_seae.t_op_seae.fieldbyname('内部航次号').asstring) else voy:=trim(frm_op_seae.t_op_seae.fieldbyname('航次').asstring); str.add('03:'+strtemp+':' +':' + trim(frm_op_seae.t_op_seae.fieldbyname('签单地点').asstring) +':' + GetDatetime(trim(frm_op_seae.t_op_seae.fieldbyname('签单日期').asstring),0)+':' + get_fenshu(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) +':'+ get_fenshu(trim(frm_op_seae.t_op_seae.fieldbyname('副本提单份数').asstring)) +#39); // str.Add('11:' + trim(GetvesselEdi(frm_op_seae.t_op_seae.fieldbyname('船名').asstring))+':' + trim(frm_op_seae.t_op_seae.fieldbyname('船名').asstring) +':' + voy+':' +'::' + ReciverCode +':' + '::::::' +#39); //船舶经营人 if bsSkinCheckRadioBox1.Checked then begin str.Add ('12:'+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)+':' +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) +':'+trim(frm_op_seae.t_op_seae.fieldbyname('交货代码').asstring) +':'+trim(frm_op_seae.t_op_seae.fieldbyname('交货地点').asstring) +#39); end else begin str.Add ('12:'+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)+':' +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) +':'+trim(frm_op_seae.t_op_seae.fieldbyname('交货代码').asstring) +':'+trim(frm_op_seae.t_op_seae.fieldbyname('交货地点').asstring) +':' +trim(GetcustEdi(frm_op_seae.t_op_seae.fieldbyname('场站').asstring))+#39); end; if frm_data_share.t_code_free.locate('付费方式',frm_op_seae.t_op_seae.fieldbyname('付费方式').asstring,[]) then begin str.Add ('14:'+frm_data_share.t_code_free.fieldbyname('代码').asstring+':' +trim(frm_op_seae.t_op_seae.fieldbyname('付费方式').asstring)+#39); str.Add('15:' +'::' +trim(frm_data_share.t_code_free.fieldbyname('代码').asstring)+':' +trim(frm_op_seae.t_op_seae.fieldbyname('到付地点代码').asstring)+':' +':' + '::::' +#39); //船舶经营人 end else begin str.Add ('14:'+'P'+':' +trim(frm_op_seae.t_op_seae.fieldbyname('付费方式').asstring)+#39); str.Add('15:' +'::' +'P:' +'::' + '::::' +#39); //船舶经营人 end; if not bsSkinCheckRadioBox2.Checked then //主单 begin if trim(frm_op_seae.t_op_seae.fieldbyname('EDI备注').asstring)<>'' then Str.Add(GetRemarksString); end else begin if trim(frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('EDI备注').asstring)<>'' then Str.Add(GetRemarksString); end; strtemp:=GetShipperString; if strtemp<>'' then Str.Add(strtemp); strtemp:=GetConsigneString; if strtemp<>'' then Str.Add(strtemp); strtemp:=GetNOTIFYString; if strtemp<>'' then Str.Add(strtemp); if frm_op_seae.t_op_seae.FieldByName('第二通知人').AsString<>'' then begin strtemp:=GetNOTIFY2String; if strtemp<>'' then Str.Add(strtemp); end; if bsSkinCheckRadioBox1.Checked then if frm_op_seae.t_op_ams.FieldByName('AMS发货人').AsString<>'' then begin strtemp:=GetAMSShipperString; if strtemp<>'' then Str.Add(strtemp); end; if bsSkinCheckRadioBox1.Checked then if frm_op_seae.t_op_ams.FieldByName('AMS收货人').AsString<>'' then begin strtemp:=GetAMSConsigneString; if strtemp<>'' then Str.Add(strtemp); end; if bsSkinCheckRadioBox1.Checked then if frm_op_seae.t_op_ams.FieldByName('AMS通知人').AsString<>'' then begin strtemp:=GetAMSNOTIFYString; if strtemp<>'' then Str.Add(strtemp); end; { str.Add ('20:'+':' +Changestr(frm_op_seae.t_op_seae.fieldbyname('发货人代码').asstring) +#39); str.Add ('21:'+':' +Changestr(frm_op_seae.t_op_seae.fieldbyname('收货人代码').asstring) +#39); str.Add ('22:'+':' +Changestr(frm_op_seae.t_op_seae.fieldbyname('通知人代码').asstring) +#39); } if not bsSkinCheckRadioBox2.Checked then begin str.Add ('41:1::'+trim(frm_op_seae.t_op_seae.fieldbyname('货物标识').asstring)+':' // 货物标识 S/R/D/O +trim(frm_op_seae.t_op_seae.fieldbyname('件数').asstring) +':' +trim(GetpkgsEdi(frm_op_seae.t_op_seae.fieldbyname('包装').asstring))+':' +cutpkgs(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 else begin str.Add ('41:1::'+trim(frm_op_seae.t_op_seae.fieldbyname('货物标识').asstring)+':' // 货物标识 S/R/D/O +trim(frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('件数').asstring) +':' +trim(GetpkgsEdi(frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('包装').asstring))+':' +cutpkgs(trim(frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('包装').asstring)) +':' //第一层包装说明 +trim(frm_op_seae.t_op_seae.fieldbyname('总价').asstring) +':' //第一层包装说明 +trim(frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('尺码').asstring) +'::::::' // 第一层包装皮重 +trim(frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('重量').asstring) +':::' // 第一层包装尺码 +#39); end; 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) +':' +'C:' +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; if bsSkinCheckRadioBox2.Checked then sl1.Text:=aQuery2.fieldbyname('唛头').AsString else sl1.Text:=frm_op_seae.t_op_seae.fieldbyname('唛头').AsString; GetLengthTString(sl1,35); 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<=10 then begin if M=1 then begin s:='44:'+FormatEdiString(sl.Strings[L],0)+':'; end else begin if M=10 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:='44:'+FormatEdiString(sl.Strings[L],0)+':'; end; M:=M+1; end; S:=S+''''; Str.Add(S); if bsSkinCheckRadioBox2.Checked then sl1.Text:=frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('货物描述').AsString else sl1.Text:=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); // Str.Add(GetCARGODESCRIPTIONString); Count:=Count+11; strRmain:=''; if trim(frm_op_seae.t_op_seae.fieldbyname('装运方式').asstring)='整箱' then begin if not bsSkinCheckRadioBox2.Checked then begin strsql:='select 编号,代码,sum(数量) as 数量 from t_op_ctn group by 编号,代码 having 编号=' +#39+frm_op_seae.t_op_seae.fieldbyname('编号').asstring+#39; end else begin strsql:='select 代码,sum(数量) as 数量 from t_op_ctn_fendan where AS_ID=' +frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('AS_ID').AsString +' group by 代码'; end; try rs:=CreateAdoQuery; rs.Close; rs.sql.clear; rs.sql.add(strsql); rs.Open;rs.First; while not rs.Eof do begin IF trim(frm_op_seae.t_op_seae.fieldbyname('货物标识').asstring)='R' THEN begin str.Add ('48:'+Trim(GetCntrEdi(rs.fieldbyname('代码').asstring)) //2 集装箱尺寸类型 +':'+ trim(rs.fieldbyname('数量').asstring) //3 集装箱箱数 +':F' // 4集装箱状态 +':' // 5主拼号 +':' // 6 装箱方式 +':' // 7 装箱地点代码 +':' // 8 装箱地点说明 +':N' // 9 货主箱标志 +#39); end else begin str.Add ('48:'+Trim(GetCntrEdi(rs.fieldbyname('代码').asstring)) //2 集装箱尺寸类型 +':'+ trim(rs.fieldbyname('数量').asstring) //3 集装箱箱数 +':F' // 4集装箱状态 +':' // 5主拼号 +':' // 6 装箱方式 +':' // 7 装箱地点代码 +':' // 8 装箱地点说明 +':N' // 9 货主箱标志 +#39); end; rs.Next; end; /// if bsSkinCheckRadioBox1.Checked then begin if not bsSkinCheckRadioBox2.Checked then begin strsql:='select * from t_op_ctn where 编号=' +#39+frm_op_seae.t_op_seae.fieldbyname('编号').asstring+#39; end else begin strsql:='select * from t_op_ctn_fendan where AS_ID=' +frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('AS_ID').AsString; end; rs.Close;rs.sql.clear; rs.sql.add(strsql); rs.Open; if not rs.IsEmpty then begin if rs.FieldByName('件数').AsInteger>0 then begin rs.First; while not rs.Eof do begin str.Add ('51:'+trim(rs.fieldbyname('箱号').asstring)+':'+Trim(GetCntrEdi(rs.fieldbyname('代码').asstring))+':'+ trim(rs.fieldbyname('封号').asstring)+':'+trim(IntToStr(rs.fieldbyname('件数').AsInteger))+':'+trim(FloatToStr(rs.fieldbyname('重量').AsFloat))+':'+':'+trim(FloatToStr(rs.fieldbyname('尺码').AsFloat))+'''' ); str.Add ('53' +':'+trim(frm_op_seae.t_op_seae.fieldbyname('运输方式').asstring) +':'+trim(IntToStr(rs.fieldbyname('件数').AsInteger)) +':'+trim(FloatToStr(rs.fieldbyname('重量').AsFloat)) +':'+trim(FloatToStr(rs.fieldbyname('尺码').AsFloat)) +':'+trim(GetpkgsEdi(frm_op_seae.t_op_seae.fieldbyname('包装').asstring)) +':'+cutpkgs(trim(frm_op_seae.t_op_seae.fieldbyname('包装').asstring)) +':' +':' +''''); sl1.Text:=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:='54:'+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:='54:'+FormatEdiString(sl.Strings[L],0)+':'; end; M:=M+1; end; S:=S+''''; Str.Add(S); rs.Next; end; end; end; end; rs.Close; rs.Free; except on e:exception do begin rs.Close; rs.Destroy; exit; end; end; end else begin if frm_data_share.t_crm_client_changzhan.locate('客户简称',frm_op_seae.t_op_seae.fieldbyname('场站').asstring,[])then begin strRmain:=strRmain+'L:'+':'+':'+frm_data_share.t_crm_client_changzhan.fieldbyname('EDI代码').asstring+':'+':'+'N'+#39; end else begin strRmain:=strRmain+'L:'+':'+':'+':'+':'+'N'+#39; end; str.Add('48:'+':'+':'+strRmain); Count:=Count+1; end; // Str.Add(GetCARGODESCRIPTIONString); Count:=Count+11; Result:=str; end; function Tfrm_op_seae_edi_mol.GetCntrEdi(cntrsize: String):String; var aQuery:TADOQuery; begin aQuery:=CreateAdoQuery; try with aQuery do begin Close;SQL.Clear; SQL.Add('Select Edi代码MOL Edi代码 from t_code_ctn where 代码='''+cntrsize+''''); Open; if IsEmpty then Result:='' else Result:=FieldByName('Edi代码').AsString; end; finally FreeAndNil(aQuery); end; end; function Tfrm_op_seae_edi_mol.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_mol.GetlineEdi(aline: String): String; var aQuery:TADOQuery; begin aQuery:=CreateAdoQuery; try with aQuery do begin Close;SQL.Clear; SQL.Add('Select Edi代码 from t_code_trade where 航线='''+aline+''''); Open; if IsEmpty then Result:='' else Result:=FieldByName('Edi代码').AsString; end; finally FreeAndNil(aQuery); end; end; procedure Tfrm_op_seae_edi_mol.bsSkinButton3Click(Sender: TObject); var str:widestring; str_file:widestring; ftpar,ftpname,ftppass,ftppath,ScriptPath:String; StrL:TStrings; i:integer; SenderCode,ReciverCode,strType:String; begin ftpar:=Trim(edit4.Text); if ftpar='' then begin MessageDlg('请设置FTP地址！',mtWarning,[mbOk],0); exit; end; ftpname:=Trim(edit6.Text); if ftpar='' then begin MessageDlg('请设置FTP用户名！',mtWarning,[mbOk],0); exit; end; ftppass:=Trim(edit7.Text); if ftpar='' then begin MessageDlg('请设置FTP密码！',mtWarning,[mbOk],0); exit; end; ftppath:=Trim(edit5.Text); FtpClient1.UserName:=ftpname; FtpClient1.PassWord:=ftppass; FtpClient1.HostName:=ftpar; FtpClient1.Passive:=CheckBox1.Checked; FtpClient1.MultiThreaded:=True; FtpClient1.Port:='21'; FtpClient1.DisplayFileFlag:=True; FtpClient1.Timeout:=5; try if (FtpClient1.Open) and (FtpClient1.User) and (FtpClient1.Pass) then begin //连接失败 frm_op_seae_edi_MOL.Caption:='用户连接成功！'; FtpClient1.HostDirName:=ftppath; if FtpClient1.Cwd then end else begin showmessage('用户连接失败!'); end; except on e:exception do begin FtpClient1.Abort; frm_op_seae_edi_mol.Caption:='用户连接失败！'; end; end; { with idftp1 do begin Username:=ftpname; Password:=ftppass; Host:=ftpar; Passive:=CheckBox1.Checked; try finally Connect; end; if Connected then begin showmessage('Ftp连接成功！'); ChangeDir(ftppath); TransferType:=ftBinary; end else showmessage('Ftp连接失败,请重新连接！'); end; } end; procedure Tfrm_op_seae_edi_mol.FormCloseQuery(Sender: TObject; var CanClose: Boolean); var inifile1:Tinifile; begin inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini'); inifile1.WriteString('molEDI','SEND',edit1.text); inifile1.WriteString('molEDI','RECIEVE',edit2.text); inifile1.WriteString('molEDI','SENDNAME',edit3.text); inifile1.WriteString('molEDI','FTPSERVER',edit4.text); inifile1.WriteString('molEDI','FTPPATH',edit5.text); inifile1.WriteString('molEDI','FTPNAME',edit6.text); inifile1.WriteString('molEDI','FTPPASS',edit7.text); inifile1.free; end; procedure Tfrm_op_seae_edi_mol.bsSkinButton4Click(Sender: TObject); begin if frm_op_seae_edi_mol.Height=301 then frm_op_seae_edi_mol.Height:=162 else frm_op_seae_edi_mol.Height:=301; end; function Tfrm_op_seae_edi_mol.GetcustEdi(cust: String): String; var aQuery:TADOQuery; begin aQuery:=CreateAdoQuery; try with aQuery do begin Close;SQL.CLEAR; SQL.Add('Select EDI代码 from t_crm_client where 客户简称='''+Cust+''''); Open; if not IsEmpty then result:=fieldbyname('EDI代码').AsString; end; finally FreeAndNil(aQuery); end; end; procedure Tfrm_op_seae_edi_mol.FtpClient1Error(Sender: TObject; var Msg: String); begin ShowMessage(Msg); end; procedure Tfrm_op_seae_edi_mol.bsSkinButton5Click(Sender: TObject); var str:widestring; str_file:widestring; ftpar,ftpname,ftppass,ftppath,ScriptPath:String; StrL:TStrings; i,i_soi:integer; SenderCode,ReciverCode,strType:String; SIO,ORG,MBL,CARR,MBLNO,ETD,CORP,EMP,EMPDAE:string; edi:WideString; begin i_soi:=0; if bsSkinCheckRadioBox2.Checked then begin if frm_op_seae_assistant=nil then begin ShowMessage('请在(委托和提单)界面发送分单Edi'); exit; end end; if frm_op_seae.dxdbgrid1.SelectedCount>1 then begin for i:=0 to frm_op_seae.dxdbgrid1.SelectedCount-1 do begin frm_op_seae.t_op_seae.GotoBookmark(pointer(frm_op_seae.dxdbgrid1.selectedrows[i])); if not isEditrue(frm_op_seae.t_op_seae) then exit; end; end else begin if not isEditrue(frm_op_seae.t_op_seae) then exit; end; ScriptPath:=ExtractFilePath(ParamStr(0))+'EDIFILE\'; if not DirectoryExists(ScriptPath) then CreateDir(ScriptPath); ftpar:=Trim(edit4.Text); if ftpar='' then begin MessageDlg('请设置FTP地址！',mtWarning,[mbOk],0); exit; end; ftpname:=Trim(edit6.Text); if ftpar='' then begin MessageDlg('请设置FTP用户名！',mtWarning,[mbOk],0); exit; end; ftppass:=Trim(edit7.Text); if ftpar='' then begin MessageDlg('请设置FTP密码！',mtWarning,[mbOk],0); exit; end; ftppath:=Trim(edit5.Text); str:=ScriptPath +frm_op_seae.t_op_seae.fieldbyname('主提单号').asstring +FormatDateTime('yyyy',now) +FormatDateTime('mm',now) +FormatDateTime('dd',now) +FormatDateTime('hh',now) +FormatDateTime('nn',now)+'.txt'; str_file:=frm_op_seae.t_op_seae.fieldbyname('主提单号').asstring +FormatDateTime('yyyy',now) +FormatDateTime('mm',now) +FormatDateTime('dd',now) +FormatDateTime('hh',now) +FormatDateTime('nn',now)+'.txt'; strL:=Tstringlist.Create; try SenderCode:=trim(edit1.Text) ; ReciverCode:=trim(edit2.Text) ; if bsSkinRadioGroup1.ItemIndex=0 then strType:='9' else if bsSkinRadioGroup1.ItemIndex=1 then strType:='2' else if bsSkinRadioGroup1.ItemIndex=2 then strType:='3' else if bsSkinRadioGroup1.ItemIndex=3 then strType:='4' else strType:='9'; if bsSkinCheckRadioBox1.Checked then strL.Add('00:IFTMIN:BOOKING:'+trim(strType)+':'+ SenderCode+':'+ReciverCode+':'+GetDatetime(datetimetostr(now),1)+#39) else strL.Add('00:IFTMBF:BOOKING:'+trim(strType)+':'+ SenderCode+':'+ReciverCode+':'+GetDatetime(datetimetostr(now),1)+#39); if frm_op_seae.dxdbgrid1.SelectedCount>1 then begin for i:=0 to frm_op_seae.dxdbgrid1.SelectedCount-1 do begin frm_op_seae.t_op_seae.GotoBookmark(pointer(frm_op_seae.dxdbgrid1.selectedrows[i])); if Trim(frm_op_seae.t_op_seae.fieldbyname('装运方式').asstring)='整箱' then if bsSkinCheckRadioBox1.Checked then StrL.AddStrings(CreateEdiFileSI) else StrL.AddStrings(CreateEdiFile) else if Pos('主票',(frm_op_seae.t_op_seae.fieldbyname('装运方式').asstring))>0 then else begin Exit; end; end; end else begin if Trim(frm_op_seae.t_op_seae.fieldbyname('装运方式').asstring)='整箱' then if bsSkinCheckRadioBox1.Checked then StrL.AddStrings(CreateEdiFileSI) else StrL.AddStrings(CreateEdiFile) else if Pos('主票',(frm_op_seae.t_op_seae.fieldbyname('装运方式').asstring))>0 then else begin Exit; end; end; I:=strL.Count; strL.Add('99:'+intToStr(i+1)+''''); for i:=0 to StrL.Count-1 do begin if IsZhongwen(StrL[i])<>'' then begin MessageDlg('此票业务有中文字符或TAB等不规范字符,请去除字符后重试！',mtWarning,[mbYes],0); exit; end; end; edi:=StrL.Text; strL.SaveToFile(str); finally FreeAndNil(StrL) end; if FtpClient1.Connected then begin try FtpClient1.TransferMode := ftpTransModeStream; FtpClient1.LocalFileName:=str; FtpClient1.HostFileName:= str_file; try if FtpClient1.Put then begin ShowMessage('上传成功'); frm_op_seae_edi_mol.Caption:='上传成功！'; end; except FtpClient1.Abort; ShowMessage('上传失败!'); frm_op_seae_edi_mol.Caption:='上传失败！'; i_soi:=1; end; finally FtpClient1.Abort; end; end; if i_soi=0 then if bsSkinCheckRadioBox1.Checked then UpdateSOIStatus(1,frm_op_seae.t_op_seae.fieldbyname('编号').asstring) else UpdateSOIStatus(0,frm_op_seae.t_op_seae.fieldbyname('编号').asstring); // if bsSkinCheckRadioBox1.Checked then SIO:='SI' else SIO:='SO'; if bsSkinRadioGroup1.ItemIndex=0 then ORG:='ORG' else ORG:='AMEND'; IF bsSkinCheckRadioBox2.Checked then begin MBL:='分单'; MBLNO:=frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('主提单号').asstring; end else begin MBL:='主单'; MBLNO:=frm_op_seae.t_op_seae.fieldbyname('主提单号').asstring; end; CARR:=frm_op_seae.t_op_seae.fieldbyname('船公司').asstring; CORP:=frm_op_seae.t_op_seae.fieldbyname('委托单位').asstring; EMP:=employee; EMPDAE:=FormatDateTime('YYYY-MM-DD hh:mm:ss',now); ETD:=FormatDateTime('YYYY-MM-DD',frm_op_seae.t_op_seae.fieldbyname('开船日期').value); Insertt_op_Edi_Log(SIO,ORG,MBL,CARR,MBLNO,ETD,CORP,EMP,EMPDAE,str,edi); { if not idftp1.Connected then with idftp1 do begin Username:=ftpname; Password:=ftppass; Host:=ftpar; Passive:=CheckBox1.Checked; try finally Connect; end; if Connected then begin showmessage('Ftp重新连接成功！'); ChangeDir(ftppath); TransferType:=ftBinary; end else showmessage('Ftp连接失败,请重新连接！'); end; if MessageDlg('确实要上传EID吗？',mtWarning,[mbyes,mbNo],0)=mryes then begin try if idftp1.Connected then begin idftp1.Put(str,str_file); showmessage('文件上传成功！'); idftp1.Disconnect; end else begin showmessage('Ftp没有连接,请重新连接'); end; except showmessage('文件上传错误！'); end; end; } close; end; function Tfrm_op_seae_edi_mol.CreateVgmEdiFile:TStrings; var str,sl,sl1:Tstringlist; i,j,Count,l,M:integer; strsql,strRmain,strtemp,S,fenshu:string; rs:Tadoquery; wide_str,str_shr,str_con,str_not:widestring; k:integer; strType,SM:string; strDatetime,shipname,shipaddr:string; SenderCode,ReciverCode:string; firstcon:boolean; begin SenderCode:=trim(edit1.Text) ; ReciverCode:=trim(edit2.Text) ; if bsSkinRadioGroup1.ItemIndex=0 then strType:='9' else if bsSkinRadioGroup1.ItemIndex=1 then strType:='2' else if bsSkinRadioGroup1.ItemIndex=2 then strType:='3' else if bsSkinRadioGroup1.ItemIndex=3 then strType:='4' else strType:='9'; str:=Tstringlist.Create; sl:=Tstringlist.Create; sl1:=Tstringlist.Create; str.Clear; str.Add('00:IFTVGM:BOOKING:'+trim(strType)+':'+ SenderCode+':'+ReciverCode+':'+GetDatetime(datetimetostr(now),1)+#39); Count:=0; str.Add ('02:'+ Copy(trim(frm_op_seae.t_op_seae.fieldbyname('主提单号').asstring),5,20)+':' + trim(frm_op_seae.t_op_seae.fieldbyname('主提单号').asstring) +#39); str.Add('11:' + trim(GetvesselEdi(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) // +':'+GetShipEdiNO(frm_op_seae.t_op_seae.fieldbyname('船公司').asstring) // +':::::::::' //6---14 +#39); //船舶经营人 str.Add ('12:'+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)+':' +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) +':' +trim(frm_op_seae.t_op_seae.fieldbyname('目的地代码').asstring) +':' +trim(frm_op_seae.t_op_seae.fieldbyname('目的地').asstring) +#39); Count:=Count+4; if 1=1 then begin strsql:='select * from t_op_ctn where 编号=' +#39+frm_op_seae.t_op_seae.fieldbyname('编号').asstring+#39; try rs:=Tadoquery.Create(application); rs.Connection := frm_main.db; rs.sql.clear; rs.sql.add(strsql); rs.Open; rs.First; if not rs.IsEmpty then begin rs.First; while not rs.Eof do begin if (rs.fieldbyname('称重方式').asstring<>'') or (rs.fieldbyname('称重方式').asstring<>'无') then begin if Trim(rs.fieldbyname('称重方式').asstring)='累加' then SM:='SM2' else if Trim(rs.fieldbyname('称重方式').asstring)='总重' then SM:='SM1'; str.Add ('51:'+trim(rs.fieldbyname('箱号').asstring) //2 +':'+Trim(GetCntrEdi(rs.fieldbyname('代码').asstring)) //3 +':'+trim(rs.fieldbyname('封号').asstring) // 4 +':'+trim(IntToStr(rs.fieldbyname('件数').AsInteger)) //5 +':'+trim(FloatToStr(rs.fieldbyname('重量').AsFloat)) //6 +'::' +trim(floatToStr(rs.fieldbyname('尺码').Asfloat)) //78 +'::::::' //9-14 +':'+rs.fieldbyname('称重重量').asstring //15 +':'+GetDatetime(datetimetostr(now),1) //16 +':'+SM //17 +''''); sl.Text:=FormatEdiString(frm_op_seae.t_op_seae.fieldbyname('发货人代码').asstring,0); shipname:=''; if sl.Count>=1 then shipname:=Copy(sl[0],1,20); shipaddr:=''; if sl.Count>=2 then shipaddr:=sl[1]; if sl.Count>=3 then shipaddr:=shipaddr+' '+sl[2]; if sl.Count>=4 then shipaddr:=shipaddr+' '+sl[3]; if sl.Count>=5 then shipaddr:=shipaddr+' '+sl[4]; str.Add ('58:'+shipname //2 +':'+shipaddr //3 +':'+rs.fieldbyname('VGM联系人').asString // 4 +':'+'' //5 +':'+rs.fieldbyname('VGM联系联系方式').asString //6 +':'+rs.fieldbyname('VGM联系人').asString //7 +':' +rs.fieldbyname('VGM签名').asString //8 +':' +'certificate ID' //9 +''''); end; rs.Next; end; end; rs.Close; rs.Destroy; except on e:exception do begin rs.Close; rs.Destroy; exit; end; end; end; I:=str.Count; str.Add('99:'+intToStr(i+1)+''''); Result:=str; end; procedure Tfrm_op_seae_edi_mol.bsSkinButton7Click(Sender: TObject); var str:widestring; str_file:widestring; ftpar,ftpname,ftppass,ftppath,ScriptPath:String; StrL:TStrings; i,i_soi:integer; SenderCode,ReciverCode,strType:String; SIO,ORG,MBL,CARR,MBLNO,ETD,CORP,EMP,EMPDAE:string; edi:WideString; begin i_soi:=0; ScriptPath:=ExtractFilePath(ParamStr(0))+'EDIFILE\'; if not DirectoryExists(ScriptPath) then CreateDir(ScriptPath); ftpar:=Trim(edit4.Text); if ftpar='' then begin MessageDlg('请设置FTP地址！',mtWarning,[mbOk],0); exit; end; ftpname:=Trim(edit6.Text); if ftpar='' then begin MessageDlg('请设置FTP用户名！',mtWarning,[mbOk],0); exit; end; ftppass:=Trim(edit7.Text); if ftpar='' then begin MessageDlg('请设置FTP密码！',mtWarning,[mbOk],0); exit; end; ftppath:=Trim(edit5.Text); str:=ScriptPath +frm_op_seae.t_op_seae.fieldbyname('主提单号').asstring +FormatDateTime('yyyy',now) +FormatDateTime('mm',now) +FormatDateTime('dd',now) +FormatDateTime('hh',now) +FormatDateTime('nn',now)+'.txt'; str_file:=frm_op_seae.t_op_seae.fieldbyname('主提单号').asstring +FormatDateTime('yyyy',now) +FormatDateTime('mm',now) +FormatDateTime('dd',now) +FormatDateTime('hh',now) +FormatDateTime('nn',now)+'.txt'; StrL:=Tstringlist.Create; try StrL:=CreateVgmEdiFile; edi:=StrL.Text; strL.SaveToFile(str); finally FreeAndNil(StrL) end; if FtpClient1.Connected then begin try FtpClient1.TransferMode := ftpTransModeStream; FtpClient1.LocalFileName:=str; FtpClient1.HostFileName:= str_file; try if FtpClient1.Put then begin ShowMessage('上传成功'); frm_op_seae_edi_mol.Caption:='上传成功！'; end; except FtpClient1.Abort; ShowMessage('上传失败!'); frm_op_seae_edi_mol.Caption:='上传失败！'; i_soi:=1; end; finally FtpClient1.Abort; end; end; { if i_soi=0 then if bsSkinCheckRadioBox1.Checked then UpdateSOIStatus(1,frm_op_seae.t_op_seae.fieldbyname('编号').asstring) else UpdateSOIStatus(0,frm_op_seae.t_op_seae.fieldbyname('编号').asstring); } // if bsSkinCheckRadioBox1.Checked then SIO:='SI' else SIO:='SO'; if bsSkinRadioGroup1.ItemIndex=0 then ORG:='ORG' else ORG:='AMEND'; IF bsSkinCheckRadioBox2.Checked then begin MBL:='分单'; MBLNO:=frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('主提单号').asstring; end else begin MBL:='主单'; MBLNO:=frm_op_seae.t_op_seae.fieldbyname('主提单号').asstring; end; CARR:=frm_op_seae.t_op_seae.fieldbyname('船公司').asstring; CORP:=frm_op_seae.t_op_seae.fieldbyname('委托单位').asstring; EMP:=employee; EMPDAE:=FormatDateTime('YYYY-MM-DD hh:mm:ss',now); ETD:=FormatDateTime('YYYY-MM-DD',frm_op_seae.t_op_seae.fieldbyname('开船日期').value); Insertt_op_Edi_Log(SIO,ORG,MBL,CARR,MBLNO,ETD,CORP,EMP,EMPDAE,str,edi); end; procedure Tfrm_op_seae_edi_mol.bsSkinButton6Click(Sender: TObject); var Str:TStrings; i:integer; begin // if not isEditrue(frm_op_seae.t_op_seae) then exit; try Str:=CreateVgmEdiFile; SaveDialog1.FileName:=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; finally FreeAndNil(Str) end; end; function Tfrm_op_seae_edi_mol.GetShipEdiNO(Ship:String): String; var aQuery:TADOQuery; begin aQuery:=CreateAdoQuery; try with aQuery do begin Close;SQL.Clear; SQL.Add('Select 代码,EDI代码,客户简称,客户全称,揽货人,录入人,录入日期 from t_crm_client'); SQL.Add('where 客户性质<>''目标'' and 船公司=1 and 客户简称='''+Ship+''''); SQL.Add('order by 代码'); Open; if not IsEmpty then Result:=Trim(FieldByName('EDI代码').asstring) else Result:=''; end; finally FreeAndNil(aQuery); end; end; function Tfrm_op_seae_edi_mol.cutpkgs(kindpkg:string): string; var s:string; l:Integer; begin if (kindpkg='') or (Length(kindpkg)=0) then result:=kindpkg; s:=kindpkg; l:=Length(kindpkg); if Copy(kindpkg,l,1)='S' THEN result:=Copy(kindpkg,1,l-1); end; end.