unit libPPL_Intf; {----------------------------------------------------------------------------} { This unit was automatically generated by the RemObjects SDK after reading } { the RODL file associated with this project . } { } { Do not modify this unit manually, or your changes will be lost when this } { unit is regenerated the next time you compile the project. } {----------------------------------------------------------------------------} {$I RemObjects.inc} interface uses {vcl:} Classes, TypInfo, {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf; const { Library ID } LibraryUID = '{8F02AB81-FC0D-45A7-B017-9D82F0766E03}'; WSDLLocation = 'http://www.ppl.cz/IEGate/IEGate.asmx?WSDL'; TargetNamespace = 'PPLIEGate'; { Service Interface ID's } IIEGate_IID : TGUID = '{E379A095-D779-4864-9A1B-F99840E8385A}'; IEGate_EndPointURI = 'http://www.ppl.cz/IEGate/IEGate.asmx'; { Event ID's } type TSeekOrigin = Classes.TSeekOrigin; // fake declaration { Forward declarations } IIEGate = interface; ArrayOfAnyType = class; ArrayOfPPLSprintItem = class; ArrayOfZipCode = class; ArrayOfCity = class; ArrayOfString = class; ArrayOfPackageInfo = class; StringArray = class; ImportPPLSprint = class; colPPLSprint = class; Package = class; PPLSprint = class; PPLSprintItem = class; PackageToList = class; PackageHoffmann = class; City = class; PackageWeighed = class; ZipCode = class; PackageEsyco = class; ImportPPLSprintResponse = class; GetZipCodes = class; GetZipCodesResponse = class; GetCities = class; GetCitiesResponse = class; GetPackagesInfo = class; PackageInfo = class; GetPackagesInfoResponse = class; GetPackageToDelivery = class; colPackage = class; GetPackageToDeliveryResponse = class; GetPackageInfo = class; GetPackageInfoResponse = class; ImportOrderExt = class; Order = class; ImportOrderExtResponse = class; ImportOrdersExt = class; colOrder = class; ImportOrdersExtResponse = class; ImportPackageExt = class; ImportPackageExtResponse = class; ImportPackagesExt = class; ImportPackagesExtResponse = class; ImportPackages = class; ImportPackagesResponse_ImportPackagesResult = class; ImportPackagesResponse = class; ImportOrders = class; ImportOrdersResponse_ImportOrdersResult = class; ImportOrdersResponse = class; ImportWeighedPack = class; ImportWeighedPackResponse = class; ImportWeighedPackages = class; colPackageWeighed = class; ImportWeighedPackagesResponse = class; ImportPackagesHoffmann = class; colPackageHoffmann = class; ImportPackagesHoffmannResponse = class; ImportESYCOPack = class; ImportESYCOPackResponse = class; ImportESYCOPackages = class; ImportESYCOPackagesResponse = class; ImportStatusDHL = class; StatusDHL = class; ImportStatusDHLResponse = class; ImportStatusesDHL = class; colStatus = class; ImportStatusesDHLResponse = class; ImportOrderCart = class; OrderCart = class; ImportOrderCartResponse = class; ImportOrdersCart = class; colOrderCart = class; ImportOrdersCartResponse = class; { ImportPPLSprint } ImportPPLSprint = class(TROComplexType) private fFirCode: UnicodeString; fpackages: colPPLSprint; function Getpackages: colPPLSprint; protected property int_packages: colPPLSprint read fpackages; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property FirCode:UnicodeString read fFirCode write fFirCode; property packages:colPPLSprint read Getpackages write fpackages; end; { ImportPPLSprintCollection } ImportPPLSprintCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): ImportPPLSprint; procedure SetItems(aIndex: integer; const Value: ImportPPLSprint); public constructor Create; overload; function Add: ImportPPLSprint; reintroduce; property Items[Index: integer]:ImportPPLSprint read GetItems write SetItems; default; end; { colPPLSprint } colPPLSprint = class(TROComplexType) private fItems: ArrayOfAnyType; fErrorCode: Integer; fErrorMessage: UnicodeString; function GetItems: ArrayOfAnyType; protected property int_Items: ArrayOfAnyType read fItems; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property Items:ArrayOfAnyType read GetItems write fItems; property ErrorCode:Integer read fErrorCode write fErrorCode; property ErrorMessage:UnicodeString read fErrorMessage write fErrorMessage; end; { colPPLSprintCollection } colPPLSprintCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): colPPLSprint; procedure SetItems(aIndex: integer; const Value: colPPLSprint); public constructor Create; overload; function Add: colPPLSprint; reintroduce; property Items[Index: integer]:colPPLSprint read GetItems write SetItems; default; end; { Package } Package = class(TROComplexType) private fPackageID: UnicodeString; fPackageIDCUS: UnicodeString; ffield_ZipCode: UnicodeString; fCountry: UnicodeString; fCodPrice: decimal; fCodPriceCurID: UnicodeString; fVarSym: UnicodeString; fConsigneeName: UnicodeString; fConsigneeStreet: UnicodeString; fConsigneeCity: UnicodeString; fPhone: UnicodeString; fContact: UnicodeString; fEveningDelivery: boolean; fCustRef: UnicodeString; fLength: UnicodeString; fHeight: UnicodeString; fWidth: UnicodeString; fRecMail: UnicodeString; fErrorCode: Integer; fErrorMessage: UnicodeString; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property PackageID:UnicodeString read fPackageID write fPackageID; property PackageIDCUS:UnicodeString read fPackageIDCUS write fPackageIDCUS; property field_ZipCode:UnicodeString read ffield_ZipCode write ffield_ZipCode; property Country:UnicodeString read fCountry write fCountry; property CodPrice:decimal read fCodPrice write fCodPrice; property CodPriceCurID:UnicodeString read fCodPriceCurID write fCodPriceCurID; property VarSym:UnicodeString read fVarSym write fVarSym; property ConsigneeName:UnicodeString read fConsigneeName write fConsigneeName; property ConsigneeStreet:UnicodeString read fConsigneeStreet write fConsigneeStreet; property ConsigneeCity:UnicodeString read fConsigneeCity write fConsigneeCity; property Phone:UnicodeString read fPhone write fPhone; property Contact:UnicodeString read fContact write fContact; property EveningDelivery:boolean read fEveningDelivery write fEveningDelivery; property CustRef:UnicodeString read fCustRef write fCustRef; property Length:UnicodeString read fLength write fLength; property Height:UnicodeString read fHeight write fHeight; property Width:UnicodeString read fWidth write fWidth; property RecMail:UnicodeString read fRecMail write fRecMail; property ErrorCode:Integer read fErrorCode write fErrorCode; property ErrorMessage:UnicodeString read fErrorMessage write fErrorMessage; end; { PackageCollection } PackageCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): Package; procedure SetItems(aIndex: integer; const Value: Package); public constructor Create; overload; function Add: Package; reintroduce; property Items[Index: integer]:Package read GetItems write SetItems; default; end; { PPLSprint } PPLSprint = class(TROComplexType) private fPackageIdPPL: UnicodeString; fDCOD: UnicodeString; fPackageType: Integer; fPickupDate: DateTime; fPickupTimeFrom: UnicodeString; fPickupTimeTo: UnicodeString; fDelivTimeFrom: UnicodeString; fDelivTimeTo: UnicodeString; fCountOfEuroPal: Integer; fDeliveryTerms: UnicodeString; fEmail: UnicodeString; fGoodsDesc: UnicodeString; fNote: UnicodeString; fCustRef: UnicodeString; fInsurance: UnicodeString; fInsuranceValue: Integer; fCodValue: decimal; fCodVarCode: UnicodeString; fSendName: UnicodeString; fSendStreet: UnicodeString; fSendCity: UnicodeString; fSendZipCode: UnicodeString; fSendContact: UnicodeString; fSendPhone: UnicodeString; fSendOrgId: UnicodeString; fSendOrgVatId: UnicodeString; fRecName: UnicodeString; fRecStreet: UnicodeString; fRecCity: UnicodeString; fRecZipCode: UnicodeString; fRecContact: UnicodeString; fRecPhone: UnicodeString; fRecOrgId: UnicodeString; fRecOrgVatId: UnicodeString; fEurBack: boolean; fLatePickup: boolean; fStock: boolean; fThirdDeliv: boolean; fPOD: boolean; fSaturdayDeliv: boolean; fOutWorkTime: boolean; fOutWorkTimePickup: boolean; fCrgManId: Integer; fPayOnDelivery: boolean; fDocBack: boolean; fADR: boolean; fIdPri: UnicodeString; fAccount: UnicodeString; fBankCode: UnicodeString; fSpecSymbol: UnicodeString; fPackageItems: ArrayOfPPLSprintItem; fErrorCode: Integer; fErrorMessage: UnicodeString; function GetPackageItems: ArrayOfPPLSprintItem; protected property int_PackageItems: ArrayOfPPLSprintItem read fPackageItems; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property PackageIdPPL:UnicodeString read fPackageIdPPL write fPackageIdPPL; property DCOD:UnicodeString read fDCOD write fDCOD; property PackageType:Integer read fPackageType write fPackageType; property PickupDate:DateTime read fPickupDate write fPickupDate; property PickupTimeFrom:UnicodeString read fPickupTimeFrom write fPickupTimeFrom; property PickupTimeTo:UnicodeString read fPickupTimeTo write fPickupTimeTo; property DelivTimeFrom:UnicodeString read fDelivTimeFrom write fDelivTimeFrom; property DelivTimeTo:UnicodeString read fDelivTimeTo write fDelivTimeTo; property CountOfEuroPal:Integer read fCountOfEuroPal write fCountOfEuroPal; property DeliveryTerms:UnicodeString read fDeliveryTerms write fDeliveryTerms; property Email:UnicodeString read fEmail write fEmail; property GoodsDesc:UnicodeString read fGoodsDesc write fGoodsDesc; property Note:UnicodeString read fNote write fNote; property CustRef:UnicodeString read fCustRef write fCustRef; property Insurance:UnicodeString read fInsurance write fInsurance; property InsuranceValue:Integer read fInsuranceValue write fInsuranceValue; property CodValue:decimal read fCodValue write fCodValue; property CodVarCode:UnicodeString read fCodVarCode write fCodVarCode; property SendName:UnicodeString read fSendName write fSendName; property SendStreet:UnicodeString read fSendStreet write fSendStreet; property SendCity:UnicodeString read fSendCity write fSendCity; property SendZipCode:UnicodeString read fSendZipCode write fSendZipCode; property SendContact:UnicodeString read fSendContact write fSendContact; property SendPhone:UnicodeString read fSendPhone write fSendPhone; property SendOrgId:UnicodeString read fSendOrgId write fSendOrgId; property SendOrgVatId:UnicodeString read fSendOrgVatId write fSendOrgVatId; property RecName:UnicodeString read fRecName write fRecName; property RecStreet:UnicodeString read fRecStreet write fRecStreet; property RecCity:UnicodeString read fRecCity write fRecCity; property RecZipCode:UnicodeString read fRecZipCode write fRecZipCode; property RecContact:UnicodeString read fRecContact write fRecContact; property RecPhone:UnicodeString read fRecPhone write fRecPhone; property RecOrgId:UnicodeString read fRecOrgId write fRecOrgId; property RecOrgVatId:UnicodeString read fRecOrgVatId write fRecOrgVatId; property EurBack:boolean read fEurBack write fEurBack; property LatePickup:boolean read fLatePickup write fLatePickup; property Stock:boolean read fStock write fStock; property ThirdDeliv:boolean read fThirdDeliv write fThirdDeliv; property POD:boolean read fPOD write fPOD; property SaturdayDeliv:boolean read fSaturdayDeliv write fSaturdayDeliv; property OutWorkTime:boolean read fOutWorkTime write fOutWorkTime; property OutWorkTimePickup:boolean read fOutWorkTimePickup write fOutWorkTimePickup; property CrgManId:Integer read fCrgManId write fCrgManId; property PayOnDelivery:boolean read fPayOnDelivery write fPayOnDelivery; property DocBack:boolean read fDocBack write fDocBack; property ADR:boolean read fADR write fADR; property IdPri:UnicodeString read fIdPri write fIdPri; property Account:UnicodeString read fAccount write fAccount; property BankCode:UnicodeString read fBankCode write fBankCode; property SpecSymbol:UnicodeString read fSpecSymbol write fSpecSymbol; property PackageItems:ArrayOfPPLSprintItem read GetPackageItems write fPackageItems; property ErrorCode:Integer read fErrorCode write fErrorCode; property ErrorMessage:UnicodeString read fErrorMessage write fErrorMessage; end; { PPLSprintCollection } PPLSprintCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): PPLSprint; procedure SetItems(aIndex: integer; const Value: PPLSprint); public constructor Create; overload; function Add: PPLSprint; reintroduce; property Items[Index: integer]:PPLSprint read GetItems write SetItems; default; end; { PPLSprintItem } PPLSprintItem = class(TROComplexType) private fLPNumber: UnicodeString; fCaseDescription: UnicodeString; fWeight: decimal; fLength: Integer; fHeight: Integer; fWidth: Integer; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property LPNumber:UnicodeString read fLPNumber write fLPNumber; property CaseDescription:UnicodeString read fCaseDescription write fCaseDescription; property Weight:decimal read fWeight write fWeight; property Length:Integer read fLength write fLength; property Height:Integer read fHeight write fHeight; property Width:Integer read fWidth write fWidth; end; { PPLSprintItemCollection } PPLSprintItemCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): PPLSprintItem; procedure SetItems(aIndex: integer; const Value: PPLSprintItem); public constructor Create; overload; function Add: PPLSprintItem; reintroduce; procedure SaveToArray(anArray: ArrayOfPPLSprintItem); procedure LoadFromArray(anArray: ArrayOfPPLSprintItem); property Items[Index: integer]:PPLSprintItem read GetItems write SetItems; default; end; { PackageToList } PackageToList = class(TROComplexType) private fPackageID: UnicodeString; fWeight: decimal; fToDelivDate: UnicodeString; fRecName: UnicodeString; fRecStreet: UnicodeString; fRecCity: UnicodeString; fRecZipCode: UnicodeString; fCod: UnicodeString; fCodPrice: decimal; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property PackageID:UnicodeString read fPackageID write fPackageID; property Weight:decimal read fWeight write fWeight; property ToDelivDate:UnicodeString read fToDelivDate write fToDelivDate; property RecName:UnicodeString read fRecName write fRecName; property RecStreet:UnicodeString read fRecStreet write fRecStreet; property RecCity:UnicodeString read fRecCity write fRecCity; property RecZipCode:UnicodeString read fRecZipCode write fRecZipCode; property Cod:UnicodeString read fCod write fCod; property CodPrice:decimal read fCodPrice write fCodPrice; end; { PackageToListCollection } PackageToListCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): PackageToList; procedure SetItems(aIndex: integer; const Value: PackageToList); public constructor Create; overload; function Add: PackageToList; reintroduce; property Items[Index: integer]:PackageToList read GetItems write SetItems; default; end; { PackageHoffmann } PackageHoffmann = class(TROComplexType) private fPackageID: UnicodeString; ffield_ZipCode: UnicodeString; fWeight: decimal; fCountry: UnicodeString; fPrice: decimal; fConsigneeName1: UnicodeString; fConsigneeName2: UnicodeString; fConsigneeName3: UnicodeString; fConsigneeName4: UnicodeString; fConsigneeStreet: UnicodeString; fConsigneeCity: UnicodeString; fVarSym: UnicodeString; fPhone: UnicodeString; fErrorCode: Integer; fErrorMessage: UnicodeString; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property PackageID:UnicodeString read fPackageID write fPackageID; property field_ZipCode:UnicodeString read ffield_ZipCode write ffield_ZipCode; property Weight:decimal read fWeight write fWeight; property Country:UnicodeString read fCountry write fCountry; property Price:decimal read fPrice write fPrice; property ConsigneeName1:UnicodeString read fConsigneeName1 write fConsigneeName1; property ConsigneeName2:UnicodeString read fConsigneeName2 write fConsigneeName2; property ConsigneeName3:UnicodeString read fConsigneeName3 write fConsigneeName3; property ConsigneeName4:UnicodeString read fConsigneeName4 write fConsigneeName4; property ConsigneeStreet:UnicodeString read fConsigneeStreet write fConsigneeStreet; property ConsigneeCity:UnicodeString read fConsigneeCity write fConsigneeCity; property VarSym:UnicodeString read fVarSym write fVarSym; property Phone:UnicodeString read fPhone write fPhone; property ErrorCode:Integer read fErrorCode write fErrorCode; property ErrorMessage:UnicodeString read fErrorMessage write fErrorMessage; end; { PackageHoffmannCollection } PackageHoffmannCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): PackageHoffmann; procedure SetItems(aIndex: integer; const Value: PackageHoffmann); public constructor Create; overload; function Add: PackageHoffmann; reintroduce; property Items[Index: integer]:PackageHoffmann read GetItems write SetItems; default; end; { City } City = class(TROComplexType) private fZip: UnicodeString; ffield_City: UnicodeString; fRegion: UnicodeString; fPost: UnicodeString; fCountry: UnicodeString; fReject: boolean; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property Zip:UnicodeString read fZip write fZip; property field_City:UnicodeString read ffield_City write ffield_City; property Region:UnicodeString read fRegion write fRegion; property Post:UnicodeString read fPost write fPost; property Country:UnicodeString read fCountry write fCountry; property Reject:boolean read fReject write fReject; end; { CityCollection } CityCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): City; procedure SetItems(aIndex: integer; const Value: City); public constructor Create; overload; function Add: City; reintroduce; procedure SaveToArray(anArray: ArrayOfCity); procedure LoadFromArray(anArray: ArrayOfCity); property Items[Index: integer]:City read GetItems write SetItems; default; end; { PackageWeighed } PackageWeighed = class(TROComplexType) private fPackageID: UnicodeString; fPackageIDCUS: UnicodeString; fInputDestination: UnicodeString; fOutputDestination: UnicodeString; ffield_ZipCode: UnicodeString; fWeight: decimal; fCountry: UnicodeString; fPrice: decimal; fPriceCurID: UnicodeString; fConsigneeName: UnicodeString; fConsigneeStreet: UnicodeString; fConsigneeCity: UnicodeString; fPhone: UnicodeString; fVarSym: UnicodeString; fAccount: UnicodeString; fBankCode: UnicodeString; fSpecSymbol: UnicodeString; fDateDelivFrom: UnicodeString; fDateDelivTo: UnicodeString; fContact: UnicodeString; fCustRef: UnicodeString; fEveningDelivery: boolean; fLength: UnicodeString; fHeight: UnicodeString; fWidth: UnicodeString; fRecMail: UnicodeString; fErrorCode: Integer; fErrorMessage: UnicodeString; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property PackageID:UnicodeString read fPackageID write fPackageID; property PackageIDCUS:UnicodeString read fPackageIDCUS write fPackageIDCUS; property InputDestination:UnicodeString read fInputDestination write fInputDestination; property OutputDestination:UnicodeString read fOutputDestination write fOutputDestination; property field_ZipCode:UnicodeString read ffield_ZipCode write ffield_ZipCode; property Weight:decimal read fWeight write fWeight; property Country:UnicodeString read fCountry write fCountry; property Price:decimal read fPrice write fPrice; property PriceCurID:UnicodeString read fPriceCurID write fPriceCurID; property ConsigneeName:UnicodeString read fConsigneeName write fConsigneeName; property ConsigneeStreet:UnicodeString read fConsigneeStreet write fConsigneeStreet; property ConsigneeCity:UnicodeString read fConsigneeCity write fConsigneeCity; property Phone:UnicodeString read fPhone write fPhone; property VarSym:UnicodeString read fVarSym write fVarSym; property Account:UnicodeString read fAccount write fAccount; property BankCode:UnicodeString read fBankCode write fBankCode; property SpecSymbol:UnicodeString read fSpecSymbol write fSpecSymbol; property DateDelivFrom:UnicodeString read fDateDelivFrom write fDateDelivFrom; property DateDelivTo:UnicodeString read fDateDelivTo write fDateDelivTo; property Contact:UnicodeString read fContact write fContact; property CustRef:UnicodeString read fCustRef write fCustRef; property EveningDelivery:boolean read fEveningDelivery write fEveningDelivery; property Length:UnicodeString read fLength write fLength; property Height:UnicodeString read fHeight write fHeight; property Width:UnicodeString read fWidth write fWidth; property RecMail:UnicodeString read fRecMail write fRecMail; property ErrorCode:Integer read fErrorCode write fErrorCode; property ErrorMessage:UnicodeString read fErrorMessage write fErrorMessage; end; { PackageWeighedCollection } PackageWeighedCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): PackageWeighed; procedure SetItems(aIndex: integer; const Value: PackageWeighed); public constructor Create; overload; function Add: PackageWeighed; reintroduce; property Items[Index: integer]:PackageWeighed read GetItems write SetItems; default; end; { ZipCode } ZipCode = class(TROComplexType) private fZip: UnicodeString; fPost: UnicodeString; fDepot: UnicodeString; fDestination: UnicodeString; fVisual: Integer; fEveningDelivery: boolean; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property Zip:UnicodeString read fZip write fZip; property Post:UnicodeString read fPost write fPost; property Depot:UnicodeString read fDepot write fDepot; property Destination:UnicodeString read fDestination write fDestination; property Visual:Integer read fVisual write fVisual; property EveningDelivery:boolean read fEveningDelivery write fEveningDelivery; end; { ZipCodeCollection } ZipCodeCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): ZipCode; procedure SetItems(aIndex: integer; const Value: ZipCode); public constructor Create; overload; function Add: ZipCode; reintroduce; procedure SaveToArray(anArray: ArrayOfZipCode); procedure LoadFromArray(anArray: ArrayOfZipCode); property Items[Index: integer]:ZipCode read GetItems write SetItems; default; end; { PackageEsyco } PackageEsyco = class(TROComplexType) private fPackageID: UnicodeString; ffield_ZipCode: UnicodeString; fCountry: UnicodeString; fCodPrice: decimal; fVarSym: UnicodeString; fAccount: UnicodeString; fBankCode: UnicodeString; fSpecSymbol: UnicodeString; fConsigneeName: UnicodeString; fConsigneeStreet: UnicodeString; fConsigneeCity: UnicodeString; fPhone: UnicodeString; fErrorCode: Integer; fErrorMessage: UnicodeString; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property PackageID:UnicodeString read fPackageID write fPackageID; property field_ZipCode:UnicodeString read ffield_ZipCode write ffield_ZipCode; property Country:UnicodeString read fCountry write fCountry; property CodPrice:decimal read fCodPrice write fCodPrice; property VarSym:UnicodeString read fVarSym write fVarSym; property Account:UnicodeString read fAccount write fAccount; property BankCode:UnicodeString read fBankCode write fBankCode; property SpecSymbol:UnicodeString read fSpecSymbol write fSpecSymbol; property ConsigneeName:UnicodeString read fConsigneeName write fConsigneeName; property ConsigneeStreet:UnicodeString read fConsigneeStreet write fConsigneeStreet; property ConsigneeCity:UnicodeString read fConsigneeCity write fConsigneeCity; property Phone:UnicodeString read fPhone write fPhone; property ErrorCode:Integer read fErrorCode write fErrorCode; property ErrorMessage:UnicodeString read fErrorMessage write fErrorMessage; end; { PackageEsycoCollection } PackageEsycoCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): PackageEsyco; procedure SetItems(aIndex: integer; const Value: PackageEsyco); public constructor Create; overload; function Add: PackageEsyco; reintroduce; property Items[Index: integer]:PackageEsyco read GetItems write SetItems; default; end; { ImportPPLSprintResponse } ImportPPLSprintResponse = class(TROComplexType) private fpackages: colPPLSprint; function Getpackages: colPPLSprint; protected property int_packages: colPPLSprint read fpackages; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property packages:colPPLSprint read Getpackages write fpackages; end; { ImportPPLSprintResponseCollection } ImportPPLSprintResponseCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): ImportPPLSprintResponse; procedure SetItems(aIndex: integer; const Value: ImportPPLSprintResponse); public constructor Create; overload; function Add: ImportPPLSprintResponse; reintroduce; property Items[Index: integer]:ImportPPLSprintResponse read GetItems write SetItems; default; end; { GetZipCodes } GetZipCodes = class(TROComplexType) private fFirCode: UnicodeString; fChanged: DateTime; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property FirCode:UnicodeString read fFirCode write fFirCode; property Changed:DateTime read fChanged write fChanged; end; { GetZipCodesCollection } GetZipCodesCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): GetZipCodes; procedure SetItems(aIndex: integer; const Value: GetZipCodes); public constructor Create; overload; function Add: GetZipCodes; reintroduce; property Items[Index: integer]:GetZipCodes read GetItems write SetItems; default; end; { GetZipCodesResponse } GetZipCodesResponse = class(TROComplexType) private fGetZipCodesResult: ArrayOfZipCode; function GetGetZipCodesResult: ArrayOfZipCode; protected property int_GetZipCodesResult: ArrayOfZipCode read fGetZipCodesResult; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property GetZipCodesResult:ArrayOfZipCode read GetGetZipCodesResult write fGetZipCodesResult; end; { GetZipCodesResponseCollection } GetZipCodesResponseCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): GetZipCodesResponse; procedure SetItems(aIndex: integer; const Value: GetZipCodesResponse); public constructor Create; overload; function Add: GetZipCodesResponse; reintroduce; property Items[Index: integer]:GetZipCodesResponse read GetItems write SetItems; default; end; { GetCities } GetCities = class(TROComplexType) private fFirCode: UnicodeString; fDate_From: DateTime; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property FirCode:UnicodeString read fFirCode write fFirCode; property Date_From:DateTime read fDate_From write fDate_From; end; { GetCitiesCollection } GetCitiesCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): GetCities; procedure SetItems(aIndex: integer; const Value: GetCities); public constructor Create; overload; function Add: GetCities; reintroduce; property Items[Index: integer]:GetCities read GetItems write SetItems; default; end; { GetCitiesResponse } GetCitiesResponse = class(TROComplexType) private fGetCitiesResult: ArrayOfCity; function GetGetCitiesResult: ArrayOfCity; protected property int_GetCitiesResult: ArrayOfCity read fGetCitiesResult; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property GetCitiesResult:ArrayOfCity read GetGetCitiesResult write fGetCitiesResult; end; { GetCitiesResponseCollection } GetCitiesResponseCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): GetCitiesResponse; procedure SetItems(aIndex: integer; const Value: GetCitiesResponse); public constructor Create; overload; function Add: GetCitiesResponse; reintroduce; property Items[Index: integer]:GetCitiesResponse read GetItems write SetItems; default; end; { GetPackagesInfo } GetPackagesInfo = class(TROComplexType) private fFirCode: UnicodeString; fPackageID: ArrayOfString; fCustReference: ArrayOfString; function GetPackageID: ArrayOfString; function GetCustReference: ArrayOfString; protected property int_PackageID: ArrayOfString read fPackageID; property int_CustReference: ArrayOfString read fCustReference; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property FirCode:UnicodeString read fFirCode write fFirCode; property PackageID:ArrayOfString read GetPackageID write fPackageID; property CustReference:ArrayOfString read GetCustReference write fCustReference; end; { GetPackagesInfoCollection } GetPackagesInfoCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): GetPackagesInfo; procedure SetItems(aIndex: integer; const Value: GetPackagesInfo); public constructor Create; overload; function Add: GetPackagesInfo; reintroduce; property Items[Index: integer]:GetPackagesInfo read GetItems write SetItems; default; end; { PackageInfo } PackageInfo = class(TROComplexType) private fPackageID: UnicodeString; fPackageIDCus: UnicodeString; fCustReference: UnicodeString; fInputDepoCode: UnicodeString; fInputDepoName: UnicodeString; fOutputDepoCode: UnicodeString; fOutputDepoName: UnicodeString; fRecZipCode: UnicodeString; fRecCity: UnicodeString; fWeight: Double; fDateInputDepo: UnicodeString; fDateWeighed: UnicodeString; fDateCentral: UnicodeString; fDateOutputDepo: UnicodeString; fDateNotDeliv: UnicodeString; fNotDelivCode: UnicodeString; fNotDelivName: UnicodeString; fDateDeliv: UnicodeString; fDelivPerson: UnicodeString; fDateExport: UnicodeString; fDateImport: UnicodeString; fInputCountry: UnicodeString; fOutputCountry: UnicodeString; fInvoiceNumber: UnicodeString; fReturnToSender: UnicodeString; fSendInfo: UnicodeString; fCardPay: boolean; fEveningDelivery: boolean; fLoadingDate: UnicodeString; fCodPrice: decimal; fDateTakeMoney: UnicodeString; fDateMoneyToBank: UnicodeString; fDateMoneyToCustomer: UnicodeString; fErrorCode: Integer; fErrorMessage: UnicodeString; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property PackageID:UnicodeString read fPackageID write fPackageID; property PackageIDCus:UnicodeString read fPackageIDCus write fPackageIDCus; property CustReference:UnicodeString read fCustReference write fCustReference; property InputDepoCode:UnicodeString read fInputDepoCode write fInputDepoCode; property InputDepoName:UnicodeString read fInputDepoName write fInputDepoName; property OutputDepoCode:UnicodeString read fOutputDepoCode write fOutputDepoCode; property OutputDepoName:UnicodeString read fOutputDepoName write fOutputDepoName; property RecZipCode:UnicodeString read fRecZipCode write fRecZipCode; property RecCity:UnicodeString read fRecCity write fRecCity; property Weight:Double read fWeight write fWeight; property DateInputDepo:UnicodeString read fDateInputDepo write fDateInputDepo; property DateWeighed:UnicodeString read fDateWeighed write fDateWeighed; property DateCentral:UnicodeString read fDateCentral write fDateCentral; property DateOutputDepo:UnicodeString read fDateOutputDepo write fDateOutputDepo; property DateNotDeliv:UnicodeString read fDateNotDeliv write fDateNotDeliv; property NotDelivCode:UnicodeString read fNotDelivCode write fNotDelivCode; property NotDelivName:UnicodeString read fNotDelivName write fNotDelivName; property DateDeliv:UnicodeString read fDateDeliv write fDateDeliv; property DelivPerson:UnicodeString read fDelivPerson write fDelivPerson; property DateExport:UnicodeString read fDateExport write fDateExport; property DateImport:UnicodeString read fDateImport write fDateImport; property InputCountry:UnicodeString read fInputCountry write fInputCountry; property OutputCountry:UnicodeString read fOutputCountry write fOutputCountry; property InvoiceNumber:UnicodeString read fInvoiceNumber write fInvoiceNumber; property ReturnToSender:UnicodeString read fReturnToSender write fReturnToSender; property SendInfo:UnicodeString read fSendInfo write fSendInfo; property CardPay:boolean read fCardPay write fCardPay; property EveningDelivery:boolean read fEveningDelivery write fEveningDelivery; property LoadingDate:UnicodeString read fLoadingDate write fLoadingDate; property CodPrice:decimal read fCodPrice write fCodPrice; property DateTakeMoney:UnicodeString read fDateTakeMoney write fDateTakeMoney; property DateMoneyToBank:UnicodeString read fDateMoneyToBank write fDateMoneyToBank; property DateMoneyToCustomer:UnicodeString read fDateMoneyToCustomer write fDateMoneyToCustomer; property ErrorCode:Integer read fErrorCode write fErrorCode; property ErrorMessage:UnicodeString read fErrorMessage write fErrorMessage; end; { PackageInfoCollection } PackageInfoCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): PackageInfo; procedure SetItems(aIndex: integer; const Value: PackageInfo); public constructor Create; overload; function Add: PackageInfo; reintroduce; procedure SaveToArray(anArray: ArrayOfPackageInfo); procedure LoadFromArray(anArray: ArrayOfPackageInfo); property Items[Index: integer]:PackageInfo read GetItems write SetItems; default; end; { GetPackagesInfoResponse } GetPackagesInfoResponse = class(TROComplexType) private fGetPackagesInfoResult: ArrayOfPackageInfo; function GetGetPackagesInfoResult: ArrayOfPackageInfo; protected property int_GetPackagesInfoResult: ArrayOfPackageInfo read fGetPackagesInfoResult; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property GetPackagesInfoResult:ArrayOfPackageInfo read GetGetPackagesInfoResult write fGetPackagesInfoResult; end; { GetPackagesInfoResponseCollection } GetPackagesInfoResponseCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): GetPackagesInfoResponse; procedure SetItems(aIndex: integer; const Value: GetPackagesInfoResponse); public constructor Create; overload; function Add: GetPackagesInfoResponse; reintroduce; property Items[Index: integer]:GetPackagesInfoResponse read GetItems write SetItems; default; end; { GetPackageToDelivery } GetPackageToDelivery = class(TROComplexType) private fFirCode: UnicodeString; fDateToDeliv: UnicodeString; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property FirCode:UnicodeString read fFirCode write fFirCode; property DateToDeliv:UnicodeString read fDateToDeliv write fDateToDeliv; end; { GetPackageToDeliveryCollection } GetPackageToDeliveryCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): GetPackageToDelivery; procedure SetItems(aIndex: integer; const Value: GetPackageToDelivery); public constructor Create; overload; function Add: GetPackageToDelivery; reintroduce; property Items[Index: integer]:GetPackageToDelivery read GetItems write SetItems; default; end; { colPackage } colPackage = class(TROComplexType) private fItems: ArrayOfAnyType; fErrorCode: Integer; fErrorMessage: UnicodeString; function GetItems: ArrayOfAnyType; protected property int_Items: ArrayOfAnyType read fItems; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property Items:ArrayOfAnyType read GetItems write fItems; property ErrorCode:Integer read fErrorCode write fErrorCode; property ErrorMessage:UnicodeString read fErrorMessage write fErrorMessage; end; { colPackageCollection } colPackageCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): colPackage; procedure SetItems(aIndex: integer; const Value: colPackage); public constructor Create; overload; function Add: colPackage; reintroduce; property Items[Index: integer]:colPackage read GetItems write SetItems; default; end; { GetPackageToDeliveryResponse } GetPackageToDeliveryResponse = class(TROComplexType) private fGetPackageToDeliveryResult: colPackage; function GetGetPackageToDeliveryResult: colPackage; protected property int_GetPackageToDeliveryResult: colPackage read fGetPackageToDeliveryResult; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property GetPackageToDeliveryResult:colPackage read GetGetPackageToDeliveryResult write fGetPackageToDeliveryResult; end; { GetPackageToDeliveryResponseCollection } GetPackageToDeliveryResponseCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): GetPackageToDeliveryResponse; procedure SetItems(aIndex: integer; const Value: GetPackageToDeliveryResponse); public constructor Create; overload; function Add: GetPackageToDeliveryResponse; reintroduce; property Items[Index: integer]:GetPackageToDeliveryResponse read GetItems write SetItems; default; end; { GetPackageInfo } GetPackageInfo = class(TROComplexType) private fPackageID: UnicodeString; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property PackageID:UnicodeString read fPackageID write fPackageID; end; { GetPackageInfoCollection } GetPackageInfoCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): GetPackageInfo; procedure SetItems(aIndex: integer; const Value: GetPackageInfo); public constructor Create; overload; function Add: GetPackageInfo; reintroduce; property Items[Index: integer]:GetPackageInfo read GetItems write SetItems; default; end; { GetPackageInfoResponse } GetPackageInfoResponse = class(TROComplexType) private fGetPackageInfoResult: PackageInfo; function GetGetPackageInfoResult: PackageInfo; protected property int_GetPackageInfoResult: PackageInfo read fGetPackageInfoResult; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property GetPackageInfoResult:PackageInfo read GetGetPackageInfoResult write fGetPackageInfoResult; end; { GetPackageInfoResponseCollection } GetPackageInfoResponseCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): GetPackageInfoResponse; procedure SetItems(aIndex: integer; const Value: GetPackageInfoResponse); public constructor Create; overload; function Add: GetPackageInfoResponse; reintroduce; property Items[Index: integer]:GetPackageInfoResponse read GetItems write SetItems; default; end; { ImportOrderExt } ImportOrderExt = class(TROComplexType) private fFirCode: UnicodeString; ffield_order: Order; function Getfield_order: Order; protected property int_field_order: Order read ffield_order; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property FirCode:UnicodeString read fFirCode write fFirCode; property field_order:Order read Getfield_order write ffield_order; end; { ImportOrderExtCollection } ImportOrderExtCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): ImportOrderExt; procedure SetItems(aIndex: integer; const Value: ImportOrderExt); public constructor Create; overload; function Add: ImportOrderExt; reintroduce; property Items[Index: integer]:ImportOrderExt read GetItems write SetItems; default; end; { Order } Order = class(TROComplexType) private fOrdNumber: UnicodeString; fCountPack: UnicodeString; fSendName: UnicodeString; fSendStreet: UnicodeString; fSendCity: UnicodeString; fSendZipCode: UnicodeString; fSendContact: UnicodeString; fSendPhone: UnicodeString; fSendDateFrom: DateTime; fSendDateTo: DateTime; fSendCountry: UnicodeString; fRecName: UnicodeString; fRecStreet: UnicodeString; fRecCity: UnicodeString; fRecZipCode: UnicodeString; fRecContact: UnicodeString; fRecPhone: UnicodeString; fRecCountry: UnicodeString; fNote: UnicodeString; fEmail: UnicodeString; fErrorCode: Integer; fErrorMessage: UnicodeString; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property OrdNumber:UnicodeString read fOrdNumber write fOrdNumber; property CountPack:UnicodeString read fCountPack write fCountPack; property SendName:UnicodeString read fSendName write fSendName; property SendStreet:UnicodeString read fSendStreet write fSendStreet; property SendCity:UnicodeString read fSendCity write fSendCity; property SendZipCode:UnicodeString read fSendZipCode write fSendZipCode; property SendContact:UnicodeString read fSendContact write fSendContact; property SendPhone:UnicodeString read fSendPhone write fSendPhone; property SendDateFrom:DateTime read fSendDateFrom write fSendDateFrom; property SendDateTo:DateTime read fSendDateTo write fSendDateTo; property SendCountry:UnicodeString read fSendCountry write fSendCountry; property RecName:UnicodeString read fRecName write fRecName; property RecStreet:UnicodeString read fRecStreet write fRecStreet; property RecCity:UnicodeString read fRecCity write fRecCity; property RecZipCode:UnicodeString read fRecZipCode write fRecZipCode; property RecContact:UnicodeString read fRecContact write fRecContact; property RecPhone:UnicodeString read fRecPhone write fRecPhone; property RecCountry:UnicodeString read fRecCountry write fRecCountry; property Note:UnicodeString read fNote write fNote; property Email:UnicodeString read fEmail write fEmail; property ErrorCode:Integer read fErrorCode write fErrorCode; property ErrorMessage:UnicodeString read fErrorMessage write fErrorMessage; end; { OrderCollection } OrderCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): Order; procedure SetItems(aIndex: integer; const Value: Order); public constructor Create; overload; function Add: Order; reintroduce; property Items[Index: integer]:Order read GetItems write SetItems; default; end; { ImportOrderExtResponse } ImportOrderExtResponse = class(TROComplexType) private ffield_order: Order; function Getfield_order: Order; protected property int_field_order: Order read ffield_order; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property field_order:Order read Getfield_order write ffield_order; end; { ImportOrderExtResponseCollection } ImportOrderExtResponseCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): ImportOrderExtResponse; procedure SetItems(aIndex: integer; const Value: ImportOrderExtResponse); public constructor Create; overload; function Add: ImportOrderExtResponse; reintroduce; property Items[Index: integer]:ImportOrderExtResponse read GetItems write SetItems; default; end; { ImportOrdersExt } ImportOrdersExt = class(TROComplexType) private fFirCode: UnicodeString; fOrders: colOrder; function GetOrders: colOrder; protected property int_Orders: colOrder read fOrders; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property FirCode:UnicodeString read fFirCode write fFirCode; property Orders:colOrder read GetOrders write fOrders; end; { ImportOrdersExtCollection } ImportOrdersExtCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): ImportOrdersExt; procedure SetItems(aIndex: integer; const Value: ImportOrdersExt); public constructor Create; overload; function Add: ImportOrdersExt; reintroduce; property Items[Index: integer]:ImportOrdersExt read GetItems write SetItems; default; end; { colOrder } colOrder = class(TROComplexType) private fItems: ArrayOfAnyType; fErrorCode: Integer; fErrorMessage: UnicodeString; function GetItems: ArrayOfAnyType; protected property int_Items: ArrayOfAnyType read fItems; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property Items:ArrayOfAnyType read GetItems write fItems; property ErrorCode:Integer read fErrorCode write fErrorCode; property ErrorMessage:UnicodeString read fErrorMessage write fErrorMessage; end; { colOrderCollection } colOrderCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): colOrder; procedure SetItems(aIndex: integer; const Value: colOrder); public constructor Create; overload; function Add: colOrder; reintroduce; property Items[Index: integer]:colOrder read GetItems write SetItems; default; end; { ImportOrdersExtResponse } ImportOrdersExtResponse = class(TROComplexType) private fOrders: colOrder; function GetOrders: colOrder; protected property int_Orders: colOrder read fOrders; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property Orders:colOrder read GetOrders write fOrders; end; { ImportOrdersExtResponseCollection } ImportOrdersExtResponseCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): ImportOrdersExtResponse; procedure SetItems(aIndex: integer; const Value: ImportOrdersExtResponse); public constructor Create; overload; function Add: ImportOrdersExtResponse; reintroduce; property Items[Index: integer]:ImportOrdersExtResponse read GetItems write SetItems; default; end; { ImportPackageExt } ImportPackageExt = class(TROComplexType) private fFirCode: UnicodeString; fpack: Package; function Getpack: Package; protected property int_pack: Package read fpack; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property FirCode:UnicodeString read fFirCode write fFirCode; property pack:Package read Getpack write fpack; end; { ImportPackageExtCollection } ImportPackageExtCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): ImportPackageExt; procedure SetItems(aIndex: integer; const Value: ImportPackageExt); public constructor Create; overload; function Add: ImportPackageExt; reintroduce; property Items[Index: integer]:ImportPackageExt read GetItems write SetItems; default; end; { ImportPackageExtResponse } ImportPackageExtResponse = class(TROComplexType) private fpack: Package; function Getpack: Package; protected property int_pack: Package read fpack; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property pack:Package read Getpack write fpack; end; { ImportPackageExtResponseCollection } ImportPackageExtResponseCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): ImportPackageExtResponse; procedure SetItems(aIndex: integer; const Value: ImportPackageExtResponse); public constructor Create; overload; function Add: ImportPackageExtResponse; reintroduce; property Items[Index: integer]:ImportPackageExtResponse read GetItems write SetItems; default; end; { ImportPackagesExt } ImportPackagesExt = class(TROComplexType) private fFirCode: UnicodeString; fPackages: colPackage; function GetPackages: colPackage; protected property int_Packages: colPackage read fPackages; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property FirCode:UnicodeString read fFirCode write fFirCode; property Packages:colPackage read GetPackages write fPackages; end; { ImportPackagesExtCollection } ImportPackagesExtCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): ImportPackagesExt; procedure SetItems(aIndex: integer; const Value: ImportPackagesExt); public constructor Create; overload; function Add: ImportPackagesExt; reintroduce; property Items[Index: integer]:ImportPackagesExt read GetItems write SetItems; default; end; { ImportPackagesExtResponse } ImportPackagesExtResponse = class(TROComplexType) private fPackages: colPackage; function GetPackages: colPackage; protected property int_Packages: colPackage read fPackages; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property Packages:colPackage read GetPackages write fPackages; end; { ImportPackagesExtResponseCollection } ImportPackagesExtResponseCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): ImportPackagesExtResponse; procedure SetItems(aIndex: integer; const Value: ImportPackagesExtResponse); public constructor Create; overload; function Add: ImportPackagesExtResponse; reintroduce; property Items[Index: integer]:ImportPackagesExtResponse read GetItems write SetItems; default; end; { ImportPackages } ImportPackages = class(TROComplexType) private public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published end; { ImportPackagesCollection } ImportPackagesCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): ImportPackages; procedure SetItems(aIndex: integer; const Value: ImportPackages); public constructor Create; overload; function Add: ImportPackages; reintroduce; property Items[Index: integer]:ImportPackages read GetItems write SetItems; default; end; { ImportPackagesResponse_ImportPackagesResult } ImportPackagesResponse_ImportPackagesResult = class(TROComplexType) private public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published end; { ImportPackagesResponse_ImportPackagesResultCollection } ImportPackagesResponse_ImportPackagesResultCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): ImportPackagesResponse_ImportPackagesResult; procedure SetItems(aIndex: integer; const Value: ImportPackagesResponse_ImportPackagesResult); public constructor Create; overload; function Add: ImportPackagesResponse_ImportPackagesResult; reintroduce; property Items[Index: integer]:ImportPackagesResponse_ImportPackagesResult read GetItems write SetItems; default; end; { ImportPackagesResponse } ImportPackagesResponse = class(TROComplexType) private fImportPackagesResult: ImportPackagesResponse_ImportPackagesResult; function GetImportPackagesResult: ImportPackagesResponse_ImportPackagesResult; protected property int_ImportPackagesResult: ImportPackagesResponse_ImportPackagesResult read fImportPackagesResult; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property ImportPackagesResult:ImportPackagesResponse_ImportPackagesResult read GetImportPackagesResult write fImportPackagesResult; end; { ImportPackagesResponseCollection } ImportPackagesResponseCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): ImportPackagesResponse; procedure SetItems(aIndex: integer; const Value: ImportPackagesResponse); public constructor Create; overload; function Add: ImportPackagesResponse; reintroduce; property Items[Index: integer]:ImportPackagesResponse read GetItems write SetItems; default; end; { ImportOrders } ImportOrders = class(TROComplexType) private public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published end; { ImportOrdersCollection } ImportOrdersCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): ImportOrders; procedure SetItems(aIndex: integer; const Value: ImportOrders); public constructor Create; overload; function Add: ImportOrders; reintroduce; property Items[Index: integer]:ImportOrders read GetItems write SetItems; default; end; { ImportOrdersResponse_ImportOrdersResult } ImportOrdersResponse_ImportOrdersResult = class(TROComplexType) private public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published end; { ImportOrdersResponse_ImportOrdersResultCollection } ImportOrdersResponse_ImportOrdersResultCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): ImportOrdersResponse_ImportOrdersResult; procedure SetItems(aIndex: integer; const Value: ImportOrdersResponse_ImportOrdersResult); public constructor Create; overload; function Add: ImportOrdersResponse_ImportOrdersResult; reintroduce; property Items[Index: integer]:ImportOrdersResponse_ImportOrdersResult read GetItems write SetItems; default; end; { ImportOrdersResponse } ImportOrdersResponse = class(TROComplexType) private fImportOrdersResult: ImportOrdersResponse_ImportOrdersResult; function GetImportOrdersResult: ImportOrdersResponse_ImportOrdersResult; protected property int_ImportOrdersResult: ImportOrdersResponse_ImportOrdersResult read fImportOrdersResult; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property ImportOrdersResult:ImportOrdersResponse_ImportOrdersResult read GetImportOrdersResult write fImportOrdersResult; end; { ImportOrdersResponseCollection } ImportOrdersResponseCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): ImportOrdersResponse; procedure SetItems(aIndex: integer; const Value: ImportOrdersResponse); public constructor Create; overload; function Add: ImportOrdersResponse; reintroduce; property Items[Index: integer]:ImportOrdersResponse read GetItems write SetItems; default; end; { ImportWeighedPack } ImportWeighedPack = class(TROComplexType) private fFirCode: UnicodeString; fpack: PackageWeighed; fDepID: UnicodeString; function Getpack: PackageWeighed; protected property int_pack: PackageWeighed read fpack; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property FirCode:UnicodeString read fFirCode write fFirCode; property pack:PackageWeighed read Getpack write fpack; property DepID:UnicodeString read fDepID write fDepID; end; { ImportWeighedPackCollection } ImportWeighedPackCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): ImportWeighedPack; procedure SetItems(aIndex: integer; const Value: ImportWeighedPack); public constructor Create; overload; function Add: ImportWeighedPack; reintroduce; property Items[Index: integer]:ImportWeighedPack read GetItems write SetItems; default; end; { ImportWeighedPackResponse } ImportWeighedPackResponse = class(TROComplexType) private fpack: PackageWeighed; function Getpack: PackageWeighed; protected property int_pack: PackageWeighed read fpack; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property pack:PackageWeighed read Getpack write fpack; end; { ImportWeighedPackResponseCollection } ImportWeighedPackResponseCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): ImportWeighedPackResponse; procedure SetItems(aIndex: integer; const Value: ImportWeighedPackResponse); public constructor Create; overload; function Add: ImportWeighedPackResponse; reintroduce; property Items[Index: integer]:ImportWeighedPackResponse read GetItems write SetItems; default; end; { ImportWeighedPackages } ImportWeighedPackages = class(TROComplexType) private fFirCode: UnicodeString; fPackages: colPackageWeighed; fDepID: UnicodeString; function GetPackages: colPackageWeighed; protected property int_Packages: colPackageWeighed read fPackages; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property FirCode:UnicodeString read fFirCode write fFirCode; property Packages:colPackageWeighed read GetPackages write fPackages; property DepID:UnicodeString read fDepID write fDepID; end; { ImportWeighedPackagesCollection } ImportWeighedPackagesCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): ImportWeighedPackages; procedure SetItems(aIndex: integer; const Value: ImportWeighedPackages); public constructor Create; overload; function Add: ImportWeighedPackages; reintroduce; property Items[Index: integer]:ImportWeighedPackages read GetItems write SetItems; default; end; { colPackageWeighed } colPackageWeighed = class(TROComplexType) private fItems: ArrayOfAnyType; fErrorCode: Integer; fErrorMessage: UnicodeString; function GetItems: ArrayOfAnyType; protected property int_Items: ArrayOfAnyType read fItems; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property Items:ArrayOfAnyType read GetItems write fItems; property ErrorCode:Integer read fErrorCode write fErrorCode; property ErrorMessage:UnicodeString read fErrorMessage write fErrorMessage; end; { colPackageWeighedCollection } colPackageWeighedCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): colPackageWeighed; procedure SetItems(aIndex: integer; const Value: colPackageWeighed); public constructor Create; overload; function Add: colPackageWeighed; reintroduce; property Items[Index: integer]:colPackageWeighed read GetItems write SetItems; default; end; { ImportWeighedPackagesResponse } ImportWeighedPackagesResponse = class(TROComplexType) private fPackages: colPackageWeighed; function GetPackages: colPackageWeighed; protected property int_Packages: colPackageWeighed read fPackages; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property Packages:colPackageWeighed read GetPackages write fPackages; end; { ImportWeighedPackagesResponseCollection } ImportWeighedPackagesResponseCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): ImportWeighedPackagesResponse; procedure SetItems(aIndex: integer; const Value: ImportWeighedPackagesResponse); public constructor Create; overload; function Add: ImportWeighedPackagesResponse; reintroduce; property Items[Index: integer]:ImportWeighedPackagesResponse read GetItems write SetItems; default; end; { ImportPackagesHoffmann } ImportPackagesHoffmann = class(TROComplexType) private fFirCode: UnicodeString; fPackages: colPackageHoffmann; fDepID: UnicodeString; function GetPackages: colPackageHoffmann; protected property int_Packages: colPackageHoffmann read fPackages; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property FirCode:UnicodeString read fFirCode write fFirCode; property Packages:colPackageHoffmann read GetPackages write fPackages; property DepID:UnicodeString read fDepID write fDepID; end; { ImportPackagesHoffmannCollection } ImportPackagesHoffmannCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): ImportPackagesHoffmann; procedure SetItems(aIndex: integer; const Value: ImportPackagesHoffmann); public constructor Create; overload; function Add: ImportPackagesHoffmann; reintroduce; property Items[Index: integer]:ImportPackagesHoffmann read GetItems write SetItems; default; end; { colPackageHoffmann } colPackageHoffmann = class(TROComplexType) private fItems: ArrayOfAnyType; fErrorCode: Integer; fErrorMessage: UnicodeString; function GetItems: ArrayOfAnyType; protected property int_Items: ArrayOfAnyType read fItems; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property Items:ArrayOfAnyType read GetItems write fItems; property ErrorCode:Integer read fErrorCode write fErrorCode; property ErrorMessage:UnicodeString read fErrorMessage write fErrorMessage; end; { colPackageHoffmannCollection } colPackageHoffmannCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): colPackageHoffmann; procedure SetItems(aIndex: integer; const Value: colPackageHoffmann); public constructor Create; overload; function Add: colPackageHoffmann; reintroduce; property Items[Index: integer]:colPackageHoffmann read GetItems write SetItems; default; end; { ImportPackagesHoffmannResponse } ImportPackagesHoffmannResponse = class(TROComplexType) private fPackages: colPackageHoffmann; function GetPackages: colPackageHoffmann; protected property int_Packages: colPackageHoffmann read fPackages; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property Packages:colPackageHoffmann read GetPackages write fPackages; end; { ImportPackagesHoffmannResponseCollection } ImportPackagesHoffmannResponseCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): ImportPackagesHoffmannResponse; procedure SetItems(aIndex: integer; const Value: ImportPackagesHoffmannResponse); public constructor Create; overload; function Add: ImportPackagesHoffmannResponse; reintroduce; property Items[Index: integer]:ImportPackagesHoffmannResponse read GetItems write SetItems; default; end; { ImportESYCOPack } ImportESYCOPack = class(TROComplexType) private fFirCode: UnicodeString; fpack: PackageEsyco; function Getpack: PackageEsyco; protected property int_pack: PackageEsyco read fpack; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property FirCode:UnicodeString read fFirCode write fFirCode; property pack:PackageEsyco read Getpack write fpack; end; { ImportESYCOPackCollection } ImportESYCOPackCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): ImportESYCOPack; procedure SetItems(aIndex: integer; const Value: ImportESYCOPack); public constructor Create; overload; function Add: ImportESYCOPack; reintroduce; property Items[Index: integer]:ImportESYCOPack read GetItems write SetItems; default; end; { ImportESYCOPackResponse } ImportESYCOPackResponse = class(TROComplexType) private fpack: PackageEsyco; function Getpack: PackageEsyco; protected property int_pack: PackageEsyco read fpack; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property pack:PackageEsyco read Getpack write fpack; end; { ImportESYCOPackResponseCollection } ImportESYCOPackResponseCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): ImportESYCOPackResponse; procedure SetItems(aIndex: integer; const Value: ImportESYCOPackResponse); public constructor Create; overload; function Add: ImportESYCOPackResponse; reintroduce; property Items[Index: integer]:ImportESYCOPackResponse read GetItems write SetItems; default; end; { ImportESYCOPackages } ImportESYCOPackages = class(TROComplexType) private fFirCode: UnicodeString; fPackages: colPackage; function GetPackages: colPackage; protected property int_Packages: colPackage read fPackages; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property FirCode:UnicodeString read fFirCode write fFirCode; property Packages:colPackage read GetPackages write fPackages; end; { ImportESYCOPackagesCollection } ImportESYCOPackagesCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): ImportESYCOPackages; procedure SetItems(aIndex: integer; const Value: ImportESYCOPackages); public constructor Create; overload; function Add: ImportESYCOPackages; reintroduce; property Items[Index: integer]:ImportESYCOPackages read GetItems write SetItems; default; end; { ImportESYCOPackagesResponse } ImportESYCOPackagesResponse = class(TROComplexType) private fPackages: colPackage; function GetPackages: colPackage; protected property int_Packages: colPackage read fPackages; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property Packages:colPackage read GetPackages write fPackages; end; { ImportESYCOPackagesResponseCollection } ImportESYCOPackagesResponseCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): ImportESYCOPackagesResponse; procedure SetItems(aIndex: integer; const Value: ImportESYCOPackagesResponse); public constructor Create; overload; function Add: ImportESYCOPackagesResponse; reintroduce; property Items[Index: integer]:ImportESYCOPackagesResponse read GetItems write SetItems; default; end; { ImportStatusDHL } ImportStatusDHL = class(TROComplexType) private fFirCode: UnicodeString; fStat: StatusDHL; function GetStat: StatusDHL; protected property int_Stat: StatusDHL read fStat; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property FirCode:UnicodeString read fFirCode write fFirCode; property Stat:StatusDHL read GetStat write fStat; end; { ImportStatusDHLCollection } ImportStatusDHLCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): ImportStatusDHL; procedure SetItems(aIndex: integer; const Value: ImportStatusDHL); public constructor Create; overload; function Add: ImportStatusDHL; reintroduce; property Items[Index: integer]:ImportStatusDHL read GetItems write SetItems; default; end; { StatusDHL } StatusDHL = class(TROComplexType) private fPackageIDPPL: UnicodeString; fPackageIDExp: UnicodeString; fStatusID: UnicodeString; fCreated: DateTime; fNote: UnicodeString; fZpID: UnicodeString; fErrorCode: Integer; fErrorMessage: UnicodeString; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property PackageIDPPL:UnicodeString read fPackageIDPPL write fPackageIDPPL; property PackageIDExp:UnicodeString read fPackageIDExp write fPackageIDExp; property StatusID:UnicodeString read fStatusID write fStatusID; property Created:DateTime read fCreated write fCreated; property Note:UnicodeString read fNote write fNote; property ZpID:UnicodeString read fZpID write fZpID; property ErrorCode:Integer read fErrorCode write fErrorCode; property ErrorMessage:UnicodeString read fErrorMessage write fErrorMessage; end; { StatusDHLCollection } StatusDHLCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): StatusDHL; procedure SetItems(aIndex: integer; const Value: StatusDHL); public constructor Create; overload; function Add: StatusDHL; reintroduce; property Items[Index: integer]:StatusDHL read GetItems write SetItems; default; end; { ImportStatusDHLResponse } ImportStatusDHLResponse = class(TROComplexType) private fStat: StatusDHL; function GetStat: StatusDHL; protected property int_Stat: StatusDHL read fStat; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property Stat:StatusDHL read GetStat write fStat; end; { ImportStatusDHLResponseCollection } ImportStatusDHLResponseCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): ImportStatusDHLResponse; procedure SetItems(aIndex: integer; const Value: ImportStatusDHLResponse); public constructor Create; overload; function Add: ImportStatusDHLResponse; reintroduce; property Items[Index: integer]:ImportStatusDHLResponse read GetItems write SetItems; default; end; { ImportStatusesDHL } ImportStatusesDHL = class(TROComplexType) private fFirCode: UnicodeString; fStatuses: colStatus; function GetStatuses: colStatus; protected property int_Statuses: colStatus read fStatuses; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property FirCode:UnicodeString read fFirCode write fFirCode; property Statuses:colStatus read GetStatuses write fStatuses; end; { ImportStatusesDHLCollection } ImportStatusesDHLCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): ImportStatusesDHL; procedure SetItems(aIndex: integer; const Value: ImportStatusesDHL); public constructor Create; overload; function Add: ImportStatusesDHL; reintroduce; property Items[Index: integer]:ImportStatusesDHL read GetItems write SetItems; default; end; { colStatus } colStatus = class(TROComplexType) private fItems: ArrayOfAnyType; fErrorCode: Integer; fErrorMessage: UnicodeString; function GetItems: ArrayOfAnyType; protected property int_Items: ArrayOfAnyType read fItems; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property Items:ArrayOfAnyType read GetItems write fItems; property ErrorCode:Integer read fErrorCode write fErrorCode; property ErrorMessage:UnicodeString read fErrorMessage write fErrorMessage; end; { colStatusCollection } colStatusCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): colStatus; procedure SetItems(aIndex: integer; const Value: colStatus); public constructor Create; overload; function Add: colStatus; reintroduce; property Items[Index: integer]:colStatus read GetItems write SetItems; default; end; { ImportStatusesDHLResponse } ImportStatusesDHLResponse = class(TROComplexType) private fStatuses: colStatus; function GetStatuses: colStatus; protected property int_Statuses: colStatus read fStatuses; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property Statuses:colStatus read GetStatuses write fStatuses; end; { ImportStatusesDHLResponseCollection } ImportStatusesDHLResponseCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): ImportStatusesDHLResponse; procedure SetItems(aIndex: integer; const Value: ImportStatusesDHLResponse); public constructor Create; overload; function Add: ImportStatusesDHLResponse; reintroduce; property Items[Index: integer]:ImportStatusesDHLResponse read GetItems write SetItems; default; end; { ImportOrderCart } ImportOrderCart = class(TROComplexType) private fFirCode: UnicodeString; ffield_order: OrderCart; fAccept: boolean; function Getfield_order: OrderCart; protected property int_field_order: OrderCart read ffield_order; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property FirCode:UnicodeString read fFirCode write fFirCode; property field_order:OrderCart read Getfield_order write ffield_order; property Accept:boolean read fAccept write fAccept; end; { ImportOrderCartCollection } ImportOrderCartCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): ImportOrderCart; procedure SetItems(aIndex: integer; const Value: ImportOrderCart); public constructor Create; overload; function Add: ImportOrderCart; reintroduce; property Items[Index: integer]:ImportOrderCart read GetItems write SetItems; default; end; { OrderCart } OrderCart = class(TROComplexType) private fCountPack: Integer; fSendName: UnicodeString; fSendStreet: UnicodeString; fSendCity: UnicodeString; fSendZipCode: UnicodeString; fSendDateFrom: DateTime; fSendDateTo: DateTime; fNote: UnicodeString; fEmail: UnicodeString; fErrorCode: Integer; fErrorMessage: UnicodeString; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property CountPack:Integer read fCountPack write fCountPack; property SendName:UnicodeString read fSendName write fSendName; property SendStreet:UnicodeString read fSendStreet write fSendStreet; property SendCity:UnicodeString read fSendCity write fSendCity; property SendZipCode:UnicodeString read fSendZipCode write fSendZipCode; property SendDateFrom:DateTime read fSendDateFrom write fSendDateFrom; property SendDateTo:DateTime read fSendDateTo write fSendDateTo; property Note:UnicodeString read fNote write fNote; property Email:UnicodeString read fEmail write fEmail; property ErrorCode:Integer read fErrorCode write fErrorCode; property ErrorMessage:UnicodeString read fErrorMessage write fErrorMessage; end; { OrderCartCollection } OrderCartCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): OrderCart; procedure SetItems(aIndex: integer; const Value: OrderCart); public constructor Create; overload; function Add: OrderCart; reintroduce; property Items[Index: integer]:OrderCart read GetItems write SetItems; default; end; { ImportOrderCartResponse } ImportOrderCartResponse = class(TROComplexType) private ffield_order: OrderCart; function Getfield_order: OrderCart; protected property int_field_order: OrderCart read ffield_order; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property field_order:OrderCart read Getfield_order write ffield_order; end; { ImportOrderCartResponseCollection } ImportOrderCartResponseCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): ImportOrderCartResponse; procedure SetItems(aIndex: integer; const Value: ImportOrderCartResponse); public constructor Create; overload; function Add: ImportOrderCartResponse; reintroduce; property Items[Index: integer]:ImportOrderCartResponse read GetItems write SetItems; default; end; { ImportOrdersCart } ImportOrdersCart = class(TROComplexType) private fFirCode: UnicodeString; fOrders: colOrderCart; fAccept: boolean; function GetOrders: colOrderCart; protected property int_Orders: colOrderCart read fOrders; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property FirCode:UnicodeString read fFirCode write fFirCode; property Orders:colOrderCart read GetOrders write fOrders; property Accept:boolean read fAccept write fAccept; end; { ImportOrdersCartCollection } ImportOrdersCartCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): ImportOrdersCart; procedure SetItems(aIndex: integer; const Value: ImportOrdersCart); public constructor Create; overload; function Add: ImportOrdersCart; reintroduce; property Items[Index: integer]:ImportOrdersCart read GetItems write SetItems; default; end; { colOrderCart } colOrderCart = class(TROComplexType) private fItems: ArrayOfAnyType; fErrorCode: Integer; fErrorMessage: UnicodeString; function GetItems: ArrayOfAnyType; protected property int_Items: ArrayOfAnyType read fItems; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property Items:ArrayOfAnyType read GetItems write fItems; property ErrorCode:Integer read fErrorCode write fErrorCode; property ErrorMessage:UnicodeString read fErrorMessage write fErrorMessage; end; { colOrderCartCollection } colOrderCartCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): colOrderCart; procedure SetItems(aIndex: integer; const Value: colOrderCart); public constructor Create; overload; function Add: colOrderCart; reintroduce; property Items[Index: integer]:colOrderCart read GetItems write SetItems; default; end; { ImportOrdersCartResponse } ImportOrdersCartResponse = class(TROComplexType) private fOrders: colOrderCart; function GetOrders: colOrderCart; protected property int_Orders: colOrderCart read fOrders; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; procedure Assign(iSource: TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; published property Orders:colOrderCart read GetOrders write fOrders; end; { ImportOrdersCartResponseCollection } ImportOrdersCartResponseCollection = class(TROCollection) protected constructor Create(aItemClass: TCollectionItemClass); overload; function GetItems(aIndex: integer): ImportOrdersCartResponse; procedure SetItems(aIndex: integer; const Value: ImportOrdersCartResponse); public constructor Create; overload; function Add: ImportOrdersCartResponse; reintroduce; property Items[Index: integer]:ImportOrdersCartResponse read GetItems write SetItems; default; end; { ArrayOfAnyType } // ArrayOfAnyType_unknown = array of unknown; ArrayOfAnyType = class(TROArray) private fCount: Integer; fItems : ArrayOfAnyType_unknown; protected procedure Grow; virtual; function GetItems(aIndex: integer): unknown; procedure SetItems(aIndex: integer; const Value: unknown); function GetCount: integer; override; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; class function GetItemType: PTypeInfo; override; class function GetItemSize: integer; override; function GetItemRef(aIndex: integer): pointer; override; procedure Clear; override; procedure Delete(aIndex: integer); override; procedure Resize(ElementCount: integer); override; procedure Assign(iSource:TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; function Add(const Value:unknown): integer; function GetIndex(const aPropertyName : string; const aPropertyValue : Variant; StartFrom : integer = 0; Options : TROSearchOptions = [soIgnoreCase]) : integer; override; function IndexOf(const aValue: unknown; const aStartFrom: integer = 0): integer; property Count : integer read GetCount; property Items[Index: integer]:unknown read GetItems write SetItems; default; property InnerArray: ArrayOfAnyType_unknown read fItems; end; { ArrayOfPPLSprintItem } ArrayOfPPLSprintItem_PPLSprintItem = array of PPLSprintItem; ArrayOfPPLSprintItem = class(TROArray) private fCount: Integer; fItems : ArrayOfPPLSprintItem_PPLSprintItem; protected procedure Grow; virtual; function GetItems(aIndex: integer): PPLSprintItem; procedure SetItems(aIndex: integer; const Value: PPLSprintItem); function GetCount: integer; override; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; class function GetItemType: PTypeInfo; override; class function GetItemClass: TClass; override; class function GetItemSize: integer; override; function GetItemRef(aIndex: integer): pointer; override; procedure SetItemRef(aIndex: integer; Ref: pointer); override; procedure Clear; override; procedure Delete(aIndex: integer); override; procedure Resize(ElementCount: integer); override; procedure Assign(iSource:TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; function Add: PPLSprintItem; overload; function Add(const Value: PPLSprintItem):integer; overload; property Count : integer read GetCount; property Items[Index: integer]:PPLSprintItem read GetItems write SetItems; default; property InnerArray: ArrayOfPPLSprintItem_PPLSprintItem read fItems; end; { ArrayOfZipCode } ArrayOfZipCode_ZipCode = array of ZipCode; ArrayOfZipCode = class(TROArray) private fCount: Integer; fItems : ArrayOfZipCode_ZipCode; protected procedure Grow; virtual; function GetItems(aIndex: integer): ZipCode; procedure SetItems(aIndex: integer; const Value: ZipCode); function GetCount: integer; override; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; class function GetItemType: PTypeInfo; override; class function GetItemClass: TClass; override; class function GetItemSize: integer; override; function GetItemRef(aIndex: integer): pointer; override; procedure SetItemRef(aIndex: integer; Ref: pointer); override; procedure Clear; override; procedure Delete(aIndex: integer); override; procedure Resize(ElementCount: integer); override; procedure Assign(iSource:TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; function Add: ZipCode; overload; function Add(const Value: ZipCode):integer; overload; property Count : integer read GetCount; property Items[Index: integer]:ZipCode read GetItems write SetItems; default; property InnerArray: ArrayOfZipCode_ZipCode read fItems; end; { ArrayOfCity } ArrayOfCity_City = array of City; ArrayOfCity = class(TROArray) private fCount: Integer; fItems : ArrayOfCity_City; protected procedure Grow; virtual; function GetItems(aIndex: integer): City; procedure SetItems(aIndex: integer; const Value: City); function GetCount: integer; override; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; class function GetItemType: PTypeInfo; override; class function GetItemClass: TClass; override; class function GetItemSize: integer; override; function GetItemRef(aIndex: integer): pointer; override; procedure SetItemRef(aIndex: integer; Ref: pointer); override; procedure Clear; override; procedure Delete(aIndex: integer); override; procedure Resize(ElementCount: integer); override; procedure Assign(iSource:TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; function Add: City; overload; function Add(const Value: City):integer; overload; property Count : integer read GetCount; property Items[Index: integer]:City read GetItems write SetItems; default; property InnerArray: ArrayOfCity_City read fItems; end; { ArrayOfString } ArrayOfString_UnicodeString = array of UnicodeString; ArrayOfString = class(TROArray) private fCount: Integer; fItems : ArrayOfString_UnicodeString; protected procedure Grow; virtual; function GetItems(aIndex: integer): UnicodeString; procedure SetItems(aIndex: integer; const Value: UnicodeString); function GetCount: integer; override; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; class function GetItemType: PTypeInfo; override; class function GetItemSize: integer; override; function GetItemRef(aIndex: integer): pointer; override; procedure Clear; override; procedure Delete(aIndex: integer); override; procedure Resize(ElementCount: integer); override; procedure Assign(iSource:TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; function Add(const Value:UnicodeString): integer; function GetIndex(const aPropertyName : string; const aPropertyValue : Variant; StartFrom : integer = 0; Options : TROSearchOptions = [soIgnoreCase]) : integer; override; function IndexOf(const aValue: UnicodeString; const aStartFrom: integer = 0): integer; property Count : integer read GetCount; property Items[Index: integer]:UnicodeString read GetItems write SetItems; default; property InnerArray: ArrayOfString_UnicodeString read fItems; end; { ArrayOfPackageInfo } ArrayOfPackageInfo_PackageInfo = array of PackageInfo; ArrayOfPackageInfo = class(TROArray) private fCount: Integer; fItems : ArrayOfPackageInfo_PackageInfo; protected procedure Grow; virtual; function GetItems(aIndex: integer): PackageInfo; procedure SetItems(aIndex: integer; const Value: PackageInfo); function GetCount: integer; override; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; class function GetItemType: PTypeInfo; override; class function GetItemClass: TClass; override; class function GetItemSize: integer; override; function GetItemRef(aIndex: integer): pointer; override; procedure SetItemRef(aIndex: integer; Ref: pointer); override; procedure Clear; override; procedure Delete(aIndex: integer); override; procedure Resize(ElementCount: integer); override; procedure Assign(iSource:TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; function Add: PackageInfo; overload; function Add(const Value: PackageInfo):integer; overload; property Count : integer read GetCount; property Items[Index: integer]:PackageInfo read GetItems write SetItems; default; property InnerArray: ArrayOfPackageInfo_PackageInfo read fItems; end; { StringArray } StringArray_unknown = array of unknown; StringArray = class(TROArray) private fCount: Integer; fItems : StringArray_unknown; protected procedure Grow; virtual; function GetItems(aIndex: integer): unknown; procedure SetItems(aIndex: integer; const Value: unknown); function GetCount: integer; override; public class function GetAttributeCount: Integer; override; class function GetAttributeName(aIndex: Integer): string; override; class function GetAttributeValue(aIndex: Integer): string; override; class function GetItemType: PTypeInfo; override; class function GetItemSize: integer; override; function GetItemRef(aIndex: integer): pointer; override; procedure Clear; override; procedure Delete(aIndex: integer); override; procedure Resize(ElementCount: integer); override; procedure Assign(iSource:TPersistent); override; procedure ReadComplex(ASerializer: TObject); override; procedure WriteComplex(ASerializer: TObject); override; function Add(const Value:unknown): integer; function GetIndex(const aPropertyName : string; const aPropertyValue : Variant; StartFrom : integer = 0; Options : TROSearchOptions = [soIgnoreCase]) : integer; override; function IndexOf(const aValue: unknown; const aStartFrom: integer = 0): integer; property Count : integer read GetCount; property Items[Index: integer]:unknown read GetItems write SetItems; default; property InnerArray: StringArray_unknown read fItems; end; { IIEGate } IIEGate = interface ['{E379A095-D779-4864-9A1B-F99840E8385A}'] function ImportPPLSprint(const parameters: ImportPPLSprint): ImportPPLSprintResponse; function GetZipCodes(const parameters: GetZipCodes): GetZipCodesResponse; function GetCities(const parameters: GetCities): GetCitiesResponse; function GetPackagesInfo(const parameters: GetPackagesInfo): GetPackagesInfoResponse; function GetPackageToDelivery(const parameters: GetPackageToDelivery): GetPackageToDeliveryResponse; function GetPackageInfo(const parameters: GetPackageInfo): GetPackageInfoResponse; function ImportOrderExt(const parameters: ImportOrderExt): ImportOrderExtResponse; function ImportOrdersExt(const parameters: ImportOrdersExt): ImportOrdersExtResponse; function ImportPackageExt(const parameters: ImportPackageExt): ImportPackageExtResponse; function ImportPackagesExt(const parameters: ImportPackagesExt): ImportPackagesExtResponse; function ImportPackages(const parameters: ImportPackages): ImportPackagesResponse; function ImportOrders(const parameters: ImportOrders): ImportOrdersResponse; function ImportWeighedPack(const parameters: ImportWeighedPack): ImportWeighedPackResponse; function ImportWeighedPackages(const parameters: ImportWeighedPackages): ImportWeighedPackagesResponse; function ImportPackagesHoffmann(const parameters: ImportPackagesHoffmann): ImportPackagesHoffmannResponse; function ImportESYCOPack(const parameters: ImportESYCOPack): ImportESYCOPackResponse; function ImportESYCOPackages(const parameters: ImportESYCOPackages): ImportESYCOPackagesResponse; function ImportStatusDHL(const parameters: ImportStatusDHL): ImportStatusDHLResponse; function ImportStatusesDHL(const parameters: ImportStatusesDHL): ImportStatusesDHLResponse; function ImportOrderCart(const parameters: ImportOrderCart): ImportOrderCartResponse; function ImportOrdersCart(const parameters: ImportOrdersCart): ImportOrdersCartResponse; end; { CoIEGate } CoIEGate = class class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IIEGate; end; { TIEGate_Proxy } TIEGate_Proxy = class(TROProxy, IIEGate) protected function __GetInterfaceName:string; override; function ImportPPLSprint(const parameters: ImportPPLSprint): ImportPPLSprintResponse; function GetZipCodes(const parameters: GetZipCodes): GetZipCodesResponse; function GetCities(const parameters: GetCities): GetCitiesResponse; function GetPackagesInfo(const parameters: GetPackagesInfo): GetPackagesInfoResponse; function GetPackageToDelivery(const parameters: GetPackageToDelivery): GetPackageToDeliveryResponse; function GetPackageInfo(const parameters: GetPackageInfo): GetPackageInfoResponse; function ImportOrderExt(const parameters: ImportOrderExt): ImportOrderExtResponse; function ImportOrdersExt(const parameters: ImportOrdersExt): ImportOrdersExtResponse; function ImportPackageExt(const parameters: ImportPackageExt): ImportPackageExtResponse; function ImportPackagesExt(const parameters: ImportPackagesExt): ImportPackagesExtResponse; function ImportPackages(const parameters: ImportPackages): ImportPackagesResponse; function ImportOrders(const parameters: ImportOrders): ImportOrdersResponse; function ImportWeighedPack(const parameters: ImportWeighedPack): ImportWeighedPackResponse; function ImportWeighedPackages(const parameters: ImportWeighedPackages): ImportWeighedPackagesResponse; function ImportPackagesHoffmann(const parameters: ImportPackagesHoffmann): ImportPackagesHoffmannResponse; function ImportESYCOPack(const parameters: ImportESYCOPack): ImportESYCOPackResponse; function ImportESYCOPackages(const parameters: ImportESYCOPackages): ImportESYCOPackagesResponse; function ImportStatusDHL(const parameters: ImportStatusDHL): ImportStatusDHLResponse; function ImportStatusesDHL(const parameters: ImportStatusesDHL): ImportStatusesDHLResponse; function ImportOrderCart(const parameters: ImportOrderCart): ImportOrderCartResponse; function ImportOrdersCart(const parameters: ImportOrdersCart): ImportOrdersCartResponse; end; implementation uses {vcl:} SysUtils, {RemObjects:} uROEventRepository, uROSerializer, uRORes; { ArrayOfAnyType } class function ArrayOfAnyType.GetAttributeCount: Integer; begin result := 3; end; class function ArrayOfAnyType.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'minOccurs'; 1: result := 'maxOccurs'; 2: result := 'ImportedFromNamespace'; end; end; class function ArrayOfAnyType.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := '0'; 1: result := '-1'; 2: result := 'PPLIEGate'; end; end; procedure ArrayOfAnyType.Assign(iSource: TPersistent); var lSource:ArrayOfAnyType; i:integer; begin if (iSource is ArrayOfAnyType) then begin lSource := ArrayOfAnyType(iSource); Clear(); Resize(lSource.Count); for i := 0 to lSource.Count-1 do Items[i] := lSource.Items[i]; end else begin inherited Assign(iSource); end; end; class function ArrayOfAnyType.GetItemType: PTypeInfo; begin result := TypeInfo(unknown); end; class function ArrayOfAnyType.GetItemSize: integer; begin result := SizeOf(unknown); end; function ArrayOfAnyType.GetItems(aIndex: integer): unknown; begin if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]); result := fItems[aIndex]; end; function ArrayOfAnyType.GetItemRef(aIndex: integer): pointer; begin if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]); result := @fItems[aIndex]; end; procedure ArrayOfAnyType.Clear; begin SetLength(fItems, 0); FCount := 0; end; procedure ArrayOfAnyType.Delete(aIndex: integer); var i: integer; begin if (aIndex>=Count) then RaiseError(err_InvalidIndex, [aIndex]); if (aIndex= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]); fItems[aIndex] := Value; end; procedure ArrayOfAnyType.Resize(ElementCount: integer); begin if fCount = ElementCount then Exit; SetLength(fItems, ElementCount); FCount := ElementCount; end; function ArrayOfAnyType.GetCount: integer; begin result := FCount; end; procedure ArrayOfAnyType.Grow; var Delta, Capacity: Integer; begin Capacity := Length(fItems); if Capacity > 64 then Delta := Capacity div 4 else if Capacity > 8 then Delta := 16 else Delta := 4; SetLength(fItems, Capacity + Delta); end; function ArrayOfAnyType.Add(const Value: unknown): integer; begin Result := Count; if Length(fItems) = Result then Grow; fItems[result] := Value; Inc(fCount); end; function ArrayOfAnyType.GetIndex(const aPropertyName: string; const aPropertyValue: Variant; StartFrom: integer; Options: TROSearchOptions): integer; begin result := -1; end; function ArrayOfAnyType.IndexOf(const aValue: unknown; const aStartFrom: integer = 0): integer; begin for Result := aStartFrom to Count-1 do if Items[Result] = aValue then Exit; Result := -1; end; procedure ArrayOfAnyType.ReadComplex(ASerializer: TObject); var lval: unknown; i: integer; begin for i := 0 to Count-1 do begin with TROSerializer(ASerializer) do begin end; Items[i] := lval; end; end; procedure ArrayOfAnyType.WriteComplex(ASerializer: TObject); var i: integer; begin for i := 0 to Count-1 do with TROSerializer(ASerializer) do end; { ArrayOfPPLSprintItem } class function ArrayOfPPLSprintItem.GetAttributeCount: Integer; begin result := 3; end; class function ArrayOfPPLSprintItem.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'minOccurs'; 1: result := 'maxOccurs'; 2: result := 'ImportedFromNamespace'; end; end; class function ArrayOfPPLSprintItem.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := '0'; 1: result := '-1'; 2: result := 'PPLIEGate'; end; end; procedure ArrayOfPPLSprintItem.Assign(iSource: TPersistent); var lSource:ArrayOfPPLSprintItem; i:integer; lItem:PPLSprintItem; begin if (iSource is ArrayOfPPLSprintItem) then begin lSource := ArrayOfPPLSprintItem(iSource); Clear(); for i := 0 to lSource.Count-1 do if Assigned(lSource.Items[i]) then begin lItem := PPLSprintItem(lSource.Items[i].ClassType.Create); lItem.Assign(lSource.Items[i]); Add(lItem); end else begin Add(nil); end; end else begin inherited Assign(iSource); end; end; class function ArrayOfPPLSprintItem.GetItemType: PTypeInfo; begin result := TypeInfo(PPLSprintItem); end; class function ArrayOfPPLSprintItem.GetItemClass: TClass; begin result := PPLSprintItem; end; class function ArrayOfPPLSprintItem.GetItemSize: integer; begin result := SizeOf(PPLSprintItem); end; function ArrayOfPPLSprintItem.GetItems(aIndex: integer): PPLSprintItem; begin if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]); result := fItems[aIndex]; end; function ArrayOfPPLSprintItem.GetItemRef(aIndex: integer): pointer; begin if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]); result := fItems[aIndex]; end; procedure ArrayOfPPLSprintItem.SetItemRef(aIndex: integer; Ref: pointer); begin if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]); if Ref <> fItems[aIndex] then begin if fItems[aIndex] <> nil then fItems[aIndex].Free; fItems[aIndex] := Ref; end; end; procedure ArrayOfPPLSprintItem.Clear; var i: integer; begin for i := 0 to (Count-1) do fItems[i].Free(); SetLength(fItems, 0); FCount := 0; end; procedure ArrayOfPPLSprintItem.Delete(aIndex: integer); var i: integer; begin if (aIndex>=Count) then RaiseError(err_InvalidIndex, [aIndex]); fItems[aIndex].Free(); if (aIndex= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]); if fItems[aIndex] <> Value then begin fItems[aIndex].Free; fItems[aIndex] := Value; end; end; procedure ArrayOfPPLSprintItem.Resize(ElementCount: integer); var i: Integer; begin if fCount = ElementCount then Exit; for i := FCount -1 downto ElementCount do FItems[i].Free; SetLength(fItems, ElementCount); for i := FCount to ElementCount -1 do FItems[i] := PPLSprintItem.Create; FCount := ElementCount; end; function ArrayOfPPLSprintItem.GetCount: integer; begin result := FCount; end; procedure ArrayOfPPLSprintItem.Grow; var Delta, Capacity: Integer; begin Capacity := Length(fItems); if Capacity > 64 then Delta := Capacity div 4 else if Capacity > 8 then Delta := 16 else Delta := 4; SetLength(fItems, Capacity + Delta); end; function ArrayOfPPLSprintItem.Add: PPLSprintItem; begin result := PPLSprintItem.Create; Add(Result); end; function ArrayOfPPLSprintItem.Add(const Value:PPLSprintItem): integer; begin Result := Count; if Length(fItems) = Result then Grow; fItems[result] := Value; Inc(fCount); end; procedure ArrayOfPPLSprintItem.ReadComplex(ASerializer: TObject); var lval: PPLSprintItem; i: integer; begin for i := 0 to Count-1 do begin with TROSerializer(ASerializer) do begin ReadStruct(GetArrayElementName(GetItemType, GetItemRef(i)), PPLSprintItem, lval, i); end; Items[i] := lval; end; end; procedure ArrayOfPPLSprintItem.WriteComplex(ASerializer: TObject); var i: integer; begin for i := 0 to Count-1 do with TROSerializer(ASerializer) do WriteStruct(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], PPLSprintItem, i); end; { ArrayOfZipCode } class function ArrayOfZipCode.GetAttributeCount: Integer; begin result := 3; end; class function ArrayOfZipCode.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'minOccurs'; 1: result := 'maxOccurs'; 2: result := 'ImportedFromNamespace'; end; end; class function ArrayOfZipCode.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := '0'; 1: result := '-1'; 2: result := 'PPLIEGate'; end; end; procedure ArrayOfZipCode.Assign(iSource: TPersistent); var lSource:ArrayOfZipCode; i:integer; lItem:ZipCode; begin if (iSource is ArrayOfZipCode) then begin lSource := ArrayOfZipCode(iSource); Clear(); for i := 0 to lSource.Count-1 do if Assigned(lSource.Items[i]) then begin lItem := ZipCode(lSource.Items[i].ClassType.Create); lItem.Assign(lSource.Items[i]); Add(lItem); end else begin Add(nil); end; end else begin inherited Assign(iSource); end; end; class function ArrayOfZipCode.GetItemType: PTypeInfo; begin result := TypeInfo(ZipCode); end; class function ArrayOfZipCode.GetItemClass: TClass; begin result := ZipCode; end; class function ArrayOfZipCode.GetItemSize: integer; begin result := SizeOf(ZipCode); end; function ArrayOfZipCode.GetItems(aIndex: integer): ZipCode; begin if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]); result := fItems[aIndex]; end; function ArrayOfZipCode.GetItemRef(aIndex: integer): pointer; begin if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]); result := fItems[aIndex]; end; procedure ArrayOfZipCode.SetItemRef(aIndex: integer; Ref: pointer); begin if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]); if Ref <> fItems[aIndex] then begin if fItems[aIndex] <> nil then fItems[aIndex].Free; fItems[aIndex] := Ref; end; end; procedure ArrayOfZipCode.Clear; var i: integer; begin for i := 0 to (Count-1) do fItems[i].Free(); SetLength(fItems, 0); FCount := 0; end; procedure ArrayOfZipCode.Delete(aIndex: integer); var i: integer; begin if (aIndex>=Count) then RaiseError(err_InvalidIndex, [aIndex]); fItems[aIndex].Free(); if (aIndex= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]); if fItems[aIndex] <> Value then begin fItems[aIndex].Free; fItems[aIndex] := Value; end; end; procedure ArrayOfZipCode.Resize(ElementCount: integer); var i: Integer; begin if fCount = ElementCount then Exit; for i := FCount -1 downto ElementCount do FItems[i].Free; SetLength(fItems, ElementCount); for i := FCount to ElementCount -1 do FItems[i] := ZipCode.Create; FCount := ElementCount; end; function ArrayOfZipCode.GetCount: integer; begin result := FCount; end; procedure ArrayOfZipCode.Grow; var Delta, Capacity: Integer; begin Capacity := Length(fItems); if Capacity > 64 then Delta := Capacity div 4 else if Capacity > 8 then Delta := 16 else Delta := 4; SetLength(fItems, Capacity + Delta); end; function ArrayOfZipCode.Add: ZipCode; begin result := ZipCode.Create; Add(Result); end; function ArrayOfZipCode.Add(const Value:ZipCode): integer; begin Result := Count; if Length(fItems) = Result then Grow; fItems[result] := Value; Inc(fCount); end; procedure ArrayOfZipCode.ReadComplex(ASerializer: TObject); var lval: ZipCode; i: integer; begin for i := 0 to Count-1 do begin with TROSerializer(ASerializer) do begin ReadStruct(GetArrayElementName(GetItemType, GetItemRef(i)), ZipCode, lval, i); end; Items[i] := lval; end; end; procedure ArrayOfZipCode.WriteComplex(ASerializer: TObject); var i: integer; begin for i := 0 to Count-1 do with TROSerializer(ASerializer) do WriteStruct(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], ZipCode, i); end; { ArrayOfCity } class function ArrayOfCity.GetAttributeCount: Integer; begin result := 3; end; class function ArrayOfCity.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'minOccurs'; 1: result := 'maxOccurs'; 2: result := 'ImportedFromNamespace'; end; end; class function ArrayOfCity.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := '0'; 1: result := '-1'; 2: result := 'PPLIEGate'; end; end; procedure ArrayOfCity.Assign(iSource: TPersistent); var lSource:ArrayOfCity; i:integer; lItem:City; begin if (iSource is ArrayOfCity) then begin lSource := ArrayOfCity(iSource); Clear(); for i := 0 to lSource.Count-1 do if Assigned(lSource.Items[i]) then begin lItem := City(lSource.Items[i].ClassType.Create); lItem.Assign(lSource.Items[i]); Add(lItem); end else begin Add(nil); end; end else begin inherited Assign(iSource); end; end; class function ArrayOfCity.GetItemType: PTypeInfo; begin result := TypeInfo(City); end; class function ArrayOfCity.GetItemClass: TClass; begin result := City; end; class function ArrayOfCity.GetItemSize: integer; begin result := SizeOf(City); end; function ArrayOfCity.GetItems(aIndex: integer): City; begin if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]); result := fItems[aIndex]; end; function ArrayOfCity.GetItemRef(aIndex: integer): pointer; begin if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]); result := fItems[aIndex]; end; procedure ArrayOfCity.SetItemRef(aIndex: integer; Ref: pointer); begin if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]); if Ref <> fItems[aIndex] then begin if fItems[aIndex] <> nil then fItems[aIndex].Free; fItems[aIndex] := Ref; end; end; procedure ArrayOfCity.Clear; var i: integer; begin for i := 0 to (Count-1) do fItems[i].Free(); SetLength(fItems, 0); FCount := 0; end; procedure ArrayOfCity.Delete(aIndex: integer); var i: integer; begin if (aIndex>=Count) then RaiseError(err_InvalidIndex, [aIndex]); fItems[aIndex].Free(); if (aIndex= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]); if fItems[aIndex] <> Value then begin fItems[aIndex].Free; fItems[aIndex] := Value; end; end; procedure ArrayOfCity.Resize(ElementCount: integer); var i: Integer; begin if fCount = ElementCount then Exit; for i := FCount -1 downto ElementCount do FItems[i].Free; SetLength(fItems, ElementCount); for i := FCount to ElementCount -1 do FItems[i] := City.Create; FCount := ElementCount; end; function ArrayOfCity.GetCount: integer; begin result := FCount; end; procedure ArrayOfCity.Grow; var Delta, Capacity: Integer; begin Capacity := Length(fItems); if Capacity > 64 then Delta := Capacity div 4 else if Capacity > 8 then Delta := 16 else Delta := 4; SetLength(fItems, Capacity + Delta); end; function ArrayOfCity.Add: City; begin result := City.Create; Add(Result); end; function ArrayOfCity.Add(const Value:City): integer; begin Result := Count; if Length(fItems) = Result then Grow; fItems[result] := Value; Inc(fCount); end; procedure ArrayOfCity.ReadComplex(ASerializer: TObject); var lval: City; i: integer; begin for i := 0 to Count-1 do begin with TROSerializer(ASerializer) do begin ReadStruct(GetArrayElementName(GetItemType, GetItemRef(i)), City, lval, i); end; Items[i] := lval; end; end; procedure ArrayOfCity.WriteComplex(ASerializer: TObject); var i: integer; begin for i := 0 to Count-1 do with TROSerializer(ASerializer) do WriteStruct(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], City, i); end; { ArrayOfString } class function ArrayOfString.GetAttributeCount: Integer; begin result := 3; end; class function ArrayOfString.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'minOccurs'; 1: result := 'maxOccurs'; 2: result := 'ImportedFromNamespace'; end; end; class function ArrayOfString.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := '0'; 1: result := '-1'; 2: result := 'PPLIEGate'; end; end; procedure ArrayOfString.Assign(iSource: TPersistent); var lSource:ArrayOfString; i:integer; begin if (iSource is ArrayOfString) then begin lSource := ArrayOfString(iSource); Clear(); Resize(lSource.Count); for i := 0 to lSource.Count-1 do Items[i] := lSource.Items[i]; end else begin inherited Assign(iSource); end; end; class function ArrayOfString.GetItemType: PTypeInfo; begin result := TypeInfo(UnicodeString); end; class function ArrayOfString.GetItemSize: integer; begin result := SizeOf(UnicodeString); end; function ArrayOfString.GetItems(aIndex: integer): UnicodeString; begin if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]); result := fItems[aIndex]; end; function ArrayOfString.GetItemRef(aIndex: integer): pointer; begin if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]); result := @fItems[aIndex]; end; procedure ArrayOfString.Clear; begin SetLength(fItems, 0); FCount := 0; end; procedure ArrayOfString.Delete(aIndex: integer); var i: integer; begin if (aIndex>=Count) then RaiseError(err_InvalidIndex, [aIndex]); if (aIndex= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]); fItems[aIndex] := Value; end; procedure ArrayOfString.Resize(ElementCount: integer); begin if fCount = ElementCount then Exit; SetLength(fItems, ElementCount); FCount := ElementCount; end; function ArrayOfString.GetCount: integer; begin result := FCount; end; procedure ArrayOfString.Grow; var Delta, Capacity: Integer; begin Capacity := Length(fItems); if Capacity > 64 then Delta := Capacity div 4 else if Capacity > 8 then Delta := 16 else Delta := 4; SetLength(fItems, Capacity + Delta); end; function ArrayOfString.Add(const Value: UnicodeString): integer; begin Result := Count; if Length(fItems) = Result then Grow; fItems[result] := Value; Inc(fCount); end; function ArrayOfString.GetIndex(const aPropertyName: string; const aPropertyValue: Variant; StartFrom: integer; Options: TROSearchOptions): integer; begin result := -1; end; function ArrayOfString.IndexOf(const aValue: UnicodeString; const aStartFrom: integer = 0): integer; begin for Result := aStartFrom to Count-1 do if Items[Result] = aValue then Exit; Result := -1; end; procedure ArrayOfString.ReadComplex(ASerializer: TObject); var lval: UnicodeString; i: integer; begin for i := 0 to Count-1 do begin with TROSerializer(ASerializer) do begin {$IFDEF UNICODE} ReadUnicodeString(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i); {$ELSE} ReadWideString(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i); {$ENDIF} end; Items[i] := lval; end; end; procedure ArrayOfString.WriteComplex(ASerializer: TObject); var i: integer; begin for i := 0 to Count-1 do with TROSerializer(ASerializer) do {$IFDEF UNICODE} WriteUnicodeString(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i); {$ELSE} WriteWideString(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i); {$ENDIF} end; { ArrayOfPackageInfo } class function ArrayOfPackageInfo.GetAttributeCount: Integer; begin result := 3; end; class function ArrayOfPackageInfo.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'minOccurs'; 1: result := 'maxOccurs'; 2: result := 'ImportedFromNamespace'; end; end; class function ArrayOfPackageInfo.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := '0'; 1: result := '-1'; 2: result := 'PPLIEGate'; end; end; procedure ArrayOfPackageInfo.Assign(iSource: TPersistent); var lSource:ArrayOfPackageInfo; i:integer; lItem:PackageInfo; begin if (iSource is ArrayOfPackageInfo) then begin lSource := ArrayOfPackageInfo(iSource); Clear(); for i := 0 to lSource.Count-1 do if Assigned(lSource.Items[i]) then begin lItem := PackageInfo(lSource.Items[i].ClassType.Create); lItem.Assign(lSource.Items[i]); Add(lItem); end else begin Add(nil); end; end else begin inherited Assign(iSource); end; end; class function ArrayOfPackageInfo.GetItemType: PTypeInfo; begin result := TypeInfo(PackageInfo); end; class function ArrayOfPackageInfo.GetItemClass: TClass; begin result := PackageInfo; end; class function ArrayOfPackageInfo.GetItemSize: integer; begin result := SizeOf(PackageInfo); end; function ArrayOfPackageInfo.GetItems(aIndex: integer): PackageInfo; begin if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]); result := fItems[aIndex]; end; function ArrayOfPackageInfo.GetItemRef(aIndex: integer): pointer; begin if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]); result := fItems[aIndex]; end; procedure ArrayOfPackageInfo.SetItemRef(aIndex: integer; Ref: pointer); begin if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]); if Ref <> fItems[aIndex] then begin if fItems[aIndex] <> nil then fItems[aIndex].Free; fItems[aIndex] := Ref; end; end; procedure ArrayOfPackageInfo.Clear; var i: integer; begin for i := 0 to (Count-1) do fItems[i].Free(); SetLength(fItems, 0); FCount := 0; end; procedure ArrayOfPackageInfo.Delete(aIndex: integer); var i: integer; begin if (aIndex>=Count) then RaiseError(err_InvalidIndex, [aIndex]); fItems[aIndex].Free(); if (aIndex= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]); if fItems[aIndex] <> Value then begin fItems[aIndex].Free; fItems[aIndex] := Value; end; end; procedure ArrayOfPackageInfo.Resize(ElementCount: integer); var i: Integer; begin if fCount = ElementCount then Exit; for i := FCount -1 downto ElementCount do FItems[i].Free; SetLength(fItems, ElementCount); for i := FCount to ElementCount -1 do FItems[i] := PackageInfo.Create; FCount := ElementCount; end; function ArrayOfPackageInfo.GetCount: integer; begin result := FCount; end; procedure ArrayOfPackageInfo.Grow; var Delta, Capacity: Integer; begin Capacity := Length(fItems); if Capacity > 64 then Delta := Capacity div 4 else if Capacity > 8 then Delta := 16 else Delta := 4; SetLength(fItems, Capacity + Delta); end; function ArrayOfPackageInfo.Add: PackageInfo; begin result := PackageInfo.Create; Add(Result); end; function ArrayOfPackageInfo.Add(const Value:PackageInfo): integer; begin Result := Count; if Length(fItems) = Result then Grow; fItems[result] := Value; Inc(fCount); end; procedure ArrayOfPackageInfo.ReadComplex(ASerializer: TObject); var lval: PackageInfo; i: integer; begin for i := 0 to Count-1 do begin with TROSerializer(ASerializer) do begin ReadStruct(GetArrayElementName(GetItemType, GetItemRef(i)), PackageInfo, lval, i); end; Items[i] := lval; end; end; procedure ArrayOfPackageInfo.WriteComplex(ASerializer: TObject); var i: integer; begin for i := 0 to Count-1 do with TROSerializer(ASerializer) do WriteStruct(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], PackageInfo, i); end; { StringArray } class function StringArray.GetAttributeCount: Integer; begin result := 3; end; class function StringArray.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'minOccurs'; 1: result := 'maxOccurs'; 2: result := 'ImportedFromNamespace'; end; end; class function StringArray.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := '0'; 1: result := '0'; 2: result := 'PPLIEGate/AbstractTypes'; end; end; procedure StringArray.Assign(iSource: TPersistent); var lSource:StringArray; i:integer; begin if (iSource is StringArray) then begin lSource := StringArray(iSource); Clear(); Resize(lSource.Count); for i := 0 to lSource.Count-1 do Items[i] := lSource.Items[i]; end else begin inherited Assign(iSource); end; end; class function StringArray.GetItemType: PTypeInfo; begin result := TypeInfo(unknown); end; class function StringArray.GetItemSize: integer; begin result := SizeOf(unknown); end; function StringArray.GetItems(aIndex: integer): unknown; begin if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]); result := fItems[aIndex]; end; function StringArray.GetItemRef(aIndex: integer): pointer; begin if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]); result := @fItems[aIndex]; end; procedure StringArray.Clear; begin SetLength(fItems, 0); FCount := 0; end; procedure StringArray.Delete(aIndex: integer); var i: integer; begin if (aIndex>=Count) then RaiseError(err_InvalidIndex, [aIndex]); if (aIndex= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]); fItems[aIndex] := Value; end; procedure StringArray.Resize(ElementCount: integer); begin if fCount = ElementCount then Exit; SetLength(fItems, ElementCount); FCount := ElementCount; end; function StringArray.GetCount: integer; begin result := FCount; end; procedure StringArray.Grow; var Delta, Capacity: Integer; begin Capacity := Length(fItems); if Capacity > 64 then Delta := Capacity div 4 else if Capacity > 8 then Delta := 16 else Delta := 4; SetLength(fItems, Capacity + Delta); end; function StringArray.Add(const Value: unknown): integer; begin Result := Count; if Length(fItems) = Result then Grow; fItems[result] := Value; Inc(fCount); end; function StringArray.GetIndex(const aPropertyName: string; const aPropertyValue: Variant; StartFrom: integer; Options: TROSearchOptions): integer; begin result := -1; end; function StringArray.IndexOf(const aValue: unknown; const aStartFrom: integer = 0): integer; begin for Result := aStartFrom to Count-1 do if Items[Result] = aValue then Exit; Result := -1; end; procedure StringArray.ReadComplex(ASerializer: TObject); var lval: unknown; i: integer; begin for i := 0 to Count-1 do begin with TROSerializer(ASerializer) do begin end; Items[i] := lval; end; end; procedure StringArray.WriteComplex(ASerializer: TObject); var i: integer; begin for i := 0 to Count-1 do with TROSerializer(ASerializer) do end; { ImportPPLSprint } class function ImportPPLSprint.GetAttributeCount: Integer; begin result := 1; end; class function ImportPPLSprint.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function ImportPPLSprint.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure ImportPPLSprint.Assign(iSource: TPersistent); var lSource: libPPL_Intf.ImportPPLSprint; begin inherited Assign(iSource); if (iSource is libPPL_Intf.ImportPPLSprint) then begin lSource := libPPL_Intf.ImportPPLSprint(iSource); FirCode := lSource.FirCode; if Assigned(lSource.fpackages) then packages.Assign(lSource.fpackages) else FreeAndNil(fpackages); end; end; function ImportPPLSprint.Getpackages: colPPLSprint; begin if (fpackages = nil) then fpackages := colPPLSprint.Create(); result := fpackages; end; procedure ImportPPLSprint.ReadComplex(ASerializer: TObject); var l_FirCode: UnicodeString; l_packages: colPPLSprint; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('FirCode', l_FirCode); {$ENDIF} FirCode := l_FirCode; l_packages := int_packages; TROSerializer(ASerializer).ReadStruct('packages', colPPLSprint, l_packages); if int_packages <> l_packages then packages.Free; packages := l_packages; end else begin l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('FirCode', l_FirCode); {$ENDIF} FirCode := l_FirCode; l_packages := int_packages; TROSerializer(ASerializer).ReadStruct('packages', colPPLSprint, l_packages); if int_packages <> l_packages then packages.Free; packages := l_packages; end; end; procedure ImportPPLSprint.WriteComplex(ASerializer: TObject); var l_FirCode: UnicodeString; l_packages: colPPLSprint; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(ImportPPLSprint); l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('FirCode', l_FirCode); {$ENDIF} l_packages := int_packages; TROSerializer(ASerializer).WriteStruct('packages', l_packages, colPPLSprint); end else begin l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('FirCode', l_FirCode); {$ENDIF} l_packages := int_packages; TROSerializer(ASerializer).WriteStruct('packages', l_packages, colPPLSprint); end; end; { ImportPPLSprintCollection } constructor ImportPPLSprintCollection.Create; begin inherited Create(ImportPPLSprint); end; constructor ImportPPLSprintCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function ImportPPLSprintCollection.Add: ImportPPLSprint; begin result := ImportPPLSprint(inherited Add); end; function ImportPPLSprintCollection.GetItems(aIndex: integer): ImportPPLSprint; begin result := ImportPPLSprint(inherited Items[aIndex]); end; procedure ImportPPLSprintCollection.SetItems(aIndex: integer; const Value: ImportPPLSprint); begin ImportPPLSprint(inherited Items[aIndex]).Assign(Value); end; { colPPLSprint } class function colPPLSprint.GetAttributeCount: Integer; begin result := 1; end; class function colPPLSprint.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function colPPLSprint.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure colPPLSprint.Assign(iSource: TPersistent); var lSource: libPPL_Intf.colPPLSprint; begin inherited Assign(iSource); if (iSource is libPPL_Intf.colPPLSprint) then begin lSource := libPPL_Intf.colPPLSprint(iSource); if Assigned(lSource.fItems) then Items.Assign(lSource.fItems) else FreeAndNil(fItems); ErrorCode := lSource.ErrorCode; ErrorMessage := lSource.ErrorMessage; end; end; function colPPLSprint.GetItems: ArrayOfAnyType; begin if (fItems = nil) then fItems := ArrayOfAnyType.Create(); result := fItems; end; procedure colPPLSprint.ReadComplex(ASerializer: TObject); var l_ErrorCode: Integer; l_ErrorMessage: UnicodeString; l_Items: ArrayOfAnyType; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_Items := int_Items; TROSerializer(ASerializer).ReadArray('Items', ArrayOfAnyType, l_Items); if int_Items <> l_Items then Items.Free; Items := l_Items; l_ErrorCode := ErrorCode; TROSerializer(ASerializer).ReadInteger('ErrorCode', otSLong, l_ErrorCode); ErrorCode := l_ErrorCode; l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).ReadWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} ErrorMessage := l_ErrorMessage; end else begin l_ErrorCode := ErrorCode; TROSerializer(ASerializer).ReadInteger('ErrorCode', otSLong, l_ErrorCode); ErrorCode := l_ErrorCode; l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).ReadWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} ErrorMessage := l_ErrorMessage; l_Items := int_Items; TROSerializer(ASerializer).ReadArray('Items', ArrayOfAnyType, l_Items); if int_Items <> l_Items then Items.Free; Items := l_Items; end; end; procedure colPPLSprint.WriteComplex(ASerializer: TObject); var l_ErrorCode: Integer; l_ErrorMessage: UnicodeString; l_Items: ArrayOfAnyType; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(colPPLSprint); l_Items := int_Items; TROSerializer(ASerializer).WriteArray('Items', l_Items, ArrayOfAnyType); l_ErrorCode := ErrorCode; TROSerializer(ASerializer).WriteInteger('ErrorCode', otSLong, l_ErrorCode); l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).WriteWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} end else begin l_ErrorCode := ErrorCode; TROSerializer(ASerializer).WriteInteger('ErrorCode', otSLong, l_ErrorCode); l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).WriteWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} l_Items := int_Items; TROSerializer(ASerializer).WriteArray('Items', l_Items, ArrayOfAnyType); end; end; { colPPLSprintCollection } constructor colPPLSprintCollection.Create; begin inherited Create(colPPLSprint); end; constructor colPPLSprintCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function colPPLSprintCollection.Add: colPPLSprint; begin result := colPPLSprint(inherited Add); end; function colPPLSprintCollection.GetItems(aIndex: integer): colPPLSprint; begin result := colPPLSprint(inherited Items[aIndex]); end; procedure colPPLSprintCollection.SetItems(aIndex: integer; const Value: colPPLSprint); begin colPPLSprint(inherited Items[aIndex]).Assign(Value); end; { Package } class function Package.GetAttributeCount: Integer; begin result := 1; end; class function Package.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function Package.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure Package.Assign(iSource: TPersistent); var lSource: libPPL_Intf.Package; begin inherited Assign(iSource); if (iSource is libPPL_Intf.Package) then begin lSource := libPPL_Intf.Package(iSource); PackageID := lSource.PackageID; PackageIDCUS := lSource.PackageIDCUS; field_ZipCode := lSource.field_ZipCode; Country := lSource.Country; CodPrice := lSource.CodPrice; CodPriceCurID := lSource.CodPriceCurID; VarSym := lSource.VarSym; ConsigneeName := lSource.ConsigneeName; ConsigneeStreet := lSource.ConsigneeStreet; ConsigneeCity := lSource.ConsigneeCity; Phone := lSource.Phone; Contact := lSource.Contact; EveningDelivery := lSource.EveningDelivery; CustRef := lSource.CustRef; Length := lSource.Length; Height := lSource.Height; Width := lSource.Width; RecMail := lSource.RecMail; ErrorCode := lSource.ErrorCode; ErrorMessage := lSource.ErrorMessage; end; end; procedure Package.ReadComplex(ASerializer: TObject); var l_CodPrice: decimal; l_CodPriceCurID: UnicodeString; l_ConsigneeCity: UnicodeString; l_ConsigneeName: UnicodeString; l_ConsigneeStreet: UnicodeString; l_Contact: UnicodeString; l_Country: UnicodeString; l_CustRef: UnicodeString; l_ErrorCode: Integer; l_ErrorMessage: UnicodeString; l_EveningDelivery: boolean; l_field_ZipCode: UnicodeString; l_Height: UnicodeString; l_Length: UnicodeString; l_PackageID: UnicodeString; l_PackageIDCUS: UnicodeString; l_Phone: UnicodeString; l_RecMail: UnicodeString; l_VarSym: UnicodeString; l_Width: UnicodeString; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_PackageID := PackageID; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('PackageID', l_PackageID); {$ELSE} TROSerializer(ASerializer).ReadWideString('PackageID', l_PackageID); {$ENDIF} PackageID := l_PackageID; l_PackageIDCUS := PackageIDCUS; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('PackageIDCUS', l_PackageIDCUS); {$ELSE} TROSerializer(ASerializer).ReadWideString('PackageIDCUS', l_PackageIDCUS); {$ENDIF} PackageIDCUS := l_PackageIDCUS; l_field_ZipCode := field_ZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('field_ZipCode', l_field_ZipCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('field_ZipCode', l_field_ZipCode); {$ENDIF} field_ZipCode := l_field_ZipCode; l_Country := Country; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Country', l_Country); {$ELSE} TROSerializer(ASerializer).ReadWideString('Country', l_Country); {$ENDIF} Country := l_Country; l_CodPrice := CodPrice; TROSerializer(ASerializer).ReadDecimal('CodPrice', l_CodPrice); CodPrice := l_CodPrice; l_CodPriceCurID := CodPriceCurID; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('CodPriceCurID', l_CodPriceCurID); {$ELSE} TROSerializer(ASerializer).ReadWideString('CodPriceCurID', l_CodPriceCurID); {$ENDIF} CodPriceCurID := l_CodPriceCurID; l_VarSym := VarSym; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('VarSym', l_VarSym); {$ELSE} TROSerializer(ASerializer).ReadWideString('VarSym', l_VarSym); {$ENDIF} VarSym := l_VarSym; l_ConsigneeName := ConsigneeName; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ConsigneeName', l_ConsigneeName); {$ELSE} TROSerializer(ASerializer).ReadWideString('ConsigneeName', l_ConsigneeName); {$ENDIF} ConsigneeName := l_ConsigneeName; l_ConsigneeStreet := ConsigneeStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ConsigneeStreet', l_ConsigneeStreet); {$ELSE} TROSerializer(ASerializer).ReadWideString('ConsigneeStreet', l_ConsigneeStreet); {$ENDIF} ConsigneeStreet := l_ConsigneeStreet; l_ConsigneeCity := ConsigneeCity; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ConsigneeCity', l_ConsigneeCity); {$ELSE} TROSerializer(ASerializer).ReadWideString('ConsigneeCity', l_ConsigneeCity); {$ENDIF} ConsigneeCity := l_ConsigneeCity; l_Phone := Phone; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Phone', l_Phone); {$ELSE} TROSerializer(ASerializer).ReadWideString('Phone', l_Phone); {$ENDIF} Phone := l_Phone; l_Contact := Contact; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Contact', l_Contact); {$ELSE} TROSerializer(ASerializer).ReadWideString('Contact', l_Contact); {$ENDIF} Contact := l_Contact; l_EveningDelivery := EveningDelivery; TROSerializer(ASerializer).ReadEnumerated('EveningDelivery',TypeInfo(boolean), l_EveningDelivery); EveningDelivery := l_EveningDelivery; l_CustRef := CustRef; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('CustRef', l_CustRef); {$ELSE} TROSerializer(ASerializer).ReadWideString('CustRef', l_CustRef); {$ENDIF} CustRef := l_CustRef; l_Length := Length; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Length', l_Length); {$ELSE} TROSerializer(ASerializer).ReadWideString('Length', l_Length); {$ENDIF} Length := l_Length; l_Height := Height; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Height', l_Height); {$ELSE} TROSerializer(ASerializer).ReadWideString('Height', l_Height); {$ENDIF} Height := l_Height; l_Width := Width; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Width', l_Width); {$ELSE} TROSerializer(ASerializer).ReadWideString('Width', l_Width); {$ENDIF} Width := l_Width; l_RecMail := RecMail; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecMail', l_RecMail); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecMail', l_RecMail); {$ENDIF} RecMail := l_RecMail; l_ErrorCode := ErrorCode; TROSerializer(ASerializer).ReadInteger('ErrorCode', otSLong, l_ErrorCode); ErrorCode := l_ErrorCode; l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).ReadWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} ErrorMessage := l_ErrorMessage; end else begin l_CodPrice := CodPrice; TROSerializer(ASerializer).ReadDecimal('CodPrice', l_CodPrice); CodPrice := l_CodPrice; l_CodPriceCurID := CodPriceCurID; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('CodPriceCurID', l_CodPriceCurID); {$ELSE} TROSerializer(ASerializer).ReadWideString('CodPriceCurID', l_CodPriceCurID); {$ENDIF} CodPriceCurID := l_CodPriceCurID; l_ConsigneeCity := ConsigneeCity; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ConsigneeCity', l_ConsigneeCity); {$ELSE} TROSerializer(ASerializer).ReadWideString('ConsigneeCity', l_ConsigneeCity); {$ENDIF} ConsigneeCity := l_ConsigneeCity; l_ConsigneeName := ConsigneeName; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ConsigneeName', l_ConsigneeName); {$ELSE} TROSerializer(ASerializer).ReadWideString('ConsigneeName', l_ConsigneeName); {$ENDIF} ConsigneeName := l_ConsigneeName; l_ConsigneeStreet := ConsigneeStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ConsigneeStreet', l_ConsigneeStreet); {$ELSE} TROSerializer(ASerializer).ReadWideString('ConsigneeStreet', l_ConsigneeStreet); {$ENDIF} ConsigneeStreet := l_ConsigneeStreet; l_Contact := Contact; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Contact', l_Contact); {$ELSE} TROSerializer(ASerializer).ReadWideString('Contact', l_Contact); {$ENDIF} Contact := l_Contact; l_Country := Country; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Country', l_Country); {$ELSE} TROSerializer(ASerializer).ReadWideString('Country', l_Country); {$ENDIF} Country := l_Country; l_CustRef := CustRef; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('CustRef', l_CustRef); {$ELSE} TROSerializer(ASerializer).ReadWideString('CustRef', l_CustRef); {$ENDIF} CustRef := l_CustRef; l_ErrorCode := ErrorCode; TROSerializer(ASerializer).ReadInteger('ErrorCode', otSLong, l_ErrorCode); ErrorCode := l_ErrorCode; l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).ReadWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} ErrorMessage := l_ErrorMessage; l_EveningDelivery := EveningDelivery; TROSerializer(ASerializer).ReadEnumerated('EveningDelivery',TypeInfo(boolean), l_EveningDelivery); EveningDelivery := l_EveningDelivery; l_field_ZipCode := field_ZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('field_ZipCode', l_field_ZipCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('field_ZipCode', l_field_ZipCode); {$ENDIF} field_ZipCode := l_field_ZipCode; l_Height := Height; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Height', l_Height); {$ELSE} TROSerializer(ASerializer).ReadWideString('Height', l_Height); {$ENDIF} Height := l_Height; l_Length := Length; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Length', l_Length); {$ELSE} TROSerializer(ASerializer).ReadWideString('Length', l_Length); {$ENDIF} Length := l_Length; l_PackageID := PackageID; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('PackageID', l_PackageID); {$ELSE} TROSerializer(ASerializer).ReadWideString('PackageID', l_PackageID); {$ENDIF} PackageID := l_PackageID; l_PackageIDCUS := PackageIDCUS; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('PackageIDCUS', l_PackageIDCUS); {$ELSE} TROSerializer(ASerializer).ReadWideString('PackageIDCUS', l_PackageIDCUS); {$ENDIF} PackageIDCUS := l_PackageIDCUS; l_Phone := Phone; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Phone', l_Phone); {$ELSE} TROSerializer(ASerializer).ReadWideString('Phone', l_Phone); {$ENDIF} Phone := l_Phone; l_RecMail := RecMail; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecMail', l_RecMail); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecMail', l_RecMail); {$ENDIF} RecMail := l_RecMail; l_VarSym := VarSym; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('VarSym', l_VarSym); {$ELSE} TROSerializer(ASerializer).ReadWideString('VarSym', l_VarSym); {$ENDIF} VarSym := l_VarSym; l_Width := Width; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Width', l_Width); {$ELSE} TROSerializer(ASerializer).ReadWideString('Width', l_Width); {$ENDIF} Width := l_Width; end; end; procedure Package.WriteComplex(ASerializer: TObject); var l_CodPrice: decimal; l_CodPriceCurID: UnicodeString; l_ConsigneeCity: UnicodeString; l_ConsigneeName: UnicodeString; l_ConsigneeStreet: UnicodeString; l_Contact: UnicodeString; l_Country: UnicodeString; l_CustRef: UnicodeString; l_ErrorCode: Integer; l_ErrorMessage: UnicodeString; l_EveningDelivery: boolean; l_field_ZipCode: UnicodeString; l_Height: UnicodeString; l_Length: UnicodeString; l_PackageID: UnicodeString; l_PackageIDCUS: UnicodeString; l_Phone: UnicodeString; l_RecMail: UnicodeString; l_VarSym: UnicodeString; l_Width: UnicodeString; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(Package); l_PackageID := PackageID; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('PackageID', l_PackageID); {$ELSE} TROSerializer(ASerializer).WriteWideString('PackageID', l_PackageID); {$ENDIF} l_PackageIDCUS := PackageIDCUS; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('PackageIDCUS', l_PackageIDCUS); {$ELSE} TROSerializer(ASerializer).WriteWideString('PackageIDCUS', l_PackageIDCUS); {$ENDIF} l_field_ZipCode := field_ZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('field_ZipCode', l_field_ZipCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('field_ZipCode', l_field_ZipCode); {$ENDIF} l_Country := Country; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Country', l_Country); {$ELSE} TROSerializer(ASerializer).WriteWideString('Country', l_Country); {$ENDIF} l_CodPrice := CodPrice; TROSerializer(ASerializer).WriteDecimal('CodPrice', l_CodPrice); l_CodPriceCurID := CodPriceCurID; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('CodPriceCurID', l_CodPriceCurID); {$ELSE} TROSerializer(ASerializer).WriteWideString('CodPriceCurID', l_CodPriceCurID); {$ENDIF} l_VarSym := VarSym; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('VarSym', l_VarSym); {$ELSE} TROSerializer(ASerializer).WriteWideString('VarSym', l_VarSym); {$ENDIF} l_ConsigneeName := ConsigneeName; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ConsigneeName', l_ConsigneeName); {$ELSE} TROSerializer(ASerializer).WriteWideString('ConsigneeName', l_ConsigneeName); {$ENDIF} l_ConsigneeStreet := ConsigneeStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ConsigneeStreet', l_ConsigneeStreet); {$ELSE} TROSerializer(ASerializer).WriteWideString('ConsigneeStreet', l_ConsigneeStreet); {$ENDIF} l_ConsigneeCity := ConsigneeCity; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ConsigneeCity', l_ConsigneeCity); {$ELSE} TROSerializer(ASerializer).WriteWideString('ConsigneeCity', l_ConsigneeCity); {$ENDIF} l_Phone := Phone; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Phone', l_Phone); {$ELSE} TROSerializer(ASerializer).WriteWideString('Phone', l_Phone); {$ENDIF} l_Contact := Contact; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Contact', l_Contact); {$ELSE} TROSerializer(ASerializer).WriteWideString('Contact', l_Contact); {$ENDIF} l_EveningDelivery := EveningDelivery; TROSerializer(ASerializer).WriteEnumerated('EveningDelivery',TypeInfo(boolean), l_EveningDelivery); l_CustRef := CustRef; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('CustRef', l_CustRef); {$ELSE} TROSerializer(ASerializer).WriteWideString('CustRef', l_CustRef); {$ENDIF} l_Length := Length; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Length', l_Length); {$ELSE} TROSerializer(ASerializer).WriteWideString('Length', l_Length); {$ENDIF} l_Height := Height; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Height', l_Height); {$ELSE} TROSerializer(ASerializer).WriteWideString('Height', l_Height); {$ENDIF} l_Width := Width; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Width', l_Width); {$ELSE} TROSerializer(ASerializer).WriteWideString('Width', l_Width); {$ENDIF} l_RecMail := RecMail; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecMail', l_RecMail); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecMail', l_RecMail); {$ENDIF} l_ErrorCode := ErrorCode; TROSerializer(ASerializer).WriteInteger('ErrorCode', otSLong, l_ErrorCode); l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).WriteWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} end else begin l_CodPrice := CodPrice; TROSerializer(ASerializer).WriteDecimal('CodPrice', l_CodPrice); l_CodPriceCurID := CodPriceCurID; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('CodPriceCurID', l_CodPriceCurID); {$ELSE} TROSerializer(ASerializer).WriteWideString('CodPriceCurID', l_CodPriceCurID); {$ENDIF} l_ConsigneeCity := ConsigneeCity; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ConsigneeCity', l_ConsigneeCity); {$ELSE} TROSerializer(ASerializer).WriteWideString('ConsigneeCity', l_ConsigneeCity); {$ENDIF} l_ConsigneeName := ConsigneeName; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ConsigneeName', l_ConsigneeName); {$ELSE} TROSerializer(ASerializer).WriteWideString('ConsigneeName', l_ConsigneeName); {$ENDIF} l_ConsigneeStreet := ConsigneeStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ConsigneeStreet', l_ConsigneeStreet); {$ELSE} TROSerializer(ASerializer).WriteWideString('ConsigneeStreet', l_ConsigneeStreet); {$ENDIF} l_Contact := Contact; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Contact', l_Contact); {$ELSE} TROSerializer(ASerializer).WriteWideString('Contact', l_Contact); {$ENDIF} l_Country := Country; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Country', l_Country); {$ELSE} TROSerializer(ASerializer).WriteWideString('Country', l_Country); {$ENDIF} l_CustRef := CustRef; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('CustRef', l_CustRef); {$ELSE} TROSerializer(ASerializer).WriteWideString('CustRef', l_CustRef); {$ENDIF} l_ErrorCode := ErrorCode; TROSerializer(ASerializer).WriteInteger('ErrorCode', otSLong, l_ErrorCode); l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).WriteWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} l_EveningDelivery := EveningDelivery; TROSerializer(ASerializer).WriteEnumerated('EveningDelivery',TypeInfo(boolean), l_EveningDelivery); l_field_ZipCode := field_ZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('field_ZipCode', l_field_ZipCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('field_ZipCode', l_field_ZipCode); {$ENDIF} l_Height := Height; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Height', l_Height); {$ELSE} TROSerializer(ASerializer).WriteWideString('Height', l_Height); {$ENDIF} l_Length := Length; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Length', l_Length); {$ELSE} TROSerializer(ASerializer).WriteWideString('Length', l_Length); {$ENDIF} l_PackageID := PackageID; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('PackageID', l_PackageID); {$ELSE} TROSerializer(ASerializer).WriteWideString('PackageID', l_PackageID); {$ENDIF} l_PackageIDCUS := PackageIDCUS; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('PackageIDCUS', l_PackageIDCUS); {$ELSE} TROSerializer(ASerializer).WriteWideString('PackageIDCUS', l_PackageIDCUS); {$ENDIF} l_Phone := Phone; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Phone', l_Phone); {$ELSE} TROSerializer(ASerializer).WriteWideString('Phone', l_Phone); {$ENDIF} l_RecMail := RecMail; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecMail', l_RecMail); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecMail', l_RecMail); {$ENDIF} l_VarSym := VarSym; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('VarSym', l_VarSym); {$ELSE} TROSerializer(ASerializer).WriteWideString('VarSym', l_VarSym); {$ENDIF} l_Width := Width; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Width', l_Width); {$ELSE} TROSerializer(ASerializer).WriteWideString('Width', l_Width); {$ENDIF} end; end; { PackageCollection } constructor PackageCollection.Create; begin inherited Create(Package); end; constructor PackageCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function PackageCollection.Add: Package; begin result := Package(inherited Add); end; function PackageCollection.GetItems(aIndex: integer): Package; begin result := Package(inherited Items[aIndex]); end; procedure PackageCollection.SetItems(aIndex: integer; const Value: Package); begin Package(inherited Items[aIndex]).Assign(Value); end; { PPLSprint } class function PPLSprint.GetAttributeCount: Integer; begin result := 1; end; class function PPLSprint.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function PPLSprint.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure PPLSprint.Assign(iSource: TPersistent); var lSource: libPPL_Intf.PPLSprint; begin inherited Assign(iSource); if (iSource is libPPL_Intf.PPLSprint) then begin lSource := libPPL_Intf.PPLSprint(iSource); PackageIdPPL := lSource.PackageIdPPL; DCOD := lSource.DCOD; PackageType := lSource.PackageType; PickupDate := lSource.PickupDate; PickupTimeFrom := lSource.PickupTimeFrom; PickupTimeTo := lSource.PickupTimeTo; DelivTimeFrom := lSource.DelivTimeFrom; DelivTimeTo := lSource.DelivTimeTo; CountOfEuroPal := lSource.CountOfEuroPal; DeliveryTerms := lSource.DeliveryTerms; Email := lSource.Email; GoodsDesc := lSource.GoodsDesc; Note := lSource.Note; CustRef := lSource.CustRef; Insurance := lSource.Insurance; InsuranceValue := lSource.InsuranceValue; CodValue := lSource.CodValue; CodVarCode := lSource.CodVarCode; SendName := lSource.SendName; SendStreet := lSource.SendStreet; SendCity := lSource.SendCity; SendZipCode := lSource.SendZipCode; SendContact := lSource.SendContact; SendPhone := lSource.SendPhone; SendOrgId := lSource.SendOrgId; SendOrgVatId := lSource.SendOrgVatId; RecName := lSource.RecName; RecStreet := lSource.RecStreet; RecCity := lSource.RecCity; RecZipCode := lSource.RecZipCode; RecContact := lSource.RecContact; RecPhone := lSource.RecPhone; RecOrgId := lSource.RecOrgId; RecOrgVatId := lSource.RecOrgVatId; EurBack := lSource.EurBack; LatePickup := lSource.LatePickup; Stock := lSource.Stock; ThirdDeliv := lSource.ThirdDeliv; POD := lSource.POD; SaturdayDeliv := lSource.SaturdayDeliv; OutWorkTime := lSource.OutWorkTime; OutWorkTimePickup := lSource.OutWorkTimePickup; CrgManId := lSource.CrgManId; PayOnDelivery := lSource.PayOnDelivery; DocBack := lSource.DocBack; ADR := lSource.ADR; IdPri := lSource.IdPri; Account := lSource.Account; BankCode := lSource.BankCode; SpecSymbol := lSource.SpecSymbol; if Assigned(lSource.fPackageItems) then PackageItems.Assign(lSource.fPackageItems) else FreeAndNil(fPackageItems); ErrorCode := lSource.ErrorCode; ErrorMessage := lSource.ErrorMessage; end; end; function PPLSprint.GetPackageItems: ArrayOfPPLSprintItem; begin if (fPackageItems = nil) then fPackageItems := ArrayOfPPLSprintItem.Create(); result := fPackageItems; end; procedure PPLSprint.ReadComplex(ASerializer: TObject); var l_Account: UnicodeString; l_ADR: boolean; l_BankCode: UnicodeString; l_CodValue: decimal; l_CodVarCode: UnicodeString; l_CountOfEuroPal: Integer; l_CrgManId: Integer; l_CustRef: UnicodeString; l_DCOD: UnicodeString; l_DeliveryTerms: UnicodeString; l_DelivTimeFrom: UnicodeString; l_DelivTimeTo: UnicodeString; l_DocBack: boolean; l_Email: UnicodeString; l_ErrorCode: Integer; l_ErrorMessage: UnicodeString; l_EurBack: boolean; l_GoodsDesc: UnicodeString; l_IdPri: UnicodeString; l_Insurance: UnicodeString; l_InsuranceValue: Integer; l_LatePickup: boolean; l_Note: UnicodeString; l_OutWorkTime: boolean; l_OutWorkTimePickup: boolean; l_PackageIdPPL: UnicodeString; l_PackageItems: ArrayOfPPLSprintItem; l_PackageType: Integer; l_PayOnDelivery: boolean; l_PickupDate: DateTime; l_PickupTimeFrom: UnicodeString; l_PickupTimeTo: UnicodeString; l_POD: boolean; l_RecCity: UnicodeString; l_RecContact: UnicodeString; l_RecName: UnicodeString; l_RecOrgId: UnicodeString; l_RecOrgVatId: UnicodeString; l_RecPhone: UnicodeString; l_RecStreet: UnicodeString; l_RecZipCode: UnicodeString; l_SaturdayDeliv: boolean; l_SendCity: UnicodeString; l_SendContact: UnicodeString; l_SendName: UnicodeString; l_SendOrgId: UnicodeString; l_SendOrgVatId: UnicodeString; l_SendPhone: UnicodeString; l_SendStreet: UnicodeString; l_SendZipCode: UnicodeString; l_SpecSymbol: UnicodeString; l_Stock: boolean; l_ThirdDeliv: boolean; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_PackageIdPPL := PackageIdPPL; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('PackageIdPPL', l_PackageIdPPL); {$ELSE} TROSerializer(ASerializer).ReadWideString('PackageIdPPL', l_PackageIdPPL); {$ENDIF} PackageIdPPL := l_PackageIdPPL; l_DCOD := DCOD; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DCOD', l_DCOD); {$ELSE} TROSerializer(ASerializer).ReadWideString('DCOD', l_DCOD); {$ENDIF} DCOD := l_DCOD; l_PackageType := PackageType; TROSerializer(ASerializer).ReadInteger('PackageType', otSLong, l_PackageType); PackageType := l_PackageType; l_PickupDate := PickupDate; TROSerializer(ASerializer).ReadDateTime('PickupDate', l_PickupDate); PickupDate := l_PickupDate; l_PickupTimeFrom := PickupTimeFrom; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('PickupTimeFrom', l_PickupTimeFrom); {$ELSE} TROSerializer(ASerializer).ReadWideString('PickupTimeFrom', l_PickupTimeFrom); {$ENDIF} PickupTimeFrom := l_PickupTimeFrom; l_PickupTimeTo := PickupTimeTo; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('PickupTimeTo', l_PickupTimeTo); {$ELSE} TROSerializer(ASerializer).ReadWideString('PickupTimeTo', l_PickupTimeTo); {$ENDIF} PickupTimeTo := l_PickupTimeTo; l_DelivTimeFrom := DelivTimeFrom; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DelivTimeFrom', l_DelivTimeFrom); {$ELSE} TROSerializer(ASerializer).ReadWideString('DelivTimeFrom', l_DelivTimeFrom); {$ENDIF} DelivTimeFrom := l_DelivTimeFrom; l_DelivTimeTo := DelivTimeTo; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DelivTimeTo', l_DelivTimeTo); {$ELSE} TROSerializer(ASerializer).ReadWideString('DelivTimeTo', l_DelivTimeTo); {$ENDIF} DelivTimeTo := l_DelivTimeTo; l_CountOfEuroPal := CountOfEuroPal; TROSerializer(ASerializer).ReadInteger('CountOfEuroPal', otSLong, l_CountOfEuroPal); CountOfEuroPal := l_CountOfEuroPal; l_DeliveryTerms := DeliveryTerms; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DeliveryTerms', l_DeliveryTerms); {$ELSE} TROSerializer(ASerializer).ReadWideString('DeliveryTerms', l_DeliveryTerms); {$ENDIF} DeliveryTerms := l_DeliveryTerms; l_Email := Email; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Email', l_Email); {$ELSE} TROSerializer(ASerializer).ReadWideString('Email', l_Email); {$ENDIF} Email := l_Email; l_GoodsDesc := GoodsDesc; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('GoodsDesc', l_GoodsDesc); {$ELSE} TROSerializer(ASerializer).ReadWideString('GoodsDesc', l_GoodsDesc); {$ENDIF} GoodsDesc := l_GoodsDesc; l_Note := Note; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Note', l_Note); {$ELSE} TROSerializer(ASerializer).ReadWideString('Note', l_Note); {$ENDIF} Note := l_Note; l_CustRef := CustRef; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('CustRef', l_CustRef); {$ELSE} TROSerializer(ASerializer).ReadWideString('CustRef', l_CustRef); {$ENDIF} CustRef := l_CustRef; l_Insurance := Insurance; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Insurance', l_Insurance); {$ELSE} TROSerializer(ASerializer).ReadWideString('Insurance', l_Insurance); {$ENDIF} Insurance := l_Insurance; l_InsuranceValue := InsuranceValue; TROSerializer(ASerializer).ReadInteger('InsuranceValue', otSLong, l_InsuranceValue); InsuranceValue := l_InsuranceValue; l_CodValue := CodValue; TROSerializer(ASerializer).ReadDecimal('CodValue', l_CodValue); CodValue := l_CodValue; l_CodVarCode := CodVarCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('CodVarCode', l_CodVarCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('CodVarCode', l_CodVarCode); {$ENDIF} CodVarCode := l_CodVarCode; l_SendName := SendName; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendName', l_SendName); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendName', l_SendName); {$ENDIF} SendName := l_SendName; l_SendStreet := SendStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendStreet', l_SendStreet); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendStreet', l_SendStreet); {$ENDIF} SendStreet := l_SendStreet; l_SendCity := SendCity; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendCity', l_SendCity); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendCity', l_SendCity); {$ENDIF} SendCity := l_SendCity; l_SendZipCode := SendZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendZipCode', l_SendZipCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendZipCode', l_SendZipCode); {$ENDIF} SendZipCode := l_SendZipCode; l_SendContact := SendContact; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendContact', l_SendContact); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendContact', l_SendContact); {$ENDIF} SendContact := l_SendContact; l_SendPhone := SendPhone; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendPhone', l_SendPhone); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendPhone', l_SendPhone); {$ENDIF} SendPhone := l_SendPhone; l_SendOrgId := SendOrgId; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendOrgId', l_SendOrgId); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendOrgId', l_SendOrgId); {$ENDIF} SendOrgId := l_SendOrgId; l_SendOrgVatId := SendOrgVatId; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendOrgVatId', l_SendOrgVatId); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendOrgVatId', l_SendOrgVatId); {$ENDIF} SendOrgVatId := l_SendOrgVatId; l_RecName := RecName; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecName', l_RecName); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecName', l_RecName); {$ENDIF} RecName := l_RecName; l_RecStreet := RecStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecStreet', l_RecStreet); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecStreet', l_RecStreet); {$ENDIF} RecStreet := l_RecStreet; l_RecCity := RecCity; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecCity', l_RecCity); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecCity', l_RecCity); {$ENDIF} RecCity := l_RecCity; l_RecZipCode := RecZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecZipCode', l_RecZipCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecZipCode', l_RecZipCode); {$ENDIF} RecZipCode := l_RecZipCode; l_RecContact := RecContact; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecContact', l_RecContact); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecContact', l_RecContact); {$ENDIF} RecContact := l_RecContact; l_RecPhone := RecPhone; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecPhone', l_RecPhone); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecPhone', l_RecPhone); {$ENDIF} RecPhone := l_RecPhone; l_RecOrgId := RecOrgId; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecOrgId', l_RecOrgId); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecOrgId', l_RecOrgId); {$ENDIF} RecOrgId := l_RecOrgId; l_RecOrgVatId := RecOrgVatId; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecOrgVatId', l_RecOrgVatId); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecOrgVatId', l_RecOrgVatId); {$ENDIF} RecOrgVatId := l_RecOrgVatId; l_EurBack := EurBack; TROSerializer(ASerializer).ReadEnumerated('EurBack',TypeInfo(boolean), l_EurBack); EurBack := l_EurBack; l_LatePickup := LatePickup; TROSerializer(ASerializer).ReadEnumerated('LatePickup',TypeInfo(boolean), l_LatePickup); LatePickup := l_LatePickup; l_Stock := Stock; TROSerializer(ASerializer).ReadEnumerated('Stock',TypeInfo(boolean), l_Stock); Stock := l_Stock; l_ThirdDeliv := ThirdDeliv; TROSerializer(ASerializer).ReadEnumerated('ThirdDeliv',TypeInfo(boolean), l_ThirdDeliv); ThirdDeliv := l_ThirdDeliv; l_POD := POD; TROSerializer(ASerializer).ReadEnumerated('POD',TypeInfo(boolean), l_POD); POD := l_POD; l_SaturdayDeliv := SaturdayDeliv; TROSerializer(ASerializer).ReadEnumerated('SaturdayDeliv',TypeInfo(boolean), l_SaturdayDeliv); SaturdayDeliv := l_SaturdayDeliv; l_OutWorkTime := OutWorkTime; TROSerializer(ASerializer).ReadEnumerated('OutWorkTime',TypeInfo(boolean), l_OutWorkTime); OutWorkTime := l_OutWorkTime; l_OutWorkTimePickup := OutWorkTimePickup; TROSerializer(ASerializer).ReadEnumerated('OutWorkTimePickup',TypeInfo(boolean), l_OutWorkTimePickup); OutWorkTimePickup := l_OutWorkTimePickup; l_CrgManId := CrgManId; TROSerializer(ASerializer).ReadInteger('CrgManId', otSLong, l_CrgManId); CrgManId := l_CrgManId; l_PayOnDelivery := PayOnDelivery; TROSerializer(ASerializer).ReadEnumerated('PayOnDelivery',TypeInfo(boolean), l_PayOnDelivery); PayOnDelivery := l_PayOnDelivery; l_DocBack := DocBack; TROSerializer(ASerializer).ReadEnumerated('DocBack',TypeInfo(boolean), l_DocBack); DocBack := l_DocBack; l_ADR := ADR; TROSerializer(ASerializer).ReadEnumerated('ADR',TypeInfo(boolean), l_ADR); ADR := l_ADR; l_IdPri := IdPri; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('IdPri', l_IdPri); {$ELSE} TROSerializer(ASerializer).ReadWideString('IdPri', l_IdPri); {$ENDIF} IdPri := l_IdPri; l_Account := Account; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Account', l_Account); {$ELSE} TROSerializer(ASerializer).ReadWideString('Account', l_Account); {$ENDIF} Account := l_Account; l_BankCode := BankCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('BankCode', l_BankCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('BankCode', l_BankCode); {$ENDIF} BankCode := l_BankCode; l_SpecSymbol := SpecSymbol; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SpecSymbol', l_SpecSymbol); {$ELSE} TROSerializer(ASerializer).ReadWideString('SpecSymbol', l_SpecSymbol); {$ENDIF} SpecSymbol := l_SpecSymbol; l_PackageItems := int_PackageItems; TROSerializer(ASerializer).ReadArray('PackageItems', ArrayOfPPLSprintItem, l_PackageItems); if int_PackageItems <> l_PackageItems then PackageItems.Free; PackageItems := l_PackageItems; l_ErrorCode := ErrorCode; TROSerializer(ASerializer).ReadInteger('ErrorCode', otSLong, l_ErrorCode); ErrorCode := l_ErrorCode; l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).ReadWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} ErrorMessage := l_ErrorMessage; end else begin l_Account := Account; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Account', l_Account); {$ELSE} TROSerializer(ASerializer).ReadWideString('Account', l_Account); {$ENDIF} Account := l_Account; l_ADR := ADR; TROSerializer(ASerializer).ReadEnumerated('ADR',TypeInfo(boolean), l_ADR); ADR := l_ADR; l_BankCode := BankCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('BankCode', l_BankCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('BankCode', l_BankCode); {$ENDIF} BankCode := l_BankCode; l_CodValue := CodValue; TROSerializer(ASerializer).ReadDecimal('CodValue', l_CodValue); CodValue := l_CodValue; l_CodVarCode := CodVarCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('CodVarCode', l_CodVarCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('CodVarCode', l_CodVarCode); {$ENDIF} CodVarCode := l_CodVarCode; l_CountOfEuroPal := CountOfEuroPal; TROSerializer(ASerializer).ReadInteger('CountOfEuroPal', otSLong, l_CountOfEuroPal); CountOfEuroPal := l_CountOfEuroPal; l_CrgManId := CrgManId; TROSerializer(ASerializer).ReadInteger('CrgManId', otSLong, l_CrgManId); CrgManId := l_CrgManId; l_CustRef := CustRef; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('CustRef', l_CustRef); {$ELSE} TROSerializer(ASerializer).ReadWideString('CustRef', l_CustRef); {$ENDIF} CustRef := l_CustRef; l_DCOD := DCOD; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DCOD', l_DCOD); {$ELSE} TROSerializer(ASerializer).ReadWideString('DCOD', l_DCOD); {$ENDIF} DCOD := l_DCOD; l_DeliveryTerms := DeliveryTerms; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DeliveryTerms', l_DeliveryTerms); {$ELSE} TROSerializer(ASerializer).ReadWideString('DeliveryTerms', l_DeliveryTerms); {$ENDIF} DeliveryTerms := l_DeliveryTerms; l_DelivTimeFrom := DelivTimeFrom; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DelivTimeFrom', l_DelivTimeFrom); {$ELSE} TROSerializer(ASerializer).ReadWideString('DelivTimeFrom', l_DelivTimeFrom); {$ENDIF} DelivTimeFrom := l_DelivTimeFrom; l_DelivTimeTo := DelivTimeTo; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DelivTimeTo', l_DelivTimeTo); {$ELSE} TROSerializer(ASerializer).ReadWideString('DelivTimeTo', l_DelivTimeTo); {$ENDIF} DelivTimeTo := l_DelivTimeTo; l_DocBack := DocBack; TROSerializer(ASerializer).ReadEnumerated('DocBack',TypeInfo(boolean), l_DocBack); DocBack := l_DocBack; l_Email := Email; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Email', l_Email); {$ELSE} TROSerializer(ASerializer).ReadWideString('Email', l_Email); {$ENDIF} Email := l_Email; l_ErrorCode := ErrorCode; TROSerializer(ASerializer).ReadInteger('ErrorCode', otSLong, l_ErrorCode); ErrorCode := l_ErrorCode; l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).ReadWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} ErrorMessage := l_ErrorMessage; l_EurBack := EurBack; TROSerializer(ASerializer).ReadEnumerated('EurBack',TypeInfo(boolean), l_EurBack); EurBack := l_EurBack; l_GoodsDesc := GoodsDesc; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('GoodsDesc', l_GoodsDesc); {$ELSE} TROSerializer(ASerializer).ReadWideString('GoodsDesc', l_GoodsDesc); {$ENDIF} GoodsDesc := l_GoodsDesc; l_IdPri := IdPri; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('IdPri', l_IdPri); {$ELSE} TROSerializer(ASerializer).ReadWideString('IdPri', l_IdPri); {$ENDIF} IdPri := l_IdPri; l_Insurance := Insurance; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Insurance', l_Insurance); {$ELSE} TROSerializer(ASerializer).ReadWideString('Insurance', l_Insurance); {$ENDIF} Insurance := l_Insurance; l_InsuranceValue := InsuranceValue; TROSerializer(ASerializer).ReadInteger('InsuranceValue', otSLong, l_InsuranceValue); InsuranceValue := l_InsuranceValue; l_LatePickup := LatePickup; TROSerializer(ASerializer).ReadEnumerated('LatePickup',TypeInfo(boolean), l_LatePickup); LatePickup := l_LatePickup; l_Note := Note; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Note', l_Note); {$ELSE} TROSerializer(ASerializer).ReadWideString('Note', l_Note); {$ENDIF} Note := l_Note; l_OutWorkTime := OutWorkTime; TROSerializer(ASerializer).ReadEnumerated('OutWorkTime',TypeInfo(boolean), l_OutWorkTime); OutWorkTime := l_OutWorkTime; l_OutWorkTimePickup := OutWorkTimePickup; TROSerializer(ASerializer).ReadEnumerated('OutWorkTimePickup',TypeInfo(boolean), l_OutWorkTimePickup); OutWorkTimePickup := l_OutWorkTimePickup; l_PackageIdPPL := PackageIdPPL; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('PackageIdPPL', l_PackageIdPPL); {$ELSE} TROSerializer(ASerializer).ReadWideString('PackageIdPPL', l_PackageIdPPL); {$ENDIF} PackageIdPPL := l_PackageIdPPL; l_PackageItems := int_PackageItems; TROSerializer(ASerializer).ReadArray('PackageItems', ArrayOfPPLSprintItem, l_PackageItems); if int_PackageItems <> l_PackageItems then PackageItems.Free; PackageItems := l_PackageItems; l_PackageType := PackageType; TROSerializer(ASerializer).ReadInteger('PackageType', otSLong, l_PackageType); PackageType := l_PackageType; l_PayOnDelivery := PayOnDelivery; TROSerializer(ASerializer).ReadEnumerated('PayOnDelivery',TypeInfo(boolean), l_PayOnDelivery); PayOnDelivery := l_PayOnDelivery; l_PickupDate := PickupDate; TROSerializer(ASerializer).ReadDateTime('PickupDate', l_PickupDate); PickupDate := l_PickupDate; l_PickupTimeFrom := PickupTimeFrom; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('PickupTimeFrom', l_PickupTimeFrom); {$ELSE} TROSerializer(ASerializer).ReadWideString('PickupTimeFrom', l_PickupTimeFrom); {$ENDIF} PickupTimeFrom := l_PickupTimeFrom; l_PickupTimeTo := PickupTimeTo; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('PickupTimeTo', l_PickupTimeTo); {$ELSE} TROSerializer(ASerializer).ReadWideString('PickupTimeTo', l_PickupTimeTo); {$ENDIF} PickupTimeTo := l_PickupTimeTo; l_POD := POD; TROSerializer(ASerializer).ReadEnumerated('POD',TypeInfo(boolean), l_POD); POD := l_POD; l_RecCity := RecCity; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecCity', l_RecCity); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecCity', l_RecCity); {$ENDIF} RecCity := l_RecCity; l_RecContact := RecContact; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecContact', l_RecContact); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecContact', l_RecContact); {$ENDIF} RecContact := l_RecContact; l_RecName := RecName; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecName', l_RecName); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecName', l_RecName); {$ENDIF} RecName := l_RecName; l_RecOrgId := RecOrgId; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecOrgId', l_RecOrgId); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecOrgId', l_RecOrgId); {$ENDIF} RecOrgId := l_RecOrgId; l_RecOrgVatId := RecOrgVatId; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecOrgVatId', l_RecOrgVatId); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecOrgVatId', l_RecOrgVatId); {$ENDIF} RecOrgVatId := l_RecOrgVatId; l_RecPhone := RecPhone; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecPhone', l_RecPhone); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecPhone', l_RecPhone); {$ENDIF} RecPhone := l_RecPhone; l_RecStreet := RecStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecStreet', l_RecStreet); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecStreet', l_RecStreet); {$ENDIF} RecStreet := l_RecStreet; l_RecZipCode := RecZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecZipCode', l_RecZipCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecZipCode', l_RecZipCode); {$ENDIF} RecZipCode := l_RecZipCode; l_SaturdayDeliv := SaturdayDeliv; TROSerializer(ASerializer).ReadEnumerated('SaturdayDeliv',TypeInfo(boolean), l_SaturdayDeliv); SaturdayDeliv := l_SaturdayDeliv; l_SendCity := SendCity; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendCity', l_SendCity); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendCity', l_SendCity); {$ENDIF} SendCity := l_SendCity; l_SendContact := SendContact; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendContact', l_SendContact); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendContact', l_SendContact); {$ENDIF} SendContact := l_SendContact; l_SendName := SendName; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendName', l_SendName); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendName', l_SendName); {$ENDIF} SendName := l_SendName; l_SendOrgId := SendOrgId; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendOrgId', l_SendOrgId); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendOrgId', l_SendOrgId); {$ENDIF} SendOrgId := l_SendOrgId; l_SendOrgVatId := SendOrgVatId; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendOrgVatId', l_SendOrgVatId); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendOrgVatId', l_SendOrgVatId); {$ENDIF} SendOrgVatId := l_SendOrgVatId; l_SendPhone := SendPhone; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendPhone', l_SendPhone); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendPhone', l_SendPhone); {$ENDIF} SendPhone := l_SendPhone; l_SendStreet := SendStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendStreet', l_SendStreet); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendStreet', l_SendStreet); {$ENDIF} SendStreet := l_SendStreet; l_SendZipCode := SendZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendZipCode', l_SendZipCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendZipCode', l_SendZipCode); {$ENDIF} SendZipCode := l_SendZipCode; l_SpecSymbol := SpecSymbol; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SpecSymbol', l_SpecSymbol); {$ELSE} TROSerializer(ASerializer).ReadWideString('SpecSymbol', l_SpecSymbol); {$ENDIF} SpecSymbol := l_SpecSymbol; l_Stock := Stock; TROSerializer(ASerializer).ReadEnumerated('Stock',TypeInfo(boolean), l_Stock); Stock := l_Stock; l_ThirdDeliv := ThirdDeliv; TROSerializer(ASerializer).ReadEnumerated('ThirdDeliv',TypeInfo(boolean), l_ThirdDeliv); ThirdDeliv := l_ThirdDeliv; end; end; procedure PPLSprint.WriteComplex(ASerializer: TObject); var l_Account: UnicodeString; l_ADR: boolean; l_BankCode: UnicodeString; l_CodValue: decimal; l_CodVarCode: UnicodeString; l_CountOfEuroPal: Integer; l_CrgManId: Integer; l_CustRef: UnicodeString; l_DCOD: UnicodeString; l_DeliveryTerms: UnicodeString; l_DelivTimeFrom: UnicodeString; l_DelivTimeTo: UnicodeString; l_DocBack: boolean; l_Email: UnicodeString; l_ErrorCode: Integer; l_ErrorMessage: UnicodeString; l_EurBack: boolean; l_GoodsDesc: UnicodeString; l_IdPri: UnicodeString; l_Insurance: UnicodeString; l_InsuranceValue: Integer; l_LatePickup: boolean; l_Note: UnicodeString; l_OutWorkTime: boolean; l_OutWorkTimePickup: boolean; l_PackageIdPPL: UnicodeString; l_PackageItems: ArrayOfPPLSprintItem; l_PackageType: Integer; l_PayOnDelivery: boolean; l_PickupDate: DateTime; l_PickupTimeFrom: UnicodeString; l_PickupTimeTo: UnicodeString; l_POD: boolean; l_RecCity: UnicodeString; l_RecContact: UnicodeString; l_RecName: UnicodeString; l_RecOrgId: UnicodeString; l_RecOrgVatId: UnicodeString; l_RecPhone: UnicodeString; l_RecStreet: UnicodeString; l_RecZipCode: UnicodeString; l_SaturdayDeliv: boolean; l_SendCity: UnicodeString; l_SendContact: UnicodeString; l_SendName: UnicodeString; l_SendOrgId: UnicodeString; l_SendOrgVatId: UnicodeString; l_SendPhone: UnicodeString; l_SendStreet: UnicodeString; l_SendZipCode: UnicodeString; l_SpecSymbol: UnicodeString; l_Stock: boolean; l_ThirdDeliv: boolean; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(PPLSprint); l_PackageIdPPL := PackageIdPPL; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('PackageIdPPL', l_PackageIdPPL); {$ELSE} TROSerializer(ASerializer).WriteWideString('PackageIdPPL', l_PackageIdPPL); {$ENDIF} l_DCOD := DCOD; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DCOD', l_DCOD); {$ELSE} TROSerializer(ASerializer).WriteWideString('DCOD', l_DCOD); {$ENDIF} l_PackageType := PackageType; TROSerializer(ASerializer).WriteInteger('PackageType', otSLong, l_PackageType); l_PickupDate := PickupDate; TROSerializer(ASerializer).WriteDateTime('PickupDate', l_PickupDate); l_PickupTimeFrom := PickupTimeFrom; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('PickupTimeFrom', l_PickupTimeFrom); {$ELSE} TROSerializer(ASerializer).WriteWideString('PickupTimeFrom', l_PickupTimeFrom); {$ENDIF} l_PickupTimeTo := PickupTimeTo; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('PickupTimeTo', l_PickupTimeTo); {$ELSE} TROSerializer(ASerializer).WriteWideString('PickupTimeTo', l_PickupTimeTo); {$ENDIF} l_DelivTimeFrom := DelivTimeFrom; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DelivTimeFrom', l_DelivTimeFrom); {$ELSE} TROSerializer(ASerializer).WriteWideString('DelivTimeFrom', l_DelivTimeFrom); {$ENDIF} l_DelivTimeTo := DelivTimeTo; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DelivTimeTo', l_DelivTimeTo); {$ELSE} TROSerializer(ASerializer).WriteWideString('DelivTimeTo', l_DelivTimeTo); {$ENDIF} l_CountOfEuroPal := CountOfEuroPal; TROSerializer(ASerializer).WriteInteger('CountOfEuroPal', otSLong, l_CountOfEuroPal); l_DeliveryTerms := DeliveryTerms; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DeliveryTerms', l_DeliveryTerms); {$ELSE} TROSerializer(ASerializer).WriteWideString('DeliveryTerms', l_DeliveryTerms); {$ENDIF} l_Email := Email; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Email', l_Email); {$ELSE} TROSerializer(ASerializer).WriteWideString('Email', l_Email); {$ENDIF} l_GoodsDesc := GoodsDesc; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('GoodsDesc', l_GoodsDesc); {$ELSE} TROSerializer(ASerializer).WriteWideString('GoodsDesc', l_GoodsDesc); {$ENDIF} l_Note := Note; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Note', l_Note); {$ELSE} TROSerializer(ASerializer).WriteWideString('Note', l_Note); {$ENDIF} l_CustRef := CustRef; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('CustRef', l_CustRef); {$ELSE} TROSerializer(ASerializer).WriteWideString('CustRef', l_CustRef); {$ENDIF} l_Insurance := Insurance; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Insurance', l_Insurance); {$ELSE} TROSerializer(ASerializer).WriteWideString('Insurance', l_Insurance); {$ENDIF} l_InsuranceValue := InsuranceValue; TROSerializer(ASerializer).WriteInteger('InsuranceValue', otSLong, l_InsuranceValue); l_CodValue := CodValue; TROSerializer(ASerializer).WriteDecimal('CodValue', l_CodValue); l_CodVarCode := CodVarCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('CodVarCode', l_CodVarCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('CodVarCode', l_CodVarCode); {$ENDIF} l_SendName := SendName; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendName', l_SendName); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendName', l_SendName); {$ENDIF} l_SendStreet := SendStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendStreet', l_SendStreet); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendStreet', l_SendStreet); {$ENDIF} l_SendCity := SendCity; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendCity', l_SendCity); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendCity', l_SendCity); {$ENDIF} l_SendZipCode := SendZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendZipCode', l_SendZipCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendZipCode', l_SendZipCode); {$ENDIF} l_SendContact := SendContact; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendContact', l_SendContact); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendContact', l_SendContact); {$ENDIF} l_SendPhone := SendPhone; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendPhone', l_SendPhone); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendPhone', l_SendPhone); {$ENDIF} l_SendOrgId := SendOrgId; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendOrgId', l_SendOrgId); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendOrgId', l_SendOrgId); {$ENDIF} l_SendOrgVatId := SendOrgVatId; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendOrgVatId', l_SendOrgVatId); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendOrgVatId', l_SendOrgVatId); {$ENDIF} l_RecName := RecName; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecName', l_RecName); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecName', l_RecName); {$ENDIF} l_RecStreet := RecStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecStreet', l_RecStreet); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecStreet', l_RecStreet); {$ENDIF} l_RecCity := RecCity; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecCity', l_RecCity); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecCity', l_RecCity); {$ENDIF} l_RecZipCode := RecZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecZipCode', l_RecZipCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecZipCode', l_RecZipCode); {$ENDIF} l_RecContact := RecContact; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecContact', l_RecContact); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecContact', l_RecContact); {$ENDIF} l_RecPhone := RecPhone; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecPhone', l_RecPhone); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecPhone', l_RecPhone); {$ENDIF} l_RecOrgId := RecOrgId; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecOrgId', l_RecOrgId); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecOrgId', l_RecOrgId); {$ENDIF} l_RecOrgVatId := RecOrgVatId; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecOrgVatId', l_RecOrgVatId); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecOrgVatId', l_RecOrgVatId); {$ENDIF} l_EurBack := EurBack; TROSerializer(ASerializer).WriteEnumerated('EurBack',TypeInfo(boolean), l_EurBack); l_LatePickup := LatePickup; TROSerializer(ASerializer).WriteEnumerated('LatePickup',TypeInfo(boolean), l_LatePickup); l_Stock := Stock; TROSerializer(ASerializer).WriteEnumerated('Stock',TypeInfo(boolean), l_Stock); l_ThirdDeliv := ThirdDeliv; TROSerializer(ASerializer).WriteEnumerated('ThirdDeliv',TypeInfo(boolean), l_ThirdDeliv); l_POD := POD; TROSerializer(ASerializer).WriteEnumerated('POD',TypeInfo(boolean), l_POD); l_SaturdayDeliv := SaturdayDeliv; TROSerializer(ASerializer).WriteEnumerated('SaturdayDeliv',TypeInfo(boolean), l_SaturdayDeliv); l_OutWorkTime := OutWorkTime; TROSerializer(ASerializer).WriteEnumerated('OutWorkTime',TypeInfo(boolean), l_OutWorkTime); l_OutWorkTimePickup := OutWorkTimePickup; TROSerializer(ASerializer).WriteEnumerated('OutWorkTimePickup',TypeInfo(boolean), l_OutWorkTimePickup); l_CrgManId := CrgManId; TROSerializer(ASerializer).WriteInteger('CrgManId', otSLong, l_CrgManId); l_PayOnDelivery := PayOnDelivery; TROSerializer(ASerializer).WriteEnumerated('PayOnDelivery',TypeInfo(boolean), l_PayOnDelivery); l_DocBack := DocBack; TROSerializer(ASerializer).WriteEnumerated('DocBack',TypeInfo(boolean), l_DocBack); l_ADR := ADR; TROSerializer(ASerializer).WriteEnumerated('ADR',TypeInfo(boolean), l_ADR); l_IdPri := IdPri; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('IdPri', l_IdPri); {$ELSE} TROSerializer(ASerializer).WriteWideString('IdPri', l_IdPri); {$ENDIF} l_Account := Account; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Account', l_Account); {$ELSE} TROSerializer(ASerializer).WriteWideString('Account', l_Account); {$ENDIF} l_BankCode := BankCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('BankCode', l_BankCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('BankCode', l_BankCode); {$ENDIF} l_SpecSymbol := SpecSymbol; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SpecSymbol', l_SpecSymbol); {$ELSE} TROSerializer(ASerializer).WriteWideString('SpecSymbol', l_SpecSymbol); {$ENDIF} l_PackageItems := int_PackageItems; TROSerializer(ASerializer).WriteArray('PackageItems', l_PackageItems, ArrayOfPPLSprintItem); l_ErrorCode := ErrorCode; TROSerializer(ASerializer).WriteInteger('ErrorCode', otSLong, l_ErrorCode); l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).WriteWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} end else begin l_Account := Account; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Account', l_Account); {$ELSE} TROSerializer(ASerializer).WriteWideString('Account', l_Account); {$ENDIF} l_ADR := ADR; TROSerializer(ASerializer).WriteEnumerated('ADR',TypeInfo(boolean), l_ADR); l_BankCode := BankCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('BankCode', l_BankCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('BankCode', l_BankCode); {$ENDIF} l_CodValue := CodValue; TROSerializer(ASerializer).WriteDecimal('CodValue', l_CodValue); l_CodVarCode := CodVarCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('CodVarCode', l_CodVarCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('CodVarCode', l_CodVarCode); {$ENDIF} l_CountOfEuroPal := CountOfEuroPal; TROSerializer(ASerializer).WriteInteger('CountOfEuroPal', otSLong, l_CountOfEuroPal); l_CrgManId := CrgManId; TROSerializer(ASerializer).WriteInteger('CrgManId', otSLong, l_CrgManId); l_CustRef := CustRef; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('CustRef', l_CustRef); {$ELSE} TROSerializer(ASerializer).WriteWideString('CustRef', l_CustRef); {$ENDIF} l_DCOD := DCOD; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DCOD', l_DCOD); {$ELSE} TROSerializer(ASerializer).WriteWideString('DCOD', l_DCOD); {$ENDIF} l_DeliveryTerms := DeliveryTerms; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DeliveryTerms', l_DeliveryTerms); {$ELSE} TROSerializer(ASerializer).WriteWideString('DeliveryTerms', l_DeliveryTerms); {$ENDIF} l_DelivTimeFrom := DelivTimeFrom; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DelivTimeFrom', l_DelivTimeFrom); {$ELSE} TROSerializer(ASerializer).WriteWideString('DelivTimeFrom', l_DelivTimeFrom); {$ENDIF} l_DelivTimeTo := DelivTimeTo; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DelivTimeTo', l_DelivTimeTo); {$ELSE} TROSerializer(ASerializer).WriteWideString('DelivTimeTo', l_DelivTimeTo); {$ENDIF} l_DocBack := DocBack; TROSerializer(ASerializer).WriteEnumerated('DocBack',TypeInfo(boolean), l_DocBack); l_Email := Email; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Email', l_Email); {$ELSE} TROSerializer(ASerializer).WriteWideString('Email', l_Email); {$ENDIF} l_ErrorCode := ErrorCode; TROSerializer(ASerializer).WriteInteger('ErrorCode', otSLong, l_ErrorCode); l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).WriteWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} l_EurBack := EurBack; TROSerializer(ASerializer).WriteEnumerated('EurBack',TypeInfo(boolean), l_EurBack); l_GoodsDesc := GoodsDesc; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('GoodsDesc', l_GoodsDesc); {$ELSE} TROSerializer(ASerializer).WriteWideString('GoodsDesc', l_GoodsDesc); {$ENDIF} l_IdPri := IdPri; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('IdPri', l_IdPri); {$ELSE} TROSerializer(ASerializer).WriteWideString('IdPri', l_IdPri); {$ENDIF} l_Insurance := Insurance; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Insurance', l_Insurance); {$ELSE} TROSerializer(ASerializer).WriteWideString('Insurance', l_Insurance); {$ENDIF} l_InsuranceValue := InsuranceValue; TROSerializer(ASerializer).WriteInteger('InsuranceValue', otSLong, l_InsuranceValue); l_LatePickup := LatePickup; TROSerializer(ASerializer).WriteEnumerated('LatePickup',TypeInfo(boolean), l_LatePickup); l_Note := Note; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Note', l_Note); {$ELSE} TROSerializer(ASerializer).WriteWideString('Note', l_Note); {$ENDIF} l_OutWorkTime := OutWorkTime; TROSerializer(ASerializer).WriteEnumerated('OutWorkTime',TypeInfo(boolean), l_OutWorkTime); l_OutWorkTimePickup := OutWorkTimePickup; TROSerializer(ASerializer).WriteEnumerated('OutWorkTimePickup',TypeInfo(boolean), l_OutWorkTimePickup); l_PackageIdPPL := PackageIdPPL; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('PackageIdPPL', l_PackageIdPPL); {$ELSE} TROSerializer(ASerializer).WriteWideString('PackageIdPPL', l_PackageIdPPL); {$ENDIF} l_PackageItems := int_PackageItems; TROSerializer(ASerializer).WriteArray('PackageItems', l_PackageItems, ArrayOfPPLSprintItem); l_PackageType := PackageType; TROSerializer(ASerializer).WriteInteger('PackageType', otSLong, l_PackageType); l_PayOnDelivery := PayOnDelivery; TROSerializer(ASerializer).WriteEnumerated('PayOnDelivery',TypeInfo(boolean), l_PayOnDelivery); l_PickupDate := PickupDate; TROSerializer(ASerializer).WriteDateTime('PickupDate', l_PickupDate); l_PickupTimeFrom := PickupTimeFrom; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('PickupTimeFrom', l_PickupTimeFrom); {$ELSE} TROSerializer(ASerializer).WriteWideString('PickupTimeFrom', l_PickupTimeFrom); {$ENDIF} l_PickupTimeTo := PickupTimeTo; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('PickupTimeTo', l_PickupTimeTo); {$ELSE} TROSerializer(ASerializer).WriteWideString('PickupTimeTo', l_PickupTimeTo); {$ENDIF} l_POD := POD; TROSerializer(ASerializer).WriteEnumerated('POD',TypeInfo(boolean), l_POD); l_RecCity := RecCity; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecCity', l_RecCity); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecCity', l_RecCity); {$ENDIF} l_RecContact := RecContact; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecContact', l_RecContact); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecContact', l_RecContact); {$ENDIF} l_RecName := RecName; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecName', l_RecName); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecName', l_RecName); {$ENDIF} l_RecOrgId := RecOrgId; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecOrgId', l_RecOrgId); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecOrgId', l_RecOrgId); {$ENDIF} l_RecOrgVatId := RecOrgVatId; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecOrgVatId', l_RecOrgVatId); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecOrgVatId', l_RecOrgVatId); {$ENDIF} l_RecPhone := RecPhone; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecPhone', l_RecPhone); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecPhone', l_RecPhone); {$ENDIF} l_RecStreet := RecStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecStreet', l_RecStreet); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecStreet', l_RecStreet); {$ENDIF} l_RecZipCode := RecZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecZipCode', l_RecZipCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecZipCode', l_RecZipCode); {$ENDIF} l_SaturdayDeliv := SaturdayDeliv; TROSerializer(ASerializer).WriteEnumerated('SaturdayDeliv',TypeInfo(boolean), l_SaturdayDeliv); l_SendCity := SendCity; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendCity', l_SendCity); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendCity', l_SendCity); {$ENDIF} l_SendContact := SendContact; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendContact', l_SendContact); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendContact', l_SendContact); {$ENDIF} l_SendName := SendName; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendName', l_SendName); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendName', l_SendName); {$ENDIF} l_SendOrgId := SendOrgId; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendOrgId', l_SendOrgId); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendOrgId', l_SendOrgId); {$ENDIF} l_SendOrgVatId := SendOrgVatId; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendOrgVatId', l_SendOrgVatId); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendOrgVatId', l_SendOrgVatId); {$ENDIF} l_SendPhone := SendPhone; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendPhone', l_SendPhone); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendPhone', l_SendPhone); {$ENDIF} l_SendStreet := SendStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendStreet', l_SendStreet); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendStreet', l_SendStreet); {$ENDIF} l_SendZipCode := SendZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendZipCode', l_SendZipCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendZipCode', l_SendZipCode); {$ENDIF} l_SpecSymbol := SpecSymbol; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SpecSymbol', l_SpecSymbol); {$ELSE} TROSerializer(ASerializer).WriteWideString('SpecSymbol', l_SpecSymbol); {$ENDIF} l_Stock := Stock; TROSerializer(ASerializer).WriteEnumerated('Stock',TypeInfo(boolean), l_Stock); l_ThirdDeliv := ThirdDeliv; TROSerializer(ASerializer).WriteEnumerated('ThirdDeliv',TypeInfo(boolean), l_ThirdDeliv); end; end; { PPLSprintCollection } constructor PPLSprintCollection.Create; begin inherited Create(PPLSprint); end; constructor PPLSprintCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function PPLSprintCollection.Add: PPLSprint; begin result := PPLSprint(inherited Add); end; function PPLSprintCollection.GetItems(aIndex: integer): PPLSprint; begin result := PPLSprint(inherited Items[aIndex]); end; procedure PPLSprintCollection.SetItems(aIndex: integer; const Value: PPLSprint); begin PPLSprint(inherited Items[aIndex]).Assign(Value); end; { PPLSprintItem } class function PPLSprintItem.GetAttributeCount: Integer; begin result := 1; end; class function PPLSprintItem.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function PPLSprintItem.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure PPLSprintItem.Assign(iSource: TPersistent); var lSource: libPPL_Intf.PPLSprintItem; begin inherited Assign(iSource); if (iSource is libPPL_Intf.PPLSprintItem) then begin lSource := libPPL_Intf.PPLSprintItem(iSource); LPNumber := lSource.LPNumber; CaseDescription := lSource.CaseDescription; Weight := lSource.Weight; Length := lSource.Length; Height := lSource.Height; Width := lSource.Width; end; end; procedure PPLSprintItem.ReadComplex(ASerializer: TObject); var l_CaseDescription: UnicodeString; l_Height: Integer; l_Length: Integer; l_LPNumber: UnicodeString; l_Weight: decimal; l_Width: Integer; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_LPNumber := LPNumber; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('LPNumber', l_LPNumber); {$ELSE} TROSerializer(ASerializer).ReadWideString('LPNumber', l_LPNumber); {$ENDIF} LPNumber := l_LPNumber; l_CaseDescription := CaseDescription; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('CaseDescription', l_CaseDescription); {$ELSE} TROSerializer(ASerializer).ReadWideString('CaseDescription', l_CaseDescription); {$ENDIF} CaseDescription := l_CaseDescription; l_Weight := Weight; TROSerializer(ASerializer).ReadDecimal('Weight', l_Weight); Weight := l_Weight; l_Length := Length; TROSerializer(ASerializer).ReadInteger('Length', otSLong, l_Length); Length := l_Length; l_Height := Height; TROSerializer(ASerializer).ReadInteger('Height', otSLong, l_Height); Height := l_Height; l_Width := Width; TROSerializer(ASerializer).ReadInteger('Width', otSLong, l_Width); Width := l_Width; end else begin l_CaseDescription := CaseDescription; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('CaseDescription', l_CaseDescription); {$ELSE} TROSerializer(ASerializer).ReadWideString('CaseDescription', l_CaseDescription); {$ENDIF} CaseDescription := l_CaseDescription; l_Height := Height; TROSerializer(ASerializer).ReadInteger('Height', otSLong, l_Height); Height := l_Height; l_Length := Length; TROSerializer(ASerializer).ReadInteger('Length', otSLong, l_Length); Length := l_Length; l_LPNumber := LPNumber; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('LPNumber', l_LPNumber); {$ELSE} TROSerializer(ASerializer).ReadWideString('LPNumber', l_LPNumber); {$ENDIF} LPNumber := l_LPNumber; l_Weight := Weight; TROSerializer(ASerializer).ReadDecimal('Weight', l_Weight); Weight := l_Weight; l_Width := Width; TROSerializer(ASerializer).ReadInteger('Width', otSLong, l_Width); Width := l_Width; end; end; procedure PPLSprintItem.WriteComplex(ASerializer: TObject); var l_CaseDescription: UnicodeString; l_Height: Integer; l_Length: Integer; l_LPNumber: UnicodeString; l_Weight: decimal; l_Width: Integer; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(PPLSprintItem); l_LPNumber := LPNumber; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('LPNumber', l_LPNumber); {$ELSE} TROSerializer(ASerializer).WriteWideString('LPNumber', l_LPNumber); {$ENDIF} l_CaseDescription := CaseDescription; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('CaseDescription', l_CaseDescription); {$ELSE} TROSerializer(ASerializer).WriteWideString('CaseDescription', l_CaseDescription); {$ENDIF} l_Weight := Weight; TROSerializer(ASerializer).WriteDecimal('Weight', l_Weight); l_Length := Length; TROSerializer(ASerializer).WriteInteger('Length', otSLong, l_Length); l_Height := Height; TROSerializer(ASerializer).WriteInteger('Height', otSLong, l_Height); l_Width := Width; TROSerializer(ASerializer).WriteInteger('Width', otSLong, l_Width); end else begin l_CaseDescription := CaseDescription; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('CaseDescription', l_CaseDescription); {$ELSE} TROSerializer(ASerializer).WriteWideString('CaseDescription', l_CaseDescription); {$ENDIF} l_Height := Height; TROSerializer(ASerializer).WriteInteger('Height', otSLong, l_Height); l_Length := Length; TROSerializer(ASerializer).WriteInteger('Length', otSLong, l_Length); l_LPNumber := LPNumber; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('LPNumber', l_LPNumber); {$ELSE} TROSerializer(ASerializer).WriteWideString('LPNumber', l_LPNumber); {$ENDIF} l_Weight := Weight; TROSerializer(ASerializer).WriteDecimal('Weight', l_Weight); l_Width := Width; TROSerializer(ASerializer).WriteInteger('Width', otSLong, l_Width); end; end; { PPLSprintItemCollection } constructor PPLSprintItemCollection.Create; begin inherited Create(PPLSprintItem); end; constructor PPLSprintItemCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function PPLSprintItemCollection.Add: PPLSprintItem; begin result := PPLSprintItem(inherited Add); end; function PPLSprintItemCollection.GetItems(aIndex: integer): PPLSprintItem; begin result := PPLSprintItem(inherited Items[aIndex]); end; procedure PPLSprintItemCollection.LoadFromArray(anArray: ArrayOfPPLSprintItem); var i : integer; begin Clear; for i := 0 to (anArray.Count-1) do if anArray[i] <> nil then anArray[i].Clone.Collection := Self; end; procedure PPLSprintItemCollection.SaveToArray(anArray: ArrayOfPPLSprintItem); var i : integer; begin anArray.Clear; for i := 0 to (Count-1) do begin if Assigned(Items[i]) then anArray.Add(PPLSprintItem(Items[i].Clone)) else anArray.Add(nil); end; end; procedure PPLSprintItemCollection.SetItems(aIndex: integer; const Value: PPLSprintItem); begin PPLSprintItem(inherited Items[aIndex]).Assign(Value); end; { PackageToList } class function PackageToList.GetAttributeCount: Integer; begin result := 1; end; class function PackageToList.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function PackageToList.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure PackageToList.Assign(iSource: TPersistent); var lSource: libPPL_Intf.PackageToList; begin inherited Assign(iSource); if (iSource is libPPL_Intf.PackageToList) then begin lSource := libPPL_Intf.PackageToList(iSource); PackageID := lSource.PackageID; Weight := lSource.Weight; ToDelivDate := lSource.ToDelivDate; RecName := lSource.RecName; RecStreet := lSource.RecStreet; RecCity := lSource.RecCity; RecZipCode := lSource.RecZipCode; Cod := lSource.Cod; CodPrice := lSource.CodPrice; end; end; procedure PackageToList.ReadComplex(ASerializer: TObject); var l_Cod: UnicodeString; l_CodPrice: decimal; l_PackageID: UnicodeString; l_RecCity: UnicodeString; l_RecName: UnicodeString; l_RecStreet: UnicodeString; l_RecZipCode: UnicodeString; l_ToDelivDate: UnicodeString; l_Weight: decimal; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_PackageID := PackageID; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('PackageID', l_PackageID); {$ELSE} TROSerializer(ASerializer).ReadWideString('PackageID', l_PackageID); {$ENDIF} PackageID := l_PackageID; l_Weight := Weight; TROSerializer(ASerializer).ReadDecimal('Weight', l_Weight); Weight := l_Weight; l_ToDelivDate := ToDelivDate; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ToDelivDate', l_ToDelivDate); {$ELSE} TROSerializer(ASerializer).ReadWideString('ToDelivDate', l_ToDelivDate); {$ENDIF} ToDelivDate := l_ToDelivDate; l_RecName := RecName; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecName', l_RecName); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecName', l_RecName); {$ENDIF} RecName := l_RecName; l_RecStreet := RecStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecStreet', l_RecStreet); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecStreet', l_RecStreet); {$ENDIF} RecStreet := l_RecStreet; l_RecCity := RecCity; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecCity', l_RecCity); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecCity', l_RecCity); {$ENDIF} RecCity := l_RecCity; l_RecZipCode := RecZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecZipCode', l_RecZipCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecZipCode', l_RecZipCode); {$ENDIF} RecZipCode := l_RecZipCode; l_Cod := Cod; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Cod', l_Cod); {$ELSE} TROSerializer(ASerializer).ReadWideString('Cod', l_Cod); {$ENDIF} Cod := l_Cod; l_CodPrice := CodPrice; TROSerializer(ASerializer).ReadDecimal('CodPrice', l_CodPrice); CodPrice := l_CodPrice; end else begin l_Cod := Cod; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Cod', l_Cod); {$ELSE} TROSerializer(ASerializer).ReadWideString('Cod', l_Cod); {$ENDIF} Cod := l_Cod; l_CodPrice := CodPrice; TROSerializer(ASerializer).ReadDecimal('CodPrice', l_CodPrice); CodPrice := l_CodPrice; l_PackageID := PackageID; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('PackageID', l_PackageID); {$ELSE} TROSerializer(ASerializer).ReadWideString('PackageID', l_PackageID); {$ENDIF} PackageID := l_PackageID; l_RecCity := RecCity; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecCity', l_RecCity); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecCity', l_RecCity); {$ENDIF} RecCity := l_RecCity; l_RecName := RecName; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecName', l_RecName); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecName', l_RecName); {$ENDIF} RecName := l_RecName; l_RecStreet := RecStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecStreet', l_RecStreet); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecStreet', l_RecStreet); {$ENDIF} RecStreet := l_RecStreet; l_RecZipCode := RecZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecZipCode', l_RecZipCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecZipCode', l_RecZipCode); {$ENDIF} RecZipCode := l_RecZipCode; l_ToDelivDate := ToDelivDate; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ToDelivDate', l_ToDelivDate); {$ELSE} TROSerializer(ASerializer).ReadWideString('ToDelivDate', l_ToDelivDate); {$ENDIF} ToDelivDate := l_ToDelivDate; l_Weight := Weight; TROSerializer(ASerializer).ReadDecimal('Weight', l_Weight); Weight := l_Weight; end; end; procedure PackageToList.WriteComplex(ASerializer: TObject); var l_Cod: UnicodeString; l_CodPrice: decimal; l_PackageID: UnicodeString; l_RecCity: UnicodeString; l_RecName: UnicodeString; l_RecStreet: UnicodeString; l_RecZipCode: UnicodeString; l_ToDelivDate: UnicodeString; l_Weight: decimal; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(PackageToList); l_PackageID := PackageID; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('PackageID', l_PackageID); {$ELSE} TROSerializer(ASerializer).WriteWideString('PackageID', l_PackageID); {$ENDIF} l_Weight := Weight; TROSerializer(ASerializer).WriteDecimal('Weight', l_Weight); l_ToDelivDate := ToDelivDate; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ToDelivDate', l_ToDelivDate); {$ELSE} TROSerializer(ASerializer).WriteWideString('ToDelivDate', l_ToDelivDate); {$ENDIF} l_RecName := RecName; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecName', l_RecName); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecName', l_RecName); {$ENDIF} l_RecStreet := RecStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecStreet', l_RecStreet); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecStreet', l_RecStreet); {$ENDIF} l_RecCity := RecCity; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecCity', l_RecCity); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecCity', l_RecCity); {$ENDIF} l_RecZipCode := RecZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecZipCode', l_RecZipCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecZipCode', l_RecZipCode); {$ENDIF} l_Cod := Cod; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Cod', l_Cod); {$ELSE} TROSerializer(ASerializer).WriteWideString('Cod', l_Cod); {$ENDIF} l_CodPrice := CodPrice; TROSerializer(ASerializer).WriteDecimal('CodPrice', l_CodPrice); end else begin l_Cod := Cod; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Cod', l_Cod); {$ELSE} TROSerializer(ASerializer).WriteWideString('Cod', l_Cod); {$ENDIF} l_CodPrice := CodPrice; TROSerializer(ASerializer).WriteDecimal('CodPrice', l_CodPrice); l_PackageID := PackageID; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('PackageID', l_PackageID); {$ELSE} TROSerializer(ASerializer).WriteWideString('PackageID', l_PackageID); {$ENDIF} l_RecCity := RecCity; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecCity', l_RecCity); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecCity', l_RecCity); {$ENDIF} l_RecName := RecName; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecName', l_RecName); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecName', l_RecName); {$ENDIF} l_RecStreet := RecStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecStreet', l_RecStreet); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecStreet', l_RecStreet); {$ENDIF} l_RecZipCode := RecZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecZipCode', l_RecZipCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecZipCode', l_RecZipCode); {$ENDIF} l_ToDelivDate := ToDelivDate; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ToDelivDate', l_ToDelivDate); {$ELSE} TROSerializer(ASerializer).WriteWideString('ToDelivDate', l_ToDelivDate); {$ENDIF} l_Weight := Weight; TROSerializer(ASerializer).WriteDecimal('Weight', l_Weight); end; end; { PackageToListCollection } constructor PackageToListCollection.Create; begin inherited Create(PackageToList); end; constructor PackageToListCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function PackageToListCollection.Add: PackageToList; begin result := PackageToList(inherited Add); end; function PackageToListCollection.GetItems(aIndex: integer): PackageToList; begin result := PackageToList(inherited Items[aIndex]); end; procedure PackageToListCollection.SetItems(aIndex: integer; const Value: PackageToList); begin PackageToList(inherited Items[aIndex]).Assign(Value); end; { PackageHoffmann } class function PackageHoffmann.GetAttributeCount: Integer; begin result := 1; end; class function PackageHoffmann.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function PackageHoffmann.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure PackageHoffmann.Assign(iSource: TPersistent); var lSource: libPPL_Intf.PackageHoffmann; begin inherited Assign(iSource); if (iSource is libPPL_Intf.PackageHoffmann) then begin lSource := libPPL_Intf.PackageHoffmann(iSource); PackageID := lSource.PackageID; field_ZipCode := lSource.field_ZipCode; Weight := lSource.Weight; Country := lSource.Country; Price := lSource.Price; ConsigneeName1 := lSource.ConsigneeName1; ConsigneeName2 := lSource.ConsigneeName2; ConsigneeName3 := lSource.ConsigneeName3; ConsigneeName4 := lSource.ConsigneeName4; ConsigneeStreet := lSource.ConsigneeStreet; ConsigneeCity := lSource.ConsigneeCity; VarSym := lSource.VarSym; Phone := lSource.Phone; ErrorCode := lSource.ErrorCode; ErrorMessage := lSource.ErrorMessage; end; end; procedure PackageHoffmann.ReadComplex(ASerializer: TObject); var l_ConsigneeCity: UnicodeString; l_ConsigneeName1: UnicodeString; l_ConsigneeName2: UnicodeString; l_ConsigneeName3: UnicodeString; l_ConsigneeName4: UnicodeString; l_ConsigneeStreet: UnicodeString; l_Country: UnicodeString; l_ErrorCode: Integer; l_ErrorMessage: UnicodeString; l_field_ZipCode: UnicodeString; l_PackageID: UnicodeString; l_Phone: UnicodeString; l_Price: decimal; l_VarSym: UnicodeString; l_Weight: decimal; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_PackageID := PackageID; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('PackageID', l_PackageID); {$ELSE} TROSerializer(ASerializer).ReadWideString('PackageID', l_PackageID); {$ENDIF} PackageID := l_PackageID; l_field_ZipCode := field_ZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('field_ZipCode', l_field_ZipCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('field_ZipCode', l_field_ZipCode); {$ENDIF} field_ZipCode := l_field_ZipCode; l_Weight := Weight; TROSerializer(ASerializer).ReadDecimal('Weight', l_Weight); Weight := l_Weight; l_Country := Country; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Country', l_Country); {$ELSE} TROSerializer(ASerializer).ReadWideString('Country', l_Country); {$ENDIF} Country := l_Country; l_Price := Price; TROSerializer(ASerializer).ReadDecimal('Price', l_Price); Price := l_Price; l_ConsigneeName1 := ConsigneeName1; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ConsigneeName1', l_ConsigneeName1); {$ELSE} TROSerializer(ASerializer).ReadWideString('ConsigneeName1', l_ConsigneeName1); {$ENDIF} ConsigneeName1 := l_ConsigneeName1; l_ConsigneeName2 := ConsigneeName2; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ConsigneeName2', l_ConsigneeName2); {$ELSE} TROSerializer(ASerializer).ReadWideString('ConsigneeName2', l_ConsigneeName2); {$ENDIF} ConsigneeName2 := l_ConsigneeName2; l_ConsigneeName3 := ConsigneeName3; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ConsigneeName3', l_ConsigneeName3); {$ELSE} TROSerializer(ASerializer).ReadWideString('ConsigneeName3', l_ConsigneeName3); {$ENDIF} ConsigneeName3 := l_ConsigneeName3; l_ConsigneeName4 := ConsigneeName4; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ConsigneeName4', l_ConsigneeName4); {$ELSE} TROSerializer(ASerializer).ReadWideString('ConsigneeName4', l_ConsigneeName4); {$ENDIF} ConsigneeName4 := l_ConsigneeName4; l_ConsigneeStreet := ConsigneeStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ConsigneeStreet', l_ConsigneeStreet); {$ELSE} TROSerializer(ASerializer).ReadWideString('ConsigneeStreet', l_ConsigneeStreet); {$ENDIF} ConsigneeStreet := l_ConsigneeStreet; l_ConsigneeCity := ConsigneeCity; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ConsigneeCity', l_ConsigneeCity); {$ELSE} TROSerializer(ASerializer).ReadWideString('ConsigneeCity', l_ConsigneeCity); {$ENDIF} ConsigneeCity := l_ConsigneeCity; l_VarSym := VarSym; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('VarSym', l_VarSym); {$ELSE} TROSerializer(ASerializer).ReadWideString('VarSym', l_VarSym); {$ENDIF} VarSym := l_VarSym; l_Phone := Phone; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Phone', l_Phone); {$ELSE} TROSerializer(ASerializer).ReadWideString('Phone', l_Phone); {$ENDIF} Phone := l_Phone; l_ErrorCode := ErrorCode; TROSerializer(ASerializer).ReadInteger('ErrorCode', otSLong, l_ErrorCode); ErrorCode := l_ErrorCode; l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).ReadWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} ErrorMessage := l_ErrorMessage; end else begin l_ConsigneeCity := ConsigneeCity; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ConsigneeCity', l_ConsigneeCity); {$ELSE} TROSerializer(ASerializer).ReadWideString('ConsigneeCity', l_ConsigneeCity); {$ENDIF} ConsigneeCity := l_ConsigneeCity; l_ConsigneeName1 := ConsigneeName1; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ConsigneeName1', l_ConsigneeName1); {$ELSE} TROSerializer(ASerializer).ReadWideString('ConsigneeName1', l_ConsigneeName1); {$ENDIF} ConsigneeName1 := l_ConsigneeName1; l_ConsigneeName2 := ConsigneeName2; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ConsigneeName2', l_ConsigneeName2); {$ELSE} TROSerializer(ASerializer).ReadWideString('ConsigneeName2', l_ConsigneeName2); {$ENDIF} ConsigneeName2 := l_ConsigneeName2; l_ConsigneeName3 := ConsigneeName3; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ConsigneeName3', l_ConsigneeName3); {$ELSE} TROSerializer(ASerializer).ReadWideString('ConsigneeName3', l_ConsigneeName3); {$ENDIF} ConsigneeName3 := l_ConsigneeName3; l_ConsigneeName4 := ConsigneeName4; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ConsigneeName4', l_ConsigneeName4); {$ELSE} TROSerializer(ASerializer).ReadWideString('ConsigneeName4', l_ConsigneeName4); {$ENDIF} ConsigneeName4 := l_ConsigneeName4; l_ConsigneeStreet := ConsigneeStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ConsigneeStreet', l_ConsigneeStreet); {$ELSE} TROSerializer(ASerializer).ReadWideString('ConsigneeStreet', l_ConsigneeStreet); {$ENDIF} ConsigneeStreet := l_ConsigneeStreet; l_Country := Country; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Country', l_Country); {$ELSE} TROSerializer(ASerializer).ReadWideString('Country', l_Country); {$ENDIF} Country := l_Country; l_ErrorCode := ErrorCode; TROSerializer(ASerializer).ReadInteger('ErrorCode', otSLong, l_ErrorCode); ErrorCode := l_ErrorCode; l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).ReadWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} ErrorMessage := l_ErrorMessage; l_field_ZipCode := field_ZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('field_ZipCode', l_field_ZipCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('field_ZipCode', l_field_ZipCode); {$ENDIF} field_ZipCode := l_field_ZipCode; l_PackageID := PackageID; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('PackageID', l_PackageID); {$ELSE} TROSerializer(ASerializer).ReadWideString('PackageID', l_PackageID); {$ENDIF} PackageID := l_PackageID; l_Phone := Phone; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Phone', l_Phone); {$ELSE} TROSerializer(ASerializer).ReadWideString('Phone', l_Phone); {$ENDIF} Phone := l_Phone; l_Price := Price; TROSerializer(ASerializer).ReadDecimal('Price', l_Price); Price := l_Price; l_VarSym := VarSym; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('VarSym', l_VarSym); {$ELSE} TROSerializer(ASerializer).ReadWideString('VarSym', l_VarSym); {$ENDIF} VarSym := l_VarSym; l_Weight := Weight; TROSerializer(ASerializer).ReadDecimal('Weight', l_Weight); Weight := l_Weight; end; end; procedure PackageHoffmann.WriteComplex(ASerializer: TObject); var l_ConsigneeCity: UnicodeString; l_ConsigneeName1: UnicodeString; l_ConsigneeName2: UnicodeString; l_ConsigneeName3: UnicodeString; l_ConsigneeName4: UnicodeString; l_ConsigneeStreet: UnicodeString; l_Country: UnicodeString; l_ErrorCode: Integer; l_ErrorMessage: UnicodeString; l_field_ZipCode: UnicodeString; l_PackageID: UnicodeString; l_Phone: UnicodeString; l_Price: decimal; l_VarSym: UnicodeString; l_Weight: decimal; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(PackageHoffmann); l_PackageID := PackageID; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('PackageID', l_PackageID); {$ELSE} TROSerializer(ASerializer).WriteWideString('PackageID', l_PackageID); {$ENDIF} l_field_ZipCode := field_ZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('field_ZipCode', l_field_ZipCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('field_ZipCode', l_field_ZipCode); {$ENDIF} l_Weight := Weight; TROSerializer(ASerializer).WriteDecimal('Weight', l_Weight); l_Country := Country; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Country', l_Country); {$ELSE} TROSerializer(ASerializer).WriteWideString('Country', l_Country); {$ENDIF} l_Price := Price; TROSerializer(ASerializer).WriteDecimal('Price', l_Price); l_ConsigneeName1 := ConsigneeName1; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ConsigneeName1', l_ConsigneeName1); {$ELSE} TROSerializer(ASerializer).WriteWideString('ConsigneeName1', l_ConsigneeName1); {$ENDIF} l_ConsigneeName2 := ConsigneeName2; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ConsigneeName2', l_ConsigneeName2); {$ELSE} TROSerializer(ASerializer).WriteWideString('ConsigneeName2', l_ConsigneeName2); {$ENDIF} l_ConsigneeName3 := ConsigneeName3; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ConsigneeName3', l_ConsigneeName3); {$ELSE} TROSerializer(ASerializer).WriteWideString('ConsigneeName3', l_ConsigneeName3); {$ENDIF} l_ConsigneeName4 := ConsigneeName4; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ConsigneeName4', l_ConsigneeName4); {$ELSE} TROSerializer(ASerializer).WriteWideString('ConsigneeName4', l_ConsigneeName4); {$ENDIF} l_ConsigneeStreet := ConsigneeStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ConsigneeStreet', l_ConsigneeStreet); {$ELSE} TROSerializer(ASerializer).WriteWideString('ConsigneeStreet', l_ConsigneeStreet); {$ENDIF} l_ConsigneeCity := ConsigneeCity; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ConsigneeCity', l_ConsigneeCity); {$ELSE} TROSerializer(ASerializer).WriteWideString('ConsigneeCity', l_ConsigneeCity); {$ENDIF} l_VarSym := VarSym; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('VarSym', l_VarSym); {$ELSE} TROSerializer(ASerializer).WriteWideString('VarSym', l_VarSym); {$ENDIF} l_Phone := Phone; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Phone', l_Phone); {$ELSE} TROSerializer(ASerializer).WriteWideString('Phone', l_Phone); {$ENDIF} l_ErrorCode := ErrorCode; TROSerializer(ASerializer).WriteInteger('ErrorCode', otSLong, l_ErrorCode); l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).WriteWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} end else begin l_ConsigneeCity := ConsigneeCity; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ConsigneeCity', l_ConsigneeCity); {$ELSE} TROSerializer(ASerializer).WriteWideString('ConsigneeCity', l_ConsigneeCity); {$ENDIF} l_ConsigneeName1 := ConsigneeName1; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ConsigneeName1', l_ConsigneeName1); {$ELSE} TROSerializer(ASerializer).WriteWideString('ConsigneeName1', l_ConsigneeName1); {$ENDIF} l_ConsigneeName2 := ConsigneeName2; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ConsigneeName2', l_ConsigneeName2); {$ELSE} TROSerializer(ASerializer).WriteWideString('ConsigneeName2', l_ConsigneeName2); {$ENDIF} l_ConsigneeName3 := ConsigneeName3; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ConsigneeName3', l_ConsigneeName3); {$ELSE} TROSerializer(ASerializer).WriteWideString('ConsigneeName3', l_ConsigneeName3); {$ENDIF} l_ConsigneeName4 := ConsigneeName4; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ConsigneeName4', l_ConsigneeName4); {$ELSE} TROSerializer(ASerializer).WriteWideString('ConsigneeName4', l_ConsigneeName4); {$ENDIF} l_ConsigneeStreet := ConsigneeStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ConsigneeStreet', l_ConsigneeStreet); {$ELSE} TROSerializer(ASerializer).WriteWideString('ConsigneeStreet', l_ConsigneeStreet); {$ENDIF} l_Country := Country; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Country', l_Country); {$ELSE} TROSerializer(ASerializer).WriteWideString('Country', l_Country); {$ENDIF} l_ErrorCode := ErrorCode; TROSerializer(ASerializer).WriteInteger('ErrorCode', otSLong, l_ErrorCode); l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).WriteWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} l_field_ZipCode := field_ZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('field_ZipCode', l_field_ZipCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('field_ZipCode', l_field_ZipCode); {$ENDIF} l_PackageID := PackageID; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('PackageID', l_PackageID); {$ELSE} TROSerializer(ASerializer).WriteWideString('PackageID', l_PackageID); {$ENDIF} l_Phone := Phone; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Phone', l_Phone); {$ELSE} TROSerializer(ASerializer).WriteWideString('Phone', l_Phone); {$ENDIF} l_Price := Price; TROSerializer(ASerializer).WriteDecimal('Price', l_Price); l_VarSym := VarSym; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('VarSym', l_VarSym); {$ELSE} TROSerializer(ASerializer).WriteWideString('VarSym', l_VarSym); {$ENDIF} l_Weight := Weight; TROSerializer(ASerializer).WriteDecimal('Weight', l_Weight); end; end; { PackageHoffmannCollection } constructor PackageHoffmannCollection.Create; begin inherited Create(PackageHoffmann); end; constructor PackageHoffmannCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function PackageHoffmannCollection.Add: PackageHoffmann; begin result := PackageHoffmann(inherited Add); end; function PackageHoffmannCollection.GetItems(aIndex: integer): PackageHoffmann; begin result := PackageHoffmann(inherited Items[aIndex]); end; procedure PackageHoffmannCollection.SetItems(aIndex: integer; const Value: PackageHoffmann); begin PackageHoffmann(inherited Items[aIndex]).Assign(Value); end; { City } class function City.GetAttributeCount: Integer; begin result := 1; end; class function City.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function City.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure City.Assign(iSource: TPersistent); var lSource: libPPL_Intf.City; begin inherited Assign(iSource); if (iSource is libPPL_Intf.City) then begin lSource := libPPL_Intf.City(iSource); Zip := lSource.Zip; field_City := lSource.field_City; Region := lSource.Region; Post := lSource.Post; Country := lSource.Country; Reject := lSource.Reject; end; end; procedure City.ReadComplex(ASerializer: TObject); var l_Country: UnicodeString; l_field_City: UnicodeString; l_Post: UnicodeString; l_Region: UnicodeString; l_Reject: boolean; l_Zip: UnicodeString; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_Zip := Zip; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Zip', l_Zip); {$ELSE} TROSerializer(ASerializer).ReadWideString('Zip', l_Zip); {$ENDIF} Zip := l_Zip; l_field_City := field_City; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('field_City', l_field_City); {$ELSE} TROSerializer(ASerializer).ReadWideString('field_City', l_field_City); {$ENDIF} field_City := l_field_City; l_Region := Region; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Region', l_Region); {$ELSE} TROSerializer(ASerializer).ReadWideString('Region', l_Region); {$ENDIF} Region := l_Region; l_Post := Post; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Post', l_Post); {$ELSE} TROSerializer(ASerializer).ReadWideString('Post', l_Post); {$ENDIF} Post := l_Post; l_Country := Country; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Country', l_Country); {$ELSE} TROSerializer(ASerializer).ReadWideString('Country', l_Country); {$ENDIF} Country := l_Country; l_Reject := Reject; TROSerializer(ASerializer).ReadEnumerated('Reject',TypeInfo(boolean), l_Reject); Reject := l_Reject; end else begin l_Country := Country; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Country', l_Country); {$ELSE} TROSerializer(ASerializer).ReadWideString('Country', l_Country); {$ENDIF} Country := l_Country; l_field_City := field_City; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('field_City', l_field_City); {$ELSE} TROSerializer(ASerializer).ReadWideString('field_City', l_field_City); {$ENDIF} field_City := l_field_City; l_Post := Post; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Post', l_Post); {$ELSE} TROSerializer(ASerializer).ReadWideString('Post', l_Post); {$ENDIF} Post := l_Post; l_Region := Region; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Region', l_Region); {$ELSE} TROSerializer(ASerializer).ReadWideString('Region', l_Region); {$ENDIF} Region := l_Region; l_Reject := Reject; TROSerializer(ASerializer).ReadEnumerated('Reject',TypeInfo(boolean), l_Reject); Reject := l_Reject; l_Zip := Zip; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Zip', l_Zip); {$ELSE} TROSerializer(ASerializer).ReadWideString('Zip', l_Zip); {$ENDIF} Zip := l_Zip; end; end; procedure City.WriteComplex(ASerializer: TObject); var l_Country: UnicodeString; l_field_City: UnicodeString; l_Post: UnicodeString; l_Region: UnicodeString; l_Reject: boolean; l_Zip: UnicodeString; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(City); l_Zip := Zip; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Zip', l_Zip); {$ELSE} TROSerializer(ASerializer).WriteWideString('Zip', l_Zip); {$ENDIF} l_field_City := field_City; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('field_City', l_field_City); {$ELSE} TROSerializer(ASerializer).WriteWideString('field_City', l_field_City); {$ENDIF} l_Region := Region; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Region', l_Region); {$ELSE} TROSerializer(ASerializer).WriteWideString('Region', l_Region); {$ENDIF} l_Post := Post; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Post', l_Post); {$ELSE} TROSerializer(ASerializer).WriteWideString('Post', l_Post); {$ENDIF} l_Country := Country; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Country', l_Country); {$ELSE} TROSerializer(ASerializer).WriteWideString('Country', l_Country); {$ENDIF} l_Reject := Reject; TROSerializer(ASerializer).WriteEnumerated('Reject',TypeInfo(boolean), l_Reject); end else begin l_Country := Country; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Country', l_Country); {$ELSE} TROSerializer(ASerializer).WriteWideString('Country', l_Country); {$ENDIF} l_field_City := field_City; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('field_City', l_field_City); {$ELSE} TROSerializer(ASerializer).WriteWideString('field_City', l_field_City); {$ENDIF} l_Post := Post; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Post', l_Post); {$ELSE} TROSerializer(ASerializer).WriteWideString('Post', l_Post); {$ENDIF} l_Region := Region; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Region', l_Region); {$ELSE} TROSerializer(ASerializer).WriteWideString('Region', l_Region); {$ENDIF} l_Reject := Reject; TROSerializer(ASerializer).WriteEnumerated('Reject',TypeInfo(boolean), l_Reject); l_Zip := Zip; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Zip', l_Zip); {$ELSE} TROSerializer(ASerializer).WriteWideString('Zip', l_Zip); {$ENDIF} end; end; { CityCollection } constructor CityCollection.Create; begin inherited Create(City); end; constructor CityCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function CityCollection.Add: City; begin result := City(inherited Add); end; function CityCollection.GetItems(aIndex: integer): City; begin result := City(inherited Items[aIndex]); end; procedure CityCollection.LoadFromArray(anArray: ArrayOfCity); var i : integer; begin Clear; for i := 0 to (anArray.Count-1) do if anArray[i] <> nil then anArray[i].Clone.Collection := Self; end; procedure CityCollection.SaveToArray(anArray: ArrayOfCity); var i : integer; begin anArray.Clear; for i := 0 to (Count-1) do begin if Assigned(Items[i]) then anArray.Add(City(Items[i].Clone)) else anArray.Add(nil); end; end; procedure CityCollection.SetItems(aIndex: integer; const Value: City); begin City(inherited Items[aIndex]).Assign(Value); end; { PackageWeighed } class function PackageWeighed.GetAttributeCount: Integer; begin result := 1; end; class function PackageWeighed.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function PackageWeighed.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure PackageWeighed.Assign(iSource: TPersistent); var lSource: libPPL_Intf.PackageWeighed; begin inherited Assign(iSource); if (iSource is libPPL_Intf.PackageWeighed) then begin lSource := libPPL_Intf.PackageWeighed(iSource); PackageID := lSource.PackageID; PackageIDCUS := lSource.PackageIDCUS; InputDestination := lSource.InputDestination; OutputDestination := lSource.OutputDestination; field_ZipCode := lSource.field_ZipCode; Weight := lSource.Weight; Country := lSource.Country; Price := lSource.Price; PriceCurID := lSource.PriceCurID; ConsigneeName := lSource.ConsigneeName; ConsigneeStreet := lSource.ConsigneeStreet; ConsigneeCity := lSource.ConsigneeCity; Phone := lSource.Phone; VarSym := lSource.VarSym; Account := lSource.Account; BankCode := lSource.BankCode; SpecSymbol := lSource.SpecSymbol; DateDelivFrom := lSource.DateDelivFrom; DateDelivTo := lSource.DateDelivTo; Contact := lSource.Contact; CustRef := lSource.CustRef; EveningDelivery := lSource.EveningDelivery; Length := lSource.Length; Height := lSource.Height; Width := lSource.Width; RecMail := lSource.RecMail; ErrorCode := lSource.ErrorCode; ErrorMessage := lSource.ErrorMessage; end; end; procedure PackageWeighed.ReadComplex(ASerializer: TObject); var l_Account: UnicodeString; l_BankCode: UnicodeString; l_ConsigneeCity: UnicodeString; l_ConsigneeName: UnicodeString; l_ConsigneeStreet: UnicodeString; l_Contact: UnicodeString; l_Country: UnicodeString; l_CustRef: UnicodeString; l_DateDelivFrom: UnicodeString; l_DateDelivTo: UnicodeString; l_ErrorCode: Integer; l_ErrorMessage: UnicodeString; l_EveningDelivery: boolean; l_field_ZipCode: UnicodeString; l_Height: UnicodeString; l_InputDestination: UnicodeString; l_Length: UnicodeString; l_OutputDestination: UnicodeString; l_PackageID: UnicodeString; l_PackageIDCUS: UnicodeString; l_Phone: UnicodeString; l_Price: decimal; l_PriceCurID: UnicodeString; l_RecMail: UnicodeString; l_SpecSymbol: UnicodeString; l_VarSym: UnicodeString; l_Weight: decimal; l_Width: UnicodeString; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_PackageID := PackageID; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('PackageID', l_PackageID); {$ELSE} TROSerializer(ASerializer).ReadWideString('PackageID', l_PackageID); {$ENDIF} PackageID := l_PackageID; l_PackageIDCUS := PackageIDCUS; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('PackageIDCUS', l_PackageIDCUS); {$ELSE} TROSerializer(ASerializer).ReadWideString('PackageIDCUS', l_PackageIDCUS); {$ENDIF} PackageIDCUS := l_PackageIDCUS; l_InputDestination := InputDestination; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('InputDestination', l_InputDestination); {$ELSE} TROSerializer(ASerializer).ReadWideString('InputDestination', l_InputDestination); {$ENDIF} InputDestination := l_InputDestination; l_OutputDestination := OutputDestination; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('OutputDestination', l_OutputDestination); {$ELSE} TROSerializer(ASerializer).ReadWideString('OutputDestination', l_OutputDestination); {$ENDIF} OutputDestination := l_OutputDestination; l_field_ZipCode := field_ZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('field_ZipCode', l_field_ZipCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('field_ZipCode', l_field_ZipCode); {$ENDIF} field_ZipCode := l_field_ZipCode; l_Weight := Weight; TROSerializer(ASerializer).ReadDecimal('Weight', l_Weight); Weight := l_Weight; l_Country := Country; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Country', l_Country); {$ELSE} TROSerializer(ASerializer).ReadWideString('Country', l_Country); {$ENDIF} Country := l_Country; l_Price := Price; TROSerializer(ASerializer).ReadDecimal('Price', l_Price); Price := l_Price; l_PriceCurID := PriceCurID; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('PriceCurID', l_PriceCurID); {$ELSE} TROSerializer(ASerializer).ReadWideString('PriceCurID', l_PriceCurID); {$ENDIF} PriceCurID := l_PriceCurID; l_ConsigneeName := ConsigneeName; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ConsigneeName', l_ConsigneeName); {$ELSE} TROSerializer(ASerializer).ReadWideString('ConsigneeName', l_ConsigneeName); {$ENDIF} ConsigneeName := l_ConsigneeName; l_ConsigneeStreet := ConsigneeStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ConsigneeStreet', l_ConsigneeStreet); {$ELSE} TROSerializer(ASerializer).ReadWideString('ConsigneeStreet', l_ConsigneeStreet); {$ENDIF} ConsigneeStreet := l_ConsigneeStreet; l_ConsigneeCity := ConsigneeCity; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ConsigneeCity', l_ConsigneeCity); {$ELSE} TROSerializer(ASerializer).ReadWideString('ConsigneeCity', l_ConsigneeCity); {$ENDIF} ConsigneeCity := l_ConsigneeCity; l_Phone := Phone; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Phone', l_Phone); {$ELSE} TROSerializer(ASerializer).ReadWideString('Phone', l_Phone); {$ENDIF} Phone := l_Phone; l_VarSym := VarSym; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('VarSym', l_VarSym); {$ELSE} TROSerializer(ASerializer).ReadWideString('VarSym', l_VarSym); {$ENDIF} VarSym := l_VarSym; l_Account := Account; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Account', l_Account); {$ELSE} TROSerializer(ASerializer).ReadWideString('Account', l_Account); {$ENDIF} Account := l_Account; l_BankCode := BankCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('BankCode', l_BankCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('BankCode', l_BankCode); {$ENDIF} BankCode := l_BankCode; l_SpecSymbol := SpecSymbol; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SpecSymbol', l_SpecSymbol); {$ELSE} TROSerializer(ASerializer).ReadWideString('SpecSymbol', l_SpecSymbol); {$ENDIF} SpecSymbol := l_SpecSymbol; l_DateDelivFrom := DateDelivFrom; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DateDelivFrom', l_DateDelivFrom); {$ELSE} TROSerializer(ASerializer).ReadWideString('DateDelivFrom', l_DateDelivFrom); {$ENDIF} DateDelivFrom := l_DateDelivFrom; l_DateDelivTo := DateDelivTo; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DateDelivTo', l_DateDelivTo); {$ELSE} TROSerializer(ASerializer).ReadWideString('DateDelivTo', l_DateDelivTo); {$ENDIF} DateDelivTo := l_DateDelivTo; l_Contact := Contact; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Contact', l_Contact); {$ELSE} TROSerializer(ASerializer).ReadWideString('Contact', l_Contact); {$ENDIF} Contact := l_Contact; l_CustRef := CustRef; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('CustRef', l_CustRef); {$ELSE} TROSerializer(ASerializer).ReadWideString('CustRef', l_CustRef); {$ENDIF} CustRef := l_CustRef; l_EveningDelivery := EveningDelivery; TROSerializer(ASerializer).ReadEnumerated('EveningDelivery',TypeInfo(boolean), l_EveningDelivery); EveningDelivery := l_EveningDelivery; l_Length := Length; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Length', l_Length); {$ELSE} TROSerializer(ASerializer).ReadWideString('Length', l_Length); {$ENDIF} Length := l_Length; l_Height := Height; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Height', l_Height); {$ELSE} TROSerializer(ASerializer).ReadWideString('Height', l_Height); {$ENDIF} Height := l_Height; l_Width := Width; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Width', l_Width); {$ELSE} TROSerializer(ASerializer).ReadWideString('Width', l_Width); {$ENDIF} Width := l_Width; l_RecMail := RecMail; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecMail', l_RecMail); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecMail', l_RecMail); {$ENDIF} RecMail := l_RecMail; l_ErrorCode := ErrorCode; TROSerializer(ASerializer).ReadInteger('ErrorCode', otSLong, l_ErrorCode); ErrorCode := l_ErrorCode; l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).ReadWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} ErrorMessage := l_ErrorMessage; end else begin l_Account := Account; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Account', l_Account); {$ELSE} TROSerializer(ASerializer).ReadWideString('Account', l_Account); {$ENDIF} Account := l_Account; l_BankCode := BankCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('BankCode', l_BankCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('BankCode', l_BankCode); {$ENDIF} BankCode := l_BankCode; l_ConsigneeCity := ConsigneeCity; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ConsigneeCity', l_ConsigneeCity); {$ELSE} TROSerializer(ASerializer).ReadWideString('ConsigneeCity', l_ConsigneeCity); {$ENDIF} ConsigneeCity := l_ConsigneeCity; l_ConsigneeName := ConsigneeName; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ConsigneeName', l_ConsigneeName); {$ELSE} TROSerializer(ASerializer).ReadWideString('ConsigneeName', l_ConsigneeName); {$ENDIF} ConsigneeName := l_ConsigneeName; l_ConsigneeStreet := ConsigneeStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ConsigneeStreet', l_ConsigneeStreet); {$ELSE} TROSerializer(ASerializer).ReadWideString('ConsigneeStreet', l_ConsigneeStreet); {$ENDIF} ConsigneeStreet := l_ConsigneeStreet; l_Contact := Contact; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Contact', l_Contact); {$ELSE} TROSerializer(ASerializer).ReadWideString('Contact', l_Contact); {$ENDIF} Contact := l_Contact; l_Country := Country; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Country', l_Country); {$ELSE} TROSerializer(ASerializer).ReadWideString('Country', l_Country); {$ENDIF} Country := l_Country; l_CustRef := CustRef; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('CustRef', l_CustRef); {$ELSE} TROSerializer(ASerializer).ReadWideString('CustRef', l_CustRef); {$ENDIF} CustRef := l_CustRef; l_DateDelivFrom := DateDelivFrom; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DateDelivFrom', l_DateDelivFrom); {$ELSE} TROSerializer(ASerializer).ReadWideString('DateDelivFrom', l_DateDelivFrom); {$ENDIF} DateDelivFrom := l_DateDelivFrom; l_DateDelivTo := DateDelivTo; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DateDelivTo', l_DateDelivTo); {$ELSE} TROSerializer(ASerializer).ReadWideString('DateDelivTo', l_DateDelivTo); {$ENDIF} DateDelivTo := l_DateDelivTo; l_ErrorCode := ErrorCode; TROSerializer(ASerializer).ReadInteger('ErrorCode', otSLong, l_ErrorCode); ErrorCode := l_ErrorCode; l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).ReadWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} ErrorMessage := l_ErrorMessage; l_EveningDelivery := EveningDelivery; TROSerializer(ASerializer).ReadEnumerated('EveningDelivery',TypeInfo(boolean), l_EveningDelivery); EveningDelivery := l_EveningDelivery; l_field_ZipCode := field_ZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('field_ZipCode', l_field_ZipCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('field_ZipCode', l_field_ZipCode); {$ENDIF} field_ZipCode := l_field_ZipCode; l_Height := Height; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Height', l_Height); {$ELSE} TROSerializer(ASerializer).ReadWideString('Height', l_Height); {$ENDIF} Height := l_Height; l_InputDestination := InputDestination; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('InputDestination', l_InputDestination); {$ELSE} TROSerializer(ASerializer).ReadWideString('InputDestination', l_InputDestination); {$ENDIF} InputDestination := l_InputDestination; l_Length := Length; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Length', l_Length); {$ELSE} TROSerializer(ASerializer).ReadWideString('Length', l_Length); {$ENDIF} Length := l_Length; l_OutputDestination := OutputDestination; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('OutputDestination', l_OutputDestination); {$ELSE} TROSerializer(ASerializer).ReadWideString('OutputDestination', l_OutputDestination); {$ENDIF} OutputDestination := l_OutputDestination; l_PackageID := PackageID; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('PackageID', l_PackageID); {$ELSE} TROSerializer(ASerializer).ReadWideString('PackageID', l_PackageID); {$ENDIF} PackageID := l_PackageID; l_PackageIDCUS := PackageIDCUS; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('PackageIDCUS', l_PackageIDCUS); {$ELSE} TROSerializer(ASerializer).ReadWideString('PackageIDCUS', l_PackageIDCUS); {$ENDIF} PackageIDCUS := l_PackageIDCUS; l_Phone := Phone; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Phone', l_Phone); {$ELSE} TROSerializer(ASerializer).ReadWideString('Phone', l_Phone); {$ENDIF} Phone := l_Phone; l_Price := Price; TROSerializer(ASerializer).ReadDecimal('Price', l_Price); Price := l_Price; l_PriceCurID := PriceCurID; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('PriceCurID', l_PriceCurID); {$ELSE} TROSerializer(ASerializer).ReadWideString('PriceCurID', l_PriceCurID); {$ENDIF} PriceCurID := l_PriceCurID; l_RecMail := RecMail; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecMail', l_RecMail); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecMail', l_RecMail); {$ENDIF} RecMail := l_RecMail; l_SpecSymbol := SpecSymbol; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SpecSymbol', l_SpecSymbol); {$ELSE} TROSerializer(ASerializer).ReadWideString('SpecSymbol', l_SpecSymbol); {$ENDIF} SpecSymbol := l_SpecSymbol; l_VarSym := VarSym; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('VarSym', l_VarSym); {$ELSE} TROSerializer(ASerializer).ReadWideString('VarSym', l_VarSym); {$ENDIF} VarSym := l_VarSym; l_Weight := Weight; TROSerializer(ASerializer).ReadDecimal('Weight', l_Weight); Weight := l_Weight; l_Width := Width; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Width', l_Width); {$ELSE} TROSerializer(ASerializer).ReadWideString('Width', l_Width); {$ENDIF} Width := l_Width; end; end; procedure PackageWeighed.WriteComplex(ASerializer: TObject); var l_Account: UnicodeString; l_BankCode: UnicodeString; l_ConsigneeCity: UnicodeString; l_ConsigneeName: UnicodeString; l_ConsigneeStreet: UnicodeString; l_Contact: UnicodeString; l_Country: UnicodeString; l_CustRef: UnicodeString; l_DateDelivFrom: UnicodeString; l_DateDelivTo: UnicodeString; l_ErrorCode: Integer; l_ErrorMessage: UnicodeString; l_EveningDelivery: boolean; l_field_ZipCode: UnicodeString; l_Height: UnicodeString; l_InputDestination: UnicodeString; l_Length: UnicodeString; l_OutputDestination: UnicodeString; l_PackageID: UnicodeString; l_PackageIDCUS: UnicodeString; l_Phone: UnicodeString; l_Price: decimal; l_PriceCurID: UnicodeString; l_RecMail: UnicodeString; l_SpecSymbol: UnicodeString; l_VarSym: UnicodeString; l_Weight: decimal; l_Width: UnicodeString; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(PackageWeighed); l_PackageID := PackageID; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('PackageID', l_PackageID); {$ELSE} TROSerializer(ASerializer).WriteWideString('PackageID', l_PackageID); {$ENDIF} l_PackageIDCUS := PackageIDCUS; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('PackageIDCUS', l_PackageIDCUS); {$ELSE} TROSerializer(ASerializer).WriteWideString('PackageIDCUS', l_PackageIDCUS); {$ENDIF} l_InputDestination := InputDestination; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('InputDestination', l_InputDestination); {$ELSE} TROSerializer(ASerializer).WriteWideString('InputDestination', l_InputDestination); {$ENDIF} l_OutputDestination := OutputDestination; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('OutputDestination', l_OutputDestination); {$ELSE} TROSerializer(ASerializer).WriteWideString('OutputDestination', l_OutputDestination); {$ENDIF} l_field_ZipCode := field_ZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('field_ZipCode', l_field_ZipCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('field_ZipCode', l_field_ZipCode); {$ENDIF} l_Weight := Weight; TROSerializer(ASerializer).WriteDecimal('Weight', l_Weight); l_Country := Country; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Country', l_Country); {$ELSE} TROSerializer(ASerializer).WriteWideString('Country', l_Country); {$ENDIF} l_Price := Price; TROSerializer(ASerializer).WriteDecimal('Price', l_Price); l_PriceCurID := PriceCurID; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('PriceCurID', l_PriceCurID); {$ELSE} TROSerializer(ASerializer).WriteWideString('PriceCurID', l_PriceCurID); {$ENDIF} l_ConsigneeName := ConsigneeName; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ConsigneeName', l_ConsigneeName); {$ELSE} TROSerializer(ASerializer).WriteWideString('ConsigneeName', l_ConsigneeName); {$ENDIF} l_ConsigneeStreet := ConsigneeStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ConsigneeStreet', l_ConsigneeStreet); {$ELSE} TROSerializer(ASerializer).WriteWideString('ConsigneeStreet', l_ConsigneeStreet); {$ENDIF} l_ConsigneeCity := ConsigneeCity; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ConsigneeCity', l_ConsigneeCity); {$ELSE} TROSerializer(ASerializer).WriteWideString('ConsigneeCity', l_ConsigneeCity); {$ENDIF} l_Phone := Phone; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Phone', l_Phone); {$ELSE} TROSerializer(ASerializer).WriteWideString('Phone', l_Phone); {$ENDIF} l_VarSym := VarSym; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('VarSym', l_VarSym); {$ELSE} TROSerializer(ASerializer).WriteWideString('VarSym', l_VarSym); {$ENDIF} l_Account := Account; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Account', l_Account); {$ELSE} TROSerializer(ASerializer).WriteWideString('Account', l_Account); {$ENDIF} l_BankCode := BankCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('BankCode', l_BankCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('BankCode', l_BankCode); {$ENDIF} l_SpecSymbol := SpecSymbol; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SpecSymbol', l_SpecSymbol); {$ELSE} TROSerializer(ASerializer).WriteWideString('SpecSymbol', l_SpecSymbol); {$ENDIF} l_DateDelivFrom := DateDelivFrom; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DateDelivFrom', l_DateDelivFrom); {$ELSE} TROSerializer(ASerializer).WriteWideString('DateDelivFrom', l_DateDelivFrom); {$ENDIF} l_DateDelivTo := DateDelivTo; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DateDelivTo', l_DateDelivTo); {$ELSE} TROSerializer(ASerializer).WriteWideString('DateDelivTo', l_DateDelivTo); {$ENDIF} l_Contact := Contact; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Contact', l_Contact); {$ELSE} TROSerializer(ASerializer).WriteWideString('Contact', l_Contact); {$ENDIF} l_CustRef := CustRef; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('CustRef', l_CustRef); {$ELSE} TROSerializer(ASerializer).WriteWideString('CustRef', l_CustRef); {$ENDIF} l_EveningDelivery := EveningDelivery; TROSerializer(ASerializer).WriteEnumerated('EveningDelivery',TypeInfo(boolean), l_EveningDelivery); l_Length := Length; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Length', l_Length); {$ELSE} TROSerializer(ASerializer).WriteWideString('Length', l_Length); {$ENDIF} l_Height := Height; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Height', l_Height); {$ELSE} TROSerializer(ASerializer).WriteWideString('Height', l_Height); {$ENDIF} l_Width := Width; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Width', l_Width); {$ELSE} TROSerializer(ASerializer).WriteWideString('Width', l_Width); {$ENDIF} l_RecMail := RecMail; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecMail', l_RecMail); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecMail', l_RecMail); {$ENDIF} l_ErrorCode := ErrorCode; TROSerializer(ASerializer).WriteInteger('ErrorCode', otSLong, l_ErrorCode); l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).WriteWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} end else begin l_Account := Account; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Account', l_Account); {$ELSE} TROSerializer(ASerializer).WriteWideString('Account', l_Account); {$ENDIF} l_BankCode := BankCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('BankCode', l_BankCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('BankCode', l_BankCode); {$ENDIF} l_ConsigneeCity := ConsigneeCity; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ConsigneeCity', l_ConsigneeCity); {$ELSE} TROSerializer(ASerializer).WriteWideString('ConsigneeCity', l_ConsigneeCity); {$ENDIF} l_ConsigneeName := ConsigneeName; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ConsigneeName', l_ConsigneeName); {$ELSE} TROSerializer(ASerializer).WriteWideString('ConsigneeName', l_ConsigneeName); {$ENDIF} l_ConsigneeStreet := ConsigneeStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ConsigneeStreet', l_ConsigneeStreet); {$ELSE} TROSerializer(ASerializer).WriteWideString('ConsigneeStreet', l_ConsigneeStreet); {$ENDIF} l_Contact := Contact; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Contact', l_Contact); {$ELSE} TROSerializer(ASerializer).WriteWideString('Contact', l_Contact); {$ENDIF} l_Country := Country; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Country', l_Country); {$ELSE} TROSerializer(ASerializer).WriteWideString('Country', l_Country); {$ENDIF} l_CustRef := CustRef; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('CustRef', l_CustRef); {$ELSE} TROSerializer(ASerializer).WriteWideString('CustRef', l_CustRef); {$ENDIF} l_DateDelivFrom := DateDelivFrom; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DateDelivFrom', l_DateDelivFrom); {$ELSE} TROSerializer(ASerializer).WriteWideString('DateDelivFrom', l_DateDelivFrom); {$ENDIF} l_DateDelivTo := DateDelivTo; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DateDelivTo', l_DateDelivTo); {$ELSE} TROSerializer(ASerializer).WriteWideString('DateDelivTo', l_DateDelivTo); {$ENDIF} l_ErrorCode := ErrorCode; TROSerializer(ASerializer).WriteInteger('ErrorCode', otSLong, l_ErrorCode); l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).WriteWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} l_EveningDelivery := EveningDelivery; TROSerializer(ASerializer).WriteEnumerated('EveningDelivery',TypeInfo(boolean), l_EveningDelivery); l_field_ZipCode := field_ZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('field_ZipCode', l_field_ZipCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('field_ZipCode', l_field_ZipCode); {$ENDIF} l_Height := Height; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Height', l_Height); {$ELSE} TROSerializer(ASerializer).WriteWideString('Height', l_Height); {$ENDIF} l_InputDestination := InputDestination; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('InputDestination', l_InputDestination); {$ELSE} TROSerializer(ASerializer).WriteWideString('InputDestination', l_InputDestination); {$ENDIF} l_Length := Length; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Length', l_Length); {$ELSE} TROSerializer(ASerializer).WriteWideString('Length', l_Length); {$ENDIF} l_OutputDestination := OutputDestination; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('OutputDestination', l_OutputDestination); {$ELSE} TROSerializer(ASerializer).WriteWideString('OutputDestination', l_OutputDestination); {$ENDIF} l_PackageID := PackageID; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('PackageID', l_PackageID); {$ELSE} TROSerializer(ASerializer).WriteWideString('PackageID', l_PackageID); {$ENDIF} l_PackageIDCUS := PackageIDCUS; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('PackageIDCUS', l_PackageIDCUS); {$ELSE} TROSerializer(ASerializer).WriteWideString('PackageIDCUS', l_PackageIDCUS); {$ENDIF} l_Phone := Phone; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Phone', l_Phone); {$ELSE} TROSerializer(ASerializer).WriteWideString('Phone', l_Phone); {$ENDIF} l_Price := Price; TROSerializer(ASerializer).WriteDecimal('Price', l_Price); l_PriceCurID := PriceCurID; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('PriceCurID', l_PriceCurID); {$ELSE} TROSerializer(ASerializer).WriteWideString('PriceCurID', l_PriceCurID); {$ENDIF} l_RecMail := RecMail; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecMail', l_RecMail); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecMail', l_RecMail); {$ENDIF} l_SpecSymbol := SpecSymbol; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SpecSymbol', l_SpecSymbol); {$ELSE} TROSerializer(ASerializer).WriteWideString('SpecSymbol', l_SpecSymbol); {$ENDIF} l_VarSym := VarSym; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('VarSym', l_VarSym); {$ELSE} TROSerializer(ASerializer).WriteWideString('VarSym', l_VarSym); {$ENDIF} l_Weight := Weight; TROSerializer(ASerializer).WriteDecimal('Weight', l_Weight); l_Width := Width; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Width', l_Width); {$ELSE} TROSerializer(ASerializer).WriteWideString('Width', l_Width); {$ENDIF} end; end; { PackageWeighedCollection } constructor PackageWeighedCollection.Create; begin inherited Create(PackageWeighed); end; constructor PackageWeighedCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function PackageWeighedCollection.Add: PackageWeighed; begin result := PackageWeighed(inherited Add); end; function PackageWeighedCollection.GetItems(aIndex: integer): PackageWeighed; begin result := PackageWeighed(inherited Items[aIndex]); end; procedure PackageWeighedCollection.SetItems(aIndex: integer; const Value: PackageWeighed); begin PackageWeighed(inherited Items[aIndex]).Assign(Value); end; { ZipCode } class function ZipCode.GetAttributeCount: Integer; begin result := 1; end; class function ZipCode.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function ZipCode.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure ZipCode.Assign(iSource: TPersistent); var lSource: libPPL_Intf.ZipCode; begin inherited Assign(iSource); if (iSource is libPPL_Intf.ZipCode) then begin lSource := libPPL_Intf.ZipCode(iSource); Zip := lSource.Zip; Post := lSource.Post; Depot := lSource.Depot; Destination := lSource.Destination; Visual := lSource.Visual; EveningDelivery := lSource.EveningDelivery; end; end; procedure ZipCode.ReadComplex(ASerializer: TObject); var l_Depot: UnicodeString; l_Destination: UnicodeString; l_EveningDelivery: boolean; l_Post: UnicodeString; l_Visual: Integer; l_Zip: UnicodeString; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_Zip := Zip; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Zip', l_Zip); {$ELSE} TROSerializer(ASerializer).ReadWideString('Zip', l_Zip); {$ENDIF} Zip := l_Zip; l_Post := Post; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Post', l_Post); {$ELSE} TROSerializer(ASerializer).ReadWideString('Post', l_Post); {$ENDIF} Post := l_Post; l_Depot := Depot; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Depot', l_Depot); {$ELSE} TROSerializer(ASerializer).ReadWideString('Depot', l_Depot); {$ENDIF} Depot := l_Depot; l_Destination := Destination; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Destination', l_Destination); {$ELSE} TROSerializer(ASerializer).ReadWideString('Destination', l_Destination); {$ENDIF} Destination := l_Destination; l_Visual := Visual; TROSerializer(ASerializer).ReadInteger('Visual', otSLong, l_Visual); Visual := l_Visual; l_EveningDelivery := EveningDelivery; TROSerializer(ASerializer).ReadEnumerated('EveningDelivery',TypeInfo(boolean), l_EveningDelivery); EveningDelivery := l_EveningDelivery; end else begin l_Depot := Depot; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Depot', l_Depot); {$ELSE} TROSerializer(ASerializer).ReadWideString('Depot', l_Depot); {$ENDIF} Depot := l_Depot; l_Destination := Destination; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Destination', l_Destination); {$ELSE} TROSerializer(ASerializer).ReadWideString('Destination', l_Destination); {$ENDIF} Destination := l_Destination; l_EveningDelivery := EveningDelivery; TROSerializer(ASerializer).ReadEnumerated('EveningDelivery',TypeInfo(boolean), l_EveningDelivery); EveningDelivery := l_EveningDelivery; l_Post := Post; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Post', l_Post); {$ELSE} TROSerializer(ASerializer).ReadWideString('Post', l_Post); {$ENDIF} Post := l_Post; l_Visual := Visual; TROSerializer(ASerializer).ReadInteger('Visual', otSLong, l_Visual); Visual := l_Visual; l_Zip := Zip; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Zip', l_Zip); {$ELSE} TROSerializer(ASerializer).ReadWideString('Zip', l_Zip); {$ENDIF} Zip := l_Zip; end; end; procedure ZipCode.WriteComplex(ASerializer: TObject); var l_Depot: UnicodeString; l_Destination: UnicodeString; l_EveningDelivery: boolean; l_Post: UnicodeString; l_Visual: Integer; l_Zip: UnicodeString; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(ZipCode); l_Zip := Zip; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Zip', l_Zip); {$ELSE} TROSerializer(ASerializer).WriteWideString('Zip', l_Zip); {$ENDIF} l_Post := Post; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Post', l_Post); {$ELSE} TROSerializer(ASerializer).WriteWideString('Post', l_Post); {$ENDIF} l_Depot := Depot; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Depot', l_Depot); {$ELSE} TROSerializer(ASerializer).WriteWideString('Depot', l_Depot); {$ENDIF} l_Destination := Destination; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Destination', l_Destination); {$ELSE} TROSerializer(ASerializer).WriteWideString('Destination', l_Destination); {$ENDIF} l_Visual := Visual; TROSerializer(ASerializer).WriteInteger('Visual', otSLong, l_Visual); l_EveningDelivery := EveningDelivery; TROSerializer(ASerializer).WriteEnumerated('EveningDelivery',TypeInfo(boolean), l_EveningDelivery); end else begin l_Depot := Depot; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Depot', l_Depot); {$ELSE} TROSerializer(ASerializer).WriteWideString('Depot', l_Depot); {$ENDIF} l_Destination := Destination; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Destination', l_Destination); {$ELSE} TROSerializer(ASerializer).WriteWideString('Destination', l_Destination); {$ENDIF} l_EveningDelivery := EveningDelivery; TROSerializer(ASerializer).WriteEnumerated('EveningDelivery',TypeInfo(boolean), l_EveningDelivery); l_Post := Post; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Post', l_Post); {$ELSE} TROSerializer(ASerializer).WriteWideString('Post', l_Post); {$ENDIF} l_Visual := Visual; TROSerializer(ASerializer).WriteInteger('Visual', otSLong, l_Visual); l_Zip := Zip; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Zip', l_Zip); {$ELSE} TROSerializer(ASerializer).WriteWideString('Zip', l_Zip); {$ENDIF} end; end; { ZipCodeCollection } constructor ZipCodeCollection.Create; begin inherited Create(ZipCode); end; constructor ZipCodeCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function ZipCodeCollection.Add: ZipCode; begin result := ZipCode(inherited Add); end; function ZipCodeCollection.GetItems(aIndex: integer): ZipCode; begin result := ZipCode(inherited Items[aIndex]); end; procedure ZipCodeCollection.LoadFromArray(anArray: ArrayOfZipCode); var i : integer; begin Clear; for i := 0 to (anArray.Count-1) do if anArray[i] <> nil then anArray[i].Clone.Collection := Self; end; procedure ZipCodeCollection.SaveToArray(anArray: ArrayOfZipCode); var i : integer; begin anArray.Clear; for i := 0 to (Count-1) do begin if Assigned(Items[i]) then anArray.Add(ZipCode(Items[i].Clone)) else anArray.Add(nil); end; end; procedure ZipCodeCollection.SetItems(aIndex: integer; const Value: ZipCode); begin ZipCode(inherited Items[aIndex]).Assign(Value); end; { PackageEsyco } class function PackageEsyco.GetAttributeCount: Integer; begin result := 1; end; class function PackageEsyco.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function PackageEsyco.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure PackageEsyco.Assign(iSource: TPersistent); var lSource: libPPL_Intf.PackageEsyco; begin inherited Assign(iSource); if (iSource is libPPL_Intf.PackageEsyco) then begin lSource := libPPL_Intf.PackageEsyco(iSource); PackageID := lSource.PackageID; field_ZipCode := lSource.field_ZipCode; Country := lSource.Country; CodPrice := lSource.CodPrice; VarSym := lSource.VarSym; Account := lSource.Account; BankCode := lSource.BankCode; SpecSymbol := lSource.SpecSymbol; ConsigneeName := lSource.ConsigneeName; ConsigneeStreet := lSource.ConsigneeStreet; ConsigneeCity := lSource.ConsigneeCity; Phone := lSource.Phone; ErrorCode := lSource.ErrorCode; ErrorMessage := lSource.ErrorMessage; end; end; procedure PackageEsyco.ReadComplex(ASerializer: TObject); var l_Account: UnicodeString; l_BankCode: UnicodeString; l_CodPrice: decimal; l_ConsigneeCity: UnicodeString; l_ConsigneeName: UnicodeString; l_ConsigneeStreet: UnicodeString; l_Country: UnicodeString; l_ErrorCode: Integer; l_ErrorMessage: UnicodeString; l_field_ZipCode: UnicodeString; l_PackageID: UnicodeString; l_Phone: UnicodeString; l_SpecSymbol: UnicodeString; l_VarSym: UnicodeString; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_PackageID := PackageID; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('PackageID', l_PackageID); {$ELSE} TROSerializer(ASerializer).ReadWideString('PackageID', l_PackageID); {$ENDIF} PackageID := l_PackageID; l_field_ZipCode := field_ZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('field_ZipCode', l_field_ZipCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('field_ZipCode', l_field_ZipCode); {$ENDIF} field_ZipCode := l_field_ZipCode; l_Country := Country; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Country', l_Country); {$ELSE} TROSerializer(ASerializer).ReadWideString('Country', l_Country); {$ENDIF} Country := l_Country; l_CodPrice := CodPrice; TROSerializer(ASerializer).ReadDecimal('CodPrice', l_CodPrice); CodPrice := l_CodPrice; l_VarSym := VarSym; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('VarSym', l_VarSym); {$ELSE} TROSerializer(ASerializer).ReadWideString('VarSym', l_VarSym); {$ENDIF} VarSym := l_VarSym; l_Account := Account; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Account', l_Account); {$ELSE} TROSerializer(ASerializer).ReadWideString('Account', l_Account); {$ENDIF} Account := l_Account; l_BankCode := BankCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('BankCode', l_BankCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('BankCode', l_BankCode); {$ENDIF} BankCode := l_BankCode; l_SpecSymbol := SpecSymbol; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SpecSymbol', l_SpecSymbol); {$ELSE} TROSerializer(ASerializer).ReadWideString('SpecSymbol', l_SpecSymbol); {$ENDIF} SpecSymbol := l_SpecSymbol; l_ConsigneeName := ConsigneeName; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ConsigneeName', l_ConsigneeName); {$ELSE} TROSerializer(ASerializer).ReadWideString('ConsigneeName', l_ConsigneeName); {$ENDIF} ConsigneeName := l_ConsigneeName; l_ConsigneeStreet := ConsigneeStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ConsigneeStreet', l_ConsigneeStreet); {$ELSE} TROSerializer(ASerializer).ReadWideString('ConsigneeStreet', l_ConsigneeStreet); {$ENDIF} ConsigneeStreet := l_ConsigneeStreet; l_ConsigneeCity := ConsigneeCity; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ConsigneeCity', l_ConsigneeCity); {$ELSE} TROSerializer(ASerializer).ReadWideString('ConsigneeCity', l_ConsigneeCity); {$ENDIF} ConsigneeCity := l_ConsigneeCity; l_Phone := Phone; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Phone', l_Phone); {$ELSE} TROSerializer(ASerializer).ReadWideString('Phone', l_Phone); {$ENDIF} Phone := l_Phone; l_ErrorCode := ErrorCode; TROSerializer(ASerializer).ReadInteger('ErrorCode', otSLong, l_ErrorCode); ErrorCode := l_ErrorCode; l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).ReadWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} ErrorMessage := l_ErrorMessage; end else begin l_Account := Account; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Account', l_Account); {$ELSE} TROSerializer(ASerializer).ReadWideString('Account', l_Account); {$ENDIF} Account := l_Account; l_BankCode := BankCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('BankCode', l_BankCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('BankCode', l_BankCode); {$ENDIF} BankCode := l_BankCode; l_CodPrice := CodPrice; TROSerializer(ASerializer).ReadDecimal('CodPrice', l_CodPrice); CodPrice := l_CodPrice; l_ConsigneeCity := ConsigneeCity; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ConsigneeCity', l_ConsigneeCity); {$ELSE} TROSerializer(ASerializer).ReadWideString('ConsigneeCity', l_ConsigneeCity); {$ENDIF} ConsigneeCity := l_ConsigneeCity; l_ConsigneeName := ConsigneeName; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ConsigneeName', l_ConsigneeName); {$ELSE} TROSerializer(ASerializer).ReadWideString('ConsigneeName', l_ConsigneeName); {$ENDIF} ConsigneeName := l_ConsigneeName; l_ConsigneeStreet := ConsigneeStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ConsigneeStreet', l_ConsigneeStreet); {$ELSE} TROSerializer(ASerializer).ReadWideString('ConsigneeStreet', l_ConsigneeStreet); {$ENDIF} ConsigneeStreet := l_ConsigneeStreet; l_Country := Country; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Country', l_Country); {$ELSE} TROSerializer(ASerializer).ReadWideString('Country', l_Country); {$ENDIF} Country := l_Country; l_ErrorCode := ErrorCode; TROSerializer(ASerializer).ReadInteger('ErrorCode', otSLong, l_ErrorCode); ErrorCode := l_ErrorCode; l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).ReadWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} ErrorMessage := l_ErrorMessage; l_field_ZipCode := field_ZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('field_ZipCode', l_field_ZipCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('field_ZipCode', l_field_ZipCode); {$ENDIF} field_ZipCode := l_field_ZipCode; l_PackageID := PackageID; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('PackageID', l_PackageID); {$ELSE} TROSerializer(ASerializer).ReadWideString('PackageID', l_PackageID); {$ENDIF} PackageID := l_PackageID; l_Phone := Phone; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Phone', l_Phone); {$ELSE} TROSerializer(ASerializer).ReadWideString('Phone', l_Phone); {$ENDIF} Phone := l_Phone; l_SpecSymbol := SpecSymbol; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SpecSymbol', l_SpecSymbol); {$ELSE} TROSerializer(ASerializer).ReadWideString('SpecSymbol', l_SpecSymbol); {$ENDIF} SpecSymbol := l_SpecSymbol; l_VarSym := VarSym; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('VarSym', l_VarSym); {$ELSE} TROSerializer(ASerializer).ReadWideString('VarSym', l_VarSym); {$ENDIF} VarSym := l_VarSym; end; end; procedure PackageEsyco.WriteComplex(ASerializer: TObject); var l_Account: UnicodeString; l_BankCode: UnicodeString; l_CodPrice: decimal; l_ConsigneeCity: UnicodeString; l_ConsigneeName: UnicodeString; l_ConsigneeStreet: UnicodeString; l_Country: UnicodeString; l_ErrorCode: Integer; l_ErrorMessage: UnicodeString; l_field_ZipCode: UnicodeString; l_PackageID: UnicodeString; l_Phone: UnicodeString; l_SpecSymbol: UnicodeString; l_VarSym: UnicodeString; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(PackageEsyco); l_PackageID := PackageID; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('PackageID', l_PackageID); {$ELSE} TROSerializer(ASerializer).WriteWideString('PackageID', l_PackageID); {$ENDIF} l_field_ZipCode := field_ZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('field_ZipCode', l_field_ZipCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('field_ZipCode', l_field_ZipCode); {$ENDIF} l_Country := Country; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Country', l_Country); {$ELSE} TROSerializer(ASerializer).WriteWideString('Country', l_Country); {$ENDIF} l_CodPrice := CodPrice; TROSerializer(ASerializer).WriteDecimal('CodPrice', l_CodPrice); l_VarSym := VarSym; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('VarSym', l_VarSym); {$ELSE} TROSerializer(ASerializer).WriteWideString('VarSym', l_VarSym); {$ENDIF} l_Account := Account; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Account', l_Account); {$ELSE} TROSerializer(ASerializer).WriteWideString('Account', l_Account); {$ENDIF} l_BankCode := BankCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('BankCode', l_BankCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('BankCode', l_BankCode); {$ENDIF} l_SpecSymbol := SpecSymbol; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SpecSymbol', l_SpecSymbol); {$ELSE} TROSerializer(ASerializer).WriteWideString('SpecSymbol', l_SpecSymbol); {$ENDIF} l_ConsigneeName := ConsigneeName; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ConsigneeName', l_ConsigneeName); {$ELSE} TROSerializer(ASerializer).WriteWideString('ConsigneeName', l_ConsigneeName); {$ENDIF} l_ConsigneeStreet := ConsigneeStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ConsigneeStreet', l_ConsigneeStreet); {$ELSE} TROSerializer(ASerializer).WriteWideString('ConsigneeStreet', l_ConsigneeStreet); {$ENDIF} l_ConsigneeCity := ConsigneeCity; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ConsigneeCity', l_ConsigneeCity); {$ELSE} TROSerializer(ASerializer).WriteWideString('ConsigneeCity', l_ConsigneeCity); {$ENDIF} l_Phone := Phone; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Phone', l_Phone); {$ELSE} TROSerializer(ASerializer).WriteWideString('Phone', l_Phone); {$ENDIF} l_ErrorCode := ErrorCode; TROSerializer(ASerializer).WriteInteger('ErrorCode', otSLong, l_ErrorCode); l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).WriteWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} end else begin l_Account := Account; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Account', l_Account); {$ELSE} TROSerializer(ASerializer).WriteWideString('Account', l_Account); {$ENDIF} l_BankCode := BankCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('BankCode', l_BankCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('BankCode', l_BankCode); {$ENDIF} l_CodPrice := CodPrice; TROSerializer(ASerializer).WriteDecimal('CodPrice', l_CodPrice); l_ConsigneeCity := ConsigneeCity; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ConsigneeCity', l_ConsigneeCity); {$ELSE} TROSerializer(ASerializer).WriteWideString('ConsigneeCity', l_ConsigneeCity); {$ENDIF} l_ConsigneeName := ConsigneeName; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ConsigneeName', l_ConsigneeName); {$ELSE} TROSerializer(ASerializer).WriteWideString('ConsigneeName', l_ConsigneeName); {$ENDIF} l_ConsigneeStreet := ConsigneeStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ConsigneeStreet', l_ConsigneeStreet); {$ELSE} TROSerializer(ASerializer).WriteWideString('ConsigneeStreet', l_ConsigneeStreet); {$ENDIF} l_Country := Country; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Country', l_Country); {$ELSE} TROSerializer(ASerializer).WriteWideString('Country', l_Country); {$ENDIF} l_ErrorCode := ErrorCode; TROSerializer(ASerializer).WriteInteger('ErrorCode', otSLong, l_ErrorCode); l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).WriteWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} l_field_ZipCode := field_ZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('field_ZipCode', l_field_ZipCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('field_ZipCode', l_field_ZipCode); {$ENDIF} l_PackageID := PackageID; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('PackageID', l_PackageID); {$ELSE} TROSerializer(ASerializer).WriteWideString('PackageID', l_PackageID); {$ENDIF} l_Phone := Phone; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Phone', l_Phone); {$ELSE} TROSerializer(ASerializer).WriteWideString('Phone', l_Phone); {$ENDIF} l_SpecSymbol := SpecSymbol; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SpecSymbol', l_SpecSymbol); {$ELSE} TROSerializer(ASerializer).WriteWideString('SpecSymbol', l_SpecSymbol); {$ENDIF} l_VarSym := VarSym; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('VarSym', l_VarSym); {$ELSE} TROSerializer(ASerializer).WriteWideString('VarSym', l_VarSym); {$ENDIF} end; end; { PackageEsycoCollection } constructor PackageEsycoCollection.Create; begin inherited Create(PackageEsyco); end; constructor PackageEsycoCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function PackageEsycoCollection.Add: PackageEsyco; begin result := PackageEsyco(inherited Add); end; function PackageEsycoCollection.GetItems(aIndex: integer): PackageEsyco; begin result := PackageEsyco(inherited Items[aIndex]); end; procedure PackageEsycoCollection.SetItems(aIndex: integer; const Value: PackageEsyco); begin PackageEsyco(inherited Items[aIndex]).Assign(Value); end; { ImportPPLSprintResponse } class function ImportPPLSprintResponse.GetAttributeCount: Integer; begin result := 1; end; class function ImportPPLSprintResponse.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function ImportPPLSprintResponse.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure ImportPPLSprintResponse.Assign(iSource: TPersistent); var lSource: libPPL_Intf.ImportPPLSprintResponse; begin inherited Assign(iSource); if (iSource is libPPL_Intf.ImportPPLSprintResponse) then begin lSource := libPPL_Intf.ImportPPLSprintResponse(iSource); if Assigned(lSource.fpackages) then packages.Assign(lSource.fpackages) else FreeAndNil(fpackages); end; end; function ImportPPLSprintResponse.Getpackages: colPPLSprint; begin if (fpackages = nil) then fpackages := colPPLSprint.Create(); result := fpackages; end; procedure ImportPPLSprintResponse.ReadComplex(ASerializer: TObject); var l_packages: colPPLSprint; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_packages := int_packages; TROSerializer(ASerializer).ReadStruct('packages', colPPLSprint, l_packages); if int_packages <> l_packages then packages.Free; packages := l_packages; end else begin l_packages := int_packages; TROSerializer(ASerializer).ReadStruct('packages', colPPLSprint, l_packages); if int_packages <> l_packages then packages.Free; packages := l_packages; end; end; procedure ImportPPLSprintResponse.WriteComplex(ASerializer: TObject); var l_packages: colPPLSprint; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(ImportPPLSprintResponse); l_packages := int_packages; TROSerializer(ASerializer).WriteStruct('packages', l_packages, colPPLSprint); end else begin l_packages := int_packages; TROSerializer(ASerializer).WriteStruct('packages', l_packages, colPPLSprint); end; end; { ImportPPLSprintResponseCollection } constructor ImportPPLSprintResponseCollection.Create; begin inherited Create(ImportPPLSprintResponse); end; constructor ImportPPLSprintResponseCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function ImportPPLSprintResponseCollection.Add: ImportPPLSprintResponse; begin result := ImportPPLSprintResponse(inherited Add); end; function ImportPPLSprintResponseCollection.GetItems(aIndex: integer): ImportPPLSprintResponse; begin result := ImportPPLSprintResponse(inherited Items[aIndex]); end; procedure ImportPPLSprintResponseCollection.SetItems(aIndex: integer; const Value: ImportPPLSprintResponse); begin ImportPPLSprintResponse(inherited Items[aIndex]).Assign(Value); end; { GetZipCodes } class function GetZipCodes.GetAttributeCount: Integer; begin result := 1; end; class function GetZipCodes.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function GetZipCodes.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure GetZipCodes.Assign(iSource: TPersistent); var lSource: libPPL_Intf.GetZipCodes; begin inherited Assign(iSource); if (iSource is libPPL_Intf.GetZipCodes) then begin lSource := libPPL_Intf.GetZipCodes(iSource); FirCode := lSource.FirCode; Changed := lSource.Changed; end; end; procedure GetZipCodes.ReadComplex(ASerializer: TObject); var l_Changed: DateTime; l_FirCode: UnicodeString; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('FirCode', l_FirCode); {$ENDIF} FirCode := l_FirCode; l_Changed := Changed; TROSerializer(ASerializer).ReadDateTime('Changed', l_Changed); Changed := l_Changed; end else begin l_Changed := Changed; TROSerializer(ASerializer).ReadDateTime('Changed', l_Changed); Changed := l_Changed; l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('FirCode', l_FirCode); {$ENDIF} FirCode := l_FirCode; end; end; procedure GetZipCodes.WriteComplex(ASerializer: TObject); var l_Changed: DateTime; l_FirCode: UnicodeString; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(GetZipCodes); l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('FirCode', l_FirCode); {$ENDIF} l_Changed := Changed; TROSerializer(ASerializer).WriteDateTime('Changed', l_Changed); end else begin l_Changed := Changed; TROSerializer(ASerializer).WriteDateTime('Changed', l_Changed); l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('FirCode', l_FirCode); {$ENDIF} end; end; { GetZipCodesCollection } constructor GetZipCodesCollection.Create; begin inherited Create(GetZipCodes); end; constructor GetZipCodesCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function GetZipCodesCollection.Add: GetZipCodes; begin result := GetZipCodes(inherited Add); end; function GetZipCodesCollection.GetItems(aIndex: integer): GetZipCodes; begin result := GetZipCodes(inherited Items[aIndex]); end; procedure GetZipCodesCollection.SetItems(aIndex: integer; const Value: GetZipCodes); begin GetZipCodes(inherited Items[aIndex]).Assign(Value); end; { GetZipCodesResponse } class function GetZipCodesResponse.GetAttributeCount: Integer; begin result := 1; end; class function GetZipCodesResponse.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function GetZipCodesResponse.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure GetZipCodesResponse.Assign(iSource: TPersistent); var lSource: libPPL_Intf.GetZipCodesResponse; begin inherited Assign(iSource); if (iSource is libPPL_Intf.GetZipCodesResponse) then begin lSource := libPPL_Intf.GetZipCodesResponse(iSource); if Assigned(lSource.fGetZipCodesResult) then GetZipCodesResult.Assign(lSource.fGetZipCodesResult) else FreeAndNil(fGetZipCodesResult); end; end; function GetZipCodesResponse.GetGetZipCodesResult: ArrayOfZipCode; begin if (fGetZipCodesResult = nil) then fGetZipCodesResult := ArrayOfZipCode.Create(); result := fGetZipCodesResult; end; procedure GetZipCodesResponse.ReadComplex(ASerializer: TObject); var l_GetZipCodesResult: ArrayOfZipCode; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_GetZipCodesResult := int_GetZipCodesResult; TROSerializer(ASerializer).ReadArray('GetZipCodesResult', ArrayOfZipCode, l_GetZipCodesResult); if int_GetZipCodesResult <> l_GetZipCodesResult then GetZipCodesResult.Free; GetZipCodesResult := l_GetZipCodesResult; end else begin l_GetZipCodesResult := int_GetZipCodesResult; TROSerializer(ASerializer).ReadArray('GetZipCodesResult', ArrayOfZipCode, l_GetZipCodesResult); if int_GetZipCodesResult <> l_GetZipCodesResult then GetZipCodesResult.Free; GetZipCodesResult := l_GetZipCodesResult; end; end; procedure GetZipCodesResponse.WriteComplex(ASerializer: TObject); var l_GetZipCodesResult: ArrayOfZipCode; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(GetZipCodesResponse); l_GetZipCodesResult := int_GetZipCodesResult; TROSerializer(ASerializer).WriteArray('GetZipCodesResult', l_GetZipCodesResult, ArrayOfZipCode); end else begin l_GetZipCodesResult := int_GetZipCodesResult; TROSerializer(ASerializer).WriteArray('GetZipCodesResult', l_GetZipCodesResult, ArrayOfZipCode); end; end; { GetZipCodesResponseCollection } constructor GetZipCodesResponseCollection.Create; begin inherited Create(GetZipCodesResponse); end; constructor GetZipCodesResponseCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function GetZipCodesResponseCollection.Add: GetZipCodesResponse; begin result := GetZipCodesResponse(inherited Add); end; function GetZipCodesResponseCollection.GetItems(aIndex: integer): GetZipCodesResponse; begin result := GetZipCodesResponse(inherited Items[aIndex]); end; procedure GetZipCodesResponseCollection.SetItems(aIndex: integer; const Value: GetZipCodesResponse); begin GetZipCodesResponse(inherited Items[aIndex]).Assign(Value); end; { GetCities } class function GetCities.GetAttributeCount: Integer; begin result := 1; end; class function GetCities.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function GetCities.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure GetCities.Assign(iSource: TPersistent); var lSource: libPPL_Intf.GetCities; begin inherited Assign(iSource); if (iSource is libPPL_Intf.GetCities) then begin lSource := libPPL_Intf.GetCities(iSource); FirCode := lSource.FirCode; Date_From := lSource.Date_From; end; end; procedure GetCities.ReadComplex(ASerializer: TObject); var l_Date_From: DateTime; l_FirCode: UnicodeString; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('FirCode', l_FirCode); {$ENDIF} FirCode := l_FirCode; l_Date_From := Date_From; TROSerializer(ASerializer).ReadDateTime('Date_From', l_Date_From); Date_From := l_Date_From; end else begin l_Date_From := Date_From; TROSerializer(ASerializer).ReadDateTime('Date_From', l_Date_From); Date_From := l_Date_From; l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('FirCode', l_FirCode); {$ENDIF} FirCode := l_FirCode; end; end; procedure GetCities.WriteComplex(ASerializer: TObject); var l_Date_From: DateTime; l_FirCode: UnicodeString; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(GetCities); l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('FirCode', l_FirCode); {$ENDIF} l_Date_From := Date_From; TROSerializer(ASerializer).WriteDateTime('Date_From', l_Date_From); end else begin l_Date_From := Date_From; TROSerializer(ASerializer).WriteDateTime('Date_From', l_Date_From); l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('FirCode', l_FirCode); {$ENDIF} end; end; { GetCitiesCollection } constructor GetCitiesCollection.Create; begin inherited Create(GetCities); end; constructor GetCitiesCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function GetCitiesCollection.Add: GetCities; begin result := GetCities(inherited Add); end; function GetCitiesCollection.GetItems(aIndex: integer): GetCities; begin result := GetCities(inherited Items[aIndex]); end; procedure GetCitiesCollection.SetItems(aIndex: integer; const Value: GetCities); begin GetCities(inherited Items[aIndex]).Assign(Value); end; { GetCitiesResponse } class function GetCitiesResponse.GetAttributeCount: Integer; begin result := 1; end; class function GetCitiesResponse.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function GetCitiesResponse.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure GetCitiesResponse.Assign(iSource: TPersistent); var lSource: libPPL_Intf.GetCitiesResponse; begin inherited Assign(iSource); if (iSource is libPPL_Intf.GetCitiesResponse) then begin lSource := libPPL_Intf.GetCitiesResponse(iSource); if Assigned(lSource.fGetCitiesResult) then GetCitiesResult.Assign(lSource.fGetCitiesResult) else FreeAndNil(fGetCitiesResult); end; end; function GetCitiesResponse.GetGetCitiesResult: ArrayOfCity; begin if (fGetCitiesResult = nil) then fGetCitiesResult := ArrayOfCity.Create(); result := fGetCitiesResult; end; procedure GetCitiesResponse.ReadComplex(ASerializer: TObject); var l_GetCitiesResult: ArrayOfCity; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_GetCitiesResult := int_GetCitiesResult; TROSerializer(ASerializer).ReadArray('GetCitiesResult', ArrayOfCity, l_GetCitiesResult); if int_GetCitiesResult <> l_GetCitiesResult then GetCitiesResult.Free; GetCitiesResult := l_GetCitiesResult; end else begin l_GetCitiesResult := int_GetCitiesResult; TROSerializer(ASerializer).ReadArray('GetCitiesResult', ArrayOfCity, l_GetCitiesResult); if int_GetCitiesResult <> l_GetCitiesResult then GetCitiesResult.Free; GetCitiesResult := l_GetCitiesResult; end; end; procedure GetCitiesResponse.WriteComplex(ASerializer: TObject); var l_GetCitiesResult: ArrayOfCity; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(GetCitiesResponse); l_GetCitiesResult := int_GetCitiesResult; TROSerializer(ASerializer).WriteArray('GetCitiesResult', l_GetCitiesResult, ArrayOfCity); end else begin l_GetCitiesResult := int_GetCitiesResult; TROSerializer(ASerializer).WriteArray('GetCitiesResult', l_GetCitiesResult, ArrayOfCity); end; end; { GetCitiesResponseCollection } constructor GetCitiesResponseCollection.Create; begin inherited Create(GetCitiesResponse); end; constructor GetCitiesResponseCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function GetCitiesResponseCollection.Add: GetCitiesResponse; begin result := GetCitiesResponse(inherited Add); end; function GetCitiesResponseCollection.GetItems(aIndex: integer): GetCitiesResponse; begin result := GetCitiesResponse(inherited Items[aIndex]); end; procedure GetCitiesResponseCollection.SetItems(aIndex: integer; const Value: GetCitiesResponse); begin GetCitiesResponse(inherited Items[aIndex]).Assign(Value); end; { GetPackagesInfo } class function GetPackagesInfo.GetAttributeCount: Integer; begin result := 1; end; class function GetPackagesInfo.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function GetPackagesInfo.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure GetPackagesInfo.Assign(iSource: TPersistent); var lSource: libPPL_Intf.GetPackagesInfo; begin inherited Assign(iSource); if (iSource is libPPL_Intf.GetPackagesInfo) then begin lSource := libPPL_Intf.GetPackagesInfo(iSource); FirCode := lSource.FirCode; if Assigned(lSource.fPackageID) then PackageID.Assign(lSource.fPackageID) else FreeAndNil(fPackageID); if Assigned(lSource.fCustReference) then CustReference.Assign(lSource.fCustReference) else FreeAndNil(fCustReference); end; end; function GetPackagesInfo.GetPackageID: ArrayOfString; begin if (fPackageID = nil) then fPackageID := ArrayOfString.Create(); result := fPackageID; end; function GetPackagesInfo.GetCustReference: ArrayOfString; begin if (fCustReference = nil) then fCustReference := ArrayOfString.Create(); result := fCustReference; end; procedure GetPackagesInfo.ReadComplex(ASerializer: TObject); var l_CustReference: ArrayOfString; l_FirCode: UnicodeString; l_PackageID: ArrayOfString; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('FirCode', l_FirCode); {$ENDIF} FirCode := l_FirCode; l_PackageID := int_PackageID; TROSerializer(ASerializer).ReadArray('PackageID', ArrayOfString, l_PackageID); if int_PackageID <> l_PackageID then PackageID.Free; PackageID := l_PackageID; l_CustReference := int_CustReference; TROSerializer(ASerializer).ReadArray('CustReference', ArrayOfString, l_CustReference); if int_CustReference <> l_CustReference then CustReference.Free; CustReference := l_CustReference; end else begin l_CustReference := int_CustReference; TROSerializer(ASerializer).ReadArray('CustReference', ArrayOfString, l_CustReference); if int_CustReference <> l_CustReference then CustReference.Free; CustReference := l_CustReference; l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('FirCode', l_FirCode); {$ENDIF} FirCode := l_FirCode; l_PackageID := int_PackageID; TROSerializer(ASerializer).ReadArray('PackageID', ArrayOfString, l_PackageID); if int_PackageID <> l_PackageID then PackageID.Free; PackageID := l_PackageID; end; end; procedure GetPackagesInfo.WriteComplex(ASerializer: TObject); var l_CustReference: ArrayOfString; l_FirCode: UnicodeString; l_PackageID: ArrayOfString; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(GetPackagesInfo); l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('FirCode', l_FirCode); {$ENDIF} l_PackageID := int_PackageID; TROSerializer(ASerializer).WriteArray('PackageID', l_PackageID, ArrayOfString); l_CustReference := int_CustReference; TROSerializer(ASerializer).WriteArray('CustReference', l_CustReference, ArrayOfString); end else begin l_CustReference := int_CustReference; TROSerializer(ASerializer).WriteArray('CustReference', l_CustReference, ArrayOfString); l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('FirCode', l_FirCode); {$ENDIF} l_PackageID := int_PackageID; TROSerializer(ASerializer).WriteArray('PackageID', l_PackageID, ArrayOfString); end; end; { GetPackagesInfoCollection } constructor GetPackagesInfoCollection.Create; begin inherited Create(GetPackagesInfo); end; constructor GetPackagesInfoCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function GetPackagesInfoCollection.Add: GetPackagesInfo; begin result := GetPackagesInfo(inherited Add); end; function GetPackagesInfoCollection.GetItems(aIndex: integer): GetPackagesInfo; begin result := GetPackagesInfo(inherited Items[aIndex]); end; procedure GetPackagesInfoCollection.SetItems(aIndex: integer; const Value: GetPackagesInfo); begin GetPackagesInfo(inherited Items[aIndex]).Assign(Value); end; { PackageInfo } class function PackageInfo.GetAttributeCount: Integer; begin result := 1; end; class function PackageInfo.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function PackageInfo.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure PackageInfo.Assign(iSource: TPersistent); var lSource: libPPL_Intf.PackageInfo; begin inherited Assign(iSource); if (iSource is libPPL_Intf.PackageInfo) then begin lSource := libPPL_Intf.PackageInfo(iSource); PackageID := lSource.PackageID; PackageIDCus := lSource.PackageIDCus; CustReference := lSource.CustReference; InputDepoCode := lSource.InputDepoCode; InputDepoName := lSource.InputDepoName; OutputDepoCode := lSource.OutputDepoCode; OutputDepoName := lSource.OutputDepoName; RecZipCode := lSource.RecZipCode; RecCity := lSource.RecCity; Weight := lSource.Weight; DateInputDepo := lSource.DateInputDepo; DateWeighed := lSource.DateWeighed; DateCentral := lSource.DateCentral; DateOutputDepo := lSource.DateOutputDepo; DateNotDeliv := lSource.DateNotDeliv; NotDelivCode := lSource.NotDelivCode; NotDelivName := lSource.NotDelivName; DateDeliv := lSource.DateDeliv; DelivPerson := lSource.DelivPerson; DateExport := lSource.DateExport; DateImport := lSource.DateImport; InputCountry := lSource.InputCountry; OutputCountry := lSource.OutputCountry; InvoiceNumber := lSource.InvoiceNumber; ReturnToSender := lSource.ReturnToSender; SendInfo := lSource.SendInfo; CardPay := lSource.CardPay; EveningDelivery := lSource.EveningDelivery; LoadingDate := lSource.LoadingDate; CodPrice := lSource.CodPrice; DateTakeMoney := lSource.DateTakeMoney; DateMoneyToBank := lSource.DateMoneyToBank; DateMoneyToCustomer := lSource.DateMoneyToCustomer; ErrorCode := lSource.ErrorCode; ErrorMessage := lSource.ErrorMessage; end; end; procedure PackageInfo.ReadComplex(ASerializer: TObject); var l_CardPay: boolean; l_CodPrice: decimal; l_CustReference: UnicodeString; l_DateCentral: UnicodeString; l_DateDeliv: UnicodeString; l_DateExport: UnicodeString; l_DateImport: UnicodeString; l_DateInputDepo: UnicodeString; l_DateMoneyToBank: UnicodeString; l_DateMoneyToCustomer: UnicodeString; l_DateNotDeliv: UnicodeString; l_DateOutputDepo: UnicodeString; l_DateTakeMoney: UnicodeString; l_DateWeighed: UnicodeString; l_DelivPerson: UnicodeString; l_ErrorCode: Integer; l_ErrorMessage: UnicodeString; l_EveningDelivery: boolean; l_InputCountry: UnicodeString; l_InputDepoCode: UnicodeString; l_InputDepoName: UnicodeString; l_InvoiceNumber: UnicodeString; l_LoadingDate: UnicodeString; l_NotDelivCode: UnicodeString; l_NotDelivName: UnicodeString; l_OutputCountry: UnicodeString; l_OutputDepoCode: UnicodeString; l_OutputDepoName: UnicodeString; l_PackageID: UnicodeString; l_PackageIDCus: UnicodeString; l_RecCity: UnicodeString; l_RecZipCode: UnicodeString; l_ReturnToSender: UnicodeString; l_SendInfo: UnicodeString; l_Weight: Double; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_PackageID := PackageID; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('PackageID', l_PackageID); {$ELSE} TROSerializer(ASerializer).ReadWideString('PackageID', l_PackageID); {$ENDIF} PackageID := l_PackageID; l_PackageIDCus := PackageIDCus; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('PackageIDCus', l_PackageIDCus); {$ELSE} TROSerializer(ASerializer).ReadWideString('PackageIDCus', l_PackageIDCus); {$ENDIF} PackageIDCus := l_PackageIDCus; l_CustReference := CustReference; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('CustReference', l_CustReference); {$ELSE} TROSerializer(ASerializer).ReadWideString('CustReference', l_CustReference); {$ENDIF} CustReference := l_CustReference; l_InputDepoCode := InputDepoCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('InputDepoCode', l_InputDepoCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('InputDepoCode', l_InputDepoCode); {$ENDIF} InputDepoCode := l_InputDepoCode; l_InputDepoName := InputDepoName; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('InputDepoName', l_InputDepoName); {$ELSE} TROSerializer(ASerializer).ReadWideString('InputDepoName', l_InputDepoName); {$ENDIF} InputDepoName := l_InputDepoName; l_OutputDepoCode := OutputDepoCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('OutputDepoCode', l_OutputDepoCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('OutputDepoCode', l_OutputDepoCode); {$ENDIF} OutputDepoCode := l_OutputDepoCode; l_OutputDepoName := OutputDepoName; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('OutputDepoName', l_OutputDepoName); {$ELSE} TROSerializer(ASerializer).ReadWideString('OutputDepoName', l_OutputDepoName); {$ENDIF} OutputDepoName := l_OutputDepoName; l_RecZipCode := RecZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecZipCode', l_RecZipCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecZipCode', l_RecZipCode); {$ENDIF} RecZipCode := l_RecZipCode; l_RecCity := RecCity; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecCity', l_RecCity); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecCity', l_RecCity); {$ENDIF} RecCity := l_RecCity; l_Weight := Weight; TROSerializer(ASerializer).ReadDouble('Weight', ftDouble, l_Weight); Weight := l_Weight; l_DateInputDepo := DateInputDepo; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DateInputDepo', l_DateInputDepo); {$ELSE} TROSerializer(ASerializer).ReadWideString('DateInputDepo', l_DateInputDepo); {$ENDIF} DateInputDepo := l_DateInputDepo; l_DateWeighed := DateWeighed; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DateWeighed', l_DateWeighed); {$ELSE} TROSerializer(ASerializer).ReadWideString('DateWeighed', l_DateWeighed); {$ENDIF} DateWeighed := l_DateWeighed; l_DateCentral := DateCentral; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DateCentral', l_DateCentral); {$ELSE} TROSerializer(ASerializer).ReadWideString('DateCentral', l_DateCentral); {$ENDIF} DateCentral := l_DateCentral; l_DateOutputDepo := DateOutputDepo; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DateOutputDepo', l_DateOutputDepo); {$ELSE} TROSerializer(ASerializer).ReadWideString('DateOutputDepo', l_DateOutputDepo); {$ENDIF} DateOutputDepo := l_DateOutputDepo; l_DateNotDeliv := DateNotDeliv; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DateNotDeliv', l_DateNotDeliv); {$ELSE} TROSerializer(ASerializer).ReadWideString('DateNotDeliv', l_DateNotDeliv); {$ENDIF} DateNotDeliv := l_DateNotDeliv; l_NotDelivCode := NotDelivCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('NotDelivCode', l_NotDelivCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('NotDelivCode', l_NotDelivCode); {$ENDIF} NotDelivCode := l_NotDelivCode; l_NotDelivName := NotDelivName; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('NotDelivName', l_NotDelivName); {$ELSE} TROSerializer(ASerializer).ReadWideString('NotDelivName', l_NotDelivName); {$ENDIF} NotDelivName := l_NotDelivName; l_DateDeliv := DateDeliv; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DateDeliv', l_DateDeliv); {$ELSE} TROSerializer(ASerializer).ReadWideString('DateDeliv', l_DateDeliv); {$ENDIF} DateDeliv := l_DateDeliv; l_DelivPerson := DelivPerson; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DelivPerson', l_DelivPerson); {$ELSE} TROSerializer(ASerializer).ReadWideString('DelivPerson', l_DelivPerson); {$ENDIF} DelivPerson := l_DelivPerson; l_DateExport := DateExport; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DateExport', l_DateExport); {$ELSE} TROSerializer(ASerializer).ReadWideString('DateExport', l_DateExport); {$ENDIF} DateExport := l_DateExport; l_DateImport := DateImport; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DateImport', l_DateImport); {$ELSE} TROSerializer(ASerializer).ReadWideString('DateImport', l_DateImport); {$ENDIF} DateImport := l_DateImport; l_InputCountry := InputCountry; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('InputCountry', l_InputCountry); {$ELSE} TROSerializer(ASerializer).ReadWideString('InputCountry', l_InputCountry); {$ENDIF} InputCountry := l_InputCountry; l_OutputCountry := OutputCountry; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('OutputCountry', l_OutputCountry); {$ELSE} TROSerializer(ASerializer).ReadWideString('OutputCountry', l_OutputCountry); {$ENDIF} OutputCountry := l_OutputCountry; l_InvoiceNumber := InvoiceNumber; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('InvoiceNumber', l_InvoiceNumber); {$ELSE} TROSerializer(ASerializer).ReadWideString('InvoiceNumber', l_InvoiceNumber); {$ENDIF} InvoiceNumber := l_InvoiceNumber; l_ReturnToSender := ReturnToSender; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ReturnToSender', l_ReturnToSender); {$ELSE} TROSerializer(ASerializer).ReadWideString('ReturnToSender', l_ReturnToSender); {$ENDIF} ReturnToSender := l_ReturnToSender; l_SendInfo := SendInfo; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendInfo', l_SendInfo); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendInfo', l_SendInfo); {$ENDIF} SendInfo := l_SendInfo; l_CardPay := CardPay; TROSerializer(ASerializer).ReadEnumerated('CardPay',TypeInfo(boolean), l_CardPay); CardPay := l_CardPay; l_EveningDelivery := EveningDelivery; TROSerializer(ASerializer).ReadEnumerated('EveningDelivery',TypeInfo(boolean), l_EveningDelivery); EveningDelivery := l_EveningDelivery; l_LoadingDate := LoadingDate; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('LoadingDate', l_LoadingDate); {$ELSE} TROSerializer(ASerializer).ReadWideString('LoadingDate', l_LoadingDate); {$ENDIF} LoadingDate := l_LoadingDate; l_CodPrice := CodPrice; TROSerializer(ASerializer).ReadDecimal('CodPrice', l_CodPrice); CodPrice := l_CodPrice; l_DateTakeMoney := DateTakeMoney; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DateTakeMoney', l_DateTakeMoney); {$ELSE} TROSerializer(ASerializer).ReadWideString('DateTakeMoney', l_DateTakeMoney); {$ENDIF} DateTakeMoney := l_DateTakeMoney; l_DateMoneyToBank := DateMoneyToBank; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DateMoneyToBank', l_DateMoneyToBank); {$ELSE} TROSerializer(ASerializer).ReadWideString('DateMoneyToBank', l_DateMoneyToBank); {$ENDIF} DateMoneyToBank := l_DateMoneyToBank; l_DateMoneyToCustomer := DateMoneyToCustomer; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DateMoneyToCustomer', l_DateMoneyToCustomer); {$ELSE} TROSerializer(ASerializer).ReadWideString('DateMoneyToCustomer', l_DateMoneyToCustomer); {$ENDIF} DateMoneyToCustomer := l_DateMoneyToCustomer; l_ErrorCode := ErrorCode; TROSerializer(ASerializer).ReadInteger('ErrorCode', otSLong, l_ErrorCode); ErrorCode := l_ErrorCode; l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).ReadWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} ErrorMessage := l_ErrorMessage; end else begin l_CardPay := CardPay; TROSerializer(ASerializer).ReadEnumerated('CardPay',TypeInfo(boolean), l_CardPay); CardPay := l_CardPay; l_CodPrice := CodPrice; TROSerializer(ASerializer).ReadDecimal('CodPrice', l_CodPrice); CodPrice := l_CodPrice; l_CustReference := CustReference; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('CustReference', l_CustReference); {$ELSE} TROSerializer(ASerializer).ReadWideString('CustReference', l_CustReference); {$ENDIF} CustReference := l_CustReference; l_DateCentral := DateCentral; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DateCentral', l_DateCentral); {$ELSE} TROSerializer(ASerializer).ReadWideString('DateCentral', l_DateCentral); {$ENDIF} DateCentral := l_DateCentral; l_DateDeliv := DateDeliv; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DateDeliv', l_DateDeliv); {$ELSE} TROSerializer(ASerializer).ReadWideString('DateDeliv', l_DateDeliv); {$ENDIF} DateDeliv := l_DateDeliv; l_DateExport := DateExport; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DateExport', l_DateExport); {$ELSE} TROSerializer(ASerializer).ReadWideString('DateExport', l_DateExport); {$ENDIF} DateExport := l_DateExport; l_DateImport := DateImport; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DateImport', l_DateImport); {$ELSE} TROSerializer(ASerializer).ReadWideString('DateImport', l_DateImport); {$ENDIF} DateImport := l_DateImport; l_DateInputDepo := DateInputDepo; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DateInputDepo', l_DateInputDepo); {$ELSE} TROSerializer(ASerializer).ReadWideString('DateInputDepo', l_DateInputDepo); {$ENDIF} DateInputDepo := l_DateInputDepo; l_DateMoneyToBank := DateMoneyToBank; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DateMoneyToBank', l_DateMoneyToBank); {$ELSE} TROSerializer(ASerializer).ReadWideString('DateMoneyToBank', l_DateMoneyToBank); {$ENDIF} DateMoneyToBank := l_DateMoneyToBank; l_DateMoneyToCustomer := DateMoneyToCustomer; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DateMoneyToCustomer', l_DateMoneyToCustomer); {$ELSE} TROSerializer(ASerializer).ReadWideString('DateMoneyToCustomer', l_DateMoneyToCustomer); {$ENDIF} DateMoneyToCustomer := l_DateMoneyToCustomer; l_DateNotDeliv := DateNotDeliv; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DateNotDeliv', l_DateNotDeliv); {$ELSE} TROSerializer(ASerializer).ReadWideString('DateNotDeliv', l_DateNotDeliv); {$ENDIF} DateNotDeliv := l_DateNotDeliv; l_DateOutputDepo := DateOutputDepo; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DateOutputDepo', l_DateOutputDepo); {$ELSE} TROSerializer(ASerializer).ReadWideString('DateOutputDepo', l_DateOutputDepo); {$ENDIF} DateOutputDepo := l_DateOutputDepo; l_DateTakeMoney := DateTakeMoney; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DateTakeMoney', l_DateTakeMoney); {$ELSE} TROSerializer(ASerializer).ReadWideString('DateTakeMoney', l_DateTakeMoney); {$ENDIF} DateTakeMoney := l_DateTakeMoney; l_DateWeighed := DateWeighed; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DateWeighed', l_DateWeighed); {$ELSE} TROSerializer(ASerializer).ReadWideString('DateWeighed', l_DateWeighed); {$ENDIF} DateWeighed := l_DateWeighed; l_DelivPerson := DelivPerson; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DelivPerson', l_DelivPerson); {$ELSE} TROSerializer(ASerializer).ReadWideString('DelivPerson', l_DelivPerson); {$ENDIF} DelivPerson := l_DelivPerson; l_ErrorCode := ErrorCode; TROSerializer(ASerializer).ReadInteger('ErrorCode', otSLong, l_ErrorCode); ErrorCode := l_ErrorCode; l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).ReadWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} ErrorMessage := l_ErrorMessage; l_EveningDelivery := EveningDelivery; TROSerializer(ASerializer).ReadEnumerated('EveningDelivery',TypeInfo(boolean), l_EveningDelivery); EveningDelivery := l_EveningDelivery; l_InputCountry := InputCountry; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('InputCountry', l_InputCountry); {$ELSE} TROSerializer(ASerializer).ReadWideString('InputCountry', l_InputCountry); {$ENDIF} InputCountry := l_InputCountry; l_InputDepoCode := InputDepoCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('InputDepoCode', l_InputDepoCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('InputDepoCode', l_InputDepoCode); {$ENDIF} InputDepoCode := l_InputDepoCode; l_InputDepoName := InputDepoName; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('InputDepoName', l_InputDepoName); {$ELSE} TROSerializer(ASerializer).ReadWideString('InputDepoName', l_InputDepoName); {$ENDIF} InputDepoName := l_InputDepoName; l_InvoiceNumber := InvoiceNumber; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('InvoiceNumber', l_InvoiceNumber); {$ELSE} TROSerializer(ASerializer).ReadWideString('InvoiceNumber', l_InvoiceNumber); {$ENDIF} InvoiceNumber := l_InvoiceNumber; l_LoadingDate := LoadingDate; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('LoadingDate', l_LoadingDate); {$ELSE} TROSerializer(ASerializer).ReadWideString('LoadingDate', l_LoadingDate); {$ENDIF} LoadingDate := l_LoadingDate; l_NotDelivCode := NotDelivCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('NotDelivCode', l_NotDelivCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('NotDelivCode', l_NotDelivCode); {$ENDIF} NotDelivCode := l_NotDelivCode; l_NotDelivName := NotDelivName; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('NotDelivName', l_NotDelivName); {$ELSE} TROSerializer(ASerializer).ReadWideString('NotDelivName', l_NotDelivName); {$ENDIF} NotDelivName := l_NotDelivName; l_OutputCountry := OutputCountry; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('OutputCountry', l_OutputCountry); {$ELSE} TROSerializer(ASerializer).ReadWideString('OutputCountry', l_OutputCountry); {$ENDIF} OutputCountry := l_OutputCountry; l_OutputDepoCode := OutputDepoCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('OutputDepoCode', l_OutputDepoCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('OutputDepoCode', l_OutputDepoCode); {$ENDIF} OutputDepoCode := l_OutputDepoCode; l_OutputDepoName := OutputDepoName; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('OutputDepoName', l_OutputDepoName); {$ELSE} TROSerializer(ASerializer).ReadWideString('OutputDepoName', l_OutputDepoName); {$ENDIF} OutputDepoName := l_OutputDepoName; l_PackageID := PackageID; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('PackageID', l_PackageID); {$ELSE} TROSerializer(ASerializer).ReadWideString('PackageID', l_PackageID); {$ENDIF} PackageID := l_PackageID; l_PackageIDCus := PackageIDCus; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('PackageIDCus', l_PackageIDCus); {$ELSE} TROSerializer(ASerializer).ReadWideString('PackageIDCus', l_PackageIDCus); {$ENDIF} PackageIDCus := l_PackageIDCus; l_RecCity := RecCity; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecCity', l_RecCity); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecCity', l_RecCity); {$ENDIF} RecCity := l_RecCity; l_RecZipCode := RecZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecZipCode', l_RecZipCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecZipCode', l_RecZipCode); {$ENDIF} RecZipCode := l_RecZipCode; l_ReturnToSender := ReturnToSender; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ReturnToSender', l_ReturnToSender); {$ELSE} TROSerializer(ASerializer).ReadWideString('ReturnToSender', l_ReturnToSender); {$ENDIF} ReturnToSender := l_ReturnToSender; l_SendInfo := SendInfo; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendInfo', l_SendInfo); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendInfo', l_SendInfo); {$ENDIF} SendInfo := l_SendInfo; l_Weight := Weight; TROSerializer(ASerializer).ReadDouble('Weight', ftDouble, l_Weight); Weight := l_Weight; end; end; procedure PackageInfo.WriteComplex(ASerializer: TObject); var l_CardPay: boolean; l_CodPrice: decimal; l_CustReference: UnicodeString; l_DateCentral: UnicodeString; l_DateDeliv: UnicodeString; l_DateExport: UnicodeString; l_DateImport: UnicodeString; l_DateInputDepo: UnicodeString; l_DateMoneyToBank: UnicodeString; l_DateMoneyToCustomer: UnicodeString; l_DateNotDeliv: UnicodeString; l_DateOutputDepo: UnicodeString; l_DateTakeMoney: UnicodeString; l_DateWeighed: UnicodeString; l_DelivPerson: UnicodeString; l_ErrorCode: Integer; l_ErrorMessage: UnicodeString; l_EveningDelivery: boolean; l_InputCountry: UnicodeString; l_InputDepoCode: UnicodeString; l_InputDepoName: UnicodeString; l_InvoiceNumber: UnicodeString; l_LoadingDate: UnicodeString; l_NotDelivCode: UnicodeString; l_NotDelivName: UnicodeString; l_OutputCountry: UnicodeString; l_OutputDepoCode: UnicodeString; l_OutputDepoName: UnicodeString; l_PackageID: UnicodeString; l_PackageIDCus: UnicodeString; l_RecCity: UnicodeString; l_RecZipCode: UnicodeString; l_ReturnToSender: UnicodeString; l_SendInfo: UnicodeString; l_Weight: Double; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(PackageInfo); l_PackageID := PackageID; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('PackageID', l_PackageID); {$ELSE} TROSerializer(ASerializer).WriteWideString('PackageID', l_PackageID); {$ENDIF} l_PackageIDCus := PackageIDCus; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('PackageIDCus', l_PackageIDCus); {$ELSE} TROSerializer(ASerializer).WriteWideString('PackageIDCus', l_PackageIDCus); {$ENDIF} l_CustReference := CustReference; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('CustReference', l_CustReference); {$ELSE} TROSerializer(ASerializer).WriteWideString('CustReference', l_CustReference); {$ENDIF} l_InputDepoCode := InputDepoCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('InputDepoCode', l_InputDepoCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('InputDepoCode', l_InputDepoCode); {$ENDIF} l_InputDepoName := InputDepoName; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('InputDepoName', l_InputDepoName); {$ELSE} TROSerializer(ASerializer).WriteWideString('InputDepoName', l_InputDepoName); {$ENDIF} l_OutputDepoCode := OutputDepoCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('OutputDepoCode', l_OutputDepoCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('OutputDepoCode', l_OutputDepoCode); {$ENDIF} l_OutputDepoName := OutputDepoName; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('OutputDepoName', l_OutputDepoName); {$ELSE} TROSerializer(ASerializer).WriteWideString('OutputDepoName', l_OutputDepoName); {$ENDIF} l_RecZipCode := RecZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecZipCode', l_RecZipCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecZipCode', l_RecZipCode); {$ENDIF} l_RecCity := RecCity; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecCity', l_RecCity); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecCity', l_RecCity); {$ENDIF} l_Weight := Weight; TROSerializer(ASerializer).WriteDouble('Weight', ftDouble, l_Weight); l_DateInputDepo := DateInputDepo; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DateInputDepo', l_DateInputDepo); {$ELSE} TROSerializer(ASerializer).WriteWideString('DateInputDepo', l_DateInputDepo); {$ENDIF} l_DateWeighed := DateWeighed; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DateWeighed', l_DateWeighed); {$ELSE} TROSerializer(ASerializer).WriteWideString('DateWeighed', l_DateWeighed); {$ENDIF} l_DateCentral := DateCentral; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DateCentral', l_DateCentral); {$ELSE} TROSerializer(ASerializer).WriteWideString('DateCentral', l_DateCentral); {$ENDIF} l_DateOutputDepo := DateOutputDepo; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DateOutputDepo', l_DateOutputDepo); {$ELSE} TROSerializer(ASerializer).WriteWideString('DateOutputDepo', l_DateOutputDepo); {$ENDIF} l_DateNotDeliv := DateNotDeliv; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DateNotDeliv', l_DateNotDeliv); {$ELSE} TROSerializer(ASerializer).WriteWideString('DateNotDeliv', l_DateNotDeliv); {$ENDIF} l_NotDelivCode := NotDelivCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('NotDelivCode', l_NotDelivCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('NotDelivCode', l_NotDelivCode); {$ENDIF} l_NotDelivName := NotDelivName; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('NotDelivName', l_NotDelivName); {$ELSE} TROSerializer(ASerializer).WriteWideString('NotDelivName', l_NotDelivName); {$ENDIF} l_DateDeliv := DateDeliv; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DateDeliv', l_DateDeliv); {$ELSE} TROSerializer(ASerializer).WriteWideString('DateDeliv', l_DateDeliv); {$ENDIF} l_DelivPerson := DelivPerson; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DelivPerson', l_DelivPerson); {$ELSE} TROSerializer(ASerializer).WriteWideString('DelivPerson', l_DelivPerson); {$ENDIF} l_DateExport := DateExport; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DateExport', l_DateExport); {$ELSE} TROSerializer(ASerializer).WriteWideString('DateExport', l_DateExport); {$ENDIF} l_DateImport := DateImport; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DateImport', l_DateImport); {$ELSE} TROSerializer(ASerializer).WriteWideString('DateImport', l_DateImport); {$ENDIF} l_InputCountry := InputCountry; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('InputCountry', l_InputCountry); {$ELSE} TROSerializer(ASerializer).WriteWideString('InputCountry', l_InputCountry); {$ENDIF} l_OutputCountry := OutputCountry; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('OutputCountry', l_OutputCountry); {$ELSE} TROSerializer(ASerializer).WriteWideString('OutputCountry', l_OutputCountry); {$ENDIF} l_InvoiceNumber := InvoiceNumber; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('InvoiceNumber', l_InvoiceNumber); {$ELSE} TROSerializer(ASerializer).WriteWideString('InvoiceNumber', l_InvoiceNumber); {$ENDIF} l_ReturnToSender := ReturnToSender; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ReturnToSender', l_ReturnToSender); {$ELSE} TROSerializer(ASerializer).WriteWideString('ReturnToSender', l_ReturnToSender); {$ENDIF} l_SendInfo := SendInfo; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendInfo', l_SendInfo); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendInfo', l_SendInfo); {$ENDIF} l_CardPay := CardPay; TROSerializer(ASerializer).WriteEnumerated('CardPay',TypeInfo(boolean), l_CardPay); l_EveningDelivery := EveningDelivery; TROSerializer(ASerializer).WriteEnumerated('EveningDelivery',TypeInfo(boolean), l_EveningDelivery); l_LoadingDate := LoadingDate; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('LoadingDate', l_LoadingDate); {$ELSE} TROSerializer(ASerializer).WriteWideString('LoadingDate', l_LoadingDate); {$ENDIF} l_CodPrice := CodPrice; TROSerializer(ASerializer).WriteDecimal('CodPrice', l_CodPrice); l_DateTakeMoney := DateTakeMoney; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DateTakeMoney', l_DateTakeMoney); {$ELSE} TROSerializer(ASerializer).WriteWideString('DateTakeMoney', l_DateTakeMoney); {$ENDIF} l_DateMoneyToBank := DateMoneyToBank; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DateMoneyToBank', l_DateMoneyToBank); {$ELSE} TROSerializer(ASerializer).WriteWideString('DateMoneyToBank', l_DateMoneyToBank); {$ENDIF} l_DateMoneyToCustomer := DateMoneyToCustomer; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DateMoneyToCustomer', l_DateMoneyToCustomer); {$ELSE} TROSerializer(ASerializer).WriteWideString('DateMoneyToCustomer', l_DateMoneyToCustomer); {$ENDIF} l_ErrorCode := ErrorCode; TROSerializer(ASerializer).WriteInteger('ErrorCode', otSLong, l_ErrorCode); l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).WriteWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} end else begin l_CardPay := CardPay; TROSerializer(ASerializer).WriteEnumerated('CardPay',TypeInfo(boolean), l_CardPay); l_CodPrice := CodPrice; TROSerializer(ASerializer).WriteDecimal('CodPrice', l_CodPrice); l_CustReference := CustReference; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('CustReference', l_CustReference); {$ELSE} TROSerializer(ASerializer).WriteWideString('CustReference', l_CustReference); {$ENDIF} l_DateCentral := DateCentral; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DateCentral', l_DateCentral); {$ELSE} TROSerializer(ASerializer).WriteWideString('DateCentral', l_DateCentral); {$ENDIF} l_DateDeliv := DateDeliv; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DateDeliv', l_DateDeliv); {$ELSE} TROSerializer(ASerializer).WriteWideString('DateDeliv', l_DateDeliv); {$ENDIF} l_DateExport := DateExport; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DateExport', l_DateExport); {$ELSE} TROSerializer(ASerializer).WriteWideString('DateExport', l_DateExport); {$ENDIF} l_DateImport := DateImport; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DateImport', l_DateImport); {$ELSE} TROSerializer(ASerializer).WriteWideString('DateImport', l_DateImport); {$ENDIF} l_DateInputDepo := DateInputDepo; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DateInputDepo', l_DateInputDepo); {$ELSE} TROSerializer(ASerializer).WriteWideString('DateInputDepo', l_DateInputDepo); {$ENDIF} l_DateMoneyToBank := DateMoneyToBank; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DateMoneyToBank', l_DateMoneyToBank); {$ELSE} TROSerializer(ASerializer).WriteWideString('DateMoneyToBank', l_DateMoneyToBank); {$ENDIF} l_DateMoneyToCustomer := DateMoneyToCustomer; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DateMoneyToCustomer', l_DateMoneyToCustomer); {$ELSE} TROSerializer(ASerializer).WriteWideString('DateMoneyToCustomer', l_DateMoneyToCustomer); {$ENDIF} l_DateNotDeliv := DateNotDeliv; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DateNotDeliv', l_DateNotDeliv); {$ELSE} TROSerializer(ASerializer).WriteWideString('DateNotDeliv', l_DateNotDeliv); {$ENDIF} l_DateOutputDepo := DateOutputDepo; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DateOutputDepo', l_DateOutputDepo); {$ELSE} TROSerializer(ASerializer).WriteWideString('DateOutputDepo', l_DateOutputDepo); {$ENDIF} l_DateTakeMoney := DateTakeMoney; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DateTakeMoney', l_DateTakeMoney); {$ELSE} TROSerializer(ASerializer).WriteWideString('DateTakeMoney', l_DateTakeMoney); {$ENDIF} l_DateWeighed := DateWeighed; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DateWeighed', l_DateWeighed); {$ELSE} TROSerializer(ASerializer).WriteWideString('DateWeighed', l_DateWeighed); {$ENDIF} l_DelivPerson := DelivPerson; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DelivPerson', l_DelivPerson); {$ELSE} TROSerializer(ASerializer).WriteWideString('DelivPerson', l_DelivPerson); {$ENDIF} l_ErrorCode := ErrorCode; TROSerializer(ASerializer).WriteInteger('ErrorCode', otSLong, l_ErrorCode); l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).WriteWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} l_EveningDelivery := EveningDelivery; TROSerializer(ASerializer).WriteEnumerated('EveningDelivery',TypeInfo(boolean), l_EveningDelivery); l_InputCountry := InputCountry; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('InputCountry', l_InputCountry); {$ELSE} TROSerializer(ASerializer).WriteWideString('InputCountry', l_InputCountry); {$ENDIF} l_InputDepoCode := InputDepoCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('InputDepoCode', l_InputDepoCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('InputDepoCode', l_InputDepoCode); {$ENDIF} l_InputDepoName := InputDepoName; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('InputDepoName', l_InputDepoName); {$ELSE} TROSerializer(ASerializer).WriteWideString('InputDepoName', l_InputDepoName); {$ENDIF} l_InvoiceNumber := InvoiceNumber; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('InvoiceNumber', l_InvoiceNumber); {$ELSE} TROSerializer(ASerializer).WriteWideString('InvoiceNumber', l_InvoiceNumber); {$ENDIF} l_LoadingDate := LoadingDate; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('LoadingDate', l_LoadingDate); {$ELSE} TROSerializer(ASerializer).WriteWideString('LoadingDate', l_LoadingDate); {$ENDIF} l_NotDelivCode := NotDelivCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('NotDelivCode', l_NotDelivCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('NotDelivCode', l_NotDelivCode); {$ENDIF} l_NotDelivName := NotDelivName; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('NotDelivName', l_NotDelivName); {$ELSE} TROSerializer(ASerializer).WriteWideString('NotDelivName', l_NotDelivName); {$ENDIF} l_OutputCountry := OutputCountry; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('OutputCountry', l_OutputCountry); {$ELSE} TROSerializer(ASerializer).WriteWideString('OutputCountry', l_OutputCountry); {$ENDIF} l_OutputDepoCode := OutputDepoCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('OutputDepoCode', l_OutputDepoCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('OutputDepoCode', l_OutputDepoCode); {$ENDIF} l_OutputDepoName := OutputDepoName; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('OutputDepoName', l_OutputDepoName); {$ELSE} TROSerializer(ASerializer).WriteWideString('OutputDepoName', l_OutputDepoName); {$ENDIF} l_PackageID := PackageID; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('PackageID', l_PackageID); {$ELSE} TROSerializer(ASerializer).WriteWideString('PackageID', l_PackageID); {$ENDIF} l_PackageIDCus := PackageIDCus; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('PackageIDCus', l_PackageIDCus); {$ELSE} TROSerializer(ASerializer).WriteWideString('PackageIDCus', l_PackageIDCus); {$ENDIF} l_RecCity := RecCity; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecCity', l_RecCity); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecCity', l_RecCity); {$ENDIF} l_RecZipCode := RecZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecZipCode', l_RecZipCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecZipCode', l_RecZipCode); {$ENDIF} l_ReturnToSender := ReturnToSender; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ReturnToSender', l_ReturnToSender); {$ELSE} TROSerializer(ASerializer).WriteWideString('ReturnToSender', l_ReturnToSender); {$ENDIF} l_SendInfo := SendInfo; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendInfo', l_SendInfo); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendInfo', l_SendInfo); {$ENDIF} l_Weight := Weight; TROSerializer(ASerializer).WriteDouble('Weight', ftDouble, l_Weight); end; end; { PackageInfoCollection } constructor PackageInfoCollection.Create; begin inherited Create(PackageInfo); end; constructor PackageInfoCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function PackageInfoCollection.Add: PackageInfo; begin result := PackageInfo(inherited Add); end; function PackageInfoCollection.GetItems(aIndex: integer): PackageInfo; begin result := PackageInfo(inherited Items[aIndex]); end; procedure PackageInfoCollection.LoadFromArray(anArray: ArrayOfPackageInfo); var i : integer; begin Clear; for i := 0 to (anArray.Count-1) do if anArray[i] <> nil then anArray[i].Clone.Collection := Self; end; procedure PackageInfoCollection.SaveToArray(anArray: ArrayOfPackageInfo); var i : integer; begin anArray.Clear; for i := 0 to (Count-1) do begin if Assigned(Items[i]) then anArray.Add(PackageInfo(Items[i].Clone)) else anArray.Add(nil); end; end; procedure PackageInfoCollection.SetItems(aIndex: integer; const Value: PackageInfo); begin PackageInfo(inherited Items[aIndex]).Assign(Value); end; { GetPackagesInfoResponse } class function GetPackagesInfoResponse.GetAttributeCount: Integer; begin result := 1; end; class function GetPackagesInfoResponse.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function GetPackagesInfoResponse.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure GetPackagesInfoResponse.Assign(iSource: TPersistent); var lSource: libPPL_Intf.GetPackagesInfoResponse; begin inherited Assign(iSource); if (iSource is libPPL_Intf.GetPackagesInfoResponse) then begin lSource := libPPL_Intf.GetPackagesInfoResponse(iSource); if Assigned(lSource.fGetPackagesInfoResult) then GetPackagesInfoResult.Assign(lSource.fGetPackagesInfoResult) else FreeAndNil(fGetPackagesInfoResult); end; end; function GetPackagesInfoResponse.GetGetPackagesInfoResult: ArrayOfPackageInfo; begin if (fGetPackagesInfoResult = nil) then fGetPackagesInfoResult := ArrayOfPackageInfo.Create(); result := fGetPackagesInfoResult; end; procedure GetPackagesInfoResponse.ReadComplex(ASerializer: TObject); var l_GetPackagesInfoResult: ArrayOfPackageInfo; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_GetPackagesInfoResult := int_GetPackagesInfoResult; TROSerializer(ASerializer).ReadArray('GetPackagesInfoResult', ArrayOfPackageInfo, l_GetPackagesInfoResult); if int_GetPackagesInfoResult <> l_GetPackagesInfoResult then GetPackagesInfoResult.Free; GetPackagesInfoResult := l_GetPackagesInfoResult; end else begin l_GetPackagesInfoResult := int_GetPackagesInfoResult; TROSerializer(ASerializer).ReadArray('GetPackagesInfoResult', ArrayOfPackageInfo, l_GetPackagesInfoResult); if int_GetPackagesInfoResult <> l_GetPackagesInfoResult then GetPackagesInfoResult.Free; GetPackagesInfoResult := l_GetPackagesInfoResult; end; end; procedure GetPackagesInfoResponse.WriteComplex(ASerializer: TObject); var l_GetPackagesInfoResult: ArrayOfPackageInfo; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(GetPackagesInfoResponse); l_GetPackagesInfoResult := int_GetPackagesInfoResult; TROSerializer(ASerializer).WriteArray('GetPackagesInfoResult', l_GetPackagesInfoResult, ArrayOfPackageInfo); end else begin l_GetPackagesInfoResult := int_GetPackagesInfoResult; TROSerializer(ASerializer).WriteArray('GetPackagesInfoResult', l_GetPackagesInfoResult, ArrayOfPackageInfo); end; end; { GetPackagesInfoResponseCollection } constructor GetPackagesInfoResponseCollection.Create; begin inherited Create(GetPackagesInfoResponse); end; constructor GetPackagesInfoResponseCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function GetPackagesInfoResponseCollection.Add: GetPackagesInfoResponse; begin result := GetPackagesInfoResponse(inherited Add); end; function GetPackagesInfoResponseCollection.GetItems(aIndex: integer): GetPackagesInfoResponse; begin result := GetPackagesInfoResponse(inherited Items[aIndex]); end; procedure GetPackagesInfoResponseCollection.SetItems(aIndex: integer; const Value: GetPackagesInfoResponse); begin GetPackagesInfoResponse(inherited Items[aIndex]).Assign(Value); end; { GetPackageToDelivery } class function GetPackageToDelivery.GetAttributeCount: Integer; begin result := 1; end; class function GetPackageToDelivery.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function GetPackageToDelivery.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure GetPackageToDelivery.Assign(iSource: TPersistent); var lSource: libPPL_Intf.GetPackageToDelivery; begin inherited Assign(iSource); if (iSource is libPPL_Intf.GetPackageToDelivery) then begin lSource := libPPL_Intf.GetPackageToDelivery(iSource); FirCode := lSource.FirCode; DateToDeliv := lSource.DateToDeliv; end; end; procedure GetPackageToDelivery.ReadComplex(ASerializer: TObject); var l_DateToDeliv: UnicodeString; l_FirCode: UnicodeString; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('FirCode', l_FirCode); {$ENDIF} FirCode := l_FirCode; l_DateToDeliv := DateToDeliv; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DateToDeliv', l_DateToDeliv); {$ELSE} TROSerializer(ASerializer).ReadWideString('DateToDeliv', l_DateToDeliv); {$ENDIF} DateToDeliv := l_DateToDeliv; end else begin l_DateToDeliv := DateToDeliv; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DateToDeliv', l_DateToDeliv); {$ELSE} TROSerializer(ASerializer).ReadWideString('DateToDeliv', l_DateToDeliv); {$ENDIF} DateToDeliv := l_DateToDeliv; l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('FirCode', l_FirCode); {$ENDIF} FirCode := l_FirCode; end; end; procedure GetPackageToDelivery.WriteComplex(ASerializer: TObject); var l_DateToDeliv: UnicodeString; l_FirCode: UnicodeString; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(GetPackageToDelivery); l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('FirCode', l_FirCode); {$ENDIF} l_DateToDeliv := DateToDeliv; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DateToDeliv', l_DateToDeliv); {$ELSE} TROSerializer(ASerializer).WriteWideString('DateToDeliv', l_DateToDeliv); {$ENDIF} end else begin l_DateToDeliv := DateToDeliv; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DateToDeliv', l_DateToDeliv); {$ELSE} TROSerializer(ASerializer).WriteWideString('DateToDeliv', l_DateToDeliv); {$ENDIF} l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('FirCode', l_FirCode); {$ENDIF} end; end; { GetPackageToDeliveryCollection } constructor GetPackageToDeliveryCollection.Create; begin inherited Create(GetPackageToDelivery); end; constructor GetPackageToDeliveryCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function GetPackageToDeliveryCollection.Add: GetPackageToDelivery; begin result := GetPackageToDelivery(inherited Add); end; function GetPackageToDeliveryCollection.GetItems(aIndex: integer): GetPackageToDelivery; begin result := GetPackageToDelivery(inherited Items[aIndex]); end; procedure GetPackageToDeliveryCollection.SetItems(aIndex: integer; const Value: GetPackageToDelivery); begin GetPackageToDelivery(inherited Items[aIndex]).Assign(Value); end; { colPackage } class function colPackage.GetAttributeCount: Integer; begin result := 1; end; class function colPackage.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function colPackage.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure colPackage.Assign(iSource: TPersistent); var lSource: libPPL_Intf.colPackage; begin inherited Assign(iSource); if (iSource is libPPL_Intf.colPackage) then begin lSource := libPPL_Intf.colPackage(iSource); if Assigned(lSource.fItems) then Items.Assign(lSource.fItems) else FreeAndNil(fItems); ErrorCode := lSource.ErrorCode; ErrorMessage := lSource.ErrorMessage; end; end; function colPackage.GetItems: ArrayOfAnyType; begin if (fItems = nil) then fItems := ArrayOfAnyType.Create(); result := fItems; end; procedure colPackage.ReadComplex(ASerializer: TObject); var l_ErrorCode: Integer; l_ErrorMessage: UnicodeString; l_Items: ArrayOfAnyType; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_Items := int_Items; TROSerializer(ASerializer).ReadArray('Items', ArrayOfAnyType, l_Items); if int_Items <> l_Items then Items.Free; Items := l_Items; l_ErrorCode := ErrorCode; TROSerializer(ASerializer).ReadInteger('ErrorCode', otSLong, l_ErrorCode); ErrorCode := l_ErrorCode; l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).ReadWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} ErrorMessage := l_ErrorMessage; end else begin l_ErrorCode := ErrorCode; TROSerializer(ASerializer).ReadInteger('ErrorCode', otSLong, l_ErrorCode); ErrorCode := l_ErrorCode; l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).ReadWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} ErrorMessage := l_ErrorMessage; l_Items := int_Items; TROSerializer(ASerializer).ReadArray('Items', ArrayOfAnyType, l_Items); if int_Items <> l_Items then Items.Free; Items := l_Items; end; end; procedure colPackage.WriteComplex(ASerializer: TObject); var l_ErrorCode: Integer; l_ErrorMessage: UnicodeString; l_Items: ArrayOfAnyType; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(colPackage); l_Items := int_Items; TROSerializer(ASerializer).WriteArray('Items', l_Items, ArrayOfAnyType); l_ErrorCode := ErrorCode; TROSerializer(ASerializer).WriteInteger('ErrorCode', otSLong, l_ErrorCode); l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).WriteWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} end else begin l_ErrorCode := ErrorCode; TROSerializer(ASerializer).WriteInteger('ErrorCode', otSLong, l_ErrorCode); l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).WriteWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} l_Items := int_Items; TROSerializer(ASerializer).WriteArray('Items', l_Items, ArrayOfAnyType); end; end; { colPackageCollection } constructor colPackageCollection.Create; begin inherited Create(colPackage); end; constructor colPackageCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function colPackageCollection.Add: colPackage; begin result := colPackage(inherited Add); end; function colPackageCollection.GetItems(aIndex: integer): colPackage; begin result := colPackage(inherited Items[aIndex]); end; procedure colPackageCollection.SetItems(aIndex: integer; const Value: colPackage); begin colPackage(inherited Items[aIndex]).Assign(Value); end; { GetPackageToDeliveryResponse } class function GetPackageToDeliveryResponse.GetAttributeCount: Integer; begin result := 1; end; class function GetPackageToDeliveryResponse.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function GetPackageToDeliveryResponse.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure GetPackageToDeliveryResponse.Assign(iSource: TPersistent); var lSource: libPPL_Intf.GetPackageToDeliveryResponse; begin inherited Assign(iSource); if (iSource is libPPL_Intf.GetPackageToDeliveryResponse) then begin lSource := libPPL_Intf.GetPackageToDeliveryResponse(iSource); if Assigned(lSource.fGetPackageToDeliveryResult) then GetPackageToDeliveryResult.Assign(lSource.fGetPackageToDeliveryResult) else FreeAndNil(fGetPackageToDeliveryResult); end; end; function GetPackageToDeliveryResponse.GetGetPackageToDeliveryResult: colPackage; begin if (fGetPackageToDeliveryResult = nil) then fGetPackageToDeliveryResult := colPackage.Create(); result := fGetPackageToDeliveryResult; end; procedure GetPackageToDeliveryResponse.ReadComplex(ASerializer: TObject); var l_GetPackageToDeliveryResult: colPackage; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_GetPackageToDeliveryResult := int_GetPackageToDeliveryResult; TROSerializer(ASerializer).ReadStruct('GetPackageToDeliveryResult', colPackage, l_GetPackageToDeliveryResult); if int_GetPackageToDeliveryResult <> l_GetPackageToDeliveryResult then GetPackageToDeliveryResult.Free; GetPackageToDeliveryResult := l_GetPackageToDeliveryResult; end else begin l_GetPackageToDeliveryResult := int_GetPackageToDeliveryResult; TROSerializer(ASerializer).ReadStruct('GetPackageToDeliveryResult', colPackage, l_GetPackageToDeliveryResult); if int_GetPackageToDeliveryResult <> l_GetPackageToDeliveryResult then GetPackageToDeliveryResult.Free; GetPackageToDeliveryResult := l_GetPackageToDeliveryResult; end; end; procedure GetPackageToDeliveryResponse.WriteComplex(ASerializer: TObject); var l_GetPackageToDeliveryResult: colPackage; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(GetPackageToDeliveryResponse); l_GetPackageToDeliveryResult := int_GetPackageToDeliveryResult; TROSerializer(ASerializer).WriteStruct('GetPackageToDeliveryResult', l_GetPackageToDeliveryResult, colPackage); end else begin l_GetPackageToDeliveryResult := int_GetPackageToDeliveryResult; TROSerializer(ASerializer).WriteStruct('GetPackageToDeliveryResult', l_GetPackageToDeliveryResult, colPackage); end; end; { GetPackageToDeliveryResponseCollection } constructor GetPackageToDeliveryResponseCollection.Create; begin inherited Create(GetPackageToDeliveryResponse); end; constructor GetPackageToDeliveryResponseCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function GetPackageToDeliveryResponseCollection.Add: GetPackageToDeliveryResponse; begin result := GetPackageToDeliveryResponse(inherited Add); end; function GetPackageToDeliveryResponseCollection.GetItems(aIndex: integer): GetPackageToDeliveryResponse; begin result := GetPackageToDeliveryResponse(inherited Items[aIndex]); end; procedure GetPackageToDeliveryResponseCollection.SetItems(aIndex: integer; const Value: GetPackageToDeliveryResponse); begin GetPackageToDeliveryResponse(inherited Items[aIndex]).Assign(Value); end; { GetPackageInfo } class function GetPackageInfo.GetAttributeCount: Integer; begin result := 1; end; class function GetPackageInfo.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function GetPackageInfo.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure GetPackageInfo.Assign(iSource: TPersistent); var lSource: libPPL_Intf.GetPackageInfo; begin inherited Assign(iSource); if (iSource is libPPL_Intf.GetPackageInfo) then begin lSource := libPPL_Intf.GetPackageInfo(iSource); PackageID := lSource.PackageID; end; end; procedure GetPackageInfo.ReadComplex(ASerializer: TObject); var l_PackageID: UnicodeString; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_PackageID := PackageID; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('PackageID', l_PackageID); {$ELSE} TROSerializer(ASerializer).ReadWideString('PackageID', l_PackageID); {$ENDIF} PackageID := l_PackageID; end else begin l_PackageID := PackageID; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('PackageID', l_PackageID); {$ELSE} TROSerializer(ASerializer).ReadWideString('PackageID', l_PackageID); {$ENDIF} PackageID := l_PackageID; end; end; procedure GetPackageInfo.WriteComplex(ASerializer: TObject); var l_PackageID: UnicodeString; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(GetPackageInfo); l_PackageID := PackageID; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('PackageID', l_PackageID); {$ELSE} TROSerializer(ASerializer).WriteWideString('PackageID', l_PackageID); {$ENDIF} end else begin l_PackageID := PackageID; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('PackageID', l_PackageID); {$ELSE} TROSerializer(ASerializer).WriteWideString('PackageID', l_PackageID); {$ENDIF} end; end; { GetPackageInfoCollection } constructor GetPackageInfoCollection.Create; begin inherited Create(GetPackageInfo); end; constructor GetPackageInfoCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function GetPackageInfoCollection.Add: GetPackageInfo; begin result := GetPackageInfo(inherited Add); end; function GetPackageInfoCollection.GetItems(aIndex: integer): GetPackageInfo; begin result := GetPackageInfo(inherited Items[aIndex]); end; procedure GetPackageInfoCollection.SetItems(aIndex: integer; const Value: GetPackageInfo); begin GetPackageInfo(inherited Items[aIndex]).Assign(Value); end; { GetPackageInfoResponse } class function GetPackageInfoResponse.GetAttributeCount: Integer; begin result := 1; end; class function GetPackageInfoResponse.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function GetPackageInfoResponse.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure GetPackageInfoResponse.Assign(iSource: TPersistent); var lSource: libPPL_Intf.GetPackageInfoResponse; begin inherited Assign(iSource); if (iSource is libPPL_Intf.GetPackageInfoResponse) then begin lSource := libPPL_Intf.GetPackageInfoResponse(iSource); if Assigned(lSource.fGetPackageInfoResult) then GetPackageInfoResult.Assign(lSource.fGetPackageInfoResult) else FreeAndNil(fGetPackageInfoResult); end; end; function GetPackageInfoResponse.GetGetPackageInfoResult: PackageInfo; begin if (fGetPackageInfoResult = nil) then fGetPackageInfoResult := PackageInfo.Create(); result := fGetPackageInfoResult; end; procedure GetPackageInfoResponse.ReadComplex(ASerializer: TObject); var l_GetPackageInfoResult: PackageInfo; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_GetPackageInfoResult := int_GetPackageInfoResult; TROSerializer(ASerializer).ReadStruct('GetPackageInfoResult', PackageInfo, l_GetPackageInfoResult); if int_GetPackageInfoResult <> l_GetPackageInfoResult then GetPackageInfoResult.Free; GetPackageInfoResult := l_GetPackageInfoResult; end else begin l_GetPackageInfoResult := int_GetPackageInfoResult; TROSerializer(ASerializer).ReadStruct('GetPackageInfoResult', PackageInfo, l_GetPackageInfoResult); if int_GetPackageInfoResult <> l_GetPackageInfoResult then GetPackageInfoResult.Free; GetPackageInfoResult := l_GetPackageInfoResult; end; end; procedure GetPackageInfoResponse.WriteComplex(ASerializer: TObject); var l_GetPackageInfoResult: PackageInfo; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(GetPackageInfoResponse); l_GetPackageInfoResult := int_GetPackageInfoResult; TROSerializer(ASerializer).WriteStruct('GetPackageInfoResult', l_GetPackageInfoResult, PackageInfo); end else begin l_GetPackageInfoResult := int_GetPackageInfoResult; TROSerializer(ASerializer).WriteStruct('GetPackageInfoResult', l_GetPackageInfoResult, PackageInfo); end; end; { GetPackageInfoResponseCollection } constructor GetPackageInfoResponseCollection.Create; begin inherited Create(GetPackageInfoResponse); end; constructor GetPackageInfoResponseCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function GetPackageInfoResponseCollection.Add: GetPackageInfoResponse; begin result := GetPackageInfoResponse(inherited Add); end; function GetPackageInfoResponseCollection.GetItems(aIndex: integer): GetPackageInfoResponse; begin result := GetPackageInfoResponse(inherited Items[aIndex]); end; procedure GetPackageInfoResponseCollection.SetItems(aIndex: integer; const Value: GetPackageInfoResponse); begin GetPackageInfoResponse(inherited Items[aIndex]).Assign(Value); end; { ImportOrderExt } class function ImportOrderExt.GetAttributeCount: Integer; begin result := 1; end; class function ImportOrderExt.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function ImportOrderExt.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure ImportOrderExt.Assign(iSource: TPersistent); var lSource: libPPL_Intf.ImportOrderExt; begin inherited Assign(iSource); if (iSource is libPPL_Intf.ImportOrderExt) then begin lSource := libPPL_Intf.ImportOrderExt(iSource); FirCode := lSource.FirCode; if Assigned(lSource.ffield_order) then field_order.Assign(lSource.ffield_order) else FreeAndNil(ffield_order); end; end; function ImportOrderExt.Getfield_order: Order; begin if (ffield_order = nil) then ffield_order := Order.Create(); result := ffield_order; end; procedure ImportOrderExt.ReadComplex(ASerializer: TObject); var l_field_order: Order; l_FirCode: UnicodeString; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('FirCode', l_FirCode); {$ENDIF} FirCode := l_FirCode; l_field_order := int_field_order; TROSerializer(ASerializer).ReadStruct('field_order', Order, l_field_order); if int_field_order <> l_field_order then field_order.Free; field_order := l_field_order; end else begin l_field_order := int_field_order; TROSerializer(ASerializer).ReadStruct('field_order', Order, l_field_order); if int_field_order <> l_field_order then field_order.Free; field_order := l_field_order; l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('FirCode', l_FirCode); {$ENDIF} FirCode := l_FirCode; end; end; procedure ImportOrderExt.WriteComplex(ASerializer: TObject); var l_field_order: Order; l_FirCode: UnicodeString; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(ImportOrderExt); l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('FirCode', l_FirCode); {$ENDIF} l_field_order := int_field_order; TROSerializer(ASerializer).WriteStruct('field_order', l_field_order, Order); end else begin l_field_order := int_field_order; TROSerializer(ASerializer).WriteStruct('field_order', l_field_order, Order); l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('FirCode', l_FirCode); {$ENDIF} end; end; { ImportOrderExtCollection } constructor ImportOrderExtCollection.Create; begin inherited Create(ImportOrderExt); end; constructor ImportOrderExtCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function ImportOrderExtCollection.Add: ImportOrderExt; begin result := ImportOrderExt(inherited Add); end; function ImportOrderExtCollection.GetItems(aIndex: integer): ImportOrderExt; begin result := ImportOrderExt(inherited Items[aIndex]); end; procedure ImportOrderExtCollection.SetItems(aIndex: integer; const Value: ImportOrderExt); begin ImportOrderExt(inherited Items[aIndex]).Assign(Value); end; { Order } class function Order.GetAttributeCount: Integer; begin result := 1; end; class function Order.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function Order.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure Order.Assign(iSource: TPersistent); var lSource: libPPL_Intf.Order; begin inherited Assign(iSource); if (iSource is libPPL_Intf.Order) then begin lSource := libPPL_Intf.Order(iSource); OrdNumber := lSource.OrdNumber; CountPack := lSource.CountPack; SendName := lSource.SendName; SendStreet := lSource.SendStreet; SendCity := lSource.SendCity; SendZipCode := lSource.SendZipCode; SendContact := lSource.SendContact; SendPhone := lSource.SendPhone; SendDateFrom := lSource.SendDateFrom; SendDateTo := lSource.SendDateTo; SendCountry := lSource.SendCountry; RecName := lSource.RecName; RecStreet := lSource.RecStreet; RecCity := lSource.RecCity; RecZipCode := lSource.RecZipCode; RecContact := lSource.RecContact; RecPhone := lSource.RecPhone; RecCountry := lSource.RecCountry; Note := lSource.Note; Email := lSource.Email; ErrorCode := lSource.ErrorCode; ErrorMessage := lSource.ErrorMessage; end; end; procedure Order.ReadComplex(ASerializer: TObject); var l_CountPack: UnicodeString; l_Email: UnicodeString; l_ErrorCode: Integer; l_ErrorMessage: UnicodeString; l_Note: UnicodeString; l_OrdNumber: UnicodeString; l_RecCity: UnicodeString; l_RecContact: UnicodeString; l_RecCountry: UnicodeString; l_RecName: UnicodeString; l_RecPhone: UnicodeString; l_RecStreet: UnicodeString; l_RecZipCode: UnicodeString; l_SendCity: UnicodeString; l_SendContact: UnicodeString; l_SendCountry: UnicodeString; l_SendDateFrom: DateTime; l_SendDateTo: DateTime; l_SendName: UnicodeString; l_SendPhone: UnicodeString; l_SendStreet: UnicodeString; l_SendZipCode: UnicodeString; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_OrdNumber := OrdNumber; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('OrdNumber', l_OrdNumber); {$ELSE} TROSerializer(ASerializer).ReadWideString('OrdNumber', l_OrdNumber); {$ENDIF} OrdNumber := l_OrdNumber; l_CountPack := CountPack; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('CountPack', l_CountPack); {$ELSE} TROSerializer(ASerializer).ReadWideString('CountPack', l_CountPack); {$ENDIF} CountPack := l_CountPack; l_SendName := SendName; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendName', l_SendName); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendName', l_SendName); {$ENDIF} SendName := l_SendName; l_SendStreet := SendStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendStreet', l_SendStreet); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendStreet', l_SendStreet); {$ENDIF} SendStreet := l_SendStreet; l_SendCity := SendCity; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendCity', l_SendCity); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendCity', l_SendCity); {$ENDIF} SendCity := l_SendCity; l_SendZipCode := SendZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendZipCode', l_SendZipCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendZipCode', l_SendZipCode); {$ENDIF} SendZipCode := l_SendZipCode; l_SendContact := SendContact; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendContact', l_SendContact); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendContact', l_SendContact); {$ENDIF} SendContact := l_SendContact; l_SendPhone := SendPhone; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendPhone', l_SendPhone); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendPhone', l_SendPhone); {$ENDIF} SendPhone := l_SendPhone; l_SendDateFrom := SendDateFrom; TROSerializer(ASerializer).ReadDateTime('SendDateFrom', l_SendDateFrom); SendDateFrom := l_SendDateFrom; l_SendDateTo := SendDateTo; TROSerializer(ASerializer).ReadDateTime('SendDateTo', l_SendDateTo); SendDateTo := l_SendDateTo; l_SendCountry := SendCountry; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendCountry', l_SendCountry); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendCountry', l_SendCountry); {$ENDIF} SendCountry := l_SendCountry; l_RecName := RecName; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecName', l_RecName); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecName', l_RecName); {$ENDIF} RecName := l_RecName; l_RecStreet := RecStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecStreet', l_RecStreet); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecStreet', l_RecStreet); {$ENDIF} RecStreet := l_RecStreet; l_RecCity := RecCity; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecCity', l_RecCity); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecCity', l_RecCity); {$ENDIF} RecCity := l_RecCity; l_RecZipCode := RecZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecZipCode', l_RecZipCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecZipCode', l_RecZipCode); {$ENDIF} RecZipCode := l_RecZipCode; l_RecContact := RecContact; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecContact', l_RecContact); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecContact', l_RecContact); {$ENDIF} RecContact := l_RecContact; l_RecPhone := RecPhone; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecPhone', l_RecPhone); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecPhone', l_RecPhone); {$ENDIF} RecPhone := l_RecPhone; l_RecCountry := RecCountry; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecCountry', l_RecCountry); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecCountry', l_RecCountry); {$ENDIF} RecCountry := l_RecCountry; l_Note := Note; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Note', l_Note); {$ELSE} TROSerializer(ASerializer).ReadWideString('Note', l_Note); {$ENDIF} Note := l_Note; l_Email := Email; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Email', l_Email); {$ELSE} TROSerializer(ASerializer).ReadWideString('Email', l_Email); {$ENDIF} Email := l_Email; l_ErrorCode := ErrorCode; TROSerializer(ASerializer).ReadInteger('ErrorCode', otSLong, l_ErrorCode); ErrorCode := l_ErrorCode; l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).ReadWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} ErrorMessage := l_ErrorMessage; end else begin l_CountPack := CountPack; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('CountPack', l_CountPack); {$ELSE} TROSerializer(ASerializer).ReadWideString('CountPack', l_CountPack); {$ENDIF} CountPack := l_CountPack; l_Email := Email; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Email', l_Email); {$ELSE} TROSerializer(ASerializer).ReadWideString('Email', l_Email); {$ENDIF} Email := l_Email; l_ErrorCode := ErrorCode; TROSerializer(ASerializer).ReadInteger('ErrorCode', otSLong, l_ErrorCode); ErrorCode := l_ErrorCode; l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).ReadWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} ErrorMessage := l_ErrorMessage; l_Note := Note; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Note', l_Note); {$ELSE} TROSerializer(ASerializer).ReadWideString('Note', l_Note); {$ENDIF} Note := l_Note; l_OrdNumber := OrdNumber; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('OrdNumber', l_OrdNumber); {$ELSE} TROSerializer(ASerializer).ReadWideString('OrdNumber', l_OrdNumber); {$ENDIF} OrdNumber := l_OrdNumber; l_RecCity := RecCity; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecCity', l_RecCity); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecCity', l_RecCity); {$ENDIF} RecCity := l_RecCity; l_RecContact := RecContact; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecContact', l_RecContact); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecContact', l_RecContact); {$ENDIF} RecContact := l_RecContact; l_RecCountry := RecCountry; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecCountry', l_RecCountry); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecCountry', l_RecCountry); {$ENDIF} RecCountry := l_RecCountry; l_RecName := RecName; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecName', l_RecName); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecName', l_RecName); {$ENDIF} RecName := l_RecName; l_RecPhone := RecPhone; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecPhone', l_RecPhone); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecPhone', l_RecPhone); {$ENDIF} RecPhone := l_RecPhone; l_RecStreet := RecStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecStreet', l_RecStreet); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecStreet', l_RecStreet); {$ENDIF} RecStreet := l_RecStreet; l_RecZipCode := RecZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('RecZipCode', l_RecZipCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('RecZipCode', l_RecZipCode); {$ENDIF} RecZipCode := l_RecZipCode; l_SendCity := SendCity; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendCity', l_SendCity); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendCity', l_SendCity); {$ENDIF} SendCity := l_SendCity; l_SendContact := SendContact; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendContact', l_SendContact); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendContact', l_SendContact); {$ENDIF} SendContact := l_SendContact; l_SendCountry := SendCountry; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendCountry', l_SendCountry); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendCountry', l_SendCountry); {$ENDIF} SendCountry := l_SendCountry; l_SendDateFrom := SendDateFrom; TROSerializer(ASerializer).ReadDateTime('SendDateFrom', l_SendDateFrom); SendDateFrom := l_SendDateFrom; l_SendDateTo := SendDateTo; TROSerializer(ASerializer).ReadDateTime('SendDateTo', l_SendDateTo); SendDateTo := l_SendDateTo; l_SendName := SendName; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendName', l_SendName); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendName', l_SendName); {$ENDIF} SendName := l_SendName; l_SendPhone := SendPhone; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendPhone', l_SendPhone); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendPhone', l_SendPhone); {$ENDIF} SendPhone := l_SendPhone; l_SendStreet := SendStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendStreet', l_SendStreet); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendStreet', l_SendStreet); {$ENDIF} SendStreet := l_SendStreet; l_SendZipCode := SendZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendZipCode', l_SendZipCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendZipCode', l_SendZipCode); {$ENDIF} SendZipCode := l_SendZipCode; end; end; procedure Order.WriteComplex(ASerializer: TObject); var l_CountPack: UnicodeString; l_Email: UnicodeString; l_ErrorCode: Integer; l_ErrorMessage: UnicodeString; l_Note: UnicodeString; l_OrdNumber: UnicodeString; l_RecCity: UnicodeString; l_RecContact: UnicodeString; l_RecCountry: UnicodeString; l_RecName: UnicodeString; l_RecPhone: UnicodeString; l_RecStreet: UnicodeString; l_RecZipCode: UnicodeString; l_SendCity: UnicodeString; l_SendContact: UnicodeString; l_SendCountry: UnicodeString; l_SendDateFrom: DateTime; l_SendDateTo: DateTime; l_SendName: UnicodeString; l_SendPhone: UnicodeString; l_SendStreet: UnicodeString; l_SendZipCode: UnicodeString; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(Order); l_OrdNumber := OrdNumber; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('OrdNumber', l_OrdNumber); {$ELSE} TROSerializer(ASerializer).WriteWideString('OrdNumber', l_OrdNumber); {$ENDIF} l_CountPack := CountPack; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('CountPack', l_CountPack); {$ELSE} TROSerializer(ASerializer).WriteWideString('CountPack', l_CountPack); {$ENDIF} l_SendName := SendName; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendName', l_SendName); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendName', l_SendName); {$ENDIF} l_SendStreet := SendStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendStreet', l_SendStreet); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendStreet', l_SendStreet); {$ENDIF} l_SendCity := SendCity; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendCity', l_SendCity); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendCity', l_SendCity); {$ENDIF} l_SendZipCode := SendZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendZipCode', l_SendZipCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendZipCode', l_SendZipCode); {$ENDIF} l_SendContact := SendContact; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendContact', l_SendContact); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendContact', l_SendContact); {$ENDIF} l_SendPhone := SendPhone; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendPhone', l_SendPhone); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendPhone', l_SendPhone); {$ENDIF} l_SendDateFrom := SendDateFrom; TROSerializer(ASerializer).WriteDateTime('SendDateFrom', l_SendDateFrom); l_SendDateTo := SendDateTo; TROSerializer(ASerializer).WriteDateTime('SendDateTo', l_SendDateTo); l_SendCountry := SendCountry; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendCountry', l_SendCountry); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendCountry', l_SendCountry); {$ENDIF} l_RecName := RecName; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecName', l_RecName); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecName', l_RecName); {$ENDIF} l_RecStreet := RecStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecStreet', l_RecStreet); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecStreet', l_RecStreet); {$ENDIF} l_RecCity := RecCity; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecCity', l_RecCity); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecCity', l_RecCity); {$ENDIF} l_RecZipCode := RecZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecZipCode', l_RecZipCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecZipCode', l_RecZipCode); {$ENDIF} l_RecContact := RecContact; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecContact', l_RecContact); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecContact', l_RecContact); {$ENDIF} l_RecPhone := RecPhone; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecPhone', l_RecPhone); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecPhone', l_RecPhone); {$ENDIF} l_RecCountry := RecCountry; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecCountry', l_RecCountry); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecCountry', l_RecCountry); {$ENDIF} l_Note := Note; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Note', l_Note); {$ELSE} TROSerializer(ASerializer).WriteWideString('Note', l_Note); {$ENDIF} l_Email := Email; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Email', l_Email); {$ELSE} TROSerializer(ASerializer).WriteWideString('Email', l_Email); {$ENDIF} l_ErrorCode := ErrorCode; TROSerializer(ASerializer).WriteInteger('ErrorCode', otSLong, l_ErrorCode); l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).WriteWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} end else begin l_CountPack := CountPack; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('CountPack', l_CountPack); {$ELSE} TROSerializer(ASerializer).WriteWideString('CountPack', l_CountPack); {$ENDIF} l_Email := Email; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Email', l_Email); {$ELSE} TROSerializer(ASerializer).WriteWideString('Email', l_Email); {$ENDIF} l_ErrorCode := ErrorCode; TROSerializer(ASerializer).WriteInteger('ErrorCode', otSLong, l_ErrorCode); l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).WriteWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} l_Note := Note; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Note', l_Note); {$ELSE} TROSerializer(ASerializer).WriteWideString('Note', l_Note); {$ENDIF} l_OrdNumber := OrdNumber; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('OrdNumber', l_OrdNumber); {$ELSE} TROSerializer(ASerializer).WriteWideString('OrdNumber', l_OrdNumber); {$ENDIF} l_RecCity := RecCity; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecCity', l_RecCity); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecCity', l_RecCity); {$ENDIF} l_RecContact := RecContact; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecContact', l_RecContact); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecContact', l_RecContact); {$ENDIF} l_RecCountry := RecCountry; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecCountry', l_RecCountry); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecCountry', l_RecCountry); {$ENDIF} l_RecName := RecName; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecName', l_RecName); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecName', l_RecName); {$ENDIF} l_RecPhone := RecPhone; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecPhone', l_RecPhone); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecPhone', l_RecPhone); {$ENDIF} l_RecStreet := RecStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecStreet', l_RecStreet); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecStreet', l_RecStreet); {$ENDIF} l_RecZipCode := RecZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('RecZipCode', l_RecZipCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('RecZipCode', l_RecZipCode); {$ENDIF} l_SendCity := SendCity; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendCity', l_SendCity); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendCity', l_SendCity); {$ENDIF} l_SendContact := SendContact; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendContact', l_SendContact); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendContact', l_SendContact); {$ENDIF} l_SendCountry := SendCountry; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendCountry', l_SendCountry); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendCountry', l_SendCountry); {$ENDIF} l_SendDateFrom := SendDateFrom; TROSerializer(ASerializer).WriteDateTime('SendDateFrom', l_SendDateFrom); l_SendDateTo := SendDateTo; TROSerializer(ASerializer).WriteDateTime('SendDateTo', l_SendDateTo); l_SendName := SendName; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendName', l_SendName); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendName', l_SendName); {$ENDIF} l_SendPhone := SendPhone; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendPhone', l_SendPhone); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendPhone', l_SendPhone); {$ENDIF} l_SendStreet := SendStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendStreet', l_SendStreet); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendStreet', l_SendStreet); {$ENDIF} l_SendZipCode := SendZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendZipCode', l_SendZipCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendZipCode', l_SendZipCode); {$ENDIF} end; end; { OrderCollection } constructor OrderCollection.Create; begin inherited Create(Order); end; constructor OrderCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function OrderCollection.Add: Order; begin result := Order(inherited Add); end; function OrderCollection.GetItems(aIndex: integer): Order; begin result := Order(inherited Items[aIndex]); end; procedure OrderCollection.SetItems(aIndex: integer; const Value: Order); begin Order(inherited Items[aIndex]).Assign(Value); end; { ImportOrderExtResponse } class function ImportOrderExtResponse.GetAttributeCount: Integer; begin result := 1; end; class function ImportOrderExtResponse.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function ImportOrderExtResponse.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure ImportOrderExtResponse.Assign(iSource: TPersistent); var lSource: libPPL_Intf.ImportOrderExtResponse; begin inherited Assign(iSource); if (iSource is libPPL_Intf.ImportOrderExtResponse) then begin lSource := libPPL_Intf.ImportOrderExtResponse(iSource); if Assigned(lSource.ffield_order) then field_order.Assign(lSource.ffield_order) else FreeAndNil(ffield_order); end; end; function ImportOrderExtResponse.Getfield_order: Order; begin if (ffield_order = nil) then ffield_order := Order.Create(); result := ffield_order; end; procedure ImportOrderExtResponse.ReadComplex(ASerializer: TObject); var l_field_order: Order; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_field_order := int_field_order; TROSerializer(ASerializer).ReadStruct('field_order', Order, l_field_order); if int_field_order <> l_field_order then field_order.Free; field_order := l_field_order; end else begin l_field_order := int_field_order; TROSerializer(ASerializer).ReadStruct('field_order', Order, l_field_order); if int_field_order <> l_field_order then field_order.Free; field_order := l_field_order; end; end; procedure ImportOrderExtResponse.WriteComplex(ASerializer: TObject); var l_field_order: Order; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(ImportOrderExtResponse); l_field_order := int_field_order; TROSerializer(ASerializer).WriteStruct('field_order', l_field_order, Order); end else begin l_field_order := int_field_order; TROSerializer(ASerializer).WriteStruct('field_order', l_field_order, Order); end; end; { ImportOrderExtResponseCollection } constructor ImportOrderExtResponseCollection.Create; begin inherited Create(ImportOrderExtResponse); end; constructor ImportOrderExtResponseCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function ImportOrderExtResponseCollection.Add: ImportOrderExtResponse; begin result := ImportOrderExtResponse(inherited Add); end; function ImportOrderExtResponseCollection.GetItems(aIndex: integer): ImportOrderExtResponse; begin result := ImportOrderExtResponse(inherited Items[aIndex]); end; procedure ImportOrderExtResponseCollection.SetItems(aIndex: integer; const Value: ImportOrderExtResponse); begin ImportOrderExtResponse(inherited Items[aIndex]).Assign(Value); end; { ImportOrdersExt } class function ImportOrdersExt.GetAttributeCount: Integer; begin result := 1; end; class function ImportOrdersExt.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function ImportOrdersExt.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure ImportOrdersExt.Assign(iSource: TPersistent); var lSource: libPPL_Intf.ImportOrdersExt; begin inherited Assign(iSource); if (iSource is libPPL_Intf.ImportOrdersExt) then begin lSource := libPPL_Intf.ImportOrdersExt(iSource); FirCode := lSource.FirCode; if Assigned(lSource.fOrders) then Orders.Assign(lSource.fOrders) else FreeAndNil(fOrders); end; end; function ImportOrdersExt.GetOrders: colOrder; begin if (fOrders = nil) then fOrders := colOrder.Create(); result := fOrders; end; procedure ImportOrdersExt.ReadComplex(ASerializer: TObject); var l_FirCode: UnicodeString; l_Orders: colOrder; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('FirCode', l_FirCode); {$ENDIF} FirCode := l_FirCode; l_Orders := int_Orders; TROSerializer(ASerializer).ReadStruct('Orders', colOrder, l_Orders); if int_Orders <> l_Orders then Orders.Free; Orders := l_Orders; end else begin l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('FirCode', l_FirCode); {$ENDIF} FirCode := l_FirCode; l_Orders := int_Orders; TROSerializer(ASerializer).ReadStruct('Orders', colOrder, l_Orders); if int_Orders <> l_Orders then Orders.Free; Orders := l_Orders; end; end; procedure ImportOrdersExt.WriteComplex(ASerializer: TObject); var l_FirCode: UnicodeString; l_Orders: colOrder; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(ImportOrdersExt); l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('FirCode', l_FirCode); {$ENDIF} l_Orders := int_Orders; TROSerializer(ASerializer).WriteStruct('Orders', l_Orders, colOrder); end else begin l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('FirCode', l_FirCode); {$ENDIF} l_Orders := int_Orders; TROSerializer(ASerializer).WriteStruct('Orders', l_Orders, colOrder); end; end; { ImportOrdersExtCollection } constructor ImportOrdersExtCollection.Create; begin inherited Create(ImportOrdersExt); end; constructor ImportOrdersExtCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function ImportOrdersExtCollection.Add: ImportOrdersExt; begin result := ImportOrdersExt(inherited Add); end; function ImportOrdersExtCollection.GetItems(aIndex: integer): ImportOrdersExt; begin result := ImportOrdersExt(inherited Items[aIndex]); end; procedure ImportOrdersExtCollection.SetItems(aIndex: integer; const Value: ImportOrdersExt); begin ImportOrdersExt(inherited Items[aIndex]).Assign(Value); end; { colOrder } class function colOrder.GetAttributeCount: Integer; begin result := 1; end; class function colOrder.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function colOrder.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure colOrder.Assign(iSource: TPersistent); var lSource: libPPL_Intf.colOrder; begin inherited Assign(iSource); if (iSource is libPPL_Intf.colOrder) then begin lSource := libPPL_Intf.colOrder(iSource); if Assigned(lSource.fItems) then Items.Assign(lSource.fItems) else FreeAndNil(fItems); ErrorCode := lSource.ErrorCode; ErrorMessage := lSource.ErrorMessage; end; end; function colOrder.GetItems: ArrayOfAnyType; begin if (fItems = nil) then fItems := ArrayOfAnyType.Create(); result := fItems; end; procedure colOrder.ReadComplex(ASerializer: TObject); var l_ErrorCode: Integer; l_ErrorMessage: UnicodeString; l_Items: ArrayOfAnyType; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_Items := int_Items; TROSerializer(ASerializer).ReadArray('Items', ArrayOfAnyType, l_Items); if int_Items <> l_Items then Items.Free; Items := l_Items; l_ErrorCode := ErrorCode; TROSerializer(ASerializer).ReadInteger('ErrorCode', otSLong, l_ErrorCode); ErrorCode := l_ErrorCode; l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).ReadWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} ErrorMessage := l_ErrorMessage; end else begin l_ErrorCode := ErrorCode; TROSerializer(ASerializer).ReadInteger('ErrorCode', otSLong, l_ErrorCode); ErrorCode := l_ErrorCode; l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).ReadWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} ErrorMessage := l_ErrorMessage; l_Items := int_Items; TROSerializer(ASerializer).ReadArray('Items', ArrayOfAnyType, l_Items); if int_Items <> l_Items then Items.Free; Items := l_Items; end; end; procedure colOrder.WriteComplex(ASerializer: TObject); var l_ErrorCode: Integer; l_ErrorMessage: UnicodeString; l_Items: ArrayOfAnyType; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(colOrder); l_Items := int_Items; TROSerializer(ASerializer).WriteArray('Items', l_Items, ArrayOfAnyType); l_ErrorCode := ErrorCode; TROSerializer(ASerializer).WriteInteger('ErrorCode', otSLong, l_ErrorCode); l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).WriteWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} end else begin l_ErrorCode := ErrorCode; TROSerializer(ASerializer).WriteInteger('ErrorCode', otSLong, l_ErrorCode); l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).WriteWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} l_Items := int_Items; TROSerializer(ASerializer).WriteArray('Items', l_Items, ArrayOfAnyType); end; end; { colOrderCollection } constructor colOrderCollection.Create; begin inherited Create(colOrder); end; constructor colOrderCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function colOrderCollection.Add: colOrder; begin result := colOrder(inherited Add); end; function colOrderCollection.GetItems(aIndex: integer): colOrder; begin result := colOrder(inherited Items[aIndex]); end; procedure colOrderCollection.SetItems(aIndex: integer; const Value: colOrder); begin colOrder(inherited Items[aIndex]).Assign(Value); end; { ImportOrdersExtResponse } class function ImportOrdersExtResponse.GetAttributeCount: Integer; begin result := 1; end; class function ImportOrdersExtResponse.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function ImportOrdersExtResponse.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure ImportOrdersExtResponse.Assign(iSource: TPersistent); var lSource: libPPL_Intf.ImportOrdersExtResponse; begin inherited Assign(iSource); if (iSource is libPPL_Intf.ImportOrdersExtResponse) then begin lSource := libPPL_Intf.ImportOrdersExtResponse(iSource); if Assigned(lSource.fOrders) then Orders.Assign(lSource.fOrders) else FreeAndNil(fOrders); end; end; function ImportOrdersExtResponse.GetOrders: colOrder; begin if (fOrders = nil) then fOrders := colOrder.Create(); result := fOrders; end; procedure ImportOrdersExtResponse.ReadComplex(ASerializer: TObject); var l_Orders: colOrder; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_Orders := int_Orders; TROSerializer(ASerializer).ReadStruct('Orders', colOrder, l_Orders); if int_Orders <> l_Orders then Orders.Free; Orders := l_Orders; end else begin l_Orders := int_Orders; TROSerializer(ASerializer).ReadStruct('Orders', colOrder, l_Orders); if int_Orders <> l_Orders then Orders.Free; Orders := l_Orders; end; end; procedure ImportOrdersExtResponse.WriteComplex(ASerializer: TObject); var l_Orders: colOrder; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(ImportOrdersExtResponse); l_Orders := int_Orders; TROSerializer(ASerializer).WriteStruct('Orders', l_Orders, colOrder); end else begin l_Orders := int_Orders; TROSerializer(ASerializer).WriteStruct('Orders', l_Orders, colOrder); end; end; { ImportOrdersExtResponseCollection } constructor ImportOrdersExtResponseCollection.Create; begin inherited Create(ImportOrdersExtResponse); end; constructor ImportOrdersExtResponseCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function ImportOrdersExtResponseCollection.Add: ImportOrdersExtResponse; begin result := ImportOrdersExtResponse(inherited Add); end; function ImportOrdersExtResponseCollection.GetItems(aIndex: integer): ImportOrdersExtResponse; begin result := ImportOrdersExtResponse(inherited Items[aIndex]); end; procedure ImportOrdersExtResponseCollection.SetItems(aIndex: integer; const Value: ImportOrdersExtResponse); begin ImportOrdersExtResponse(inherited Items[aIndex]).Assign(Value); end; { ImportPackageExt } class function ImportPackageExt.GetAttributeCount: Integer; begin result := 1; end; class function ImportPackageExt.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function ImportPackageExt.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure ImportPackageExt.Assign(iSource: TPersistent); var lSource: libPPL_Intf.ImportPackageExt; begin inherited Assign(iSource); if (iSource is libPPL_Intf.ImportPackageExt) then begin lSource := libPPL_Intf.ImportPackageExt(iSource); FirCode := lSource.FirCode; if Assigned(lSource.fpack) then pack.Assign(lSource.fpack) else FreeAndNil(fpack); end; end; function ImportPackageExt.Getpack: Package; begin if (fpack = nil) then fpack := Package.Create(); result := fpack; end; procedure ImportPackageExt.ReadComplex(ASerializer: TObject); var l_FirCode: UnicodeString; l_pack: Package; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('FirCode', l_FirCode); {$ENDIF} FirCode := l_FirCode; l_pack := int_pack; TROSerializer(ASerializer).ReadStruct('pack', Package, l_pack); if int_pack <> l_pack then pack.Free; pack := l_pack; end else begin l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('FirCode', l_FirCode); {$ENDIF} FirCode := l_FirCode; l_pack := int_pack; TROSerializer(ASerializer).ReadStruct('pack', Package, l_pack); if int_pack <> l_pack then pack.Free; pack := l_pack; end; end; procedure ImportPackageExt.WriteComplex(ASerializer: TObject); var l_FirCode: UnicodeString; l_pack: Package; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(ImportPackageExt); l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('FirCode', l_FirCode); {$ENDIF} l_pack := int_pack; TROSerializer(ASerializer).WriteStruct('pack', l_pack, Package); end else begin l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('FirCode', l_FirCode); {$ENDIF} l_pack := int_pack; TROSerializer(ASerializer).WriteStruct('pack', l_pack, Package); end; end; { ImportPackageExtCollection } constructor ImportPackageExtCollection.Create; begin inherited Create(ImportPackageExt); end; constructor ImportPackageExtCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function ImportPackageExtCollection.Add: ImportPackageExt; begin result := ImportPackageExt(inherited Add); end; function ImportPackageExtCollection.GetItems(aIndex: integer): ImportPackageExt; begin result := ImportPackageExt(inherited Items[aIndex]); end; procedure ImportPackageExtCollection.SetItems(aIndex: integer; const Value: ImportPackageExt); begin ImportPackageExt(inherited Items[aIndex]).Assign(Value); end; { ImportPackageExtResponse } class function ImportPackageExtResponse.GetAttributeCount: Integer; begin result := 1; end; class function ImportPackageExtResponse.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function ImportPackageExtResponse.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure ImportPackageExtResponse.Assign(iSource: TPersistent); var lSource: libPPL_Intf.ImportPackageExtResponse; begin inherited Assign(iSource); if (iSource is libPPL_Intf.ImportPackageExtResponse) then begin lSource := libPPL_Intf.ImportPackageExtResponse(iSource); if Assigned(lSource.fpack) then pack.Assign(lSource.fpack) else FreeAndNil(fpack); end; end; function ImportPackageExtResponse.Getpack: Package; begin if (fpack = nil) then fpack := Package.Create(); result := fpack; end; procedure ImportPackageExtResponse.ReadComplex(ASerializer: TObject); var l_pack: Package; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_pack := int_pack; TROSerializer(ASerializer).ReadStruct('pack', Package, l_pack); if int_pack <> l_pack then pack.Free; pack := l_pack; end else begin l_pack := int_pack; TROSerializer(ASerializer).ReadStruct('pack', Package, l_pack); if int_pack <> l_pack then pack.Free; pack := l_pack; end; end; procedure ImportPackageExtResponse.WriteComplex(ASerializer: TObject); var l_pack: Package; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(ImportPackageExtResponse); l_pack := int_pack; TROSerializer(ASerializer).WriteStruct('pack', l_pack, Package); end else begin l_pack := int_pack; TROSerializer(ASerializer).WriteStruct('pack', l_pack, Package); end; end; { ImportPackageExtResponseCollection } constructor ImportPackageExtResponseCollection.Create; begin inherited Create(ImportPackageExtResponse); end; constructor ImportPackageExtResponseCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function ImportPackageExtResponseCollection.Add: ImportPackageExtResponse; begin result := ImportPackageExtResponse(inherited Add); end; function ImportPackageExtResponseCollection.GetItems(aIndex: integer): ImportPackageExtResponse; begin result := ImportPackageExtResponse(inherited Items[aIndex]); end; procedure ImportPackageExtResponseCollection.SetItems(aIndex: integer; const Value: ImportPackageExtResponse); begin ImportPackageExtResponse(inherited Items[aIndex]).Assign(Value); end; { ImportPackagesExt } class function ImportPackagesExt.GetAttributeCount: Integer; begin result := 1; end; class function ImportPackagesExt.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function ImportPackagesExt.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure ImportPackagesExt.Assign(iSource: TPersistent); var lSource: libPPL_Intf.ImportPackagesExt; begin inherited Assign(iSource); if (iSource is libPPL_Intf.ImportPackagesExt) then begin lSource := libPPL_Intf.ImportPackagesExt(iSource); FirCode := lSource.FirCode; if Assigned(lSource.fPackages) then Packages.Assign(lSource.fPackages) else FreeAndNil(fPackages); end; end; function ImportPackagesExt.GetPackages: colPackage; begin if (fPackages = nil) then fPackages := colPackage.Create(); result := fPackages; end; procedure ImportPackagesExt.ReadComplex(ASerializer: TObject); var l_FirCode: UnicodeString; l_Packages: colPackage; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('FirCode', l_FirCode); {$ENDIF} FirCode := l_FirCode; l_Packages := int_Packages; TROSerializer(ASerializer).ReadStruct('Packages', colPackage, l_Packages); if int_Packages <> l_Packages then Packages.Free; Packages := l_Packages; end else begin l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('FirCode', l_FirCode); {$ENDIF} FirCode := l_FirCode; l_Packages := int_Packages; TROSerializer(ASerializer).ReadStruct('Packages', colPackage, l_Packages); if int_Packages <> l_Packages then Packages.Free; Packages := l_Packages; end; end; procedure ImportPackagesExt.WriteComplex(ASerializer: TObject); var l_FirCode: UnicodeString; l_Packages: colPackage; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(ImportPackagesExt); l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('FirCode', l_FirCode); {$ENDIF} l_Packages := int_Packages; TROSerializer(ASerializer).WriteStruct('Packages', l_Packages, colPackage); end else begin l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('FirCode', l_FirCode); {$ENDIF} l_Packages := int_Packages; TROSerializer(ASerializer).WriteStruct('Packages', l_Packages, colPackage); end; end; { ImportPackagesExtCollection } constructor ImportPackagesExtCollection.Create; begin inherited Create(ImportPackagesExt); end; constructor ImportPackagesExtCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function ImportPackagesExtCollection.Add: ImportPackagesExt; begin result := ImportPackagesExt(inherited Add); end; function ImportPackagesExtCollection.GetItems(aIndex: integer): ImportPackagesExt; begin result := ImportPackagesExt(inherited Items[aIndex]); end; procedure ImportPackagesExtCollection.SetItems(aIndex: integer; const Value: ImportPackagesExt); begin ImportPackagesExt(inherited Items[aIndex]).Assign(Value); end; { ImportPackagesExtResponse } class function ImportPackagesExtResponse.GetAttributeCount: Integer; begin result := 1; end; class function ImportPackagesExtResponse.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function ImportPackagesExtResponse.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure ImportPackagesExtResponse.Assign(iSource: TPersistent); var lSource: libPPL_Intf.ImportPackagesExtResponse; begin inherited Assign(iSource); if (iSource is libPPL_Intf.ImportPackagesExtResponse) then begin lSource := libPPL_Intf.ImportPackagesExtResponse(iSource); if Assigned(lSource.fPackages) then Packages.Assign(lSource.fPackages) else FreeAndNil(fPackages); end; end; function ImportPackagesExtResponse.GetPackages: colPackage; begin if (fPackages = nil) then fPackages := colPackage.Create(); result := fPackages; end; procedure ImportPackagesExtResponse.ReadComplex(ASerializer: TObject); var l_Packages: colPackage; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_Packages := int_Packages; TROSerializer(ASerializer).ReadStruct('Packages', colPackage, l_Packages); if int_Packages <> l_Packages then Packages.Free; Packages := l_Packages; end else begin l_Packages := int_Packages; TROSerializer(ASerializer).ReadStruct('Packages', colPackage, l_Packages); if int_Packages <> l_Packages then Packages.Free; Packages := l_Packages; end; end; procedure ImportPackagesExtResponse.WriteComplex(ASerializer: TObject); var l_Packages: colPackage; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(ImportPackagesExtResponse); l_Packages := int_Packages; TROSerializer(ASerializer).WriteStruct('Packages', l_Packages, colPackage); end else begin l_Packages := int_Packages; TROSerializer(ASerializer).WriteStruct('Packages', l_Packages, colPackage); end; end; { ImportPackagesExtResponseCollection } constructor ImportPackagesExtResponseCollection.Create; begin inherited Create(ImportPackagesExtResponse); end; constructor ImportPackagesExtResponseCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function ImportPackagesExtResponseCollection.Add: ImportPackagesExtResponse; begin result := ImportPackagesExtResponse(inherited Add); end; function ImportPackagesExtResponseCollection.GetItems(aIndex: integer): ImportPackagesExtResponse; begin result := ImportPackagesExtResponse(inherited Items[aIndex]); end; procedure ImportPackagesExtResponseCollection.SetItems(aIndex: integer; const Value: ImportPackagesExtResponse); begin ImportPackagesExtResponse(inherited Items[aIndex]).Assign(Value); end; { ImportPackages } class function ImportPackages.GetAttributeCount: Integer; begin result := 1; end; class function ImportPackages.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function ImportPackages.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure ImportPackages.Assign(iSource: TPersistent); var lSource: libPPL_Intf.ImportPackages; begin inherited Assign(iSource); if (iSource is libPPL_Intf.ImportPackages) then begin lSource := libPPL_Intf.ImportPackages(iSource); end; end; procedure ImportPackages.ReadComplex(ASerializer: TObject); begin if TROSerializer(ASerializer).RecordStrictOrder then begin end else begin end; end; procedure ImportPackages.WriteComplex(ASerializer: TObject); begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(ImportPackages); end else begin end; end; { ImportPackagesCollection } constructor ImportPackagesCollection.Create; begin inherited Create(ImportPackages); end; constructor ImportPackagesCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function ImportPackagesCollection.Add: ImportPackages; begin result := ImportPackages(inherited Add); end; function ImportPackagesCollection.GetItems(aIndex: integer): ImportPackages; begin result := ImportPackages(inherited Items[aIndex]); end; procedure ImportPackagesCollection.SetItems(aIndex: integer; const Value: ImportPackages); begin ImportPackages(inherited Items[aIndex]).Assign(Value); end; { ImportPackagesResponse_ImportPackagesResult } class function ImportPackagesResponse_ImportPackagesResult.GetAttributeCount: Integer; begin result := 2; end; class function ImportPackagesResponse_ImportPackagesResult.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'SOAPName'; 1: result := 'ImportedFromNamespace'; end; end; class function ImportPackagesResponse_ImportPackagesResult.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportPackagesResult'; 1: result := 'PPLIEGate'; end; end; procedure ImportPackagesResponse_ImportPackagesResult.Assign(iSource: TPersistent); var lSource: libPPL_Intf.ImportPackagesResponse_ImportPackagesResult; begin inherited Assign(iSource); if (iSource is libPPL_Intf.ImportPackagesResponse_ImportPackagesResult) then begin lSource := libPPL_Intf.ImportPackagesResponse_ImportPackagesResult(iSource); end; end; procedure ImportPackagesResponse_ImportPackagesResult.ReadComplex(ASerializer: TObject); begin if TROSerializer(ASerializer).RecordStrictOrder then begin end else begin end; end; procedure ImportPackagesResponse_ImportPackagesResult.WriteComplex(ASerializer: TObject); begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(ImportPackagesResponse_ImportPackagesResult); end else begin end; end; { ImportPackagesResponse_ImportPackagesResultCollection } constructor ImportPackagesResponse_ImportPackagesResultCollection.Create; begin inherited Create(ImportPackagesResponse_ImportPackagesResult); end; constructor ImportPackagesResponse_ImportPackagesResultCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function ImportPackagesResponse_ImportPackagesResultCollection.Add: ImportPackagesResponse_ImportPackagesResult; begin result := ImportPackagesResponse_ImportPackagesResult(inherited Add); end; function ImportPackagesResponse_ImportPackagesResultCollection.GetItems(aIndex: integer): ImportPackagesResponse_ImportPackagesResult; begin result := ImportPackagesResponse_ImportPackagesResult(inherited Items[aIndex]); end; procedure ImportPackagesResponse_ImportPackagesResultCollection.SetItems(aIndex: integer; const Value: ImportPackagesResponse_ImportPackagesResult); begin ImportPackagesResponse_ImportPackagesResult(inherited Items[aIndex]).Assign(Value); end; { ImportPackagesResponse } class function ImportPackagesResponse.GetAttributeCount: Integer; begin result := 1; end; class function ImportPackagesResponse.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function ImportPackagesResponse.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure ImportPackagesResponse.Assign(iSource: TPersistent); var lSource: libPPL_Intf.ImportPackagesResponse; begin inherited Assign(iSource); if (iSource is libPPL_Intf.ImportPackagesResponse) then begin lSource := libPPL_Intf.ImportPackagesResponse(iSource); if Assigned(lSource.fImportPackagesResult) then ImportPackagesResult.Assign(lSource.fImportPackagesResult) else FreeAndNil(fImportPackagesResult); end; end; function ImportPackagesResponse.GetImportPackagesResult: ImportPackagesResponse_ImportPackagesResult; begin if (fImportPackagesResult = nil) then fImportPackagesResult := ImportPackagesResponse_ImportPackagesResult.Create(); result := fImportPackagesResult; end; procedure ImportPackagesResponse.ReadComplex(ASerializer: TObject); var l_ImportPackagesResult: ImportPackagesResponse_ImportPackagesResult; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_ImportPackagesResult := int_ImportPackagesResult; TROSerializer(ASerializer).ReadStruct('ImportPackagesResult', ImportPackagesResponse_ImportPackagesResult, l_ImportPackagesResult); if int_ImportPackagesResult <> l_ImportPackagesResult then ImportPackagesResult.Free; ImportPackagesResult := l_ImportPackagesResult; end else begin l_ImportPackagesResult := int_ImportPackagesResult; TROSerializer(ASerializer).ReadStruct('ImportPackagesResult', ImportPackagesResponse_ImportPackagesResult, l_ImportPackagesResult); if int_ImportPackagesResult <> l_ImportPackagesResult then ImportPackagesResult.Free; ImportPackagesResult := l_ImportPackagesResult; end; end; procedure ImportPackagesResponse.WriteComplex(ASerializer: TObject); var l_ImportPackagesResult: ImportPackagesResponse_ImportPackagesResult; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(ImportPackagesResponse); l_ImportPackagesResult := int_ImportPackagesResult; TROSerializer(ASerializer).WriteStruct('ImportPackagesResult', l_ImportPackagesResult, ImportPackagesResponse_ImportPackagesResult); end else begin l_ImportPackagesResult := int_ImportPackagesResult; TROSerializer(ASerializer).WriteStruct('ImportPackagesResult', l_ImportPackagesResult, ImportPackagesResponse_ImportPackagesResult); end; end; { ImportPackagesResponseCollection } constructor ImportPackagesResponseCollection.Create; begin inherited Create(ImportPackagesResponse); end; constructor ImportPackagesResponseCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function ImportPackagesResponseCollection.Add: ImportPackagesResponse; begin result := ImportPackagesResponse(inherited Add); end; function ImportPackagesResponseCollection.GetItems(aIndex: integer): ImportPackagesResponse; begin result := ImportPackagesResponse(inherited Items[aIndex]); end; procedure ImportPackagesResponseCollection.SetItems(aIndex: integer; const Value: ImportPackagesResponse); begin ImportPackagesResponse(inherited Items[aIndex]).Assign(Value); end; { ImportOrders } class function ImportOrders.GetAttributeCount: Integer; begin result := 1; end; class function ImportOrders.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function ImportOrders.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure ImportOrders.Assign(iSource: TPersistent); var lSource: libPPL_Intf.ImportOrders; begin inherited Assign(iSource); if (iSource is libPPL_Intf.ImportOrders) then begin lSource := libPPL_Intf.ImportOrders(iSource); end; end; procedure ImportOrders.ReadComplex(ASerializer: TObject); begin if TROSerializer(ASerializer).RecordStrictOrder then begin end else begin end; end; procedure ImportOrders.WriteComplex(ASerializer: TObject); begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(ImportOrders); end else begin end; end; { ImportOrdersCollection } constructor ImportOrdersCollection.Create; begin inherited Create(ImportOrders); end; constructor ImportOrdersCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function ImportOrdersCollection.Add: ImportOrders; begin result := ImportOrders(inherited Add); end; function ImportOrdersCollection.GetItems(aIndex: integer): ImportOrders; begin result := ImportOrders(inherited Items[aIndex]); end; procedure ImportOrdersCollection.SetItems(aIndex: integer; const Value: ImportOrders); begin ImportOrders(inherited Items[aIndex]).Assign(Value); end; { ImportOrdersResponse_ImportOrdersResult } class function ImportOrdersResponse_ImportOrdersResult.GetAttributeCount: Integer; begin result := 2; end; class function ImportOrdersResponse_ImportOrdersResult.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'SOAPName'; 1: result := 'ImportedFromNamespace'; end; end; class function ImportOrdersResponse_ImportOrdersResult.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportOrdersResult'; 1: result := 'PPLIEGate'; end; end; procedure ImportOrdersResponse_ImportOrdersResult.Assign(iSource: TPersistent); var lSource: libPPL_Intf.ImportOrdersResponse_ImportOrdersResult; begin inherited Assign(iSource); if (iSource is libPPL_Intf.ImportOrdersResponse_ImportOrdersResult) then begin lSource := libPPL_Intf.ImportOrdersResponse_ImportOrdersResult(iSource); end; end; procedure ImportOrdersResponse_ImportOrdersResult.ReadComplex(ASerializer: TObject); begin if TROSerializer(ASerializer).RecordStrictOrder then begin end else begin end; end; procedure ImportOrdersResponse_ImportOrdersResult.WriteComplex(ASerializer: TObject); begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(ImportOrdersResponse_ImportOrdersResult); end else begin end; end; { ImportOrdersResponse_ImportOrdersResultCollection } constructor ImportOrdersResponse_ImportOrdersResultCollection.Create; begin inherited Create(ImportOrdersResponse_ImportOrdersResult); end; constructor ImportOrdersResponse_ImportOrdersResultCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function ImportOrdersResponse_ImportOrdersResultCollection.Add: ImportOrdersResponse_ImportOrdersResult; begin result := ImportOrdersResponse_ImportOrdersResult(inherited Add); end; function ImportOrdersResponse_ImportOrdersResultCollection.GetItems(aIndex: integer): ImportOrdersResponse_ImportOrdersResult; begin result := ImportOrdersResponse_ImportOrdersResult(inherited Items[aIndex]); end; procedure ImportOrdersResponse_ImportOrdersResultCollection.SetItems(aIndex: integer; const Value: ImportOrdersResponse_ImportOrdersResult); begin ImportOrdersResponse_ImportOrdersResult(inherited Items[aIndex]).Assign(Value); end; { ImportOrdersResponse } class function ImportOrdersResponse.GetAttributeCount: Integer; begin result := 1; end; class function ImportOrdersResponse.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function ImportOrdersResponse.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure ImportOrdersResponse.Assign(iSource: TPersistent); var lSource: libPPL_Intf.ImportOrdersResponse; begin inherited Assign(iSource); if (iSource is libPPL_Intf.ImportOrdersResponse) then begin lSource := libPPL_Intf.ImportOrdersResponse(iSource); if Assigned(lSource.fImportOrdersResult) then ImportOrdersResult.Assign(lSource.fImportOrdersResult) else FreeAndNil(fImportOrdersResult); end; end; function ImportOrdersResponse.GetImportOrdersResult: ImportOrdersResponse_ImportOrdersResult; begin if (fImportOrdersResult = nil) then fImportOrdersResult := ImportOrdersResponse_ImportOrdersResult.Create(); result := fImportOrdersResult; end; procedure ImportOrdersResponse.ReadComplex(ASerializer: TObject); var l_ImportOrdersResult: ImportOrdersResponse_ImportOrdersResult; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_ImportOrdersResult := int_ImportOrdersResult; TROSerializer(ASerializer).ReadStruct('ImportOrdersResult', ImportOrdersResponse_ImportOrdersResult, l_ImportOrdersResult); if int_ImportOrdersResult <> l_ImportOrdersResult then ImportOrdersResult.Free; ImportOrdersResult := l_ImportOrdersResult; end else begin l_ImportOrdersResult := int_ImportOrdersResult; TROSerializer(ASerializer).ReadStruct('ImportOrdersResult', ImportOrdersResponse_ImportOrdersResult, l_ImportOrdersResult); if int_ImportOrdersResult <> l_ImportOrdersResult then ImportOrdersResult.Free; ImportOrdersResult := l_ImportOrdersResult; end; end; procedure ImportOrdersResponse.WriteComplex(ASerializer: TObject); var l_ImportOrdersResult: ImportOrdersResponse_ImportOrdersResult; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(ImportOrdersResponse); l_ImportOrdersResult := int_ImportOrdersResult; TROSerializer(ASerializer).WriteStruct('ImportOrdersResult', l_ImportOrdersResult, ImportOrdersResponse_ImportOrdersResult); end else begin l_ImportOrdersResult := int_ImportOrdersResult; TROSerializer(ASerializer).WriteStruct('ImportOrdersResult', l_ImportOrdersResult, ImportOrdersResponse_ImportOrdersResult); end; end; { ImportOrdersResponseCollection } constructor ImportOrdersResponseCollection.Create; begin inherited Create(ImportOrdersResponse); end; constructor ImportOrdersResponseCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function ImportOrdersResponseCollection.Add: ImportOrdersResponse; begin result := ImportOrdersResponse(inherited Add); end; function ImportOrdersResponseCollection.GetItems(aIndex: integer): ImportOrdersResponse; begin result := ImportOrdersResponse(inherited Items[aIndex]); end; procedure ImportOrdersResponseCollection.SetItems(aIndex: integer; const Value: ImportOrdersResponse); begin ImportOrdersResponse(inherited Items[aIndex]).Assign(Value); end; { ImportWeighedPack } class function ImportWeighedPack.GetAttributeCount: Integer; begin result := 1; end; class function ImportWeighedPack.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function ImportWeighedPack.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure ImportWeighedPack.Assign(iSource: TPersistent); var lSource: libPPL_Intf.ImportWeighedPack; begin inherited Assign(iSource); if (iSource is libPPL_Intf.ImportWeighedPack) then begin lSource := libPPL_Intf.ImportWeighedPack(iSource); FirCode := lSource.FirCode; if Assigned(lSource.fpack) then pack.Assign(lSource.fpack) else FreeAndNil(fpack); DepID := lSource.DepID; end; end; function ImportWeighedPack.Getpack: PackageWeighed; begin if (fpack = nil) then fpack := PackageWeighed.Create(); result := fpack; end; procedure ImportWeighedPack.ReadComplex(ASerializer: TObject); var l_DepID: UnicodeString; l_FirCode: UnicodeString; l_pack: PackageWeighed; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('FirCode', l_FirCode); {$ENDIF} FirCode := l_FirCode; l_pack := int_pack; TROSerializer(ASerializer).ReadStruct('pack', PackageWeighed, l_pack); if int_pack <> l_pack then pack.Free; pack := l_pack; l_DepID := DepID; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DepID', l_DepID); {$ELSE} TROSerializer(ASerializer).ReadWideString('DepID', l_DepID); {$ENDIF} DepID := l_DepID; end else begin l_DepID := DepID; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DepID', l_DepID); {$ELSE} TROSerializer(ASerializer).ReadWideString('DepID', l_DepID); {$ENDIF} DepID := l_DepID; l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('FirCode', l_FirCode); {$ENDIF} FirCode := l_FirCode; l_pack := int_pack; TROSerializer(ASerializer).ReadStruct('pack', PackageWeighed, l_pack); if int_pack <> l_pack then pack.Free; pack := l_pack; end; end; procedure ImportWeighedPack.WriteComplex(ASerializer: TObject); var l_DepID: UnicodeString; l_FirCode: UnicodeString; l_pack: PackageWeighed; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(ImportWeighedPack); l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('FirCode', l_FirCode); {$ENDIF} l_pack := int_pack; TROSerializer(ASerializer).WriteStruct('pack', l_pack, PackageWeighed); l_DepID := DepID; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DepID', l_DepID); {$ELSE} TROSerializer(ASerializer).WriteWideString('DepID', l_DepID); {$ENDIF} end else begin l_DepID := DepID; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DepID', l_DepID); {$ELSE} TROSerializer(ASerializer).WriteWideString('DepID', l_DepID); {$ENDIF} l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('FirCode', l_FirCode); {$ENDIF} l_pack := int_pack; TROSerializer(ASerializer).WriteStruct('pack', l_pack, PackageWeighed); end; end; { ImportWeighedPackCollection } constructor ImportWeighedPackCollection.Create; begin inherited Create(ImportWeighedPack); end; constructor ImportWeighedPackCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function ImportWeighedPackCollection.Add: ImportWeighedPack; begin result := ImportWeighedPack(inherited Add); end; function ImportWeighedPackCollection.GetItems(aIndex: integer): ImportWeighedPack; begin result := ImportWeighedPack(inherited Items[aIndex]); end; procedure ImportWeighedPackCollection.SetItems(aIndex: integer; const Value: ImportWeighedPack); begin ImportWeighedPack(inherited Items[aIndex]).Assign(Value); end; { ImportWeighedPackResponse } class function ImportWeighedPackResponse.GetAttributeCount: Integer; begin result := 1; end; class function ImportWeighedPackResponse.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function ImportWeighedPackResponse.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure ImportWeighedPackResponse.Assign(iSource: TPersistent); var lSource: libPPL_Intf.ImportWeighedPackResponse; begin inherited Assign(iSource); if (iSource is libPPL_Intf.ImportWeighedPackResponse) then begin lSource := libPPL_Intf.ImportWeighedPackResponse(iSource); if Assigned(lSource.fpack) then pack.Assign(lSource.fpack) else FreeAndNil(fpack); end; end; function ImportWeighedPackResponse.Getpack: PackageWeighed; begin if (fpack = nil) then fpack := PackageWeighed.Create(); result := fpack; end; procedure ImportWeighedPackResponse.ReadComplex(ASerializer: TObject); var l_pack: PackageWeighed; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_pack := int_pack; TROSerializer(ASerializer).ReadStruct('pack', PackageWeighed, l_pack); if int_pack <> l_pack then pack.Free; pack := l_pack; end else begin l_pack := int_pack; TROSerializer(ASerializer).ReadStruct('pack', PackageWeighed, l_pack); if int_pack <> l_pack then pack.Free; pack := l_pack; end; end; procedure ImportWeighedPackResponse.WriteComplex(ASerializer: TObject); var l_pack: PackageWeighed; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(ImportWeighedPackResponse); l_pack := int_pack; TROSerializer(ASerializer).WriteStruct('pack', l_pack, PackageWeighed); end else begin l_pack := int_pack; TROSerializer(ASerializer).WriteStruct('pack', l_pack, PackageWeighed); end; end; { ImportWeighedPackResponseCollection } constructor ImportWeighedPackResponseCollection.Create; begin inherited Create(ImportWeighedPackResponse); end; constructor ImportWeighedPackResponseCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function ImportWeighedPackResponseCollection.Add: ImportWeighedPackResponse; begin result := ImportWeighedPackResponse(inherited Add); end; function ImportWeighedPackResponseCollection.GetItems(aIndex: integer): ImportWeighedPackResponse; begin result := ImportWeighedPackResponse(inherited Items[aIndex]); end; procedure ImportWeighedPackResponseCollection.SetItems(aIndex: integer; const Value: ImportWeighedPackResponse); begin ImportWeighedPackResponse(inherited Items[aIndex]).Assign(Value); end; { ImportWeighedPackages } class function ImportWeighedPackages.GetAttributeCount: Integer; begin result := 1; end; class function ImportWeighedPackages.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function ImportWeighedPackages.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure ImportWeighedPackages.Assign(iSource: TPersistent); var lSource: libPPL_Intf.ImportWeighedPackages; begin inherited Assign(iSource); if (iSource is libPPL_Intf.ImportWeighedPackages) then begin lSource := libPPL_Intf.ImportWeighedPackages(iSource); FirCode := lSource.FirCode; if Assigned(lSource.fPackages) then Packages.Assign(lSource.fPackages) else FreeAndNil(fPackages); DepID := lSource.DepID; end; end; function ImportWeighedPackages.GetPackages: colPackageWeighed; begin if (fPackages = nil) then fPackages := colPackageWeighed.Create(); result := fPackages; end; procedure ImportWeighedPackages.ReadComplex(ASerializer: TObject); var l_DepID: UnicodeString; l_FirCode: UnicodeString; l_Packages: colPackageWeighed; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('FirCode', l_FirCode); {$ENDIF} FirCode := l_FirCode; l_Packages := int_Packages; TROSerializer(ASerializer).ReadStruct('Packages', colPackageWeighed, l_Packages); if int_Packages <> l_Packages then Packages.Free; Packages := l_Packages; l_DepID := DepID; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DepID', l_DepID); {$ELSE} TROSerializer(ASerializer).ReadWideString('DepID', l_DepID); {$ENDIF} DepID := l_DepID; end else begin l_DepID := DepID; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DepID', l_DepID); {$ELSE} TROSerializer(ASerializer).ReadWideString('DepID', l_DepID); {$ENDIF} DepID := l_DepID; l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('FirCode', l_FirCode); {$ENDIF} FirCode := l_FirCode; l_Packages := int_Packages; TROSerializer(ASerializer).ReadStruct('Packages', colPackageWeighed, l_Packages); if int_Packages <> l_Packages then Packages.Free; Packages := l_Packages; end; end; procedure ImportWeighedPackages.WriteComplex(ASerializer: TObject); var l_DepID: UnicodeString; l_FirCode: UnicodeString; l_Packages: colPackageWeighed; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(ImportWeighedPackages); l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('FirCode', l_FirCode); {$ENDIF} l_Packages := int_Packages; TROSerializer(ASerializer).WriteStruct('Packages', l_Packages, colPackageWeighed); l_DepID := DepID; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DepID', l_DepID); {$ELSE} TROSerializer(ASerializer).WriteWideString('DepID', l_DepID); {$ENDIF} end else begin l_DepID := DepID; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DepID', l_DepID); {$ELSE} TROSerializer(ASerializer).WriteWideString('DepID', l_DepID); {$ENDIF} l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('FirCode', l_FirCode); {$ENDIF} l_Packages := int_Packages; TROSerializer(ASerializer).WriteStruct('Packages', l_Packages, colPackageWeighed); end; end; { ImportWeighedPackagesCollection } constructor ImportWeighedPackagesCollection.Create; begin inherited Create(ImportWeighedPackages); end; constructor ImportWeighedPackagesCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function ImportWeighedPackagesCollection.Add: ImportWeighedPackages; begin result := ImportWeighedPackages(inherited Add); end; function ImportWeighedPackagesCollection.GetItems(aIndex: integer): ImportWeighedPackages; begin result := ImportWeighedPackages(inherited Items[aIndex]); end; procedure ImportWeighedPackagesCollection.SetItems(aIndex: integer; const Value: ImportWeighedPackages); begin ImportWeighedPackages(inherited Items[aIndex]).Assign(Value); end; { colPackageWeighed } class function colPackageWeighed.GetAttributeCount: Integer; begin result := 1; end; class function colPackageWeighed.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function colPackageWeighed.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure colPackageWeighed.Assign(iSource: TPersistent); var lSource: libPPL_Intf.colPackageWeighed; begin inherited Assign(iSource); if (iSource is libPPL_Intf.colPackageWeighed) then begin lSource := libPPL_Intf.colPackageWeighed(iSource); if Assigned(lSource.fItems) then Items.Assign(lSource.fItems) else FreeAndNil(fItems); ErrorCode := lSource.ErrorCode; ErrorMessage := lSource.ErrorMessage; end; end; function colPackageWeighed.GetItems: ArrayOfAnyType; begin if (fItems = nil) then fItems := ArrayOfAnyType.Create(); result := fItems; end; procedure colPackageWeighed.ReadComplex(ASerializer: TObject); var l_ErrorCode: Integer; l_ErrorMessage: UnicodeString; l_Items: ArrayOfAnyType; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_Items := int_Items; TROSerializer(ASerializer).ReadArray('Items', ArrayOfAnyType, l_Items); if int_Items <> l_Items then Items.Free; Items := l_Items; l_ErrorCode := ErrorCode; TROSerializer(ASerializer).ReadInteger('ErrorCode', otSLong, l_ErrorCode); ErrorCode := l_ErrorCode; l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).ReadWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} ErrorMessage := l_ErrorMessage; end else begin l_ErrorCode := ErrorCode; TROSerializer(ASerializer).ReadInteger('ErrorCode', otSLong, l_ErrorCode); ErrorCode := l_ErrorCode; l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).ReadWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} ErrorMessage := l_ErrorMessage; l_Items := int_Items; TROSerializer(ASerializer).ReadArray('Items', ArrayOfAnyType, l_Items); if int_Items <> l_Items then Items.Free; Items := l_Items; end; end; procedure colPackageWeighed.WriteComplex(ASerializer: TObject); var l_ErrorCode: Integer; l_ErrorMessage: UnicodeString; l_Items: ArrayOfAnyType; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(colPackageWeighed); l_Items := int_Items; TROSerializer(ASerializer).WriteArray('Items', l_Items, ArrayOfAnyType); l_ErrorCode := ErrorCode; TROSerializer(ASerializer).WriteInteger('ErrorCode', otSLong, l_ErrorCode); l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).WriteWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} end else begin l_ErrorCode := ErrorCode; TROSerializer(ASerializer).WriteInteger('ErrorCode', otSLong, l_ErrorCode); l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).WriteWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} l_Items := int_Items; TROSerializer(ASerializer).WriteArray('Items', l_Items, ArrayOfAnyType); end; end; { colPackageWeighedCollection } constructor colPackageWeighedCollection.Create; begin inherited Create(colPackageWeighed); end; constructor colPackageWeighedCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function colPackageWeighedCollection.Add: colPackageWeighed; begin result := colPackageWeighed(inherited Add); end; function colPackageWeighedCollection.GetItems(aIndex: integer): colPackageWeighed; begin result := colPackageWeighed(inherited Items[aIndex]); end; procedure colPackageWeighedCollection.SetItems(aIndex: integer; const Value: colPackageWeighed); begin colPackageWeighed(inherited Items[aIndex]).Assign(Value); end; { ImportWeighedPackagesResponse } class function ImportWeighedPackagesResponse.GetAttributeCount: Integer; begin result := 1; end; class function ImportWeighedPackagesResponse.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function ImportWeighedPackagesResponse.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure ImportWeighedPackagesResponse.Assign(iSource: TPersistent); var lSource: libPPL_Intf.ImportWeighedPackagesResponse; begin inherited Assign(iSource); if (iSource is libPPL_Intf.ImportWeighedPackagesResponse) then begin lSource := libPPL_Intf.ImportWeighedPackagesResponse(iSource); if Assigned(lSource.fPackages) then Packages.Assign(lSource.fPackages) else FreeAndNil(fPackages); end; end; function ImportWeighedPackagesResponse.GetPackages: colPackageWeighed; begin if (fPackages = nil) then fPackages := colPackageWeighed.Create(); result := fPackages; end; procedure ImportWeighedPackagesResponse.ReadComplex(ASerializer: TObject); var l_Packages: colPackageWeighed; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_Packages := int_Packages; TROSerializer(ASerializer).ReadStruct('Packages', colPackageWeighed, l_Packages); if int_Packages <> l_Packages then Packages.Free; Packages := l_Packages; end else begin l_Packages := int_Packages; TROSerializer(ASerializer).ReadStruct('Packages', colPackageWeighed, l_Packages); if int_Packages <> l_Packages then Packages.Free; Packages := l_Packages; end; end; procedure ImportWeighedPackagesResponse.WriteComplex(ASerializer: TObject); var l_Packages: colPackageWeighed; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(ImportWeighedPackagesResponse); l_Packages := int_Packages; TROSerializer(ASerializer).WriteStruct('Packages', l_Packages, colPackageWeighed); end else begin l_Packages := int_Packages; TROSerializer(ASerializer).WriteStruct('Packages', l_Packages, colPackageWeighed); end; end; { ImportWeighedPackagesResponseCollection } constructor ImportWeighedPackagesResponseCollection.Create; begin inherited Create(ImportWeighedPackagesResponse); end; constructor ImportWeighedPackagesResponseCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function ImportWeighedPackagesResponseCollection.Add: ImportWeighedPackagesResponse; begin result := ImportWeighedPackagesResponse(inherited Add); end; function ImportWeighedPackagesResponseCollection.GetItems(aIndex: integer): ImportWeighedPackagesResponse; begin result := ImportWeighedPackagesResponse(inherited Items[aIndex]); end; procedure ImportWeighedPackagesResponseCollection.SetItems(aIndex: integer; const Value: ImportWeighedPackagesResponse); begin ImportWeighedPackagesResponse(inherited Items[aIndex]).Assign(Value); end; { ImportPackagesHoffmann } class function ImportPackagesHoffmann.GetAttributeCount: Integer; begin result := 1; end; class function ImportPackagesHoffmann.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function ImportPackagesHoffmann.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure ImportPackagesHoffmann.Assign(iSource: TPersistent); var lSource: libPPL_Intf.ImportPackagesHoffmann; begin inherited Assign(iSource); if (iSource is libPPL_Intf.ImportPackagesHoffmann) then begin lSource := libPPL_Intf.ImportPackagesHoffmann(iSource); FirCode := lSource.FirCode; if Assigned(lSource.fPackages) then Packages.Assign(lSource.fPackages) else FreeAndNil(fPackages); DepID := lSource.DepID; end; end; function ImportPackagesHoffmann.GetPackages: colPackageHoffmann; begin if (fPackages = nil) then fPackages := colPackageHoffmann.Create(); result := fPackages; end; procedure ImportPackagesHoffmann.ReadComplex(ASerializer: TObject); var l_DepID: UnicodeString; l_FirCode: UnicodeString; l_Packages: colPackageHoffmann; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('FirCode', l_FirCode); {$ENDIF} FirCode := l_FirCode; l_Packages := int_Packages; TROSerializer(ASerializer).ReadStruct('Packages', colPackageHoffmann, l_Packages); if int_Packages <> l_Packages then Packages.Free; Packages := l_Packages; l_DepID := DepID; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DepID', l_DepID); {$ELSE} TROSerializer(ASerializer).ReadWideString('DepID', l_DepID); {$ENDIF} DepID := l_DepID; end else begin l_DepID := DepID; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('DepID', l_DepID); {$ELSE} TROSerializer(ASerializer).ReadWideString('DepID', l_DepID); {$ENDIF} DepID := l_DepID; l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('FirCode', l_FirCode); {$ENDIF} FirCode := l_FirCode; l_Packages := int_Packages; TROSerializer(ASerializer).ReadStruct('Packages', colPackageHoffmann, l_Packages); if int_Packages <> l_Packages then Packages.Free; Packages := l_Packages; end; end; procedure ImportPackagesHoffmann.WriteComplex(ASerializer: TObject); var l_DepID: UnicodeString; l_FirCode: UnicodeString; l_Packages: colPackageHoffmann; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(ImportPackagesHoffmann); l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('FirCode', l_FirCode); {$ENDIF} l_Packages := int_Packages; TROSerializer(ASerializer).WriteStruct('Packages', l_Packages, colPackageHoffmann); l_DepID := DepID; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DepID', l_DepID); {$ELSE} TROSerializer(ASerializer).WriteWideString('DepID', l_DepID); {$ENDIF} end else begin l_DepID := DepID; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('DepID', l_DepID); {$ELSE} TROSerializer(ASerializer).WriteWideString('DepID', l_DepID); {$ENDIF} l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('FirCode', l_FirCode); {$ENDIF} l_Packages := int_Packages; TROSerializer(ASerializer).WriteStruct('Packages', l_Packages, colPackageHoffmann); end; end; { ImportPackagesHoffmannCollection } constructor ImportPackagesHoffmannCollection.Create; begin inherited Create(ImportPackagesHoffmann); end; constructor ImportPackagesHoffmannCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function ImportPackagesHoffmannCollection.Add: ImportPackagesHoffmann; begin result := ImportPackagesHoffmann(inherited Add); end; function ImportPackagesHoffmannCollection.GetItems(aIndex: integer): ImportPackagesHoffmann; begin result := ImportPackagesHoffmann(inherited Items[aIndex]); end; procedure ImportPackagesHoffmannCollection.SetItems(aIndex: integer; const Value: ImportPackagesHoffmann); begin ImportPackagesHoffmann(inherited Items[aIndex]).Assign(Value); end; { colPackageHoffmann } class function colPackageHoffmann.GetAttributeCount: Integer; begin result := 1; end; class function colPackageHoffmann.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function colPackageHoffmann.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure colPackageHoffmann.Assign(iSource: TPersistent); var lSource: libPPL_Intf.colPackageHoffmann; begin inherited Assign(iSource); if (iSource is libPPL_Intf.colPackageHoffmann) then begin lSource := libPPL_Intf.colPackageHoffmann(iSource); if Assigned(lSource.fItems) then Items.Assign(lSource.fItems) else FreeAndNil(fItems); ErrorCode := lSource.ErrorCode; ErrorMessage := lSource.ErrorMessage; end; end; function colPackageHoffmann.GetItems: ArrayOfAnyType; begin if (fItems = nil) then fItems := ArrayOfAnyType.Create(); result := fItems; end; procedure colPackageHoffmann.ReadComplex(ASerializer: TObject); var l_ErrorCode: Integer; l_ErrorMessage: UnicodeString; l_Items: ArrayOfAnyType; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_Items := int_Items; TROSerializer(ASerializer).ReadArray('Items', ArrayOfAnyType, l_Items); if int_Items <> l_Items then Items.Free; Items := l_Items; l_ErrorCode := ErrorCode; TROSerializer(ASerializer).ReadInteger('ErrorCode', otSLong, l_ErrorCode); ErrorCode := l_ErrorCode; l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).ReadWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} ErrorMessage := l_ErrorMessage; end else begin l_ErrorCode := ErrorCode; TROSerializer(ASerializer).ReadInteger('ErrorCode', otSLong, l_ErrorCode); ErrorCode := l_ErrorCode; l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).ReadWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} ErrorMessage := l_ErrorMessage; l_Items := int_Items; TROSerializer(ASerializer).ReadArray('Items', ArrayOfAnyType, l_Items); if int_Items <> l_Items then Items.Free; Items := l_Items; end; end; procedure colPackageHoffmann.WriteComplex(ASerializer: TObject); var l_ErrorCode: Integer; l_ErrorMessage: UnicodeString; l_Items: ArrayOfAnyType; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(colPackageHoffmann); l_Items := int_Items; TROSerializer(ASerializer).WriteArray('Items', l_Items, ArrayOfAnyType); l_ErrorCode := ErrorCode; TROSerializer(ASerializer).WriteInteger('ErrorCode', otSLong, l_ErrorCode); l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).WriteWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} end else begin l_ErrorCode := ErrorCode; TROSerializer(ASerializer).WriteInteger('ErrorCode', otSLong, l_ErrorCode); l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).WriteWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} l_Items := int_Items; TROSerializer(ASerializer).WriteArray('Items', l_Items, ArrayOfAnyType); end; end; { colPackageHoffmannCollection } constructor colPackageHoffmannCollection.Create; begin inherited Create(colPackageHoffmann); end; constructor colPackageHoffmannCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function colPackageHoffmannCollection.Add: colPackageHoffmann; begin result := colPackageHoffmann(inherited Add); end; function colPackageHoffmannCollection.GetItems(aIndex: integer): colPackageHoffmann; begin result := colPackageHoffmann(inherited Items[aIndex]); end; procedure colPackageHoffmannCollection.SetItems(aIndex: integer; const Value: colPackageHoffmann); begin colPackageHoffmann(inherited Items[aIndex]).Assign(Value); end; { ImportPackagesHoffmannResponse } class function ImportPackagesHoffmannResponse.GetAttributeCount: Integer; begin result := 1; end; class function ImportPackagesHoffmannResponse.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function ImportPackagesHoffmannResponse.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure ImportPackagesHoffmannResponse.Assign(iSource: TPersistent); var lSource: libPPL_Intf.ImportPackagesHoffmannResponse; begin inherited Assign(iSource); if (iSource is libPPL_Intf.ImportPackagesHoffmannResponse) then begin lSource := libPPL_Intf.ImportPackagesHoffmannResponse(iSource); if Assigned(lSource.fPackages) then Packages.Assign(lSource.fPackages) else FreeAndNil(fPackages); end; end; function ImportPackagesHoffmannResponse.GetPackages: colPackageHoffmann; begin if (fPackages = nil) then fPackages := colPackageHoffmann.Create(); result := fPackages; end; procedure ImportPackagesHoffmannResponse.ReadComplex(ASerializer: TObject); var l_Packages: colPackageHoffmann; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_Packages := int_Packages; TROSerializer(ASerializer).ReadStruct('Packages', colPackageHoffmann, l_Packages); if int_Packages <> l_Packages then Packages.Free; Packages := l_Packages; end else begin l_Packages := int_Packages; TROSerializer(ASerializer).ReadStruct('Packages', colPackageHoffmann, l_Packages); if int_Packages <> l_Packages then Packages.Free; Packages := l_Packages; end; end; procedure ImportPackagesHoffmannResponse.WriteComplex(ASerializer: TObject); var l_Packages: colPackageHoffmann; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(ImportPackagesHoffmannResponse); l_Packages := int_Packages; TROSerializer(ASerializer).WriteStruct('Packages', l_Packages, colPackageHoffmann); end else begin l_Packages := int_Packages; TROSerializer(ASerializer).WriteStruct('Packages', l_Packages, colPackageHoffmann); end; end; { ImportPackagesHoffmannResponseCollection } constructor ImportPackagesHoffmannResponseCollection.Create; begin inherited Create(ImportPackagesHoffmannResponse); end; constructor ImportPackagesHoffmannResponseCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function ImportPackagesHoffmannResponseCollection.Add: ImportPackagesHoffmannResponse; begin result := ImportPackagesHoffmannResponse(inherited Add); end; function ImportPackagesHoffmannResponseCollection.GetItems(aIndex: integer): ImportPackagesHoffmannResponse; begin result := ImportPackagesHoffmannResponse(inherited Items[aIndex]); end; procedure ImportPackagesHoffmannResponseCollection.SetItems(aIndex: integer; const Value: ImportPackagesHoffmannResponse); begin ImportPackagesHoffmannResponse(inherited Items[aIndex]).Assign(Value); end; { ImportESYCOPack } class function ImportESYCOPack.GetAttributeCount: Integer; begin result := 1; end; class function ImportESYCOPack.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function ImportESYCOPack.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure ImportESYCOPack.Assign(iSource: TPersistent); var lSource: libPPL_Intf.ImportESYCOPack; begin inherited Assign(iSource); if (iSource is libPPL_Intf.ImportESYCOPack) then begin lSource := libPPL_Intf.ImportESYCOPack(iSource); FirCode := lSource.FirCode; if Assigned(lSource.fpack) then pack.Assign(lSource.fpack) else FreeAndNil(fpack); end; end; function ImportESYCOPack.Getpack: PackageEsyco; begin if (fpack = nil) then fpack := PackageEsyco.Create(); result := fpack; end; procedure ImportESYCOPack.ReadComplex(ASerializer: TObject); var l_FirCode: UnicodeString; l_pack: PackageEsyco; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('FirCode', l_FirCode); {$ENDIF} FirCode := l_FirCode; l_pack := int_pack; TROSerializer(ASerializer).ReadStruct('pack', PackageEsyco, l_pack); if int_pack <> l_pack then pack.Free; pack := l_pack; end else begin l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('FirCode', l_FirCode); {$ENDIF} FirCode := l_FirCode; l_pack := int_pack; TROSerializer(ASerializer).ReadStruct('pack', PackageEsyco, l_pack); if int_pack <> l_pack then pack.Free; pack := l_pack; end; end; procedure ImportESYCOPack.WriteComplex(ASerializer: TObject); var l_FirCode: UnicodeString; l_pack: PackageEsyco; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(ImportESYCOPack); l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('FirCode', l_FirCode); {$ENDIF} l_pack := int_pack; TROSerializer(ASerializer).WriteStruct('pack', l_pack, PackageEsyco); end else begin l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('FirCode', l_FirCode); {$ENDIF} l_pack := int_pack; TROSerializer(ASerializer).WriteStruct('pack', l_pack, PackageEsyco); end; end; { ImportESYCOPackCollection } constructor ImportESYCOPackCollection.Create; begin inherited Create(ImportESYCOPack); end; constructor ImportESYCOPackCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function ImportESYCOPackCollection.Add: ImportESYCOPack; begin result := ImportESYCOPack(inherited Add); end; function ImportESYCOPackCollection.GetItems(aIndex: integer): ImportESYCOPack; begin result := ImportESYCOPack(inherited Items[aIndex]); end; procedure ImportESYCOPackCollection.SetItems(aIndex: integer; const Value: ImportESYCOPack); begin ImportESYCOPack(inherited Items[aIndex]).Assign(Value); end; { ImportESYCOPackResponse } class function ImportESYCOPackResponse.GetAttributeCount: Integer; begin result := 1; end; class function ImportESYCOPackResponse.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function ImportESYCOPackResponse.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure ImportESYCOPackResponse.Assign(iSource: TPersistent); var lSource: libPPL_Intf.ImportESYCOPackResponse; begin inherited Assign(iSource); if (iSource is libPPL_Intf.ImportESYCOPackResponse) then begin lSource := libPPL_Intf.ImportESYCOPackResponse(iSource); if Assigned(lSource.fpack) then pack.Assign(lSource.fpack) else FreeAndNil(fpack); end; end; function ImportESYCOPackResponse.Getpack: PackageEsyco; begin if (fpack = nil) then fpack := PackageEsyco.Create(); result := fpack; end; procedure ImportESYCOPackResponse.ReadComplex(ASerializer: TObject); var l_pack: PackageEsyco; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_pack := int_pack; TROSerializer(ASerializer).ReadStruct('pack', PackageEsyco, l_pack); if int_pack <> l_pack then pack.Free; pack := l_pack; end else begin l_pack := int_pack; TROSerializer(ASerializer).ReadStruct('pack', PackageEsyco, l_pack); if int_pack <> l_pack then pack.Free; pack := l_pack; end; end; procedure ImportESYCOPackResponse.WriteComplex(ASerializer: TObject); var l_pack: PackageEsyco; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(ImportESYCOPackResponse); l_pack := int_pack; TROSerializer(ASerializer).WriteStruct('pack', l_pack, PackageEsyco); end else begin l_pack := int_pack; TROSerializer(ASerializer).WriteStruct('pack', l_pack, PackageEsyco); end; end; { ImportESYCOPackResponseCollection } constructor ImportESYCOPackResponseCollection.Create; begin inherited Create(ImportESYCOPackResponse); end; constructor ImportESYCOPackResponseCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function ImportESYCOPackResponseCollection.Add: ImportESYCOPackResponse; begin result := ImportESYCOPackResponse(inherited Add); end; function ImportESYCOPackResponseCollection.GetItems(aIndex: integer): ImportESYCOPackResponse; begin result := ImportESYCOPackResponse(inherited Items[aIndex]); end; procedure ImportESYCOPackResponseCollection.SetItems(aIndex: integer; const Value: ImportESYCOPackResponse); begin ImportESYCOPackResponse(inherited Items[aIndex]).Assign(Value); end; { ImportESYCOPackages } class function ImportESYCOPackages.GetAttributeCount: Integer; begin result := 1; end; class function ImportESYCOPackages.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function ImportESYCOPackages.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure ImportESYCOPackages.Assign(iSource: TPersistent); var lSource: libPPL_Intf.ImportESYCOPackages; begin inherited Assign(iSource); if (iSource is libPPL_Intf.ImportESYCOPackages) then begin lSource := libPPL_Intf.ImportESYCOPackages(iSource); FirCode := lSource.FirCode; if Assigned(lSource.fPackages) then Packages.Assign(lSource.fPackages) else FreeAndNil(fPackages); end; end; function ImportESYCOPackages.GetPackages: colPackage; begin if (fPackages = nil) then fPackages := colPackage.Create(); result := fPackages; end; procedure ImportESYCOPackages.ReadComplex(ASerializer: TObject); var l_FirCode: UnicodeString; l_Packages: colPackage; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('FirCode', l_FirCode); {$ENDIF} FirCode := l_FirCode; l_Packages := int_Packages; TROSerializer(ASerializer).ReadStruct('Packages', colPackage, l_Packages); if int_Packages <> l_Packages then Packages.Free; Packages := l_Packages; end else begin l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('FirCode', l_FirCode); {$ENDIF} FirCode := l_FirCode; l_Packages := int_Packages; TROSerializer(ASerializer).ReadStruct('Packages', colPackage, l_Packages); if int_Packages <> l_Packages then Packages.Free; Packages := l_Packages; end; end; procedure ImportESYCOPackages.WriteComplex(ASerializer: TObject); var l_FirCode: UnicodeString; l_Packages: colPackage; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(ImportESYCOPackages); l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('FirCode', l_FirCode); {$ENDIF} l_Packages := int_Packages; TROSerializer(ASerializer).WriteStruct('Packages', l_Packages, colPackage); end else begin l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('FirCode', l_FirCode); {$ENDIF} l_Packages := int_Packages; TROSerializer(ASerializer).WriteStruct('Packages', l_Packages, colPackage); end; end; { ImportESYCOPackagesCollection } constructor ImportESYCOPackagesCollection.Create; begin inherited Create(ImportESYCOPackages); end; constructor ImportESYCOPackagesCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function ImportESYCOPackagesCollection.Add: ImportESYCOPackages; begin result := ImportESYCOPackages(inherited Add); end; function ImportESYCOPackagesCollection.GetItems(aIndex: integer): ImportESYCOPackages; begin result := ImportESYCOPackages(inherited Items[aIndex]); end; procedure ImportESYCOPackagesCollection.SetItems(aIndex: integer; const Value: ImportESYCOPackages); begin ImportESYCOPackages(inherited Items[aIndex]).Assign(Value); end; { ImportESYCOPackagesResponse } class function ImportESYCOPackagesResponse.GetAttributeCount: Integer; begin result := 1; end; class function ImportESYCOPackagesResponse.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function ImportESYCOPackagesResponse.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure ImportESYCOPackagesResponse.Assign(iSource: TPersistent); var lSource: libPPL_Intf.ImportESYCOPackagesResponse; begin inherited Assign(iSource); if (iSource is libPPL_Intf.ImportESYCOPackagesResponse) then begin lSource := libPPL_Intf.ImportESYCOPackagesResponse(iSource); if Assigned(lSource.fPackages) then Packages.Assign(lSource.fPackages) else FreeAndNil(fPackages); end; end; function ImportESYCOPackagesResponse.GetPackages: colPackage; begin if (fPackages = nil) then fPackages := colPackage.Create(); result := fPackages; end; procedure ImportESYCOPackagesResponse.ReadComplex(ASerializer: TObject); var l_Packages: colPackage; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_Packages := int_Packages; TROSerializer(ASerializer).ReadStruct('Packages', colPackage, l_Packages); if int_Packages <> l_Packages then Packages.Free; Packages := l_Packages; end else begin l_Packages := int_Packages; TROSerializer(ASerializer).ReadStruct('Packages', colPackage, l_Packages); if int_Packages <> l_Packages then Packages.Free; Packages := l_Packages; end; end; procedure ImportESYCOPackagesResponse.WriteComplex(ASerializer: TObject); var l_Packages: colPackage; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(ImportESYCOPackagesResponse); l_Packages := int_Packages; TROSerializer(ASerializer).WriteStruct('Packages', l_Packages, colPackage); end else begin l_Packages := int_Packages; TROSerializer(ASerializer).WriteStruct('Packages', l_Packages, colPackage); end; end; { ImportESYCOPackagesResponseCollection } constructor ImportESYCOPackagesResponseCollection.Create; begin inherited Create(ImportESYCOPackagesResponse); end; constructor ImportESYCOPackagesResponseCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function ImportESYCOPackagesResponseCollection.Add: ImportESYCOPackagesResponse; begin result := ImportESYCOPackagesResponse(inherited Add); end; function ImportESYCOPackagesResponseCollection.GetItems(aIndex: integer): ImportESYCOPackagesResponse; begin result := ImportESYCOPackagesResponse(inherited Items[aIndex]); end; procedure ImportESYCOPackagesResponseCollection.SetItems(aIndex: integer; const Value: ImportESYCOPackagesResponse); begin ImportESYCOPackagesResponse(inherited Items[aIndex]).Assign(Value); end; { ImportStatusDHL } class function ImportStatusDHL.GetAttributeCount: Integer; begin result := 1; end; class function ImportStatusDHL.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function ImportStatusDHL.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure ImportStatusDHL.Assign(iSource: TPersistent); var lSource: libPPL_Intf.ImportStatusDHL; begin inherited Assign(iSource); if (iSource is libPPL_Intf.ImportStatusDHL) then begin lSource := libPPL_Intf.ImportStatusDHL(iSource); FirCode := lSource.FirCode; if Assigned(lSource.fStat) then Stat.Assign(lSource.fStat) else FreeAndNil(fStat); end; end; function ImportStatusDHL.GetStat: StatusDHL; begin if (fStat = nil) then fStat := StatusDHL.Create(); result := fStat; end; procedure ImportStatusDHL.ReadComplex(ASerializer: TObject); var l_FirCode: UnicodeString; l_Stat: StatusDHL; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('FirCode', l_FirCode); {$ENDIF} FirCode := l_FirCode; l_Stat := int_Stat; TROSerializer(ASerializer).ReadStruct('Stat', StatusDHL, l_Stat); if int_Stat <> l_Stat then Stat.Free; Stat := l_Stat; end else begin l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('FirCode', l_FirCode); {$ENDIF} FirCode := l_FirCode; l_Stat := int_Stat; TROSerializer(ASerializer).ReadStruct('Stat', StatusDHL, l_Stat); if int_Stat <> l_Stat then Stat.Free; Stat := l_Stat; end; end; procedure ImportStatusDHL.WriteComplex(ASerializer: TObject); var l_FirCode: UnicodeString; l_Stat: StatusDHL; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(ImportStatusDHL); l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('FirCode', l_FirCode); {$ENDIF} l_Stat := int_Stat; TROSerializer(ASerializer).WriteStruct('Stat', l_Stat, StatusDHL); end else begin l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('FirCode', l_FirCode); {$ENDIF} l_Stat := int_Stat; TROSerializer(ASerializer).WriteStruct('Stat', l_Stat, StatusDHL); end; end; { ImportStatusDHLCollection } constructor ImportStatusDHLCollection.Create; begin inherited Create(ImportStatusDHL); end; constructor ImportStatusDHLCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function ImportStatusDHLCollection.Add: ImportStatusDHL; begin result := ImportStatusDHL(inherited Add); end; function ImportStatusDHLCollection.GetItems(aIndex: integer): ImportStatusDHL; begin result := ImportStatusDHL(inherited Items[aIndex]); end; procedure ImportStatusDHLCollection.SetItems(aIndex: integer; const Value: ImportStatusDHL); begin ImportStatusDHL(inherited Items[aIndex]).Assign(Value); end; { StatusDHL } class function StatusDHL.GetAttributeCount: Integer; begin result := 1; end; class function StatusDHL.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function StatusDHL.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure StatusDHL.Assign(iSource: TPersistent); var lSource: libPPL_Intf.StatusDHL; begin inherited Assign(iSource); if (iSource is libPPL_Intf.StatusDHL) then begin lSource := libPPL_Intf.StatusDHL(iSource); PackageIDPPL := lSource.PackageIDPPL; PackageIDExp := lSource.PackageIDExp; StatusID := lSource.StatusID; Created := lSource.Created; Note := lSource.Note; ZpID := lSource.ZpID; ErrorCode := lSource.ErrorCode; ErrorMessage := lSource.ErrorMessage; end; end; procedure StatusDHL.ReadComplex(ASerializer: TObject); var l_Created: DateTime; l_ErrorCode: Integer; l_ErrorMessage: UnicodeString; l_Note: UnicodeString; l_PackageIDExp: UnicodeString; l_PackageIDPPL: UnicodeString; l_StatusID: UnicodeString; l_ZpID: UnicodeString; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_PackageIDPPL := PackageIDPPL; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('PackageIDPPL', l_PackageIDPPL); {$ELSE} TROSerializer(ASerializer).ReadWideString('PackageIDPPL', l_PackageIDPPL); {$ENDIF} PackageIDPPL := l_PackageIDPPL; l_PackageIDExp := PackageIDExp; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('PackageIDExp', l_PackageIDExp); {$ELSE} TROSerializer(ASerializer).ReadWideString('PackageIDExp', l_PackageIDExp); {$ENDIF} PackageIDExp := l_PackageIDExp; l_StatusID := StatusID; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('StatusID', l_StatusID); {$ELSE} TROSerializer(ASerializer).ReadWideString('StatusID', l_StatusID); {$ENDIF} StatusID := l_StatusID; l_Created := Created; TROSerializer(ASerializer).ReadDateTime('Created', l_Created); Created := l_Created; l_Note := Note; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Note', l_Note); {$ELSE} TROSerializer(ASerializer).ReadWideString('Note', l_Note); {$ENDIF} Note := l_Note; l_ZpID := ZpID; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ZpID', l_ZpID); {$ELSE} TROSerializer(ASerializer).ReadWideString('ZpID', l_ZpID); {$ENDIF} ZpID := l_ZpID; l_ErrorCode := ErrorCode; TROSerializer(ASerializer).ReadInteger('ErrorCode', otSLong, l_ErrorCode); ErrorCode := l_ErrorCode; l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).ReadWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} ErrorMessage := l_ErrorMessage; end else begin l_Created := Created; TROSerializer(ASerializer).ReadDateTime('Created', l_Created); Created := l_Created; l_ErrorCode := ErrorCode; TROSerializer(ASerializer).ReadInteger('ErrorCode', otSLong, l_ErrorCode); ErrorCode := l_ErrorCode; l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).ReadWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} ErrorMessage := l_ErrorMessage; l_Note := Note; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Note', l_Note); {$ELSE} TROSerializer(ASerializer).ReadWideString('Note', l_Note); {$ENDIF} Note := l_Note; l_PackageIDExp := PackageIDExp; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('PackageIDExp', l_PackageIDExp); {$ELSE} TROSerializer(ASerializer).ReadWideString('PackageIDExp', l_PackageIDExp); {$ENDIF} PackageIDExp := l_PackageIDExp; l_PackageIDPPL := PackageIDPPL; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('PackageIDPPL', l_PackageIDPPL); {$ELSE} TROSerializer(ASerializer).ReadWideString('PackageIDPPL', l_PackageIDPPL); {$ENDIF} PackageIDPPL := l_PackageIDPPL; l_StatusID := StatusID; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('StatusID', l_StatusID); {$ELSE} TROSerializer(ASerializer).ReadWideString('StatusID', l_StatusID); {$ENDIF} StatusID := l_StatusID; l_ZpID := ZpID; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ZpID', l_ZpID); {$ELSE} TROSerializer(ASerializer).ReadWideString('ZpID', l_ZpID); {$ENDIF} ZpID := l_ZpID; end; end; procedure StatusDHL.WriteComplex(ASerializer: TObject); var l_Created: DateTime; l_ErrorCode: Integer; l_ErrorMessage: UnicodeString; l_Note: UnicodeString; l_PackageIDExp: UnicodeString; l_PackageIDPPL: UnicodeString; l_StatusID: UnicodeString; l_ZpID: UnicodeString; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(StatusDHL); l_PackageIDPPL := PackageIDPPL; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('PackageIDPPL', l_PackageIDPPL); {$ELSE} TROSerializer(ASerializer).WriteWideString('PackageIDPPL', l_PackageIDPPL); {$ENDIF} l_PackageIDExp := PackageIDExp; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('PackageIDExp', l_PackageIDExp); {$ELSE} TROSerializer(ASerializer).WriteWideString('PackageIDExp', l_PackageIDExp); {$ENDIF} l_StatusID := StatusID; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('StatusID', l_StatusID); {$ELSE} TROSerializer(ASerializer).WriteWideString('StatusID', l_StatusID); {$ENDIF} l_Created := Created; TROSerializer(ASerializer).WriteDateTime('Created', l_Created); l_Note := Note; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Note', l_Note); {$ELSE} TROSerializer(ASerializer).WriteWideString('Note', l_Note); {$ENDIF} l_ZpID := ZpID; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ZpID', l_ZpID); {$ELSE} TROSerializer(ASerializer).WriteWideString('ZpID', l_ZpID); {$ENDIF} l_ErrorCode := ErrorCode; TROSerializer(ASerializer).WriteInteger('ErrorCode', otSLong, l_ErrorCode); l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).WriteWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} end else begin l_Created := Created; TROSerializer(ASerializer).WriteDateTime('Created', l_Created); l_ErrorCode := ErrorCode; TROSerializer(ASerializer).WriteInteger('ErrorCode', otSLong, l_ErrorCode); l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).WriteWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} l_Note := Note; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Note', l_Note); {$ELSE} TROSerializer(ASerializer).WriteWideString('Note', l_Note); {$ENDIF} l_PackageIDExp := PackageIDExp; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('PackageIDExp', l_PackageIDExp); {$ELSE} TROSerializer(ASerializer).WriteWideString('PackageIDExp', l_PackageIDExp); {$ENDIF} l_PackageIDPPL := PackageIDPPL; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('PackageIDPPL', l_PackageIDPPL); {$ELSE} TROSerializer(ASerializer).WriteWideString('PackageIDPPL', l_PackageIDPPL); {$ENDIF} l_StatusID := StatusID; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('StatusID', l_StatusID); {$ELSE} TROSerializer(ASerializer).WriteWideString('StatusID', l_StatusID); {$ENDIF} l_ZpID := ZpID; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ZpID', l_ZpID); {$ELSE} TROSerializer(ASerializer).WriteWideString('ZpID', l_ZpID); {$ENDIF} end; end; { StatusDHLCollection } constructor StatusDHLCollection.Create; begin inherited Create(StatusDHL); end; constructor StatusDHLCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function StatusDHLCollection.Add: StatusDHL; begin result := StatusDHL(inherited Add); end; function StatusDHLCollection.GetItems(aIndex: integer): StatusDHL; begin result := StatusDHL(inherited Items[aIndex]); end; procedure StatusDHLCollection.SetItems(aIndex: integer; const Value: StatusDHL); begin StatusDHL(inherited Items[aIndex]).Assign(Value); end; { ImportStatusDHLResponse } class function ImportStatusDHLResponse.GetAttributeCount: Integer; begin result := 1; end; class function ImportStatusDHLResponse.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function ImportStatusDHLResponse.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure ImportStatusDHLResponse.Assign(iSource: TPersistent); var lSource: libPPL_Intf.ImportStatusDHLResponse; begin inherited Assign(iSource); if (iSource is libPPL_Intf.ImportStatusDHLResponse) then begin lSource := libPPL_Intf.ImportStatusDHLResponse(iSource); if Assigned(lSource.fStat) then Stat.Assign(lSource.fStat) else FreeAndNil(fStat); end; end; function ImportStatusDHLResponse.GetStat: StatusDHL; begin if (fStat = nil) then fStat := StatusDHL.Create(); result := fStat; end; procedure ImportStatusDHLResponse.ReadComplex(ASerializer: TObject); var l_Stat: StatusDHL; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_Stat := int_Stat; TROSerializer(ASerializer).ReadStruct('Stat', StatusDHL, l_Stat); if int_Stat <> l_Stat then Stat.Free; Stat := l_Stat; end else begin l_Stat := int_Stat; TROSerializer(ASerializer).ReadStruct('Stat', StatusDHL, l_Stat); if int_Stat <> l_Stat then Stat.Free; Stat := l_Stat; end; end; procedure ImportStatusDHLResponse.WriteComplex(ASerializer: TObject); var l_Stat: StatusDHL; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(ImportStatusDHLResponse); l_Stat := int_Stat; TROSerializer(ASerializer).WriteStruct('Stat', l_Stat, StatusDHL); end else begin l_Stat := int_Stat; TROSerializer(ASerializer).WriteStruct('Stat', l_Stat, StatusDHL); end; end; { ImportStatusDHLResponseCollection } constructor ImportStatusDHLResponseCollection.Create; begin inherited Create(ImportStatusDHLResponse); end; constructor ImportStatusDHLResponseCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function ImportStatusDHLResponseCollection.Add: ImportStatusDHLResponse; begin result := ImportStatusDHLResponse(inherited Add); end; function ImportStatusDHLResponseCollection.GetItems(aIndex: integer): ImportStatusDHLResponse; begin result := ImportStatusDHLResponse(inherited Items[aIndex]); end; procedure ImportStatusDHLResponseCollection.SetItems(aIndex: integer; const Value: ImportStatusDHLResponse); begin ImportStatusDHLResponse(inherited Items[aIndex]).Assign(Value); end; { ImportStatusesDHL } class function ImportStatusesDHL.GetAttributeCount: Integer; begin result := 1; end; class function ImportStatusesDHL.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function ImportStatusesDHL.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure ImportStatusesDHL.Assign(iSource: TPersistent); var lSource: libPPL_Intf.ImportStatusesDHL; begin inherited Assign(iSource); if (iSource is libPPL_Intf.ImportStatusesDHL) then begin lSource := libPPL_Intf.ImportStatusesDHL(iSource); FirCode := lSource.FirCode; if Assigned(lSource.fStatuses) then Statuses.Assign(lSource.fStatuses) else FreeAndNil(fStatuses); end; end; function ImportStatusesDHL.GetStatuses: colStatus; begin if (fStatuses = nil) then fStatuses := colStatus.Create(); result := fStatuses; end; procedure ImportStatusesDHL.ReadComplex(ASerializer: TObject); var l_FirCode: UnicodeString; l_Statuses: colStatus; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('FirCode', l_FirCode); {$ENDIF} FirCode := l_FirCode; l_Statuses := int_Statuses; TROSerializer(ASerializer).ReadStruct('Statuses', colStatus, l_Statuses); if int_Statuses <> l_Statuses then Statuses.Free; Statuses := l_Statuses; end else begin l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('FirCode', l_FirCode); {$ENDIF} FirCode := l_FirCode; l_Statuses := int_Statuses; TROSerializer(ASerializer).ReadStruct('Statuses', colStatus, l_Statuses); if int_Statuses <> l_Statuses then Statuses.Free; Statuses := l_Statuses; end; end; procedure ImportStatusesDHL.WriteComplex(ASerializer: TObject); var l_FirCode: UnicodeString; l_Statuses: colStatus; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(ImportStatusesDHL); l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('FirCode', l_FirCode); {$ENDIF} l_Statuses := int_Statuses; TROSerializer(ASerializer).WriteStruct('Statuses', l_Statuses, colStatus); end else begin l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('FirCode', l_FirCode); {$ENDIF} l_Statuses := int_Statuses; TROSerializer(ASerializer).WriteStruct('Statuses', l_Statuses, colStatus); end; end; { ImportStatusesDHLCollection } constructor ImportStatusesDHLCollection.Create; begin inherited Create(ImportStatusesDHL); end; constructor ImportStatusesDHLCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function ImportStatusesDHLCollection.Add: ImportStatusesDHL; begin result := ImportStatusesDHL(inherited Add); end; function ImportStatusesDHLCollection.GetItems(aIndex: integer): ImportStatusesDHL; begin result := ImportStatusesDHL(inherited Items[aIndex]); end; procedure ImportStatusesDHLCollection.SetItems(aIndex: integer; const Value: ImportStatusesDHL); begin ImportStatusesDHL(inherited Items[aIndex]).Assign(Value); end; { colStatus } class function colStatus.GetAttributeCount: Integer; begin result := 1; end; class function colStatus.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function colStatus.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure colStatus.Assign(iSource: TPersistent); var lSource: libPPL_Intf.colStatus; begin inherited Assign(iSource); if (iSource is libPPL_Intf.colStatus) then begin lSource := libPPL_Intf.colStatus(iSource); if Assigned(lSource.fItems) then Items.Assign(lSource.fItems) else FreeAndNil(fItems); ErrorCode := lSource.ErrorCode; ErrorMessage := lSource.ErrorMessage; end; end; function colStatus.GetItems: ArrayOfAnyType; begin if (fItems = nil) then fItems := ArrayOfAnyType.Create(); result := fItems; end; procedure colStatus.ReadComplex(ASerializer: TObject); var l_ErrorCode: Integer; l_ErrorMessage: UnicodeString; l_Items: ArrayOfAnyType; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_Items := int_Items; TROSerializer(ASerializer).ReadArray('Items', ArrayOfAnyType, l_Items); if int_Items <> l_Items then Items.Free; Items := l_Items; l_ErrorCode := ErrorCode; TROSerializer(ASerializer).ReadInteger('ErrorCode', otSLong, l_ErrorCode); ErrorCode := l_ErrorCode; l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).ReadWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} ErrorMessage := l_ErrorMessage; end else begin l_ErrorCode := ErrorCode; TROSerializer(ASerializer).ReadInteger('ErrorCode', otSLong, l_ErrorCode); ErrorCode := l_ErrorCode; l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).ReadWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} ErrorMessage := l_ErrorMessage; l_Items := int_Items; TROSerializer(ASerializer).ReadArray('Items', ArrayOfAnyType, l_Items); if int_Items <> l_Items then Items.Free; Items := l_Items; end; end; procedure colStatus.WriteComplex(ASerializer: TObject); var l_ErrorCode: Integer; l_ErrorMessage: UnicodeString; l_Items: ArrayOfAnyType; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(colStatus); l_Items := int_Items; TROSerializer(ASerializer).WriteArray('Items', l_Items, ArrayOfAnyType); l_ErrorCode := ErrorCode; TROSerializer(ASerializer).WriteInteger('ErrorCode', otSLong, l_ErrorCode); l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).WriteWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} end else begin l_ErrorCode := ErrorCode; TROSerializer(ASerializer).WriteInteger('ErrorCode', otSLong, l_ErrorCode); l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).WriteWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} l_Items := int_Items; TROSerializer(ASerializer).WriteArray('Items', l_Items, ArrayOfAnyType); end; end; { colStatusCollection } constructor colStatusCollection.Create; begin inherited Create(colStatus); end; constructor colStatusCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function colStatusCollection.Add: colStatus; begin result := colStatus(inherited Add); end; function colStatusCollection.GetItems(aIndex: integer): colStatus; begin result := colStatus(inherited Items[aIndex]); end; procedure colStatusCollection.SetItems(aIndex: integer; const Value: colStatus); begin colStatus(inherited Items[aIndex]).Assign(Value); end; { ImportStatusesDHLResponse } class function ImportStatusesDHLResponse.GetAttributeCount: Integer; begin result := 1; end; class function ImportStatusesDHLResponse.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function ImportStatusesDHLResponse.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure ImportStatusesDHLResponse.Assign(iSource: TPersistent); var lSource: libPPL_Intf.ImportStatusesDHLResponse; begin inherited Assign(iSource); if (iSource is libPPL_Intf.ImportStatusesDHLResponse) then begin lSource := libPPL_Intf.ImportStatusesDHLResponse(iSource); if Assigned(lSource.fStatuses) then Statuses.Assign(lSource.fStatuses) else FreeAndNil(fStatuses); end; end; function ImportStatusesDHLResponse.GetStatuses: colStatus; begin if (fStatuses = nil) then fStatuses := colStatus.Create(); result := fStatuses; end; procedure ImportStatusesDHLResponse.ReadComplex(ASerializer: TObject); var l_Statuses: colStatus; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_Statuses := int_Statuses; TROSerializer(ASerializer).ReadStruct('Statuses', colStatus, l_Statuses); if int_Statuses <> l_Statuses then Statuses.Free; Statuses := l_Statuses; end else begin l_Statuses := int_Statuses; TROSerializer(ASerializer).ReadStruct('Statuses', colStatus, l_Statuses); if int_Statuses <> l_Statuses then Statuses.Free; Statuses := l_Statuses; end; end; procedure ImportStatusesDHLResponse.WriteComplex(ASerializer: TObject); var l_Statuses: colStatus; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(ImportStatusesDHLResponse); l_Statuses := int_Statuses; TROSerializer(ASerializer).WriteStruct('Statuses', l_Statuses, colStatus); end else begin l_Statuses := int_Statuses; TROSerializer(ASerializer).WriteStruct('Statuses', l_Statuses, colStatus); end; end; { ImportStatusesDHLResponseCollection } constructor ImportStatusesDHLResponseCollection.Create; begin inherited Create(ImportStatusesDHLResponse); end; constructor ImportStatusesDHLResponseCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function ImportStatusesDHLResponseCollection.Add: ImportStatusesDHLResponse; begin result := ImportStatusesDHLResponse(inherited Add); end; function ImportStatusesDHLResponseCollection.GetItems(aIndex: integer): ImportStatusesDHLResponse; begin result := ImportStatusesDHLResponse(inherited Items[aIndex]); end; procedure ImportStatusesDHLResponseCollection.SetItems(aIndex: integer; const Value: ImportStatusesDHLResponse); begin ImportStatusesDHLResponse(inherited Items[aIndex]).Assign(Value); end; { ImportOrderCart } class function ImportOrderCart.GetAttributeCount: Integer; begin result := 1; end; class function ImportOrderCart.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function ImportOrderCart.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure ImportOrderCart.Assign(iSource: TPersistent); var lSource: libPPL_Intf.ImportOrderCart; begin inherited Assign(iSource); if (iSource is libPPL_Intf.ImportOrderCart) then begin lSource := libPPL_Intf.ImportOrderCart(iSource); FirCode := lSource.FirCode; if Assigned(lSource.ffield_order) then field_order.Assign(lSource.ffield_order) else FreeAndNil(ffield_order); Accept := lSource.Accept; end; end; function ImportOrderCart.Getfield_order: OrderCart; begin if (ffield_order = nil) then ffield_order := OrderCart.Create(); result := ffield_order; end; procedure ImportOrderCart.ReadComplex(ASerializer: TObject); var l_Accept: boolean; l_field_order: OrderCart; l_FirCode: UnicodeString; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('FirCode', l_FirCode); {$ENDIF} FirCode := l_FirCode; l_field_order := int_field_order; TROSerializer(ASerializer).ReadStruct('field_order', OrderCart, l_field_order); if int_field_order <> l_field_order then field_order.Free; field_order := l_field_order; l_Accept := Accept; TROSerializer(ASerializer).ReadEnumerated('Accept',TypeInfo(boolean), l_Accept); Accept := l_Accept; end else begin l_Accept := Accept; TROSerializer(ASerializer).ReadEnumerated('Accept',TypeInfo(boolean), l_Accept); Accept := l_Accept; l_field_order := int_field_order; TROSerializer(ASerializer).ReadStruct('field_order', OrderCart, l_field_order); if int_field_order <> l_field_order then field_order.Free; field_order := l_field_order; l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('FirCode', l_FirCode); {$ENDIF} FirCode := l_FirCode; end; end; procedure ImportOrderCart.WriteComplex(ASerializer: TObject); var l_Accept: boolean; l_field_order: OrderCart; l_FirCode: UnicodeString; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(ImportOrderCart); l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('FirCode', l_FirCode); {$ENDIF} l_field_order := int_field_order; TROSerializer(ASerializer).WriteStruct('field_order', l_field_order, OrderCart); l_Accept := Accept; TROSerializer(ASerializer).WriteEnumerated('Accept',TypeInfo(boolean), l_Accept); end else begin l_Accept := Accept; TROSerializer(ASerializer).WriteEnumerated('Accept',TypeInfo(boolean), l_Accept); l_field_order := int_field_order; TROSerializer(ASerializer).WriteStruct('field_order', l_field_order, OrderCart); l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('FirCode', l_FirCode); {$ENDIF} end; end; { ImportOrderCartCollection } constructor ImportOrderCartCollection.Create; begin inherited Create(ImportOrderCart); end; constructor ImportOrderCartCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function ImportOrderCartCollection.Add: ImportOrderCart; begin result := ImportOrderCart(inherited Add); end; function ImportOrderCartCollection.GetItems(aIndex: integer): ImportOrderCart; begin result := ImportOrderCart(inherited Items[aIndex]); end; procedure ImportOrderCartCollection.SetItems(aIndex: integer; const Value: ImportOrderCart); begin ImportOrderCart(inherited Items[aIndex]).Assign(Value); end; { OrderCart } class function OrderCart.GetAttributeCount: Integer; begin result := 1; end; class function OrderCart.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function OrderCart.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure OrderCart.Assign(iSource: TPersistent); var lSource: libPPL_Intf.OrderCart; begin inherited Assign(iSource); if (iSource is libPPL_Intf.OrderCart) then begin lSource := libPPL_Intf.OrderCart(iSource); CountPack := lSource.CountPack; SendName := lSource.SendName; SendStreet := lSource.SendStreet; SendCity := lSource.SendCity; SendZipCode := lSource.SendZipCode; SendDateFrom := lSource.SendDateFrom; SendDateTo := lSource.SendDateTo; Note := lSource.Note; Email := lSource.Email; ErrorCode := lSource.ErrorCode; ErrorMessage := lSource.ErrorMessage; end; end; procedure OrderCart.ReadComplex(ASerializer: TObject); var l_CountPack: Integer; l_Email: UnicodeString; l_ErrorCode: Integer; l_ErrorMessage: UnicodeString; l_Note: UnicodeString; l_SendCity: UnicodeString; l_SendDateFrom: DateTime; l_SendDateTo: DateTime; l_SendName: UnicodeString; l_SendStreet: UnicodeString; l_SendZipCode: UnicodeString; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_CountPack := CountPack; TROSerializer(ASerializer).ReadInteger('CountPack', otSLong, l_CountPack); CountPack := l_CountPack; l_SendName := SendName; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendName', l_SendName); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendName', l_SendName); {$ENDIF} SendName := l_SendName; l_SendStreet := SendStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendStreet', l_SendStreet); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendStreet', l_SendStreet); {$ENDIF} SendStreet := l_SendStreet; l_SendCity := SendCity; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendCity', l_SendCity); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendCity', l_SendCity); {$ENDIF} SendCity := l_SendCity; l_SendZipCode := SendZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendZipCode', l_SendZipCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendZipCode', l_SendZipCode); {$ENDIF} SendZipCode := l_SendZipCode; l_SendDateFrom := SendDateFrom; TROSerializer(ASerializer).ReadDateTime('SendDateFrom', l_SendDateFrom); SendDateFrom := l_SendDateFrom; l_SendDateTo := SendDateTo; TROSerializer(ASerializer).ReadDateTime('SendDateTo', l_SendDateTo); SendDateTo := l_SendDateTo; l_Note := Note; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Note', l_Note); {$ELSE} TROSerializer(ASerializer).ReadWideString('Note', l_Note); {$ENDIF} Note := l_Note; l_Email := Email; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Email', l_Email); {$ELSE} TROSerializer(ASerializer).ReadWideString('Email', l_Email); {$ENDIF} Email := l_Email; l_ErrorCode := ErrorCode; TROSerializer(ASerializer).ReadInteger('ErrorCode', otSLong, l_ErrorCode); ErrorCode := l_ErrorCode; l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).ReadWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} ErrorMessage := l_ErrorMessage; end else begin l_CountPack := CountPack; TROSerializer(ASerializer).ReadInteger('CountPack', otSLong, l_CountPack); CountPack := l_CountPack; l_Email := Email; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Email', l_Email); {$ELSE} TROSerializer(ASerializer).ReadWideString('Email', l_Email); {$ENDIF} Email := l_Email; l_ErrorCode := ErrorCode; TROSerializer(ASerializer).ReadInteger('ErrorCode', otSLong, l_ErrorCode); ErrorCode := l_ErrorCode; l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).ReadWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} ErrorMessage := l_ErrorMessage; l_Note := Note; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('Note', l_Note); {$ELSE} TROSerializer(ASerializer).ReadWideString('Note', l_Note); {$ENDIF} Note := l_Note; l_SendCity := SendCity; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendCity', l_SendCity); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendCity', l_SendCity); {$ENDIF} SendCity := l_SendCity; l_SendDateFrom := SendDateFrom; TROSerializer(ASerializer).ReadDateTime('SendDateFrom', l_SendDateFrom); SendDateFrom := l_SendDateFrom; l_SendDateTo := SendDateTo; TROSerializer(ASerializer).ReadDateTime('SendDateTo', l_SendDateTo); SendDateTo := l_SendDateTo; l_SendName := SendName; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendName', l_SendName); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendName', l_SendName); {$ENDIF} SendName := l_SendName; l_SendStreet := SendStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendStreet', l_SendStreet); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendStreet', l_SendStreet); {$ENDIF} SendStreet := l_SendStreet; l_SendZipCode := SendZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('SendZipCode', l_SendZipCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('SendZipCode', l_SendZipCode); {$ENDIF} SendZipCode := l_SendZipCode; end; end; procedure OrderCart.WriteComplex(ASerializer: TObject); var l_CountPack: Integer; l_Email: UnicodeString; l_ErrorCode: Integer; l_ErrorMessage: UnicodeString; l_Note: UnicodeString; l_SendCity: UnicodeString; l_SendDateFrom: DateTime; l_SendDateTo: DateTime; l_SendName: UnicodeString; l_SendStreet: UnicodeString; l_SendZipCode: UnicodeString; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(OrderCart); l_CountPack := CountPack; TROSerializer(ASerializer).WriteInteger('CountPack', otSLong, l_CountPack); l_SendName := SendName; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendName', l_SendName); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendName', l_SendName); {$ENDIF} l_SendStreet := SendStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendStreet', l_SendStreet); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendStreet', l_SendStreet); {$ENDIF} l_SendCity := SendCity; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendCity', l_SendCity); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendCity', l_SendCity); {$ENDIF} l_SendZipCode := SendZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendZipCode', l_SendZipCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendZipCode', l_SendZipCode); {$ENDIF} l_SendDateFrom := SendDateFrom; TROSerializer(ASerializer).WriteDateTime('SendDateFrom', l_SendDateFrom); l_SendDateTo := SendDateTo; TROSerializer(ASerializer).WriteDateTime('SendDateTo', l_SendDateTo); l_Note := Note; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Note', l_Note); {$ELSE} TROSerializer(ASerializer).WriteWideString('Note', l_Note); {$ENDIF} l_Email := Email; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Email', l_Email); {$ELSE} TROSerializer(ASerializer).WriteWideString('Email', l_Email); {$ENDIF} l_ErrorCode := ErrorCode; TROSerializer(ASerializer).WriteInteger('ErrorCode', otSLong, l_ErrorCode); l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).WriteWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} end else begin l_CountPack := CountPack; TROSerializer(ASerializer).WriteInteger('CountPack', otSLong, l_CountPack); l_Email := Email; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Email', l_Email); {$ELSE} TROSerializer(ASerializer).WriteWideString('Email', l_Email); {$ENDIF} l_ErrorCode := ErrorCode; TROSerializer(ASerializer).WriteInteger('ErrorCode', otSLong, l_ErrorCode); l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).WriteWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} l_Note := Note; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('Note', l_Note); {$ELSE} TROSerializer(ASerializer).WriteWideString('Note', l_Note); {$ENDIF} l_SendCity := SendCity; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendCity', l_SendCity); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendCity', l_SendCity); {$ENDIF} l_SendDateFrom := SendDateFrom; TROSerializer(ASerializer).WriteDateTime('SendDateFrom', l_SendDateFrom); l_SendDateTo := SendDateTo; TROSerializer(ASerializer).WriteDateTime('SendDateTo', l_SendDateTo); l_SendName := SendName; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendName', l_SendName); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendName', l_SendName); {$ENDIF} l_SendStreet := SendStreet; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendStreet', l_SendStreet); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendStreet', l_SendStreet); {$ENDIF} l_SendZipCode := SendZipCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('SendZipCode', l_SendZipCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('SendZipCode', l_SendZipCode); {$ENDIF} end; end; { OrderCartCollection } constructor OrderCartCollection.Create; begin inherited Create(OrderCart); end; constructor OrderCartCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function OrderCartCollection.Add: OrderCart; begin result := OrderCart(inherited Add); end; function OrderCartCollection.GetItems(aIndex: integer): OrderCart; begin result := OrderCart(inherited Items[aIndex]); end; procedure OrderCartCollection.SetItems(aIndex: integer; const Value: OrderCart); begin OrderCart(inherited Items[aIndex]).Assign(Value); end; { ImportOrderCartResponse } class function ImportOrderCartResponse.GetAttributeCount: Integer; begin result := 1; end; class function ImportOrderCartResponse.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function ImportOrderCartResponse.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure ImportOrderCartResponse.Assign(iSource: TPersistent); var lSource: libPPL_Intf.ImportOrderCartResponse; begin inherited Assign(iSource); if (iSource is libPPL_Intf.ImportOrderCartResponse) then begin lSource := libPPL_Intf.ImportOrderCartResponse(iSource); if Assigned(lSource.ffield_order) then field_order.Assign(lSource.ffield_order) else FreeAndNil(ffield_order); end; end; function ImportOrderCartResponse.Getfield_order: OrderCart; begin if (ffield_order = nil) then ffield_order := OrderCart.Create(); result := ffield_order; end; procedure ImportOrderCartResponse.ReadComplex(ASerializer: TObject); var l_field_order: OrderCart; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_field_order := int_field_order; TROSerializer(ASerializer).ReadStruct('field_order', OrderCart, l_field_order); if int_field_order <> l_field_order then field_order.Free; field_order := l_field_order; end else begin l_field_order := int_field_order; TROSerializer(ASerializer).ReadStruct('field_order', OrderCart, l_field_order); if int_field_order <> l_field_order then field_order.Free; field_order := l_field_order; end; end; procedure ImportOrderCartResponse.WriteComplex(ASerializer: TObject); var l_field_order: OrderCart; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(ImportOrderCartResponse); l_field_order := int_field_order; TROSerializer(ASerializer).WriteStruct('field_order', l_field_order, OrderCart); end else begin l_field_order := int_field_order; TROSerializer(ASerializer).WriteStruct('field_order', l_field_order, OrderCart); end; end; { ImportOrderCartResponseCollection } constructor ImportOrderCartResponseCollection.Create; begin inherited Create(ImportOrderCartResponse); end; constructor ImportOrderCartResponseCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function ImportOrderCartResponseCollection.Add: ImportOrderCartResponse; begin result := ImportOrderCartResponse(inherited Add); end; function ImportOrderCartResponseCollection.GetItems(aIndex: integer): ImportOrderCartResponse; begin result := ImportOrderCartResponse(inherited Items[aIndex]); end; procedure ImportOrderCartResponseCollection.SetItems(aIndex: integer; const Value: ImportOrderCartResponse); begin ImportOrderCartResponse(inherited Items[aIndex]).Assign(Value); end; { ImportOrdersCart } class function ImportOrdersCart.GetAttributeCount: Integer; begin result := 1; end; class function ImportOrdersCart.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function ImportOrdersCart.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure ImportOrdersCart.Assign(iSource: TPersistent); var lSource: libPPL_Intf.ImportOrdersCart; begin inherited Assign(iSource); if (iSource is libPPL_Intf.ImportOrdersCart) then begin lSource := libPPL_Intf.ImportOrdersCart(iSource); FirCode := lSource.FirCode; if Assigned(lSource.fOrders) then Orders.Assign(lSource.fOrders) else FreeAndNil(fOrders); Accept := lSource.Accept; end; end; function ImportOrdersCart.GetOrders: colOrderCart; begin if (fOrders = nil) then fOrders := colOrderCart.Create(); result := fOrders; end; procedure ImportOrdersCart.ReadComplex(ASerializer: TObject); var l_Accept: boolean; l_FirCode: UnicodeString; l_Orders: colOrderCart; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('FirCode', l_FirCode); {$ENDIF} FirCode := l_FirCode; l_Orders := int_Orders; TROSerializer(ASerializer).ReadStruct('Orders', colOrderCart, l_Orders); if int_Orders <> l_Orders then Orders.Free; Orders := l_Orders; l_Accept := Accept; TROSerializer(ASerializer).ReadEnumerated('Accept',TypeInfo(boolean), l_Accept); Accept := l_Accept; end else begin l_Accept := Accept; TROSerializer(ASerializer).ReadEnumerated('Accept',TypeInfo(boolean), l_Accept); Accept := l_Accept; l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).ReadWideString('FirCode', l_FirCode); {$ENDIF} FirCode := l_FirCode; l_Orders := int_Orders; TROSerializer(ASerializer).ReadStruct('Orders', colOrderCart, l_Orders); if int_Orders <> l_Orders then Orders.Free; Orders := l_Orders; end; end; procedure ImportOrdersCart.WriteComplex(ASerializer: TObject); var l_Accept: boolean; l_FirCode: UnicodeString; l_Orders: colOrderCart; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(ImportOrdersCart); l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('FirCode', l_FirCode); {$ENDIF} l_Orders := int_Orders; TROSerializer(ASerializer).WriteStruct('Orders', l_Orders, colOrderCart); l_Accept := Accept; TROSerializer(ASerializer).WriteEnumerated('Accept',TypeInfo(boolean), l_Accept); end else begin l_Accept := Accept; TROSerializer(ASerializer).WriteEnumerated('Accept',TypeInfo(boolean), l_Accept); l_FirCode := FirCode; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('FirCode', l_FirCode); {$ELSE} TROSerializer(ASerializer).WriteWideString('FirCode', l_FirCode); {$ENDIF} l_Orders := int_Orders; TROSerializer(ASerializer).WriteStruct('Orders', l_Orders, colOrderCart); end; end; { ImportOrdersCartCollection } constructor ImportOrdersCartCollection.Create; begin inherited Create(ImportOrdersCart); end; constructor ImportOrdersCartCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function ImportOrdersCartCollection.Add: ImportOrdersCart; begin result := ImportOrdersCart(inherited Add); end; function ImportOrdersCartCollection.GetItems(aIndex: integer): ImportOrdersCart; begin result := ImportOrdersCart(inherited Items[aIndex]); end; procedure ImportOrdersCartCollection.SetItems(aIndex: integer; const Value: ImportOrdersCart); begin ImportOrdersCart(inherited Items[aIndex]).Assign(Value); end; { colOrderCart } class function colOrderCart.GetAttributeCount: Integer; begin result := 1; end; class function colOrderCart.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function colOrderCart.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure colOrderCart.Assign(iSource: TPersistent); var lSource: libPPL_Intf.colOrderCart; begin inherited Assign(iSource); if (iSource is libPPL_Intf.colOrderCart) then begin lSource := libPPL_Intf.colOrderCart(iSource); if Assigned(lSource.fItems) then Items.Assign(lSource.fItems) else FreeAndNil(fItems); ErrorCode := lSource.ErrorCode; ErrorMessage := lSource.ErrorMessage; end; end; function colOrderCart.GetItems: ArrayOfAnyType; begin if (fItems = nil) then fItems := ArrayOfAnyType.Create(); result := fItems; end; procedure colOrderCart.ReadComplex(ASerializer: TObject); var l_ErrorCode: Integer; l_ErrorMessage: UnicodeString; l_Items: ArrayOfAnyType; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_Items := int_Items; TROSerializer(ASerializer).ReadArray('Items', ArrayOfAnyType, l_Items); if int_Items <> l_Items then Items.Free; Items := l_Items; l_ErrorCode := ErrorCode; TROSerializer(ASerializer).ReadInteger('ErrorCode', otSLong, l_ErrorCode); ErrorCode := l_ErrorCode; l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).ReadWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} ErrorMessage := l_ErrorMessage; end else begin l_ErrorCode := ErrorCode; TROSerializer(ASerializer).ReadInteger('ErrorCode', otSLong, l_ErrorCode); ErrorCode := l_ErrorCode; l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).ReadUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).ReadWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} ErrorMessage := l_ErrorMessage; l_Items := int_Items; TROSerializer(ASerializer).ReadArray('Items', ArrayOfAnyType, l_Items); if int_Items <> l_Items then Items.Free; Items := l_Items; end; end; procedure colOrderCart.WriteComplex(ASerializer: TObject); var l_ErrorCode: Integer; l_ErrorMessage: UnicodeString; l_Items: ArrayOfAnyType; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(colOrderCart); l_Items := int_Items; TROSerializer(ASerializer).WriteArray('Items', l_Items, ArrayOfAnyType); l_ErrorCode := ErrorCode; TROSerializer(ASerializer).WriteInteger('ErrorCode', otSLong, l_ErrorCode); l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).WriteWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} end else begin l_ErrorCode := ErrorCode; TROSerializer(ASerializer).WriteInteger('ErrorCode', otSLong, l_ErrorCode); l_ErrorMessage := ErrorMessage; {$IFDEF UNICODE} TROSerializer(ASerializer).WriteUnicodeString('ErrorMessage', l_ErrorMessage); {$ELSE} TROSerializer(ASerializer).WriteWideString('ErrorMessage', l_ErrorMessage); {$ENDIF} l_Items := int_Items; TROSerializer(ASerializer).WriteArray('Items', l_Items, ArrayOfAnyType); end; end; { colOrderCartCollection } constructor colOrderCartCollection.Create; begin inherited Create(colOrderCart); end; constructor colOrderCartCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function colOrderCartCollection.Add: colOrderCart; begin result := colOrderCart(inherited Add); end; function colOrderCartCollection.GetItems(aIndex: integer): colOrderCart; begin result := colOrderCart(inherited Items[aIndex]); end; procedure colOrderCartCollection.SetItems(aIndex: integer; const Value: colOrderCart); begin colOrderCart(inherited Items[aIndex]).Assign(Value); end; { ImportOrdersCartResponse } class function ImportOrdersCartResponse.GetAttributeCount: Integer; begin result := 1; end; class function ImportOrdersCartResponse.GetAttributeName(aIndex: Integer): string; begin case aIndex of 0: result := 'ImportedFromNamespace'; end; end; class function ImportOrdersCartResponse.GetAttributeValue(aIndex: Integer): string; begin case aIndex of 0: result := 'PPLIEGate'; end; end; procedure ImportOrdersCartResponse.Assign(iSource: TPersistent); var lSource: libPPL_Intf.ImportOrdersCartResponse; begin inherited Assign(iSource); if (iSource is libPPL_Intf.ImportOrdersCartResponse) then begin lSource := libPPL_Intf.ImportOrdersCartResponse(iSource); if Assigned(lSource.fOrders) then Orders.Assign(lSource.fOrders) else FreeAndNil(fOrders); end; end; function ImportOrdersCartResponse.GetOrders: colOrderCart; begin if (fOrders = nil) then fOrders := colOrderCart.Create(); result := fOrders; end; procedure ImportOrdersCartResponse.ReadComplex(ASerializer: TObject); var l_Orders: colOrderCart; begin if TROSerializer(ASerializer).RecordStrictOrder then begin l_Orders := int_Orders; TROSerializer(ASerializer).ReadStruct('Orders', colOrderCart, l_Orders); if int_Orders <> l_Orders then Orders.Free; Orders := l_Orders; end else begin l_Orders := int_Orders; TROSerializer(ASerializer).ReadStruct('Orders', colOrderCart, l_Orders); if int_Orders <> l_Orders then Orders.Free; Orders := l_Orders; end; end; procedure ImportOrdersCartResponse.WriteComplex(ASerializer: TObject); var l_Orders: colOrderCart; begin if TROSerializer(ASerializer).RecordStrictOrder then begin TROSerializer(ASerializer).ChangeClass(ImportOrdersCartResponse); l_Orders := int_Orders; TROSerializer(ASerializer).WriteStruct('Orders', l_Orders, colOrderCart); end else begin l_Orders := int_Orders; TROSerializer(ASerializer).WriteStruct('Orders', l_Orders, colOrderCart); end; end; { ImportOrdersCartResponseCollection } constructor ImportOrdersCartResponseCollection.Create; begin inherited Create(ImportOrdersCartResponse); end; constructor ImportOrdersCartResponseCollection.Create(aItemClass: TCollectionItemClass); begin inherited Create(aItemClass); end; function ImportOrdersCartResponseCollection.Add: ImportOrdersCartResponse; begin result := ImportOrdersCartResponse(inherited Add); end; function ImportOrdersCartResponseCollection.GetItems(aIndex: integer): ImportOrdersCartResponse; begin result := ImportOrdersCartResponse(inherited Items[aIndex]); end; procedure ImportOrdersCartResponseCollection.SetItems(aIndex: integer; const Value: ImportOrdersCartResponse); begin ImportOrdersCartResponse(inherited Items[aIndex]).Assign(Value); end; { CoIEGate } class function CoIEGate.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IIEGate; begin result := TIEGate_Proxy.Create(aMessage, aTransportChannel); end; { TIEGate_Proxy } function TIEGate_Proxy.__GetInterfaceName:string; begin result := 'IEGate'; end; function TIEGate_Proxy.ImportPPLSprint(const parameters: ImportPPLSprint): ImportPPLSprintResponse; begin __Message.SetAttributes(__TransportChannel, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes' , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt' , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages' , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], ['PPLIEGate/ImportPPLSprint', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes' , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt' , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages' , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]); try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'libPPL', __InterfaceName, 'ImportPPLSprint'); __Message.Write('parameters', TypeInfo(libPPL_Intf.ImportPPLSprint), parameters, []); __Message.Finalize; __TransportChannel.Dispatch(__Message); __Message.Read('parameters', TypeInfo(libPPL_Intf.ImportPPLSprintResponse), result, []); finally __Message.UnsetAttributes(__TransportChannel); __Message.FreeStream; end end; function TIEGate_Proxy.GetZipCodes(const parameters: GetZipCodes): GetZipCodesResponse; begin __Message.SetAttributes(__TransportChannel, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes' , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt' , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages' , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], ['PPLIEGate/GetZipCodes', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes' , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt' , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages' , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]); try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'libPPL', __InterfaceName, 'GetZipCodes'); __Message.Write('parameters', TypeInfo(libPPL_Intf.GetZipCodes), parameters, []); __Message.Finalize; __TransportChannel.Dispatch(__Message); __Message.Read('parameters', TypeInfo(libPPL_Intf.GetZipCodesResponse), result, []); finally __Message.UnsetAttributes(__TransportChannel); __Message.FreeStream; end end; function TIEGate_Proxy.GetCities(const parameters: GetCities): GetCitiesResponse; begin __Message.SetAttributes(__TransportChannel, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes' , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt' , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages' , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], ['PPLIEGate/GetCities', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes' , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt' , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages' , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]); try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'libPPL', __InterfaceName, 'GetCities'); __Message.Write('parameters', TypeInfo(libPPL_Intf.GetCities), parameters, []); __Message.Finalize; __TransportChannel.Dispatch(__Message); __Message.Read('parameters', TypeInfo(libPPL_Intf.GetCitiesResponse), result, []); finally __Message.UnsetAttributes(__TransportChannel); __Message.FreeStream; end end; function TIEGate_Proxy.GetPackagesInfo(const parameters: GetPackagesInfo): GetPackagesInfoResponse; begin __Message.SetAttributes(__TransportChannel, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes' , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt' , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages' , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], ['PPLIEGate/GetPackagesInfo', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes' , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt' , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages' , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]); try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'libPPL', __InterfaceName, 'GetPackagesInfo'); __Message.Write('parameters', TypeInfo(libPPL_Intf.GetPackagesInfo), parameters, []); __Message.Finalize; __TransportChannel.Dispatch(__Message); __Message.Read('parameters', TypeInfo(libPPL_Intf.GetPackagesInfoResponse), result, []); finally __Message.UnsetAttributes(__TransportChannel); __Message.FreeStream; end end; function TIEGate_Proxy.GetPackageToDelivery(const parameters: GetPackageToDelivery): GetPackageToDeliveryResponse; begin __Message.SetAttributes(__TransportChannel, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes' , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt' , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages' , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], ['PPLIEGate/GetPackageToDelivery', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes' , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt' , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages' , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]); try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'libPPL', __InterfaceName, 'GetPackageToDelivery'); __Message.Write('parameters', TypeInfo(libPPL_Intf.GetPackageToDelivery), parameters, []); __Message.Finalize; __TransportChannel.Dispatch(__Message); __Message.Read('parameters', TypeInfo(libPPL_Intf.GetPackageToDeliveryResponse), result, []); finally __Message.UnsetAttributes(__TransportChannel); __Message.FreeStream; end end; function TIEGate_Proxy.GetPackageInfo(const parameters: GetPackageInfo): GetPackageInfoResponse; begin __Message.SetAttributes(__TransportChannel, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes' , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt' , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages' , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], ['PPLIEGate/GetPackageInfo', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes' , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt' , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages' , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]); try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'libPPL', __InterfaceName, 'GetPackageInfo'); __Message.Write('parameters', TypeInfo(libPPL_Intf.GetPackageInfo), parameters, []); __Message.Finalize; __TransportChannel.Dispatch(__Message); __Message.Read('parameters', TypeInfo(libPPL_Intf.GetPackageInfoResponse), result, []); finally __Message.UnsetAttributes(__TransportChannel); __Message.FreeStream; end end; function TIEGate_Proxy.ImportOrderExt(const parameters: ImportOrderExt): ImportOrderExtResponse; begin __Message.SetAttributes(__TransportChannel, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes' , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt' , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages' , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], ['PPLIEGate/ImportOrderExt', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes' , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt' , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages' , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]); try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'libPPL', __InterfaceName, 'ImportOrderExt'); __Message.Write('parameters', TypeInfo(libPPL_Intf.ImportOrderExt), parameters, []); __Message.Finalize; __TransportChannel.Dispatch(__Message); __Message.Read('parameters', TypeInfo(libPPL_Intf.ImportOrderExtResponse), result, []); finally __Message.UnsetAttributes(__TransportChannel); __Message.FreeStream; end end; function TIEGate_Proxy.ImportOrdersExt(const parameters: ImportOrdersExt): ImportOrdersExtResponse; begin __Message.SetAttributes(__TransportChannel, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes' , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt' , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages' , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], ['PPLIEGate/ImportOrdersExt', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes' , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt' , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages' , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]); try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'libPPL', __InterfaceName, 'ImportOrdersExt'); __Message.Write('parameters', TypeInfo(libPPL_Intf.ImportOrdersExt), parameters, []); __Message.Finalize; __TransportChannel.Dispatch(__Message); __Message.Read('parameters', TypeInfo(libPPL_Intf.ImportOrdersExtResponse), result, []); finally __Message.UnsetAttributes(__TransportChannel); __Message.FreeStream; end end; function TIEGate_Proxy.ImportPackageExt(const parameters: ImportPackageExt): ImportPackageExtResponse; begin __Message.SetAttributes(__TransportChannel, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes' , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt' , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages' , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], ['PPLIEGate/ImportPackageExt', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes' , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt' , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages' , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]); try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'libPPL', __InterfaceName, 'ImportPackageExt'); __Message.Write('parameters', TypeInfo(libPPL_Intf.ImportPackageExt), parameters, []); __Message.Finalize; __TransportChannel.Dispatch(__Message); __Message.Read('parameters', TypeInfo(libPPL_Intf.ImportPackageExtResponse), result, []); finally __Message.UnsetAttributes(__TransportChannel); __Message.FreeStream; end end; function TIEGate_Proxy.ImportPackagesExt(const parameters: ImportPackagesExt): ImportPackagesExtResponse; begin __Message.SetAttributes(__TransportChannel, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes' , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt' , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages' , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], ['PPLIEGate/ImportPackagesExt', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes' , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt' , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages' , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]); try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'libPPL', __InterfaceName, 'ImportPackagesExt'); __Message.Write('parameters', TypeInfo(libPPL_Intf.ImportPackagesExt), parameters, []); __Message.Finalize; __TransportChannel.Dispatch(__Message); __Message.Read('parameters', TypeInfo(libPPL_Intf.ImportPackagesExtResponse), result, []); finally __Message.UnsetAttributes(__TransportChannel); __Message.FreeStream; end end; function TIEGate_Proxy.ImportPackages(const parameters: ImportPackages): ImportPackagesResponse; begin __Message.SetAttributes(__TransportChannel, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes' , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt' , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages' , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], ['PPLIEGate/ImportPackages', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes' , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt' , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages' , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]); try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'libPPL', __InterfaceName, 'ImportPackages'); __Message.Write('parameters', TypeInfo(libPPL_Intf.ImportPackages), parameters, []); __Message.Finalize; __TransportChannel.Dispatch(__Message); __Message.Read('parameters', TypeInfo(libPPL_Intf.ImportPackagesResponse), result, []); finally __Message.UnsetAttributes(__TransportChannel); __Message.FreeStream; end end; function TIEGate_Proxy.ImportOrders(const parameters: ImportOrders): ImportOrdersResponse; begin __Message.SetAttributes(__TransportChannel, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes' , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt' , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages' , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], ['PPLIEGate/ImportOrders', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes' , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt' , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages' , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]); try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'libPPL', __InterfaceName, 'ImportOrders'); __Message.Write('parameters', TypeInfo(libPPL_Intf.ImportOrders), parameters, []); __Message.Finalize; __TransportChannel.Dispatch(__Message); __Message.Read('parameters', TypeInfo(libPPL_Intf.ImportOrdersResponse), result, []); finally __Message.UnsetAttributes(__TransportChannel); __Message.FreeStream; end end; function TIEGate_Proxy.ImportWeighedPack(const parameters: ImportWeighedPack): ImportWeighedPackResponse; begin __Message.SetAttributes(__TransportChannel, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes' , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt' , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages' , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], ['PPLIEGate/ImportWeighedPack', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes' , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt' , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages' , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]); try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'libPPL', __InterfaceName, 'ImportWeighedPack'); __Message.Write('parameters', TypeInfo(libPPL_Intf.ImportWeighedPack), parameters, []); __Message.Finalize; __TransportChannel.Dispatch(__Message); __Message.Read('parameters', TypeInfo(libPPL_Intf.ImportWeighedPackResponse), result, []); finally __Message.UnsetAttributes(__TransportChannel); __Message.FreeStream; end end; function TIEGate_Proxy.ImportWeighedPackages(const parameters: ImportWeighedPackages): ImportWeighedPackagesResponse; begin __Message.SetAttributes(__TransportChannel, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes' , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt' , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages' , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], ['PPLIEGate/ImportWeighedPackages', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes' , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt' , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages' , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]); try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'libPPL', __InterfaceName, 'ImportWeighedPackages'); __Message.Write('parameters', TypeInfo(libPPL_Intf.ImportWeighedPackages), parameters, []); __Message.Finalize; __TransportChannel.Dispatch(__Message); __Message.Read('parameters', TypeInfo(libPPL_Intf.ImportWeighedPackagesResponse), result, []); finally __Message.UnsetAttributes(__TransportChannel); __Message.FreeStream; end end; function TIEGate_Proxy.ImportPackagesHoffmann(const parameters: ImportPackagesHoffmann): ImportPackagesHoffmannResponse; begin __Message.SetAttributes(__TransportChannel, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes' , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt' , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages' , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], ['PPLIEGate/ImportPackagesHoffmann', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes' , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt' , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages' , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]); try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'libPPL', __InterfaceName, 'ImportPackagesHoffmann'); __Message.Write('parameters', TypeInfo(libPPL_Intf.ImportPackagesHoffmann), parameters, []); __Message.Finalize; __TransportChannel.Dispatch(__Message); __Message.Read('parameters', TypeInfo(libPPL_Intf.ImportPackagesHoffmannResponse), result, []); finally __Message.UnsetAttributes(__TransportChannel); __Message.FreeStream; end end; function TIEGate_Proxy.ImportESYCOPack(const parameters: ImportESYCOPack): ImportESYCOPackResponse; begin __Message.SetAttributes(__TransportChannel, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes' , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt' , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages' , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], ['PPLIEGate/ImportESYCOPack', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes' , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt' , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages' , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]); try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'libPPL', __InterfaceName, 'ImportESYCOPack'); __Message.Write('parameters', TypeInfo(libPPL_Intf.ImportESYCOPack), parameters, []); __Message.Finalize; __TransportChannel.Dispatch(__Message); __Message.Read('parameters', TypeInfo(libPPL_Intf.ImportESYCOPackResponse), result, []); finally __Message.UnsetAttributes(__TransportChannel); __Message.FreeStream; end end; function TIEGate_Proxy.ImportESYCOPackages(const parameters: ImportESYCOPackages): ImportESYCOPackagesResponse; begin __Message.SetAttributes(__TransportChannel, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes' , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt' , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages' , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], ['PPLIEGate/ImportESYCOPackages', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes' , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt' , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages' , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]); try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'libPPL', __InterfaceName, 'ImportESYCOPackages'); __Message.Write('parameters', TypeInfo(libPPL_Intf.ImportESYCOPackages), parameters, []); __Message.Finalize; __TransportChannel.Dispatch(__Message); __Message.Read('parameters', TypeInfo(libPPL_Intf.ImportESYCOPackagesResponse), result, []); finally __Message.UnsetAttributes(__TransportChannel); __Message.FreeStream; end end; function TIEGate_Proxy.ImportStatusDHL(const parameters: ImportStatusDHL): ImportStatusDHLResponse; begin __Message.SetAttributes(__TransportChannel, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes' , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt' , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages' , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], ['PPLIEGate/ImportStatusDHL', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes' , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt' , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages' , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]); try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'libPPL', __InterfaceName, 'ImportStatusDHL'); __Message.Write('parameters', TypeInfo(libPPL_Intf.ImportStatusDHL), parameters, []); __Message.Finalize; __TransportChannel.Dispatch(__Message); __Message.Read('parameters', TypeInfo(libPPL_Intf.ImportStatusDHLResponse), result, []); finally __Message.UnsetAttributes(__TransportChannel); __Message.FreeStream; end end; function TIEGate_Proxy.ImportStatusesDHL(const parameters: ImportStatusesDHL): ImportStatusesDHLResponse; begin __Message.SetAttributes(__TransportChannel, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes' , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt' , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages' , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], ['PPLIEGate/ImportStatusesDHL', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes' , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt' , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages' , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]); try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'libPPL', __InterfaceName, 'ImportStatusesDHL'); __Message.Write('parameters', TypeInfo(libPPL_Intf.ImportStatusesDHL), parameters, []); __Message.Finalize; __TransportChannel.Dispatch(__Message); __Message.Read('parameters', TypeInfo(libPPL_Intf.ImportStatusesDHLResponse), result, []); finally __Message.UnsetAttributes(__TransportChannel); __Message.FreeStream; end end; function TIEGate_Proxy.ImportOrderCart(const parameters: ImportOrderCart): ImportOrderCartResponse; begin __Message.SetAttributes(__TransportChannel, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes' , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt' , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages' , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], ['PPLIEGate/ImportOrderCart', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes' , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt' , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages' , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]); try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'libPPL', __InterfaceName, 'ImportOrderCart'); __Message.Write('parameters', TypeInfo(libPPL_Intf.ImportOrderCart), parameters, []); __Message.Finalize; __TransportChannel.Dispatch(__Message); __Message.Read('parameters', TypeInfo(libPPL_Intf.ImportOrderCartResponse), result, []); finally __Message.UnsetAttributes(__TransportChannel); __Message.FreeStream; end end; function TIEGate_Proxy.ImportOrdersCart(const parameters: ImportOrdersCart): ImportOrdersCartResponse; begin __Message.SetAttributes(__TransportChannel, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes' , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt' , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages' , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], ['PPLIEGate/ImportOrdersCart', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes' , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt' , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages' , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]); try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'libPPL', __InterfaceName, 'ImportOrdersCart'); __Message.Write('parameters', TypeInfo(libPPL_Intf.ImportOrdersCart), parameters, []); __Message.Finalize; __TransportChannel.Dispatch(__Message); __Message.Read('parameters', TypeInfo(libPPL_Intf.ImportOrdersCartResponse), result, []); finally __Message.UnsetAttributes(__TransportChannel); __Message.FreeStream; end end; initialization RegisterROClass(ImportPPLSprint); RegisterROClass(colPPLSprint); RegisterROClass(ArrayOfAnyType); RegisterROClass(Package); RegisterROClass(PPLSprint); RegisterROClass(ArrayOfPPLSprintItem); RegisterROClass(PPLSprintItem); RegisterROClass(PackageToList); RegisterROClass(PackageHoffmann); RegisterROClass(City); RegisterROClass(PackageWeighed); RegisterROClass(ZipCode); RegisterROClass(PackageEsyco); RegisterROClass(ImportPPLSprintResponse); RegisterROClass(GetZipCodes); RegisterROClass(ArrayOfZipCode); RegisterROClass(GetZipCodesResponse); RegisterROClass(GetCities); RegisterROClass(ArrayOfCity); RegisterROClass(GetCitiesResponse); RegisterROClass(GetPackagesInfo); RegisterROClass(ArrayOfString); RegisterROClass(PackageInfo); RegisterROClass(ArrayOfPackageInfo); RegisterROClass(GetPackagesInfoResponse); RegisterROClass(GetPackageToDelivery); RegisterROClass(colPackage); RegisterROClass(GetPackageToDeliveryResponse); RegisterROClass(GetPackageInfo); RegisterROClass(GetPackageInfoResponse); RegisterROClass(ImportOrderExt); RegisterROClass(Order); RegisterROClass(ImportOrderExtResponse); RegisterROClass(ImportOrdersExt); RegisterROClass(colOrder); RegisterROClass(ImportOrdersExtResponse); RegisterROClass(ImportPackageExt); RegisterROClass(ImportPackageExtResponse); RegisterROClass(ImportPackagesExt); RegisterROClass(ImportPackagesExtResponse); RegisterROClass(ImportPackages); RegisterROClass(ImportPackagesResponse_ImportPackagesResult); RegisterROClass(ImportPackagesResponse); RegisterROClass(ImportOrders); RegisterROClass(ImportOrdersResponse_ImportOrdersResult); RegisterROClass(ImportOrdersResponse); RegisterROClass(ImportWeighedPack); RegisterROClass(ImportWeighedPackResponse); RegisterROClass(ImportWeighedPackages); RegisterROClass(colPackageWeighed); RegisterROClass(ImportWeighedPackagesResponse); RegisterROClass(ImportPackagesHoffmann); RegisterROClass(colPackageHoffmann); RegisterROClass(ImportPackagesHoffmannResponse); RegisterROClass(ImportESYCOPack); RegisterROClass(ImportESYCOPackResponse); RegisterROClass(ImportESYCOPackages); RegisterROClass(ImportESYCOPackagesResponse); RegisterROClass(ImportStatusDHL); RegisterROClass(StatusDHL); RegisterROClass(ImportStatusDHLResponse); RegisterROClass(ImportStatusesDHL); RegisterROClass(colStatus); RegisterROClass(ImportStatusesDHLResponse); RegisterROClass(ImportOrderCart); RegisterROClass(OrderCart); RegisterROClass(ImportOrderCartResponse); RegisterROClass(ImportOrdersCart); RegisterROClass(colOrderCart); RegisterROClass(ImportOrdersCartResponse); RegisterROClass(StringArray); RegisterProxyClass(IIEGate_IID, TIEGate_Proxy); finalization UnregisterROClass(ImportPPLSprint); UnregisterROClass(colPPLSprint); UnregisterROClass(ArrayOfAnyType); UnregisterROClass(Package); UnregisterROClass(PPLSprint); UnregisterROClass(ArrayOfPPLSprintItem); UnregisterROClass(PPLSprintItem); UnregisterROClass(PackageToList); UnregisterROClass(PackageHoffmann); UnregisterROClass(City); UnregisterROClass(PackageWeighed); UnregisterROClass(ZipCode); UnregisterROClass(PackageEsyco); UnregisterROClass(ImportPPLSprintResponse); UnregisterROClass(GetZipCodes); UnregisterROClass(ArrayOfZipCode); UnregisterROClass(GetZipCodesResponse); UnregisterROClass(GetCities); UnregisterROClass(ArrayOfCity); UnregisterROClass(GetCitiesResponse); UnregisterROClass(GetPackagesInfo); UnregisterROClass(ArrayOfString); UnregisterROClass(PackageInfo); UnregisterROClass(ArrayOfPackageInfo); UnregisterROClass(GetPackagesInfoResponse); UnregisterROClass(GetPackageToDelivery); UnregisterROClass(colPackage); UnregisterROClass(GetPackageToDeliveryResponse); UnregisterROClass(GetPackageInfo); UnregisterROClass(GetPackageInfoResponse); UnregisterROClass(ImportOrderExt); UnregisterROClass(Order); UnregisterROClass(ImportOrderExtResponse); UnregisterROClass(ImportOrdersExt); UnregisterROClass(colOrder); UnregisterROClass(ImportOrdersExtResponse); UnregisterROClass(ImportPackageExt); UnregisterROClass(ImportPackageExtResponse); UnregisterROClass(ImportPackagesExt); UnregisterROClass(ImportPackagesExtResponse); UnregisterROClass(ImportPackages); UnregisterROClass(ImportPackagesResponse_ImportPackagesResult); UnregisterROClass(ImportPackagesResponse); UnregisterROClass(ImportOrders); UnregisterROClass(ImportOrdersResponse_ImportOrdersResult); UnregisterROClass(ImportOrdersResponse); UnregisterROClass(ImportWeighedPack); UnregisterROClass(ImportWeighedPackResponse); UnregisterROClass(ImportWeighedPackages); UnregisterROClass(colPackageWeighed); UnregisterROClass(ImportWeighedPackagesResponse); UnregisterROClass(ImportPackagesHoffmann); UnregisterROClass(colPackageHoffmann); UnregisterROClass(ImportPackagesHoffmannResponse); UnregisterROClass(ImportESYCOPack); UnregisterROClass(ImportESYCOPackResponse); UnregisterROClass(ImportESYCOPackages); UnregisterROClass(ImportESYCOPackagesResponse); UnregisterROClass(ImportStatusDHL); UnregisterROClass(StatusDHL); UnregisterROClass(ImportStatusDHLResponse); UnregisterROClass(ImportStatusesDHL); UnregisterROClass(colStatus); UnregisterROClass(ImportStatusesDHLResponse); UnregisterROClass(ImportOrderCart); UnregisterROClass(OrderCart); UnregisterROClass(ImportOrderCartResponse); UnregisterROClass(ImportOrdersCart); UnregisterROClass(colOrderCart); UnregisterROClass(ImportOrdersCartResponse); UnregisterROClass(StringArray); UnregisterProxyClass(IIEGate_IID); end.