17640 lines
594 KiB
ObjectPascal
17640 lines
594 KiB
ObjectPascal
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-1) then
|
|
for i := aIndex to Count-2 do fItems[i] := fItems[i+1];
|
|
|
|
SetLength(fItems, Count-1);
|
|
Dec(FCount);
|
|
end;
|
|
|
|
procedure ArrayOfAnyType.SetItems(aIndex: integer; const Value: unknown);
|
|
begin
|
|
if (aIndex < 0) or (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-1) then
|
|
for i := aIndex to Count-2 do fItems[i] := fItems[i+1];
|
|
|
|
SetLength(fItems, Count-1);
|
|
Dec(FCount);
|
|
end;
|
|
|
|
procedure ArrayOfPPLSprintItem.SetItems(aIndex: integer; const Value: PPLSprintItem);
|
|
begin
|
|
if (aIndex < 0) or (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-1) then
|
|
for i := aIndex to Count-2 do fItems[i] := fItems[i+1];
|
|
|
|
SetLength(fItems, Count-1);
|
|
Dec(FCount);
|
|
end;
|
|
|
|
procedure ArrayOfZipCode.SetItems(aIndex: integer; const Value: ZipCode);
|
|
begin
|
|
if (aIndex < 0) or (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-1) then
|
|
for i := aIndex to Count-2 do fItems[i] := fItems[i+1];
|
|
|
|
SetLength(fItems, Count-1);
|
|
Dec(FCount);
|
|
end;
|
|
|
|
procedure ArrayOfCity.SetItems(aIndex: integer; const Value: City);
|
|
begin
|
|
if (aIndex < 0) or (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-1) then
|
|
for i := aIndex to Count-2 do fItems[i] := fItems[i+1];
|
|
|
|
SetLength(fItems, Count-1);
|
|
Dec(FCount);
|
|
end;
|
|
|
|
procedure ArrayOfString.SetItems(aIndex: integer; const Value: UnicodeString);
|
|
begin
|
|
if (aIndex < 0) or (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-1) then
|
|
for i := aIndex to Count-2 do fItems[i] := fItems[i+1];
|
|
|
|
SetLength(fItems, Count-1);
|
|
Dec(FCount);
|
|
end;
|
|
|
|
procedure ArrayOfPackageInfo.SetItems(aIndex: integer; const Value: PackageInfo);
|
|
begin
|
|
if (aIndex < 0) or (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-1) then
|
|
for i := aIndex to Count-2 do fItems[i] := fItems[i+1];
|
|
|
|
SetLength(fItems, Count-1);
|
|
Dec(FCount);
|
|
end;
|
|
|
|
procedure StringArray.SetItems(aIndex: integer; const Value: unknown);
|
|
begin
|
|
if (aIndex < 0) or (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. |