hanxuntao
/
D6HECHUAN
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 '4e4df949a6'
${ noResults }
D6HECHUAN/新建文件夹/海运业务/u_op_seai_list.pas

658 lines
21 KiB
Plaintext
Raw 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_seai_list;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, bsSkinCtrls, ExtCtrls, dxExEdtr, dxCntner, dxTL, dxDBCtrl,
dxDBGrid, Grids, Wwdbigrd, Wwdbgrid, StdCtrls, DB,
ADODB, dxDBTLCl, dxGrClms, ComCtrls, bsSkinTabs, DBCtrls, wwdblook,
wwdbdatetimepicker, RxLookup, Menus, XPMenu, Mask, wwdbedit, Wwdotdot,
Wwdbcomb,inifiles;
type
Tfrm_op_seai_list = class(TForm)
Panel2: TPanel;
t_op_seae: TADOQuery;
t_op_seae1: TDataSource;
PopupMenu2: TPopupMenu;
N10: TMenuItem;
N11: TMenuItem;
N14: TMenuItem;
N13: TMenuItem;
N12: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
XPMenu1: TXPMenu;
bsSkinPanel1: TbsSkinPanel;
bsSkinPanel2: TbsSkinPanel;
bsSkinButton5: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
bsSkinButton6: TbsSkinButton;
bsSkinPanel4: TbsSkinPanel;
Label10: TLabel;
Label5: TLabel;
Label125: TLabel;
Label30: TLabel;
Label1: TLabel;
Label8: TLabel;
wwDBDateTimePicker1: TwwDBDateTimePicker;
wwDBDateTimePicker2: TwwDBDateTimePicker;
wwDBLookupCombo49: TwwDBLookupCombo;
Edit7: TEdit;
Edit2: TEdit;
RxDBLookupCombo6: TRxDBLookupCombo;
bsSkinPanel5: TbsSkinPanel;
bsSkinGroupBox1: TbsSkinGroupBox;
bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
Label38: TLabel;
DBEdit9: TDBEdit;
Label36: TLabel;
DBEdit7: TDBEdit;
t_code_sendedi: TADOQuery;
t_code_sendedi1: TDataSource;
bsSkinButton1: TbsSkinButton;
dxDBGrid1: TdxDBGrid;
dxDBGrid1Column1: TdxDBGridMaskColumn;
dxDBGrid1Column2: TdxDBGridMaskColumn;
dxDBGrid1Column114: TdxDBGridColumn;
dxDBGrid1Column3: TdxDBGridMaskColumn;
dxDBGrid1Column4: TdxDBGridDateColumn;
dxDBGrid1Column5: TdxDBGridMaskColumn;
dxDBGrid1Column6: TdxDBGridMaskColumn;
dxDBGrid1Column7: TdxDBGridMaskColumn;
dxDBGrid1Column81: TdxDBGridColumn;
dxDBGrid1Column8: TdxDBGridMaskColumn;
dxDBGrid1Column9: TdxDBGridMaskColumn;
dxDBGrid1Column10: TdxDBGridMaskColumn;
dxDBGrid1Column11: TdxDBGridMaskColumn;
dxDBGrid1Column12: TdxDBGridMaskColumn;
dxDBGrid1Column13: TdxDBGridMaskColumn;
dxDBGrid1Column14: TdxDBGridMaskColumn;
dxDBGrid1Column15: TdxDBGridMaskColumn;
dxDBGrid1Column16: TdxDBGridMaskColumn;
dxDBGrid1Column17: TdxDBGridMaskColumn;
dxDBGrid1Column18: TdxDBGridDateColumn;
dxDBGrid1Column19: TdxDBGridDateColumn;
dxDBGrid1Column20: TdxDBGridDateColumn;
dxDBGrid1Column22: TdxDBGridMaskColumn;
dxDBGrid1Column23: TdxDBGridMaskColumn;
dxDBGrid1Column28: TdxDBGridMaskColumn;
dxDBGrid1Column29: TdxDBGridMaskColumn;
dxDBGrid1Column30: TdxDBGridMaskColumn;
dxDBGrid1Column31: TdxDBGridMaskColumn;
dxDBGrid1Column32: TdxDBGridMaskColumn;
dxDBGrid1Column33: TdxDBGridDateColumn;
dxDBGrid1Column34: TdxDBGridMaskColumn;
dxDBGrid1Column35: TdxDBGridMaskColumn;
dxDBGrid1Column36: TdxDBGridMaskColumn;
dxDBGrid1Column37: TdxDBGridMaskColumn;
dxDBGrid1Column38: TdxDBGridMaskColumn;
dxDBGrid1Column39: TdxDBGridMaskColumn;
dxDBGrid1Column40: TdxDBGridMaskColumn;
dxDBGrid1Column41: TdxDBGridColumn;
dxDBGrid1Column42: TdxDBGridColumn;
dxDBGrid11: TdxDBGridMaskColumn;
dxDBGrid12: TdxDBGridMaskColumn;
dxDBGrid13: TdxDBGridMaskColumn;
dxDBGrid14: TdxDBGridMaskColumn;
dxDBGrid15: TdxDBGridMaskColumn;
dxDBGrid16: TdxDBGridMaskColumn;
dxDBGrid17: TdxDBGridMaskColumn;
dxDBGrid18: TdxDBGridMaskColumn;
dxDBGrid19: TdxDBGridMaskColumn;
dxDBGrid110: TdxDBGridMaskColumn;
dxDBGrid1Column63: TdxDBGridMaskColumn;
dxDBGrid1TEU: TdxDBGridMaskColumn;
dxDBGrid1Column65: TdxDBGridMaskColumn;
dxDBGrid1Column66: TdxDBGridMaskColumn;
dxDBGrid1Column67: TdxDBGridDateColumn;
dxDBGrid1Column68: TdxDBGridMaskColumn;
dxDBGrid1Column69: TdxDBGridMaskColumn;
dxDBGrid1Column70: TdxDBGridMaskColumn;
dxDBGrid1Column71: TdxDBGridMaskColumn;
dxDBGrid1Column72: TdxDBGridMaskColumn;
dxDBGrid1Column97: TdxDBGridMaskColumn;
dxDBGrid1Column119: TdxDBGridColumn;
dxDBGrid1Column120: TdxDBGridColumn;
dxDBGrid1Column122: TdxDBGridCheckColumn;
dxDBGrid1Column124: TdxDBGridColumn;
dxDBGrid1Column125: TdxDBGridColumn;
dxDBGrid1Column126: TdxDBGridColumn;
SaveDialog1: TSaveDialog;
t_op_ctn1: TDataSource;
t_op_ctn: TADOQuery;
Label20: TLabel;
Label124: TLabel;
RxDBLookupCombo28: TRxDBLookupCombo;
Label35: TLabel;
bsSkinButton9: TbsSkinButton;
RxDBLookupCombo22: TRxDBLookupCombo;
RxDBLookupCombo8: TRxDBLookupCombo;
procedure bsSkinButton5Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure N10Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure bsSkinButton6Click(Sender: TObject);
procedure dxDBGrid1Column4CustomDrawCell(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxTreeListColumn; ASelected, AFocused,
ANewItemRow: Boolean; var AText: String; var AColor: TColor;
AFont: TFont; var AAlignment: TAlignment; var ADone: Boolean);
procedure dxDBGrid1ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure bsSkinButton2Click(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure bsSkinCheckRadioBox2Click(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure bsSkinButton9Click(Sender: TObject);
private
{ Private declarations }
seaestr,seaedelstr:string ;
function findstr:string ;
procedure setFootermsg;
function CreateIFCSUMEdiFile:TStrings;
function CreateEdiFile:TStrings;
public
{ Public declarations }
end;
var
frm_op_seai_list: Tfrm_op_seai_list;
implementation
{$R *.dfm}
uses u_main,my_sys_function,u_data_share ;
procedure Tfrm_op_seai_list.bsSkinButton5Click(Sender: TObject);
begin
close ;
end;
procedure Tfrm_op_seai_list.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
savereggrid(dxdbgrid1,caption+'1');
frm_op_seai_list.Hide;
frm_op_seai_list.ManualFloat(frm_op_seai_list.BoundsRect );
frm_main.freeTabs('frm_op_seai_list');
action:=cafree;
frm_op_seai_list:=nil;
end;
procedure Tfrm_op_seai_list.N10Click(Sender: TObject);
begin
update_grid_view_no(dxdbgrid1);
end;
procedure Tfrm_op_seai_list.N14Click(Sender: TObject);
begin
update_grid_view_all(dxdbgrid1);
end;
procedure Tfrm_op_seai_list.N12Click(Sender: TObject);
begin
update_grid(dxdbgrid1,210);
end;
procedure Tfrm_op_seai_list.N16Click(Sender: TObject);
begin
grid_save_xls(dxdbgrid1);
end;
procedure Tfrm_op_seai_list.FormShow(Sender: TObject);
var i:integer ;
begin
loadreggrid(dxdbgrid1,true,caption+'1');
bsSkinCheckRadioBox2.checked:=True;
end;
procedure Tfrm_op_seai_list.bsSkinButton6Click(Sender: TObject);
begin
edit2.text:='' ;
edit7.Text:='' ;
wwDBDateTimePicker1.Clear ;
wwDBDateTimePicker2.Clear ;
RxDBLookupCombo6.ClearValue ;
wwDBLookupCombo49.clear ;
RxDBLookupCombo22.ClearValue ;
RxDBLookupCombo8.ClearValue ;
end;
function Tfrm_op_seai_list.findstr: string;
begin
end;
procedure Tfrm_op_seai_list.setFootermsg;
var backteu,ggteu,thcteu:integer ;
i,teu1,teu2,teu3,teu4,teu5,teu6,teu7,teu8,teu9,teu10,teuot,teuall:integer;
steu:string;
teu:Array [1..10] of integer;
begin
{
lblcount.Caption:='Ʊ<><C6B1> <20><>: '+inttostr(t_op_seae.recordcount) ;
ggteu:=0 ; backteu:=0 ;thcteu:=0 ;
teu[1]:=0;
teu[2]:=0;
teu[3]:=0;
teu[4]:=0;
teu[5]:=0;
teu[6]:=0;
teu[7]:=0;
teu[8]:=0;
teu[9]:=0;
teu[10]:=0;
teuot:=0;
teuall:=0;
with t_op_seae do
begin
disablecontrols ;
first ;
while not eof do
begin
teu[1]:=teu[1]+fieldbyname('<27><><EFBFBD><EFBFBD>1').AsInteger;
teu[2]:=teu[2]+fieldbyname('<27><><EFBFBD><EFBFBD>2').AsInteger;
teu[3]:=teu[3]+fieldbyname('<27><><EFBFBD><EFBFBD>3').AsInteger;
teu[4]:=teu[4]+fieldbyname('<27><><EFBFBD><EFBFBD>4').AsInteger;
teu[5]:=teu[5]+fieldbyname('<27><><EFBFBD><EFBFBD>5').AsInteger;
teu[6]:=teu[6]+fieldbyname('<27><><EFBFBD><EFBFBD>6').AsInteger;
teu[7]:=teu[7]+fieldbyname('<27><><EFBFBD><EFBFBD>7').AsInteger;
teu[8]:=teu[8]+fieldbyname('<27><><EFBFBD><EFBFBD>8').AsInteger;
teu[9]:=teu[9]+fieldbyname('<27><><EFBFBD><EFBFBD>9').AsInteger;
teu[10]:=teu[10]+fieldbyname('<27><><EFBFBD><EFBFBD>10').AsInteger;
teuot:=teuot+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsInteger;
teuall:=teuall+fieldbyname('<27><>TEU').AsInteger;
next ;
end ;
enablecontrols ;
steu:='<27><>װ<EFBFBD><D7B0>:';
for i:=1 to 10 do
begin
try
if trim(frm_data_share.t_code_ctn_de.fieldbyname('<27><><EFBFBD><EFBFBD>'+inttostr(i)).asstring)<>'' then
begin
if frm_data_share.t_code_ctn.locate('<27><><EFBFBD><EFBFBD>',trim(frm_data_share.t_code_ctn_de.fieldbyname('<27><><EFBFBD><EFBFBD>'+inttostr(i)).asstring),[]) then
begin
steu:=steu+' '+trim(frm_data_share.t_code_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').asstring)+': '+inttostr(teu[i]);
end;
end
else
begin
end;
except
;
end;
end;
steu:=steu+' '+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: '+inttostr(teuot);
steu:=steu+' '+'<27>ϼ<EFBFBD>TEU: '+inttostr(teuall);
lblcount.Caption:='Ʊ<><C6B1><EFBFBD><EFBFBD>: '+inttostr(t_op_seae.recordcount) ;
lblcount.Caption:=lblcount.Caption+' '+steu;
end ;
}
end;
procedure Tfrm_op_seai_list.dxDBGrid1Column4CustomDrawCell(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean;
var AText: String; var AColor: TColor; AFont: TFont;
var AAlignment: TAlignment; var ADone: Boolean);
begin
AColor:=dxgrid_color('<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>',ANode.Strings[dxDBGrid1Column4.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_op_seai_list.dxDBGrid1ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort(Column,t_op_seae,'<27><><EFBFBD><EFBFBD>');
end;
procedure Tfrm_op_seai_list.bsSkinButton2Click(Sender: TObject);
var str,delstr:string ;
begin
str:='where 1=1 ';
if edit2.text<>'' then str:=str+' and <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit2.text+'%'+'''';
if edit7.text<>'' then str:=str+' and <20><><EFBFBD><EFBFBD> like '+''''+'%'+Edit7.text+'%'+'''';
if wwDBLookupCombo49.text<>''then
str:=str+' and <20><><EFBFBD><EFBFBD> like '+''''+'%'+wwDBLookupCombo49.text+'%'+'''';
if wwDBDateTimePicker1.text<>''then
str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker1.text+'''';
if wwDBDateTimePicker2.text<>''then
str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker2.text+'''';
if RxDBLookupCombo22.DisplayValue<>''then
str:=str+' and װ<>۴<EFBFBD><DBB4><EFBFBD>='+''''+RxDBLookupCombo22.DisplayValues[2]+'''';
if RxDBLookupCombo8.DisplayValue<>''then
str:=str+' and ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo8.DisplayValues[2]+'''';
if RxDBLookupCombo6.DisplayValues[1]<>'' then str:=str+' and <20><><EFBFBD><EFBFBD>˾='+''''+RxDBLookupCombo6.DisplayValues[1]+'''';
screen.Cursor:=crSQLwait ;
try
with t_op_seae,SQL do
begin
close ; Clear ;
add('select * from t_op_seai ');
add(str);
open ;
end ;
setfootermsg ;
finally
screen.Cursor:=crDefault ;
end ;
end;
procedure Tfrm_op_seai_list.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
if t_code_sendedi.State in [dsedit,dsinsert] then
t_code_sendedi.post;
end;
procedure Tfrm_op_seai_list.bsSkinCheckRadioBox2Click(Sender: TObject);
begin
if t_code_sendedi.State in [dsedit,dsinsert] then
t_code_sendedi.post;
if bsSkinCheckRadioBox2.Checked then begin
t_code_sendedi.close;
t_code_sendedi.SQL.Text:='select * from t_code_sendedi where EDI<44><49><EFBFBD><EFBFBD>='''+bsSkinCheckRadioBox2.Caption+'''';
t_code_sendedi.Open;
if t_code_sendedi.IsEmpty then begin
t_code_sendedi.Insert;
t_code_sendedi.FieldByName('EDI<44><49><EFBFBD><EFBFBD>').AsString:=bsSkinCheckRadioBox2.Caption;
t_code_sendedi.post;
end;
end;
end;
function Tfrm_op_seai_list.CreateEdiFile: TStrings;
begin
end;
function Tfrm_op_seai_list.CreateIFCSUMEdiFile: TStrings;
var
Str,sl1,sl:TStringList;
i,l,M:integer;
SenderCode,ReciverCode,strtemp:String;
aQuery:TADOQuery;
function GetShipperString:String;
var
TempStr:TStringList;
begin
TempStr:=TStringList.Create;
try
TempStr.Text:=FormatEdiString(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>').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
TempStr.Text:=FormatEdiString(t_op_seae.fieldbyname('<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>').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
TempStr.Text:=FormatEdiString(t_op_seae.fieldbyname('֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>').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
TempStr.Text:=FormatEdiString(t_op_seae.fieldbyname('<27><>ͷ').AsString);
GetLengthTString(TempStr,35);
Result:='44:';
Result:=Result+FormatListString(TempStr,10,35)+'''';
finally
FreeAndNil(TempStr);
end;
end;
begin
str:=Tstringlist.Create;
sl1:=Tstringlist.Create;
sl:=Tstringlist.Create;
aQuery:=CreateAdoQuery;
try
SenderCode:=trim(DBEdit9.Text) ;
ReciverCode:=trim(DBEdit7.Text) ;
str.Add('00:IFCSUM:MANIFEST:9:'+ SenderCode+':'+ReciverCode+':'+GetDatetime(datetimetostr(now),1)+#39);
str.Add('10::' + trim(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring) +'::'
+ trim(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring)+':::'
+ GetDatetime(datetimetostr(t_op_seae.fieldbyname('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime),0)+':'
+ GetDatetime(datetimetostr(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime),0)+':'
+trim(t_op_seae.fieldbyname('װ<>۴<EFBFBD><DBB4><EFBFBD>').asstring)+':'
+trim(t_op_seae.fieldbyname('װ<><D7B0><EFBFBD><EFBFBD>').asstring)+':'
+trim(t_op_seae.fieldbyname('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring) +':'
+trim(t_op_seae.fieldbyname('ж<><D0B6><EFBFBD><EFBFBD>').asstring)+#39);
str.Add('11:'+ SenderCode+#39);
t_op_seae.First;
while not t_op_seae.eof do begin
if frm_data_share.t_code_free.locate('<27><><EFBFBD>ѷ<EFBFBD>ʽ',t_op_seae.fieldbyname('<27><><EFBFBD>ѷ<EFBFBD>ʽ').asstring,[]) then
begin
strtemp:=copy(frm_data_share.t_code_free.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,1,1);
end
else
begin
strtemp:='P';
end;
str.Add('12:'
+ trim(t_op_seae.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring) +'::::'
+':'
+':'
+trim(t_op_seae.fieldbyname('װ<>۴<EFBFBD><DBB4><EFBFBD>').asstring)+':'
+trim(t_op_seae.fieldbyname('װ<><D7B0><EFBFBD><EFBFBD>').asstring)+':'
+ trim(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring) +':'
+ strtemp+':'
+ GetDatetime(trim(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring),0)+'::'
+ GetDatetime(trim(t_op_seae.fieldbyname('ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring),0)+':'
+'::'
+#39); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӫ<EFBFBD><D3AA>
str.Add ('13:'+trim(t_op_seae.fieldbyname('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring) +':'
+trim(t_op_seae.fieldbyname('ж<><D0B6><EFBFBD><EFBFBD>').asstring)+':'
+trim(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring) +':'
+trim(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>').asstring) +'::::'
+#39);
Str.Add(GetShipperString);
Str.Add(GetConsigneString);
Str.Add(GetNOTIFYString);
aQuery.Close;
aQuery.SQL.Text:='select * from t_op_yp_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'''';
aQuery.Open;
if not aQuery.IsEmpty then begin
while not aQuery.Eof do begin
str.Add ('21:'+Trim(GetCntrEdi(aQuery.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring))+':'+trim(aQuery.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring)+':'
+':'+trim(aQuery.fieldbyname('<27><>״̬').asstring)+':'
+':::::'+''''
);
aQuery.Next;
end;
end;
str.Add ('41:1::'+trim(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ').asstring)+':' // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ S/R/D/O
+trim(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring) +':'
+trim(GetpkgsEdi(t_op_seae.fieldbyname('<27><>װ').asstring))+':'
+trim(t_op_seae.fieldbyname('<27><>װ').asstring) +':' //<2F><>һ<EFBFBD><D2BB><EFBFBD><EFBFBD>װ˵<D7B0><CBB5>
+trim(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring) +'::' //<2F><>һ<EFBFBD><D2BB><EFBFBD><EFBFBD>װ˵<D7B0><CBB5>
+trim(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring) +#39);
IF trim(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ').asstring)='R' THEN
BEGIN
str.Add ('43:' // Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD>䶳
+':'
+':'
+':'
+':'
+':'
+':'
+':'
+':'
+trim(t_op_seae.fieldbyname('<27>¶ȵ<C2B6>λ').asstring) +':'
+trim(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring) +':'
+trim(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring) +':'
+trim(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring) +#39);
END;
IF trim(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ').asstring)='D'THEN
BEGIN
str.Add ('43:' // Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD>䶳
+trim(t_op_seae.fieldbyname('Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>').asstring) +':'
+trim(t_op_seae.fieldbyname('Σ<><CEA3>Ʒҳ<C6B7><D2B3>').asstring) +':'
+trim(t_op_seae.fieldbyname('Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>').asstring) +':'
+':'
+':'
+':'
+':'
+'::'
+':'
+':'
+#39);
END;
Str.Add(GetMARKSString);
sl1.Text:=FormatEdiString(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').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
strtemp:='47:'+sl.Strings[L]+':';
end else begin
if M=5 then
strtemp:=strtemp+sl.Strings[L]
else
strtemp:=strtemp+sl.Strings[L]+':';
end;
end else begin
strtemp:=strtemp+'''';
Str.Add(strtemp);
M:=1;
strtemp:='47:'+sl.Strings[L]+':';
end;
M:=M+1;
end;
strtemp:=strtemp+'''';
Str.Add(strtemp);
aQuery.Close;
aQuery.SQL.Text:='select * from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'''';
aQuery.Open;
if not aQuery.IsEmpty then begin
while not aQuery.Eof do begin
str.Add ('51:1:'+trim(aQuery.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring)+':'+trim(aQuery.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring)+':'
+Trim(GetCntrEdi(aQuery.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring))+':'+trim(aQuery.fieldbyname('<27><>״̬').asstring)
+':'+trim(IntToStr(aQuery.fieldbyname('<27><><EFBFBD><EFBFBD>').AsInteger))+':'+trim(FloatToStr(aQuery.fieldbyname('<27><><EFBFBD><EFBFBD>').AsFloat))+':'
+trim(FloatToStr(aQuery.fieldbyname('<27><>Ƥ<EFBFBD><C6A4>').AsFloat))+':'+trim(FloatToStr(aQuery.fieldbyname('<27><><EFBFBD><EFBFBD>').AsFloat))+'::::::'
+trim(aQuery.fieldbyname('<27><>λ').asstring)+''''
);
aQuery.Next;
end;
end;
t_op_seae.Next;
end;
I:=str.Count;
str.Add('99:'+intToStr(i+1)+'''');
{
for i:=0 to Str.Count-1 do begin
if IsZhongwen(Str[i]) then begin
MessageDlg('<27><>Ʊҵ<C6B1><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD>TAB<41>Ȳ<EFBFBD><C8B2>淶<EFBFBD>ַ<EFBFBD>,<2C><>ȥ<EFBFBD><C8A5><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ԣ<EFBFBD>',mtWarning,[mbYes],0);
exit;
end;
end;
}
SaveDialog1.FileName:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
if SaveDialog1.Execute then
begin
str.SaveToFile(SaveDialog1.FileName+'.txt');
showmessage('<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD>ɳɹ<C9B3><C9B9><EFBFBD>');
end
else
begin
showmessage('<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>');
exit;
end;
finally
FreeAndNil(Str);
end;
end;
procedure Tfrm_op_seai_list.bsSkinButton1Click(Sender: TObject);
begin
if bsSkinCheckRadioBox2.Checked then
CreateIFCSUMEdiFile;
end;
procedure Tfrm_op_seai_list.bsSkinButton9Click(Sender: TObject);
begin
if not t_op_ctn.Active then t_op_ctn.Open;
try
sys_print('<27><><EFBFBD>˽<EFBFBD><CBBD>ڲյ<DAB2>',2,t_op_seae1,nil,nil,nil,t_op_seae1,t_op_ctn1,nil,nil,nil,nil,nil);
finally
t_op_ctn.Close;
end;
end;
end.
Reference in New Issue View Git Blame Copy Permalink