TomBuzin/LOVATO-plugin
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
main
LOVATO-plugin/IEGate.pas
TomBuz c0aa420ae0 Prvni verze na Git
2026-04-07 18:23:56 +02:00

2843 lines
101 KiB
ObjectPascal
Raw Permalink Blame History

// ************************************************************************ //
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL : http://www.ppl.cz/IEGate/IEGate.asmx?WSDL
// >Import : http://www.ppl.cz/IEGate/IEGate.asmx?WSDL>0
// >Import : http://www.ppl.cz/IEGate/IEGate.asmx?WSDL>1
// Encoding : utf-8
// Codegen : [wfForceSOAP12+]
// Version : 1.0
// (5.10.2011 16:44:43 - - $Rev: 25127 $)
// ************************************************************************ //
unit IEGate;
interface
uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;
const
IS_OPTN = $0001;
IS_UNBD = $0002;
IS_NLBL = $0004;
IS_UNQL = $0008;
IS_REF = $0080;
type
// ************************************************************************ //
// The following types, referred to in the WSDL document are not being represented
// in this file. They are either aliases[@] of other types represented or were referred
// to but never[!] declared in the document. The types from the latter category
// typically map to predefined/known XML or Embarcadero types; however, they could also
// indicate incorrect WSDL documents that failed to declare or import a schema type.
// ************************************************************************ //
// !:int - "http://www.w3.org/2001/XMLSchema"[Gbl]
// !:string - "http://www.w3.org/2001/XMLSchema"[Gbl]
// !:decimal - "http://www.w3.org/2001/XMLSchema"[Gbl]
// !:boolean - "http://www.w3.org/2001/XMLSchema"[Gbl]
// !:unsignedByte - "http://www.w3.org/2001/XMLSchema"[Gbl]
// !:dateTime - "http://www.w3.org/2001/XMLSchema"[Gbl]
// !:float - "http://www.w3.org/2001/XMLSchema"[Gbl]
// !:schema - "http://www.w3.org/2001/XMLSchema"[Gbl]
// !: - "PPLIEGate"[]
Package_ = class; { "PPLIEGate"[GblCplx] }
City = class; { "PPLIEGate"[GblCplx] }
PackageWeighed = class; { "PPLIEGate"[GblCplx] }
ZipCode = class; { "PPLIEGate"[GblCplx] }
PackageEsyco = class; { "PPLIEGate"[GblCplx] }
PackageInfo = class; { "PPLIEGate"[GblCplx] }
Order = class; { "PPLIEGate"[GblCplx] }
StatusDHL = class; { "PPLIEGate"[GblCplx] }
OrderCart = class; { "PPLIEGate"[GblCplx] }
PackageInfo2 = class; { "PPLIEGate"[GblElm] }
colOrderCart = class; { "PPLIEGate"[GblCplx] }
colStatus = class; { "PPLIEGate"[GblCplx] }
colPackageHoffmann = class; { "PPLIEGate"[GblCplx] }
colPackageWeighed = class; { "PPLIEGate"[GblCplx] }
colOrder = class; { "PPLIEGate"[GblCplx] }
colPackage = class; { "PPLIEGate"[GblCplx] }
colPackage2 = class; { "PPLIEGate"[GblElm] }
colPPLSprint = class; { "PPLIEGate"[GblCplx] }
// ************************************************************************ //
// XML : Package, global, <complexType>
// Namespace : PPLIEGate
// ************************************************************************ //
Package_ = class(TRemotable)
private
FPackageID: string;
FPackageID_Specified: boolean;
FPackageIDCUS: string;
FPackageIDCUS_Specified: boolean;
FZipCode: string;
FZipCode_Specified: boolean;
FCountry: string;
FCountry_Specified: boolean;
FCodPrice: TXSDecimal;
FCodPriceCurID: string;
FCodPriceCurID_Specified: boolean;
FVarSym: string;
FVarSym_Specified: boolean;
FConsigneeName: string;
FConsigneeName_Specified: boolean;
FConsigneeStreet: string;
FConsigneeStreet_Specified: boolean;
FConsigneeCity: string;
FConsigneeCity_Specified: boolean;
FPhone: string;
FPhone_Specified: boolean;
FContact: string;
FContact_Specified: boolean;
FEveningDelivery: Boolean;
FCustRef: string;
FCustRef_Specified: boolean;
FLength: string;
FLength_Specified: boolean;
FHeight: string;
FHeight_Specified: boolean;
FWidth: string;
FWidth_Specified: boolean;
FRecMail: string;
FRecMail_Specified: boolean;
FErrorCode: Integer;
FErrorMessage: string;
FErrorMessage_Specified: boolean;
procedure SetPackageID(Index: Integer; const Astring: string);
function PackageID_Specified(Index: Integer): boolean;
procedure SetPackageIDCUS(Index: Integer; const Astring: string);
function PackageIDCUS_Specified(Index: Integer): boolean;
procedure SetZipCode(Index: Integer; const Astring: string);
function ZipCode_Specified(Index: Integer): boolean;
procedure SetCountry(Index: Integer; const Astring: string);
function Country_Specified(Index: Integer): boolean;
procedure SetCodPriceCurID(Index: Integer; const Astring: string);
function CodPriceCurID_Specified(Index: Integer): boolean;
procedure SetVarSym(Index: Integer; const Astring: string);
function VarSym_Specified(Index: Integer): boolean;
procedure SetConsigneeName(Index: Integer; const Astring: string);
function ConsigneeName_Specified(Index: Integer): boolean;
procedure SetConsigneeStreet(Index: Integer; const Astring: string);
function ConsigneeStreet_Specified(Index: Integer): boolean;
procedure SetConsigneeCity(Index: Integer; const Astring: string);
function ConsigneeCity_Specified(Index: Integer): boolean;
procedure SetPhone(Index: Integer; const Astring: string);
function Phone_Specified(Index: Integer): boolean;
procedure SetContact(Index: Integer; const Astring: string);
function Contact_Specified(Index: Integer): boolean;
procedure SetCustRef(Index: Integer; const Astring: string);
function CustRef_Specified(Index: Integer): boolean;
procedure SetLength(Index: Integer; const Astring: string);
function Length_Specified(Index: Integer): boolean;
procedure SetHeight(Index: Integer; const Astring: string);
function Height_Specified(Index: Integer): boolean;
procedure SetWidth(Index: Integer; const Astring: string);
function Width_Specified(Index: Integer): boolean;
procedure SetRecMail(Index: Integer; const Astring: string);
function RecMail_Specified(Index: Integer): boolean;
procedure SetErrorMessage(Index: Integer; const Astring: string);
function ErrorMessage_Specified(Index: Integer): boolean;
public
destructor Destroy; override;
published
property PackageID: string Index (IS_OPTN) read FPackageID write SetPackageID stored PackageID_Specified;
property PackageIDCUS: string Index (IS_OPTN) read FPackageIDCUS write SetPackageIDCUS stored PackageIDCUS_Specified;
property ZipCode: string Index (IS_OPTN) read FZipCode write SetZipCode stored ZipCode_Specified;
property Country: string Index (IS_OPTN) read FCountry write SetCountry stored Country_Specified;
property CodPrice: TXSDecimal read FCodPrice write FCodPrice;
property CodPriceCurID: string Index (IS_OPTN) read FCodPriceCurID write SetCodPriceCurID stored CodPriceCurID_Specified;
property VarSym: string Index (IS_OPTN) read FVarSym write SetVarSym stored VarSym_Specified;
property ConsigneeName: string Index (IS_OPTN) read FConsigneeName write SetConsigneeName stored ConsigneeName_Specified;
property ConsigneeStreet: string Index (IS_OPTN) read FConsigneeStreet write SetConsigneeStreet stored ConsigneeStreet_Specified;
property ConsigneeCity: string Index (IS_OPTN) read FConsigneeCity write SetConsigneeCity stored ConsigneeCity_Specified;
property Phone: string Index (IS_OPTN) read FPhone write SetPhone stored Phone_Specified;
property Contact: string Index (IS_OPTN) read FContact write SetContact stored Contact_Specified;
property EveningDelivery: Boolean read FEveningDelivery write FEveningDelivery;
property CustRef: string Index (IS_OPTN) read FCustRef write SetCustRef stored CustRef_Specified;
property Length: string Index (IS_OPTN) read FLength write SetLength stored Length_Specified;
property Height: string Index (IS_OPTN) read FHeight write SetHeight stored Height_Specified;
property Width: string Index (IS_OPTN) read FWidth write SetWidth stored Width_Specified;
property RecMail: string Index (IS_OPTN) read FRecMail write SetRecMail stored RecMail_Specified;
property ErrorCode: Integer read FErrorCode write FErrorCode;
property ErrorMessage: string Index (IS_OPTN) read FErrorMessage write SetErrorMessage stored ErrorMessage_Specified;
end;
// ************************************************************************ //
// XML : City, global, <complexType>
// Namespace : PPLIEGate
// ************************************************************************ //
City = class(TRemotable)
private
FZip: string;
FZip_Specified: boolean;
FCity: string;
FCity_Specified: boolean;
FRegion: string;
FRegion_Specified: boolean;
FPost: string;
FPost_Specified: boolean;
FCountry: string;
FCountry_Specified: boolean;
FReject: Boolean;
procedure SetZip(Index: Integer; const Astring: string);
function Zip_Specified(Index: Integer): boolean;
procedure SetCity(Index: Integer; const Astring: string);
function City_Specified(Index: Integer): boolean;
procedure SetRegion(Index: Integer; const Astring: string);
function Region_Specified(Index: Integer): boolean;
procedure SetPost(Index: Integer; const Astring: string);
function Post_Specified(Index: Integer): boolean;
procedure SetCountry(Index: Integer; const Astring: string);
function Country_Specified(Index: Integer): boolean;
published
property Zip: string Index (IS_OPTN) read FZip write SetZip stored Zip_Specified;
property City: string Index (IS_OPTN) read FCity write SetCity stored City_Specified;
property Region: string Index (IS_OPTN) read FRegion write SetRegion stored Region_Specified;
property Post: string Index (IS_OPTN) read FPost write SetPost stored Post_Specified;
property Country: string Index (IS_OPTN) read FCountry write SetCountry stored Country_Specified;
property Reject: Boolean read FReject write FReject;
end;
// ************************************************************************ //
// XML : PackageWeighed, global, <complexType>
// Namespace : PPLIEGate
// ************************************************************************ //
PackageWeighed = class(TRemotable)
private
FPackageID: string;
FPackageID_Specified: boolean;
FPackageIDCUS: string;
FPackageIDCUS_Specified: boolean;
FInputDestination: string;
FInputDestination_Specified: boolean;
FOutputDestination: string;
FOutputDestination_Specified: boolean;
FZipCode: string;
FZipCode_Specified: boolean;
FWeight: TXSDecimal;
FCountry: string;
FCountry_Specified: boolean;
FPrice: TXSDecimal;
FPriceCurID: string;
FPriceCurID_Specified: boolean;
FConsigneeName: string;
FConsigneeName_Specified: boolean;
FConsigneeStreet: string;
FConsigneeStreet_Specified: boolean;
FConsigneeCity: string;
FConsigneeCity_Specified: boolean;
FPhone: string;
FPhone_Specified: boolean;
FVarSym: string;
FVarSym_Specified: boolean;
FAccount: string;
FAccount_Specified: boolean;
FBankCode: string;
FBankCode_Specified: boolean;
FSpecSymbol: string;
FSpecSymbol_Specified: boolean;
FDateDelivFrom: string;
FDateDelivFrom_Specified: boolean;
FDateDelivTo: string;
FDateDelivTo_Specified: boolean;
FContact: string;
FContact_Specified: boolean;
FCustRef: string;
FCustRef_Specified: boolean;
FEveningDelivery: Boolean;
FLength: string;
FLength_Specified: boolean;
FHeight: string;
FHeight_Specified: boolean;
FWidth: string;
FWidth_Specified: boolean;
FRecMail: string;
FRecMail_Specified: boolean;
FErrorCode: Integer;
FErrorMessage: string;
FErrorMessage_Specified: boolean;
procedure SetPackageID(Index: Integer; const Astring: string);
function PackageID_Specified(Index: Integer): boolean;
procedure SetPackageIDCUS(Index: Integer; const Astring: string);
function PackageIDCUS_Specified(Index: Integer): boolean;
procedure SetInputDestination(Index: Integer; const Astring: string);
function InputDestination_Specified(Index: Integer): boolean;
procedure SetOutputDestination(Index: Integer; const Astring: string);
function OutputDestination_Specified(Index: Integer): boolean;
procedure SetZipCode(Index: Integer; const Astring: string);
function ZipCode_Specified(Index: Integer): boolean;
procedure SetCountry(Index: Integer; const Astring: string);
function Country_Specified(Index: Integer): boolean;
procedure SetPriceCurID(Index: Integer; const Astring: string);
function PriceCurID_Specified(Index: Integer): boolean;
procedure SetConsigneeName(Index: Integer; const Astring: string);
function ConsigneeName_Specified(Index: Integer): boolean;
procedure SetConsigneeStreet(Index: Integer; const Astring: string);
function ConsigneeStreet_Specified(Index: Integer): boolean;
procedure SetConsigneeCity(Index: Integer; const Astring: string);
function ConsigneeCity_Specified(Index: Integer): boolean;
procedure SetPhone(Index: Integer; const Astring: string);
function Phone_Specified(Index: Integer): boolean;
procedure SetVarSym(Index: Integer; const Astring: string);
function VarSym_Specified(Index: Integer): boolean;
procedure SetAccount(Index: Integer; const Astring: string);
function Account_Specified(Index: Integer): boolean;
procedure SetBankCode(Index: Integer; const Astring: string);
function BankCode_Specified(Index: Integer): boolean;
procedure SetSpecSymbol(Index: Integer; const Astring: string);
function SpecSymbol_Specified(Index: Integer): boolean;
procedure SetDateDelivFrom(Index: Integer; const Astring: string);
function DateDelivFrom_Specified(Index: Integer): boolean;
procedure SetDateDelivTo(Index: Integer; const Astring: string);
function DateDelivTo_Specified(Index: Integer): boolean;
procedure SetContact(Index: Integer; const Astring: string);
function Contact_Specified(Index: Integer): boolean;
procedure SetCustRef(Index: Integer; const Astring: string);
function CustRef_Specified(Index: Integer): boolean;
procedure SetLength(Index: Integer; const Astring: string);
function Length_Specified(Index: Integer): boolean;
procedure SetHeight(Index: Integer; const Astring: string);
function Height_Specified(Index: Integer): boolean;
procedure SetWidth(Index: Integer; const Astring: string);
function Width_Specified(Index: Integer): boolean;
procedure SetRecMail(Index: Integer; const Astring: string);
function RecMail_Specified(Index: Integer): boolean;
procedure SetErrorMessage(Index: Integer; const Astring: string);
function ErrorMessage_Specified(Index: Integer): boolean;
public
destructor Destroy; override;
published
property PackageID: string Index (IS_OPTN) read FPackageID write SetPackageID stored PackageID_Specified;
property PackageIDCUS: string Index (IS_OPTN) read FPackageIDCUS write SetPackageIDCUS stored PackageIDCUS_Specified;
property InputDestination: string Index (IS_OPTN) read FInputDestination write SetInputDestination stored InputDestination_Specified;
property OutputDestination: string Index (IS_OPTN) read FOutputDestination write SetOutputDestination stored OutputDestination_Specified;
property ZipCode: string Index (IS_OPTN) read FZipCode write SetZipCode stored ZipCode_Specified;
property Weight: TXSDecimal read FWeight write FWeight;
property Country: string Index (IS_OPTN) read FCountry write SetCountry stored Country_Specified;
property Price: TXSDecimal read FPrice write FPrice;
property PriceCurID: string Index (IS_OPTN) read FPriceCurID write SetPriceCurID stored PriceCurID_Specified;
property ConsigneeName: string Index (IS_OPTN) read FConsigneeName write SetConsigneeName stored ConsigneeName_Specified;
property ConsigneeStreet: string Index (IS_OPTN) read FConsigneeStreet write SetConsigneeStreet stored ConsigneeStreet_Specified;
property ConsigneeCity: string Index (IS_OPTN) read FConsigneeCity write SetConsigneeCity stored ConsigneeCity_Specified;
property Phone: string Index (IS_OPTN) read FPhone write SetPhone stored Phone_Specified;
property VarSym: string Index (IS_OPTN) read FVarSym write SetVarSym stored VarSym_Specified;
property Account: string Index (IS_OPTN) read FAccount write SetAccount stored Account_Specified;
property BankCode: string Index (IS_OPTN) read FBankCode write SetBankCode stored BankCode_Specified;
property SpecSymbol: string Index (IS_OPTN) read FSpecSymbol write SetSpecSymbol stored SpecSymbol_Specified;
property DateDelivFrom: string Index (IS_OPTN) read FDateDelivFrom write SetDateDelivFrom stored DateDelivFrom_Specified;
property DateDelivTo: string Index (IS_OPTN) read FDateDelivTo write SetDateDelivTo stored DateDelivTo_Specified;
property Contact: string Index (IS_OPTN) read FContact write SetContact stored Contact_Specified;
property CustRef: string Index (IS_OPTN) read FCustRef write SetCustRef stored CustRef_Specified;
property EveningDelivery: Boolean read FEveningDelivery write FEveningDelivery;
property Length: string Index (IS_OPTN) read FLength write SetLength stored Length_Specified;
property Height: string Index (IS_OPTN) read FHeight write SetHeight stored Height_Specified;
property Width: string Index (IS_OPTN) read FWidth write SetWidth stored Width_Specified;
property RecMail: string Index (IS_OPTN) read FRecMail write SetRecMail stored RecMail_Specified;
property ErrorCode: Integer read FErrorCode write FErrorCode;
property ErrorMessage: string Index (IS_OPTN) read FErrorMessage write SetErrorMessage stored ErrorMessage_Specified;
end;
// ************************************************************************ //
// XML : ZipCode, global, <complexType>
// Namespace : PPLIEGate
// ************************************************************************ //
ZipCode = class(TRemotable)
private
FZip: string;
FZip_Specified: boolean;
FPost: string;
FPost_Specified: boolean;
FDepot: string;
FDepot_Specified: boolean;
FDestination: string;
FDestination_Specified: boolean;
FVisual: Byte;
FEveningDelivery: Boolean;
procedure SetZip(Index: Integer; const Astring: string);
function Zip_Specified(Index: Integer): boolean;
procedure SetPost(Index: Integer; const Astring: string);
function Post_Specified(Index: Integer): boolean;
procedure SetDepot(Index: Integer; const Astring: string);
function Depot_Specified(Index: Integer): boolean;
procedure SetDestination(Index: Integer; const Astring: string);
function Destination_Specified(Index: Integer): boolean;
published
property Zip: string Index (IS_OPTN) read FZip write SetZip stored Zip_Specified;
property Post: string Index (IS_OPTN) read FPost write SetPost stored Post_Specified;
property Depot: string Index (IS_OPTN) read FDepot write SetDepot stored Depot_Specified;
property Destination: string Index (IS_OPTN) read FDestination write SetDestination stored Destination_Specified;
property Visual: Byte read FVisual write FVisual;
property EveningDelivery: Boolean read FEveningDelivery write FEveningDelivery;
end;
// ************************************************************************ //
// XML : PackageEsyco, global, <complexType>
// Namespace : PPLIEGate
// ************************************************************************ //
PackageEsyco = class(TRemotable)
private
FPackageID: string;
FPackageID_Specified: boolean;
FZipCode: string;
FZipCode_Specified: boolean;
FCountry: string;
FCountry_Specified: boolean;
FCodPrice: TXSDecimal;
FVarSym: string;
FVarSym_Specified: boolean;
FAccount: string;
FAccount_Specified: boolean;
FBankCode: string;
FBankCode_Specified: boolean;
FSpecSymbol: string;
FSpecSymbol_Specified: boolean;
FConsigneeName: string;
FConsigneeName_Specified: boolean;
FConsigneeStreet: string;
FConsigneeStreet_Specified: boolean;
FConsigneeCity: string;
FConsigneeCity_Specified: boolean;
FPhone: string;
FPhone_Specified: boolean;
FErrorCode: Integer;
FErrorMessage: string;
FErrorMessage_Specified: boolean;
procedure SetPackageID(Index: Integer; const Astring: string);
function PackageID_Specified(Index: Integer): boolean;
procedure SetZipCode(Index: Integer; const Astring: string);
function ZipCode_Specified(Index: Integer): boolean;
procedure SetCountry(Index: Integer; const Astring: string);
function Country_Specified(Index: Integer): boolean;
procedure SetVarSym(Index: Integer; const Astring: string);
function VarSym_Specified(Index: Integer): boolean;
procedure SetAccount(Index: Integer; const Astring: string);
function Account_Specified(Index: Integer): boolean;
procedure SetBankCode(Index: Integer; const Astring: string);
function BankCode_Specified(Index: Integer): boolean;
procedure SetSpecSymbol(Index: Integer; const Astring: string);
function SpecSymbol_Specified(Index: Integer): boolean;
procedure SetConsigneeName(Index: Integer; const Astring: string);
function ConsigneeName_Specified(Index: Integer): boolean;
procedure SetConsigneeStreet(Index: Integer; const Astring: string);
function ConsigneeStreet_Specified(Index: Integer): boolean;
procedure SetConsigneeCity(Index: Integer; const Astring: string);
function ConsigneeCity_Specified(Index: Integer): boolean;
procedure SetPhone(Index: Integer; const Astring: string);
function Phone_Specified(Index: Integer): boolean;
procedure SetErrorMessage(Index: Integer; const Astring: string);
function ErrorMessage_Specified(Index: Integer): boolean;
public
destructor Destroy; override;
published
property PackageID: string Index (IS_OPTN) read FPackageID write SetPackageID stored PackageID_Specified;
property ZipCode: string Index (IS_OPTN) read FZipCode write SetZipCode stored ZipCode_Specified;
property Country: string Index (IS_OPTN) read FCountry write SetCountry stored Country_Specified;
property CodPrice: TXSDecimal read FCodPrice write FCodPrice;
property VarSym: string Index (IS_OPTN) read FVarSym write SetVarSym stored VarSym_Specified;
property Account: string Index (IS_OPTN) read FAccount write SetAccount stored Account_Specified;
property BankCode: string Index (IS_OPTN) read FBankCode write SetBankCode stored BankCode_Specified;
property SpecSymbol: string Index (IS_OPTN) read FSpecSymbol write SetSpecSymbol stored SpecSymbol_Specified;
property ConsigneeName: string Index (IS_OPTN) read FConsigneeName write SetConsigneeName stored ConsigneeName_Specified;
property ConsigneeStreet: string Index (IS_OPTN) read FConsigneeStreet write SetConsigneeStreet stored ConsigneeStreet_Specified;
property ConsigneeCity: string Index (IS_OPTN) read FConsigneeCity write SetConsigneeCity stored ConsigneeCity_Specified;
property Phone: string Index (IS_OPTN) read FPhone write SetPhone stored Phone_Specified;
property ErrorCode: Integer read FErrorCode write FErrorCode;
property ErrorMessage: string Index (IS_OPTN) read FErrorMessage write SetErrorMessage stored ErrorMessage_Specified;
end;
ArrayOfZipCode = array of ZipCode; { "PPLIEGate"[GblCplx] }
ArrayOfCity = array of City; { "PPLIEGate"[GblCplx] }
ArrayOfString = array of string; { "PPLIEGate"[GblCplx] }
// ************************************************************************ //
// XML : PackageInfo, global, <complexType>
// Namespace : PPLIEGate
// ************************************************************************ //
PackageInfo = class(TRemotable)
private
FPackageID: string;
FPackageID_Specified: boolean;
FPackageIDCus: string;
FPackageIDCus_Specified: boolean;
FCustReference: string;
FCustReference_Specified: boolean;
FInputDepoCode: string;
FInputDepoCode_Specified: boolean;
FInputDepoName: string;
FInputDepoName_Specified: boolean;
FOutputDepoCode: string;
FOutputDepoCode_Specified: boolean;
FOutputDepoName: string;
FOutputDepoName_Specified: boolean;
FRecZipCode: string;
FRecZipCode_Specified: boolean;
FRecCity: string;
FRecCity_Specified: boolean;
FWeight: Single;
FDateInputDepo: string;
FDateInputDepo_Specified: boolean;
FDateWeighed: string;
FDateWeighed_Specified: boolean;
FDateCentral: string;
FDateCentral_Specified: boolean;
FDateOutputDepo: string;
FDateOutputDepo_Specified: boolean;
FDateNotDeliv: string;
FDateNotDeliv_Specified: boolean;
FNotDelivCode: string;
FNotDelivCode_Specified: boolean;
FNotDelivName: string;
FNotDelivName_Specified: boolean;
FDateDeliv: string;
FDateDeliv_Specified: boolean;
FDelivPerson: string;
FDelivPerson_Specified: boolean;
FDateExport: string;
FDateExport_Specified: boolean;
FDateImport: string;
FDateImport_Specified: boolean;
FInputCountry: string;
FInputCountry_Specified: boolean;
FOutputCountry: string;
FOutputCountry_Specified: boolean;
FInvoiceNumber: string;
FInvoiceNumber_Specified: boolean;
FReturnToSender: string;
FReturnToSender_Specified: boolean;
FSendInfo: string;
FSendInfo_Specified: boolean;
FCardPay: Boolean;
FEveningDelivery: Boolean;
FLoadingDate: string;
FLoadingDate_Specified: boolean;
FCodPrice: TXSDecimal;
FDateTakeMoney: string;
FDateTakeMoney_Specified: boolean;
FDateMoneyToBank: string;
FDateMoneyToBank_Specified: boolean;
FDateMoneyToCustomer: string;
FDateMoneyToCustomer_Specified: boolean;
FErrorCode: Integer;
FErrorMessage: string;
FErrorMessage_Specified: boolean;
procedure SetPackageID(Index: Integer; const Astring: string);
function PackageID_Specified(Index: Integer): boolean;
procedure SetPackageIDCus(Index: Integer; const Astring: string);
function PackageIDCus_Specified(Index: Integer): boolean;
procedure SetCustReference(Index: Integer; const Astring: string);
function CustReference_Specified(Index: Integer): boolean;
procedure SetInputDepoCode(Index: Integer; const Astring: string);
function InputDepoCode_Specified(Index: Integer): boolean;
procedure SetInputDepoName(Index: Integer; const Astring: string);
function InputDepoName_Specified(Index: Integer): boolean;
procedure SetOutputDepoCode(Index: Integer; const Astring: string);
function OutputDepoCode_Specified(Index: Integer): boolean;
procedure SetOutputDepoName(Index: Integer; const Astring: string);
function OutputDepoName_Specified(Index: Integer): boolean;
procedure SetRecZipCode(Index: Integer; const Astring: string);
function RecZipCode_Specified(Index: Integer): boolean;
procedure SetRecCity(Index: Integer; const Astring: string);
function RecCity_Specified(Index: Integer): boolean;
procedure SetDateInputDepo(Index: Integer; const Astring: string);
function DateInputDepo_Specified(Index: Integer): boolean;
procedure SetDateWeighed(Index: Integer; const Astring: string);
function DateWeighed_Specified(Index: Integer): boolean;
procedure SetDateCentral(Index: Integer; const Astring: string);
function DateCentral_Specified(Index: Integer): boolean;
procedure SetDateOutputDepo(Index: Integer; const Astring: string);
function DateOutputDepo_Specified(Index: Integer): boolean;
procedure SetDateNotDeliv(Index: Integer; const Astring: string);
function DateNotDeliv_Specified(Index: Integer): boolean;
procedure SetNotDelivCode(Index: Integer; const Astring: string);
function NotDelivCode_Specified(Index: Integer): boolean;
procedure SetNotDelivName(Index: Integer; const Astring: string);
function NotDelivName_Specified(Index: Integer): boolean;
procedure SetDateDeliv(Index: Integer; const Astring: string);
function DateDeliv_Specified(Index: Integer): boolean;
procedure SetDelivPerson(Index: Integer; const Astring: string);
function DelivPerson_Specified(Index: Integer): boolean;
procedure SetDateExport(Index: Integer; const Astring: string);
function DateExport_Specified(Index: Integer): boolean;
procedure SetDateImport(Index: Integer; const Astring: string);
function DateImport_Specified(Index: Integer): boolean;
procedure SetInputCountry(Index: Integer; const Astring: string);
function InputCountry_Specified(Index: Integer): boolean;
procedure SetOutputCountry(Index: Integer; const Astring: string);
function OutputCountry_Specified(Index: Integer): boolean;
procedure SetInvoiceNumber(Index: Integer; const Astring: string);
function InvoiceNumber_Specified(Index: Integer): boolean;
procedure SetReturnToSender(Index: Integer; const Astring: string);
function ReturnToSender_Specified(Index: Integer): boolean;
procedure SetSendInfo(Index: Integer; const Astring: string);
function SendInfo_Specified(Index: Integer): boolean;
procedure SetLoadingDate(Index: Integer; const Astring: string);
function LoadingDate_Specified(Index: Integer): boolean;
procedure SetDateTakeMoney(Index: Integer; const Astring: string);
function DateTakeMoney_Specified(Index: Integer): boolean;
procedure SetDateMoneyToBank(Index: Integer; const Astring: string);
function DateMoneyToBank_Specified(Index: Integer): boolean;
procedure SetDateMoneyToCustomer(Index: Integer; const Astring: string);
function DateMoneyToCustomer_Specified(Index: Integer): boolean;
procedure SetErrorMessage(Index: Integer; const Astring: string);
function ErrorMessage_Specified(Index: Integer): boolean;
public
destructor Destroy; override;
published
property PackageID: string Index (IS_OPTN) read FPackageID write SetPackageID stored PackageID_Specified;
property PackageIDCus: string Index (IS_OPTN) read FPackageIDCus write SetPackageIDCus stored PackageIDCus_Specified;
property CustReference: string Index (IS_OPTN) read FCustReference write SetCustReference stored CustReference_Specified;
property InputDepoCode: string Index (IS_OPTN) read FInputDepoCode write SetInputDepoCode stored InputDepoCode_Specified;
property InputDepoName: string Index (IS_OPTN) read FInputDepoName write SetInputDepoName stored InputDepoName_Specified;
property OutputDepoCode: string Index (IS_OPTN) read FOutputDepoCode write SetOutputDepoCode stored OutputDepoCode_Specified;
property OutputDepoName: string Index (IS_OPTN) read FOutputDepoName write SetOutputDepoName stored OutputDepoName_Specified;
property RecZipCode: string Index (IS_OPTN) read FRecZipCode write SetRecZipCode stored RecZipCode_Specified;
property RecCity: string Index (IS_OPTN) read FRecCity write SetRecCity stored RecCity_Specified;
property Weight: Single read FWeight write FWeight;
property DateInputDepo: string Index (IS_OPTN) read FDateInputDepo write SetDateInputDepo stored DateInputDepo_Specified;
property DateWeighed: string Index (IS_OPTN) read FDateWeighed write SetDateWeighed stored DateWeighed_Specified;
property DateCentral: string Index (IS_OPTN) read FDateCentral write SetDateCentral stored DateCentral_Specified;
property DateOutputDepo: string Index (IS_OPTN) read FDateOutputDepo write SetDateOutputDepo stored DateOutputDepo_Specified;
property DateNotDeliv: string Index (IS_OPTN) read FDateNotDeliv write SetDateNotDeliv stored DateNotDeliv_Specified;
property NotDelivCode: string Index (IS_OPTN) read FNotDelivCode write SetNotDelivCode stored NotDelivCode_Specified;
property NotDelivName: string Index (IS_OPTN) read FNotDelivName write SetNotDelivName stored NotDelivName_Specified;
property DateDeliv: string Index (IS_OPTN) read FDateDeliv write SetDateDeliv stored DateDeliv_Specified;
property DelivPerson: string Index (IS_OPTN) read FDelivPerson write SetDelivPerson stored DelivPerson_Specified;
property DateExport: string Index (IS_OPTN) read FDateExport write SetDateExport stored DateExport_Specified;
property DateImport: string Index (IS_OPTN) read FDateImport write SetDateImport stored DateImport_Specified;
property InputCountry: string Index (IS_OPTN) read FInputCountry write SetInputCountry stored InputCountry_Specified;
property OutputCountry: string Index (IS_OPTN) read FOutputCountry write SetOutputCountry stored OutputCountry_Specified;
property InvoiceNumber: string Index (IS_OPTN) read FInvoiceNumber write SetInvoiceNumber stored InvoiceNumber_Specified;
property ReturnToSender: string Index (IS_OPTN) read FReturnToSender write SetReturnToSender stored ReturnToSender_Specified;
property SendInfo: string Index (IS_OPTN) read FSendInfo write SetSendInfo stored SendInfo_Specified;
property CardPay: Boolean read FCardPay write FCardPay;
property EveningDelivery: Boolean read FEveningDelivery write FEveningDelivery;
property LoadingDate: string Index (IS_OPTN) read FLoadingDate write SetLoadingDate stored LoadingDate_Specified;
property CodPrice: TXSDecimal read FCodPrice write FCodPrice;
property DateTakeMoney: string Index (IS_OPTN) read FDateTakeMoney write SetDateTakeMoney stored DateTakeMoney_Specified;
property DateMoneyToBank: string Index (IS_OPTN) read FDateMoneyToBank write SetDateMoneyToBank stored DateMoneyToBank_Specified;
property DateMoneyToCustomer: string Index (IS_OPTN) read FDateMoneyToCustomer write SetDateMoneyToCustomer stored DateMoneyToCustomer_Specified;
property ErrorCode: Integer read FErrorCode write FErrorCode;
property ErrorMessage: string Index (IS_OPTN) read FErrorMessage write SetErrorMessage stored ErrorMessage_Specified;
end;
ArrayOfPackageInfo = array of PackageInfo; { "PPLIEGate"[GblCplx] }
// ************************************************************************ //
// XML : Order, global, <complexType>
// Namespace : PPLIEGate
// ************************************************************************ //
Order = class(TRemotable)
private
FOrdNumber: string;
FOrdNumber_Specified: boolean;
FCountPack: string;
FCountPack_Specified: boolean;
FSendName: string;
FSendName_Specified: boolean;
FSendStreet: string;
FSendStreet_Specified: boolean;
FSendCity: string;
FSendCity_Specified: boolean;
FSendZipCode: string;
FSendZipCode_Specified: boolean;
FSendContact: string;
FSendContact_Specified: boolean;
FSendPhone: string;
FSendPhone_Specified: boolean;
FSendDateFrom: TXSDateTime;
FSendDateTo: TXSDateTime;
FSendCountry: string;
FSendCountry_Specified: boolean;
FRecName: string;
FRecName_Specified: boolean;
FRecStreet: string;
FRecStreet_Specified: boolean;
FRecCity: string;
FRecCity_Specified: boolean;
FRecZipCode: string;
FRecZipCode_Specified: boolean;
FRecContact: string;
FRecContact_Specified: boolean;
FRecPhone: string;
FRecPhone_Specified: boolean;
FRecCountry: string;
FRecCountry_Specified: boolean;
FNote: string;
FNote_Specified: boolean;
FEmail: string;
FEmail_Specified: boolean;
FErrorCode: Integer;
FErrorMessage: string;
FErrorMessage_Specified: boolean;
procedure SetOrdNumber(Index: Integer; const Astring: string);
function OrdNumber_Specified(Index: Integer): boolean;
procedure SetCountPack(Index: Integer; const Astring: string);
function CountPack_Specified(Index: Integer): boolean;
procedure SetSendName(Index: Integer; const Astring: string);
function SendName_Specified(Index: Integer): boolean;
procedure SetSendStreet(Index: Integer; const Astring: string);
function SendStreet_Specified(Index: Integer): boolean;
procedure SetSendCity(Index: Integer; const Astring: string);
function SendCity_Specified(Index: Integer): boolean;
procedure SetSendZipCode(Index: Integer; const Astring: string);
function SendZipCode_Specified(Index: Integer): boolean;
procedure SetSendContact(Index: Integer; const Astring: string);
function SendContact_Specified(Index: Integer): boolean;
procedure SetSendPhone(Index: Integer; const Astring: string);
function SendPhone_Specified(Index: Integer): boolean;
procedure SetSendCountry(Index: Integer; const Astring: string);
function SendCountry_Specified(Index: Integer): boolean;
procedure SetRecName(Index: Integer; const Astring: string);
function RecName_Specified(Index: Integer): boolean;
procedure SetRecStreet(Index: Integer; const Astring: string);
function RecStreet_Specified(Index: Integer): boolean;
procedure SetRecCity(Index: Integer; const Astring: string);
function RecCity_Specified(Index: Integer): boolean;
procedure SetRecZipCode(Index: Integer; const Astring: string);
function RecZipCode_Specified(Index: Integer): boolean;
procedure SetRecContact(Index: Integer; const Astring: string);
function RecContact_Specified(Index: Integer): boolean;
procedure SetRecPhone(Index: Integer; const Astring: string);
function RecPhone_Specified(Index: Integer): boolean;
procedure SetRecCountry(Index: Integer; const Astring: string);
function RecCountry_Specified(Index: Integer): boolean;
procedure SetNote(Index: Integer; const Astring: string);
function Note_Specified(Index: Integer): boolean;
procedure SetEmail(Index: Integer; const Astring: string);
function Email_Specified(Index: Integer): boolean;
procedure SetErrorMessage(Index: Integer; const Astring: string);
function ErrorMessage_Specified(Index: Integer): boolean;
public
destructor Destroy; override;
published
property OrdNumber: string Index (IS_OPTN) read FOrdNumber write SetOrdNumber stored OrdNumber_Specified;
property CountPack: string Index (IS_OPTN) read FCountPack write SetCountPack stored CountPack_Specified;
property SendName: string Index (IS_OPTN) read FSendName write SetSendName stored SendName_Specified;
property SendStreet: string Index (IS_OPTN) read FSendStreet write SetSendStreet stored SendStreet_Specified;
property SendCity: string Index (IS_OPTN) read FSendCity write SetSendCity stored SendCity_Specified;
property SendZipCode: string Index (IS_OPTN) read FSendZipCode write SetSendZipCode stored SendZipCode_Specified;
property SendContact: string Index (IS_OPTN) read FSendContact write SetSendContact stored SendContact_Specified;
property SendPhone: string Index (IS_OPTN) read FSendPhone write SetSendPhone stored SendPhone_Specified;
property SendDateFrom: TXSDateTime read FSendDateFrom write FSendDateFrom;
property SendDateTo: TXSDateTime read FSendDateTo write FSendDateTo;
property SendCountry: string Index (IS_OPTN) read FSendCountry write SetSendCountry stored SendCountry_Specified;
property RecName: string Index (IS_OPTN) read FRecName write SetRecName stored RecName_Specified;
property RecStreet: string Index (IS_OPTN) read FRecStreet write SetRecStreet stored RecStreet_Specified;
property RecCity: string Index (IS_OPTN) read FRecCity write SetRecCity stored RecCity_Specified;
property RecZipCode: string Index (IS_OPTN) read FRecZipCode write SetRecZipCode stored RecZipCode_Specified;
property RecContact: string Index (IS_OPTN) read FRecContact write SetRecContact stored RecContact_Specified;
property RecPhone: string Index (IS_OPTN) read FRecPhone write SetRecPhone stored RecPhone_Specified;
property RecCountry: string Index (IS_OPTN) read FRecCountry write SetRecCountry stored RecCountry_Specified;
property Note: string Index (IS_OPTN) read FNote write SetNote stored Note_Specified;
property Email: string Index (IS_OPTN) read FEmail write SetEmail stored Email_Specified;
property ErrorCode: Integer read FErrorCode write FErrorCode;
property ErrorMessage: string Index (IS_OPTN) read FErrorMessage write SetErrorMessage stored ErrorMessage_Specified;
end;
// ************************************************************************ //
// XML : StatusDHL, global, <complexType>
// Namespace : PPLIEGate
// ************************************************************************ //
StatusDHL = class(TRemotable)
private
FPackageIDPPL: string;
FPackageIDPPL_Specified: boolean;
FPackageIDExp: string;
FPackageIDExp_Specified: boolean;
FStatusID: string;
FStatusID_Specified: boolean;
FCreated: TXSDateTime;
FNote: string;
FNote_Specified: boolean;
FZpID: string;
FZpID_Specified: boolean;
FErrorCode: Integer;
FErrorMessage: string;
FErrorMessage_Specified: boolean;
procedure SetPackageIDPPL(Index: Integer; const Astring: string);
function PackageIDPPL_Specified(Index: Integer): boolean;
procedure SetPackageIDExp(Index: Integer; const Astring: string);
function PackageIDExp_Specified(Index: Integer): boolean;
procedure SetStatusID(Index: Integer; const Astring: string);
function StatusID_Specified(Index: Integer): boolean;
procedure SetNote(Index: Integer; const Astring: string);
function Note_Specified(Index: Integer): boolean;
procedure SetZpID(Index: Integer; const Astring: string);
function ZpID_Specified(Index: Integer): boolean;
procedure SetErrorMessage(Index: Integer; const Astring: string);
function ErrorMessage_Specified(Index: Integer): boolean;
public
destructor Destroy; override;
published
property PackageIDPPL: string Index (IS_OPTN) read FPackageIDPPL write SetPackageIDPPL stored PackageIDPPL_Specified;
property PackageIDExp: string Index (IS_OPTN) read FPackageIDExp write SetPackageIDExp stored PackageIDExp_Specified;
property StatusID: string Index (IS_OPTN) read FStatusID write SetStatusID stored StatusID_Specified;
property Created: TXSDateTime read FCreated write FCreated;
property Note: string Index (IS_OPTN) read FNote write SetNote stored Note_Specified;
property ZpID: string Index (IS_OPTN) read FZpID write SetZpID stored ZpID_Specified;
property ErrorCode: Integer read FErrorCode write FErrorCode;
property ErrorMessage: string Index (IS_OPTN) read FErrorMessage write SetErrorMessage stored ErrorMessage_Specified;
end;
// ************************************************************************ //
// XML : OrderCart, global, <complexType>
// Namespace : PPLIEGate
// ************************************************************************ //
OrderCart = class(TRemotable)
private
FCountPack: Integer;
FSendName: string;
FSendName_Specified: boolean;
FSendStreet: string;
FSendStreet_Specified: boolean;
FSendCity: string;
FSendCity_Specified: boolean;
FSendZipCode: string;
FSendZipCode_Specified: boolean;
FSendDateFrom: TXSDateTime;
FSendDateTo: TXSDateTime;
FNote: string;
FNote_Specified: boolean;
FEmail: string;
FEmail_Specified: boolean;
FErrorCode: Integer;
FErrorMessage: string;
FErrorMessage_Specified: boolean;
procedure SetSendName(Index: Integer; const Astring: string);
function SendName_Specified(Index: Integer): boolean;
procedure SetSendStreet(Index: Integer; const Astring: string);
function SendStreet_Specified(Index: Integer): boolean;
procedure SetSendCity(Index: Integer; const Astring: string);
function SendCity_Specified(Index: Integer): boolean;
procedure SetSendZipCode(Index: Integer; const Astring: string);
function SendZipCode_Specified(Index: Integer): boolean;
procedure SetNote(Index: Integer; const Astring: string);
function Note_Specified(Index: Integer): boolean;
procedure SetEmail(Index: Integer; const Astring: string);
function Email_Specified(Index: Integer): boolean;
procedure SetErrorMessage(Index: Integer; const Astring: string);
function ErrorMessage_Specified(Index: Integer): boolean;
public
destructor Destroy; override;
published
property CountPack: Integer read FCountPack write FCountPack;
property SendName: string Index (IS_OPTN) read FSendName write SetSendName stored SendName_Specified;
property SendStreet: string Index (IS_OPTN) read FSendStreet write SetSendStreet stored SendStreet_Specified;
property SendCity: string Index (IS_OPTN) read FSendCity write SetSendCity stored SendCity_Specified;
property SendZipCode: string Index (IS_OPTN) read FSendZipCode write SetSendZipCode stored SendZipCode_Specified;
property SendDateFrom: TXSDateTime read FSendDateFrom write FSendDateFrom;
property SendDateTo: TXSDateTime read FSendDateTo write FSendDateTo;
property Note: string Index (IS_OPTN) read FNote write SetNote stored Note_Specified;
property Email: string Index (IS_OPTN) read FEmail write SetEmail stored Email_Specified;
property ErrorCode: Integer read FErrorCode write FErrorCode;
property ErrorMessage: string Index (IS_OPTN) read FErrorMessage write SetErrorMessage stored ErrorMessage_Specified;
end;
ImportPackagesResult = TXMLData; { "PPLIEGate"[CplxMxd] }
ImportOrdersResult = TXMLData; { "PPLIEGate"[CplxMxd] }
ArrayOfZipCode2 = type ArrayOfZipCode; { "PPLIEGate"[GblElm] }
ArrayOfCity2 = type ArrayOfCity; { "PPLIEGate"[GblElm] }
ArrayOfPackageInfo2 = type ArrayOfPackageInfo; { "PPLIEGate"[GblElm] }
// ************************************************************************ //
// XML : PackageInfo, global, <element>
// Namespace : PPLIEGate
// ************************************************************************ //
PackageInfo2 = class(PackageInfo)
private
published
end;
anyType = type string; { "PPLIEGate"[Alias] }
ArrayOfAnyType = array of anyType; { "PPLIEGate"[GblCplx] }
// ************************************************************************ //
// XML : colOrderCart, global, <complexType>
// Namespace : PPLIEGate
// ************************************************************************ //
colOrderCart = class(TRemotable)
private
FItems: ArrayOfAnyType;
FItems_Specified: boolean;
FErrorCode: Integer;
FErrorMessage: string;
FErrorMessage_Specified: boolean;
procedure SetItems(Index: Integer; const AArrayOfAnyType: ArrayOfAnyType);
function Items_Specified(Index: Integer): boolean;
procedure SetErrorMessage(Index: Integer; const Astring: string);
function ErrorMessage_Specified(Index: Integer): boolean;
published
property Items: ArrayOfAnyType Index (IS_OPTN) read FItems write SetItems stored Items_Specified;
property ErrorCode: Integer read FErrorCode write FErrorCode;
property ErrorMessage: string Index (IS_OPTN) read FErrorMessage write SetErrorMessage stored ErrorMessage_Specified;
end;
// ************************************************************************ //
// XML : colStatus, global, <complexType>
// Namespace : PPLIEGate
// ************************************************************************ //
colStatus = class(TRemotable)
private
FItems: ArrayOfAnyType;
FItems_Specified: boolean;
FErrorCode: Integer;
FErrorMessage: string;
FErrorMessage_Specified: boolean;
procedure SetItems(Index: Integer; const AArrayOfAnyType: ArrayOfAnyType);
function Items_Specified(Index: Integer): boolean;
procedure SetErrorMessage(Index: Integer; const Astring: string);
function ErrorMessage_Specified(Index: Integer): boolean;
published
property Items: ArrayOfAnyType Index (IS_OPTN) read FItems write SetItems stored Items_Specified;
property ErrorCode: Integer read FErrorCode write FErrorCode;
property ErrorMessage: string Index (IS_OPTN) read FErrorMessage write SetErrorMessage stored ErrorMessage_Specified;
end;
// ************************************************************************ //
// XML : colPackageHoffmann, global, <complexType>
// Namespace : PPLIEGate
// ************************************************************************ //
colPackageHoffmann = class(TRemotable)
private
FItems: ArrayOfAnyType;
FItems_Specified: boolean;
FErrorCode: Integer;
FErrorMessage: string;
FErrorMessage_Specified: boolean;
procedure SetItems(Index: Integer; const AArrayOfAnyType: ArrayOfAnyType);
function Items_Specified(Index: Integer): boolean;
procedure SetErrorMessage(Index: Integer; const Astring: string);
function ErrorMessage_Specified(Index: Integer): boolean;
published
property Items: ArrayOfAnyType Index (IS_OPTN) read FItems write SetItems stored Items_Specified;
property ErrorCode: Integer read FErrorCode write FErrorCode;
property ErrorMessage: string Index (IS_OPTN) read FErrorMessage write SetErrorMessage stored ErrorMessage_Specified;
end;
// ************************************************************************ //
// XML : colPackageWeighed, global, <complexType>
// Namespace : PPLIEGate
// ************************************************************************ //
colPackageWeighed = class(TRemotable)
private
FItems: ArrayOfAnyType;
FItems_Specified: boolean;
FErrorCode: Integer;
FErrorMessage: string;
FErrorMessage_Specified: boolean;
procedure SetItems(Index: Integer; const AArrayOfAnyType: ArrayOfAnyType);
function Items_Specified(Index: Integer): boolean;
procedure SetErrorMessage(Index: Integer; const Astring: string);
function ErrorMessage_Specified(Index: Integer): boolean;
published
property Items: ArrayOfAnyType Index (IS_OPTN) read FItems write SetItems stored Items_Specified;
property ErrorCode: Integer read FErrorCode write FErrorCode;
property ErrorMessage: string Index (IS_OPTN) read FErrorMessage write SetErrorMessage stored ErrorMessage_Specified;
end;
// ************************************************************************ //
// XML : colOrder, global, <complexType>
// Namespace : PPLIEGate
// ************************************************************************ //
colOrder = class(TRemotable)
private
FItems: ArrayOfAnyType;
FItems_Specified: boolean;
FErrorCode: Integer;
FErrorMessage: string;
FErrorMessage_Specified: boolean;
procedure SetItems(Index: Integer; const AArrayOfAnyType: ArrayOfAnyType);
function Items_Specified(Index: Integer): boolean;
procedure SetErrorMessage(Index: Integer; const Astring: string);
function ErrorMessage_Specified(Index: Integer): boolean;
published
property Items: ArrayOfAnyType Index (IS_OPTN) read FItems write SetItems stored Items_Specified;
property ErrorCode: Integer read FErrorCode write FErrorCode;
property ErrorMessage: string Index (IS_OPTN) read FErrorMessage write SetErrorMessage stored ErrorMessage_Specified;
end;
// ************************************************************************ //
// XML : colPackage, global, <complexType>
// Namespace : PPLIEGate
// ************************************************************************ //
colPackage = class(TRemotable)
private
FItems: ArrayOfAnyType;
FItems_Specified: boolean;
FErrorCode: Integer;
FErrorMessage: string;
FErrorMessage_Specified: boolean;
procedure SetItems(Index: Integer; const AArrayOfAnyType: ArrayOfAnyType);
function Items_Specified(Index: Integer): boolean;
procedure SetErrorMessage(Index: Integer; const Astring: string);
function ErrorMessage_Specified(Index: Integer): boolean;
published
property Items: ArrayOfAnyType Index (IS_OPTN) read FItems write SetItems stored Items_Specified;
property ErrorCode: Integer read FErrorCode write FErrorCode;
property ErrorMessage: string Index (IS_OPTN) read FErrorMessage write SetErrorMessage stored ErrorMessage_Specified;
end;
// ************************************************************************ //
// XML : colPackage, global, <element>
// Namespace : PPLIEGate
// ************************************************************************ //
colPackage2 = class(colPackage)
private
published
end;
// ************************************************************************ //
// XML : colPPLSprint, global, <complexType>
// Namespace : PPLIEGate
// ************************************************************************ //
colPPLSprint = class(TRemotable)
private
FItems: ArrayOfAnyType;
FItems_Specified: boolean;
FErrorCode: Integer;
FErrorMessage: string;
FErrorMessage_Specified: boolean;
procedure SetItems(Index: Integer; const AArrayOfAnyType: ArrayOfAnyType);
function Items_Specified(Index: Integer): boolean;
procedure SetErrorMessage(Index: Integer; const Astring: string);
function ErrorMessage_Specified(Index: Integer): boolean;
published
property Items: ArrayOfAnyType Index (IS_OPTN) read FItems write SetItems stored Items_Specified;
property ErrorCode: Integer read FErrorCode write FErrorCode;
property ErrorMessage: string Index (IS_OPTN) read FErrorMessage write SetErrorMessage stored ErrorMessage_Specified;
end;
String_ = type string; { "PPLIEGate/AbstractTypes"[Alias] }
StringArray = array of String_; { "PPLIEGate/AbstractTypes"[GblCplx] }
// ************************************************************************ //
// Namespace : PPLIEGate
// soapAction: PPLIEGate/%operationName%
// transport : http://schemas.xmlsoap.org/soap/http
// style : document
// binding : IEGateSoap12
// service : IEGate
// port : IEGateSoap12
// URL : http://www.ppl.cz/IEGate/IEGate.asmx
// ************************************************************************ //
IEGateSoap = interface(IInvokable)
['{FD249145-7C12-8F8C-8988-85AAA99D2A7B}']
procedure ImportPPLSprint(const FirCode: string; const packages: colPPLSprint); stdcall;
function GetZipCodes(const FirCode: string; const Changed: TXSDateTime): ArrayOfZipCode; stdcall;
function GetCities(const FirCode: string; const Date_From: TXSDateTime): ArrayOfCity; stdcall;
function GetPackagesInfo(const FirCode: string; const PackageID: ArrayOfString; const CustReference: ArrayOfString): ArrayOfPackageInfo; stdcall;
function GetPackageToDelivery(const FirCode: string; const DateToDeliv: string): colPackage; stdcall;
function GetPackageInfo(const PackageID: string): PackageInfo; stdcall;
procedure ImportOrderExt(const FirCode: string; const order: Order); stdcall;
procedure ImportOrdersExt(const FirCode: string; const Orders: colOrder); stdcall;
procedure ImportPackageExt(const FirCode: string; const pack: Package_); stdcall;
procedure ImportPackagesExt(const FirCode: string; const Packages: colPackage); stdcall;
function ImportPackages: ImportPackagesResult; stdcall;
function ImportOrders: ImportOrdersResult; stdcall;
procedure ImportWeighedPack(const FirCode: string; const pack: PackageWeighed; const DepID: string); stdcall;
procedure ImportWeighedPackages(const FirCode: string; const Packages: colPackageWeighed; const DepID: string); stdcall;
procedure ImportPackagesHoffmann(const FirCode: string; const Packages: colPackageHoffmann; const DepID: string); stdcall;
procedure ImportESYCOPack(const FirCode: string; const pack: PackageEsyco); stdcall;
procedure ImportESYCOPackages(const FirCode: string; const Packages: colPackage); stdcall;
procedure ImportStatusDHL(const FirCode: string; const Stat: StatusDHL); stdcall;
procedure ImportStatusesDHL(const FirCode: string; const Statuses: colStatus); stdcall;
procedure ImportOrderCart(const FirCode: string; const order: OrderCart; const Accept: Boolean); stdcall;
procedure ImportOrdersCart(const FirCode: string; const Orders: colOrderCart; const Accept: Boolean); stdcall;
end;
// ************************************************************************ //
// Namespace : PPLIEGate
// binding : IEGateHttpGet
// service : IEGate
// port : IEGateHttpGet
// ************************************************************************ //
IEGateHttpGet = interface(IInvokable)
['{B23DC711-DA48-BB66-FC16-CA4E9C93FAC2}']
function GetZipCodes(const FirCode: string; const Changed: string): ArrayOfZipCode2; stdcall;
function GetCities(const FirCode: string; const Date_From: string): ArrayOfCity2; stdcall;
function GetPackagesInfo(const FirCode: string; const PackageID: StringArray; const CustReference: StringArray): ArrayOfPackageInfo2; stdcall;
function GetPackageToDelivery(const FirCode: string; const DateToDeliv: string): colPackage2; stdcall;
function GetPackageInfo(const PackageID: string): PackageInfo2; stdcall;
function ImportPackages: Variant; stdcall;
function ImportOrders: Variant; stdcall;
end;
// ************************************************************************ //
// Namespace : PPLIEGate
// binding : IEGateHttpPost
// service : IEGate
// port : IEGateHttpPost
// ************************************************************************ //
IEGateHttpPost = interface(IInvokable)
['{1575FC81-306E-D4F1-7EFB-6101AA468A86}']
function GetZipCodes(const FirCode: string; const Changed: string): ArrayOfZipCode2; stdcall;
function GetCities(const FirCode: string; const Date_From: string): ArrayOfCity2; stdcall;
function GetPackagesInfo(const FirCode: string; const PackageID: StringArray; const CustReference: StringArray): ArrayOfPackageInfo2; stdcall;
function GetPackageToDelivery(const FirCode: string; const DateToDeliv: string): colPackage2; stdcall;
function GetPackageInfo(const PackageID: string): PackageInfo2; stdcall;
function ImportPackages: Variant; stdcall;
function ImportOrders: Variant; stdcall;
end;
function GetIEGateSoap(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): IEGateSoap;
function GetIEGateHttpGet(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): IEGateHttpGet;
function GetIEGateHttpPost(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): IEGateHttpPost;
implementation
uses SysUtils;
function GetIEGateSoap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): IEGateSoap;
const
defWSDL = 'http://www.ppl.cz/IEGate/IEGate.asmx?WSDL';
defURL = 'http://www.ppl.cz/IEGate/IEGate.asmx';
defSvc = 'IEGate';
defPrt = 'IEGateSoap12';
var
RIO: THTTPRIO;
begin
Result := nil;
if (Addr = '') then
begin
if UseWSDL then
Addr := defWSDL
else
Addr := defURL;
end;
if HTTPRIO = nil then
RIO := THTTPRIO.Create(nil)
else
RIO := HTTPRIO;
try
Result := (RIO as IEGateSoap);
if UseWSDL then
begin
RIO.WSDLLocation := Addr;
RIO.Service := defSvc;
RIO.Port := defPrt;
end else
RIO.URL := Addr;
finally
if (Result = nil) and (HTTPRIO = nil) then
RIO.Free;
end;
end;
function GetIEGateHttpGet(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): IEGateHttpGet;
const
defWSDL = 'http://www.ppl.cz/IEGate/IEGate.asmx?WSDL';
defURL = '';
defSvc = 'IEGate';
defPrt = 'IEGateHttpGet';
var
RIO: THTTPRIO;
begin
Result := nil;
if (Addr = '') then
begin
if UseWSDL then
Addr := defWSDL
else
Addr := defURL;
end;
if HTTPRIO = nil then
RIO := THTTPRIO.Create(nil)
else
RIO := HTTPRIO;
try
Result := (RIO as IEGateHttpGet);
if UseWSDL then
begin
RIO.WSDLLocation := Addr;
RIO.Service := defSvc;
RIO.Port := defPrt;
end else
RIO.URL := Addr;
finally
if (Result = nil) and (HTTPRIO = nil) then
RIO.Free;
end;
end;
function GetIEGateHttpPost(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): IEGateHttpPost;
const
defWSDL = 'http://www.ppl.cz/IEGate/IEGate.asmx?WSDL';
defURL = '';
defSvc = 'IEGate';
defPrt = 'IEGateHttpPost';
var
RIO: THTTPRIO;
begin
Result := nil;
if (Addr = '') then
begin
if UseWSDL then
Addr := defWSDL
else
Addr := defURL;
end;
if HTTPRIO = nil then
RIO := THTTPRIO.Create(nil)
else
RIO := HTTPRIO;
try
Result := (RIO as IEGateHttpPost);
if UseWSDL then
begin
RIO.WSDLLocation := Addr;
RIO.Service := defSvc;
RIO.Port := defPrt;
end else
RIO.URL := Addr;
finally
if (Result = nil) and (HTTPRIO = nil) then
RIO.Free;
end;
end;
destructor Package_.Destroy;
begin
SysUtils.FreeAndNil(FCodPrice);
inherited Destroy;
end;
procedure Package_.SetPackageID(Index: Integer; const Astring: string);
begin
FPackageID := Astring;
FPackageID_Specified := True;
end;
function Package_.PackageID_Specified(Index: Integer): boolean;
begin
Result := FPackageID_Specified;
end;
procedure Package_.SetPackageIDCUS(Index: Integer; const Astring: string);
begin
FPackageIDCUS := Astring;
FPackageIDCUS_Specified := True;
end;
function Package_.PackageIDCUS_Specified(Index: Integer): boolean;
begin
Result := FPackageIDCUS_Specified;
end;
procedure Package_.SetZipCode(Index: Integer; const Astring: string);
begin
FZipCode := Astring;
FZipCode_Specified := True;
end;
function Package_.ZipCode_Specified(Index: Integer): boolean;
begin
Result := FZipCode_Specified;
end;
procedure Package_.SetCountry(Index: Integer; const Astring: string);
begin
FCountry := Astring;
FCountry_Specified := True;
end;
function Package_.Country_Specified(Index: Integer): boolean;
begin
Result := FCountry_Specified;
end;
procedure Package_.SetCodPriceCurID(Index: Integer; const Astring: string);
begin
FCodPriceCurID := Astring;
FCodPriceCurID_Specified := True;
end;
function Package_.CodPriceCurID_Specified(Index: Integer): boolean;
begin
Result := FCodPriceCurID_Specified;
end;
procedure Package_.SetVarSym(Index: Integer; const Astring: string);
begin
FVarSym := Astring;
FVarSym_Specified := True;
end;
function Package_.VarSym_Specified(Index: Integer): boolean;
begin
Result := FVarSym_Specified;
end;
procedure Package_.SetConsigneeName(Index: Integer; const Astring: string);
begin
FConsigneeName := Astring;
FConsigneeName_Specified := True;
end;
function Package_.ConsigneeName_Specified(Index: Integer): boolean;
begin
Result := FConsigneeName_Specified;
end;
procedure Package_.SetConsigneeStreet(Index: Integer; const Astring: string);
begin
FConsigneeStreet := Astring;
FConsigneeStreet_Specified := True;
end;
function Package_.ConsigneeStreet_Specified(Index: Integer): boolean;
begin
Result := FConsigneeStreet_Specified;
end;
procedure Package_.SetConsigneeCity(Index: Integer; const Astring: string);
begin
FConsigneeCity := Astring;
FConsigneeCity_Specified := True;
end;
function Package_.ConsigneeCity_Specified(Index: Integer): boolean;
begin
Result := FConsigneeCity_Specified;
end;
procedure Package_.SetPhone(Index: Integer; const Astring: string);
begin
FPhone := Astring;
FPhone_Specified := True;
end;
function Package_.Phone_Specified(Index: Integer): boolean;
begin
Result := FPhone_Specified;
end;
procedure Package_.SetContact(Index: Integer; const Astring: string);
begin
FContact := Astring;
FContact_Specified := True;
end;
function Package_.Contact_Specified(Index: Integer): boolean;
begin
Result := FContact_Specified;
end;
procedure Package_.SetCustRef(Index: Integer; const Astring: string);
begin
FCustRef := Astring;
FCustRef_Specified := True;
end;
function Package_.CustRef_Specified(Index: Integer): boolean;
begin
Result := FCustRef_Specified;
end;
procedure Package_.SetLength(Index: Integer; const Astring: string);
begin
FLength := Astring;
FLength_Specified := True;
end;
function Package_.Length_Specified(Index: Integer): boolean;
begin
Result := FLength_Specified;
end;
procedure Package_.SetHeight(Index: Integer; const Astring: string);
begin
FHeight := Astring;
FHeight_Specified := True;
end;
function Package_.Height_Specified(Index: Integer): boolean;
begin
Result := FHeight_Specified;
end;
procedure Package_.SetWidth(Index: Integer; const Astring: string);
begin
FWidth := Astring;
FWidth_Specified := True;
end;
function Package_.Width_Specified(Index: Integer): boolean;
begin
Result := FWidth_Specified;
end;
procedure Package_.SetRecMail(Index: Integer; const Astring: string);
begin
FRecMail := Astring;
FRecMail_Specified := True;
end;
function Package_.RecMail_Specified(Index: Integer): boolean;
begin
Result := FRecMail_Specified;
end;
procedure Package_.SetErrorMessage(Index: Integer; const Astring: string);
begin
FErrorMessage := Astring;
FErrorMessage_Specified := True;
end;
function Package_.ErrorMessage_Specified(Index: Integer): boolean;
begin
Result := FErrorMessage_Specified;
end;
procedure City.SetZip(Index: Integer; const Astring: string);
begin
FZip := Astring;
FZip_Specified := True;
end;
function City.Zip_Specified(Index: Integer): boolean;
begin
Result := FZip_Specified;
end;
procedure City.SetCity(Index: Integer; const Astring: string);
begin
FCity := Astring;
FCity_Specified := True;
end;
function City.City_Specified(Index: Integer): boolean;
begin
Result := FCity_Specified;
end;
procedure City.SetRegion(Index: Integer; const Astring: string);
begin
FRegion := Astring;
FRegion_Specified := True;
end;
function City.Region_Specified(Index: Integer): boolean;
begin
Result := FRegion_Specified;
end;
procedure City.SetPost(Index: Integer; const Astring: string);
begin
FPost := Astring;
FPost_Specified := True;
end;
function City.Post_Specified(Index: Integer): boolean;
begin
Result := FPost_Specified;
end;
procedure City.SetCountry(Index: Integer; const Astring: string);
begin
FCountry := Astring;
FCountry_Specified := True;
end;
function City.Country_Specified(Index: Integer): boolean;
begin
Result := FCountry_Specified;
end;
destructor PackageWeighed.Destroy;
begin
SysUtils.FreeAndNil(FWeight);
SysUtils.FreeAndNil(FPrice);
inherited Destroy;
end;
procedure PackageWeighed.SetPackageID(Index: Integer; const Astring: string);
begin
FPackageID := Astring;
FPackageID_Specified := True;
end;
function PackageWeighed.PackageID_Specified(Index: Integer): boolean;
begin
Result := FPackageID_Specified;
end;
procedure PackageWeighed.SetPackageIDCUS(Index: Integer; const Astring: string);
begin
FPackageIDCUS := Astring;
FPackageIDCUS_Specified := True;
end;
function PackageWeighed.PackageIDCUS_Specified(Index: Integer): boolean;
begin
Result := FPackageIDCUS_Specified;
end;
procedure PackageWeighed.SetInputDestination(Index: Integer; const Astring: string);
begin
FInputDestination := Astring;
FInputDestination_Specified := True;
end;
function PackageWeighed.InputDestination_Specified(Index: Integer): boolean;
begin
Result := FInputDestination_Specified;
end;
procedure PackageWeighed.SetOutputDestination(Index: Integer; const Astring: string);
begin
FOutputDestination := Astring;
FOutputDestination_Specified := True;
end;
function PackageWeighed.OutputDestination_Specified(Index: Integer): boolean;
begin
Result := FOutputDestination_Specified;
end;
procedure PackageWeighed.SetZipCode(Index: Integer; const Astring: string);
begin
FZipCode := Astring;
FZipCode_Specified := True;
end;
function PackageWeighed.ZipCode_Specified(Index: Integer): boolean;
begin
Result := FZipCode_Specified;
end;
procedure PackageWeighed.SetCountry(Index: Integer; const Astring: string);
begin
FCountry := Astring;
FCountry_Specified := True;
end;
function PackageWeighed.Country_Specified(Index: Integer): boolean;
begin
Result := FCountry_Specified;
end;
procedure PackageWeighed.SetPriceCurID(Index: Integer; const Astring: string);
begin
FPriceCurID := Astring;
FPriceCurID_Specified := True;
end;
function PackageWeighed.PriceCurID_Specified(Index: Integer): boolean;
begin
Result := FPriceCurID_Specified;
end;
procedure PackageWeighed.SetConsigneeName(Index: Integer; const Astring: string);
begin
FConsigneeName := Astring;
FConsigneeName_Specified := True;
end;
function PackageWeighed.ConsigneeName_Specified(Index: Integer): boolean;
begin
Result := FConsigneeName_Specified;
end;
procedure PackageWeighed.SetConsigneeStreet(Index: Integer; const Astring: string);
begin
FConsigneeStreet := Astring;
FConsigneeStreet_Specified := True;
end;
function PackageWeighed.ConsigneeStreet_Specified(Index: Integer): boolean;
begin
Result := FConsigneeStreet_Specified;
end;
procedure PackageWeighed.SetConsigneeCity(Index: Integer; const Astring: string);
begin
FConsigneeCity := Astring;
FConsigneeCity_Specified := True;
end;
function PackageWeighed.ConsigneeCity_Specified(Index: Integer): boolean;
begin
Result := FConsigneeCity_Specified;
end;
procedure PackageWeighed.SetPhone(Index: Integer; const Astring: string);
begin
FPhone := Astring;
FPhone_Specified := True;
end;
function PackageWeighed.Phone_Specified(Index: Integer): boolean;
begin
Result := FPhone_Specified;
end;
procedure PackageWeighed.SetVarSym(Index: Integer; const Astring: string);
begin
FVarSym := Astring;
FVarSym_Specified := True;
end;
function PackageWeighed.VarSym_Specified(Index: Integer): boolean;
begin
Result := FVarSym_Specified;
end;
procedure PackageWeighed.SetAccount(Index: Integer; const Astring: string);
begin
FAccount := Astring;
FAccount_Specified := True;
end;
function PackageWeighed.Account_Specified(Index: Integer): boolean;
begin
Result := FAccount_Specified;
end;
procedure PackageWeighed.SetBankCode(Index: Integer; const Astring: string);
begin
FBankCode := Astring;
FBankCode_Specified := True;
end;
function PackageWeighed.BankCode_Specified(Index: Integer): boolean;
begin
Result := FBankCode_Specified;
end;
procedure PackageWeighed.SetSpecSymbol(Index: Integer; const Astring: string);
begin
FSpecSymbol := Astring;
FSpecSymbol_Specified := True;
end;
function PackageWeighed.SpecSymbol_Specified(Index: Integer): boolean;
begin
Result := FSpecSymbol_Specified;
end;
procedure PackageWeighed.SetDateDelivFrom(Index: Integer; const Astring: string);
begin
FDateDelivFrom := Astring;
FDateDelivFrom_Specified := True;
end;
function PackageWeighed.DateDelivFrom_Specified(Index: Integer): boolean;
begin
Result := FDateDelivFrom_Specified;
end;
procedure PackageWeighed.SetDateDelivTo(Index: Integer; const Astring: string);
begin
FDateDelivTo := Astring;
FDateDelivTo_Specified := True;
end;
function PackageWeighed.DateDelivTo_Specified(Index: Integer): boolean;
begin
Result := FDateDelivTo_Specified;
end;
procedure PackageWeighed.SetContact(Index: Integer; const Astring: string);
begin
FContact := Astring;
FContact_Specified := True;
end;
function PackageWeighed.Contact_Specified(Index: Integer): boolean;
begin
Result := FContact_Specified;
end;
procedure PackageWeighed.SetCustRef(Index: Integer; const Astring: string);
begin
FCustRef := Astring;
FCustRef_Specified := True;
end;
function PackageWeighed.CustRef_Specified(Index: Integer): boolean;
begin
Result := FCustRef_Specified;
end;
procedure PackageWeighed.SetLength(Index: Integer; const Astring: string);
begin
FLength := Astring;
FLength_Specified := True;
end;
function PackageWeighed.Length_Specified(Index: Integer): boolean;
begin
Result := FLength_Specified;
end;
procedure PackageWeighed.SetHeight(Index: Integer; const Astring: string);
begin
FHeight := Astring;
FHeight_Specified := True;
end;
function PackageWeighed.Height_Specified(Index: Integer): boolean;
begin
Result := FHeight_Specified;
end;
procedure PackageWeighed.SetWidth(Index: Integer; const Astring: string);
begin
FWidth := Astring;
FWidth_Specified := True;
end;
function PackageWeighed.Width_Specified(Index: Integer): boolean;
begin
Result := FWidth_Specified;
end;
procedure PackageWeighed.SetRecMail(Index: Integer; const Astring: string);
begin
FRecMail := Astring;
FRecMail_Specified := True;
end;
function PackageWeighed.RecMail_Specified(Index: Integer): boolean;
begin
Result := FRecMail_Specified;
end;
procedure PackageWeighed.SetErrorMessage(Index: Integer; const Astring: string);
begin
FErrorMessage := Astring;
FErrorMessage_Specified := True;
end;
function PackageWeighed.ErrorMessage_Specified(Index: Integer): boolean;
begin
Result := FErrorMessage_Specified;
end;
procedure ZipCode.SetZip(Index: Integer; const Astring: string);
begin
FZip := Astring;
FZip_Specified := True;
end;
function ZipCode.Zip_Specified(Index: Integer): boolean;
begin
Result := FZip_Specified;
end;
procedure ZipCode.SetPost(Index: Integer; const Astring: string);
begin
FPost := Astring;
FPost_Specified := True;
end;
function ZipCode.Post_Specified(Index: Integer): boolean;
begin
Result := FPost_Specified;
end;
procedure ZipCode.SetDepot(Index: Integer; const Astring: string);
begin
FDepot := Astring;
FDepot_Specified := True;
end;
function ZipCode.Depot_Specified(Index: Integer): boolean;
begin
Result := FDepot_Specified;
end;
procedure ZipCode.SetDestination(Index: Integer; const Astring: string);
begin
FDestination := Astring;
FDestination_Specified := True;
end;
function ZipCode.Destination_Specified(Index: Integer): boolean;
begin
Result := FDestination_Specified;
end;
destructor PackageEsyco.Destroy;
begin
SysUtils.FreeAndNil(FCodPrice);
inherited Destroy;
end;
procedure PackageEsyco.SetPackageID(Index: Integer; const Astring: string);
begin
FPackageID := Astring;
FPackageID_Specified := True;
end;
function PackageEsyco.PackageID_Specified(Index: Integer): boolean;
begin
Result := FPackageID_Specified;
end;
procedure PackageEsyco.SetZipCode(Index: Integer; const Astring: string);
begin
FZipCode := Astring;
FZipCode_Specified := True;
end;
function PackageEsyco.ZipCode_Specified(Index: Integer): boolean;
begin
Result := FZipCode_Specified;
end;
procedure PackageEsyco.SetCountry(Index: Integer; const Astring: string);
begin
FCountry := Astring;
FCountry_Specified := True;
end;
function PackageEsyco.Country_Specified(Index: Integer): boolean;
begin
Result := FCountry_Specified;
end;
procedure PackageEsyco.SetVarSym(Index: Integer; const Astring: string);
begin
FVarSym := Astring;
FVarSym_Specified := True;
end;
function PackageEsyco.VarSym_Specified(Index: Integer): boolean;
begin
Result := FVarSym_Specified;
end;
procedure PackageEsyco.SetAccount(Index: Integer; const Astring: string);
begin
FAccount := Astring;
FAccount_Specified := True;
end;
function PackageEsyco.Account_Specified(Index: Integer): boolean;
begin
Result := FAccount_Specified;
end;
procedure PackageEsyco.SetBankCode(Index: Integer; const Astring: string);
begin
FBankCode := Astring;
FBankCode_Specified := True;
end;
function PackageEsyco.BankCode_Specified(Index: Integer): boolean;
begin
Result := FBankCode_Specified;
end;
procedure PackageEsyco.SetSpecSymbol(Index: Integer; const Astring: string);
begin
FSpecSymbol := Astring;
FSpecSymbol_Specified := True;
end;
function PackageEsyco.SpecSymbol_Specified(Index: Integer): boolean;
begin
Result := FSpecSymbol_Specified;
end;
procedure PackageEsyco.SetConsigneeName(Index: Integer; const Astring: string);
begin
FConsigneeName := Astring;
FConsigneeName_Specified := True;
end;
function PackageEsyco.ConsigneeName_Specified(Index: Integer): boolean;
begin
Result := FConsigneeName_Specified;
end;
procedure PackageEsyco.SetConsigneeStreet(Index: Integer; const Astring: string);
begin
FConsigneeStreet := Astring;
FConsigneeStreet_Specified := True;
end;
function PackageEsyco.ConsigneeStreet_Specified(Index: Integer): boolean;
begin
Result := FConsigneeStreet_Specified;
end;
procedure PackageEsyco.SetConsigneeCity(Index: Integer; const Astring: string);
begin
FConsigneeCity := Astring;
FConsigneeCity_Specified := True;
end;
function PackageEsyco.ConsigneeCity_Specified(Index: Integer): boolean;
begin
Result := FConsigneeCity_Specified;
end;
procedure PackageEsyco.SetPhone(Index: Integer; const Astring: string);
begin
FPhone := Astring;
FPhone_Specified := True;
end;
function PackageEsyco.Phone_Specified(Index: Integer): boolean;
begin
Result := FPhone_Specified;
end;
procedure PackageEsyco.SetErrorMessage(Index: Integer; const Astring: string);
begin
FErrorMessage := Astring;
FErrorMessage_Specified := True;
end;
function PackageEsyco.ErrorMessage_Specified(Index: Integer): boolean;
begin
Result := FErrorMessage_Specified;
end;
destructor PackageInfo.Destroy;
begin
SysUtils.FreeAndNil(FCodPrice);
inherited Destroy;
end;
procedure PackageInfo.SetPackageID(Index: Integer; const Astring: string);
begin
FPackageID := Astring;
FPackageID_Specified := True;
end;
function PackageInfo.PackageID_Specified(Index: Integer): boolean;
begin
Result := FPackageID_Specified;
end;
procedure PackageInfo.SetPackageIDCus(Index: Integer; const Astring: string);
begin
FPackageIDCus := Astring;
FPackageIDCus_Specified := True;
end;
function PackageInfo.PackageIDCus_Specified(Index: Integer): boolean;
begin
Result := FPackageIDCus_Specified;
end;
procedure PackageInfo.SetCustReference(Index: Integer; const Astring: string);
begin
FCustReference := Astring;
FCustReference_Specified := True;
end;
function PackageInfo.CustReference_Specified(Index: Integer): boolean;
begin
Result := FCustReference_Specified;
end;
procedure PackageInfo.SetInputDepoCode(Index: Integer; const Astring: string);
begin
FInputDepoCode := Astring;
FInputDepoCode_Specified := True;
end;
function PackageInfo.InputDepoCode_Specified(Index: Integer): boolean;
begin
Result := FInputDepoCode_Specified;
end;
procedure PackageInfo.SetInputDepoName(Index: Integer; const Astring: string);
begin
FInputDepoName := Astring;
FInputDepoName_Specified := True;
end;
function PackageInfo.InputDepoName_Specified(Index: Integer): boolean;
begin
Result := FInputDepoName_Specified;
end;
procedure PackageInfo.SetOutputDepoCode(Index: Integer; const Astring: string);
begin
FOutputDepoCode := Astring;
FOutputDepoCode_Specified := True;
end;
function PackageInfo.OutputDepoCode_Specified(Index: Integer): boolean;
begin
Result := FOutputDepoCode_Specified;
end;
procedure PackageInfo.SetOutputDepoName(Index: Integer; const Astring: string);
begin
FOutputDepoName := Astring;
FOutputDepoName_Specified := True;
end;
function PackageInfo.OutputDepoName_Specified(Index: Integer): boolean;
begin
Result := FOutputDepoName_Specified;
end;
procedure PackageInfo.SetRecZipCode(Index: Integer; const Astring: string);
begin
FRecZipCode := Astring;
FRecZipCode_Specified := True;
end;
function PackageInfo.RecZipCode_Specified(Index: Integer): boolean;
begin
Result := FRecZipCode_Specified;
end;
procedure PackageInfo.SetRecCity(Index: Integer; const Astring: string);
begin
FRecCity := Astring;
FRecCity_Specified := True;
end;
function PackageInfo.RecCity_Specified(Index: Integer): boolean;
begin
Result := FRecCity_Specified;
end;
procedure PackageInfo.SetDateInputDepo(Index: Integer; const Astring: string);
begin
FDateInputDepo := Astring;
FDateInputDepo_Specified := True;
end;
function PackageInfo.DateInputDepo_Specified(Index: Integer): boolean;
begin
Result := FDateInputDepo_Specified;
end;
procedure PackageInfo.SetDateWeighed(Index: Integer; const Astring: string);
begin
FDateWeighed := Astring;
FDateWeighed_Specified := True;
end;
function PackageInfo.DateWeighed_Specified(Index: Integer): boolean;
begin
Result := FDateWeighed_Specified;
end;
procedure PackageInfo.SetDateCentral(Index: Integer; const Astring: string);
begin
FDateCentral := Astring;
FDateCentral_Specified := True;
end;
function PackageInfo.DateCentral_Specified(Index: Integer): boolean;
begin
Result := FDateCentral_Specified;
end;
procedure PackageInfo.SetDateOutputDepo(Index: Integer; const Astring: string);
begin
FDateOutputDepo := Astring;
FDateOutputDepo_Specified := True;
end;
function PackageInfo.DateOutputDepo_Specified(Index: Integer): boolean;
begin
Result := FDateOutputDepo_Specified;
end;
procedure PackageInfo.SetDateNotDeliv(Index: Integer; const Astring: string);
begin
FDateNotDeliv := Astring;
FDateNotDeliv_Specified := True;
end;
function PackageInfo.DateNotDeliv_Specified(Index: Integer): boolean;
begin
Result := FDateNotDeliv_Specified;
end;
procedure PackageInfo.SetNotDelivCode(Index: Integer; const Astring: string);
begin
FNotDelivCode := Astring;
FNotDelivCode_Specified := True;
end;
function PackageInfo.NotDelivCode_Specified(Index: Integer): boolean;
begin
Result := FNotDelivCode_Specified;
end;
procedure PackageInfo.SetNotDelivName(Index: Integer; const Astring: string);
begin
FNotDelivName := Astring;
FNotDelivName_Specified := True;
end;
function PackageInfo.NotDelivName_Specified(Index: Integer): boolean;
begin
Result := FNotDelivName_Specified;
end;
procedure PackageInfo.SetDateDeliv(Index: Integer; const Astring: string);
begin
FDateDeliv := Astring;
FDateDeliv_Specified := True;
end;
function PackageInfo.DateDeliv_Specified(Index: Integer): boolean;
begin
Result := FDateDeliv_Specified;
end;
procedure PackageInfo.SetDelivPerson(Index: Integer; const Astring: string);
begin
FDelivPerson := Astring;
FDelivPerson_Specified := True;
end;
function PackageInfo.DelivPerson_Specified(Index: Integer): boolean;
begin
Result := FDelivPerson_Specified;
end;
procedure PackageInfo.SetDateExport(Index: Integer; const Astring: string);
begin
FDateExport := Astring;
FDateExport_Specified := True;
end;
function PackageInfo.DateExport_Specified(Index: Integer): boolean;
begin
Result := FDateExport_Specified;
end;
procedure PackageInfo.SetDateImport(Index: Integer; const Astring: string);
begin
FDateImport := Astring;
FDateImport_Specified := True;
end;
function PackageInfo.DateImport_Specified(Index: Integer): boolean;
begin
Result := FDateImport_Specified;
end;
procedure PackageInfo.SetInputCountry(Index: Integer; const Astring: string);
begin
FInputCountry := Astring;
FInputCountry_Specified := True;
end;
function PackageInfo.InputCountry_Specified(Index: Integer): boolean;
begin
Result := FInputCountry_Specified;
end;
procedure PackageInfo.SetOutputCountry(Index: Integer; const Astring: string);
begin
FOutputCountry := Astring;
FOutputCountry_Specified := True;
end;
function PackageInfo.OutputCountry_Specified(Index: Integer): boolean;
begin
Result := FOutputCountry_Specified;
end;
procedure PackageInfo.SetInvoiceNumber(Index: Integer; const Astring: string);
begin
FInvoiceNumber := Astring;
FInvoiceNumber_Specified := True;
end;
function PackageInfo.InvoiceNumber_Specified(Index: Integer): boolean;
begin
Result := FInvoiceNumber_Specified;
end;
procedure PackageInfo.SetReturnToSender(Index: Integer; const Astring: string);
begin
FReturnToSender := Astring;
FReturnToSender_Specified := True;
end;
function PackageInfo.ReturnToSender_Specified(Index: Integer): boolean;
begin
Result := FReturnToSender_Specified;
end;
procedure PackageInfo.SetSendInfo(Index: Integer; const Astring: string);
begin
FSendInfo := Astring;
FSendInfo_Specified := True;
end;
function PackageInfo.SendInfo_Specified(Index: Integer): boolean;
begin
Result := FSendInfo_Specified;
end;
procedure PackageInfo.SetLoadingDate(Index: Integer; const Astring: string);
begin
FLoadingDate := Astring;
FLoadingDate_Specified := True;
end;
function PackageInfo.LoadingDate_Specified(Index: Integer): boolean;
begin
Result := FLoadingDate_Specified;
end;
procedure PackageInfo.SetDateTakeMoney(Index: Integer; const Astring: string);
begin
FDateTakeMoney := Astring;
FDateTakeMoney_Specified := True;
end;
function PackageInfo.DateTakeMoney_Specified(Index: Integer): boolean;
begin
Result := FDateTakeMoney_Specified;
end;
procedure PackageInfo.SetDateMoneyToBank(Index: Integer; const Astring: string);
begin
FDateMoneyToBank := Astring;
FDateMoneyToBank_Specified := True;
end;
function PackageInfo.DateMoneyToBank_Specified(Index: Integer): boolean;
begin
Result := FDateMoneyToBank_Specified;
end;
procedure PackageInfo.SetDateMoneyToCustomer(Index: Integer; const Astring: string);
begin
FDateMoneyToCustomer := Astring;
FDateMoneyToCustomer_Specified := True;
end;
function PackageInfo.DateMoneyToCustomer_Specified(Index: Integer): boolean;
begin
Result := FDateMoneyToCustomer_Specified;
end;
procedure PackageInfo.SetErrorMessage(Index: Integer; const Astring: string);
begin
FErrorMessage := Astring;
FErrorMessage_Specified := True;
end;
function PackageInfo.ErrorMessage_Specified(Index: Integer): boolean;
begin
Result := FErrorMessage_Specified;
end;
destructor Order.Destroy;
begin
SysUtils.FreeAndNil(FSendDateFrom);
SysUtils.FreeAndNil(FSendDateTo);
inherited Destroy;
end;
procedure Order.SetOrdNumber(Index: Integer; const Astring: string);
begin
FOrdNumber := Astring;
FOrdNumber_Specified := True;
end;
function Order.OrdNumber_Specified(Index: Integer): boolean;
begin
Result := FOrdNumber_Specified;
end;
procedure Order.SetCountPack(Index: Integer; const Astring: string);
begin
FCountPack := Astring;
FCountPack_Specified := True;
end;
function Order.CountPack_Specified(Index: Integer): boolean;
begin
Result := FCountPack_Specified;
end;
procedure Order.SetSendName(Index: Integer; const Astring: string);
begin
FSendName := Astring;
FSendName_Specified := True;
end;
function Order.SendName_Specified(Index: Integer): boolean;
begin
Result := FSendName_Specified;
end;
procedure Order.SetSendStreet(Index: Integer; const Astring: string);
begin
FSendStreet := Astring;
FSendStreet_Specified := True;
end;
function Order.SendStreet_Specified(Index: Integer): boolean;
begin
Result := FSendStreet_Specified;
end;
procedure Order.SetSendCity(Index: Integer; const Astring: string);
begin
FSendCity := Astring;
FSendCity_Specified := True;
end;
function Order.SendCity_Specified(Index: Integer): boolean;
begin
Result := FSendCity_Specified;
end;
procedure Order.SetSendZipCode(Index: Integer; const Astring: string);
begin
FSendZipCode := Astring;
FSendZipCode_Specified := True;
end;
function Order.SendZipCode_Specified(Index: Integer): boolean;
begin
Result := FSendZipCode_Specified;
end;
procedure Order.SetSendContact(Index: Integer; const Astring: string);
begin
FSendContact := Astring;
FSendContact_Specified := True;
end;
function Order.SendContact_Specified(Index: Integer): boolean;
begin
Result := FSendContact_Specified;
end;
procedure Order.SetSendPhone(Index: Integer; const Astring: string);
begin
FSendPhone := Astring;
FSendPhone_Specified := True;
end;
function Order.SendPhone_Specified(Index: Integer): boolean;
begin
Result := FSendPhone_Specified;
end;
procedure Order.SetSendCountry(Index: Integer; const Astring: string);
begin
FSendCountry := Astring;
FSendCountry_Specified := True;
end;
function Order.SendCountry_Specified(Index: Integer): boolean;
begin
Result := FSendCountry_Specified;
end;
procedure Order.SetRecName(Index: Integer; const Astring: string);
begin
FRecName := Astring;
FRecName_Specified := True;
end;
function Order.RecName_Specified(Index: Integer): boolean;
begin
Result := FRecName_Specified;
end;
procedure Order.SetRecStreet(Index: Integer; const Astring: string);
begin
FRecStreet := Astring;
FRecStreet_Specified := True;
end;
function Order.RecStreet_Specified(Index: Integer): boolean;
begin
Result := FRecStreet_Specified;
end;
procedure Order.SetRecCity(Index: Integer; const Astring: string);
begin
FRecCity := Astring;
FRecCity_Specified := True;
end;
function Order.RecCity_Specified(Index: Integer): boolean;
begin
Result := FRecCity_Specified;
end;
procedure Order.SetRecZipCode(Index: Integer; const Astring: string);
begin
FRecZipCode := Astring;
FRecZipCode_Specified := True;
end;
function Order.RecZipCode_Specified(Index: Integer): boolean;
begin
Result := FRecZipCode_Specified;
end;
procedure Order.SetRecContact(Index: Integer; const Astring: string);
begin
FRecContact := Astring;
FRecContact_Specified := True;
end;
function Order.RecContact_Specified(Index: Integer): boolean;
begin
Result := FRecContact_Specified;
end;
procedure Order.SetRecPhone(Index: Integer; const Astring: string);
begin
FRecPhone := Astring;
FRecPhone_Specified := True;
end;
function Order.RecPhone_Specified(Index: Integer): boolean;
begin
Result := FRecPhone_Specified;
end;
procedure Order.SetRecCountry(Index: Integer; const Astring: string);
begin
FRecCountry := Astring;
FRecCountry_Specified := True;
end;
function Order.RecCountry_Specified(Index: Integer): boolean;
begin
Result := FRecCountry_Specified;
end;
procedure Order.SetNote(Index: Integer; const Astring: string);
begin
FNote := Astring;
FNote_Specified := True;
end;
function Order.Note_Specified(Index: Integer): boolean;
begin
Result := FNote_Specified;
end;
procedure Order.SetEmail(Index: Integer; const Astring: string);
begin
FEmail := Astring;
FEmail_Specified := True;
end;
function Order.Email_Specified(Index: Integer): boolean;
begin
Result := FEmail_Specified;
end;
procedure Order.SetErrorMessage(Index: Integer; const Astring: string);
begin
FErrorMessage := Astring;
FErrorMessage_Specified := True;
end;
function Order.ErrorMessage_Specified(Index: Integer): boolean;
begin
Result := FErrorMessage_Specified;
end;
destructor StatusDHL.Destroy;
begin
SysUtils.FreeAndNil(FCreated);
inherited Destroy;
end;
procedure StatusDHL.SetPackageIDPPL(Index: Integer; const Astring: string);
begin
FPackageIDPPL := Astring;
FPackageIDPPL_Specified := True;
end;
function StatusDHL.PackageIDPPL_Specified(Index: Integer): boolean;
begin
Result := FPackageIDPPL_Specified;
end;
procedure StatusDHL.SetPackageIDExp(Index: Integer; const Astring: string);
begin
FPackageIDExp := Astring;
FPackageIDExp_Specified := True;
end;
function StatusDHL.PackageIDExp_Specified(Index: Integer): boolean;
begin
Result := FPackageIDExp_Specified;
end;
procedure StatusDHL.SetStatusID(Index: Integer; const Astring: string);
begin
FStatusID := Astring;
FStatusID_Specified := True;
end;
function StatusDHL.StatusID_Specified(Index: Integer): boolean;
begin
Result := FStatusID_Specified;
end;
procedure StatusDHL.SetNote(Index: Integer; const Astring: string);
begin
FNote := Astring;
FNote_Specified := True;
end;
function StatusDHL.Note_Specified(Index: Integer): boolean;
begin
Result := FNote_Specified;
end;
procedure StatusDHL.SetZpID(Index: Integer; const Astring: string);
begin
FZpID := Astring;
FZpID_Specified := True;
end;
function StatusDHL.ZpID_Specified(Index: Integer): boolean;
begin
Result := FZpID_Specified;
end;
procedure StatusDHL.SetErrorMessage(Index: Integer; const Astring: string);
begin
FErrorMessage := Astring;
FErrorMessage_Specified := True;
end;
function StatusDHL.ErrorMessage_Specified(Index: Integer): boolean;
begin
Result := FErrorMessage_Specified;
end;
destructor OrderCart.Destroy;
begin
SysUtils.FreeAndNil(FSendDateFrom);
SysUtils.FreeAndNil(FSendDateTo);
inherited Destroy;
end;
procedure OrderCart.SetSendName(Index: Integer; const Astring: string);
begin
FSendName := Astring;
FSendName_Specified := True;
end;
function OrderCart.SendName_Specified(Index: Integer): boolean;
begin
Result := FSendName_Specified;
end;
procedure OrderCart.SetSendStreet(Index: Integer; const Astring: string);
begin
FSendStreet := Astring;
FSendStreet_Specified := True;
end;
function OrderCart.SendStreet_Specified(Index: Integer): boolean;
begin
Result := FSendStreet_Specified;
end;
procedure OrderCart.SetSendCity(Index: Integer; const Astring: string);
begin
FSendCity := Astring;
FSendCity_Specified := True;
end;
function OrderCart.SendCity_Specified(Index: Integer): boolean;
begin
Result := FSendCity_Specified;
end;
procedure OrderCart.SetSendZipCode(Index: Integer; const Astring: string);
begin
FSendZipCode := Astring;
FSendZipCode_Specified := True;
end;
function OrderCart.SendZipCode_Specified(Index: Integer): boolean;
begin
Result := FSendZipCode_Specified;
end;
procedure OrderCart.SetNote(Index: Integer; const Astring: string);
begin
FNote := Astring;
FNote_Specified := True;
end;
function OrderCart.Note_Specified(Index: Integer): boolean;
begin
Result := FNote_Specified;
end;
procedure OrderCart.SetEmail(Index: Integer; const Astring: string);
begin
FEmail := Astring;
FEmail_Specified := True;
end;
function OrderCart.Email_Specified(Index: Integer): boolean;
begin
Result := FEmail_Specified;
end;
procedure OrderCart.SetErrorMessage(Index: Integer; const Astring: string);
begin
FErrorMessage := Astring;
FErrorMessage_Specified := True;
end;
function OrderCart.ErrorMessage_Specified(Index: Integer): boolean;
begin
Result := FErrorMessage_Specified;
end;
procedure colOrderCart.SetItems(Index: Integer; const AArrayOfAnyType: ArrayOfAnyType);
begin
FItems := AArrayOfAnyType;
FItems_Specified := True;
end;
function colOrderCart.Items_Specified(Index: Integer): boolean;
begin
Result := FItems_Specified;
end;
procedure colOrderCart.SetErrorMessage(Index: Integer; const Astring: string);
begin
FErrorMessage := Astring;
FErrorMessage_Specified := True;
end;
function colOrderCart.ErrorMessage_Specified(Index: Integer): boolean;
begin
Result := FErrorMessage_Specified;
end;
procedure colStatus.SetItems(Index: Integer; const AArrayOfAnyType: ArrayOfAnyType);
begin
FItems := AArrayOfAnyType;
FItems_Specified := True;
end;
function colStatus.Items_Specified(Index: Integer): boolean;
begin
Result := FItems_Specified;
end;
procedure colStatus.SetErrorMessage(Index: Integer; const Astring: string);
begin
FErrorMessage := Astring;
FErrorMessage_Specified := True;
end;
function colStatus.ErrorMessage_Specified(Index: Integer): boolean;
begin
Result := FErrorMessage_Specified;
end;
procedure colPackageHoffmann.SetItems(Index: Integer; const AArrayOfAnyType: ArrayOfAnyType);
begin
FItems := AArrayOfAnyType;
FItems_Specified := True;
end;
function colPackageHoffmann.Items_Specified(Index: Integer): boolean;
begin
Result := FItems_Specified;
end;
procedure colPackageHoffmann.SetErrorMessage(Index: Integer; const Astring: string);
begin
FErrorMessage := Astring;
FErrorMessage_Specified := True;
end;
function colPackageHoffmann.ErrorMessage_Specified(Index: Integer): boolean;
begin
Result := FErrorMessage_Specified;
end;
procedure colPackageWeighed.SetItems(Index: Integer; const AArrayOfAnyType: ArrayOfAnyType);
begin
FItems := AArrayOfAnyType;
FItems_Specified := True;
end;
function colPackageWeighed.Items_Specified(Index: Integer): boolean;
begin
Result := FItems_Specified;
end;
procedure colPackageWeighed.SetErrorMessage(Index: Integer; const Astring: string);
begin
FErrorMessage := Astring;
FErrorMessage_Specified := True;
end;
function colPackageWeighed.ErrorMessage_Specified(Index: Integer): boolean;
begin
Result := FErrorMessage_Specified;
end;
procedure colOrder.SetItems(Index: Integer; const AArrayOfAnyType: ArrayOfAnyType);
begin
FItems := AArrayOfAnyType;
FItems_Specified := True;
end;
function colOrder.Items_Specified(Index: Integer): boolean;
begin
Result := FItems_Specified;
end;
procedure colOrder.SetErrorMessage(Index: Integer; const Astring: string);
begin
FErrorMessage := Astring;
FErrorMessage_Specified := True;
end;
function colOrder.ErrorMessage_Specified(Index: Integer): boolean;
begin
Result := FErrorMessage_Specified;
end;
procedure colPackage.SetItems(Index: Integer; const AArrayOfAnyType: ArrayOfAnyType);
begin
FItems := AArrayOfAnyType;
FItems_Specified := True;
end;
function colPackage.Items_Specified(Index: Integer): boolean;
begin
Result := FItems_Specified;
end;
procedure colPackage.SetErrorMessage(Index: Integer; const Astring: string);
begin
FErrorMessage := Astring;
FErrorMessage_Specified := True;
end;
function colPackage.ErrorMessage_Specified(Index: Integer): boolean;
begin
Result := FErrorMessage_Specified;
end;
procedure colPPLSprint.SetItems(Index: Integer; const AArrayOfAnyType: ArrayOfAnyType);
begin
FItems := AArrayOfAnyType;
FItems_Specified := True;
end;
function colPPLSprint.Items_Specified(Index: Integer): boolean;
begin
Result := FItems_Specified;
end;
procedure colPPLSprint.SetErrorMessage(Index: Integer; const Astring: string);
begin
FErrorMessage := Astring;
FErrorMessage_Specified := True;
end;
function colPPLSprint.ErrorMessage_Specified(Index: Integer): boolean;
begin
Result := FErrorMessage_Specified;
end;
initialization
InvRegistry.RegisterInterface(TypeInfo(IEGateSoap), 'PPLIEGate', 'utf-8');
InvRegistry.RegisterDefaultSOAPAction(TypeInfo(IEGateSoap), 'PPLIEGate/%operationName%');
InvRegistry.RegisterInvokeOptions(TypeInfo(IEGateSoap), ioDocument);
InvRegistry.RegisterInvokeOptions(TypeInfo(IEGateSoap), ioSOAP12);
InvRegistry.RegisterInterface(TypeInfo(IEGateHttpGet), 'PPLIEGate', 'utf-8');
InvRegistry.RegisterDefaultSOAPAction(TypeInfo(IEGateHttpGet), '');
InvRegistry.RegisterInvokeOptions(TypeInfo(IEGateHttpGet), ioSOAP12);
InvRegistry.RegisterInterface(TypeInfo(IEGateHttpPost), 'PPLIEGate', 'utf-8');
InvRegistry.RegisterDefaultSOAPAction(TypeInfo(IEGateHttpPost), '');
InvRegistry.RegisterInvokeOptions(TypeInfo(IEGateHttpPost), ioSOAP12);
RemClassRegistry.RegisterXSClass(Package_, 'PPLIEGate', 'Package_', 'Package');
RemClassRegistry.RegisterXSClass(City, 'PPLIEGate', 'City');
RemClassRegistry.RegisterXSClass(PackageWeighed, 'PPLIEGate', 'PackageWeighed');
RemClassRegistry.RegisterXSClass(ZipCode, 'PPLIEGate', 'ZipCode');
RemClassRegistry.RegisterXSClass(PackageEsyco, 'PPLIEGate', 'PackageEsyco');
RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfZipCode), 'PPLIEGate', 'ArrayOfZipCode');
RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfCity), 'PPLIEGate', 'ArrayOfCity');
RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfString), 'PPLIEGate', 'ArrayOfString');
RemClassRegistry.RegisterXSClass(PackageInfo, 'PPLIEGate', 'PackageInfo');
RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfPackageInfo), 'PPLIEGate', 'ArrayOfPackageInfo');
RemClassRegistry.RegisterXSClass(Order, 'PPLIEGate', 'Order');
RemClassRegistry.RegisterXSClass(StatusDHL, 'PPLIEGate', 'StatusDHL');
RemClassRegistry.RegisterXSClass(OrderCart, 'PPLIEGate', 'OrderCart');
RemClassRegistry.RegisterXSInfo(TypeInfo(ImportPackagesResult), 'PPLIEGate', 'ImportPackagesResult');
RemClassRegistry.RegisterXSInfo(TypeInfo(ImportOrdersResult), 'PPLIEGate', 'ImportOrdersResult');
RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfZipCode2), 'PPLIEGate', 'ArrayOfZipCode2', 'ArrayOfZipCode');
RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfCity2), 'PPLIEGate', 'ArrayOfCity2', 'ArrayOfCity');
RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfPackageInfo2), 'PPLIEGate', 'ArrayOfPackageInfo2', 'ArrayOfPackageInfo');
RemClassRegistry.RegisterXSClass(PackageInfo2, 'PPLIEGate', 'PackageInfo2', 'PackageInfo');
RemClassRegistry.RegisterXSInfo(TypeInfo(anyType), 'PPLIEGate', 'anyType');
RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfAnyType), 'PPLIEGate', 'ArrayOfAnyType');
RemClassRegistry.RegisterXSClass(colOrderCart, 'PPLIEGate', 'colOrderCart');
RemClassRegistry.RegisterXSClass(colStatus, 'PPLIEGate', 'colStatus');
RemClassRegistry.RegisterXSClass(colPackageHoffmann, 'PPLIEGate', 'colPackageHoffmann');
RemClassRegistry.RegisterXSClass(colPackageWeighed, 'PPLIEGate', 'colPackageWeighed');
RemClassRegistry.RegisterXSClass(colOrder, 'PPLIEGate', 'colOrder');
RemClassRegistry.RegisterXSClass(colPackage, 'PPLIEGate', 'colPackage');
RemClassRegistry.RegisterXSClass(colPackage2, 'PPLIEGate', 'colPackage2', 'colPackage');
RemClassRegistry.RegisterXSClass(colPPLSprint, 'PPLIEGate', 'colPPLSprint');
RemClassRegistry.RegisterXSInfo(TypeInfo(String_), 'PPLIEGate/AbstractTypes', 'String_', 'String');
RemClassRegistry.RegisterXSInfo(TypeInfo(StringArray), 'PPLIEGate/AbstractTypes', 'StringArray');
end.
Reference in New Issue View Git Blame Copy Permalink