hanxuntao
/
DONGSHENG6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'master'
${ noResults }
DONGSHENG6/EDI/u_op_seae_edi_zim.~pas

3259 lines
104 KiB
Plaintext
Raw Permalink Blame History Unescape Escape

This file contains ambiguous Unicode characters!

This file contains ambiguous Unicode characters that may be confused with others in your current locale. If your use case is intentional and legitimate, you can safely ignore this warning. Use the Escape button to highlight these characters.

unit u_op_seae_edi_zim;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,IdFTP,IdFTPCommon,
Dialogs, BusinessSkinForm, StdCtrls, bsSkinCtrls,inifiles, DB, ADODB;
type
Tfrm_op_seae_edi_zim = 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;
bsSkinRadioGroup2: TbsSkinRadioGroup;
bsSkinButton4: TbsSkinButton;
bsSkinGroupBox1: TbsSkinGroupBox;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
t_op_ams: TADOQuery;
t_op_ams1: TDataSource;
bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
t_op_seae_assistant: TADOQuery;
bsSkinRadioGroup3: TbsSkinRadioGroup;
bsSkinRadioGroup4: TbsSkinRadioGroup;
ADOQueryTemp: TADOQuery;
bsSkinButton7: TbsSkinButton;
bsSkinButton6: TbsSkinButton;
procedure bsSkinButton2Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure bsSkinButton3Click(Sender: TObject);
procedure bsSkinButton4Click(Sender: TObject);
procedure bsSkinRadioGroup3Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure bsSkinButton6Click(Sender: TObject);
procedure bsSkinButton7Click(Sender: TObject);
private
function isEditrue(DataSet:TDataSet): boolean; //判断必填项
function GetvesselEdi(avessel: String): String;
function GetStrNum(str:String):integer;//判断数字位数
function FormatListString(Old:TStrings;mCount,Strlength:integer):String;//根据长度要求格式化字符串
function FormatEdiString(str:String;Strlength:integer=0):String;//特殊字符加 :
function CreateEdiFile:TStrings;//订舱报文
function CreateZHUEdiFile(bstype:integer):TStrings;//主票订舱报文
function CreateSIEdiFile:TStrings; //SI报文
function CreateSIZHUEdiFile(bstype:integer):TStrings; //主票SI报文
function GetCntrEdi(cntrsize: String):String; //箱型EDI代码
function GetpkgsEdi(pkgs:String):String;//包装EDI代码
function GetlineEdi(aline:String):String;//航线EDI代码
function GetLengthword(var s: String; l: Integer;str:String): String;//根据长度要求截取字符串
procedure GetLengthTString(var sl:TStringList;l:integer);//根据长度格式化 tstringlist
function IsZhongwen(Str:String):Boolean;//是否包含中文或双字节字符
function ControlLines(LinesCount,CorpTypeid,BsTypeid:Integer;SName:string):String;
{ Private declarations }
public
{ Public declarations }
QUOTATIONNO,CARGOGROSSWT,SoRemarks,SIRemarks:string;
CarrName:string;
function GetPortEdiID(Port:String): String;
function GetShipEdiNO(Ship:String): String;
function CreateVgmEdiFile:TStrings;
end;
var
frm_op_seae_edi_zim: Tfrm_op_seae_edi_zim;
implementation
uses u_op_seae, u_main, my_sys_function, u_data_share, u_op_seae_edi_nor;
{$R *.dfm}
function Tfrm_op_seae_edi_zim.ControlLines(LinesCount,CorpTypeid,BsTypeid:Integer;SName:string):String;
begin
Result:='';
if LinesCount>5 then
begin
case CorpTypeid of
0:begin
case BsTypeid of
0: Result:=SName+'详细信息超过5行,超出部分请在基本信息货描中填写格式为:+加多出部分';
1: Result:=SName+'详细信息超过5行,超出部分请在装箱明细最后一个货描中填写格式为:+加多出部分';
end;
end;
1:begin
case BsTypeid of
0: Result:=SName+'详细信息超过5行,超出部分请在基本信息货描中填写格式为:++加多出部分';
1: Result:=SName+'详细信息超过5行,超出部分请在装箱明细最后一个货描中填写格式为:++加多出部分';
end;
end;
2:begin
case BsTypeid of
0: Result:=SName+'详细信息超过5行,超出部分请在基本信息货描中填写格式为:+++加多出部分';
1: Result:=SName+'详细信息超过5行,超出部分请在装箱明细最后一个货描中填写格式为:+++加多出部分';
end;
end;
end;
end;
end;
function Tfrm_op_seae_edi_zim.GetPortEdiID(Port:String): String;
var
aQuery:TADOQuery;
begin
aQuery:=CreateAdoQuery;
try
with aQuery do begin
Close;SQL.Clear;
SQL.Add('Select EDI代码 from t_code_disport where 英文名='''+Port+'''');
Open;
if not IsEmpty then
Result:=Trim(FieldByName('EDI代码').asstring)
else
Result:='';
end;
finally
FreeAndNil(aQuery);
end;
end;
function Tfrm_op_seae_edi_zim.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;
function Tfrm_op_seae_edi_zim.IsZhongwen(Str: String): Boolean;
var
i:Integer;
begin
Result:=false;
if Str='' then Exit;
for i:=1 to Length(Str) do begin
if (Str[i]>Chr(127)) or (Str[i]=Chr(42)) then begin
// if Str[i]>Chr(127) then begin
Result:=True;
Exit;
end;
end;
end;
function Tfrm_op_seae_edi_zim.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_zim.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_zim.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_zim.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;
function Tfrm_op_seae_edi_zim.GetStrNum(str:String):integer;
var
i:integer;
begin
result:=0;
if str='' then exit;
for i:=1 to length(Str) do begin
if str[i] in ['0','1','2','3','4','5','6','7','8','9'] then
result:=result+1;
end;
end;
procedure Tfrm_op_seae_edi_zim.bsSkinButton2Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_op_seae_edi_zim.FormShow(Sender: TObject);
var
inifile1:Tinifile;
begin
frm_op_seae_edi_zim.Height:=281;
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
bsSkinRadioGroup3.ItemIndex:=inifile1.ReadInteger('EDI','ZIMTypeid',0);
case bsSkinRadioGroup3.ItemIndex of
0:CarrName:='ZIM';
1:CarrName:='SHG';
2:CarrName:='ZIM';
end;
edit1.text:=inifile1.ReadString('EDI','ZIMSEND','');
case bsSkinRadioGroup3.ItemIndex of
0:edit2.text:=inifile1.ReadString('EDI','ZIMRECIEVE','71093609X');
1:edit2.text:=inifile1.ReadString('EDI','ZIMRECIEVE_SHG','');
2:edit2.text:=inifile1.ReadString('EDI','ZIMRECIEVE_ZIMWL','');
end;
edit3.text:=inifile1.ReadString('EDI','ZIMSENDNAME','');
edit4.text:=inifile1.ReadString('EDI','ZIMFTPSERVER',get_parameters_value(77,''));
edit5.text:=inifile1.ReadString('EDI','ZIMFTPPATH',get_parameters_value(78,'/'));
edit6.text:=inifile1.ReadString('EDI','ZIMFTPNAME',get_parameters_value(79,''));
edit7.text:=inifile1.ReadString('EDI','ZIMFTPPASS',get_parameters_value(80,''));
inifile1.free;
t_op_ams.close;
t_op_ams.Parameters.ParamByName('编号').Value:=frm_op_seae.t_op_seae.fieldbyname('编号').asstring;
t_op_ams.open;
if trim(frm_op_seae.t_op_seae.fieldbyname('装运方式').asstring)='整箱' then
bsSkinRadioGroup4.ItemIndex:=0
else if trim(frm_op_seae.t_op_seae.fieldbyname('装运方式').asstring)='拼箱主票' then
bsSkinRadioGroup4.ItemIndex:=1
else bsSkinRadioGroup4.ItemIndex:=0;
QUOTATIONNO:=trim(frm_op_seae.t_op_seae.fieldbyname('运费协议号').asstring);//运费协议号
CARGOGROSSWT:=trim(frm_op_seae.t_op_seae.fieldbyname('总价').asstring); //第一层包装皮重
SoRemarks:=trim(frm_op_seae.t_op_seae.fieldbyname('EDI备注').asstring); //EDI备注
SIRemarks:=trim(t_op_ams.fieldbyname('SI备注').asstring); //siEDI备注
end;
procedure Tfrm_op_seae_edi_zim.bsSkinButton1Click(Sender: TObject);
var
Str:TStrings;
inifile1:Tinifile;
i:integer;
begin
case bsSkinRadioGroup3.ItemIndex of
0:CarrName:='ZIM';
1:CarrName:='SHG';
2:CarrName:='ZIM';
end;
if QUOTATIONNO='' then QUOTATIONNO:='0';
if CARGOGROSSWT='' then CARGOGROSSWT:='100';
if SoRemarks='' then SoRemarks:='ABC';
if SIRemarks='' then SIRemarks:='ABC';
str:=Tstringlist.Create;
try
if Trim(frm_op_seae.t_op_seae.fieldbyname('装运方式').asstring)='整箱' then
if bsSkinRadioGroup2.ItemIndex=1 then
Str:=CreateSIEdiFile
else
Str:=CreateEdiFile
else
if (Pos('主票',(frm_op_seae.t_op_seae.fieldbyname('装运方式').asstring))>0)
or (Pos('分票',(frm_op_seae.t_op_seae.fieldbyname('装运方式').asstring))>0) then
if bsSkinRadioGroup2.ItemIndex=1 then
Str:=CreateSIZHUEdiFile(bsSkinRadioGroup4.ItemIndex)
else
Str:=CreateZHUEdiFile(bsSkinRadioGroup4.ItemIndex)
else
begin
Exit;
end;
for i:=0 to Str.Count-1 do begin
if IsZhongwen(Str[i]) then begin
if MessageDlg('此票业务可能含有中文字符或其他不规范字符,确实要继续上传吗！'+Str[i],mtWarning,[mbYes,mbNo],0)=mrNo then
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;
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
inifile1.WriteString('EDI','ZIMSEND',edit1.text);
case bsSkinRadioGroup3.ItemIndex of
0:inifile1.WriteString('EDI','ZIMRECIEVE',edit2.text);
1:inifile1.WriteString('EDI','ZIMRECIEVE_SHG',edit2.text);
2:inifile1.WriteString('EDI','ZIMRECIEVE_ZIMWL',edit2.text);
end;
inifile1.WriteString('EDI','ZIMSENDNAME',edit3.text);
inifile1.WriteString('EDI','ZIMFTPSERVER',edit4.text);
inifile1.WriteString('EDI','ZIMFTPPATH',edit5.text);
inifile1.WriteString('EDI','ZIMFTPNAME',edit6.text);
inifile1.WriteString('EDI','ZIMFTPPASS',edit7.text);
inifile1.WriteInteger('EDI','ZIMTypeid',bsSkinRadioGroup3.ItemIndex);
inifile1.free;
close;
end;
function Tfrm_op_seae_edi_zim.isEditrue(DataSet:TDataSet): boolean;
var
cntrs,s_error,Lines:String;
sl_error:TStringList;
i:integer;
begin
result:=true;
sl_error:=TStringList.Create;
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 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(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
if MessageDlg('第一层包装皮重为空,如果继续系统将默认添加第一层包装皮重为100',mtWarning,[mbyes,mbno],0)=mryes then begin
end
else
begin
result:=false;
exit;
end;
end;
if trim(frm_op_seae.t_op_seae.fieldbyname('运费协议号').asstring)='' then begin
if MessageDlg('运费协议为空,如果继续系统将默认添加运费协议为0',mtWarning,[mbyes,mbno],0)=mryes then begin
end
else
begin
result:=false;
exit;
end;
end;
if bsSkinRadioGroup2.ItemIndex=1 then begin
if trim(frm_op_seae.t_op_seae.fieldbyname('SI备注').asstring)='' then
begin
if MessageDlg('SI备注为空,如果继续系统将默认添加SI备注为ABC',mtWarning,[mbyes,mbno],0)=mryes then
begin
end
else
begin
result:=false;
exit;
end;
end;
end
else
begin
if trim(frm_op_seae.t_op_seae.fieldbyname('EDI备注').asstring)='' then
begin
if MessageDlg('EDI备注为空,如果继续系统将默认添加SI备注为ABC',mtWarning,[mbyes,mbno],0)=mryes then
begin
end
else
begin
result:=false;
exit;
end;
end;
end;
if trim(DataSet.fieldbyname('签单地点').asstring)='' then begin
result:=false;
MessageDlg('签单地点不能为空',mtWarning,[mbOk],0);
exit;
end;
if GetPortEdiID(trim(DataSet.fieldbyname('签单地点').asstring))='' then begin
result:=false;
MessageDlg('签单地点EDI代码不能为空',mtWarning,[mbOk],0);
exit;
end;
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;
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 bsSkinRadioGroup2.ItemIndex=1 then
begin
s_error:='';
sl_error.Text:=Changestr(frm_op_seae.t_op_seae.fieldbyname('发货人代码').asstring);
for i:=0 to sl_error.Count-1 do
begin
if IsZhongwen(sl_error[i]) then begin
result:=false;
if s_error='' then s_error:='EDI信息中发货人中有中文字符或TAB键或*!'
else s_error:=s_error+#13#10+'EDI信息中发货人中有中文字符或TAB键或*!';
end;
if Length(sl_error[i])>34 then begin
result:=false;
if s_error='' then s_error:='发货人中每行字符不能超过34个字符或*!'
else s_error:=s_error+#13#10+'发货人中每行字符不能超过34个字符或*!';
end;
end;
Lines:='';
Lines:=ControlLines(sl_error.Count,1,0,'发货人'); //LinesCount,CorpTypeid,BsTypeid:Integer;SName:string
if Lines<>'' then
begin
result:=false;
if s_error='' then s_error:='EDI信息中'+Lines+'!'
else s_error:=s_error+#13#10+'EDI信息中'+Lines+'!';
end;
if s_error<>'' then
begin
MessageDlg(s_error,mtWarning,[mbOk],0);
Exit;
end;
s_error:='';
sl_error.Text:=Changestr(frm_op_seae.t_op_seae.fieldbyname('收货人代码').asstring);
for i:=0 to sl_error.Count-1 do
begin
if IsZhongwen(sl_error[i]) then begin
result:=false;
if s_error='' then s_error:='EDI信息中收货人中有中文字符或TAB键或*!'
else s_error:=s_error+#13#10+'EDI信息中收货人中有中文字符或TAB键或*!';
end;
if Length(sl_error[i])>34 then begin
result:=false;
if s_error='' then s_error:='收货人中每行字符不能超过34个字符或*!'
else s_error:=s_error+#13#10+'收货人中每行字符不能超过34个字符或*!';
end;
end;
Lines:='';
Lines:=ControlLines(sl_error.Count,1,0,'收货人'); //LinesCount,CorpTypeid,BsTypeid:Integer;SName:string
if Lines<>'' then
begin
result:=false;
if s_error='' then s_error:='EDI信息中'+Lines+'!'
else s_error:=s_error+#13#10+'EDI信息中'+Lines+'!';
end;
if s_error<>'' then
begin
MessageDlg(s_error,mtWarning,[mbOk],0);
Exit;
end;
s_error:='';
sl_error.Text:=Changestr(frm_op_seae.t_op_seae.fieldbyname('通知人代码').asstring);
for i:=0 to sl_error.Count-1 do
begin
if IsZhongwen(sl_error[i]) then begin
result:=false;
if s_error='' then s_error:='EDI信息中通知人中有中文字符或TAB键或*!'
else s_error:=s_error+#13#10+'EDI信息中通知人中有中文字符或TAB键或*!';
end;
if Length(sl_error[i])>34 then begin
result:=false;
if s_error='' then s_error:='通知人中每行字符不能超过34个字符或*!'
else s_error:=s_error+#13#10+'通知人中每行字符不能超过34个字符或*!';
end;
end;
Lines:='';
Lines:=ControlLines(sl_error.Count,1,0,'通知人'); //LinesCount,CorpTypeid,BsTypeid:Integer;SName:string
if Lines<>'' then
begin
result:=false;
if s_error='' then s_error:='EDI信息中'+Lines+'!'
else s_error:=s_error+#13#10+'EDI信息中'+Lines+'!';
end;
if s_error<>'' then
begin
MessageDlg(s_error,mtWarning,[mbOk],0);
Exit;
end;
end;
if bsSkinRadioGroup2.ItemIndex=1 then begin
t_op_ctn.close;
t_op_ctn.Parameters.ParamByName('编号').Value:=frm_op_seae.t_op_seae.fieldbyname('编号').asstring;
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(t_op_ctn.fieldbyname('箱号').asstring)='' then begin
result:=false;
MessageDlg('箱号不能为空！',mtWarning,[mbOk],0);
exit;
end;
if Trim(t_op_ctn.fieldbyname('封号').asstring)='' then begin
result:=false;
MessageDlg('封号不能为空！',mtWarning,[mbOk],0);
exit;
end;
t_op_ctn.Next;
end;
end;
sl_error.Free;
end;
function Tfrm_op_seae_edi_zim.CreateEdiFile:TStrings;
var
str,sl,sl1:Tstringlist;
i,j,Count,l,M:integer;
strsql,strRmain,strtemp,S:string;
rs:Tadoquery;
wide_str:widestring;
k:integer;
strType:string;
strDatetime:string;
SenderCode,ReciverCode,zzNo,zzName:string;
function GetRemarksString:String;
var
TempStr:TStringList;
begin
TempStr:=TStringList.Create;
try
TempStr.Text:=FormatEdiString(SoRemarks);
GetLengthTString(TempStr,35);
Result:='17:';
Result:=Result+FormatListString(TempStr,5,35)+'''';
finally
FreeAndNil(TempStr);
end;
end;
function GetShipperString:String;
var
TempStr:TStringList;
begin
TempStr:=TStringList.Create;
try
TempStr.Text:=FormatEdiString(frm_op_seae.t_op_seae.fieldbyname('发货人代码').AsString);
GetLengthTString(TempStr,35);
Result:='20:';
Result:=Result+':';
Result:=Result+FormatListString(TempStr,6,35)+'''';
finally
FreeAndNil(TempStr);
end;
end;
function GetConsigneString:String;
var
TempStr:TStringList;
begin
TempStr:=TStringList.Create;
try
TempStr.Text:=FormatEdiString(frm_op_seae.t_op_seae.fieldbyname('收货人代码').AsString);
GetLengthTString(TempStr,35);
Result:='21:';
Result:=Result+':';
Result:=Result+FormatListString(TempStr,6,35)+'''';
finally
FreeAndNil(TempStr);
end;
end;
function GetNOTIFYString:String;
var
TempStr:TStringList;
begin
TempStr:=TStringList.Create;
try
TempStr.Text:=FormatEdiString(frm_op_seae.t_op_seae.fieldbyname('通知人代码').AsString);
GetLengthTString(TempStr,35);
Result:='22:';
Result:=Result+':';
Result:=Result+FormatListString(TempStr,6,35)+'''';
finally
FreeAndNil(TempStr);
end;
end;
function GetAMSSHIPPERString:String;
var
TempStr:TStringList;
begin
TempStr:=TStringList.Create;
try
TempStr.Text:=FormatEdiString(t_op_ams.fieldbyname('AMS发货人').AsString);
GetLengthTString(TempStr,35);
Result:='23:';
Result:=Result+Trim(t_op_ams.fieldbyname('真实签约人代码').AsString)+':';
Result:=Result+FormatListString(TempStr,6,35)+'''';
finally
FreeAndNil(TempStr);
end;
end;
function GetMARKSString:String;
var
TempStr:TStringList;
begin
TempStr:=TStringList.Create;
try
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;
{
function GetCARGODESCRIPTIONString:String;
var
TempStr:TStrings;
i:integer;
begin
TempStr:=TStringList.Create;
try
TempStr.Text:=frm_op_seae.t_op_seae.fieldbyname('货物描述').AsString;
for i:=0 to TempStr.Count-1 do begin
if i=0 then
Result:='47:'+FormatEdiString(TempStr.Strings[i],70)
else
Result:=Result+':'+FormatEdiString(TempStr.Strings[i],70);
end;
Result:=Result+'''';
finally
FreeAndNil(TempStr);
end;
end;
}
begin
if not isEditrue(frm_op_seae.t_op_seae) then exit;
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;
zzNo:='';
zzName:='';
str.Clear;
if bsSkinRadioGroup2.ItemIndex=1 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);
Count:=0;
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(t_op_ams.fieldbyname('订舱人说明').asstring) //5
+':'+CarrName //6
+':' //7
+':' //8
+':' //9
+':' // 10
+':' //11
+':' // 12
+':' // 13
+':'+QUOTATIONNO // 14
+':' //15
+':'+ trim(frm_op_seae.t_op_seae.fieldbyname('内部航次号').asstring) // 16
+':' // 17
+':' // 18
+ #39); //内部航次号
{
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(t_op_ams.fieldbyname('订舱人说明').asstring) //订舱人说明 5
+':'
+ CarrName // 签单人代码 6
+':' //签单人说明 7
+':' //询价单位 8
+':' // 国外订舱单位 9
+':' // 转船标识 10
+':' // 分批 11
+':' // 装期 12
+':' // 效期 13
+':' // 运费协议号 14
+':' // 拆并单 15
+':' 16
+QUOTATIONNO // 合约号
+':' //船公司订舱编号 1 7
+':' //舱位互用标识 18
+':'+ #39); //AMS代码 19
}
if trim(frm_op_seae.t_op_seae.fieldbyname('签单方式').asstring)='正本' then
strtemp:='ORI'
else
strtemp:='EXP';
str.add('03:'+strtemp+':'
+GetPortEdiID(trim(frm_op_seae.t_op_seae.fieldbyname('签单地点').asstring))+':'
+ 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) +':'
+ trim(frm_op_seae.t_op_seae.fieldbyname('航次').asstring)+':'
+'::'
+ ReciverCode +':'
+ '::::::' +#39); //船舶经营人
if trim(frm_op_seae.t_op_seae.fieldbyname('二程港口').asstring)<>'' then
begin
zzNo:=GetPortEdiID(frm_op_seae.t_op_seae.fieldbyname('二程港口').asstring);
zzName:=trim(frm_op_seae.t_op_seae.fieldbyname('二程港口').asstring);
end;
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)
+':'+zzNo
+':'+zzName
+':'+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 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;
Str.Add(GetRemarksString);
Str.Add(GetShipperString);
Str.Add(GetConsigneString);
Str.Add(GetNOTIFYString);
if (t_op_ams.fieldbyname('真实签约人代码').AsString<>'') or (t_op_ams.fieldbyname('AMS发货人').AsString<>'') then
Str.Add(GetAMSSHIPPERString);
{
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);
}
str.Add ('41:1:'+trim(frm_op_seae.t_op_seae.fieldbyname('运输方式').asstring)
+':'+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))+':'
+trim(frm_op_seae.t_op_seae.fieldbyname('包装').asstring) +':' //第一层包装说明
+CARGOGROSSWT +':' //第一层包装说明
+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) +':'
+'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;
Str.Add(GetMARKSString);
sl1.Text:=FormatEdiString(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<=5 then
begin
if M=1 then
begin
s:='47:'+sl.Strings[L]+':';
end
else
begin
if M=5 then
s:=s+sl.Strings[L]
else
s:=s+sl.Strings[L]+':';
end;
end
else
begin
S:=S+'''';
Str.Add(S);
M:=1;
s:='47:'+sl.Strings[L]+':';
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 frm_data_share.t_crm_client_changzhan.locate('客户简称',frm_op_seae.t_op_seae.fieldbyname('场站').asstring,[])then
begin
strRmain:=strRmain+'F:'+':'+':'+frm_data_share.t_crm_client_changzhan.fieldbyname('EDI代码').asstring+':'+':'+'N'+#39;
end
else
begin
strRmain:=strRmain+'F:'+':'+':'+':'+':'+'N'+#39;
end;
strsql:='select 编号,代码,sum(数量) as 数量 from t_op_ctn group by 编号,代码 having 编号='
+#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;
while not rs.Eof do
begin
str.Add ('48:'+Trim(GetCntrEdi(rs.fieldbyname('代码').asstring))+':'+
trim(rs.fieldbyname('数量').asstring)+':'+
strRmain);
Count:=Count+1;
rs.Next;
end;
{
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
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,rs.fieldbyname('箱型').asstring))+':'+
trim(rs.fieldbyname('封号').asstring)+':'+trim(IntToStr(rs.fieldbyname('件数').AsInteger))+':'+trim(FloatToStr(rs.fieldbyname('重量').AsFloat))+':'+''''
);
rs.Next;
end;
end;
end;
}
rs.Close;
rs.Destroy;
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;
I:=str.Count;
str.Add('99:'+intToStr(i+1)+'''');
Result:=str;
end;
function Tfrm_op_seae_edi_zim.CreateZHUEdiFile(bstype:integer):TStrings;
var
str,sl,sl1:Tstringlist;
i,j,Count,l,M:integer;
first:Boolean;
strsql,strRmain,strtemp,strhead:string;
rs,aQuery:Tadoquery;
wide_str:widestring;
k:integer;
strType,s:string;
strDatetime:string;
SenderCode,ReciverCode:string;
function GetRemarksString:String;
var
TempStr:TStringList;
begin
TempStr:=TStringList.Create;
try
TempStr.Text:=FormatEdiString(SoRemarks);
GetLengthTString(TempStr,70);
Result:='17:';
Result:=Result+FormatListString(TempStr,5,70)+'''';
finally
FreeAndNil(TempStr);
end;
end;
function GetShipperString:String;
var
TempStr:TStringList;
begin
TempStr:=TStringList.Create;
try
TempStr.Text:=FormatEdiString(aQuery.fieldbyname('发货人代码').AsString);
GetLengthTString(TempStr,35);
Result:='20:';
Result:=Result+':';
Result:=Result+FormatListString(TempStr,6,35)+'''';
finally
FreeAndNil(TempStr);
end;
end;
function GetConsigneString:String;
var
TempStr:TStringList;
begin
TempStr:=TStringList.Create;
try
TempStr.Text:=FormatEdiString(aQuery.fieldbyname('收货人代码').AsString);
GetLengthTString(TempStr,35);
Result:='21:';
Result:=Result+':';
Result:=Result+FormatListString(TempStr,6,35)+'''';
finally
FreeAndNil(TempStr);
end;
end;
function GetNOTIFYString:String;
var
TempStr:TStringList;
begin
TempStr:=TStringList.Create;
try
TempStr.Text:=FormatEdiString(aQuery.fieldbyname('通知人代码').AsString);
GetLengthTString(TempStr,35);
Result:='22:';
Result:=Result+':';
Result:=Result+FormatListString(TempStr,6,35)+'''';
finally
FreeAndNil(TempStr);
end;
end;
function GetMARKSString:String;
var
TempStr:TStringList;
begin
TempStr:=TStringList.Create;
try
TempStr.Text:=FormatEdiString(aQuery.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) ;
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:IFTMBF:BOOKING:'+trim(strType)+':'+ SenderCode+':'+ReciverCode+':'+GetDatetime(datetimetostr(now),1)+#39);
Count:=0;
aQuery:=CreateAdoQuery;
try
aQuery.Close;aQuery.sql.Clear;
case bstype of
1:begin //拼箱主票
aQuery.SQL.Add('select * from t_op_seae where 编号=:编号 order by 主提单号'); //
aQuery.Parameters.ParamByName('编号').Value:=frm_op_seae.t_op_seae.fieldbyname('编号').asstring;
end;
2:begin //拼箱分票
aQuery.SQL.Add('select * from t_op_seae where 编号=:编号 order by 主提单号'); //
aQuery.Parameters.ParamByName('编号').Value:=frm_op_seae.t_op_seae_fen.fieldbyname('编号').asstring;
end;
3:begin //所有分票
aQuery.SQL.Add('select * from t_op_seae where 主编号=:编号 and 主编号<>编号 order by 主提单号'); //
aQuery.Parameters.ParamByName('编号').Value:=frm_op_seae.t_op_seae.fieldbyname('编号').asstring;
end;
end;
aQuery.Open;
if not aQuery.IsEmpty then
begin
if not isEditrue(aQuery) then exit;
aQuery.first;
first:=true;
while not aQuery.eof do
begin
if first then
begin
str.Add ('02:'+ trim(aQuery.fieldbyname('委托编号').asstring)+':'
+ trim(aQuery.fieldbyname('主提单号').asstring) +':'
+ trim(aQuery.fieldbyname('运输条款').asstring) +':'
+ trim(t_op_ams.fieldbyname('订舱人说明').asstring) +':'
+ CarrName+':'
+ ':::::::'
+ '::'
+ QUOTATIONNO+':'
+':'+ #39);
{
str.Add ('02:'+ trim(frm_op_seae.t_op_seae.fieldbyname('业务编号').asstring)+':'
+ trim(frm_op_seae.t_op_seae.fieldbyname('主提单号').asstring) +':'
+ trim(aQuery.fieldbyname('运输条款').asstring) +'::'
+ CarrName+':'
+ ':::::::'
+ '::'
+ QUOTATIONNO+':'
+':'+ #39);
}
end
else
begin
str.Add ('02:'+ trim(aQuery.fieldbyname('委托编号').asstring)+':'
+ trim(aQuery.fieldbyname('主提单号').asstring) +':'
+ trim(aQuery.fieldbyname('运输条款').asstring) +':'
+ trim(t_op_ams.fieldbyname('订舱人说明').asstring) +':'
+ CarrName+':'
+ ':::::::'
+ '::'
+ QUOTATIONNO+':'
+':'+ #39);
{
str.Add ('02:'+ trim(aQuery.fieldbyname('业务编号').asstring)+':'
+ trim(aQuery.fieldbyname('主提单号').asstring) +':'
+ trim(aQuery.fieldbyname('运输条款').asstring) +'::'
+ ReciverCode +':'
+ ':::::::'
+ trim(frm_op_seae.t_op_seae.fieldbyname('运费协议号').asstring)+':'
+':::'+ #39);
}
end;
if trim(aQuery.fieldbyname('签单方式').asstring)='正本' then
strtemp:='ORI'
else
strtemp:='EXP';
str.add('03:'+strtemp+':'
+GetPortEdiID(trim(aQuery.fieldbyname('签单地点').asstring) )+':'
+ trim(aQuery.fieldbyname('签单地点').asstring) +':'
+ GetDatetime(trim(aQuery.fieldbyname('签单日期').asstring),0)+':'
+ get_fenshu(trim(aQuery.fieldbyname('提单份数').asstring))+':'
+ trim(aQuery.fieldbyname('预付地点').asstring) +':'
+ trim(aQuery.fieldbyname('预付地点').asstring) +#39);
str.Add('11:'
+ trim(frm_op_seae.t_op_seae.fieldbyname('发货人编号').asstring)+':'
+ trim(aQuery.fieldbyname('船名').asstring) +':'
+ trim(aQuery.fieldbyname('航次').asstring)+':'
+'::'
+ ReciverCode +':'
+ '::::::' +#39); //船舶经营人
str.Add ('12:'+trim(aQuery.fieldbyname('装港代码').asstring)+':'
+trim(aQuery.fieldbyname('装货港').asstring)+':'
+trim(aQuery.fieldbyname('装港代码').asstring)+':'
+trim(aQuery.fieldbyname('装货港').asstring)+':'
+trim(aQuery.fieldbyname('卸货代码').asstring) +':'
+trim(aQuery.fieldbyname('卸货港').asstring)+':'
+':'
+':'
+trim(aQuery.fieldbyname('交货代码').asstring) +':'
+trim(aQuery.fieldbyname('交货地点').asstring) +':'
+trim(aQuery.fieldbyname('目的地代码').asstring) +':'
+trim(aQuery.fieldbyname('目的地').asstring) +#39);
if frm_data_share.t_code_free.locate('付费方式',aQuery.fieldbyname('付费方式').asstring,[]) then
begin
str.Add ('14:'+frm_data_share.t_code_free.fieldbyname('代码').asstring+':'
+trim(aQuery.fieldbyname('付费方式').asstring)+#39);
str.Add('15:'
+'::'
+trim(frm_data_share.t_code_free.fieldbyname('代码').asstring)+':'
+'::'
+ '::::' +#39); //船舶经营人
end
else
begin
str.Add ('14:'+'P'+':'
+trim(aQuery.fieldbyname('付费方式').asstring)+#39);
str.Add('15:'
+'::'
+'P:'
+'::'
+ '::::' +#39); //船舶经营人
end;
Str.Add(GetRemarksString);
Str.Add(GetShipperString);
Str.Add(GetConsigneString);
Str.Add(GetNOTIFYString);
str.Add ('41:1::'+trim(aQuery.fieldbyname('货物标识').asstring)+':' // 货物标识 S/R/D/O
+trim(aQuery.fieldbyname('件数').asstring) +':'
+trim(GetpkgsEdi(aQuery.fieldbyname('包装').asstring))+':'
+trim(aQuery.fieldbyname('包装').asstring) +':' //第一层包装说明
+CARGOGROSSWT +':' //第一层包装说明
+trim(aQuery.fieldbyname('尺码').asstring) +'::::::' // 第一层包装皮重
+trim(aQuery.fieldbyname('重量').asstring) +':::' // 第一层包装尺码
+#39);
IF trim(aQuery.fieldbyname('货物标识').asstring)='R'THEN
BEGIN
str.Add ('43:' // 危险品、冷冻
+':'
+':'
+':'
+':'
+':'
+':'
+':'
+'::'
+trim(aQuery.fieldbyname('冷藏通风量').asstring) +':'
+'C:'
+trim(aQuery.fieldbyname('设置温度').asstring) +':'
+trim(aQuery.fieldbyname('最低温度').asstring) +':'
+trim(aQuery.fieldbyname('最高温度').asstring) +':'
+'::::'
+#39);
END;
IF trim(aQuery.fieldbyname('货物标识').asstring)='D'THEN
BEGIN
str.Add ('43:' // 危险品、冷冻
+trim(aQuery.fieldbyname('危险品分类').asstring) +':'
+':'
+trim(aQuery.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:'+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;
strRmain:='';
case bstype of
1:
begin //拼箱主票
strRmain:=strRmain+'L:'+':'+':'+':'+':'+'N'+#39
end;
2,3:
begin
strRmain:=strRmain+'L:'+trim(frm_op_seae.t_op_seae.fieldbyname('主提单号').asstring)+':'+':'+':'+':'+'N'+#39
end;
end;
strsql:='select 编号,代码,sum(数量) as 数量 from t_op_ctn group by 编号,代码 having 编号='
+#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;
while not rs.Eof do
begin
str.Add ('48:'+Trim(GetCntrEdi(rs.fieldbyname('代码').asstring))+':'+
trim(rs.fieldbyname('数量').asstring)+':'+
strRmain);
Count:=Count+1;
rs.Next;
end;
{
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
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,rs.fieldbyname('箱型').asstring))+':'+
trim(rs.fieldbyname('封号').asstring)+':'+trim(IntToStr(rs.fieldbyname('件数').AsInteger))+':'+trim(FloatToStr(rs.fieldbyname('重量').AsFloat))+':'+''''
);
rs.Next;
end;
end;
end;
}
rs.Close;
rs.Destroy;
except
on e:exception do
begin
rs.Close;
rs.Destroy;
exit;
end;
end;
aQuery.Next;
first:=False;
end;
end;
finally
FreeAndNil(aQuery);
end;
I:=str.Count;
str.Add('99:'+intToStr(i+1)+'''');
Result:=str;
end;
function Tfrm_op_seae_edi_zim.CreateSIEdiFile: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:string;
strDatetime:string;
SenderCode,ReciverCode:string;
firstcon:boolean;
function GetRemarksString:String;
var
TempStr:TStringlist;
begin
TempStr:=TStringList.Create;
try
TempStr.Text:=FormatEdiString(SIRemarks);
GetLengthTString(TempStr,70);
Result:='17:';
Result:=Result+FormatListString(TempStr,5,70)+'''';
finally
FreeAndNil(TempStr);
end;
end;
function GetAMSSHIPPERString:String;
var
TempStr:TStringList;
begin
TempStr:=TStringList.Create;
try
TempStr.Text:=FormatEdiString(t_op_ams.fieldbyname('AMS发货人').AsString);
GetLengthTString(TempStr,35);
Result:='23:';
Result:=Result+trim(t_op_ams.fieldbyname('真实签约人代码').AsString)+':';
Result:=Result+FormatListString(TempStr,6,35)+'''';
finally
FreeAndNil(TempStr);
end;
end;
begin
if not isEditrue(frm_op_seae.t_op_seae) then exit;
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;
if bsSkinCheckRadioBox2.Checked then
with t_op_seae_assistant do begin
Close;
SQL.Clear;
SQL.Add('select * from t_op_seae_assistant where 编号='''+frm_op_seae.t_op_seae.fieldbyname('编号').AsString+'''');
open;
end;
str.Clear;
str.Add('00:IFTMIN:BOOKING:'+trim(strType)+':'+ SenderCode+':'+ReciverCode+':'+GetDatetime(datetimetostr(now),1)+#39);
Count:=0;
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(t_op_ams.fieldbyname('订舱人说明').asstring) //5
+':'+CarrName //6
+':' //7
+':' //8
+':' //9
+':' // 10
+':' //11
+':' // 12
+':' // 13
+':'+QUOTATIONNO // 14
+':' //15
+':'+ trim(frm_op_seae.t_op_seae.fieldbyname('内部航次号').asstring) // 16
+':' // 17
+':' // 18
+ #39); //内部航次号
{
str.Add ('02:'+ 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(t_op_ams.fieldbyname('订舱人说明').asstring)+':'
+CarrName+':'
+':::::::'
+':'+QUOTATIONNO
+'::'+ #39);
}
if trim(frm_op_seae.t_op_seae.fieldbyname('签单方式').asstring)='正本' then begin
strtemp:='ORI';
fenshu:=get_fenshu(trim(frm_op_seae.t_op_seae.fieldbyname('提单份数').asstring));
end else begin
strtemp:='EXP';
fenshu:='0';
end;
str.add('03:'+strtemp+':'
+GetPortEdiID(trim(frm_op_seae.t_op_seae.fieldbyname('签单地点').asstring) )+':'
+ trim(frm_op_seae.t_op_seae.fieldbyname('签单地点').asstring) +':'
+ GetDatetime(trim(frm_op_seae.t_op_seae.fieldbyname('签单日期').asstring),0)+':'
+ fenshu+':'
+ 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) +':'
+ trim(frm_op_seae.t_op_seae.fieldbyname('航次').asstring)+':'
+'::'
+ ReciverCode +':'
+ '::::::' +#39); //船舶经营人
if UpperCase(trim(frm_op_seae.t_op_seae.fieldbyname('运输条款').asstring))='CY-CY' 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)+':'
+':'+':'+':'+':'+':'+#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) +#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;
Str.Add(GetRemarksString);
if (bsSkinCheckRadioBox2.Checked) and (not t_op_seae_assistant.IsEmpty) then
sl1.Text:=FormatEdiString(t_op_seae_assistant.fieldbyname('发货人代码').asstring)
else
sl1.Text:=FormatEdiString(frm_op_seae.t_op_seae.fieldbyname('发货人代码').asstring);
GetLengthTString(sl1,35);
strtemp:='20:general:'+sl1[0]+':';
if sl1.Count>=2 then
strtemp:=strtemp+sl1[1];
if (sl1.Count>=3) and (sl1.Count<=5) then
begin
for j:=2 to sl1.Count-1 do
begin
strtemp:=strtemp+':'+sl1[j]
end;
end;
if sl1.Count>5 then
begin
for j:=2 to 3 do
begin
strtemp:=strtemp+':'+sl1[j]
end;
s:='';
strtemp:=strtemp+':'+GetLengthword(s,34,sl1[4])+'?+';
Str_shr:='?+'+S;
for j:=5 to sl1.Count-1 do begin
Str_shr:=Str_shr+' '+sl1[j]
end;
{
strtemp:=strtemp+':'+Copy(sl1[4],1,34)+'*';
Str_shr:='*'+Copy(sl1[4],34,1);
for j:=5 to sl1.Count-1 do begin
Str_shr:=Str_shr+' '+sl1[j]
end;
}
end;
strtemp:=strtemp+#39;
str.Add(strtemp);
count:=count+1;
if (bsSkinCheckRadioBox2.Checked) and (not t_op_seae_assistant.IsEmpty) then
sl1.Text:=FormatEdiString(t_op_seae_assistant.fieldbyname('收货人代码').asstring)
else
sl1.Text:=FormatEdiString(frm_op_seae.t_op_seae.fieldbyname('收货人代码').asstring);
GetLengthTString(sl1,35);
strtemp:='21:general:'+sl1[0]+':';
if sl1.Count>=2 then
strtemp:=strtemp+sl1[1];
if (sl1.Count>=3) and (sl1.Count<=5) then
begin
for j:=2 to sl1.Count-1 do
begin
strtemp:=strtemp+':'+sl1[j]
end;
end;
if sl1.Count>5 then
begin
for j:=2 to 3 do
begin
strtemp:=strtemp+':'+sl1[j]
end;
s:='';
strtemp:=strtemp+':'+GetLengthword(s,33,sl1[4])+'?+?+';
Str_con:='?+?+'+S;
for j:=5 to sl1.Count-1 do begin
Str_con:=Str_con+' '+sl1[j]
end;
{
strtemp:=strtemp+':'+Copy(sl1[4],1,33)+'**';
Str_con:='**'+Copy(sl1[4],33,2);
for j:=5 to sl1.Count-1 do begin
Str_con:=Str_con+' '+sl1[j]
end;
}
end;
strtemp:=strtemp+#39;
str.Add(strtemp);
count:=count+1;
if (bsSkinCheckRadioBox2.Checked) and (not t_op_seae_assistant.IsEmpty) then
sl1.Text:=FormatEdiString(t_op_seae_assistant.fieldbyname('通知人代码').asstring)
else
sl1.Text:=FormatEdiString(frm_op_seae.t_op_seae.fieldbyname('通知人代码').asstring);
GetLengthTString(sl1,35);
strtemp:='22:general:'+sl1[0]+':';
if sl1.Count>=2 then
strtemp:=strtemp+sl1[1];
if (sl1.Count>=3) and (sl1.Count<=5) then
begin
for j:=2 to sl1.Count-1 do
begin
strtemp:=strtemp+':'+sl1[j]
end;
end;
if sl1.Count>5 then
begin
for j:=2 to 3 do
begin
strtemp:=strtemp+':'+sl1[j]
end;
s:='';
strtemp:=strtemp+':'+GetLengthword(s,32,sl1[4])+'?+?+?+';
Str_not:='?+?+?+'+S;
for j:=5 to sl1.Count-1 do begin
Str_not:=Str_not+' '+sl1[j]
end;
{
strtemp:=strtemp+':'+Copy(sl1[4],1,32)+'***';
Str_not:='***'+Copy(sl1[4],32,3);
for j:=5 to sl1.Count-1 do begin
Str_not:=Str_not+' '+sl1[j]
end;
}
end;
strtemp:=strtemp+#39;
str.Add(strtemp);
count:=count+1;
if (t_op_ams.fieldbyname('真实签约人代码').AsString<>'') or (t_op_ams.fieldbyname('AMS发货人').AsString<>'') then
Str.Add(GetAMSSHIPPERString);
str.Add ('41:1:'+trim(frm_op_seae.t_op_seae.fieldbyname('运输方式').asstring)
+':'
+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))+':'
+trim(frm_op_seae.t_op_seae.fieldbyname('包装').asstring) +':' //第一层包装说明
+CARGOGROSSWT +':' //第一层包装说明
+trim(frm_op_seae.t_op_seae.fieldbyname('尺码').asstring) +'::::::' // 第一层包装皮重
+trim(frm_op_seae.t_op_seae.fieldbyname('重量').asstring) +':::' // 第一层包装尺码
+#39);
{
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))+':'
+trim(frm_op_seae.t_op_seae.fieldbyname('包装').asstring) +':' //第一层包装说明
+CARGOGROSSWT +':' //第一层包装说明
+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) +':'
+'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) and (not t_op_seae_assistant.IsEmpty) then
sl.Text:=FormatEdiString(t_op_seae_assistant.fieldbyname('唛头').asstring)
else
sl.Text:=FormatEdiString(frm_op_seae.t_op_seae.fieldbyname('唛头').AsString);
GetLengthTString(sl,22);
M:=1;
for L:=0 to sl.Count-1 do begin
if M<=10 then begin
if M=1 then begin
s:='44:'+sl.Strings[L]+':';
end else begin
if M=10 then
s:=s+sl.Strings[L]
else
s:=s+sl.Strings[L]+':';
end;
end else begin
S:=S+'''';
Str.Add(S);
M:=1;
s:='44:'+sl.Strings[L]+':';
end;
M:=M+1;
end;
S:=S+'''';
Str.Add(S);
if (bsSkinCheckRadioBox2.Checked) and (not t_op_seae_assistant.IsEmpty) then
sl1.Text:=FormatEdiString(t_op_seae_assistant.fieldbyname('货物描述').asstring)
else
sl1.Text:=FormatEdiString(frm_op_seae.t_op_seae.fieldbyname('货物描述').AsString);
if str_shr<>'' then begin
sl1.Add(str_shr)
end;
if str_con<>'' then begin
sl1.Add(str_con)
end;
if str_not<>'' then begin
sl1.Add(str_not)
end;
GetLengthTString(sl1,45);
sl.text:='';
for L:=0 to sl1.Count-1 do begin
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:'+sl.Strings[L]+':';
end else begin
if M=5 then
s:=s+sl.Strings[L]
else
s:=s+sl.Strings[L]+':';
end;
end else begin
S:=S+'''';
Str.Add(S);
M:=1;
s:='47:'+sl.Strings[L]+':';
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 frm_data_share.t_crm_client_changzhan.locate('客户简称',frm_op_seae.t_op_seae.fieldbyname('场站').asstring,[])then
begin
strRmain:=strRmain+'F:'+':'+':'+frm_data_share.t_crm_client_changzhan.fieldbyname('EDI代码').asstring+':'+':'+'N'+#39;
end
else
begin
strRmain:=strRmain+'F:'+':'+':'+':'+':'+'N'+#39;
end;
strsql:='select 编号,代码,sum(数量) as 数量 from t_op_ctn group by 编号,代码 having 编号='
+#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;
while not rs.Eof do
begin
str.Add ('48:'+Trim(GetCntrEdi(rs.fieldbyname('代码').asstring))+':'+
trim(rs.fieldbyname('数量').asstring)+':'+
strRmain);
Count:=Count+1;
rs.Next;
end;
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;
firstcon:=true;
if not rs.IsEmpty then begin
if rs.FieldByName('件数').AsInteger>0 then
begin
rs.First;
while not rs.Eof do
begin
if pos('FR',rs.fieldbyname('箱型').asstring)>0 then
begin
if firstcon then
str.Add ('51:'+trim(rs.fieldbyname('箱号').asstring)+':'+Trim(GetCntrEdi(rs.fieldbyname('代码').asstring))
+':NIL'+':'+trim(IntToStr(rs.fieldbyname('件数').AsInteger))+':'+trim(FloatToStr(rs.fieldbyname('重量').AsFloat))+'::'
+trim(floatToStr(rs.fieldbyname('尺码').Asfloat))+':'+edit3.Text+'''')
else
str.Add ('51:'+trim(rs.fieldbyname('箱号').asstring)+':'+Trim(GetCntrEdi(rs.fieldbyname('代码').asstring))
+':NIL'+':'+trim(IntToStr(rs.fieldbyname('件数').AsInteger))+':'+trim(FloatToStr(rs.fieldbyname('重量').AsFloat))+'::'
+trim(floatToStr(rs.fieldbyname('尺码').Asfloat))+':'+'''');
with ADOQueryTemp do
begin
Close;sql.Clear;
SQL.Add('select * from t_op_ctn_detail where ctn_id=:ctn_id');
Parameters.ParamByName('ctn_id').Value:=rs.FieldByName('ctn_id').AsInteger;
open;First;
while not eof do
begin
if Trim(FieldByName('hts').AsString)<>'' then
begin
str.Add('53:'+Trim(FieldByName('hts').AsString)+':::::::'+'''');
Count:=Count+1;
end;
Next;
end;
end;
end
else
begin
if firstcon then
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))+':'+edit3.Text+'''')
else
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))+':'+'''');
with ADOQueryTemp do
begin
Close;sql.Clear;
SQL.Add('select * from t_op_ctn_detail where ctn_id=:ctn_id');
Parameters.ParamByName('ctn_id').Value:=rs.FieldByName('ctn_id').AsInteger;
open;First;
while not eof do
begin
if Trim(FieldByName('hts').AsString)<>'' then
begin
str.Add('53:'+Trim(FieldByName('hts').AsString)+':::::::'+'''');
Count:=Count+1;
end;
Next;
end;
end;
end;
firstcon:=false;
rs.Next;
Count:=Count+1;
end;
end;
end;
rs.Close;
rs.Destroy;
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;
I:=str.Count;
str.Add('99:'+intToStr(i+1)+'''');
Result:=str;
end;
function Tfrm_op_seae_edi_zim.CreateSIZHUEdiFile(bstype:integer):TStrings;
var
sl,sl1,str:Tstringlist;
i,j,Count,l,M:integer;
first:Boolean;
strsql,strRmain,strtemp:string;
rs,aQuery:Tadoquery;
wide_str,str_shr,str_con,str_not:widestring;
k:integer;
strType,s:string;
strDatetime:string;
SenderCode,ReciverCode:string;
function GetRemarksString:String;
var
TempStr:TStringlist;
begin
TempStr:=TStringList.Create;
try
TempStr.Text:=FormatEdiString(SIRemarks);
GetLengthTString(TempStr,70);
Result:='17:';
Result:=Result+FormatListString(TempStr,5,70)+'''';
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;
str.Clear;
str.Add('00:IFTMIN:BOOKING:'+trim(strType)+':'+ SenderCode+':'+ReciverCode+':'+GetDatetime(datetimetostr(now),1)+#39);
Count:=0;
aQuery:=CreateAdoQuery;
try
aQuery.Close;aQuery.sql.Clear;
case bstype of
1:begin //拼箱主票
aQuery.SQL.Add('select * from t_op_seae where 编号=:编号 order by 主提单号'); //
aQuery.Parameters.ParamByName('编号').Value:=frm_op_seae.t_op_seae.fieldbyname('编号').asstring;
end;
2:begin //拼箱分票
aQuery.SQL.Add('select * from t_op_seae where 编号=:编号 order by 主提单号'); //
aQuery.Parameters.ParamByName('编号').Value:=frm_op_seae.t_op_seae_fen.fieldbyname('编号').asstring;
end;
3:begin //所有分票
aQuery.SQL.Add('select * from t_op_seae where 主编号=:编号 and 主编号<>编号 order by 主提单号'); //
aQuery.Parameters.ParamByName('编号').Value:=frm_op_seae.t_op_seae.fieldbyname('编号').asstring;
end;
end;
if not aQuery.IsEmpty then begin
if not isEditrue(aQuery) then exit;
aQuery.first;
first:=true;
while not aQuery.eof do begin
if bsSkinCheckRadioBox2.Checked then
with t_op_seae_assistant do begin
Close;
SQL.Clear;
SQL.Add('select * from t_op_seae_assistant where 编号='''+aQuery.fieldbyname('编号').AsString+'''');
open;
end;
if first then begin
str.Add ('02:'+ trim(aQuery.fieldbyname('委托编号').asstring)+':'
+ trim(aQuery.fieldbyname('主提单号').asstring) +':'
+ trim(aQuery.fieldbyname('运输条款').asstring) +':'
+ trim(t_op_ams.fieldbyname('订舱人说明').asstring) +':'
+ CarrName+':'
+ ':::::::'
+ '::'
+ QUOTATIONNO+':'
+':'+ #39);
{
str.Add ('02:'+ trim(frm_op_seae.t_op_seae.fieldbyname('业务编号').asstring)+':'
+ trim(frm_op_seae.t_op_seae.fieldbyname('主提单号').asstring) +':'
+ trim(aQuery.fieldbyname('运输条款').asstring) +'::'
+ CarrName+':'
+ ':::::::'
+ '::'
+ QUOTATIONNO+':'
+':'+ #39);
}
end else begin
str.Add ('02:'+ trim(aQuery.fieldbyname('委托编号').asstring)+':'
+ trim(aQuery.fieldbyname('主提单号').asstring) +':'
+ trim(aQuery.fieldbyname('运输条款').asstring) +':'
+ trim(t_op_ams.fieldbyname('订舱人说明').asstring) +':'
+ CarrName+':'
+ ':::::::'
+ '::'
+ QUOTATIONNO+':'
+':'+ #39);
{
str.Add ('02:'+ trim(aQuery.fieldbyname('业务编号').asstring)+':'
+ trim(aQuery.fieldbyname('主提单号').asstring) +':'
+ trim(aQuery.fieldbyname('运输条款').asstring) +'::'
+ ReciverCode +':'
+ ':::::::'
+ trim(frm_op_seae.t_op_seae.fieldbyname('运费协议号').asstring)+':'
+':::'+ #39);
}
end;
if trim(aQuery.fieldbyname('签单方式').asstring)='正本' then
strtemp:='ORI'
else
strtemp:='EXP';
str.add('03:'+strtemp+':'
+GetPortEdiID(trim(aQuery.fieldbyname('签单地点').asstring) )+':'
+ trim(aQuery.fieldbyname('签单地点').asstring) +':'
+ GetDatetime(trim(aQuery.fieldbyname('签单日期').asstring),0)+':'
+ get_fenshu(trim(aQuery.fieldbyname('提单份数').asstring))+':'
+ trim(aQuery.fieldbyname('预付地点').asstring) +':'
+ trim(aQuery.fieldbyname('预付地点').asstring) +#39);
str.Add('11:'
+ trim(frm_op_seae.t_op_seae.fieldbyname('发货人编号').asstring)+':'
+ trim(aQuery.fieldbyname('船名').asstring) +':'
+ trim(aQuery.fieldbyname('航次').asstring)+':'
+'::'
+ ReciverCode +':'
+ '::::::' +#39); //船舶经营人
str.Add ('12:'+trim(aQuery.fieldbyname('装港代码').asstring)+':'
+trim(aQuery.fieldbyname('装货港').asstring)+':'
+trim(aQuery.fieldbyname('装港代码').asstring)+':'
+trim(aQuery.fieldbyname('装货港').asstring)+':'
+trim(aQuery.fieldbyname('卸货代码').asstring) +':'
+trim(aQuery.fieldbyname('卸货港').asstring)+':'
+':'
+':'
+trim(aQuery.fieldbyname('交货代码').asstring) +':'
+trim(aQuery.fieldbyname('交货地点').asstring) +':'
+trim(aQuery.fieldbyname('目的地代码').asstring) +':'
+trim(aQuery.fieldbyname('目的地').asstring) +#39);
if frm_data_share.t_code_free.locate('付费方式',aQuery.fieldbyname('付费方式').asstring,[]) then
begin
str.Add ('14:'+frm_data_share.t_code_free.fieldbyname('代码').asstring+':'
+trim(aQuery.fieldbyname('付费方式').asstring)+#39);
str.Add('15:'
+'::'
+trim(frm_data_share.t_code_free.fieldbyname('代码').asstring)+':'
+'::'
+ '::::' +#39); //船舶经营人
end
else
begin
str.Add ('14:'+'P'+':'
+trim(aQuery.fieldbyname('付费方式').asstring)+#39);
str.Add('15:'
+'::'
+'P:'
+'::'
+ '::::' +#39); //船舶经营人
end;
Str.Add(GetRemarksString);
if (bsSkinCheckRadioBox2.Checked) and (not t_op_seae_assistant.IsEmpty) then
sl1.Text:=FormatEdiString(t_op_seae_assistant.fieldbyname('收货人代码').asstring)
else
sl1.Text:=FormatEdiString(aQuery.fieldbyname('发货人代码').asstring);
GetLengthTString(sl1,35);
strtemp:='20::'+sl1[0]+':';
if sl1.Count>=2 then
strtemp:=strtemp+sl1[1];
if (sl1.Count>=3) and (sl1.Count<=5) then
begin
for j:=2 to sl1.Count-1 do
begin
strtemp:=strtemp+':'+sl1[j]
end;
end;
if sl1.Count>5 then
begin
for j:=2 to 3 do
begin
strtemp:=strtemp+':'+sl1[j]
end;
strtemp:=strtemp+':'+Copy(sl1[4],1,34)+'*';
Str_shr:='*'+Copy(sl1[4],34,1);
for j:=5 to sl1.Count-1 do begin
Str_shr:=Str_shr+' '+sl1[j]
end;
end;
strtemp:=strtemp+#39;
str.Add(strtemp);
count:=count+1;
if (bsSkinCheckRadioBox2.Checked) and (not t_op_seae_assistant.IsEmpty) then
sl1.Text:=FormatEdiString(t_op_seae_assistant.fieldbyname('收货人代码').asstring)
else
sl1.Text:=FormatEdiString(aQuery.fieldbyname('收货人代码').asstring);
GetLengthTString(sl1,35);
strtemp:='21::'+sl1[0]+':';
if sl1.Count>=2 then
strtemp:=strtemp+sl1[1];
if (sl1.Count>=3) and (sl1.Count<=5) then
begin
for j:=2 to sl1.Count-1 do
begin
strtemp:=strtemp+':'+sl1[j]
end;
end;
if sl1.Count>5 then
begin
for j:=2 to 3 do
begin
strtemp:=strtemp+':'+sl1[j]
end;
strtemp:=strtemp+':'+Copy(sl1[4],1,33)+'**';
Str_con:='**'+Copy(sl1[4],33,2);
for j:=5 to sl1.Count-1 do begin
Str_con:=Str_con+' '+sl1[j]
end;
end;
strtemp:=strtemp+#39;
str.Add(strtemp);
count:=count+1;
if (bsSkinCheckRadioBox2.Checked) and (not t_op_seae_assistant.IsEmpty) then
sl1.Text:=FormatEdiString(t_op_seae_assistant.fieldbyname('通知人代码').asstring)
else
sl1.Text:=FormatEdiString(aQuery.fieldbyname('通知人代码').asstring);
GetLengthTString(sl1,35);
strtemp:='22::'+sl1[0]+':';
if sl1.Count>=2 then
strtemp:=strtemp+sl1[1];
if (sl1.Count>=3) and (sl1.Count<=5) then
begin
for j:=2 to sl1.Count-1 do
begin
strtemp:=strtemp+':'+sl1[j]
end;
end;
if sl1.Count>5 then
begin
for j:=2 to 3 do
begin
strtemp:=strtemp+':'+sl1[j]
end;
strtemp:=strtemp+':'+Copy(sl1[4],1,32)+'***';
Str_not:='***'+Copy(sl1[4],32,3);
for j:=5 to sl1.Count-1 do begin
Str_not:=Str_not+' '+sl1[j]
end;
end;
strtemp:=strtemp+#39;
str.Add(strtemp);
count:=count+1;
str.Add ('41:1::'+trim(aQuery.fieldbyname('货物标识').asstring)+':' // 货物标识 S/R/D/O
+trim(aQuery.fieldbyname('件数').asstring) +':'
+trim(GetpkgsEdi(aQuery.fieldbyname('包装').asstring))+':'
+trim(aQuery.fieldbyname('包装').asstring) +':' //第一层包装说明
+CARGOGROSSWT +':' //第一层包装说明
+trim(aQuery.fieldbyname('尺码').asstring) +'::::::' // 第一层包装皮重
+trim(aQuery.fieldbyname('重量').asstring) +':::' // 第一层包装尺码
+#39);
IF trim(aQuery.fieldbyname('货物标识').asstring)='R'THEN
BEGIN
str.Add ('43:' // 危险品、冷冻
+':'
+':'
+':'
+':'
+':'
+':'
+':'
+'::'
+trim(aQuery.fieldbyname('冷藏通风量').asstring) +':'
+'C:'
+trim(aQuery.fieldbyname('设置温度').asstring) +':'
+trim(aQuery.fieldbyname('最低温度').asstring) +':'
+trim(aQuery.fieldbyname('最高温度').asstring) +':'
+'::::'
+#39);
END;
IF trim(aQuery.fieldbyname('货物标识').asstring)='D'THEN
BEGIN
str.Add ('43:' // 危险品、冷冻
+trim(aQuery.fieldbyname('危险品分类').asstring) +':'
+':'
+trim(aQuery.fieldbyname('危险品编号').asstring) +':'
+':'
+':'
+':'
+':'
+'::'
+':'
+':'
+':'
+':'
+':::::'
+#39);
END;
if (bsSkinCheckRadioBox2.Checked) and (not t_op_seae_assistant.IsEmpty) then
sl.Text:=FormatEdiString(t_op_seae_assistant.fieldbyname('唛头').asstring)
else
sl.Text:=FormatEdiString(aQuery.fieldbyname('唛头').AsString);
GetLengthTString(sl,22);
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) and (not t_op_seae_assistant.IsEmpty) then
sl1.Text:=FormatEdiString(t_op_seae_assistant.fieldbyname('货物描述').asstring)
else
sl1.Text:=FormatEdiString(aQuery.fieldbyname('货物描述').AsString);
GetLengthTString(sl1,45);
sl.text:='';
for L:=0 to sl1.Count-1 do begin
sl.Add(sl1.Strings[L]);
end;
if str_shr<>'' then begin
sl.Add(str_shr)
end;
if str_con<>'' then begin
sl.Add(str_con)
end;
if str_not<>'' then begin
sl.Add(str_not)
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;
strRmain:='';
case bstype of
1:
begin //拼箱主票
strRmain:=strRmain+'L:'+':'+':'+':'+':'+'N'+#39
end;
2,3:
begin
strRmain:=strRmain+'L:'+trim(frm_op_seae.t_op_seae.fieldbyname('主提单号').asstring)+':'+':'+':'+':'+'N'+#39
end;
end;
strsql:='select 编号,代码,sum(数量) as 数量 from t_op_ctn group by 编号,代码 having 编号='
+#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;
while not rs.Eof do
begin
str.Add ('48:'+Trim(GetCntrEdi(rs.fieldbyname('代码').asstring))+':'+
trim(rs.fieldbyname('数量').asstring)+':'+
strRmain);
Count:=Count+1;
rs.Next;
end;
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
if rs.FieldByName('件数').AsInteger>0 then begin
rs.First;
while not rs.Eof do begin
if pos('FR',rs.fieldbyname('箱型').asstring)>0 then begin
str.Add ('51:'+trim(rs.fieldbyname('箱号').asstring)+':'+Trim(GetCntrEdi(rs.fieldbyname('代码').asstring))
+':NIL'+':'+trim(IntToStr(rs.fieldbyname('件数').AsInteger))+':'+trim(FloatToStr(rs.fieldbyname('重量').AsFloat))+'::'
+trim(floatToStr(rs.fieldbyname('尺码').Asfloat))+':'+edit3.Text+''''
);
end else 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))+':'+edit3.Text+''''
);
end;
rs.Next;
end;
end;
end;
rs.Close;
rs.Destroy;
except
on e:exception do
begin
rs.Close;
rs.Destroy;
exit;
end;
end;
aQuery.Next;
first:=False;
end;
end;
finally
FreeAndNil(aQuery);
end;
I:=str.Count;
str.Add('99:'+intToStr(i+1)+'''');
Result:=str;
end;
function Tfrm_op_seae_edi_zim.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;
function Tfrm_op_seae_edi_zim.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_zim.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_zim.bsSkinButton3Click(Sender: TObject);
var
IdFTP1:TIdFTP;
str:widestring;
str_file:widestring;
ftpar,ftpname,ftppass,ftppath,ScriptPath:String;
StrL:TStrings;
inifile1:Tinifile;
i:integer;
begin
case bsSkinRadioGroup3.ItemIndex of
0:CarrName:='ZIM';
1:CarrName:='SHG';
end;
if QUOTATIONNO='' then QUOTATIONNO:='0';
if CARGOGROSSWT='' then CARGOGROSSWT:='100';
if SoRemarks='' then SoRemarks:='ABC';
if SIRemarks='' then SIRemarks:='ABC';
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
if Trim(frm_op_seae.t_op_seae.fieldbyname('装运方式').asstring)='整箱' then
if bsSkinRadioGroup2.ItemIndex=1 then
StrL:=CreateSIEdiFile
else
StrL:=CreateEdiFile
else
if (Pos('主票',(frm_op_seae.t_op_seae.fieldbyname('装运方式').asstring))>0)
or (Pos('分票',(frm_op_seae.t_op_seae.fieldbyname('装运方式').asstring))>0) then
if bsSkinRadioGroup2.ItemIndex=1 then
StrL:=CreateSIZHUEdiFile(bsSkinRadioGroup4.ItemIndex)
else
StrL:=CreateZHUEdiFile(bsSkinRadioGroup4.ItemIndex)
else
begin
Exit;
end;
for i:=0 to StrL.Count-1 do begin
if IsZhongwen(StrL[i]) then begin
if MessageDlg('此票业务可能含有中文字符或其他不规范字符,确实要继续上传吗！'+StrL[i],mtWarning,[mbYes,mbNo],0)=mrNo then
exit;
end;
end;
strL.SaveToFile(str);
finally
FreeAndNil(StrL)
end;
try
IdFTP1:=TIdFTP.Create(application);
with idftp1 do
begin
Username:=ftpname;
Password:=ftppass;
Host:=ftpar;
Connect;
end;
idftp1.ChangeDir(ftppath);
idftp1.TransferType:=ftBinary;
idftp1.Put(str,str_file);
idftp1.Disconnect;
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
inifile1.WriteString('EDI','ZIMSEND',edit1.text);
case bsSkinRadioGroup3.ItemIndex of
0:inifile1.WriteString('EDI','ZIMRECIEVE',edit2.text);
1:inifile1.WriteString('EDI','ZIMRECIEVE_SHG',edit2.text);
2:inifile1.WriteString('EDI','ZIMRECIEVE_ZIMWL',edit2.text);
end;
inifile1.WriteString('EDI','ZIMSENDNAME',edit3.text);
inifile1.WriteString('EDI','ZIMFTPSERVER',edit4.text);
inifile1.WriteString('EDI','ZIMFTPPATH',edit5.text);
inifile1.WriteString('EDI','ZIMFTPNAME',edit6.text);
inifile1.WriteString('EDI','ZIMFTPPASS',edit7.text);
inifile1.WriteInteger('EDI','ZIMTypeid',bsSkinRadioGroup3.ItemIndex);
inifile1.free;
showmessage('文件上传成功！');
except
deletefile(str);
showmessage('文件上传错误！');
end;
idftp1.Free;
end;
procedure Tfrm_op_seae_edi_zim.bsSkinButton4Click(Sender: TObject);
begin
if frm_op_seae_edi_zim.Height=638 then
frm_op_seae_edi_zim.Height:=407
else
frm_op_seae_edi_zim.Height:=638;
end;
procedure Tfrm_op_seae_edi_zim.bsSkinRadioGroup3Click(Sender: TObject);
var
inifile1:Tinifile;
begin
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
case bsSkinRadioGroup3.ItemIndex of
0:edit2.text:=inifile1.ReadString('EDI','ZIMRECIEVE','71093609X');
1:edit2.text:=inifile1.ReadString('EDI','ZIMRECIEVE_SHG','');
2:edit2.text:=inifile1.ReadString('EDI','ZIMRECIEVE_ZIMWL','');
end;
inifile1.free;
end;
procedure Tfrm_op_seae_edi_zim.FormClose(Sender: TObject;
var Action: TCloseAction);
var
inifile1:Tinifile;
begin
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
inifile1.WriteString('EDI','ZIMSEND',edit1.text);
case bsSkinRadioGroup3.ItemIndex of
0:inifile1.WriteString('EDI','ZIMRECIEVE',edit2.text);
1:inifile1.WriteString('EDI','ZIMRECIEVE_SHG',edit2.text);
2:inifile1.WriteString('EDI','ZIMRECIEVE_ZIMWL',edit2.text);
end;
inifile1.WriteString('EDI','ZIMSENDNAME',edit3.text);
inifile1.WriteString('EDI','ZIMFTPSERVER',edit4.text);
inifile1.WriteString('EDI','ZIMFTPPATH',edit5.text);
inifile1.WriteString('EDI','ZIMFTPNAME',edit6.text);
inifile1.WriteString('EDI','ZIMFTPPASS',edit7.text);
inifile1.WriteInteger('EDI','ZIMTypeid',bsSkinRadioGroup3.ItemIndex);
inifile1.free;
end;
function Tfrm_op_seae_edi_zim.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_zim.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,CarrName:string;
strDatetime,shipname,shipaddr:string;
SenderCode,ReciverCode:string;
firstcon:boolean;
begin
case bsSkinRadioGroup3.ItemIndex of
0:CarrName:='ZIM';
1:CarrName:='SHG';
end;
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:'+ 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) +':'
+ trim(frm_op_seae.t_op_seae.fieldbyname('航次').asstring)
// +':'+CarrName
//+':::::::::' //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);
shipname:='';
if sl.Count>=1 then
shipname:=Copy(sl[0],1,20);
shipaddr:='';
if sl.Count>=2 then
shipaddr:=sl[1];
str.Add ('58:'+shipname //2
+':'+shipaddr //3
+':' // 4
+':'+emailAddr //5
+':'+emptel //6
+':' //7
+':' //8
+':' //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_zim.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;
procedure Tfrm_op_seae_edi_zim.bsSkinButton7Click(Sender: TObject);
var
IdFTP1:TIdFTP;
str:widestring;
str_file:widestring;
ftpar,ftpname,ftppass,ftppath,ScriptPath:String;
StrL:TStrings;
inifile1:Tinifile;
i:integer;
begin
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;
for i:=0 to StrL.Count-1 do begin
if IsZhongwen(StrL[i]) then begin
if MessageDlg('此票业务可能含有中文字符或其他不规范字符,确实要继续上传吗！'+StrL[i],mtWarning,[mbYes,mbNo],0)=mrNo then
exit;
end;
end;
strL.SaveToFile(str);
finally
FreeAndNil(StrL)
end;
try
IdFTP1:=TIdFTP.Create(application);
with idftp1 do
begin
Username:=ftpname;
Password:=ftppass;
Host:=ftpar;
Connect;
end;
idftp1.ChangeDir(ftppath);
idftp1.TransferType:=ftBinary;
idftp1.Put(str,str_file);
idftp1.Disconnect;
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
inifile1.WriteString('EDI','ZIMSEND',edit1.text);
case bsSkinRadioGroup3.ItemIndex of
0:inifile1.WriteString('EDI','ZIMRECIEVE',edit2.text);
1:inifile1.WriteString('EDI','ZIMRECIEVE_SHG',edit2.text);
2:inifile1.WriteString('EDI','ZIMRECIEVE_ZIMWL',edit2.text);
end;
inifile1.WriteString('EDI','ZIMSENDNAME',edit3.text);
inifile1.WriteString('EDI','ZIMFTPSERVER',edit4.text);
inifile1.WriteString('EDI','ZIMFTPPATH',edit5.text);
inifile1.WriteString('EDI','ZIMFTPNAME',edit6.text);
inifile1.WriteString('EDI','ZIMFTPPASS',edit7.text);
inifile1.WriteInteger('EDI','ZIMTypeid',bsSkinRadioGroup3.ItemIndex);
inifile1.free;
showmessage('文件上传成功！');
except
deletefile(str);
showmessage('文件上传错误！');
end;
idftp1.Free;
end;
end.
Reference in New Issue View Git Blame Copy Permalink