|
|
unit u_op_seae_edi_ccl;
|
|
|
|
|
|
interface
|
|
|
|
|
|
uses
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
Dialogs, BusinessSkinForm, StdCtrls, bsSkinCtrls,inifiles, DB, ADODB;
|
|
|
|
|
|
type
|
|
|
Tfrm_op_seae_edi_ccl = class(TForm)
|
|
|
bsBusinessSkinForm1: TbsBusinessSkinForm;
|
|
|
Label2: TLabel;
|
|
|
Edit2: TEdit;
|
|
|
Edit1: TEdit;
|
|
|
Label1: TLabel;
|
|
|
SaveDialog1: TSaveDialog;
|
|
|
bsSkinButton1: TbsSkinButton;
|
|
|
bsSkinButton2: TbsSkinButton;
|
|
|
Label3: TLabel;
|
|
|
Label4: TLabel;
|
|
|
Edit3: TEdit;
|
|
|
Edit4: TEdit;
|
|
|
bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
|
|
|
bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
|
|
|
procedure bsSkinButton2Click(Sender: TObject);
|
|
|
procedure FormShow(Sender: TObject);
|
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
|
private
|
|
|
function FormatListString(Old:TStrings;mCount,Strlength:integer):String;
|
|
|
function FormatEdiString(str:String;Strlength:integer=0):String;
|
|
|
function GetLengthword(var s: String; l: Integer;str:String): String;
|
|
|
procedure GetLengthTString(var sl:TStringList;l:integer);
|
|
|
function GetCntrEdi(cntrsize: String):String;
|
|
|
{ Private declarations }
|
|
|
public
|
|
|
{ Public declarations }
|
|
|
function GetpkgsEdi(pkgs: String): String;
|
|
|
end;
|
|
|
|
|
|
var
|
|
|
frm_op_seae_edi_ccl: Tfrm_op_seae_edi_ccl;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
uses u_op_seae, u_main, my_sys_function, u_data_share;
|
|
|
|
|
|
{$R *.dfm}
|
|
|
function Tfrm_op_seae_edi_ccl.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_ccl.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_ccl.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_ccl.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_ccl.FormatListString(Old:TStrings;mCount,Strlength:integer):String;
|
|
|
var
|
|
|
i:integer;
|
|
|
NewStrs:TStrings;
|
|
|
mStr:String;
|
|
|
begin
|
|
|
Result:='';
|
|
|
NewStrs:=TStringList.Create;
|
|
|
for i:=0 to old.Count-1 do begin
|
|
|
if Length(old.Strings[i])<=Strlength then begin
|
|
|
NewStrs.Add(old.Strings[i]);
|
|
|
end else begin
|
|
|
mStr:=old.Strings[i];
|
|
|
while length(mStr)>Strlength do begin
|
|
|
newStrs.Add(copy(mStr,1,Strlength));
|
|
|
system.Delete(mStr,1,Strlength);
|
|
|
end;
|
|
|
newStrs.Add(mStr);
|
|
|
end;
|
|
|
end;
|
|
|
try
|
|
|
for i:=0 to mCount-1 do begin
|
|
|
if i<NewStrs.Count then begin
|
|
|
Result:=Result+NewStrs.Strings[i];
|
|
|
end;
|
|
|
if i<mCount-1 then
|
|
|
Result:=Result+':';
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(NewStrs);
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_seae_edi_ccl.bsSkinButton2Click(Sender: TObject);
|
|
|
begin
|
|
|
close;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_edi_ccl.FormShow(Sender: TObject);
|
|
|
var
|
|
|
inifile1:Tinifile;
|
|
|
begin
|
|
|
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
|
|
|
edit1.text:=inifile1.ReadString('EDI','CCLSEND','');
|
|
|
edit2.text:=inifile1.ReadString('EDI','CCLRECIEVE','CCL');
|
|
|
edit4.text:=inifile1.ReadString('EDI','CCLPORTLOAD','CNTAO');
|
|
|
edit3.text:=inifile1.ReadString('EDI','CCLPORTDISCHARG','');
|
|
|
bsSkinCheckRadioBox1.Checked:=inifile1.ReadBool('EDI','CCLNOCTN',true);
|
|
|
inifile1.free;
|
|
|
end;
|
|
|
function Tfrm_op_seae_edi_ccl.GetCntrEdi(cntrsize: String):String;
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('Select Edi´úÂë from t_code_ctn where ´úÂë='''+cntrsize+'''');
|
|
|
Open;
|
|
|
if IsEmpty then
|
|
|
Result:=''
|
|
|
else
|
|
|
Result:=FieldByName('Edi´úÂë').AsString;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_edi_ccl.bsSkinButton1Click(Sender: TObject);
|
|
|
var
|
|
|
str,sl,sl1:Tstringlist;
|
|
|
i,j,Count,L,M:integer;
|
|
|
strsql,strRmain,strtemp,S:string;
|
|
|
rs:Tadoquery;
|
|
|
aQuery2:Tadoquery;
|
|
|
wide_str:widestring;
|
|
|
k:integer;
|
|
|
inifile1:Tinifile;
|
|
|
strType:string;
|
|
|
strDatetime:string;
|
|
|
SenderCode,ReciverCode:string;
|
|
|
function GetShipperString:String;
|
|
|
var
|
|
|
TempStr:TStringList;
|
|
|
begin
|
|
|
TempStr:=TStringList.Create;
|
|
|
try
|
|
|
if bsSkinCheckRadioBox2.Checked then
|
|
|
TempStr.Text:=FormatEdiString(aQuery2.fieldbyname('·¢»õÈË´úÂë').AsString)
|
|
|
else
|
|
|
TempStr.Text:=FormatEdiString(frm_op_seae.t_op_seae.fieldbyname('·¢»õÈË´úÂë').AsString);
|
|
|
GetLengthTString(TempStr,35);
|
|
|
Result:='16:';
|
|
|
Result:=Result+':';
|
|
|
Result:=Result+FormatListString(TempStr,6,35)+'''';
|
|
|
finally
|
|
|
FreeAndNil(TempStr);
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
function GetConsigneString:String;
|
|
|
var
|
|
|
TempStr:TStringList;
|
|
|
begin
|
|
|
TempStr:=TStringList.Create;
|
|
|
try
|
|
|
if bsSkinCheckRadioBox2.Checked then
|
|
|
TempStr.Text:=FormatEdiString(aquery2.fieldbyname('ÊÕ»õÈË´úÂë').AsString)
|
|
|
else
|
|
|
TempStr.Text:=FormatEdiString(frm_op_seae.t_op_seae.fieldbyname('ÊÕ»õÈË´úÂë').AsString);
|
|
|
GetLengthTString(TempStr,35);
|
|
|
Result:='17:';
|
|
|
Result:=Result+':';
|
|
|
Result:=Result+FormatListString(TempStr,6,35)+'''';
|
|
|
finally
|
|
|
FreeAndNil(TempStr);
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
function GetNOTIFYString:String;
|
|
|
var
|
|
|
TempStr:TStringList;
|
|
|
begin
|
|
|
TempStr:=TStringList.Create;
|
|
|
try
|
|
|
if bsSkinCheckRadioBox2.Checked then
|
|
|
TempStr.Text:=FormatEdiString(aquery2.fieldbyname('֪ͨÈË´úÂë').AsString)
|
|
|
else
|
|
|
TempStr.Text:=FormatEdiString(frm_op_seae.t_op_seae.fieldbyname('֪ͨÈË´úÂë').AsString);
|
|
|
GetLengthTString(TempStr,35);
|
|
|
Result:='18:';
|
|
|
Result:=Result+':';
|
|
|
Result:=Result+FormatListString(TempStr,6,35)+'''';
|
|
|
finally
|
|
|
FreeAndNil(TempStr);
|
|
|
end;
|
|
|
end;
|
|
|
function GetMARKSString:String;
|
|
|
var
|
|
|
TempStr:TStringList;
|
|
|
begin
|
|
|
TempStr:=TStringList.Create;
|
|
|
try
|
|
|
if bsSkinCheckRadioBox2.Checked then
|
|
|
TempStr.Text:=FormatEdiString(aQuery2.fieldbyname('ßéÍ·').AsString)
|
|
|
else
|
|
|
TempStr.Text:=FormatEdiString(frm_op_seae.t_op_seae.fieldbyname('ßéÍ·').AsString);
|
|
|
GetLengthTString(TempStr,35);
|
|
|
Result:='44:';
|
|
|
Result:=Result+FormatListString(TempStr,10,35)+'''';
|
|
|
finally
|
|
|
FreeAndNil(TempStr);
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
|
|
|
begin
|
|
|
SenderCode:=trim(edit1.Text) ;
|
|
|
ReciverCode:=trim(edit2.Text) ;
|
|
|
strType:='9';
|
|
|
sl:=Tstringlist.Create;
|
|
|
sl1:=Tstringlist.Create;
|
|
|
|
|
|
|
|
|
if frm_op_seae.dxdbgrid1.SelectedCount<=1 then
|
|
|
begin
|
|
|
if bsSkinCheckRadioBox2.Checked then begin
|
|
|
aQuery2:=CreateAdoQuery;
|
|
|
with aQuery2 do begin
|
|
|
Close;
|
|
|
SQL.Clear;
|
|
|
SQL.Add('select * from t_op_seae_assistant where 񅧏='''+frm_op_seae.t_op_seae.fieldbyname('񅧏').AsString+'''');
|
|
|
open;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
str:=Tstringlist.Create;
|
|
|
str.Clear;
|
|
|
str.Add('00:IFCSUM:MANIFEST:'+trim(strType)+':'+ SenderCode+':'+ReciverCode+':'+FormatDateTime('YYMMDDHHMM', Now)+#39);
|
|
|
Count:=0;
|
|
|
|
|
|
str.Add('10::'
|
|
|
+ trim(frm_op_seae.t_op_seae.fieldbyname('´¬Ãû').asstring) +':'
|
|
|
+ trim(frm_op_seae.t_op_seae.fieldbyname('º½´Î').asstring)
|
|
|
+ '::::'
|
|
|
+ FormatDateTime('YYYYMMDD',frm_op_seae.t_op_seae.fieldbyname('¿ª´¬ÈÕÆÚ').asdatetime)+':'
|
|
|
+trim(edit4.text)+':'
|
|
|
+trim(frm_op_seae.t_op_seae.fieldbyname('×°»õ¸Û').asstring)
|
|
|
+#39); //´¬²°¾ÓªÈË
|
|
|
|
|
|
|
|
|
str.Add('11:'
|
|
|
+'SOF'+':'
|
|
|
+trim(frm_op_seae.t_op_seae.fieldbyname('´¬¹«Ë¾').asstring)
|
|
|
+#39); //´¬²°¾ÓªÈË
|
|
|
|
|
|
|
|
|
if bsSkinCheckRadioBox2.Checked then begin
|
|
|
if frm_data_share.t_code_free.locate('´úÂë',aQuery2.fieldbyname('¸¶·Ñ·½Ê½').asstring,[]) then
|
|
|
begin
|
|
|
strtemp:=copy(frm_data_share.t_code_free.fieldbyname('´úÂë').asstring,1,1);
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
strtemp:='P';
|
|
|
end;
|
|
|
end else begin
|
|
|
if frm_data_share.t_code_free.locate('´úÂë',frm_op_seae.t_op_seae.fieldbyname('¸¶·Ñ·½Ê½').asstring,[]) then
|
|
|
begin
|
|
|
strtemp:=copy(frm_data_share.t_code_free.fieldbyname('´úÂë').asstring,1,1);
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
strtemp:='P';
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
|
|
|
if bsSkinCheckRadioBox2.Checked then begin
|
|
|
str.Add ('12:'+trim(aQuery2.fieldbyname('Ö÷Ìáµ¥ºÅ').asstring)+':'
|
|
|
+':::::' // ÊÕ»õµØ
|
|
|
+trim(edit4.text)+':'
|
|
|
+trim(aQuery2.fieldbyname('×°»õ¸Û').asstring)+':'
|
|
|
+'CY-CY'+':'
|
|
|
+strtemp+':'
|
|
|
+FormatDateTime('YYYYMMDD',aQuery2.fieldbyname('¿ª´¬ÈÕÆÚ').asdatetime)+#39);
|
|
|
|
|
|
str.Add ('13:'+trim(edit3.text)+':'
|
|
|
+trim(aQuery2.fieldbyname('ж»õ¸Û').asstring)+':'
|
|
|
+trim(edit3.Text)+':'
|
|
|
+trim(aQuery2.fieldbyname('½»»õµØµã').asstring)
|
|
|
+#39);
|
|
|
end else begin
|
|
|
str.Add ('12:'+trim(frm_op_seae.t_op_seae.fieldbyname('Ö÷Ìáµ¥ºÅ').asstring)+':'
|
|
|
+':::::' // ÊÕ»õµØ
|
|
|
+trim(edit4.text)+':'
|
|
|
+trim(frm_op_seae.t_op_seae.fieldbyname('×°»õ¸Û').asstring)+':'
|
|
|
+'CY-CY'+':'
|
|
|
+strtemp+':'
|
|
|
+FormatDateTime('YYYYMMDD',frm_op_seae.t_op_seae.fieldbyname('¿ª´¬ÈÕÆÚ').asdatetime)+#39);
|
|
|
|
|
|
str.Add ('13:'+trim(edit3.text)+':'
|
|
|
+trim(frm_op_seae.t_op_seae.fieldbyname('ж»õ¸Û').asstring)+':'
|
|
|
+trim(edit3.Text)+':'
|
|
|
+trim(frm_op_seae.t_op_seae.fieldbyname('½»»õµØµã').asstring)
|
|
|
+#39);
|
|
|
end;
|
|
|
Str.Add(GetShipperString);
|
|
|
Str.Add(GetConsigneString);
|
|
|
Str.Add(GetNOTIFYString);
|
|
|
|
|
|
IF trim(frm_op_seae.t_op_seae.fieldbyname('»õÎï±êʶ').asstring)='' THEN
|
|
|
strtemp:='S'
|
|
|
else
|
|
|
strtemp:=trim(frm_op_seae.t_op_seae.fieldbyname('»õÎï±êʶ').asstring);
|
|
|
|
|
|
str.Add ('41:001:'+strtemp+':' // »õÎï±êʶ S/R/D/O
|
|
|
+trim(frm_op_seae.t_op_seae.fieldbyname('¼þÊý').asstring)
|
|
|
+':'+trim(GetpkgsEdi(frm_op_seae.t_op_seae.fieldbyname('°ü×°').asstring))
|
|
|
+':'
|
|
|
+trim(frm_op_seae.t_op_seae.fieldbyname('°ü×°').asstring) +':' //µÚÒ»²ã°üװ˵Ã÷
|
|
|
+trim(frm_op_seae.t_op_seae.fieldbyname('ÖØÁ¿').asstring) +'::' // µÚÒ»²ã°ü×°³ßÂë
|
|
|
+trim(frm_op_seae.t_op_seae.fieldbyname('³ßÂë').asstring) // µÚÒ»²ã°üװƤÖØ
|
|
|
+#39);
|
|
|
|
|
|
IF trim(frm_op_seae.t_op_seae.fieldbyname('»õÎï±êʶ').asstring)='R'THEN
|
|
|
BEGIN
|
|
|
str.Add ('43:' // ΣÏÕÆ·¡¢À䶳
|
|
|
+trim(frm_op_seae.t_op_seae.fieldbyname('ζȵ¥Î»').asstring) +':'
|
|
|
+trim(frm_op_seae.t_op_seae.fieldbyname('ÉèÖÃζÈ').asstring) +':'
|
|
|
+trim(frm_op_seae.t_op_seae.fieldbyname('×îµÍζÈ').asstring) +':'
|
|
|
+trim(frm_op_seae.t_op_seae.fieldbyname('×î¸ßζÈ').asstring)
|
|
|
+#39);
|
|
|
END;
|
|
|
IF trim(frm_op_seae.t_op_seae.fieldbyname('»õÎï±êʶ').asstring)='D'THEN
|
|
|
BEGIN
|
|
|
str.Add ('43:' // ΣÏÕÆ·¡¢À䶳
|
|
|
+trim(frm_op_seae.t_op_seae.fieldbyname('ΣÏÕÆ··ÖÀà').asstring) +':'
|
|
|
+trim(frm_op_seae.t_op_seae.fieldbyname('ΣÏÕÆ·±àºÅ').asstring) +':'
|
|
|
+':'
|
|
|
+':'
|
|
|
+#39);
|
|
|
END;
|
|
|
|
|
|
Str.Add(GetMARKSString);
|
|
|
// Str.Add(GetCARGODESCRIPTIONString);
|
|
|
|
|
|
if bsSkinCheckRadioBox2.Checked then
|
|
|
sl1.Text:=FormatEdiString(aQuery2.fieldbyname('»õÎïÃèÊö').AsString)
|
|
|
else
|
|
|
sl1.Text:=FormatEdiString(frm_op_seae.t_op_seae.fieldbyname('»õÎïÃèÊö').AsString);
|
|
|
GetLengthTString(sl1,70);
|
|
|
sl.text:='';
|
|
|
for L:=0 to sl1.Count-1 do begin
|
|
|
if Trim(sl1.Strings[L])<>'' then
|
|
|
sl.Add(sl1.Strings[L]);
|
|
|
end;
|
|
|
|
|
|
M:=1;
|
|
|
for L:=0 to sl.Count-1 do begin
|
|
|
if M<=5 then begin
|
|
|
if M=1 then begin
|
|
|
s:='47:'+FormatEdiString(sl.Strings[L],0)+':';
|
|
|
end else begin
|
|
|
if M=5 then
|
|
|
s:=s+FormatEdiString(sl.Strings[L],0)
|
|
|
else
|
|
|
s:=s+FormatEdiString(sl.Strings[L],0)+':';
|
|
|
end;
|
|
|
end else begin
|
|
|
S:=S+'''';
|
|
|
Str.Add(S);
|
|
|
M:=1;
|
|
|
s:='47:'+FormatEdiString(sl.Strings[L],0)+':';
|
|
|
end;
|
|
|
M:=M+1;
|
|
|
end;
|
|
|
S:=S+'''';
|
|
|
Str.Add(S);
|
|
|
|
|
|
Count:=Count+11;
|
|
|
if not bsSkinCheckRadioBox1.Checked then begin
|
|
|
|
|
|
strRmain:='';
|
|
|
try
|
|
|
rs:=Tadoquery.Create(application);
|
|
|
rs.Connection := frm_main.db;
|
|
|
strsql:='select * from t_op_ctn where 񅧏='
|
|
|
+#39+frm_op_seae.t_op_seae.fieldbyname('񅧏').asstring+#39;
|
|
|
rs.Close;
|
|
|
rs.sql.clear;
|
|
|
rs.sql.add(strsql);
|
|
|
rs.Open;
|
|
|
if not rs.IsEmpty then begin
|
|
|
rs.First;
|
|
|
while not rs.Eof do begin
|
|
|
if rs.fieldbyname('±¸×¢').asstring='' then
|
|
|
strtemp:='F'
|
|
|
else
|
|
|
strtemp:=copy(rs.fieldbyname('±¸×¢').asstring,1,1);
|
|
|
str.Add ('51:001:'+trim(rs.fieldbyname('ÏäºÅ').asstring)+':'+trim(rs.fieldbyname('·âºÅ').asstring)+':'+Trim(rs.fieldbyname('³ß´ç').asstring+rs.fieldbyname('ÏäÐÍ').asstring)+':'+strtemp+':'
|
|
|
+trim(IntToStr(rs.fieldbyname('¼þÊý').AsInteger))+':'+trim(FloatToStr(rs.fieldbyname('ÖØÁ¿').AsFloat))+':'+trim(FloatToStr(rs.fieldbyname('³ßÂë').AsFloat))+''''
|
|
|
);
|
|
|
rs.Next;
|
|
|
end;
|
|
|
end;
|
|
|
rs.Close;
|
|
|
rs.Destroy;
|
|
|
except
|
|
|
on e:exception do
|
|
|
begin
|
|
|
rs.Close;
|
|
|
rs.Destroy;
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
end else begin
|
|
|
str.Add ('51:::::::::::::::'+'''');
|
|
|
end;
|
|
|
count:=str.count;
|
|
|
str.Add ('99:'+ inttostr(count+1)+#39);
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
str:=Tstringlist.Create;
|
|
|
str.Clear;
|
|
|
str.Add('00:IFCSUM:MANIFEST:'+trim(strType)+':'+ SenderCode+':'+ ReciverCode +':'+FormatDateTime('YYMMDDHHMM', Now)+#39);
|
|
|
str.Add('10::'
|
|
|
+ trim(frm_op_seae.t_op_seae.fieldbyname('´¬Ãû').asstring) +':'
|
|
|
+trim(frm_op_seae.t_op_seae.fieldbyname('º½´Î').asstring)
|
|
|
+ '::::'
|
|
|
+ FormatDateTime('YYYYMMDD',frm_op_seae.t_op_seae.fieldbyname('¿ª´¬ÈÕÆÚ').asdatetime)+':'
|
|
|
+trim(edit4.Text)+':'
|
|
|
+trim(frm_op_seae.t_op_seae.fieldbyname('×°»õ¸Û').asstring)
|
|
|
+#39); //´¬²°¾ÓªÈË
|
|
|
str.Add('11:'
|
|
|
+'SOF'+':'
|
|
|
+trim(frm_op_seae.t_op_seae.fieldbyname('´¬¹«Ë¾').asstring)
|
|
|
+#39); //´¬²°¾ÓªÈË
|
|
|
|
|
|
Count:=0;
|
|
|
for k:=0 to frm_op_seae.dxdbgrid1.SelectedCount-1 do
|
|
|
begin
|
|
|
frm_op_seae.t_op_seae.GotoBookmark(pointer(frm_op_seae.dxdbgrid1.selectedrows[k]));
|
|
|
|
|
|
if bsSkinCheckRadioBox2.Checked then begin
|
|
|
aQuery2:=CreateAdoQuery;
|
|
|
with aQuery2 do begin
|
|
|
Close;
|
|
|
SQL.Clear;
|
|
|
SQL.Add('select * from t_op_seae_assistant where 񅧏='''+frm_op_seae.t_op_seae.fieldbyname('񅧏').AsString+'''');
|
|
|
open;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
{
|
|
|
str.Add('11::'
|
|
|
+ trim(frm_op_seae.t_op_seae.fieldbyname('´¬Ãû').asstring) +':'
|
|
|
+ 'V.'+trim(frm_op_seae.t_op_seae.fieldbyname('º½´Î').asstring)
|
|
|
+ '::::::::::' +#39); //´¬²°¾ÓªÈË
|
|
|
}
|
|
|
if bsSkinCheckRadioBox2.Checked then begin
|
|
|
if frm_data_share.t_code_free.locate('´úÂë',aQuery2.fieldbyname('¸¶·Ñ·½Ê½').asstring,[]) then
|
|
|
begin
|
|
|
strtemp:=copy(frm_data_share.t_code_free.fieldbyname('´úÂë').asstring,1,1);
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
strtemp:='P';
|
|
|
end;
|
|
|
end else begin
|
|
|
|
|
|
if frm_data_share.t_code_free.locate('´úÂë',frm_op_seae.t_op_seae.fieldbyname('¸¶·Ñ·½Ê½').asstring,[]) then
|
|
|
begin
|
|
|
strtemp:=copy(frm_data_share.t_code_free.fieldbyname('´úÂë').asstring,1,1);
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
strtemp:='P';
|
|
|
end;
|
|
|
end;
|
|
|
if bsSkinCheckRadioBox2.Checked then begin
|
|
|
str.Add ('12:'+trim(aQuery2.fieldbyname('Ö÷Ìáµ¥ºÅ').asstring)+':'
|
|
|
+':::::' // ÊÕ»õµØ
|
|
|
+trim(edit4.text)+':'
|
|
|
+trim(aQuery2.fieldbyname('×°»õ¸Û').asstring)+':'
|
|
|
+'CY-CY'+':'
|
|
|
+strtemp+':'
|
|
|
+FormatDateTime('YYYYMMDD',aQuery2.fieldbyname('¿ª´¬ÈÕÆÚ').asdatetime)+#39);
|
|
|
|
|
|
str.Add ('13:'+trim(edit3.text)+':'
|
|
|
+trim(aQuery2.fieldbyname('ж»õ¸Û').asstring)+':'
|
|
|
+trim(edit3.Text)+':'
|
|
|
+trim(aQuery2.fieldbyname('½»»õµØµã').asstring)
|
|
|
+#39);
|
|
|
end else begin
|
|
|
|
|
|
str.Add ('12:'+trim(frm_op_seae.t_op_seae.fieldbyname('Ö÷Ìáµ¥ºÅ').asstring)+':'
|
|
|
+':::::' // ÊÕ»õµØ
|
|
|
+trim(edit4.Text)+':'
|
|
|
+trim(frm_op_seae.t_op_seae.fieldbyname('×°»õ¸Û').asstring)+':'
|
|
|
+'CY-CY'+':'
|
|
|
+strtemp+':'
|
|
|
+FormatDateTime('YYYYMMDD',frm_op_seae.t_op_seae.fieldbyname('¿ª´¬ÈÕÆÚ').asdatetime)+#39);
|
|
|
|
|
|
str.Add ('13:'+trim(edit3.text)+':'
|
|
|
+trim(frm_op_seae.t_op_seae.fieldbyname('ж»õ¸Û').asstring)+':'
|
|
|
+trim(edit3.Text)+':'
|
|
|
+trim(frm_op_seae.t_op_seae.fieldbyname('½»»õµØµã').asstring)
|
|
|
+#39);
|
|
|
end;
|
|
|
Str.Add(GetShipperString);
|
|
|
Str.Add(GetConsigneString);
|
|
|
Str.Add(GetNOTIFYString);
|
|
|
|
|
|
IF trim(frm_op_seae.t_op_seae.fieldbyname('»õÎï±êʶ').asstring)='' THEN
|
|
|
strtemp:='S'
|
|
|
else
|
|
|
strtemp:=trim(frm_op_seae.t_op_seae.fieldbyname('»õÎï±êʶ').asstring);
|
|
|
|
|
|
str.Add ('41:001:'+strtemp+':' // »õÎï±êʶ S/R/D/O
|
|
|
+trim(frm_op_seae.t_op_seae.fieldbyname('¼þÊý').asstring)
|
|
|
+':'+trim(GetpkgsEdi(frm_op_seae.t_op_seae.fieldbyname('°ü×°').asstring))
|
|
|
+':'
|
|
|
+trim(frm_op_seae.t_op_seae.fieldbyname('°ü×°').asstring) +':' //µÚÒ»²ã°üװ˵Ã÷
|
|
|
+trim(frm_op_seae.t_op_seae.fieldbyname('ÖØÁ¿').asstring) +'::' // µÚÒ»²ã°ü×°³ßÂë
|
|
|
+trim(frm_op_seae.t_op_seae.fieldbyname('³ßÂë').asstring) // µÚÒ»²ã°üװƤÖØ
|
|
|
+#39);
|
|
|
IF trim(frm_op_seae.t_op_seae.fieldbyname('»õÎï±êʶ').asstring)='R'THEN
|
|
|
BEGIN
|
|
|
str.Add ('43:' // ΣÏÕÆ·¡¢À䶳
|
|
|
+trim(frm_op_seae.t_op_seae.fieldbyname('ζȵ¥Î»').asstring) +':'
|
|
|
+trim(frm_op_seae.t_op_seae.fieldbyname('ÉèÖÃζÈ').asstring) +':'
|
|
|
+trim(frm_op_seae.t_op_seae.fieldbyname('×îµÍζÈ').asstring) +':'
|
|
|
+trim(frm_op_seae.t_op_seae.fieldbyname('×î¸ßζÈ').asstring)
|
|
|
+#39);
|
|
|
END;
|
|
|
IF trim(frm_op_seae.t_op_seae.fieldbyname('»õÎï±êʶ').asstring)='D'THEN
|
|
|
BEGIN
|
|
|
str.Add ('43:' // ΣÏÕÆ·¡¢À䶳
|
|
|
+trim(frm_op_seae.t_op_seae.fieldbyname('ΣÏÕÆ··ÖÀà').asstring) +':'
|
|
|
+trim(frm_op_seae.t_op_seae.fieldbyname('ΣÏÕÆ·±àºÅ').asstring) +':'
|
|
|
+':'
|
|
|
+':'
|
|
|
+#39);
|
|
|
END;
|
|
|
|
|
|
Str.Add(GetMARKSString);
|
|
|
// Str.Add(GetCARGODESCRIPTIONString);
|
|
|
|
|
|
if bsSkinCheckRadioBox2.Checked then
|
|
|
sl1.Text:=FormatEdiString(aQuery2.fieldbyname('»õÎïÃèÊö').AsString)
|
|
|
else
|
|
|
sl1.Text:=FormatEdiString(frm_op_seae.t_op_seae.fieldbyname('»õÎïÃèÊö').AsString);
|
|
|
GetLengthTString(sl1,70);
|
|
|
sl.text:='';
|
|
|
for L:=0 to sl1.Count-1 do begin
|
|
|
if Trim(sl1.Strings[L])<>'' then
|
|
|
sl.Add(sl1.Strings[L]);
|
|
|
end;
|
|
|
|
|
|
M:=1;
|
|
|
for L:=0 to sl.Count-1 do begin
|
|
|
if M<=5 then begin
|
|
|
if M=1 then begin
|
|
|
s:='47:'+FormatEdiString(sl.Strings[L],0)+':';
|
|
|
end else begin
|
|
|
if M=5 then
|
|
|
s:=s+FormatEdiString(sl.Strings[L],0)
|
|
|
else
|
|
|
s:=s+FormatEdiString(sl.Strings[L],0)+':';
|
|
|
end;
|
|
|
end else begin
|
|
|
S:=S+'''';
|
|
|
Str.Add(S);
|
|
|
M:=1;
|
|
|
s:='47:'+FormatEdiString(sl.Strings[L],0)+':';
|
|
|
end;
|
|
|
M:=M+1;
|
|
|
end;
|
|
|
S:=S+'''';
|
|
|
Str.Add(S);
|
|
|
|
|
|
Count:=Count+11;
|
|
|
|
|
|
if not bsSkinCheckRadioBox1.Checked then begin
|
|
|
strRmain:='';
|
|
|
try
|
|
|
rs:=Tadoquery.Create(application);
|
|
|
rs.Connection := frm_main.db;
|
|
|
strsql:='select * from t_op_ctn where 񅧏='
|
|
|
+#39+frm_op_seae.t_op_seae.fieldbyname('񅧏').asstring+#39;
|
|
|
rs.Close;
|
|
|
rs.sql.clear;
|
|
|
rs.sql.add(strsql);
|
|
|
rs.Open;
|
|
|
if not rs.IsEmpty then begin
|
|
|
rs.First;
|
|
|
while not rs.Eof do begin
|
|
|
if rs.fieldbyname('±¸×¢').asstring='' then
|
|
|
strtemp:='F'
|
|
|
else
|
|
|
strtemp:=copy(rs.fieldbyname('±¸×¢').asstring,1,1);
|
|
|
str.Add ('51:001:'+trim(rs.fieldbyname('ÏäºÅ').asstring)+':'+trim(rs.fieldbyname('·âºÅ').asstring)+':'+Trim(rs.fieldbyname('³ß´ç').asstring+rs.fieldbyname('ÏäÐÍ').asstring)+':'+strtemp+':'
|
|
|
+trim(IntToStr(rs.fieldbyname('¼þÊý').AsInteger))+':'+trim(FloatToStr(rs.fieldbyname('ÖØÁ¿').AsFloat))+':'+trim(FloatToStr(rs.fieldbyname('³ßÂë').AsFloat))+''''
|
|
|
);
|
|
|
|
|
|
rs.Next;
|
|
|
end;
|
|
|
end;
|
|
|
rs.Close;
|
|
|
rs.Destroy;
|
|
|
except
|
|
|
on e:exception do
|
|
|
begin
|
|
|
rs.Close;
|
|
|
rs.Destroy;
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
end else begin
|
|
|
str.Add ('51:::::::::::::::'+'''');
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
count:=str.count;
|
|
|
str.Add ('99:'+ inttostr(count+1)+#39);
|
|
|
end;
|
|
|
freeandnil(sl);
|
|
|
freeandnil(sl1);
|
|
|
|
|
|
SaveDialog1.FileName:=frm_op_seae.t_op_seae.fieldbyname('´¬Ãû').asstring+frm_op_seae.t_op_seae.fieldbyname('º½´Î').asstring;
|
|
|
if SaveDialog1.Execute then
|
|
|
begin
|
|
|
str.SaveToFile(SaveDialog1.FileName+'.txt');
|
|
|
showmessage('ÎļþÉú³É³É¹¦£¡');
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
showmessage('ÎļþÉú³Éʧ°Ü£¡');
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
|
|
|
inifile1.WriteString('EDI','CCLSEND',edit1.text);
|
|
|
inifile1.WriteString('EDI','CCLRECIEVE',edit2.text);
|
|
|
inifile1.WriteString('EDI','CCLPORTLOAD',edit4.text);
|
|
|
inifile1.WriteString('EDI','CCLPORTDISCHARG',edit3.text);
|
|
|
inifile1.WriteBool('EDI','CCLNOCTN',bsSkinCheckRadioBox1.checked);
|
|
|
inifile1.free;
|
|
|
|
|
|
close;
|
|
|
end;
|
|
|
|
|
|
end.
|