// ************************************************************************ // // 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, // 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, // 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, // 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, // 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, // 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, // 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, // 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, // 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, // 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, // Namespace : PPLIEGate // ************************************************************************ // PackageInfo2 = class(PackageInfo) private published end; anyType = type string; { "PPLIEGate"[Alias] } ArrayOfAnyType = array of anyType; { "PPLIEGate"[GblCplx] } // ************************************************************************ // // XML : colOrderCart, global, // 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, // 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, // 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, // 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, // 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, // 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, // Namespace : PPLIEGate // ************************************************************************ // colPackage2 = class(colPackage) private published end; // ************************************************************************ // // XML : colPPLSprint, global, // 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.