hanxuntao
/
DS6JIEFENG
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 '48f045977c'
${ noResults }
DS6JIEFENG/海运业务/u_op_ctn.~pas

1795 lines
60 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_ctn;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, bsSkinCtrls, BusinessSkinForm, Grids, Wwdbigrd, Wwdbgrid,
StdCtrls, wwdblook, DB, ADODB, Mask, wwdbedit, Wwdotdot, Wwdbcomb,
DBGridEh, ExtCtrls, DBCtrls, Menus,ComObj, inifiles,
Rio, SOAPHTTPClient,InvokeRegistry,DyxtService,Service,jfczService,BLService,myService,
DBClient,XMLIntf,XMLDoc, xmldom, Xmlxform, kbmMemTable,superobject,
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP ;
type
Tfrm_op_ctn = class(TForm)
bsBusinessSkinForm1: TbsBusinessSkinForm;
wwDBGrid1: TwwDBGrid;
wwDBLookupCombo1: TwwDBLookupCombo;
wwDBLookupCombo2: TwwDBLookupCombo;
t_op_ctn: TADOQuery;
t_op_ctn1: TDataSource;
Memo1: TMemo;
Memo2: TMemo;
Memo3: TMemo;
Memo4: TMemo;
bsSkinPanel1: TbsSkinPanel;
bsSkinButton1: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
bsSkinButton4: TbsSkinButton;
bsSkinButton3: TbsSkinButton;
bsSkinButton6: TbsSkinButton;
bsSkinButton5: TbsSkinButton;
wwDBLookupCombo4: TwwDBLookupCombo;
bsSkinPanel2: TbsSkinPanel;
Splitter1: TSplitter;
t_op_ctndetail1: TDataSource;
wwDBLookupCombo5: TwwDBLookupCombo;
wwDBLookupCombo3: TwwDBLookupCombo;
t_op_ctndetail: TADOQuery;
DBGridEh1: TDBGridEh;
bsSkinButton9: TbsSkinButton;
t_ch_client: TADOQuery;
t_ch_client1: TDataSource;
t_op_ctnsum1: TDataSource;
t_op_ctnsum: TADOQuery;
bsSkinPanel3: TbsSkinPanel;
Label1: TLabel;
DBText1: TDBText;
Label2: TLabel;
DBText2: TDBText;
DBText3: TDBText;
Label3: TLabel;
DBText4: TDBText;
Label4: TLabel;
Label5: TLabel;
DBText5: TDBText;
PopupMenu1: TPopupMenu;
N2: TMenuItem;
N3: TMenuItem;
N7: TMenuItem;
bsSkinButton7: TbsSkinButton;
bsSkinButton8: TbsSkinButton;
bsSkinButton10: TbsSkinButton;
Panel1: TPanel;
DBNavigator1: TDBNavigator;
bsSkinButton11: TbsSkinButton;
Button1: TButton;
bsSkinButton12: TbsSkinButton;
bsSkinButton13: TbsSkinButton;
OpenDialog1: TOpenDialog;
Button2: TButton;
wwDBLookupCombo61: TwwDBLookupCombo;
kbmMemTable1: TkbmMemTable;
kbmMemTable1StringField: TStringField;
kbmMemTable1StringField2: TStringField;
kbmMemTable1IntegerField: TIntegerField;
kbmMemTable1StringField3: TStringField;
kbmMemTable1FloatField: TFloatField;
kbmMemTable1FloatField2: TFloatField;
kbmMemTable1StringField4: TStringField;
kbmMemTable1StringField5: TStringField;
kbmMemTable1StringField6: TStringField;
wwDBComboBox1: TwwDBComboBox;
wwDBComboBox2: TwwDBComboBox;
btn1: TButton;
txt1: TStaticText;
bsSkinButton15: TbsSkinButton;
kbmMemTable1Field: TFloatField;
procedure t_op_ctnAfterInsert(DataSet: TDataSet);
procedure t_op_ctnBeforePost(DataSet: TDataSet);
procedure bsSkinButton2Click(Sender: TObject);
procedure bsSkinButton4Click(Sender: TObject);
procedure bsSkinButton3Click(Sender: TObject);
procedure bsSkinButton5Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure wwDBLookupCombo1Change(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure bsSkinButton6Click(Sender: TObject);
procedure t_op_ctnBeforeDelete(DataSet: TDataSet);
procedure t_op_ctnBeforeEdit(DataSet: TDataSet);
procedure t_op_ctnAfterPost(DataSet: TDataSet);
procedure t_op_ctndetailBeforeInsert(DataSet: TDataSet);
procedure t_op_ctndetailNewRecord(DataSet: TDataSet);
procedure bsSkinButton9Click(Sender: TObject);
procedure t_op_ctnAfterOpen(DataSet: TDataSet);
procedure N2Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure bsSkinButton7Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure bsSkinButton8Click(Sender: TObject);
procedure bsSkinButton10Click(Sender: TObject);
procedure bsSkinButton11Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure bsSkinButton12Click(Sender: TObject);
procedure bsSkinButton13Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure btn1Click(Sender: TObject);
procedure bsSkinButton15Click(Sender: TObject);
private
{ Private declarations }
mServiceSoap_dy:DyxtServiceSoap;
mServiceSoap_yzh:ServiceSoap;
mHttpRIO_dy,mHttpRIO_yzh:THTTPRIO;
procedure Updatebs;
public
{ Public declarations }
dbserver:string;
procedure getwebservice_dy;
procedure getwebservice_yzh;
procedure dewebservice;
procedure GetdyczInfo_dy(s_caragt,s_key,s_billno,bsno:String);
procedure GetdyczInfo_yzh(s_caragt,s_key,s_billno,bsno:String);
procedure GetdyczInfo_jfcz(s_caragt,s_key,s_billno,bsno:String);
procedure GetdyczInfo_lhcz(s_caragt,s_key,s_billno,bsno:String);
function getYardCode(yard:string):string;
end;
var
frm_op_ctn: Tfrm_op_ctn;
frm_op_ctn_type:boolean;
op_ctn_limited:string;
implementation
uses u_data_share, my_sys_function, u_op_seae, u_op_seai, u_main,
u_op_seae_ctn;
{$R *.dfm}
procedure Tfrm_op_ctn.getwebservice_dy;
begin
try
mHttpRIO_dy:=THTTPRIO.Create(nil);
mHttpRIO_dy.WSDLLocation:='http://www.yydy.com/GacoWebService/DyxtService.asmx?WSDL';
mHttpRIO_dy.URL:='http://www.yydy.com/GacoWebService/DyxtService.asmx';
mHttpRIO_dy.Port:='DyxtServiceSoap';
mHttpRIO_dy.Service:='DyxtWebService';
mHttpRIO_dy.HTTPWebNode.UseUTF8InHeader:=true;
mServiceSoap_dy:=mHttpRIO_dy as DyxtServiceSoap;
InvRegistry.RegisterInvokeOptions(TypeInfo(DyxtServiceSoap),ioDocument );//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD><D2BB>
except
on E:Exception do
begin
ShowMessage(e.Message);
exit;
end;
end;
end;
procedure Tfrm_op_ctn.getwebservice_yzh;
begin
try
mHttpRIO_yzh:=THTTPRIO.Create(nil);
//170<37>ij<EFBFBD>186
mHttpRIO_yzh.WSDLLocation:='http://222.173.95.186:78/selectservice/Service.asmx?WSDL';
mHttpRIO_yzh.URL:='http://222.173.95.186:78/selectservice/Service.asmx';
mHttpRIO_yzh.Port:='ServiceSoap';
mHttpRIO_yzh.Service:='WebService';
mHttpRIO_yzh.HTTPWebNode.UseUTF8InHeader:=true;
mServiceSoap_yzh:=mHttpRIO_yzh as ServiceSoap;
InvRegistry.RegisterInvokeOptions(TypeInfo(ServiceSoap),ioDocument );//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD><D2BB>
{
mHttpRIO_yzh:=THTTPRIO.Create(nil);
mHttpRIO_yzh.WSDLLocation:='http://www.eimskipdepot.com:78/Service.asmx?WSDL';
mHttpRIO_yzh.URL:='http://www.eimskipdepot.com:78/Service.asmx';
mHttpRIO_yzh.Port:='ServiceSoap';
mHttpRIO_yzh.Service:='WebService';
mHttpRIO_yzh.HTTPWebNode.UseUTF8InHeader:=true;
mServiceSoap_yzh:=mHttpRIO_yzh as ServiceSoap;
InvRegistry.RegisterInvokeOptions(TypeInfo(ServiceSoap),ioDocument );//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD><D2BB>
}
except
on E:Exception do
begin
ShowMessage(e.Message);
exit;
end;
end;
end;
procedure Tfrm_op_ctn.dewebservice;
begin
mHttpRIO_dy.Free;
end;
procedure Tfrm_op_ctn.GetdyczInfo_jfcz(s_caragt,s_key,s_billno,bsno:String);
var
b:Boolean;
s_web: WideString;
xmldoc:IXMLDocument;
cds:TClientDataSet;
XMLTransformProvider1:TXMLTransformProvider;
s_ctnno,s_ctnType:string;
smartWS:BLServiceSoap;
sltcnt:GetLTCntrInfoResult;
begin
try
t_op_ctn.DisableControls;
cds:=TClientDataSet.Create(nil);
XMLTransformProvider1:=TXMLTransformProvider.Create(NIL);
sltcnt:=GetLTCntrInfoResult.Create;
cds.Active:=false;
xmldoc:=NewXMLDocument;
xmldoc.Encoding:='UTF-8';
smartWS:=GetBLServiceSoap(False,'');
s_web:=smartWS.GetBLNoInfo(s_billno,'18315FA0-8E5A-4935-8369-91BE89BC6B6A');
//ShowMessage(s_web);
xmldoc.LoadFromXML(s_web);
xmldoc.SaveToFile('c:\JFCZ.xml');
if FileExists(ExtractFilePath(Application.ExeName)+'jfcz\jfcz.xtr') then
begin
XMLTransformProvider1.TransformRead.TransformationFile:=ExtractFilePath(Application.ExeName)+'jfcz\jfcz.xtr';
end
else
begin
CreateDirectory(pChar(ExtractFilePath(Application.ExeName)+'jfcz'),nil);
CopyFile(pChar('\\'+dbserver+'\jfcz\jfcz.xtr'),pChar(ExtractFilePath(Application.ExeName)+'jfcz\jfcz.xtr'),True);
XMLTransformProvider1.TransformRead.TransformationFile:=ExtractFilePath(Application.ExeName)+'jfcz\jfcz.xtr';
end;
// XMLTransformProvider1.TransformRead.TransformationFile:='\\'+dbserver+'\jfcz\jfcz.xtr';
XMLTransformProvider1.TransformRead.SourceXmlDocument:=xmldoc.GetDOMDocument;
cds.Data:=XMLTransformProvider1.Data;
cds.Active:=true;
kbmMemTable1.EmptyTable;
kbmMemTable1.Open;
with cds do
begin
First;
while not Eof do
begin
if kbmMemTable1.Locate('<27><><EFBFBD><EFBFBD>',Trim(FieldByName('CNTRNO').AsString),[]) then
begin
kbmMemTable1.Edit;
s_ctnno:=Trim(FieldByName('CNTRSIZE').AsString);
s_ctnType:=Trim(FieldByName('CNTRTYPE').AsString);
if frm_data_share.t_code_ctn.Locate('<27>ߴ<EFBFBD>;<3B><><EFBFBD><EFBFBD>',VarArrayOf([trim(s_ctnno),trim(s_ctnType)]), []) then
begin
kbmMemTable1.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=frm_data_share.t_code_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
end;
kbmMemTable1.FieldByName('<27>ߴ<EFBFBD>').AsString:=FieldByName('CNTRSIZE').AsString;
kbmMemTable1.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=FieldByName('CNTRTYPE').AsString;
kbmMemTable1.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=FieldByName('SEALNO').AsString;
kbmMemTable1.FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger:=kbmMemTable1.FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger+FieldByName('CARGOQTY').AsInteger;
kbmMemTable1.FieldByName('<27><>װ').AsString:=FieldByName('CO_PKGCODE').AsString;
kbmMemTable1.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=kbmMemTable1.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat+FieldByName('CARGOWEIGHT').AsFloat;
kbmMemTable1.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=kbmMemTable1.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat+FieldByName('CARGOVOLUME').AsFloat;
if (cds.FindField('BOXWEIGHT')<>nil) then begin
end;
kbmMemTable1.Post;
end
else
begin
kbmMemTable1.append;
s_ctnno:=Trim(FieldByName('CNTRSIZE').AsString);
s_ctnType:=Trim(FieldByName('CNTRTYPE').AsString);
if frm_data_share.t_code_ctn.Locate('<27>ߴ<EFBFBD>;<3B><><EFBFBD><EFBFBD>',VarArrayOf([trim(s_ctnno),trim(s_ctnType)]), []) then
begin
kbmMemTable1.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=frm_data_share.t_code_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
end;
kbmMemTable1.FieldByName('<27>ߴ<EFBFBD>').AsString:=FieldByName('CNTRSIZE').AsString;
kbmMemTable1.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=FieldByName('CNTRTYPE').AsString;
kbmMemTable1.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=FieldByName('CNTRNO').AsString;
kbmMemTable1.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=FieldByName('SEALNO').AsString;
kbmMemTable1.FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger:=FieldByName('CARGOQTY').AsInteger;
kbmMemTable1.FieldByName('<27><>װ').AsString:=FieldByName('CO_PKGCODE').AsString;
kbmMemTable1.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=FieldByName('CARGOWEIGHT').AsFloat;
kbmMemTable1.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=FieldByName('CARGOVOLUME').AsFloat;
kbmMemTable1.Post;
end;
Next;
end;
end;
with kbmMemTable1 do
begin
First;
while not Eof do
begin
if t_op_ctn.Locate('<27><><EFBFBD><EFBFBD>',Trim(FieldByName('<27><><EFBFBD><EFBFBD>').AsString),[]) then
begin
t_op_ctn.Edit;
s_ctnno:=Trim(FieldByName('<27>ߴ<EFBFBD>').AsString);
s_ctnType:=Trim(FieldByName('<27><><EFBFBD><EFBFBD>').AsString);
if frm_data_share.t_code_ctn.Locate('<27>ߴ<EFBFBD>;<3B><><EFBFBD><EFBFBD>',VarArrayOf([trim(s_ctnno),trim(s_ctnType)]), []) then
begin
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=frm_data_share.t_code_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
end;
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger:=FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger;
t_op_ctn.FieldByName('<27><>װ').AsString:=FieldByName('<27><>װ').AsString;
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat;
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat;
t_op_ctn.Post;
end
else
begin
t_op_ctn.append;
s_ctnno:=Trim(FieldByName('<27>ߴ<EFBFBD>').AsString);
s_ctnType:=Trim(FieldByName('<27><><EFBFBD><EFBFBD>').AsString);
if frm_data_share.t_code_ctn.Locate('<27>ߴ<EFBFBD>;<3B><><EFBFBD><EFBFBD>',VarArrayOf([trim(s_ctnno),trim(s_ctnType)]), []) then
begin
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=frm_data_share.t_code_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
end;
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger:=FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger;
t_op_ctn.FieldByName('<27><>װ').AsString:=FieldByName('<27><>װ').AsString;
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat;
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat;
t_op_ctn.Post;
end;
Next;
end;
end;
finally
t_op_ctn.EnableControls;
cds.Free;
end;
end;
procedure Tfrm_op_ctn.GetdyczInfo_dy(s_caragt,s_key,s_billno,bsno:String);
var
b:Boolean;
s_web: WideString;
xmldoc:IXMLDocument;
cds:TClientDataSet;
XMLTransformProvider1:TXMLTransformProvider;
s_ctnno,s_ctnType:string;
begin
try
t_op_ctn.DisableControls;
getwebservice_dy;
cds:=TClientDataSet.Create(nil);
XMLTransformProvider1:=TXMLTransformProvider.Create(NIL);
// s_billno:='HLCUTA1130371756'; //QDJY000476
cds.Active:=false;
xmldoc:=NewXMLDocument;
xmldoc.Encoding:='UTF-8';
s_web:=mServiceSoap_dy.GetCtnChargeXml(s_caragt,s_key,s_billno,'','1');
xmldoc.LoadFromXML(s_web);
xmldoc.SaveToFile('c:\<5C><><EFBFBD><EFBFBD>.xml');
if FileExists(ExtractFilePath(Application.ExeName)+'<27><><EFBFBD>dz<EFBFBD>վ\<5C><><EFBFBD><EFBFBD>.xtr') then
begin
XMLTransformProvider1.TransformRead.TransformationFile:=ExtractFilePath(Application.ExeName)+'<27><><EFBFBD>dz<EFBFBD>վ\<5C><><EFBFBD><EFBFBD>.xtr';
end
else
begin
CreateDirectory(pChar(ExtractFilePath(Application.ExeName)+'<27><><EFBFBD>dz<EFBFBD>վ'),nil);
CopyFile(pChar('\\'+dbserver+'\<5C><><EFBFBD>dz<EFBFBD>վ\<5C><><EFBFBD><EFBFBD>.xtr'),pChar(ExtractFilePath(Application.ExeName)+'<27><><EFBFBD>dz<EFBFBD>վ\<5C><><EFBFBD><EFBFBD>.xtr'),True);
XMLTransformProvider1.TransformRead.TransformationFile:=ExtractFilePath(Application.ExeName)+'<27><><EFBFBD>dz<EFBFBD>վ\<5C><><EFBFBD><EFBFBD>.xtr';
//XMLTransformProvider1.TransformRead.TransformationFile:='\\'+dbserver+'\<5C><><EFBFBD>dz<EFBFBD>վ\<5C><><EFBFBD><EFBFBD>.xtr';
//XMLTransformProvider1.TransformRead.TransformationFile:='\\'+dbserver+'\<5C><><EFBFBD>dz<EFBFBD>վ\<5C><><EFBFBD><EFBFBD>.xtr';
end;
XMLTransformProvider1.TransformRead.SourceXmlDocument:=xmldoc.GetDOMDocument;
cds.Data:=XMLTransformProvider1.Data;
cds.Active:=true;
with cds do
begin
First;
while not Eof do
begin
if t_op_ctn.Locate('<27><><EFBFBD><EFBFBD>',Trim(FieldByName('CTNNO').AsString),[]) then
begin
t_op_ctn.Edit;
s_ctnno:=Trim(FieldByName('CTNSZ').AsString);
s_ctnType:=Trim(FieldByName('CTNTP').AsString);
if frm_data_share.t_code_ctn.Locate('<27>ߴ<EFBFBD>;<3B><><EFBFBD><EFBFBD>',VarArrayOf([trim(s_ctnno),trim(s_ctnType)]), []) then
begin
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=frm_data_share.t_code_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
end;
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=StringReplace(Copy(FieldByName('EMFUEDT').AsString,1,Pos('.',FieldByName('EMFUEDT').AsString)-1),'T',' ',[]);
t_op_ctn.Post;
end
else
begin
t_op_ctn.append;
s_ctnno:=Trim(FieldByName('CTNSZ').AsString);
s_ctnType:=Trim(FieldByName('CTNTP').AsString);
if frm_data_share.t_code_ctn.Locate('<27>ߴ<EFBFBD>;<3B><><EFBFBD><EFBFBD>',VarArrayOf([trim(s_ctnno),trim(s_ctnType)]), []) then
begin
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=frm_data_share.t_code_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
end;
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=Trim(FieldByName('CTNNO').AsString);
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=StringReplace(Copy(FieldByName('EMFUEDT').AsString,1,Pos('.',FieldByName('EMFUEDT').AsString)-1),'T',' ',[]);
{
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=VartoStr(ExcelTemplet.ActiveSheet.Cells[I,3].Value);
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=VartoStr(ExcelTemplet.ActiveSheet.Cells[I,6].Value);
t_op_ctn.FieldByName('<27><>װ').AsString:=VartoStr(ExcelTemplet.ActiveSheet.Cells[I,7].Value);
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=VartoStr(ExcelTemplet.ActiveSheet.Cells[I,8].Value);
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=VartoStr(ExcelTemplet.ActiveSheet.Cells[I,9].Value);
}
t_op_ctn.Post;
end;
Next;
end;
end;
s_web:=mServiceSoap_dy.GetBackFCtnInfoXml(s_caragt,s_key,s_billno,'','1');
xmldoc.LoadFromXML(s_web);
xmldoc.SaveToFile('c:\<5C><><EFBFBD>䷵<EFBFBD><E4B7B5>.xml');
if FileExists(ExtractFilePath(Application.ExeName)+'<27><><EFBFBD>dz<EFBFBD>վ\<5C><><EFBFBD>䷵<EFBFBD><E4B7B5>.xtr') then
begin
XMLTransformProvider1.TransformRead.TransformationFile:=ExtractFilePath(Application.ExeName)+'\<5C><><EFBFBD>dz<EFBFBD>վ\<5C><><EFBFBD>䷵<EFBFBD><E4B7B5>.xtr';
end
else
begin
CreateDirectory(pChar(ExtractFilePath(Application.ExeName)+'<27><><EFBFBD>dz<EFBFBD>վ'),nil);
CopyFile(pChar('\\'+dbserver+'\<5C><><EFBFBD>dz<EFBFBD>վ\<5C><><EFBFBD><EFBFBD>.xtr'),pChar(ExtractFilePath(Application.ExeName)+'<27><><EFBFBD>dz<EFBFBD>վ\<5C><><EFBFBD>䷵<EFBFBD><E4B7B5>.xtr'),True);
XMLTransformProvider1.TransformRead.TransformationFile:=ExtractFilePath(Application.ExeName)+'<27><><EFBFBD>dz<EFBFBD>վ\<5C><><EFBFBD>䷵<EFBFBD><E4B7B5>.xtr';
end;
// XMLTransformProvider1.TransformRead.TransformationFile:='\\'+dbserver+'\<5C><><EFBFBD>dz<EFBFBD>վ\<5C><><EFBFBD>䷵<EFBFBD><E4B7B5>.xtr';
XMLTransformProvider1.TransformRead.SourceXmlDocument:=xmldoc.GetDOMDocument;
cds.Data:=XMLTransformProvider1.Data;
cds.Active:=true;
with cds do
begin
First;
while not Eof do
begin
if t_op_ctn.Locate('<27><><EFBFBD><EFBFBD>',Trim(FieldByName('CTNNO').AsString),[]) then
begin
t_op_ctn.Edit;
s_ctnno:=Trim(FieldByName('CTNSZ').AsString);
s_ctnType:=Trim(FieldByName('CTNTP').AsString);
if frm_data_share.t_code_ctn.Locate('<27>ߴ<EFBFBD>;<3B><><EFBFBD><EFBFBD>',VarArrayOf([trim(s_ctnno),trim(s_ctnType)]), []) then
begin
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=frm_data_share.t_code_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
end;
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=FieldByName('SEALNO').AsString;
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger:=FieldByName('PKGS').AsInteger;
t_op_ctn.FieldByName('<27><>װ').AsString:='';
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=FieldByName('ALKWGT').AsFloat;
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=FieldByName('ALCUBAGE').AsFloat;
t_op_ctn.Post;
end
else
begin
t_op_ctn.append;
s_ctnno:=Trim(FieldByName('CTNSZ').AsString);
s_ctnType:=Trim(FieldByName('CTNTP').AsString);
if frm_data_share.t_code_ctn.Locate('<27>ߴ<EFBFBD>;<3B><><EFBFBD><EFBFBD>',VarArrayOf([trim(s_ctnno),trim(s_ctnType)]), []) then
begin
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=frm_data_share.t_code_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
end;
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=FieldByName('SEALNO').AsString;
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger:=FieldByName('PKGS').AsInteger;
t_op_ctn.FieldByName('<27><>װ').AsString:='';
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=FieldByName('ALKWGT').AsFloat;
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=FieldByName('ALCUBAGE').AsFloat;
t_op_ctn.Post;
end;
Next;
end;
end;
// <20><>װ
s_web:=mServiceSoap_dy.GetLoadCargoInfoXml(s_caragt,s_key,s_billno,'','1');
xmldoc.LoadFromXML(s_web);
xmldoc.SaveToFile('c:\<5C><>װ.xml');
if FileExists(ExtractFilePath(Application.ExeName)+'<27><><EFBFBD>dz<EFBFBD>վ\<5C><>װ.xtr') then
begin
XMLTransformProvider1.TransformRead.TransformationFile:=ExtractFilePath(Application.ExeName)+'\<5C><><EFBFBD>dz<EFBFBD>վ\<5C><>װ.xtr';
end
else
begin
CreateDirectory(pChar(ExtractFilePath(Application.ExeName)+'<27><><EFBFBD>dz<EFBFBD>վ'),nil);
CopyFile(pChar('\\'+dbserver+'\<5C><><EFBFBD>dz<EFBFBD>վ\<5C><><EFBFBD><EFBFBD>.xtr'),pChar(ExtractFilePath(Application.ExeName)+'<27><><EFBFBD>dz<EFBFBD>վ\<5C><>װ.xtr'),True);
XMLTransformProvider1.TransformRead.TransformationFile:=ExtractFilePath(Application.ExeName)+'<27><><EFBFBD>dz<EFBFBD>վ\<5C><>װ.xtr';
end;
// XMLTransformProvider1.TransformRead.TransformationFile:='\\'+dbserver+'\<5C><><EFBFBD>dz<EFBFBD>վ\<5C><>װ.xtr';
XMLTransformProvider1.TransformRead.SourceXmlDocument:=xmldoc.GetDOMDocument;
cds.Data:=XMLTransformProvider1.Data;
cds.Active:=true;
if not cds.IsEmpty then
begin
try
with t_op_ctn do
begin
First;
while not Eof do
begin
Edit;
FieldByName('<27><>װ').AsString:=cds.FieldByName('PKTP').AsString;
Post;
Next;
end;
end;
finally
end;
end;
{
s_web:=mServiceSoap_dy.GetEnterPortInfoXml(s_caragt,s_key,s_billno,'','1');
xmldoc.LoadFromXML(s_web);
/// xmldoc.SaveToFile('c:\<5C><><EFBFBD><EFBFBD>.xml');
XMLTransformProvider1.TransformRead.TransformationFile:=ExtractFilePath(Application.ExeName)+'\<5C><><EFBFBD>dz<EFBFBD>վ\<5C><><EFBFBD><EFBFBD>.xtr';
XMLTransformProvider1.TransformRead.SourceXmlDocument:=xmldoc.GetDOMDocument;
cds.Data:=XMLTransformProvider1.Data;
cds.Active:=true;
cds.Close;
cds.ProviderName:='XMLTransformProvider1';
cds.Data:=XMLTransformProvider1.Data;
cds.Active:=True;
// ShowMessage(IntToStr(cds.RecordCount));
s_web:=mServiceSoap_dy.GetCusediInfoXml(s_caragt,s_key,s_billno);
xmldoc.LoadFromXML(s_web);
/// xmldoc.SaveToFile('c:\<5C><><EFBFBD><EFBFBD>.xml');
XMLTransformProvider1.TransformRead.TransformationFile:=ExtractFilePath(Application.ExeName)+'\<5C><><EFBFBD>dz<EFBFBD>վ\<5C><><EFBFBD><EFBFBD>.xtr';
XMLTransformProvider1.TransformRead.SourceXmlDocument:=xmldoc.GetDOMDocument;
cds.Data:=XMLTransformProvider1.Data;
cds.Active:=true;
BoolToStr(mServiceSoap_dy.GetBillInfo(s_caragt,s_key,s_billno),True);
}
finally
// dewebservice;
t_op_ctn.EnableControls;
// ShowMessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>ϸ<EFBFBD>˶<EFBFBD><CBB6><EFBFBD><EFBFBD><EFBFBD>,<2C>ֹ<EFBFBD>¼<EFBFBD><C2BC><EFBFBD>ļ<EFBFBD>װ<EFBFBD><D7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>');
end;
end;
procedure Tfrm_op_ctn.GetdyczInfo_yzh(s_caragt,s_key,s_billno,bsno:String);
var
b:Boolean;
s_web: WideString;
xmldoc:IXMLDocument;
cds:TClientDataSet;
XMLTransformProvider1:TXMLTransformProvider;
s_ctnno,s_ctnType:string;
begin
try
t_op_ctn.DisableControls;
getwebservice_yzh;
cds:=TClientDataSet.Create(nil);
XMLTransformProvider1:=TXMLTransformProvider.Create(NIL);
// s_billno:='HLCUTA1180315678'; //QDJY000476
cds.Active:=false;
xmldoc:=NewXMLDocument;
xmldoc.Encoding:='UTF-8';
s_web:=mServiceSoap_yzh.P_GETDATA(s_billno,'YT');
xmldoc.LoadFromXML(s_web);
xmldoc.SaveToFile('c:\<5C><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ.xml');
if FileExists(ExtractFilePath(Application.ExeName)+'<27><>֮<EFBFBD><D6AE><EFBFBD><EFBFBD>վ\<5C><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ.xtr') then
begin
XMLTransformProvider1.TransformRead.TransformationFile:=ExtractFilePath(Application.ExeName)+'<27><>֮<EFBFBD><D6AE><EFBFBD><EFBFBD>վ\<5C><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ.xtr';
end
else
begin
CreateDirectory(pChar(ExtractFilePath(Application.ExeName)+'<27><>֮<EFBFBD><D6AE><EFBFBD><EFBFBD>վ'),nil);
CopyFile(pChar('\\'+dbserver+'\<5C><>֮<EFBFBD><D6AE><EFBFBD><EFBFBD>վ\<5C><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ.xtr'),pChar(ExtractFilePath(Application.ExeName)+'<27><>֮<EFBFBD><D6AE><EFBFBD><EFBFBD>վ\<5C><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ.xtr'),True);
XMLTransformProvider1.TransformRead.TransformationFile:=ExtractFilePath(Application.ExeName)+'<27><>֮<EFBFBD><D6AE><EFBFBD><EFBFBD>վ\<5C><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ.xtr';
end;
// XMLTransformProvider1.TransformRead.TransformationFile:='\\'+dbserver+'\<5C><>֮<EFBFBD><D6AE><EFBFBD><EFBFBD>վ\<5C><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ.xtr';
XMLTransformProvider1.TransformRead.SourceXmlDocument:=xmldoc.GetDOMDocument;
cds.Data:=XMLTransformProvider1.Data;
cds.Active:=true;
with cds do
begin
First;
while not Eof do
begin
if t_op_ctn.Locate('<27><><EFBFBD><EFBFBD>',Trim(FieldByName('<27><><EFBFBD><EFBFBD>').AsString),[]) then
begin
t_op_ctn.Edit;
s_ctnno:=Trim(FieldByName('<27>ߴ<EFBFBD>').AsString);
s_ctnType:=Trim(FieldByName('<27><><EFBFBD><EFBFBD>').AsString);
if frm_data_share.t_code_ctn.Locate('<27>ߴ<EFBFBD>;<3B><><EFBFBD><EFBFBD>',VarArrayOf([trim(s_ctnno),trim(s_ctnType)]), []) then
begin
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=frm_data_share.t_code_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
end;
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=FieldByName('Ǧ<><C7A6><EFBFBD><EFBFBD>').AsString;
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger:=FieldByName('<27>ܼ<EFBFBD><DCBC><EFBFBD>').AsInteger;
t_op_ctn.FieldByName('<27><>װ').AsString:='';
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat;
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=FieldByName('<27>ܳ<EFBFBD><DCB3><EFBFBD>').AsFloat;
t_op_ctn.Post;
end
else
begin
t_op_ctn.append;
s_ctnno:=Trim(FieldByName('<27>ߴ<EFBFBD>').AsString);
s_ctnType:=Trim(FieldByName('<27><><EFBFBD><EFBFBD>').AsString);
if frm_data_share.t_code_ctn.Locate('<27>ߴ<EFBFBD>;<3B><><EFBFBD><EFBFBD>',VarArrayOf([trim(s_ctnno),trim(s_ctnType)]), []) then
begin
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=frm_data_share.t_code_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
end;
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=FieldByName('Ǧ<><C7A6><EFBFBD><EFBFBD>').AsString;
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger:=FieldByName('<27>ܼ<EFBFBD><DCBC><EFBFBD>').AsInteger;
t_op_ctn.FieldByName('<27><>װ').AsString:='';
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat;
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=FieldByName('<27>ܳ<EFBFBD><DCB3><EFBFBD>').AsFloat;
t_op_ctn.Post;
end;
Next;
end;
end;
{
s_web:=mServiceSoap_yzh.P_GETDATA(s_billno,'FX');;
xmldoc.LoadFromXML(s_web);
// xmldoc.SaveToFile('c:\<5C><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ.xml');
XMLTransformProvider1.TransformRead.TransformationFile:=ExtractFilePath(Application.ExeName)+'\<5C><>֮<EFBFBD><D6AE><EFBFBD><EFBFBD>վ\<5C><><EFBFBD><EFBFBD>.xtr';
XMLTransformProvider1.TransformRead.SourceXmlDocument:=xmldoc.GetDOMDocument;
cds.Data:=XMLTransformProvider1.Data;
cds.Active:=true;
}
finally
// dewebservice;
t_op_ctn.EnableControls;
end;
end;
procedure Tfrm_op_ctn.GetdyczInfo_lhcz(s_caragt,s_key,s_billno,bsno:String);
var
testService:myServicePortType;
strmsg:string;
s_web: WideString;
xmldoc:IXMLDocument;
cds:TClientDataSet;
XMLTransformProvider1:TXMLTransformProvider;
s_ctnno,s_ctnType:string;
begin
testService:=GetmyServicePortType(false,'http://www.lhl.cn:8190/WebServiceTest/services/myService?wsdl',nil);
try
t_op_ctn.DisableControls;
cds:=TClientDataSet.Create(nil);
XMLTransformProvider1:=TXMLTransformProvider.Create(NIL);
cds.Active:=false;
xmldoc:=NewXMLDocument;
xmldoc.Encoding:='UTF-8';
s_web:=testService.CntrMess(s_billno) ;
// ShowMessage(s_web);
xmldoc.LoadFromXML(s_web);
xmldoc.SaveToFile('c:\<5C><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ.xml');
if FileExists(ExtractFilePath(Application.ExeName)+'½<><C2BD><EFBFBD><EFBFBD>վ\<5C><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ.xtr') then
begin
XMLTransformProvider1.TransformRead.TransformationFile:=ExtractFilePath(Application.ExeName)+'½<><C2BD><EFBFBD><EFBFBD>վ\<5C><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ.xtr';
end
else
begin
CreateDirectory(pChar(ExtractFilePath(Application.ExeName)+'½<><C2BD><EFBFBD><EFBFBD>վ'),nil);
CopyFile(pChar('\\'+dbserver+'\½<><C2BD><EFBFBD><EFBFBD>վ\<5C><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ.xtr'),pChar(ExtractFilePath(Application.ExeName)+'½<><C2BD><EFBFBD><EFBFBD>վ\<5C><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ.xtr'),True);
XMLTransformProvider1.TransformRead.TransformationFile:=ExtractFilePath(Application.ExeName)+'½<><C2BD><EFBFBD><EFBFBD>վ\<5C><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ.xtr';
end;
// XMLTransformProvider1.TransformRead.TransformationFile:='\\'+dbserver+'\½<><C2BD><EFBFBD><EFBFBD>վ\<5C><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ.xtr';
XMLTransformProvider1.TransformRead.SourceXmlDocument:=xmldoc.GetDOMDocument;
// ShowMessage('3');
cds.Data:=XMLTransformProvider1.Data;
// ShowMessage('4');
cds.Active:=true;
with cds do
begin
First;
while not Eof do
begin
if t_op_ctn.Locate('<27><><EFBFBD><EFBFBD>',Trim(FieldByName('CTNNO').AsString),[]) then
begin
t_op_ctn.Edit;
s_ctnno:=Trim(FieldByName('CTNSZ').AsString);
s_ctnType:=Trim(FieldByName('CTNTP').AsString);
if frm_data_share.t_code_ctn.Locate('<27>ߴ<EFBFBD>;<3B><><EFBFBD><EFBFBD>',VarArrayOf([trim(s_ctnno),trim(s_ctnType)]), []) then
begin
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=frm_data_share.t_code_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
end;
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=FieldByName('SEALNO').AsString;
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger:=FieldByName('PKGS').AsInteger;
t_op_ctn.FieldByName('<27><>װ').AsString:=FieldByName('PKTP').AsString;
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=FieldByName('ALKWGT').AsFloat;
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=FieldByName('ALCUBAGE').AsFloat;
t_op_ctn.Post;
end
else
begin
t_op_ctn.append;
s_ctnno:=Trim(FieldByName('CTNSZ').AsString);
s_ctnType:=Trim(FieldByName('CTNTP').AsString);
if frm_data_share.t_code_ctn.Locate('<27>ߴ<EFBFBD>;<3B><><EFBFBD><EFBFBD>',VarArrayOf([trim(s_ctnno),trim(s_ctnType)]), []) then
begin
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=frm_data_share.t_code_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
end;
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=Trim(FieldByName('CTNNO').AsString);
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=FieldByName('SEALNO').AsString;
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger:=FieldByName('PKGS').AsInteger;
t_op_ctn.FieldByName('<27><>װ').AsString:=FieldByName('PKTP').AsString;
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=FieldByName('ALKWGT').AsFloat;
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=FieldByName('ALCUBAGE').AsFloat;
t_op_ctn.Post;
end;
Next;
end;
end;
finally
t_op_ctn.EnableControls;
end;
end;
procedure Tfrm_op_ctn.t_op_ctnAfterInsert(DataSet: TDataSet);
begin
t_op_ctn['<27><><EFBFBD><EFBFBD>']:=t_op_ctn.DataSource.DataSet['<27><><EFBFBD><EFBFBD>'];
t_op_ctn['<27><><EFBFBD><EFBFBD>']:=1;
t_op_ctn['<27><><EFBFBD><EFBFBD>']:='01';
t_op_ctn['<27><><EFBFBD>ط<EFBFBD>ʽ']:='<27>ۼ<EFBFBD>';
end;
procedure Tfrm_op_ctn.t_op_ctnBeforePost(DataSet: TDataSet);
var cntrs:string;
begin
if frm_data_share.t_code_ctn.Locate('<27><><EFBFBD><EFBFBD>',t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,[]) then
begin
t_op_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:=frm_data_share.t_code_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ'];
t_op_ctn['<27><><EFBFBD><EFBFBD>']:=frm_data_share.t_code_ctn['<27><><EFBFBD><EFBFBD>'];
t_op_ctn['<27>ߴ<EFBFBD>']:=frm_data_share.t_code_ctn['<27>ߴ<EFBFBD>'];
if frm_data_share.t_code_ctn.FieldByName('<27>ߴ<EFBFBD>').asstring='20'then
t_op_ctn['TEU']:=1*t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').asinteger;
if (frm_data_share.t_code_ctn.FieldByName('<27>ߴ<EFBFBD>').asstring='40')OR
(frm_data_share.t_code_ctn.FieldByName('<27>ߴ<EFBFBD>').asstring='45')then
t_op_ctn['TEU']:=2*t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').asinteger;
end
else
begin
t_op_ctn['<27><><EFBFBD><EFBFBD>']:='';
t_op_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:='';
t_op_ctn['<27><><EFBFBD><EFBFBD>']:='';
t_op_ctn['<27>ߴ<EFBFBD>']:='';
end;
cntrs:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
if cntrs<>'' then
if ((GetStrNum(cntrs))<>7) or ((GetcharNum(cntrs))<>4) then begin
MessageDlg('<27><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>ȷ!:<3A><>ʽΪ:ABCU1234567',mtWarning,[mbOk],0);
abort;
end;
table_before_post(t_op_ctn,'<27><><EFBFBD><EFBFBD>');
table_before_post(t_op_ctn,'<27><><EFBFBD><EFBFBD>');
end;
procedure Tfrm_op_ctn.bsSkinButton2Click(Sender: TObject);
begin
table_post(t_op_ctn);
table_post(t_op_ctndetail);
end;
procedure Tfrm_op_ctn.bsSkinButton4Click(Sender: TObject);
var
i:integer;
str_list:Tstringlist;
begin
if t_op_ctn.isempty then
exit;
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)<>IDOK then
exit;
if wwDBGrid1.SelectedList.Count>=1 then
begin
try
t_op_ctn.DisableControls;
str_list:=Tstringlist.create;
for i:=0 to wwDBGrid1.SelectedList.Count-1 do
begin
t_op_ctn.GotoBookmark(pointer(wwDBGrid1.SelectedList[i]));
str_list.Add(t_op_ctn.fieldbyname('ctn_ID').asstring);
end;
for i:=0 to str_list.Count-1 do
begin
if t_op_ctn.locate('ctn_ID',str_list[i],[]) then
t_op_ctn.Delete;
end;
finally
str_list.free;
t_op_ctn.EnableControls;
end;
end
else
begin
t_op_ctn.delete;
end;
t_op_ctn.Refresh;
end;
procedure Tfrm_op_ctn.bsSkinButton3Click(Sender: TObject);
begin
table_cancel(t_op_ctn);
end;
procedure Tfrm_op_ctn.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_op_ctn.FormShow(Sender: TObject);
var
inifile1:Tinifile;
FromFileName,ToFileName:string;
begin
t_op_ctn.open;
t_op_ctndetail.Open;
frm_data_share.t_code_tradetype.requery;
frm_data_share.t_code_ctn.requery;
frm_data_share.t_code_package.requery;
frm_data_share.t_crm_client_truck.requery;
frm_data_share.t_crm_client_changzhan.requery;
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
dbserver:=inifile1.ReadString('database','Data Source','');
if pos(';',dbserver)>0 then
begin
dbserver:=Copy(dbserver,1,Length(dbserver)-1);
if pos('\',dbserver)>0 then
begin
dbserver:=Copy(dbserver,1,pos('\',dbserver)-1);
end;
end
else
begin
if pos('\',dbserver)>0 then
begin
dbserver:=Copy(dbserver,1,pos('\',dbserver)-1);
end;
end;
FromFileName:='\\'+dbserver+'\jfcz\midas.dll';
ToFileName:=ExtractFilePath(application.ExeName)+'midas.dll';
if not FileExists(ExtractFilePath(application.ExeName)+'midas.dll') then
CopyFile(pChar(FromFileName),pChar(ToFileName),False);
inifile1.free;
end;
procedure Tfrm_op_ctn.wwDBLookupCombo1Change(Sender: TObject);
begin
if (t_op_ctn.State=dsedit)or(t_op_ctn.State=dsinsert) then
begin
if frm_data_share.t_code_ctn.Locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo1.text,[]) then
begin
t_op_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:=frm_data_share.t_code_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ'];
t_op_ctn['<27><><EFBFBD><EFBFBD>']:=frm_data_share.t_code_ctn['<27><><EFBFBD><EFBFBD>'];
t_op_ctn['<27>ߴ<EFBFBD>']:=frm_data_share.t_code_ctn['<27>ߴ<EFBFBD>'];
end
else
begin
t_op_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:='';
t_op_ctn['<27><><EFBFBD><EFBFBD>']:='';
t_op_ctn['<27>ߴ<EFBFBD>']:='';
end;
end;
end;
procedure Tfrm_op_ctn.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
CanClose:=frm_close_query(t_op_ctn);
CanClose:=frm_close_query(t_op_ctndetail);
end;
procedure Tfrm_op_ctn.Updatebs;
var
bok:Tbookmark;
if_first:boolean;
pkgs:integer;
kgs,cbm:double;
s:string;
begin
if t_op_ctn.IsEmpty then
exit;
if op_ctn_limited='0001'then
begin
op_befor_post(frm_op_seae.t_op_seae,op_ctn_limited);
end
else
begin
op_befor_post(frm_op_seai.t_op_seai,op_ctn_limited);
end;
if_first:=true;
pkgs:=0;
kgs:=0.00;
cbm:=0.00;
bok:=t_op_ctn.GetBookmark;
try
t_op_ctn.DisableControls;
t_op_ctn.DataSource.DataSet.DisableControls;
t_op_ctn.First;
while not t_op_ctn.Eof do
begin
if strtobool(get_parameters_value(139,'true')) then begin
if if_first then
begin
if (Trim(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring)<>'') and (Trim(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring)<>'') then
memo1.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
memo2.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+t_op_ctn.fieldbyname('<27><>װ').asstring;
memo3.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'KGS';
memo4.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'CBM';
pkgs:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asinteger;
kgs:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
cbm:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
if_first:=false;
end
else
begin
if (Trim(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring)<>'') and (Trim(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring)<>'') then
memo1.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
memo2.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+t_op_ctn.fieldbyname('<27><>װ').asstring);
memo3.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'KGS');
memo4.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'CBM');
pkgs:=pkgs+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asinteger;
kgs:=kgs+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
cbm:=cbm+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end else begin
if if_first then
begin
memo1.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').asstring+'/'
+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+t_op_ctn.fieldbyname('<27><>װ').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'KGS'+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'CBM';
memo2.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+t_op_ctn.fieldbyname('<27><>װ').asstring;
memo3.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'KGS';
memo4.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'CBM';
pkgs:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asinteger;
kgs:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
cbm:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
if_first:=false;
end
else
begin
memo1.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').asstring+'/'
+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+t_op_ctn.fieldbyname('<27><>װ').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'KGS'+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'CBM'
);
memo2.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+t_op_ctn.fieldbyname('<27><>װ').asstring);
memo3.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'KGS');
memo4.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'CBM');
pkgs:=pkgs+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asinteger;
kgs:=kgs+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
cbm:=cbm+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
t_op_ctn.next;
end;
if ((pkgs<>0) and (FormatFloat('0.0000;-0.0000;0',pkgs)<>FormatFloat('0.0000;-0.0000;0',t_op_ctn.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger)))
or ((kgs<>0) and (FormatFloat('0.0000;-0.0000;0',kgs)<>FormatFloat('0.0000;-0.0000;0',t_op_ctn.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat)))
or ((cbm<>0) and (FormatFloat('0.0000;-0.0000;0',cbm)<>FormatFloat('0.0000;-0.0000;0',t_op_ctn.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat)))
then
begin
if MessageDlg('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD>ļ<EFBFBD><C4BC>سߺͼ<DFBA>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ<EFBFBD>ļ<EFBFBD><C4BC>س߲<D8B3>ͬ,<2C>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>',mtWarning,[mbyes,mbno],0)=mrYes then
begin
if op_ctn_limited='0001'then
begin
t_op_ctn.DataSource.DataSet.edit;
{
t_op_ctn.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=pkgs;
t_op_ctn.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=kgs;
t_op_ctn.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=cbm;
}
t_op_ctn.DataSource.DataSet['<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>']:=memo1.Lines.Text;
if pkgs<>0 then
t_op_ctn.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ']:=memo2.Lines.Text;
if kgs<>0 then
t_op_ctn.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=memo3.Lines.Text;
if cbm<>0 then
t_op_ctn.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=memo4.Lines.Text;
t_op_ctn.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=pkgs;
t_op_ctn.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=kgs;
t_op_ctn.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=cbm;
t_op_ctn.DataSource.DataSet.post;
end;
if op_ctn_limited='0002'then
begin
t_op_ctn.DataSource.DataSet.edit;
t_op_ctn.DataSource.DataSet['<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>']:=memo1.Lines.Text;
t_op_ctn.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=pkgs;
t_op_ctn.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=kgs;
t_op_ctn.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=cbm;
t_op_ctn.DataSource.DataSet.post;
end;
end;
end;
finally
t_op_ctn.EnableControls;
t_op_ctn.DataSource.DataSet.EnableControls;
t_op_ctn.GotoBookmark(bok);
end;
end;
procedure Tfrm_op_ctn.bsSkinButton6Click(Sender: TObject);
var
bok:Tbookmark;
if_first:boolean;
pkgs:integer;
kgs,cbm:double;
s,package:string;
begin
if t_op_ctn.IsEmpty then
exit;
{
if op_ctn_limited='0001'then
begin
if assigned(frm_op_seae) then
op_befor_post(frm_op_seae.t_op_seae,op_ctn_limited);
end
else
if op_ctn_limited='0002'then
begin
if assigned(frm_op_seae) then
op_befor_post(frm_op_seae.t_op_seae,op_ctn_limited);
end
else
begin
end;
}
t_op_ctn.First;
if_first:=true;
pkgs:=0;
kgs:=0.00;
cbm:=0.00;
bok:=t_op_ctn.GetBookmark;
try
t_op_ctn.DisableControls;
while not t_op_ctn.Eof do
begin
if strtobool(get_parameters_value(139,'true')) then
begin
if if_first then
begin
if (Trim(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring)<>'') and (Trim(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring)<>'') then
memo1.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
memo2.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+t_op_ctn.fieldbyname('<27><>װ').asstring;
memo3.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'KGS';
memo4.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'CBM';
pkgs:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asinteger;
kgs:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
cbm:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
package:=t_op_ctn.fieldbyname('<27><>װ').asstring;
if_first:=false;
end
else
begin
if (Trim(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring)<>'') and (Trim(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring)<>'') then
memo1.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
memo2.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+t_op_ctn.fieldbyname('<27><>װ').asstring);
memo3.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'KGS');
memo4.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'CBM');
pkgs:=pkgs+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asinteger;
kgs:=kgs+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
cbm:=cbm+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
package:=t_op_ctn.fieldbyname('<27><>װ').asstring;
end;
end
else
begin
if if_first then
begin
memo1.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').asstring+'/'
+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+t_op_ctn.fieldbyname('<27><>װ').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'KGS'+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'CBM';
memo2.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+t_op_ctn.fieldbyname('<27><>װ').asstring;
memo3.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'KGS';
memo4.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'CBM';
pkgs:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asinteger;
kgs:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
cbm:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
package:=t_op_ctn.fieldbyname('<27><>װ').asstring;
if_first:=false;
end
else
begin
memo1.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').asstring+'/'
+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+t_op_ctn.fieldbyname('<27><>װ').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'KGS'+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'CBM'
);
memo2.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+t_op_ctn.fieldbyname('<27><>װ').asstring);
memo3.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'KGS');
memo4.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'CBM');
pkgs:=pkgs+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asinteger;
kgs:=kgs+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
cbm:=cbm+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
package:=t_op_ctn.fieldbyname('<27><>װ').asstring;
end;
end;
t_op_ctn.next;
end;
if ((pkgs<>0) and (FormatFloat('0.0000;-0.0000;0',pkgs)<>FormatFloat('0.0000;-0.0000;0',t_op_ctn.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger)))
or ((kgs<>0) and (FormatFloat('0.0000;-0.0000;0',kgs)<>FormatFloat('0.0000;-0.0000;0',t_op_ctn.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat)))
or ((cbm<>0) and (FormatFloat('0.0000;-0.0000;0',cbm)<>FormatFloat('0.0000;-0.0000;0',t_op_ctn.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat)))
or ((memo1.Lines.Text<>'') and (memo1.Lines.Text<>t_op_ctn.DataSource.DataSet.FieldByName('<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>').AsString))
or ((Trim(package)<>'') and (Trim(package)<>Trim(t_op_ctn.DataSource.DataSet.fieldbyname('<27><>װ').asstring)))
then
begin
if MessageDlg('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD>ļ<EFBFBD>,<2C><>,<2C><>,<2C><>װ<EFBFBD>ͼ<EFBFBD>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ<EFBFBD>ļ<EFBFBD>,<2C><>,<2C><>,<2C><>װ<EFBFBD><D7B0>ͬ,<2C>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>',mtWarning,[mbyes,mbno],0)=mrYes then
begin
if op_ctn_limited='0001'then
begin
t_op_ctn.DataSource.DataSet.edit;
t_op_ctn.DataSource.DataSet['<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>']:=memo1.Lines.Text;
t_op_ctn.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ']:=memo2.Lines.Text;
t_op_ctn.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=memo3.Lines.Text;
t_op_ctn.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=memo4.Lines.Text;
t_op_ctn.DataSource.DataSet['<27><>װ']:=package;
t_op_ctn.DataSource.DataSet.post;
end;
if op_ctn_limited='0002'then
begin
t_op_ctn.DataSource.DataSet.edit;
t_op_ctn.DataSource.DataSet['<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>']:=memo1.Lines.Text;
t_op_ctn.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=pkgs;
t_op_ctn.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=kgs;
t_op_ctn.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=cbm;
t_op_ctn.DataSource.DataSet.post;
end;
end;
end;
finally
t_op_ctn.EnableControls;
t_op_ctn.GotoBookmark(bok);
end;
end;
procedure Tfrm_op_ctn.t_op_ctnBeforeDelete(DataSet: TDataSet);
begin
if t_op_ctn.RecordCount=1 then
begin
if t_op_ctn.DataSource.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD><EFBFBD>' then
begin
showmessage('ҵ<><D2B5><EFBFBD><EFBFBD>װ<EFBFBD>䲻<EFBFBD><E4B2BB>Ϊ<EFBFBD>գ<EFBFBD><D5A3><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
abort;
end;
end;
if t_op_ctndetail.RecordCount>=1 then
begin
showmessage('<27><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ<EFBFBD><D7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ,<2C><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>,<2C><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD>ü<EFBFBD>װ<EFBFBD><D7B0><EFBFBD>µĻ<C2B5><C4BB><EFBFBD><EFBFBD><EFBFBD>ϸ');
abort;
end;
if op_ctn_limited='0001'then
begin
op_befor_post(TADOQuery(t_op_ctn.DataSource.DataSet),op_ctn_limited);
end
else
begin
op_befor_post(TADOQuery(t_op_ctn.DataSource.DataSet),op_ctn_limited);
end;
end;
procedure Tfrm_op_ctn.t_op_ctnBeforeEdit(DataSet: TDataSet);
begin
if op_ctn_limited='0001'then
begin
op_befor_post(TADOQuery(t_op_ctn.DataSource.DataSet),op_ctn_limited);
end
else
begin
op_befor_post(TADOQuery(t_op_ctn.DataSource.DataSet),op_ctn_limited);
end;
end;
procedure Tfrm_op_ctn.t_op_ctnAfterPost(DataSet: TDataSet);
begin
{
update_ctn(t_op_ctn);
if t_op_ctnsum.Active then t_op_ctnsum.Requery;
t_op_ctn.Refresh;
}
if ((Pos('RF',t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').AsString)>0) OR (Pos('RH',t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').AsString)>0)) then begin
if op_ctn_limited='0001'then
begin
t_op_ctn.DataSource.DataSet.edit;
t_op_ctn.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ']:='R';
t_op_ctn.DataSource.DataSet.post;
END;
end;
end;
procedure Tfrm_op_ctn.t_op_ctndetailBeforeInsert(DataSet: TDataSet);
begin
if t_op_ctn.IsEmpty then
begin
ShowMessage('<27><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>ϢΪ<CFA2>ղ<EFBFBD><D5B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӽ<EFBFBD>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>ϸ');
Abort;
end;
if t_op_ctn.State in [dsedit,dsinsert] then t_op_ctn.Post;
t_op_ctn.Refresh;
end;
procedure Tfrm_op_ctn.t_op_ctndetailNewRecord(DataSet: TDataSet);
begin
t_op_ctndetail['ctn_id']:=t_op_ctn.FieldByName('ctn_id').AsInteger;
t_op_ctndetail['<27><><EFBFBD><EFBFBD>']:=t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger;
t_op_ctndetail['<27><>װ']:=t_op_ctn.FieldByName('<27><>װ').AsString;
t_op_ctndetail['<27><><EFBFBD><EFBFBD>']:=t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat;
t_op_ctndetail['<27><><EFBFBD><EFBFBD>']:=t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat;
t_op_ctndetail['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_ctn.FieldByName('Ʒ<><C6B7>').AsString;
end;
procedure Tfrm_op_ctn.bsSkinButton9Click(Sender: TObject);
var i :integer;
str:string;
begin
if t_op_ctn.IsEmpty then
exit;
if wwDBGrid1.SelectedList.Count>=1 then
begin
for i:=0 to wwDBGrid1.SelectedList.Count-1 do
begin
t_op_ctn.GotoBookmark(pointer(wwDBGrid1.SelectedList[i]));
if i=0 then
str:='('+t_op_ctn.fieldbyname('ctn_id').asstring
else
str:=str+','+t_op_ctn.fieldbyname('ctn_id').asstring;
end;
end
else
begin
str:='('+t_op_ctn.fieldbyname('ctn_id').asstring;
end;
str:=str+')';
t_ch_client.close;
t_ch_client.sql.clear;
t_ch_client.sql.add('select * from t_op_ctn '
+'where ctn_id in '+str
+' order by ctn_id');
t_ch_client.open;
try
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>װ<EFBFBD>䵥',2,t_op_ctn.DataSource,nil,nil,nil,nil,t_ch_client1,t_op_ctn1,nil,nil,nil,nil);
except
end;
end;
procedure Tfrm_op_ctn.t_op_ctnAfterOpen(DataSet: TDataSet);
begin
if not t_op_ctnsum.Active then t_op_ctnsum.open;
end;
procedure Tfrm_op_ctn.N2Click(Sender: TObject);
begin
t_op_ctn.Append;
end;
procedure Tfrm_op_ctn.N7Click(Sender: TObject);
var
afield : variant;
i: Integer;
begin
if t_op_ctn.IsEmpty then
exit;
afield := vararraycreate([0,t_op_ctn.fieldcount-1],varvariant);
for i := 0 to (t_op_ctn.fieldcount-1) do
begin
afield[i] :=t_op_ctn.fields[i].value ;
end;
t_op_ctn.append;
for i := 0 to (t_op_ctn.fieldcount-1) do
begin
if t_op_ctn.fields[i].FieldName<>'ctn_id' then
t_op_ctn.fields[i].value := afield[i] ;
end;
end;
procedure Tfrm_op_ctn.bsSkinButton1Click(Sender: TObject);
var
Pnt:Tpoint;
begin
Pnt:=bsSkinButton1.ClientToScreen(Point(0,bsSkinButton1.Height));
PopupMenu1.Popup(Pnt.x,Pnt.y);
end;
procedure Tfrm_op_ctn.bsSkinButton7Click(Sender: TObject);
var
afield : variant;
i,j,m: Integer;
book1:TBookmark;
begin
if t_op_ctn.IsEmpty then
exit;
try
t_op_ctn.DisableControls;
book1:=t_op_ctn.GetBookmark;
m:=t_op_ctn.fieldByName('<27><><EFBFBD><EFBFBD>').AsInteger;
for j:=0 to m-2 do
begin
afield := vararraycreate([0,t_op_ctn.fieldcount-1],varvariant);
for i := 0 to (t_op_ctn.fieldcount-1) do
begin
afield[i] :=t_op_ctn.fields[i].value ;
end;
t_op_ctn.append;
for i := 0 to (t_op_ctn.fieldcount-1) do
begin
if (t_op_ctn.fields[i].FieldName<>'ctn_id') and (t_op_ctn.fields[i].FieldName<>'<27><><EFBFBD><EFBFBD>') then
t_op_ctn.fields[i].value := afield[i] ;
end;
end;
finally
t_op_ctn.GotoBookmark(book1);
t_op_ctn.EnableControls;
t_op_ctn.Edit;
t_op_ctn.fieldByName('<27><><EFBFBD><EFBFBD>').AsInteger:=1;
t_op_ctn.Post;
end;
end;
procedure Tfrm_op_ctn.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if not do_data(op_ctn_limited,t_op_ctn.DataSource.DataSet.FieldByName('¼<><C2BC><EFBFBD><EFBFBD>').asstring
,t_op_ctn.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>Ա').asstring
,t_op_ctn.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
,t_op_ctn.DataSource.DataSet.FieldByName('<27>ͷ<EFBFBD>Ա').asstring
,t_op_ctn.DataSource.DataSet.FieldByName('<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>').asstring
,t_op_ctn.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring) then
begin
Exit;
end;
if t_op_ctn.DataSource.DataSet.FieldByName('ҵ<><D2B5>״̬').AsString<>'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
if not t_op_ctn.IsEmpty then
begin
try
t_op_ctndetail.Close;
t_op_ctndetail.DataSource:=nil;
update_ctn(t_op_ctn);
bsSkinButton6Click(bsSkinButton6);
finally
t_op_ctndetail.DataSource:=t_op_ctn1;
end;
end;
end;
end;
procedure Tfrm_op_ctn.bsSkinButton8Click(Sender: TObject);
begin
frm_main.view_momo(t_op_ctn1,'Ʒ<><C6B7>');
end;
procedure Tfrm_op_ctn.bsSkinButton10Click(Sender: TObject);
var s_czmc,s_user,s_key,s_yzh,s_yzhuser,s_yzhkey,s_lh:string;
begin
try
s_user:=get_parameters_value(2101,'false');
s_key:=get_parameters_value(2102,'false');
s_czmc:=get_parameters_value(2103,'false');
s_yzhuser:=get_parameters_value(2104,'false');
s_yzhkey:=get_parameters_value(2105,'false');
s_yzh:=get_parameters_value(2106,'false');
s_lh:=get_parameters_value(2109,'false');
// GetdyczInfo_yzh(s_user,s_key,Trim(t_op_ctn.DataSource.DataSet.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString),t_op_ctn.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);
if Trim(t_op_ctn.DataSource.DataSet.fieldbyname('<27><>վ').AsString)=s_czmc then
GetdyczInfo_dy(s_user,s_key,Trim(t_op_ctn.DataSource.DataSet.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString),t_op_ctn.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString)
else
if Trim(t_op_ctn.DataSource.DataSet.fieldbyname('<27><>վ').AsString)=s_yzh then
GetdyczInfo_yzh(s_user,s_key,Trim(t_op_ctn.DataSource.DataSet.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString),t_op_ctn.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString)
else
if Trim(t_op_ctn.DataSource.DataSet.fieldbyname('<27><>վ').AsString)=s_lh then
GetdyczInfo_lhcz(s_user,s_key,Trim(t_op_ctn.DataSource.DataSet.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString),t_op_ctn.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString)
else
GetdyczInfo_jfcz('','',Trim(t_op_ctn.DataSource.DataSet.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString),'');
finally
t_op_ctn.Requery;
end;
end;
// bsSkinButton6.onClick(bsSkinButton6);
// getczwebmsg(t_op_ctn.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString,Trim(t_op_ctn.DataSource.DataSet.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString),t_op_ctn.DataSource.DataSet.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString);
procedure Tfrm_op_ctn.bsSkinButton11Click(Sender: TObject);
begin
frm_main.view_momo(t_op_ctndetail1,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_op_ctn.Button1Click(Sender: TObject);
var qty:integer;
pkg,cbm:Double;
begin
qty:=0;
pkg:=0;
cbm:=0;
if t_op_ctndetail.IsEmpty then Exit;
with t_op_ctndetail do
try
DisableControls;
First;
while not eof do
begin
qty:=qty+FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger;
pkg:=pkg+FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat;
cbm:=cbm+FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat;
next;
end;
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD>ϼ<EFBFBD> <20><><EFBFBD><EFBFBD>:'+IntToStr(qty)+' <20><><EFBFBD><EFBFBD>:'+FormatFloat('0.0000;0.0000;0',pkg)+' <20><><EFBFBD><EFBFBD>:'+FormatFloat('0.0000;0.0000;0',cbm));
finally
EnableControls;
end;
end;
procedure Tfrm_op_ctn.bsSkinButton12Click(Sender: TObject);
begin
try
if not ASSIGNED(frm_op_seae_ctn) then
frm_op_seae_ctn:=Tfrm_op_seae_ctn.Create(application);
frm_op_seae_ctn.t_op_ctn1:=t_op_ctn1;
frm_op_seae_ctn.bsNo:=t_op_ctn.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').asstring;
frm_op_seae_ctn.CorpName:=t_op_ctn.DataSource.DataSet.FieldByName('ί<>е<EFBFBD>λ').asstring;
frm_op_seae_ctn.Vsl:=t_op_ctn.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').asstring;
frm_op_seae_ctn.Voy:=t_op_ctn.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').asstring;
frm_op_seae_ctn.ShowModal;
finally
frm_op_seae_ctn.Free;
frm_op_seae_ctn:=nil;
end;
end;
procedure Tfrm_op_ctn.bsSkinButton13Click(Sender: TObject);
var
Ext,ctnno,ctnType:String;
ExcelTemplet:Variant;
i:integer;
begin
if OpenDialog1.Execute then begin
Ext:=lowercase(ExtractFileExt(OpenDialog1.FileName));
// ShowMessage(ctnno+' '+ctnType+' '+Ext);
if Ext='.xls' then begin
ExcelTemplet:= CreateOleObject('Excel.Application');
try
ExcelTemplet.Workbooks.Open(OpenDialog1.FileName);
I:=2;
t_op_ctn.First;
// ShowMessage(trim(VartoStr(ExcelTemplet.ActiveSheet.Cells[I,1].Value)));
if t_op_ctn.DataSource.DataSet.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString=trim(VartoStr(ExcelTemplet.ActiveSheet.Cells[I,1].Value)) then
while VartoStr(ExcelTemplet.ActiveSheet.Cells[I,2].Value)<>'' do
begin
begin
t_op_ctn.append;
ctnno:=VartoStr(ExcelTemplet.ActiveSheet.Cells[I,4].Value);
ctnType:=VartoStr(ExcelTemplet.ActiveSheet.Cells[I,5].Value);
if frm_data_share.t_code_ctn.Locate('<27>ߴ<EFBFBD>;<3B><><EFBFBD><EFBFBD>',VarArrayOf([trim(ctnno),trim(ctnType)]), []) then
begin
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=frm_data_share.t_code_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
end;
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=VartoStr(ExcelTemplet.ActiveSheet.Cells[I,2].Value);
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=VartoStr(ExcelTemplet.ActiveSheet.Cells[I,3].Value);
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=VartoStr(ExcelTemplet.ActiveSheet.Cells[I,6].Value);
t_op_ctn.FieldByName('<27><>װ').AsString:=VartoStr(ExcelTemplet.ActiveSheet.Cells[I,7].Value);
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=VartoStr(ExcelTemplet.ActiveSheet.Cells[I,8].Value);
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=VartoStr(ExcelTemplet.ActiveSheet.Cells[I,9].Value);
t_op_ctn.FieldByName('<27><><EFBFBD>ط<EFBFBD>ʽ').AsString:=VartoStr(ExcelTemplet.ActiveSheet.Cells[I,10].Value);
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=VartoStr(ExcelTemplet.ActiveSheet.Cells[I,11].Value);
i:=i+1;
end;
end;
finally
ExcelTemplet.DisplayAlerts := false;//<2F>Ƿ<EFBFBD><C7B7><EFBFBD>ʾ<EFBFBD><CABE><EFBFBD><EFBFBD>
ExcelTemplet.Quit;//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˳<EFBFBD>
end;
end;
end;
end;
procedure Tfrm_op_ctn.Button2Click(Sender: TObject);
begin
with t_op_ctn do
try
DisableControls;
First;
while not Eof do
begin
if wwDBLookupCombo61.Value<>'' then
begin
Edit;
FieldByName('<27><>װ').AsString:=wwDBLookupCombo61.Value;
Post;
end;
Next;
end;
finally
t_op_ctn.EnableControls;
end;
end;
procedure Tfrm_op_ctn.btn1Click(Sender: TObject);
begin
with t_op_ctn do
try
DisableControls;
First;
while not Eof do
begin
if wwDBComboBox2.Value<>'' then
begin
Edit;
FieldByName('<27><><EFBFBD>ط<EFBFBD>ʽ').AsString:=wwDBComboBox2.Value;
Post;
end;
Next;
end;
finally
t_op_ctn.EnableControls;
end;
end;
procedure Tfrm_op_ctn.bsSkinButton15Click(Sender: TObject);
var
yardcode:string;
IdHTTP1:TIdHTTP;
strmsg,company:string;
Url : string;//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ
ResponseStream : TStringStream; //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ
ResponseStr: string;
RequestStr : string; //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ
RequestStream : TStringStream;
jo:ISuperobject;
tt:TSuperArray;
i:Integer;
CTNALL,s_ctnno,s_ctnType,pkgs,kgs,cbm:string;
begin
if Trim(t_op_ctn.DataSource.DataSet.fieldbyname('<27><>վ').AsString)='' then begin
ShowMessage('<27><>վ<EFBFBD><D5BE><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>');
exit;
end;
if Trim(t_op_ctn.DataSource.DataSet.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString)='' then begin
ShowMessage('<27><><EFBFBD>ᵥ<EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>');
exit;
end;
yardcode:=getYardCode(Trim(t_op_ctn.DataSource.DataSet.fieldbyname('<27><>վ').AsString));
if (yardcode='') then begin
ShowMessage('<27><>վ<EFBFBD><D5BE>ʤ<EFBFBD><CAA4><EFBFBD>벻<EFBFBD><EBB2BB>Ϊ<EFBFBD>գ<EFBFBD>');
exit;
end;
company:=frm_data_share.t_sys_company.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
ResponseStream := TStringStream.Create('');
RequestStream := TStringStream.Create('');
IdHTTP1:=TIdHTTP.Create(Application);
try
IdHttp1.Request.Accept := '*/*';
IdHttp1.Request.AcceptLanguage:='zh-CN';
IdHttp1.Request.UserAgent:='Mozilla/3.0 (compatible; Indy Library)';
IdHttp1.Request.ContentType:='application/x-www-form-urlencoded';
Url:='http://47.104.90.170:5000/query';
try
RequestStr:='webusername=&webuserpass=&mblno='+Trim(t_op_ctn.DataSource.DataSet.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString)+'&yardid='+yardcode+'&isweb=0&custname='+company+'&psw='; //<2F><>С<EFBFBD><D0A1>
RequestStream.WriteString(RequestStr);
IdHttp1.post(Url,RequestStream,ResponseStream);
except
on e : Exception do
begin
end;
end;
ResponseStr := ResponseStream.DataString; //<2F><>ȡ<EFBFBD><C8A1>ҳ<EFBFBD><D2B3><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>Ϣ
ResponseStr := UTF8Decode(ResponseStr); //<2F><>ҳ<EFBFBD>еĴ<D0B5><C4B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD>UTF8<46><38><EFBFBD><EFBFBD>
jo:=so(ResponseStr);
if (jo.O['status'].AsString='0') then begin
showmessage('<27>޷<EFBFBD><DEB7><EFBFBD>ȡ,'+jo.O['message'].AsString);
end else begin
tt:=jo.O['message'].AsArray;
for i:=0 to tt.Length-1 do
begin
CTNALL:=tt.O[i].S['CTNALL'];
if t_op_ctn.Locate('<27><><EFBFBD><EFBFBD>',Trim(tt.O[i].S['CNTRNO']),[]) then
begin
t_op_ctn.Edit;
s_ctnno:=Copy(CTNALL,1,2);
s_ctnType:=Copy(CTNALL,3,2);
if frm_data_share.t_code_ctn.Locate('<27>ߴ<EFBFBD>;<3B><><EFBFBD><EFBFBD>',VarArrayOf([trim(s_ctnno),trim(s_ctnType)]), []) then
begin
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=frm_data_share.t_code_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
end;
pkgs:=tt.O[i].S['PKGS'];
kgs:=tt.O[i].S['KGS'];
cbm:=tt.O[i].S['CBM'];
if pkgs='' then pkgs:='0';
if kgs='' then kgs:='0';
if cbm='' then cbm:='0';
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=tt.O[i].S['SEALNO'];
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger:=StrToInt(pkgs);
t_op_ctn.FieldByName('<27><>װ').AsString:=t_op_ctn.DataSource.DataSet.fieldbyname('<27><>װ').AsString;
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=StrToFloatDef(kgs,0);
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=StrToFloatDef(cbm,0);
t_op_ctn.Post;
end
else
begin
t_op_ctn.append;
s_ctnno:=Copy(CTNALL,1,2);
s_ctnType:=Copy(CTNALL,3,2);
pkgs:=tt.O[i].S['PKGS'];
kgs:=tt.O[i].S['KGS'];
cbm:=tt.O[i].S['CBM'];
if pkgs='' then pkgs:='0';
if kgs='' then kgs:='0';
if cbm='' then cbm:='0';
if frm_data_share.t_code_ctn.Locate('<27>ߴ<EFBFBD>;<3B><><EFBFBD><EFBFBD>',VarArrayOf([trim(s_ctnno),trim(s_ctnType)]), []) then
begin
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=frm_data_share.t_code_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
end;
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=tt.O[i].S['CNTRNO'];
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=tt.O[i].S['SEALNO'];
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger:=StrToInt(pkgs);
t_op_ctn.FieldByName('<27><>װ').AsString:=t_op_ctn.DataSource.DataSet.fieldbyname('<27><>װ').AsString;
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=StrToFloatDef(kgs,0);
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=StrToFloatDef(cbm,0);
t_op_ctn.Post;
end;
end;
end;
finally
FreeAndNil(IdHTTP1);
end;
end;
function Tfrm_op_ctn.getYardCode(yard: string): string;
var
aQuery:TADOQuery;
begin
aQuery:=CreateAdoQuery;
try
with aQuery do begin
Close;SQL.Clear;
SQL.Add('Select <20><>ʤ<EFBFBD><CAA4><EFBFBD><EFBFBD> from t_crm_client where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='''+yard+'''');
Open;
if not IsEmpty then
Result:=Trim(FieldByName('<27><>ʤ<EFBFBD><CAA4><EFBFBD><EFBFBD>').asstring)
else
Result:='';
end;
finally
FreeAndNil(aQuery);
end;
end;
end.
Reference in New Issue View Git Blame Copy Permalink