Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- unit Rest.Service.Ebay.Account;
- { ********************************************************************** }
- { }
- { Dies ist ein automatisch generiertes Unit aus: }
- { The <b>Account API</b> gives sellers the ability to configure their eBay seller accounts, including the seller's policies (the Fulfillment Policy, Payment Policy, and Return Policy), opt in and out of eBay seller programs, configure sales tax tables, and get account information. <br><br>For details on the availability of the methods in this API, see <a href="/api-docs/sell/account/overview.html#requirements">Account API requirements and restrictions</a>. }
- { }
- { ********************************************************************** }
- interface
- uses REST.Types, REST.Client, System.JSON, REST.Json, System.SysUtils,
- System.StrUtils, NetEncoding;
- const
- host = 'https://api.ebay.com{basePath}';
- type
- Amount = class;
- CategoryType = class;
- Deposit = class;
- Error = class;
- ErrorParameter = class;
- FulfillmentPolicy = class;
- FulfillmentPolicyRequest = class;
- FulfillmentPolicyResponse = class;
- InternationalReturnOverrideType = class;
- PaymentMethod = class;
- PaymentPolicy = class;
- PaymentPolicyRequest = class;
- PaymentPolicyResponse = class;
- PaymentsProgramOnboardingResponse = class;
- PaymentsProgramOnboardingSteps = class;
- PaymentsProgramResponse = class;
- Program_ = class;
- Programs = class;
- RateTable = class;
- RateTableResponse = class;
- RecipientAccountReference = class;
- Region = class;
- RegionSet = class;
- ReturnPolicy = class;
- ReturnPolicyRequest = class;
- ReturnPolicyResponse = class;
- SalesTax = class;
- SalesTaxBase = class;
- SalesTaxes = class;
- SellingLimit = class;
- SellingPrivileges = class;
- SetFulfillmentPolicyResponse = class;
- SetPaymentPolicyResponse = class;
- SetReturnPolicyResponse = class;
- ShippingOption = class;
- ShippingService = class;
- TimeDuration = class;
- Array_of_ErrorParameter = Array of ErrorParameter;
- Array_of_FulfillmentPolicy = Array of FulfillmentPolicy;
- Array_of_PaymentMethod = Array of PaymentMethod;
- Array_of_PaymentPolicy = Array of PaymentPolicy;
- Array_of_CategoryType = Array of CategoryType;
- Array_of_string = Array of string;
- Array_of_ShippingService = Array of ShippingService;
- Array_of_Program_ = Array of Program_;
- Array_of_Error = Array of Error;
- Array_of_Region = Array of Region;
- Array_of_ReturnPolicy = Array of ReturnPolicy;
- Array_of_SalesTax = Array of SalesTax;
- Array_of_RateTable = Array of RateTable;
- Array_of_PaymentsProgramOnboardingSteps = Array of PaymentsProgramOnboardingSteps;
- Array_of_ShippingOption = Array of ShippingOption;
- Amount = class(TObject)
- private
- { Variablen }
- Fcurrency : String;
- Fvalue : String;
- { Getter }
- function Get_currency() : String;
- function Get_value() : String;
- { Setter }
- procedure Set_currency(currency : String);
- procedure Set_value(value : String);
- public
- property currency: String read Get_currency write Set_currency;
- property value: String read Get_value write Set_value;
- end;
- CategoryType = class(TObject)
- private
- { Variablen }
- Fdefault : Boolean;
- Fname : String;
- { Getter }
- function Get_default() : Boolean;
- function Get_name() : String;
- { Setter }
- procedure Set_default(default : Boolean);
- procedure Set_name(name : String);
- public
- property default: Boolean read Get_default write Set_default;
- property name: String read Get_name write Set_name;
- end;
- Deposit = class(TObject)
- private
- { Variablen }
- Famount : Amount;
- FdueIn : TimeDuration;
- FpaymentMethods : Array_of_PaymentMethod;
- { Getter }
- function Get_amount() : Amount;
- function Get_dueIn() : TimeDuration;
- function Get_paymentMethods() : Array_of_PaymentMethod;
- { Setter }
- procedure Set_amount(amount : Amount);
- procedure Set_dueIn(dueIn : TimeDuration);
- procedure Set_paymentMethods(paymentMethods : Array_of_PaymentMethod);
- public
- property amount: Amount read Get_amount write Set_amount;
- property dueIn: TimeDuration read Get_dueIn write Set_dueIn;
- property paymentMethods: Array_of_PaymentMethod read Get_paymentMethods write Set_paymentMethods;
- end;
- Error = class(TObject)
- private
- { Variablen }
- Fcategory : String;
- Fdomain : String;
- FerrorId : Integer;
- FinputRefIds : Array_of_string;
- FlongMessage : String;
- Fmessage : String;
- FoutputRefIds : Array_of_string;
- Fparameters : Array_of_ErrorParameter;
- Fsubdomain : String;
- { Getter }
- function Get_category() : String;
- function Get_domain() : String;
- function Get_errorId() : Integer;
- function Get_inputRefIds() : Array_of_string;
- function Get_longMessage() : String;
- function Get_message() : String;
- function Get_outputRefIds() : Array_of_string;
- function Get_parameters() : Array_of_ErrorParameter;
- function Get_subdomain() : String;
- { Setter }
- procedure Set_category(category : String);
- procedure Set_domain(domain : String);
- procedure Set_errorId(errorId : Integer);
- procedure Set_inputRefIds(inputRefIds : Array_of_string);
- procedure Set_longMessage(longMessage : String);
- procedure Set_message(message : String);
- procedure Set_outputRefIds(outputRefIds : Array_of_string);
- procedure Set_parameters(parameters : Array_of_ErrorParameter);
- procedure Set_subdomain(subdomain : String);
- public
- property category: String read Get_category write Set_category;
- property domain: String read Get_domain write Set_domain;
- property errorId: Integer read Get_errorId write Set_errorId;
- property inputRefIds: Array_of_string read Get_inputRefIds write Set_inputRefIds;
- property longMessage: String read Get_longMessage write Set_longMessage;
- property message: String read Get_message write Set_message;
- property outputRefIds: Array_of_string read Get_outputRefIds write Set_outputRefIds;
- property parameters: Array_of_ErrorParameter read Get_parameters write Set_parameters;
- property subdomain: String read Get_subdomain write Set_subdomain;
- end;
- ErrorParameter = class(TObject)
- private
- { Variablen }
- Fname : String;
- Fvalue : String;
- { Getter }
- function Get_name() : String;
- function Get_value() : String;
- { Setter }
- procedure Set_name(name : String);
- procedure Set_value(value : String);
- public
- property name: String read Get_name write Set_name;
- property value: String read Get_value write Set_value;
- end;
- FulfillmentPolicy = class(TObject)
- private
- { Variablen }
- FcategoryTypes : Array_of_CategoryType;
- Fdescription : String;
- FfreightShipping : Boolean;
- FfulfillmentPolicyId : String;
- FglobalShipping : Boolean;
- FhandlingTime : TimeDuration;
- FlocalPickup : Boolean;
- FmarketplaceId : String;
- Fname : String;
- FpickupDropOff : Boolean;
- FshippingOptions : Array_of_ShippingOption;
- FshipToLocations : RegionSet;
- { Getter }
- function Get_categoryTypes() : Array_of_CategoryType;
- function Get_description() : String;
- function Get_freightShipping() : Boolean;
- function Get_fulfillmentPolicyId() : String;
- function Get_globalShipping() : Boolean;
- function Get_handlingTime() : TimeDuration;
- function Get_localPickup() : Boolean;
- function Get_marketplaceId() : String;
- function Get_name() : String;
- function Get_pickupDropOff() : Boolean;
- function Get_shippingOptions() : Array_of_ShippingOption;
- function Get_shipToLocations() : RegionSet;
- { Setter }
- procedure Set_categoryTypes(categoryTypes : Array_of_CategoryType);
- procedure Set_description(description : String);
- procedure Set_freightShipping(freightShipping : Boolean);
- procedure Set_fulfillmentPolicyId(fulfillmentPolicyId : String);
- procedure Set_globalShipping(globalShipping : Boolean);
- procedure Set_handlingTime(handlingTime : TimeDuration);
- procedure Set_localPickup(localPickup : Boolean);
- procedure Set_marketplaceId(marketplaceId : String);
- procedure Set_name(name : String);
- procedure Set_pickupDropOff(pickupDropOff : Boolean);
- procedure Set_shippingOptions(shippingOptions : Array_of_ShippingOption);
- procedure Set_shipToLocations(shipToLocations : RegionSet);
- public
- property categoryTypes: Array_of_CategoryType read Get_categoryTypes write Set_categoryTypes;
- property description: String read Get_description write Set_description;
- property freightShipping: Boolean read Get_freightShipping write Set_freightShipping;
- property fulfillmentPolicyId: String read Get_fulfillmentPolicyId write Set_fulfillmentPolicyId;
- property globalShipping: Boolean read Get_globalShipping write Set_globalShipping;
- property handlingTime: TimeDuration read Get_handlingTime write Set_handlingTime;
- property localPickup: Boolean read Get_localPickup write Set_localPickup;
- property marketplaceId: String read Get_marketplaceId write Set_marketplaceId;
- property name: String read Get_name write Set_name;
- property pickupDropOff: Boolean read Get_pickupDropOff write Set_pickupDropOff;
- property shippingOptions: Array_of_ShippingOption read Get_shippingOptions write Set_shippingOptions;
- property shipToLocations: RegionSet read Get_shipToLocations write Set_shipToLocations;
- end;
- FulfillmentPolicyRequest = class(TObject)
- private
- { Variablen }
- FcategoryTypes : Array_of_CategoryType;
- Fdescription : String;
- FfreightShipping : Boolean;
- FglobalShipping : Boolean;
- FhandlingTime : TimeDuration;
- FlocalPickup : Boolean;
- FmarketplaceId : String;
- Fname : String;
- FpickupDropOff : Boolean;
- FshippingOptions : Array_of_ShippingOption;
- FshipToLocations : RegionSet;
- { Getter }
- function Get_categoryTypes() : Array_of_CategoryType;
- function Get_description() : String;
- function Get_freightShipping() : Boolean;
- function Get_globalShipping() : Boolean;
- function Get_handlingTime() : TimeDuration;
- function Get_localPickup() : Boolean;
- function Get_marketplaceId() : String;
- function Get_name() : String;
- function Get_pickupDropOff() : Boolean;
- function Get_shippingOptions() : Array_of_ShippingOption;
- function Get_shipToLocations() : RegionSet;
- { Setter }
- procedure Set_categoryTypes(categoryTypes : Array_of_CategoryType);
- procedure Set_description(description : String);
- procedure Set_freightShipping(freightShipping : Boolean);
- procedure Set_globalShipping(globalShipping : Boolean);
- procedure Set_handlingTime(handlingTime : TimeDuration);
- procedure Set_localPickup(localPickup : Boolean);
- procedure Set_marketplaceId(marketplaceId : String);
- procedure Set_name(name : String);
- procedure Set_pickupDropOff(pickupDropOff : Boolean);
- procedure Set_shippingOptions(shippingOptions : Array_of_ShippingOption);
- procedure Set_shipToLocations(shipToLocations : RegionSet);
- public
- property categoryTypes: Array_of_CategoryType read Get_categoryTypes write Set_categoryTypes;
- property description: String read Get_description write Set_description;
- property freightShipping: Boolean read Get_freightShipping write Set_freightShipping;
- property globalShipping: Boolean read Get_globalShipping write Set_globalShipping;
- property handlingTime: TimeDuration read Get_handlingTime write Set_handlingTime;
- property localPickup: Boolean read Get_localPickup write Set_localPickup;
- property marketplaceId: String read Get_marketplaceId write Set_marketplaceId;
- property name: String read Get_name write Set_name;
- property pickupDropOff: Boolean read Get_pickupDropOff write Set_pickupDropOff;
- property shippingOptions: Array_of_ShippingOption read Get_shippingOptions write Set_shippingOptions;
- property shipToLocations: RegionSet read Get_shipToLocations write Set_shipToLocations;
- end;
- FulfillmentPolicyResponse = class(TObject)
- private
- { Variablen }
- FfulfillmentPolicies : Array_of_FulfillmentPolicy;
- Fhref : String;
- Flimit : Integer;
- Fnext : String;
- Foffset : Integer;
- Fprev : String;
- Ftotal : Integer;
- { Getter }
- function Get_fulfillmentPolicies() : Array_of_FulfillmentPolicy;
- function Get_href() : String;
- function Get_limit() : Integer;
- function Get_next() : String;
- function Get_offset() : Integer;
- function Get_prev() : String;
- function Get_total() : Integer;
- { Setter }
- procedure Set_fulfillmentPolicies(fulfillmentPolicies : Array_of_FulfillmentPolicy);
- procedure Set_href(href : String);
- procedure Set_limit(limit : Integer);
- procedure Set_next(next : String);
- procedure Set_offset(offset : Integer);
- procedure Set_prev(prev : String);
- procedure Set_total(total : Integer);
- public
- property fulfillmentPolicies: Array_of_FulfillmentPolicy read Get_fulfillmentPolicies write Set_fulfillmentPolicies;
- property href: String read Get_href write Set_href;
- property limit: Integer read Get_limit write Set_limit;
- property next: String read Get_next write Set_next;
- property offset: Integer read Get_offset write Set_offset;
- property prev: String read Get_prev write Set_prev;
- property total: Integer read Get_total write Set_total;
- end;
- InternationalReturnOverrideType = class(TObject)
- private
- { Variablen }
- FreturnMethod : String;
- FreturnPeriod : TimeDuration;
- FreturnsAccepted : Boolean;
- FreturnShippingCostPayer : String;
- { Getter }
- function Get_returnMethod() : String;
- function Get_returnPeriod() : TimeDuration;
- function Get_returnsAccepted() : Boolean;
- function Get_returnShippingCostPayer() : String;
- { Setter }
- procedure Set_returnMethod(returnMethod : String);
- procedure Set_returnPeriod(returnPeriod : TimeDuration);
- procedure Set_returnsAccepted(returnsAccepted : Boolean);
- procedure Set_returnShippingCostPayer(returnShippingCostPayer : String);
- public
- property returnMethod: String read Get_returnMethod write Set_returnMethod;
- property returnPeriod: TimeDuration read Get_returnPeriod write Set_returnPeriod;
- property returnsAccepted: Boolean read Get_returnsAccepted write Set_returnsAccepted;
- property returnShippingCostPayer: String read Get_returnShippingCostPayer write Set_returnShippingCostPayer;
- end;
- PaymentMethod = class(TObject)
- private
- { Variablen }
- Fbrands : Array_of_string;
- FpaymentMethodType : String;
- FrecipientAccountReference : RecipientAccountReference;
- { Getter }
- function Get_brands() : Array_of_string;
- function Get_paymentMethodType() : String;
- function Get_recipientAccountReference() : RecipientAccountReference;
- { Setter }
- procedure Set_brands(brands : Array_of_string);
- procedure Set_paymentMethodType(paymentMethodType : String);
- procedure Set_recipientAccountReference(recipientAccountReference : RecipientAccountReference);
- public
- property brands: Array_of_string read Get_brands write Set_brands;
- property paymentMethodType: String read Get_paymentMethodType write Set_paymentMethodType;
- property recipientAccountReference: RecipientAccountReference read Get_recipientAccountReference write Set_recipientAccountReference;
- end;
- PaymentPolicy = class(TObject)
- private
- { Variablen }
- FcategoryTypes : Array_of_CategoryType;
- Fdeposit : Deposit;
- Fdescription : String;
- FfullPaymentDueIn : TimeDuration;
- FimmediatePay : Boolean;
- FmarketplaceId : String;
- Fname : String;
- FpaymentInstructions : String;
- FpaymentMethods : Array_of_PaymentMethod;
- FpaymentPolicyId : String;
- { Getter }
- function Get_categoryTypes() : Array_of_CategoryType;
- function Get_deposit() : Deposit;
- function Get_description() : String;
- function Get_fullPaymentDueIn() : TimeDuration;
- function Get_immediatePay() : Boolean;
- function Get_marketplaceId() : String;
- function Get_name() : String;
- function Get_paymentInstructions() : String;
- function Get_paymentMethods() : Array_of_PaymentMethod;
- function Get_paymentPolicyId() : String;
- { Setter }
- procedure Set_categoryTypes(categoryTypes : Array_of_CategoryType);
- procedure Set_deposit(deposit : Deposit);
- procedure Set_description(description : String);
- procedure Set_fullPaymentDueIn(fullPaymentDueIn : TimeDuration);
- procedure Set_immediatePay(immediatePay : Boolean);
- procedure Set_marketplaceId(marketplaceId : String);
- procedure Set_name(name : String);
- procedure Set_paymentInstructions(paymentInstructions : String);
- procedure Set_paymentMethods(paymentMethods : Array_of_PaymentMethod);
- procedure Set_paymentPolicyId(paymentPolicyId : String);
- public
- property categoryTypes: Array_of_CategoryType read Get_categoryTypes write Set_categoryTypes;
- property deposit: Deposit read Get_deposit write Set_deposit;
- property description: String read Get_description write Set_description;
- property fullPaymentDueIn: TimeDuration read Get_fullPaymentDueIn write Set_fullPaymentDueIn;
- property immediatePay: Boolean read Get_immediatePay write Set_immediatePay;
- property marketplaceId: String read Get_marketplaceId write Set_marketplaceId;
- property name: String read Get_name write Set_name;
- property paymentInstructions: String read Get_paymentInstructions write Set_paymentInstructions;
- property paymentMethods: Array_of_PaymentMethod read Get_paymentMethods write Set_paymentMethods;
- property paymentPolicyId: String read Get_paymentPolicyId write Set_paymentPolicyId;
- end;
- PaymentPolicyRequest = class(TObject)
- private
- { Variablen }
- FcategoryTypes : Array_of_CategoryType;
- Fdeposit : Deposit;
- Fdescription : String;
- FfullPaymentDueIn : TimeDuration;
- FimmediatePay : Boolean;
- FmarketplaceId : String;
- Fname : String;
- FpaymentInstructions : String;
- FpaymentMethods : Array_of_PaymentMethod;
- { Getter }
- function Get_categoryTypes() : Array_of_CategoryType;
- function Get_deposit() : Deposit;
- function Get_description() : String;
- function Get_fullPaymentDueIn() : TimeDuration;
- function Get_immediatePay() : Boolean;
- function Get_marketplaceId() : String;
- function Get_name() : String;
- function Get_paymentInstructions() : String;
- function Get_paymentMethods() : Array_of_PaymentMethod;
- { Setter }
- procedure Set_categoryTypes(categoryTypes : Array_of_CategoryType);
- procedure Set_deposit(deposit : Deposit);
- procedure Set_description(description : String);
- procedure Set_fullPaymentDueIn(fullPaymentDueIn : TimeDuration);
- procedure Set_immediatePay(immediatePay : Boolean);
- procedure Set_marketplaceId(marketplaceId : String);
- procedure Set_name(name : String);
- procedure Set_paymentInstructions(paymentInstructions : String);
- procedure Set_paymentMethods(paymentMethods : Array_of_PaymentMethod);
- public
- property categoryTypes: Array_of_CategoryType read Get_categoryTypes write Set_categoryTypes;
- property deposit: Deposit read Get_deposit write Set_deposit;
- property description: String read Get_description write Set_description;
- property fullPaymentDueIn: TimeDuration read Get_fullPaymentDueIn write Set_fullPaymentDueIn;
- property immediatePay: Boolean read Get_immediatePay write Set_immediatePay;
- property marketplaceId: String read Get_marketplaceId write Set_marketplaceId;
- property name: String read Get_name write Set_name;
- property paymentInstructions: String read Get_paymentInstructions write Set_paymentInstructions;
- property paymentMethods: Array_of_PaymentMethod read Get_paymentMethods write Set_paymentMethods;
- end;
- PaymentPolicyResponse = class(TObject)
- private
- { Variablen }
- Fhref : String;
- Flimit : Integer;
- Fnext : String;
- Foffset : Integer;
- Fprev : String;
- Ftotal : Integer;
- FpaymentPolicies : Array_of_PaymentPolicy;
- { Getter }
- function Get_href() : String;
- function Get_limit() : Integer;
- function Get_next() : String;
- function Get_offset() : Integer;
- function Get_prev() : String;
- function Get_total() : Integer;
- function Get_paymentPolicies() : Array_of_PaymentPolicy;
- { Setter }
- procedure Set_href(href : String);
- procedure Set_limit(limit : Integer);
- procedure Set_next(next : String);
- procedure Set_offset(offset : Integer);
- procedure Set_prev(prev : String);
- procedure Set_total(total : Integer);
- procedure Set_paymentPolicies(paymentPolicies : Array_of_PaymentPolicy);
- public
- property href: String read Get_href write Set_href;
- property limit: Integer read Get_limit write Set_limit;
- property next: String read Get_next write Set_next;
- property offset: Integer read Get_offset write Set_offset;
- property prev: String read Get_prev write Set_prev;
- property total: Integer read Get_total write Set_total;
- property paymentPolicies: Array_of_PaymentPolicy read Get_paymentPolicies write Set_paymentPolicies;
- end;
- PaymentsProgramOnboardingResponse = class(TObject)
- private
- { Variablen }
- FonboardingStatus : String;
- Fsteps : Array_of_PaymentsProgramOnboardingSteps;
- { Getter }
- function Get_onboardingStatus() : String;
- function Get_steps() : Array_of_PaymentsProgramOnboardingSteps;
- { Setter }
- procedure Set_onboardingStatus(onboardingStatus : String);
- procedure Set_steps(steps : Array_of_PaymentsProgramOnboardingSteps);
- public
- property onboardingStatus: String read Get_onboardingStatus write Set_onboardingStatus;
- property steps: Array_of_PaymentsProgramOnboardingSteps read Get_steps write Set_steps;
- end;
- PaymentsProgramOnboardingSteps = class(TObject)
- private
- { Variablen }
- Fname : String;
- Fstatus : String;
- FwebUrl : String;
- { Getter }
- function Get_name() : String;
- function Get_status() : String;
- function Get_webUrl() : String;
- { Setter }
- procedure Set_name(name : String);
- procedure Set_status(status : String);
- procedure Set_webUrl(webUrl : String);
- public
- property name: String read Get_name write Set_name;
- property status: String read Get_status write Set_status;
- property webUrl: String read Get_webUrl write Set_webUrl;
- end;
- PaymentsProgramResponse = class(TObject)
- private
- { Variablen }
- FmarketplaceId : String;
- FpaymentsProgramType : String;
- Fstatus : String;
- FwasPreviouslyOptedIn : Boolean;
- { Getter }
- function Get_marketplaceId() : String;
- function Get_paymentsProgramType() : String;
- function Get_status() : String;
- function Get_wasPreviouslyOptedIn() : Boolean;
- { Setter }
- procedure Set_marketplaceId(marketplaceId : String);
- procedure Set_paymentsProgramType(paymentsProgramType : String);
- procedure Set_status(status : String);
- procedure Set_wasPreviouslyOptedIn(wasPreviouslyOptedIn : Boolean);
- public
- property marketplaceId: String read Get_marketplaceId write Set_marketplaceId;
- property paymentsProgramType: String read Get_paymentsProgramType write Set_paymentsProgramType;
- property status: String read Get_status write Set_status;
- property wasPreviouslyOptedIn: Boolean read Get_wasPreviouslyOptedIn write Set_wasPreviouslyOptedIn;
- end;
- Program_ = class(TObject)
- private
- { Variablen }
- FprogramType : String;
- { Getter }
- function Get_programType() : String;
- { Setter }
- procedure Set_programType(programType : String);
- public
- property programType: String read Get_programType write Set_programType;
- end;
- Programs = class(TObject)
- private
- { Variablen }
- Fprograms : Array_of_Program_;
- { Getter }
- function Get_programs() : Array_of_Program_;
- { Setter }
- procedure Set_programs(programs : Array_of_Program_);
- public
- property programs: Array_of_Program_ read Get_programs write Set_programs;
- end;
- RateTable = class(TObject)
- private
- { Variablen }
- FcountryCode : String;
- Flocality : String;
- Fname : String;
- FrateTableId : String;
- { Getter }
- function Get_countryCode() : String;
- function Get_locality() : String;
- function Get_name() : String;
- function Get_rateTableId() : String;
- { Setter }
- procedure Set_countryCode(countryCode : String);
- procedure Set_locality(locality : String);
- procedure Set_name(name : String);
- procedure Set_rateTableId(rateTableId : String);
- public
- property countryCode: String read Get_countryCode write Set_countryCode;
- property locality: String read Get_locality write Set_locality;
- property name: String read Get_name write Set_name;
- property rateTableId: String read Get_rateTableId write Set_rateTableId;
- end;
- RateTableResponse = class(TObject)
- private
- { Variablen }
- FrateTables : Array_of_RateTable;
- { Getter }
- function Get_rateTables() : Array_of_RateTable;
- { Setter }
- procedure Set_rateTables(rateTables : Array_of_RateTable);
- public
- property rateTables: Array_of_RateTable read Get_rateTables write Set_rateTables;
- end;
- RecipientAccountReference = class(TObject)
- private
- { Variablen }
- FreferenceId : String;
- FreferenceType : String;
- { Getter }
- function Get_referenceId() : String;
- function Get_referenceType() : String;
- { Setter }
- procedure Set_referenceId(referenceId : String);
- procedure Set_referenceType(referenceType : String);
- public
- property referenceId: String read Get_referenceId write Set_referenceId;
- property referenceType: String read Get_referenceType write Set_referenceType;
- end;
- Region = class(TObject)
- private
- { Variablen }
- FregionName : String;
- FregionType : String;
- { Getter }
- function Get_regionName() : String;
- function Get_regionType() : String;
- { Setter }
- procedure Set_regionName(regionName : String);
- procedure Set_regionType(regionType : String);
- public
- property regionName: String read Get_regionName write Set_regionName;
- property regionType: String read Get_regionType write Set_regionType;
- end;
- RegionSet = class(TObject)
- private
- { Variablen }
- FregionExcluded : Array_of_Region;
- FregionIncluded : Array_of_Region;
- { Getter }
- function Get_regionExcluded() : Array_of_Region;
- function Get_regionIncluded() : Array_of_Region;
- { Setter }
- procedure Set_regionExcluded(regionExcluded : Array_of_Region);
- procedure Set_regionIncluded(regionIncluded : Array_of_Region);
- public
- property regionExcluded: Array_of_Region read Get_regionExcluded write Set_regionExcluded;
- property regionIncluded: Array_of_Region read Get_regionIncluded write Set_regionIncluded;
- end;
- ReturnPolicy = class(TObject)
- private
- { Variablen }
- FcategoryTypes : Array_of_CategoryType;
- Fdescription : String;
- FextendedHolidayReturnsOffered : Boolean;
- FinternationalOverride : InternationalReturnOverrideType;
- FmarketplaceId : String;
- Fname : String;
- FrefundMethod : String;
- FrestockingFeePercentage : String;
- FreturnInstructions : String;
- FreturnMethod : String;
- FreturnPeriod : TimeDuration;
- FreturnPolicyId : String;
- FreturnsAccepted : Boolean;
- FreturnShippingCostPayer : String;
- { Getter }
- function Get_categoryTypes() : Array_of_CategoryType;
- function Get_description() : String;
- function Get_extendedHolidayReturnsOffered() : Boolean;
- function Get_internationalOverride() : InternationalReturnOverrideType;
- function Get_marketplaceId() : String;
- function Get_name() : String;
- function Get_refundMethod() : String;
- function Get_restockingFeePercentage() : String;
- function Get_returnInstructions() : String;
- function Get_returnMethod() : String;
- function Get_returnPeriod() : TimeDuration;
- function Get_returnPolicyId() : String;
- function Get_returnsAccepted() : Boolean;
- function Get_returnShippingCostPayer() : String;
- { Setter }
- procedure Set_categoryTypes(categoryTypes : Array_of_CategoryType);
- procedure Set_description(description : String);
- procedure Set_extendedHolidayReturnsOffered(extendedHolidayReturnsOffered : Boolean);
- procedure Set_internationalOverride(internationalOverride : InternationalReturnOverrideType);
- procedure Set_marketplaceId(marketplaceId : String);
- procedure Set_name(name : String);
- procedure Set_refundMethod(refundMethod : String);
- procedure Set_restockingFeePercentage(restockingFeePercentage : String);
- procedure Set_returnInstructions(returnInstructions : String);
- procedure Set_returnMethod(returnMethod : String);
- procedure Set_returnPeriod(returnPeriod : TimeDuration);
- procedure Set_returnPolicyId(returnPolicyId : String);
- procedure Set_returnsAccepted(returnsAccepted : Boolean);
- procedure Set_returnShippingCostPayer(returnShippingCostPayer : String);
- public
- property categoryTypes: Array_of_CategoryType read Get_categoryTypes write Set_categoryTypes;
- property description: String read Get_description write Set_description;
- property extendedHolidayReturnsOffered: Boolean read Get_extendedHolidayReturnsOffered write Set_extendedHolidayReturnsOffered;
- property internationalOverride: InternationalReturnOverrideType read Get_internationalOverride write Set_internationalOverride;
- property marketplaceId: String read Get_marketplaceId write Set_marketplaceId;
- property name: String read Get_name write Set_name;
- property refundMethod: String read Get_refundMethod write Set_refundMethod;
- property restockingFeePercentage: String read Get_restockingFeePercentage write Set_restockingFeePercentage;
- property returnInstructions: String read Get_returnInstructions write Set_returnInstructions;
- property returnMethod: String read Get_returnMethod write Set_returnMethod;
- property returnPeriod: TimeDuration read Get_returnPeriod write Set_returnPeriod;
- property returnPolicyId: String read Get_returnPolicyId write Set_returnPolicyId;
- property returnsAccepted: Boolean read Get_returnsAccepted write Set_returnsAccepted;
- property returnShippingCostPayer: String read Get_returnShippingCostPayer write Set_returnShippingCostPayer;
- end;
- ReturnPolicyRequest = class(TObject)
- private
- { Variablen }
- FcategoryTypes : Array_of_CategoryType;
- Fdescription : String;
- FextendedHolidayReturnsOffered : Boolean;
- FinternationalOverride : InternationalReturnOverrideType;
- FmarketplaceId : String;
- Fname : String;
- FrefundMethod : String;
- FrestockingFeePercentage : String;
- FreturnInstructions : String;
- FreturnMethod : String;
- FreturnPeriod : TimeDuration;
- FreturnsAccepted : Boolean;
- FreturnShippingCostPayer : String;
- { Getter }
- function Get_categoryTypes() : Array_of_CategoryType;
- function Get_description() : String;
- function Get_extendedHolidayReturnsOffered() : Boolean;
- function Get_internationalOverride() : InternationalReturnOverrideType;
- function Get_marketplaceId() : String;
- function Get_name() : String;
- function Get_refundMethod() : String;
- function Get_restockingFeePercentage() : String;
- function Get_returnInstructions() : String;
- function Get_returnMethod() : String;
- function Get_returnPeriod() : TimeDuration;
- function Get_returnsAccepted() : Boolean;
- function Get_returnShippingCostPayer() : String;
- { Setter }
- procedure Set_categoryTypes(categoryTypes : Array_of_CategoryType);
- procedure Set_description(description : String);
- procedure Set_extendedHolidayReturnsOffered(extendedHolidayReturnsOffered : Boolean);
- procedure Set_internationalOverride(internationalOverride : InternationalReturnOverrideType);
- procedure Set_marketplaceId(marketplaceId : String);
- procedure Set_name(name : String);
- procedure Set_refundMethod(refundMethod : String);
- procedure Set_restockingFeePercentage(restockingFeePercentage : String);
- procedure Set_returnInstructions(returnInstructions : String);
- procedure Set_returnMethod(returnMethod : String);
- procedure Set_returnPeriod(returnPeriod : TimeDuration);
- procedure Set_returnsAccepted(returnsAccepted : Boolean);
- procedure Set_returnShippingCostPayer(returnShippingCostPayer : String);
- public
- property categoryTypes: Array_of_CategoryType read Get_categoryTypes write Set_categoryTypes;
- property description: String read Get_description write Set_description;
- property extendedHolidayReturnsOffered: Boolean read Get_extendedHolidayReturnsOffered write Set_extendedHolidayReturnsOffered;
- property internationalOverride: InternationalReturnOverrideType read Get_internationalOverride write Set_internationalOverride;
- property marketplaceId: String read Get_marketplaceId write Set_marketplaceId;
- property name: String read Get_name write Set_name;
- property refundMethod: String read Get_refundMethod write Set_refundMethod;
- property restockingFeePercentage: String read Get_restockingFeePercentage write Set_restockingFeePercentage;
- property returnInstructions: String read Get_returnInstructions write Set_returnInstructions;
- property returnMethod: String read Get_returnMethod write Set_returnMethod;
- property returnPeriod: TimeDuration read Get_returnPeriod write Set_returnPeriod;
- property returnsAccepted: Boolean read Get_returnsAccepted write Set_returnsAccepted;
- property returnShippingCostPayer: String read Get_returnShippingCostPayer write Set_returnShippingCostPayer;
- end;
- ReturnPolicyResponse = class(TObject)
- private
- { Variablen }
- Fhref : String;
- Flimit : Integer;
- Fnext : String;
- Foffset : Integer;
- Fprev : String;
- Ftotal : Integer;
- FreturnPolicies : Array_of_ReturnPolicy;
- { Getter }
- function Get_href() : String;
- function Get_limit() : Integer;
- function Get_next() : String;
- function Get_offset() : Integer;
- function Get_prev() : String;
- function Get_total() : Integer;
- function Get_returnPolicies() : Array_of_ReturnPolicy;
- { Setter }
- procedure Set_href(href : String);
- procedure Set_limit(limit : Integer);
- procedure Set_next(next : String);
- procedure Set_offset(offset : Integer);
- procedure Set_prev(prev : String);
- procedure Set_total(total : Integer);
- procedure Set_returnPolicies(returnPolicies : Array_of_ReturnPolicy);
- public
- property href: String read Get_href write Set_href;
- property limit: Integer read Get_limit write Set_limit;
- property next: String read Get_next write Set_next;
- property offset: Integer read Get_offset write Set_offset;
- property prev: String read Get_prev write Set_prev;
- property total: Integer read Get_total write Set_total;
- property returnPolicies: Array_of_ReturnPolicy read Get_returnPolicies write Set_returnPolicies;
- end;
- SalesTax = class(TObject)
- private
- { Variablen }
- FcountryCode : String;
- FsalesTaxJurisdictionId : String;
- FsalesTaxPercentage : String;
- FshippingAndHandlingTaxed : Boolean;
- { Getter }
- function Get_countryCode() : String;
- function Get_salesTaxJurisdictionId() : String;
- function Get_salesTaxPercentage() : String;
- function Get_shippingAndHandlingTaxed() : Boolean;
- { Setter }
- procedure Set_countryCode(countryCode : String);
- procedure Set_salesTaxJurisdictionId(salesTaxJurisdictionId : String);
- procedure Set_salesTaxPercentage(salesTaxPercentage : String);
- procedure Set_shippingAndHandlingTaxed(shippingAndHandlingTaxed : Boolean);
- public
- property countryCode: String read Get_countryCode write Set_countryCode;
- property salesTaxJurisdictionId: String read Get_salesTaxJurisdictionId write Set_salesTaxJurisdictionId;
- property salesTaxPercentage: String read Get_salesTaxPercentage write Set_salesTaxPercentage;
- property shippingAndHandlingTaxed: Boolean read Get_shippingAndHandlingTaxed write Set_shippingAndHandlingTaxed;
- end;
- SalesTaxBase = class(TObject)
- private
- { Variablen }
- FsalesTaxPercentage : String;
- FshippingAndHandlingTaxed : Boolean;
- { Getter }
- function Get_salesTaxPercentage() : String;
- function Get_shippingAndHandlingTaxed() : Boolean;
- { Setter }
- procedure Set_salesTaxPercentage(salesTaxPercentage : String);
- procedure Set_shippingAndHandlingTaxed(shippingAndHandlingTaxed : Boolean);
- public
- property salesTaxPercentage: String read Get_salesTaxPercentage write Set_salesTaxPercentage;
- property shippingAndHandlingTaxed: Boolean read Get_shippingAndHandlingTaxed write Set_shippingAndHandlingTaxed;
- end;
- SalesTaxes = class(TObject)
- private
- { Variablen }
- FsalesTaxes : Array_of_SalesTax;
- { Getter }
- function Get_salesTaxes() : Array_of_SalesTax;
- { Setter }
- procedure Set_salesTaxes(salesTaxes : Array_of_SalesTax);
- public
- property salesTaxes: Array_of_SalesTax read Get_salesTaxes write Set_salesTaxes;
- end;
- SellingLimit = class(TObject)
- private
- { Variablen }
- Famount : Amount;
- Fquantity : Integer;
- { Getter }
- function Get_amount() : Amount;
- function Get_quantity() : Integer;
- { Setter }
- procedure Set_amount(amount : Amount);
- procedure Set_quantity(quantity : Integer);
- public
- property amount: Amount read Get_amount write Set_amount;
- property quantity: Integer read Get_quantity write Set_quantity;
- end;
- SellingPrivileges = class(TObject)
- private
- { Variablen }
- FsellerRegistrationCompleted : Boolean;
- FsellingLimit : SellingLimit;
- { Getter }
- function Get_sellerRegistrationCompleted() : Boolean;
- function Get_sellingLimit() : SellingLimit;
- { Setter }
- procedure Set_sellerRegistrationCompleted(sellerRegistrationCompleted : Boolean);
- procedure Set_sellingLimit(sellingLimit : SellingLimit);
- public
- property sellerRegistrationCompleted: Boolean read Get_sellerRegistrationCompleted write Set_sellerRegistrationCompleted;
- property sellingLimit: SellingLimit read Get_sellingLimit write Set_sellingLimit;
- end;
- SetFulfillmentPolicyResponse = class(TObject)
- private
- { Variablen }
- FcategoryTypes : Array_of_CategoryType;
- Fdescription : String;
- FfreightShipping : Boolean;
- FfulfillmentPolicyId : String;
- FglobalShipping : Boolean;
- FhandlingTime : TimeDuration;
- FlocalPickup : Boolean;
- FmarketplaceId : String;
- Fname : String;
- FpickupDropOff : Boolean;
- FshippingOptions : Array_of_ShippingOption;
- FshipToLocations : RegionSet;
- Fwarnings : Array_of_Error;
- { Getter }
- function Get_categoryTypes() : Array_of_CategoryType;
- function Get_description() : String;
- function Get_freightShipping() : Boolean;
- function Get_fulfillmentPolicyId() : String;
- function Get_globalShipping() : Boolean;
- function Get_handlingTime() : TimeDuration;
- function Get_localPickup() : Boolean;
- function Get_marketplaceId() : String;
- function Get_name() : String;
- function Get_pickupDropOff() : Boolean;
- function Get_shippingOptions() : Array_of_ShippingOption;
- function Get_shipToLocations() : RegionSet;
- function Get_warnings() : Array_of_Error;
- { Setter }
- procedure Set_categoryTypes(categoryTypes : Array_of_CategoryType);
- procedure Set_description(description : String);
- procedure Set_freightShipping(freightShipping : Boolean);
- procedure Set_fulfillmentPolicyId(fulfillmentPolicyId : String);
- procedure Set_globalShipping(globalShipping : Boolean);
- procedure Set_handlingTime(handlingTime : TimeDuration);
- procedure Set_localPickup(localPickup : Boolean);
- procedure Set_marketplaceId(marketplaceId : String);
- procedure Set_name(name : String);
- procedure Set_pickupDropOff(pickupDropOff : Boolean);
- procedure Set_shippingOptions(shippingOptions : Array_of_ShippingOption);
- procedure Set_shipToLocations(shipToLocations : RegionSet);
- procedure Set_warnings(warnings : Array_of_Error);
- public
- property categoryTypes: Array_of_CategoryType read Get_categoryTypes write Set_categoryTypes;
- property description: String read Get_description write Set_description;
- property freightShipping: Boolean read Get_freightShipping write Set_freightShipping;
- property fulfillmentPolicyId: String read Get_fulfillmentPolicyId write Set_fulfillmentPolicyId;
- property globalShipping: Boolean read Get_globalShipping write Set_globalShipping;
- property handlingTime: TimeDuration read Get_handlingTime write Set_handlingTime;
- property localPickup: Boolean read Get_localPickup write Set_localPickup;
- property marketplaceId: String read Get_marketplaceId write Set_marketplaceId;
- property name: String read Get_name write Set_name;
- property pickupDropOff: Boolean read Get_pickupDropOff write Set_pickupDropOff;
- property shippingOptions: Array_of_ShippingOption read Get_shippingOptions write Set_shippingOptions;
- property shipToLocations: RegionSet read Get_shipToLocations write Set_shipToLocations;
- property warnings: Array_of_Error read Get_warnings write Set_warnings;
- end;
- SetPaymentPolicyResponse = class(TObject)
- private
- { Variablen }
- FcategoryTypes : Array_of_CategoryType;
- Fdeposit : Deposit;
- Fdescription : String;
- FfullPaymentDueIn : TimeDuration;
- FimmediatePay : Boolean;
- FmarketplaceId : String;
- Fname : String;
- FpaymentInstructions : String;
- FpaymentMethods : Array_of_PaymentMethod;
- FpaymentPolicyId : String;
- Fwarnings : Array_of_Error;
- { Getter }
- function Get_categoryTypes() : Array_of_CategoryType;
- function Get_deposit() : Deposit;
- function Get_description() : String;
- function Get_fullPaymentDueIn() : TimeDuration;
- function Get_immediatePay() : Boolean;
- function Get_marketplaceId() : String;
- function Get_name() : String;
- function Get_paymentInstructions() : String;
- function Get_paymentMethods() : Array_of_PaymentMethod;
- function Get_paymentPolicyId() : String;
- function Get_warnings() : Array_of_Error;
- { Setter }
- procedure Set_categoryTypes(categoryTypes : Array_of_CategoryType);
- procedure Set_deposit(deposit : Deposit);
- procedure Set_description(description : String);
- procedure Set_fullPaymentDueIn(fullPaymentDueIn : TimeDuration);
- procedure Set_immediatePay(immediatePay : Boolean);
- procedure Set_marketplaceId(marketplaceId : String);
- procedure Set_name(name : String);
- procedure Set_paymentInstructions(paymentInstructions : String);
- procedure Set_paymentMethods(paymentMethods : Array_of_PaymentMethod);
- procedure Set_paymentPolicyId(paymentPolicyId : String);
- procedure Set_warnings(warnings : Array_of_Error);
- public
- property categoryTypes: Array_of_CategoryType read Get_categoryTypes write Set_categoryTypes;
- property deposit: Deposit read Get_deposit write Set_deposit;
- property description: String read Get_description write Set_description;
- property fullPaymentDueIn: TimeDuration read Get_fullPaymentDueIn write Set_fullPaymentDueIn;
- property immediatePay: Boolean read Get_immediatePay write Set_immediatePay;
- property marketplaceId: String read Get_marketplaceId write Set_marketplaceId;
- property name: String read Get_name write Set_name;
- property paymentInstructions: String read Get_paymentInstructions write Set_paymentInstructions;
- property paymentMethods: Array_of_PaymentMethod read Get_paymentMethods write Set_paymentMethods;
- property paymentPolicyId: String read Get_paymentPolicyId write Set_paymentPolicyId;
- property warnings: Array_of_Error read Get_warnings write Set_warnings;
- end;
- SetReturnPolicyResponse = class(TObject)
- private
- { Variablen }
- FcategoryTypes : Array_of_CategoryType;
- Fdescription : String;
- FextendedHolidayReturnsOffered : Boolean;
- FinternationalOverride : InternationalReturnOverrideType;
- FmarketplaceId : String;
- Fname : String;
- FrefundMethod : String;
- FrestockingFeePercentage : String;
- FreturnInstructions : String;
- FreturnMethod : String;
- FreturnPeriod : TimeDuration;
- FreturnPolicyId : String;
- FreturnsAccepted : Boolean;
- FreturnShippingCostPayer : String;
- Fwarnings : Array_of_Error;
- { Getter }
- function Get_categoryTypes() : Array_of_CategoryType;
- function Get_description() : String;
- function Get_extendedHolidayReturnsOffered() : Boolean;
- function Get_internationalOverride() : InternationalReturnOverrideType;
- function Get_marketplaceId() : String;
- function Get_name() : String;
- function Get_refundMethod() : String;
- function Get_restockingFeePercentage() : String;
- function Get_returnInstructions() : String;
- function Get_returnMethod() : String;
- function Get_returnPeriod() : TimeDuration;
- function Get_returnPolicyId() : String;
- function Get_returnsAccepted() : Boolean;
- function Get_returnShippingCostPayer() : String;
- function Get_warnings() : Array_of_Error;
- { Setter }
- procedure Set_categoryTypes(categoryTypes : Array_of_CategoryType);
- procedure Set_description(description : String);
- procedure Set_extendedHolidayReturnsOffered(extendedHolidayReturnsOffered : Boolean);
- procedure Set_internationalOverride(internationalOverride : InternationalReturnOverrideType);
- procedure Set_marketplaceId(marketplaceId : String);
- procedure Set_name(name : String);
- procedure Set_refundMethod(refundMethod : String);
- procedure Set_restockingFeePercentage(restockingFeePercentage : String);
- procedure Set_returnInstructions(returnInstructions : String);
- procedure Set_returnMethod(returnMethod : String);
- procedure Set_returnPeriod(returnPeriod : TimeDuration);
- procedure Set_returnPolicyId(returnPolicyId : String);
- procedure Set_returnsAccepted(returnsAccepted : Boolean);
- procedure Set_returnShippingCostPayer(returnShippingCostPayer : String);
- procedure Set_warnings(warnings : Array_of_Error);
- public
- property categoryTypes: Array_of_CategoryType read Get_categoryTypes write Set_categoryTypes;
- property description: String read Get_description write Set_description;
- property extendedHolidayReturnsOffered: Boolean read Get_extendedHolidayReturnsOffered write Set_extendedHolidayReturnsOffered;
- property internationalOverride: InternationalReturnOverrideType read Get_internationalOverride write Set_internationalOverride;
- property marketplaceId: String read Get_marketplaceId write Set_marketplaceId;
- property name: String read Get_name write Set_name;
- property refundMethod: String read Get_refundMethod write Set_refundMethod;
- property restockingFeePercentage: String read Get_restockingFeePercentage write Set_restockingFeePercentage;
- property returnInstructions: String read Get_returnInstructions write Set_returnInstructions;
- property returnMethod: String read Get_returnMethod write Set_returnMethod;
- property returnPeriod: TimeDuration read Get_returnPeriod write Set_returnPeriod;
- property returnPolicyId: String read Get_returnPolicyId write Set_returnPolicyId;
- property returnsAccepted: Boolean read Get_returnsAccepted write Set_returnsAccepted;
- property returnShippingCostPayer: String read Get_returnShippingCostPayer write Set_returnShippingCostPayer;
- property warnings: Array_of_Error read Get_warnings write Set_warnings;
- end;
- ShippingOption = class(TObject)
- private
- { Variablen }
- FcostType : String;
- FinsuranceFee : Amount;
- FinsuranceOffered : Boolean;
- FoptionType : String;
- FpackageHandlingCost : Amount;
- FrateTableId : String;
- FshippingServices : Array_of_ShippingService;
- { Getter }
- function Get_costType() : String;
- function Get_insuranceFee() : Amount;
- function Get_insuranceOffered() : Boolean;
- function Get_optionType() : String;
- function Get_packageHandlingCost() : Amount;
- function Get_rateTableId() : String;
- function Get_shippingServices() : Array_of_ShippingService;
- { Setter }
- procedure Set_costType(costType : String);
- procedure Set_insuranceFee(insuranceFee : Amount);
- procedure Set_insuranceOffered(insuranceOffered : Boolean);
- procedure Set_optionType(optionType : String);
- procedure Set_packageHandlingCost(packageHandlingCost : Amount);
- procedure Set_rateTableId(rateTableId : String);
- procedure Set_shippingServices(shippingServices : Array_of_ShippingService);
- public
- property costType: String read Get_costType write Set_costType;
- property insuranceFee: Amount read Get_insuranceFee write Set_insuranceFee;
- property insuranceOffered: Boolean read Get_insuranceOffered write Set_insuranceOffered;
- property optionType: String read Get_optionType write Set_optionType;
- property packageHandlingCost: Amount read Get_packageHandlingCost write Set_packageHandlingCost;
- property rateTableId: String read Get_rateTableId write Set_rateTableId;
- property shippingServices: Array_of_ShippingService read Get_shippingServices write Set_shippingServices;
- end;
- ShippingService = class(TObject)
- private
- { Variablen }
- FadditionalShippingCost : Amount;
- FbuyerResponsibleForPickup : Boolean;
- FbuyerResponsibleForShipping : Boolean;
- FcashOnDeliveryFee : Amount;
- FfreeShipping : Boolean;
- FshippingCarrierCode : String;
- FshippingCost : Amount;
- FshippingServiceCode : String;
- FshipToLocations : RegionSet;
- FsortOrder : Integer;
- Fsurcharge : Amount;
- { Getter }
- function Get_additionalShippingCost() : Amount;
- function Get_buyerResponsibleForPickup() : Boolean;
- function Get_buyerResponsibleForShipping() : Boolean;
- function Get_cashOnDeliveryFee() : Amount;
- function Get_freeShipping() : Boolean;
- function Get_shippingCarrierCode() : String;
- function Get_shippingCost() : Amount;
- function Get_shippingServiceCode() : String;
- function Get_shipToLocations() : RegionSet;
- function Get_sortOrder() : Integer;
- function Get_surcharge() : Amount;
- { Setter }
- procedure Set_additionalShippingCost(additionalShippingCost : Amount);
- procedure Set_buyerResponsibleForPickup(buyerResponsibleForPickup : Boolean);
- procedure Set_buyerResponsibleForShipping(buyerResponsibleForShipping : Boolean);
- procedure Set_cashOnDeliveryFee(cashOnDeliveryFee : Amount);
- procedure Set_freeShipping(freeShipping : Boolean);
- procedure Set_shippingCarrierCode(shippingCarrierCode : String);
- procedure Set_shippingCost(shippingCost : Amount);
- procedure Set_shippingServiceCode(shippingServiceCode : String);
- procedure Set_shipToLocations(shipToLocations : RegionSet);
- procedure Set_sortOrder(sortOrder : Integer);
- procedure Set_surcharge(surcharge : Amount);
- public
- property additionalShippingCost: Amount read Get_additionalShippingCost write Set_additionalShippingCost;
- property buyerResponsibleForPickup: Boolean read Get_buyerResponsibleForPickup write Set_buyerResponsibleForPickup;
- property buyerResponsibleForShipping: Boolean read Get_buyerResponsibleForShipping write Set_buyerResponsibleForShipping;
- property cashOnDeliveryFee: Amount read Get_cashOnDeliveryFee write Set_cashOnDeliveryFee;
- property freeShipping: Boolean read Get_freeShipping write Set_freeShipping;
- property shippingCarrierCode: String read Get_shippingCarrierCode write Set_shippingCarrierCode;
- property shippingCost: Amount read Get_shippingCost write Set_shippingCost;
- property shippingServiceCode: String read Get_shippingServiceCode write Set_shippingServiceCode;
- property shipToLocations: RegionSet read Get_shipToLocations write Set_shipToLocations;
- property sortOrder: Integer read Get_sortOrder write Set_sortOrder;
- property surcharge: Amount read Get_surcharge write Set_surcharge;
- end;
- TimeDuration = class(TObject)
- private
- { Variablen }
- Funit_ : String;
- Fvalue : Integer;
- { Getter }
- function Get_unit_() : String;
- function Get_value() : Integer;
- { Setter }
- procedure Set_unit_(unit_ : String);
- procedure Set_value(value : Integer);
- public
- property unit_: String read Get_unit_ write Set_unit_;
- property value: Integer read Get_value write Set_value;
- end;
- TOnBeforeRequest = procedure(Request : TRESTRequest);
- TOnAfterRequest = procedure(Request : TRESTRequest);
- TService = class(TObject)
- private
- FOnBeforeRequest : TOnBeforeRequest;
- FOnAfterRequest : TOnAfterRequest;
- Request : TRESTRequest;
- procedure ClearRequest;
- procedure ExecuteRequest;
- public
- constructor Create();
- destructor Destroy();
- function createFulfillmentPolicy(fulfillmentPolicyRequest : FulfillmentPolicyRequest) : SetFulfillmentPolicyResponse;
- procedure deleteFulfillmentPolicy(fulfillmentPolicyId : String);
- function getFulfillmentPolicies(marketplaceId : String) : FulfillmentPolicyResponse;
- function getFulfillmentPolicy(fulfillmentPolicyId : String) : FulfillmentPolicy;
- function getFulfillmentPolicyByName(marketplaceId : String; name : String) : FulfillmentPolicy;
- function updateFulfillmentPolicy(fulfillmentPolicyId : String; fulfillmentPolicyRequest : FulfillmentPolicyRequest) : SetFulfillmentPolicyResponse;
- function getPaymentsProgramOnboarding(marketplaceId : String; paymentsProgramType : String) : PaymentsProgramOnboardingResponse;
- function createPaymentPolicy(paymentPolicyRequest : PaymentPolicyRequest) : SetPaymentPolicyResponse;
- procedure deletePaymentPolicy(paymentPolicyId : String);
- function getPaymentPolicies(marketplaceId : String) : PaymentPolicyResponse;
- function getPaymentPolicy(paymentPolicyId : String) : PaymentPolicy;
- function getPaymentPolicyByName(marketplaceId : String; name : String) : PaymentPolicy;
- function updatePaymentPolicy(paymentPolicyId : String; paymentPolicyRequest : PaymentPolicyRequest) : SetPaymentPolicyResponse;
- function getPaymentsProgram(marketplaceId : String; paymentsProgramType : String) : PaymentsProgramResponse;
- function getPrivileges() : SellingPrivileges;
- function getOptedInPrograms() : Programs;
- function optInToProgram(program_ : Program_) : TObject;
- function optOutOfProgram(program_ : Program_) : TObject;
- function getRateTables(countryCode : String) : RateTableResponse;
- function createReturnPolicy(returnPolicyRequest : ReturnPolicyRequest) : SetReturnPolicyResponse;
- procedure deleteReturnPolicy(returnPolicyId : String);
- function getReturnPolicies(marketplaceId : String) : ReturnPolicyResponse;
- function getReturnPolicy(returnPolicyId : String) : ReturnPolicy;
- function getReturnPolicyByName(marketplaceId : String; name : String) : ReturnPolicy;
- function updateReturnPolicy(returnPolicyId : String; returnPolicyRequest : ReturnPolicyRequest) : SetReturnPolicyResponse;
- procedure createOrReplaceSalesTax(countryCode : String; jurisdictionId : String; salesTaxBase : SalesTaxBase);
- procedure deleteSalesTax(countryCode : String; jurisdictionId : String);
- function getSalesTax(countryCode : String; jurisdictionId : String) : SalesTax;
- function getSalesTaxes(countryCode : String) : SalesTaxes;
- property OnBeforeRequest : TOnBeforeRequest read FOnBeforeRequest write FOnBeforeRequest;
- property OnAfterRequest : TOnAfterRequest read FOnAfterRequest write FOnAfterRequest;
- end;
- implementation
- { Getter }
- function Amount.Get_currency() : String;
- begin
- Result := Fcurrency;
- end;
- function Amount.Get_value() : String;
- begin
- Result := Fvalue;
- end;
- function CategoryType.Get_default() : Boolean;
- begin
- Result := Fdefault;
- end;
- function CategoryType.Get_name() : String;
- begin
- Result := Fname;
- end;
- function Deposit.Get_amount() : Amount;
- begin
- Result := Famount;
- end;
- function Deposit.Get_dueIn() : TimeDuration;
- begin
- Result := FdueIn;
- end;
- function Deposit.Get_paymentMethods() : Array_of_PaymentMethod;
- begin
- Result := FpaymentMethods;
- end;
- function Error.Get_category() : String;
- begin
- Result := Fcategory;
- end;
- function Error.Get_domain() : String;
- begin
- Result := Fdomain;
- end;
- function Error.Get_errorId() : Integer;
- begin
- Result := FerrorId;
- end;
- function Error.Get_inputRefIds() : Array_of_string;
- begin
- Result := FinputRefIds;
- end;
- function Error.Get_longMessage() : String;
- begin
- Result := FlongMessage;
- end;
- function Error.Get_message() : String;
- begin
- Result := Fmessage;
- end;
- function Error.Get_outputRefIds() : Array_of_string;
- begin
- Result := FoutputRefIds;
- end;
- function Error.Get_parameters() : Array_of_ErrorParameter;
- begin
- Result := Fparameters;
- end;
- function Error.Get_subdomain() : String;
- begin
- Result := Fsubdomain;
- end;
- function ErrorParameter.Get_name() : String;
- begin
- Result := Fname;
- end;
- function ErrorParameter.Get_value() : String;
- begin
- Result := Fvalue;
- end;
- function FulfillmentPolicy.Get_categoryTypes() : Array_of_CategoryType;
- begin
- Result := FcategoryTypes;
- end;
- function FulfillmentPolicy.Get_description() : String;
- begin
- Result := Fdescription;
- end;
- function FulfillmentPolicy.Get_freightShipping() : Boolean;
- begin
- Result := FfreightShipping;
- end;
- function FulfillmentPolicy.Get_fulfillmentPolicyId() : String;
- begin
- Result := FfulfillmentPolicyId;
- end;
- function FulfillmentPolicy.Get_globalShipping() : Boolean;
- begin
- Result := FglobalShipping;
- end;
- function FulfillmentPolicy.Get_handlingTime() : TimeDuration;
- begin
- Result := FhandlingTime;
- end;
- function FulfillmentPolicy.Get_localPickup() : Boolean;
- begin
- Result := FlocalPickup;
- end;
- function FulfillmentPolicy.Get_marketplaceId() : String;
- begin
- Result := FmarketplaceId;
- end;
- function FulfillmentPolicy.Get_name() : String;
- begin
- Result := Fname;
- end;
- function FulfillmentPolicy.Get_pickupDropOff() : Boolean;
- begin
- Result := FpickupDropOff;
- end;
- function FulfillmentPolicy.Get_shippingOptions() : Array_of_ShippingOption;
- begin
- Result := FshippingOptions;
- end;
- function FulfillmentPolicy.Get_shipToLocations() : RegionSet;
- begin
- Result := FshipToLocations;
- end;
- function FulfillmentPolicyRequest.Get_categoryTypes() : Array_of_CategoryType;
- begin
- Result := FcategoryTypes;
- end;
- function FulfillmentPolicyRequest.Get_description() : String;
- begin
- Result := Fdescription;
- end;
- function FulfillmentPolicyRequest.Get_freightShipping() : Boolean;
- begin
- Result := FfreightShipping;
- end;
- function FulfillmentPolicyRequest.Get_globalShipping() : Boolean;
- begin
- Result := FglobalShipping;
- end;
- function FulfillmentPolicyRequest.Get_handlingTime() : TimeDuration;
- begin
- Result := FhandlingTime;
- end;
- function FulfillmentPolicyRequest.Get_localPickup() : Boolean;
- begin
- Result := FlocalPickup;
- end;
- function FulfillmentPolicyRequest.Get_marketplaceId() : String;
- begin
- Result := FmarketplaceId;
- end;
- function FulfillmentPolicyRequest.Get_name() : String;
- begin
- Result := Fname;
- end;
- function FulfillmentPolicyRequest.Get_pickupDropOff() : Boolean;
- begin
- Result := FpickupDropOff;
- end;
- function FulfillmentPolicyRequest.Get_shippingOptions() : Array_of_ShippingOption;
- begin
- Result := FshippingOptions;
- end;
- function FulfillmentPolicyRequest.Get_shipToLocations() : RegionSet;
- begin
- Result := FshipToLocations;
- end;
- function FulfillmentPolicyResponse.Get_fulfillmentPolicies() : Array_of_FulfillmentPolicy;
- begin
- Result := FfulfillmentPolicies;
- end;
- function FulfillmentPolicyResponse.Get_href() : String;
- begin
- Result := Fhref;
- end;
- function FulfillmentPolicyResponse.Get_limit() : Integer;
- begin
- Result := Flimit;
- end;
- function FulfillmentPolicyResponse.Get_next() : String;
- begin
- Result := Fnext;
- end;
- function FulfillmentPolicyResponse.Get_offset() : Integer;
- begin
- Result := Foffset;
- end;
- function FulfillmentPolicyResponse.Get_prev() : String;
- begin
- Result := Fprev;
- end;
- function FulfillmentPolicyResponse.Get_total() : Integer;
- begin
- Result := Ftotal;
- end;
- function InternationalReturnOverrideType.Get_returnMethod() : String;
- begin
- Result := FreturnMethod;
- end;
- function InternationalReturnOverrideType.Get_returnPeriod() : TimeDuration;
- begin
- Result := FreturnPeriod;
- end;
- function InternationalReturnOverrideType.Get_returnsAccepted() : Boolean;
- begin
- Result := FreturnsAccepted;
- end;
- function InternationalReturnOverrideType.Get_returnShippingCostPayer() : String;
- begin
- Result := FreturnShippingCostPayer;
- end;
- function PaymentMethod.Get_brands() : Array_of_string;
- begin
- Result := Fbrands;
- end;
- function PaymentMethod.Get_paymentMethodType() : String;
- begin
- Result := FpaymentMethodType;
- end;
- function PaymentMethod.Get_recipientAccountReference() : RecipientAccountReference;
- begin
- Result := FrecipientAccountReference;
- end;
- function PaymentPolicy.Get_categoryTypes() : Array_of_CategoryType;
- begin
- Result := FcategoryTypes;
- end;
- function PaymentPolicy.Get_deposit() : Deposit;
- begin
- Result := Fdeposit;
- end;
- function PaymentPolicy.Get_description() : String;
- begin
- Result := Fdescription;
- end;
- function PaymentPolicy.Get_fullPaymentDueIn() : TimeDuration;
- begin
- Result := FfullPaymentDueIn;
- end;
- function PaymentPolicy.Get_immediatePay() : Boolean;
- begin
- Result := FimmediatePay;
- end;
- function PaymentPolicy.Get_marketplaceId() : String;
- begin
- Result := FmarketplaceId;
- end;
- function PaymentPolicy.Get_name() : String;
- begin
- Result := Fname;
- end;
- function PaymentPolicy.Get_paymentInstructions() : String;
- begin
- Result := FpaymentInstructions;
- end;
- function PaymentPolicy.Get_paymentMethods() : Array_of_PaymentMethod;
- begin
- Result := FpaymentMethods;
- end;
- function PaymentPolicy.Get_paymentPolicyId() : String;
- begin
- Result := FpaymentPolicyId;
- end;
- function PaymentPolicyRequest.Get_categoryTypes() : Array_of_CategoryType;
- begin
- Result := FcategoryTypes;
- end;
- function PaymentPolicyRequest.Get_deposit() : Deposit;
- begin
- Result := Fdeposit;
- end;
- function PaymentPolicyRequest.Get_description() : String;
- begin
- Result := Fdescription;
- end;
- function PaymentPolicyRequest.Get_fullPaymentDueIn() : TimeDuration;
- begin
- Result := FfullPaymentDueIn;
- end;
- function PaymentPolicyRequest.Get_immediatePay() : Boolean;
- begin
- Result := FimmediatePay;
- end;
- function PaymentPolicyRequest.Get_marketplaceId() : String;
- begin
- Result := FmarketplaceId;
- end;
- function PaymentPolicyRequest.Get_name() : String;
- begin
- Result := Fname;
- end;
- function PaymentPolicyRequest.Get_paymentInstructions() : String;
- begin
- Result := FpaymentInstructions;
- end;
- function PaymentPolicyRequest.Get_paymentMethods() : Array_of_PaymentMethod;
- begin
- Result := FpaymentMethods;
- end;
- function PaymentPolicyResponse.Get_href() : String;
- begin
- Result := Fhref;
- end;
- function PaymentPolicyResponse.Get_limit() : Integer;
- begin
- Result := Flimit;
- end;
- function PaymentPolicyResponse.Get_next() : String;
- begin
- Result := Fnext;
- end;
- function PaymentPolicyResponse.Get_offset() : Integer;
- begin
- Result := Foffset;
- end;
- function PaymentPolicyResponse.Get_prev() : String;
- begin
- Result := Fprev;
- end;
- function PaymentPolicyResponse.Get_total() : Integer;
- begin
- Result := Ftotal;
- end;
- function PaymentPolicyResponse.Get_paymentPolicies() : Array_of_PaymentPolicy;
- begin
- Result := FpaymentPolicies;
- end;
- function PaymentsProgramOnboardingResponse.Get_onboardingStatus() : String;
- begin
- Result := FonboardingStatus;
- end;
- function PaymentsProgramOnboardingResponse.Get_steps() : Array_of_PaymentsProgramOnboardingSteps;
- begin
- Result := Fsteps;
- end;
- function PaymentsProgramOnboardingSteps.Get_name() : String;
- begin
- Result := Fname;
- end;
- function PaymentsProgramOnboardingSteps.Get_status() : String;
- begin
- Result := Fstatus;
- end;
- function PaymentsProgramOnboardingSteps.Get_webUrl() : String;
- begin
- Result := FwebUrl;
- end;
- function PaymentsProgramResponse.Get_marketplaceId() : String;
- begin
- Result := FmarketplaceId;
- end;
- function PaymentsProgramResponse.Get_paymentsProgramType() : String;
- begin
- Result := FpaymentsProgramType;
- end;
- function PaymentsProgramResponse.Get_status() : String;
- begin
- Result := Fstatus;
- end;
- function PaymentsProgramResponse.Get_wasPreviouslyOptedIn() : Boolean;
- begin
- Result := FwasPreviouslyOptedIn;
- end;
- function Program_.Get_programType() : String;
- begin
- Result := FprogramType;
- end;
- function Programs.Get_programs() : Array_of_Program_;
- begin
- Result := Fprograms;
- end;
- function RateTable.Get_countryCode() : String;
- begin
- Result := FcountryCode;
- end;
- function RateTable.Get_locality() : String;
- begin
- Result := Flocality;
- end;
- function RateTable.Get_name() : String;
- begin
- Result := Fname;
- end;
- function RateTable.Get_rateTableId() : String;
- begin
- Result := FrateTableId;
- end;
- function RateTableResponse.Get_rateTables() : Array_of_RateTable;
- begin
- Result := FrateTables;
- end;
- function RecipientAccountReference.Get_referenceId() : String;
- begin
- Result := FreferenceId;
- end;
- function RecipientAccountReference.Get_referenceType() : String;
- begin
- Result := FreferenceType;
- end;
- function Region.Get_regionName() : String;
- begin
- Result := FregionName;
- end;
- function Region.Get_regionType() : String;
- begin
- Result := FregionType;
- end;
- function RegionSet.Get_regionExcluded() : Array_of_Region;
- begin
- Result := FregionExcluded;
- end;
- function RegionSet.Get_regionIncluded() : Array_of_Region;
- begin
- Result := FregionIncluded;
- end;
- function ReturnPolicy.Get_categoryTypes() : Array_of_CategoryType;
- begin
- Result := FcategoryTypes;
- end;
- function ReturnPolicy.Get_description() : String;
- begin
- Result := Fdescription;
- end;
- function ReturnPolicy.Get_extendedHolidayReturnsOffered() : Boolean;
- begin
- Result := FextendedHolidayReturnsOffered;
- end;
- function ReturnPolicy.Get_internationalOverride() : InternationalReturnOverrideType;
- begin
- Result := FinternationalOverride;
- end;
- function ReturnPolicy.Get_marketplaceId() : String;
- begin
- Result := FmarketplaceId;
- end;
- function ReturnPolicy.Get_name() : String;
- begin
- Result := Fname;
- end;
- function ReturnPolicy.Get_refundMethod() : String;
- begin
- Result := FrefundMethod;
- end;
- function ReturnPolicy.Get_restockingFeePercentage() : String;
- begin
- Result := FrestockingFeePercentage;
- end;
- function ReturnPolicy.Get_returnInstructions() : String;
- begin
- Result := FreturnInstructions;
- end;
- function ReturnPolicy.Get_returnMethod() : String;
- begin
- Result := FreturnMethod;
- end;
- function ReturnPolicy.Get_returnPeriod() : TimeDuration;
- begin
- Result := FreturnPeriod;
- end;
- function ReturnPolicy.Get_returnPolicyId() : String;
- begin
- Result := FreturnPolicyId;
- end;
- function ReturnPolicy.Get_returnsAccepted() : Boolean;
- begin
- Result := FreturnsAccepted;
- end;
- function ReturnPolicy.Get_returnShippingCostPayer() : String;
- begin
- Result := FreturnShippingCostPayer;
- end;
- function ReturnPolicyRequest.Get_categoryTypes() : Array_of_CategoryType;
- begin
- Result := FcategoryTypes;
- end;
- function ReturnPolicyRequest.Get_description() : String;
- begin
- Result := Fdescription;
- end;
- function ReturnPolicyRequest.Get_extendedHolidayReturnsOffered() : Boolean;
- begin
- Result := FextendedHolidayReturnsOffered;
- end;
- function ReturnPolicyRequest.Get_internationalOverride() : InternationalReturnOverrideType;
- begin
- Result := FinternationalOverride;
- end;
- function ReturnPolicyRequest.Get_marketplaceId() : String;
- begin
- Result := FmarketplaceId;
- end;
- function ReturnPolicyRequest.Get_name() : String;
- begin
- Result := Fname;
- end;
- function ReturnPolicyRequest.Get_refundMethod() : String;
- begin
- Result := FrefundMethod;
- end;
- function ReturnPolicyRequest.Get_restockingFeePercentage() : String;
- begin
- Result := FrestockingFeePercentage;
- end;
- function ReturnPolicyRequest.Get_returnInstructions() : String;
- begin
- Result := FreturnInstructions;
- end;
- function ReturnPolicyRequest.Get_returnMethod() : String;
- begin
- Result := FreturnMethod;
- end;
- function ReturnPolicyRequest.Get_returnPeriod() : TimeDuration;
- begin
- Result := FreturnPeriod;
- end;
- function ReturnPolicyRequest.Get_returnsAccepted() : Boolean;
- begin
- Result := FreturnsAccepted;
- end;
- function ReturnPolicyRequest.Get_returnShippingCostPayer() : String;
- begin
- Result := FreturnShippingCostPayer;
- end;
- function ReturnPolicyResponse.Get_href() : String;
- begin
- Result := Fhref;
- end;
- function ReturnPolicyResponse.Get_limit() : Integer;
- begin
- Result := Flimit;
- end;
- function ReturnPolicyResponse.Get_next() : String;
- begin
- Result := Fnext;
- end;
- function ReturnPolicyResponse.Get_offset() : Integer;
- begin
- Result := Foffset;
- end;
- function ReturnPolicyResponse.Get_prev() : String;
- begin
- Result := Fprev;
- end;
- function ReturnPolicyResponse.Get_total() : Integer;
- begin
- Result := Ftotal;
- end;
- function ReturnPolicyResponse.Get_returnPolicies() : Array_of_ReturnPolicy;
- begin
- Result := FreturnPolicies;
- end;
- function SalesTax.Get_countryCode() : String;
- begin
- Result := FcountryCode;
- end;
- function SalesTax.Get_salesTaxJurisdictionId() : String;
- begin
- Result := FsalesTaxJurisdictionId;
- end;
- function SalesTax.Get_salesTaxPercentage() : String;
- begin
- Result := FsalesTaxPercentage;
- end;
- function SalesTax.Get_shippingAndHandlingTaxed() : Boolean;
- begin
- Result := FshippingAndHandlingTaxed;
- end;
- function SalesTaxBase.Get_salesTaxPercentage() : String;
- begin
- Result := FsalesTaxPercentage;
- end;
- function SalesTaxBase.Get_shippingAndHandlingTaxed() : Boolean;
- begin
- Result := FshippingAndHandlingTaxed;
- end;
- function SalesTaxes.Get_salesTaxes() : Array_of_SalesTax;
- begin
- Result := FsalesTaxes;
- end;
- function SellingLimit.Get_amount() : Amount;
- begin
- Result := Famount;
- end;
- function SellingLimit.Get_quantity() : Integer;
- begin
- Result := Fquantity;
- end;
- function SellingPrivileges.Get_sellerRegistrationCompleted() : Boolean;
- begin
- Result := FsellerRegistrationCompleted;
- end;
- function SellingPrivileges.Get_sellingLimit() : SellingLimit;
- begin
- Result := FsellingLimit;
- end;
- function SetFulfillmentPolicyResponse.Get_categoryTypes() : Array_of_CategoryType;
- begin
- Result := FcategoryTypes;
- end;
- function SetFulfillmentPolicyResponse.Get_description() : String;
- begin
- Result := Fdescription;
- end;
- function SetFulfillmentPolicyResponse.Get_freightShipping() : Boolean;
- begin
- Result := FfreightShipping;
- end;
- function SetFulfillmentPolicyResponse.Get_fulfillmentPolicyId() : String;
- begin
- Result := FfulfillmentPolicyId;
- end;
- function SetFulfillmentPolicyResponse.Get_globalShipping() : Boolean;
- begin
- Result := FglobalShipping;
- end;
- function SetFulfillmentPolicyResponse.Get_handlingTime() : TimeDuration;
- begin
- Result := FhandlingTime;
- end;
- function SetFulfillmentPolicyResponse.Get_localPickup() : Boolean;
- begin
- Result := FlocalPickup;
- end;
- function SetFulfillmentPolicyResponse.Get_marketplaceId() : String;
- begin
- Result := FmarketplaceId;
- end;
- function SetFulfillmentPolicyResponse.Get_name() : String;
- begin
- Result := Fname;
- end;
- function SetFulfillmentPolicyResponse.Get_pickupDropOff() : Boolean;
- begin
- Result := FpickupDropOff;
- end;
- function SetFulfillmentPolicyResponse.Get_shippingOptions() : Array_of_ShippingOption;
- begin
- Result := FshippingOptions;
- end;
- function SetFulfillmentPolicyResponse.Get_shipToLocations() : RegionSet;
- begin
- Result := FshipToLocations;
- end;
- function SetFulfillmentPolicyResponse.Get_warnings() : Array_of_Error;
- begin
- Result := Fwarnings;
- end;
- function SetPaymentPolicyResponse.Get_categoryTypes() : Array_of_CategoryType;
- begin
- Result := FcategoryTypes;
- end;
- function SetPaymentPolicyResponse.Get_deposit() : Deposit;
- begin
- Result := Fdeposit;
- end;
- function SetPaymentPolicyResponse.Get_description() : String;
- begin
- Result := Fdescription;
- end;
- function SetPaymentPolicyResponse.Get_fullPaymentDueIn() : TimeDuration;
- begin
- Result := FfullPaymentDueIn;
- end;
- function SetPaymentPolicyResponse.Get_immediatePay() : Boolean;
- begin
- Result := FimmediatePay;
- end;
- function SetPaymentPolicyResponse.Get_marketplaceId() : String;
- begin
- Result := FmarketplaceId;
- end;
- function SetPaymentPolicyResponse.Get_name() : String;
- begin
- Result := Fname;
- end;
- function SetPaymentPolicyResponse.Get_paymentInstructions() : String;
- begin
- Result := FpaymentInstructions;
- end;
- function SetPaymentPolicyResponse.Get_paymentMethods() : Array_of_PaymentMethod;
- begin
- Result := FpaymentMethods;
- end;
- function SetPaymentPolicyResponse.Get_paymentPolicyId() : String;
- begin
- Result := FpaymentPolicyId;
- end;
- function SetPaymentPolicyResponse.Get_warnings() : Array_of_Error;
- begin
- Result := Fwarnings;
- end;
- function SetReturnPolicyResponse.Get_categoryTypes() : Array_of_CategoryType;
- begin
- Result := FcategoryTypes;
- end;
- function SetReturnPolicyResponse.Get_description() : String;
- begin
- Result := Fdescription;
- end;
- function SetReturnPolicyResponse.Get_extendedHolidayReturnsOffered() : Boolean;
- begin
- Result := FextendedHolidayReturnsOffered;
- end;
- function SetReturnPolicyResponse.Get_internationalOverride() : InternationalReturnOverrideType;
- begin
- Result := FinternationalOverride;
- end;
- function SetReturnPolicyResponse.Get_marketplaceId() : String;
- begin
- Result := FmarketplaceId;
- end;
- function SetReturnPolicyResponse.Get_name() : String;
- begin
- Result := Fname;
- end;
- function SetReturnPolicyResponse.Get_refundMethod() : String;
- begin
- Result := FrefundMethod;
- end;
- function SetReturnPolicyResponse.Get_restockingFeePercentage() : String;
- begin
- Result := FrestockingFeePercentage;
- end;
- function SetReturnPolicyResponse.Get_returnInstructions() : String;
- begin
- Result := FreturnInstructions;
- end;
- function SetReturnPolicyResponse.Get_returnMethod() : String;
- begin
- Result := FreturnMethod;
- end;
- function SetReturnPolicyResponse.Get_returnPeriod() : TimeDuration;
- begin
- Result := FreturnPeriod;
- end;
- function SetReturnPolicyResponse.Get_returnPolicyId() : String;
- begin
- Result := FreturnPolicyId;
- end;
- function SetReturnPolicyResponse.Get_returnsAccepted() : Boolean;
- begin
- Result := FreturnsAccepted;
- end;
- function SetReturnPolicyResponse.Get_returnShippingCostPayer() : String;
- begin
- Result := FreturnShippingCostPayer;
- end;
- function SetReturnPolicyResponse.Get_warnings() : Array_of_Error;
- begin
- Result := Fwarnings;
- end;
- function ShippingOption.Get_costType() : String;
- begin
- Result := FcostType;
- end;
- function ShippingOption.Get_insuranceFee() : Amount;
- begin
- Result := FinsuranceFee;
- end;
- function ShippingOption.Get_insuranceOffered() : Boolean;
- begin
- Result := FinsuranceOffered;
- end;
- function ShippingOption.Get_optionType() : String;
- begin
- Result := FoptionType;
- end;
- function ShippingOption.Get_packageHandlingCost() : Amount;
- begin
- Result := FpackageHandlingCost;
- end;
- function ShippingOption.Get_rateTableId() : String;
- begin
- Result := FrateTableId;
- end;
- function ShippingOption.Get_shippingServices() : Array_of_ShippingService;
- begin
- Result := FshippingServices;
- end;
- function ShippingService.Get_additionalShippingCost() : Amount;
- begin
- Result := FadditionalShippingCost;
- end;
- function ShippingService.Get_buyerResponsibleForPickup() : Boolean;
- begin
- Result := FbuyerResponsibleForPickup;
- end;
- function ShippingService.Get_buyerResponsibleForShipping() : Boolean;
- begin
- Result := FbuyerResponsibleForShipping;
- end;
- function ShippingService.Get_cashOnDeliveryFee() : Amount;
- begin
- Result := FcashOnDeliveryFee;
- end;
- function ShippingService.Get_freeShipping() : Boolean;
- begin
- Result := FfreeShipping;
- end;
- function ShippingService.Get_shippingCarrierCode() : String;
- begin
- Result := FshippingCarrierCode;
- end;
- function ShippingService.Get_shippingCost() : Amount;
- begin
- Result := FshippingCost;
- end;
- function ShippingService.Get_shippingServiceCode() : String;
- begin
- Result := FshippingServiceCode;
- end;
- function ShippingService.Get_shipToLocations() : RegionSet;
- begin
- Result := FshipToLocations;
- end;
- function ShippingService.Get_sortOrder() : Integer;
- begin
- Result := FsortOrder;
- end;
- function ShippingService.Get_surcharge() : Amount;
- begin
- Result := Fsurcharge;
- end;
- function TimeDuration.Get_unit_() : String;
- begin
- Result := Funit_;
- end;
- function TimeDuration.Get_value() : Integer;
- begin
- Result := Fvalue;
- end;
- { Setter }
- procedure Amount.Set_currency(currency: String);
- begin
- Fcurrency := currency;
- end;
- procedure Amount.Set_value(value: String);
- begin
- Fvalue := value;
- end;
- procedure CategoryType.Set_default(default: Boolean);
- begin
- Fdefault := default;
- end;
- procedure CategoryType.Set_name(name: String);
- begin
- Fname := name;
- end;
- procedure Deposit.Set_amount(amount: Amount);
- begin
- Famount := amount;
- end;
- procedure Deposit.Set_dueIn(dueIn: TimeDuration);
- begin
- FdueIn := dueIn;
- end;
- procedure Deposit.Set_paymentMethods(paymentMethods: Array_of_PaymentMethod);
- begin
- FpaymentMethods := paymentMethods;
- end;
- procedure Error.Set_category(category: String);
- begin
- Fcategory := category;
- end;
- procedure Error.Set_domain(domain: String);
- begin
- Fdomain := domain;
- end;
- procedure Error.Set_errorId(errorId: Integer);
- begin
- FerrorId := errorId;
- end;
- procedure Error.Set_inputRefIds(inputRefIds: Array_of_string);
- begin
- FinputRefIds := inputRefIds;
- end;
- procedure Error.Set_longMessage(longMessage: String);
- begin
- FlongMessage := longMessage;
- end;
- procedure Error.Set_message(message: String);
- begin
- Fmessage := message;
- end;
- procedure Error.Set_outputRefIds(outputRefIds: Array_of_string);
- begin
- FoutputRefIds := outputRefIds;
- end;
- procedure Error.Set_parameters(parameters: Array_of_ErrorParameter);
- begin
- Fparameters := parameters;
- end;
- procedure Error.Set_subdomain(subdomain: String);
- begin
- Fsubdomain := subdomain;
- end;
- procedure ErrorParameter.Set_name(name: String);
- begin
- Fname := name;
- end;
- procedure ErrorParameter.Set_value(value: String);
- begin
- Fvalue := value;
- end;
- procedure FulfillmentPolicy.Set_categoryTypes(categoryTypes: Array_of_CategoryType);
- begin
- FcategoryTypes := categoryTypes;
- end;
- procedure FulfillmentPolicy.Set_description(description: String);
- begin
- Fdescription := description;
- end;
- procedure FulfillmentPolicy.Set_freightShipping(freightShipping: Boolean);
- begin
- FfreightShipping := freightShipping;
- end;
- procedure FulfillmentPolicy.Set_fulfillmentPolicyId(fulfillmentPolicyId: String);
- begin
- FfulfillmentPolicyId := fulfillmentPolicyId;
- end;
- procedure FulfillmentPolicy.Set_globalShipping(globalShipping: Boolean);
- begin
- FglobalShipping := globalShipping;
- end;
- procedure FulfillmentPolicy.Set_handlingTime(handlingTime: TimeDuration);
- begin
- FhandlingTime := handlingTime;
- end;
- procedure FulfillmentPolicy.Set_localPickup(localPickup: Boolean);
- begin
- FlocalPickup := localPickup;
- end;
- procedure FulfillmentPolicy.Set_marketplaceId(marketplaceId: String);
- begin
- FmarketplaceId := marketplaceId;
- end;
- procedure FulfillmentPolicy.Set_name(name: String);
- begin
- Fname := name;
- end;
- procedure FulfillmentPolicy.Set_pickupDropOff(pickupDropOff: Boolean);
- begin
- FpickupDropOff := pickupDropOff;
- end;
- procedure FulfillmentPolicy.Set_shippingOptions(shippingOptions: Array_of_ShippingOption);
- begin
- FshippingOptions := shippingOptions;
- end;
- procedure FulfillmentPolicy.Set_shipToLocations(shipToLocations: RegionSet);
- begin
- FshipToLocations := shipToLocations;
- end;
- procedure FulfillmentPolicyRequest.Set_categoryTypes(categoryTypes: Array_of_CategoryType);
- begin
- FcategoryTypes := categoryTypes;
- end;
- procedure FulfillmentPolicyRequest.Set_description(description: String);
- begin
- Fdescription := description;
- end;
- procedure FulfillmentPolicyRequest.Set_freightShipping(freightShipping: Boolean);
- begin
- FfreightShipping := freightShipping;
- end;
- procedure FulfillmentPolicyRequest.Set_globalShipping(globalShipping: Boolean);
- begin
- FglobalShipping := globalShipping;
- end;
- procedure FulfillmentPolicyRequest.Set_handlingTime(handlingTime: TimeDuration);
- begin
- FhandlingTime := handlingTime;
- end;
- procedure FulfillmentPolicyRequest.Set_localPickup(localPickup: Boolean);
- begin
- FlocalPickup := localPickup;
- end;
- procedure FulfillmentPolicyRequest.Set_marketplaceId(marketplaceId: String);
- begin
- FmarketplaceId := marketplaceId;
- end;
- procedure FulfillmentPolicyRequest.Set_name(name: String);
- begin
- Fname := name;
- end;
- procedure FulfillmentPolicyRequest.Set_pickupDropOff(pickupDropOff: Boolean);
- begin
- FpickupDropOff := pickupDropOff;
- end;
- procedure FulfillmentPolicyRequest.Set_shippingOptions(shippingOptions: Array_of_ShippingOption);
- begin
- FshippingOptions := shippingOptions;
- end;
- procedure FulfillmentPolicyRequest.Set_shipToLocations(shipToLocations: RegionSet);
- begin
- FshipToLocations := shipToLocations;
- end;
- procedure FulfillmentPolicyResponse.Set_fulfillmentPolicies(fulfillmentPolicies: Array_of_FulfillmentPolicy);
- begin
- FfulfillmentPolicies := fulfillmentPolicies;
- end;
- procedure FulfillmentPolicyResponse.Set_href(href: String);
- begin
- Fhref := href;
- end;
- procedure FulfillmentPolicyResponse.Set_limit(limit: Integer);
- begin
- Flimit := limit;
- end;
- procedure FulfillmentPolicyResponse.Set_next(next: String);
- begin
- Fnext := next;
- end;
- procedure FulfillmentPolicyResponse.Set_offset(offset: Integer);
- begin
- Foffset := offset;
- end;
- procedure FulfillmentPolicyResponse.Set_prev(prev: String);
- begin
- Fprev := prev;
- end;
- procedure FulfillmentPolicyResponse.Set_total(total: Integer);
- begin
- Ftotal := total;
- end;
- procedure InternationalReturnOverrideType.Set_returnMethod(returnMethod: String);
- begin
- FreturnMethod := returnMethod;
- end;
- procedure InternationalReturnOverrideType.Set_returnPeriod(returnPeriod: TimeDuration);
- begin
- FreturnPeriod := returnPeriod;
- end;
- procedure InternationalReturnOverrideType.Set_returnsAccepted(returnsAccepted: Boolean);
- begin
- FreturnsAccepted := returnsAccepted;
- end;
- procedure InternationalReturnOverrideType.Set_returnShippingCostPayer(returnShippingCostPayer: String);
- begin
- FreturnShippingCostPayer := returnShippingCostPayer;
- end;
- procedure PaymentMethod.Set_brands(brands: Array_of_string);
- begin
- Fbrands := brands;
- end;
- procedure PaymentMethod.Set_paymentMethodType(paymentMethodType: String);
- begin
- FpaymentMethodType := paymentMethodType;
- end;
- procedure PaymentMethod.Set_recipientAccountReference(recipientAccountReference: RecipientAccountReference);
- begin
- FrecipientAccountReference := recipientAccountReference;
- end;
- procedure PaymentPolicy.Set_categoryTypes(categoryTypes: Array_of_CategoryType);
- begin
- FcategoryTypes := categoryTypes;
- end;
- procedure PaymentPolicy.Set_deposit(deposit: Deposit);
- begin
- Fdeposit := deposit;
- end;
- procedure PaymentPolicy.Set_description(description: String);
- begin
- Fdescription := description;
- end;
- procedure PaymentPolicy.Set_fullPaymentDueIn(fullPaymentDueIn: TimeDuration);
- begin
- FfullPaymentDueIn := fullPaymentDueIn;
- end;
- procedure PaymentPolicy.Set_immediatePay(immediatePay: Boolean);
- begin
- FimmediatePay := immediatePay;
- end;
- procedure PaymentPolicy.Set_marketplaceId(marketplaceId: String);
- begin
- FmarketplaceId := marketplaceId;
- end;
- procedure PaymentPolicy.Set_name(name: String);
- begin
- Fname := name;
- end;
- procedure PaymentPolicy.Set_paymentInstructions(paymentInstructions: String);
- begin
- FpaymentInstructions := paymentInstructions;
- end;
- procedure PaymentPolicy.Set_paymentMethods(paymentMethods: Array_of_PaymentMethod);
- begin
- FpaymentMethods := paymentMethods;
- end;
- procedure PaymentPolicy.Set_paymentPolicyId(paymentPolicyId: String);
- begin
- FpaymentPolicyId := paymentPolicyId;
- end;
- procedure PaymentPolicyRequest.Set_categoryTypes(categoryTypes: Array_of_CategoryType);
- begin
- FcategoryTypes := categoryTypes;
- end;
- procedure PaymentPolicyRequest.Set_deposit(deposit: Deposit);
- begin
- Fdeposit := deposit;
- end;
- procedure PaymentPolicyRequest.Set_description(description: String);
- begin
- Fdescription := description;
- end;
- procedure PaymentPolicyRequest.Set_fullPaymentDueIn(fullPaymentDueIn: TimeDuration);
- begin
- FfullPaymentDueIn := fullPaymentDueIn;
- end;
- procedure PaymentPolicyRequest.Set_immediatePay(immediatePay: Boolean);
- begin
- FimmediatePay := immediatePay;
- end;
- procedure PaymentPolicyRequest.Set_marketplaceId(marketplaceId: String);
- begin
- FmarketplaceId := marketplaceId;
- end;
- procedure PaymentPolicyRequest.Set_name(name: String);
- begin
- Fname := name;
- end;
- procedure PaymentPolicyRequest.Set_paymentInstructions(paymentInstructions: String);
- begin
- FpaymentInstructions := paymentInstructions;
- end;
- procedure PaymentPolicyRequest.Set_paymentMethods(paymentMethods: Array_of_PaymentMethod);
- begin
- FpaymentMethods := paymentMethods;
- end;
- procedure PaymentPolicyResponse.Set_href(href: String);
- begin
- Fhref := href;
- end;
- procedure PaymentPolicyResponse.Set_limit(limit: Integer);
- begin
- Flimit := limit;
- end;
- procedure PaymentPolicyResponse.Set_next(next: String);
- begin
- Fnext := next;
- end;
- procedure PaymentPolicyResponse.Set_offset(offset: Integer);
- begin
- Foffset := offset;
- end;
- procedure PaymentPolicyResponse.Set_prev(prev: String);
- begin
- Fprev := prev;
- end;
- procedure PaymentPolicyResponse.Set_total(total: Integer);
- begin
- Ftotal := total;
- end;
- procedure PaymentPolicyResponse.Set_paymentPolicies(paymentPolicies: Array_of_PaymentPolicy);
- begin
- FpaymentPolicies := paymentPolicies;
- end;
- procedure PaymentsProgramOnboardingResponse.Set_onboardingStatus(onboardingStatus: String);
- begin
- FonboardingStatus := onboardingStatus;
- end;
- procedure PaymentsProgramOnboardingResponse.Set_steps(steps: Array_of_PaymentsProgramOnboardingSteps);
- begin
- Fsteps := steps;
- end;
- procedure PaymentsProgramOnboardingSteps.Set_name(name: String);
- begin
- Fname := name;
- end;
- procedure PaymentsProgramOnboardingSteps.Set_status(status: String);
- begin
- Fstatus := status;
- end;
- procedure PaymentsProgramOnboardingSteps.Set_webUrl(webUrl: String);
- begin
- FwebUrl := webUrl;
- end;
- procedure PaymentsProgramResponse.Set_marketplaceId(marketplaceId: String);
- begin
- FmarketplaceId := marketplaceId;
- end;
- procedure PaymentsProgramResponse.Set_paymentsProgramType(paymentsProgramType: String);
- begin
- FpaymentsProgramType := paymentsProgramType;
- end;
- procedure PaymentsProgramResponse.Set_status(status: String);
- begin
- Fstatus := status;
- end;
- procedure PaymentsProgramResponse.Set_wasPreviouslyOptedIn(wasPreviouslyOptedIn: Boolean);
- begin
- FwasPreviouslyOptedIn := wasPreviouslyOptedIn;
- end;
- procedure Program_.Set_programType(programType: String);
- begin
- FprogramType := programType;
- end;
- procedure Programs.Set_programs(programs: Array_of_Program_);
- begin
- Fprograms := programs;
- end;
- procedure RateTable.Set_countryCode(countryCode: String);
- begin
- FcountryCode := countryCode;
- end;
- procedure RateTable.Set_locality(locality: String);
- begin
- Flocality := locality;
- end;
- procedure RateTable.Set_name(name: String);
- begin
- Fname := name;
- end;
- procedure RateTable.Set_rateTableId(rateTableId: String);
- begin
- FrateTableId := rateTableId;
- end;
- procedure RateTableResponse.Set_rateTables(rateTables: Array_of_RateTable);
- begin
- FrateTables := rateTables;
- end;
- procedure RecipientAccountReference.Set_referenceId(referenceId: String);
- begin
- FreferenceId := referenceId;
- end;
- procedure RecipientAccountReference.Set_referenceType(referenceType: String);
- begin
- FreferenceType := referenceType;
- end;
- procedure Region.Set_regionName(regionName: String);
- begin
- FregionName := regionName;
- end;
- procedure Region.Set_regionType(regionType: String);
- begin
- FregionType := regionType;
- end;
- procedure RegionSet.Set_regionExcluded(regionExcluded: Array_of_Region);
- begin
- FregionExcluded := regionExcluded;
- end;
- procedure RegionSet.Set_regionIncluded(regionIncluded: Array_of_Region);
- begin
- FregionIncluded := regionIncluded;
- end;
- procedure ReturnPolicy.Set_categoryTypes(categoryTypes: Array_of_CategoryType);
- begin
- FcategoryTypes := categoryTypes;
- end;
- procedure ReturnPolicy.Set_description(description: String);
- begin
- Fdescription := description;
- end;
- procedure ReturnPolicy.Set_extendedHolidayReturnsOffered(extendedHolidayReturnsOffered: Boolean);
- begin
- FextendedHolidayReturnsOffered := extendedHolidayReturnsOffered;
- end;
- procedure ReturnPolicy.Set_internationalOverride(internationalOverride: InternationalReturnOverrideType);
- begin
- FinternationalOverride := internationalOverride;
- end;
- procedure ReturnPolicy.Set_marketplaceId(marketplaceId: String);
- begin
- FmarketplaceId := marketplaceId;
- end;
- procedure ReturnPolicy.Set_name(name: String);
- begin
- Fname := name;
- end;
- procedure ReturnPolicy.Set_refundMethod(refundMethod: String);
- begin
- FrefundMethod := refundMethod;
- end;
- procedure ReturnPolicy.Set_restockingFeePercentage(restockingFeePercentage: String);
- begin
- FrestockingFeePercentage := restockingFeePercentage;
- end;
- procedure ReturnPolicy.Set_returnInstructions(returnInstructions: String);
- begin
- FreturnInstructions := returnInstructions;
- end;
- procedure ReturnPolicy.Set_returnMethod(returnMethod: String);
- begin
- FreturnMethod := returnMethod;
- end;
- procedure ReturnPolicy.Set_returnPeriod(returnPeriod: TimeDuration);
- begin
- FreturnPeriod := returnPeriod;
- end;
- procedure ReturnPolicy.Set_returnPolicyId(returnPolicyId: String);
- begin
- FreturnPolicyId := returnPolicyId;
- end;
- procedure ReturnPolicy.Set_returnsAccepted(returnsAccepted: Boolean);
- begin
- FreturnsAccepted := returnsAccepted;
- end;
- procedure ReturnPolicy.Set_returnShippingCostPayer(returnShippingCostPayer: String);
- begin
- FreturnShippingCostPayer := returnShippingCostPayer;
- end;
- procedure ReturnPolicyRequest.Set_categoryTypes(categoryTypes: Array_of_CategoryType);
- begin
- FcategoryTypes := categoryTypes;
- end;
- procedure ReturnPolicyRequest.Set_description(description: String);
- begin
- Fdescription := description;
- end;
- procedure ReturnPolicyRequest.Set_extendedHolidayReturnsOffered(extendedHolidayReturnsOffered: Boolean);
- begin
- FextendedHolidayReturnsOffered := extendedHolidayReturnsOffered;
- end;
- procedure ReturnPolicyRequest.Set_internationalOverride(internationalOverride: InternationalReturnOverrideType);
- begin
- FinternationalOverride := internationalOverride;
- end;
- procedure ReturnPolicyRequest.Set_marketplaceId(marketplaceId: String);
- begin
- FmarketplaceId := marketplaceId;
- end;
- procedure ReturnPolicyRequest.Set_name(name: String);
- begin
- Fname := name;
- end;
- procedure ReturnPolicyRequest.Set_refundMethod(refundMethod: String);
- begin
- FrefundMethod := refundMethod;
- end;
- procedure ReturnPolicyRequest.Set_restockingFeePercentage(restockingFeePercentage: String);
- begin
- FrestockingFeePercentage := restockingFeePercentage;
- end;
- procedure ReturnPolicyRequest.Set_returnInstructions(returnInstructions: String);
- begin
- FreturnInstructions := returnInstructions;
- end;
- procedure ReturnPolicyRequest.Set_returnMethod(returnMethod: String);
- begin
- FreturnMethod := returnMethod;
- end;
- procedure ReturnPolicyRequest.Set_returnPeriod(returnPeriod: TimeDuration);
- begin
- FreturnPeriod := returnPeriod;
- end;
- procedure ReturnPolicyRequest.Set_returnsAccepted(returnsAccepted: Boolean);
- begin
- FreturnsAccepted := returnsAccepted;
- end;
- procedure ReturnPolicyRequest.Set_returnShippingCostPayer(returnShippingCostPayer: String);
- begin
- FreturnShippingCostPayer := returnShippingCostPayer;
- end;
- procedure ReturnPolicyResponse.Set_href(href: String);
- begin
- Fhref := href;
- end;
- procedure ReturnPolicyResponse.Set_limit(limit: Integer);
- begin
- Flimit := limit;
- end;
- procedure ReturnPolicyResponse.Set_next(next: String);
- begin
- Fnext := next;
- end;
- procedure ReturnPolicyResponse.Set_offset(offset: Integer);
- begin
- Foffset := offset;
- end;
- procedure ReturnPolicyResponse.Set_prev(prev: String);
- begin
- Fprev := prev;
- end;
- procedure ReturnPolicyResponse.Set_total(total: Integer);
- begin
- Ftotal := total;
- end;
- procedure ReturnPolicyResponse.Set_returnPolicies(returnPolicies: Array_of_ReturnPolicy);
- begin
- FreturnPolicies := returnPolicies;
- end;
- procedure SalesTax.Set_countryCode(countryCode: String);
- begin
- FcountryCode := countryCode;
- end;
- procedure SalesTax.Set_salesTaxJurisdictionId(salesTaxJurisdictionId: String);
- begin
- FsalesTaxJurisdictionId := salesTaxJurisdictionId;
- end;
- procedure SalesTax.Set_salesTaxPercentage(salesTaxPercentage: String);
- begin
- FsalesTaxPercentage := salesTaxPercentage;
- end;
- procedure SalesTax.Set_shippingAndHandlingTaxed(shippingAndHandlingTaxed: Boolean);
- begin
- FshippingAndHandlingTaxed := shippingAndHandlingTaxed;
- end;
- procedure SalesTaxBase.Set_salesTaxPercentage(salesTaxPercentage: String);
- begin
- FsalesTaxPercentage := salesTaxPercentage;
- end;
- procedure SalesTaxBase.Set_shippingAndHandlingTaxed(shippingAndHandlingTaxed: Boolean);
- begin
- FshippingAndHandlingTaxed := shippingAndHandlingTaxed;
- end;
- procedure SalesTaxes.Set_salesTaxes(salesTaxes: Array_of_SalesTax);
- begin
- FsalesTaxes := salesTaxes;
- end;
- procedure SellingLimit.Set_amount(amount: Amount);
- begin
- Famount := amount;
- end;
- procedure SellingLimit.Set_quantity(quantity: Integer);
- begin
- Fquantity := quantity;
- end;
- procedure SellingPrivileges.Set_sellerRegistrationCompleted(sellerRegistrationCompleted: Boolean);
- begin
- FsellerRegistrationCompleted := sellerRegistrationCompleted;
- end;
- procedure SellingPrivileges.Set_sellingLimit(sellingLimit: SellingLimit);
- begin
- FsellingLimit := sellingLimit;
- end;
- procedure SetFulfillmentPolicyResponse.Set_categoryTypes(categoryTypes: Array_of_CategoryType);
- begin
- FcategoryTypes := categoryTypes;
- end;
- procedure SetFulfillmentPolicyResponse.Set_description(description: String);
- begin
- Fdescription := description;
- end;
- procedure SetFulfillmentPolicyResponse.Set_freightShipping(freightShipping: Boolean);
- begin
- FfreightShipping := freightShipping;
- end;
- procedure SetFulfillmentPolicyResponse.Set_fulfillmentPolicyId(fulfillmentPolicyId: String);
- begin
- FfulfillmentPolicyId := fulfillmentPolicyId;
- end;
- procedure SetFulfillmentPolicyResponse.Set_globalShipping(globalShipping: Boolean);
- begin
- FglobalShipping := globalShipping;
- end;
- procedure SetFulfillmentPolicyResponse.Set_handlingTime(handlingTime: TimeDuration);
- begin
- FhandlingTime := handlingTime;
- end;
- procedure SetFulfillmentPolicyResponse.Set_localPickup(localPickup: Boolean);
- begin
- FlocalPickup := localPickup;
- end;
- procedure SetFulfillmentPolicyResponse.Set_marketplaceId(marketplaceId: String);
- begin
- FmarketplaceId := marketplaceId;
- end;
- procedure SetFulfillmentPolicyResponse.Set_name(name: String);
- begin
- Fname := name;
- end;
- procedure SetFulfillmentPolicyResponse.Set_pickupDropOff(pickupDropOff: Boolean);
- begin
- FpickupDropOff := pickupDropOff;
- end;
- procedure SetFulfillmentPolicyResponse.Set_shippingOptions(shippingOptions: Array_of_ShippingOption);
- begin
- FshippingOptions := shippingOptions;
- end;
- procedure SetFulfillmentPolicyResponse.Set_shipToLocations(shipToLocations: RegionSet);
- begin
- FshipToLocations := shipToLocations;
- end;
- procedure SetFulfillmentPolicyResponse.Set_warnings(warnings: Array_of_Error);
- begin
- Fwarnings := warnings;
- end;
- procedure SetPaymentPolicyResponse.Set_categoryTypes(categoryTypes: Array_of_CategoryType);
- begin
- FcategoryTypes := categoryTypes;
- end;
- procedure SetPaymentPolicyResponse.Set_deposit(deposit: Deposit);
- begin
- Fdeposit := deposit;
- end;
- procedure SetPaymentPolicyResponse.Set_description(description: String);
- begin
- Fdescription := description;
- end;
- procedure SetPaymentPolicyResponse.Set_fullPaymentDueIn(fullPaymentDueIn: TimeDuration);
- begin
- FfullPaymentDueIn := fullPaymentDueIn;
- end;
- procedure SetPaymentPolicyResponse.Set_immediatePay(immediatePay: Boolean);
- begin
- FimmediatePay := immediatePay;
- end;
- procedure SetPaymentPolicyResponse.Set_marketplaceId(marketplaceId: String);
- begin
- FmarketplaceId := marketplaceId;
- end;
- procedure SetPaymentPolicyResponse.Set_name(name: String);
- begin
- Fname := name;
- end;
- procedure SetPaymentPolicyResponse.Set_paymentInstructions(paymentInstructions: String);
- begin
- FpaymentInstructions := paymentInstructions;
- end;
- procedure SetPaymentPolicyResponse.Set_paymentMethods(paymentMethods: Array_of_PaymentMethod);
- begin
- FpaymentMethods := paymentMethods;
- end;
- procedure SetPaymentPolicyResponse.Set_paymentPolicyId(paymentPolicyId: String);
- begin
- FpaymentPolicyId := paymentPolicyId;
- end;
- procedure SetPaymentPolicyResponse.Set_warnings(warnings: Array_of_Error);
- begin
- Fwarnings := warnings;
- end;
- procedure SetReturnPolicyResponse.Set_categoryTypes(categoryTypes: Array_of_CategoryType);
- begin
- FcategoryTypes := categoryTypes;
- end;
- procedure SetReturnPolicyResponse.Set_description(description: String);
- begin
- Fdescription := description;
- end;
- procedure SetReturnPolicyResponse.Set_extendedHolidayReturnsOffered(extendedHolidayReturnsOffered: Boolean);
- begin
- FextendedHolidayReturnsOffered := extendedHolidayReturnsOffered;
- end;
- procedure SetReturnPolicyResponse.Set_internationalOverride(internationalOverride: InternationalReturnOverrideType);
- begin
- FinternationalOverride := internationalOverride;
- end;
- procedure SetReturnPolicyResponse.Set_marketplaceId(marketplaceId: String);
- begin
- FmarketplaceId := marketplaceId;
- end;
- procedure SetReturnPolicyResponse.Set_name(name: String);
- begin
- Fname := name;
- end;
- procedure SetReturnPolicyResponse.Set_refundMethod(refundMethod: String);
- begin
- FrefundMethod := refundMethod;
- end;
- procedure SetReturnPolicyResponse.Set_restockingFeePercentage(restockingFeePercentage: String);
- begin
- FrestockingFeePercentage := restockingFeePercentage;
- end;
- procedure SetReturnPolicyResponse.Set_returnInstructions(returnInstructions: String);
- begin
- FreturnInstructions := returnInstructions;
- end;
- procedure SetReturnPolicyResponse.Set_returnMethod(returnMethod: String);
- begin
- FreturnMethod := returnMethod;
- end;
- procedure SetReturnPolicyResponse.Set_returnPeriod(returnPeriod: TimeDuration);
- begin
- FreturnPeriod := returnPeriod;
- end;
- procedure SetReturnPolicyResponse.Set_returnPolicyId(returnPolicyId: String);
- begin
- FreturnPolicyId := returnPolicyId;
- end;
- procedure SetReturnPolicyResponse.Set_returnsAccepted(returnsAccepted: Boolean);
- begin
- FreturnsAccepted := returnsAccepted;
- end;
- procedure SetReturnPolicyResponse.Set_returnShippingCostPayer(returnShippingCostPayer: String);
- begin
- FreturnShippingCostPayer := returnShippingCostPayer;
- end;
- procedure SetReturnPolicyResponse.Set_warnings(warnings: Array_of_Error);
- begin
- Fwarnings := warnings;
- end;
- procedure ShippingOption.Set_costType(costType: String);
- begin
- FcostType := costType;
- end;
- procedure ShippingOption.Set_insuranceFee(insuranceFee: Amount);
- begin
- FinsuranceFee := insuranceFee;
- end;
- procedure ShippingOption.Set_insuranceOffered(insuranceOffered: Boolean);
- begin
- FinsuranceOffered := insuranceOffered;
- end;
- procedure ShippingOption.Set_optionType(optionType: String);
- begin
- FoptionType := optionType;
- end;
- procedure ShippingOption.Set_packageHandlingCost(packageHandlingCost: Amount);
- begin
- FpackageHandlingCost := packageHandlingCost;
- end;
- procedure ShippingOption.Set_rateTableId(rateTableId: String);
- begin
- FrateTableId := rateTableId;
- end;
- procedure ShippingOption.Set_shippingServices(shippingServices: Array_of_ShippingService);
- begin
- FshippingServices := shippingServices;
- end;
- procedure ShippingService.Set_additionalShippingCost(additionalShippingCost: Amount);
- begin
- FadditionalShippingCost := additionalShippingCost;
- end;
- procedure ShippingService.Set_buyerResponsibleForPickup(buyerResponsibleForPickup: Boolean);
- begin
- FbuyerResponsibleForPickup := buyerResponsibleForPickup;
- end;
- procedure ShippingService.Set_buyerResponsibleForShipping(buyerResponsibleForShipping: Boolean);
- begin
- FbuyerResponsibleForShipping := buyerResponsibleForShipping;
- end;
- procedure ShippingService.Set_cashOnDeliveryFee(cashOnDeliveryFee: Amount);
- begin
- FcashOnDeliveryFee := cashOnDeliveryFee;
- end;
- procedure ShippingService.Set_freeShipping(freeShipping: Boolean);
- begin
- FfreeShipping := freeShipping;
- end;
- procedure ShippingService.Set_shippingCarrierCode(shippingCarrierCode: String);
- begin
- FshippingCarrierCode := shippingCarrierCode;
- end;
- procedure ShippingService.Set_shippingCost(shippingCost: Amount);
- begin
- FshippingCost := shippingCost;
- end;
- procedure ShippingService.Set_shippingServiceCode(shippingServiceCode: String);
- begin
- FshippingServiceCode := shippingServiceCode;
- end;
- procedure ShippingService.Set_shipToLocations(shipToLocations: RegionSet);
- begin
- FshipToLocations := shipToLocations;
- end;
- procedure ShippingService.Set_sortOrder(sortOrder: Integer);
- begin
- FsortOrder := sortOrder;
- end;
- procedure ShippingService.Set_surcharge(surcharge: Amount);
- begin
- Fsurcharge := surcharge;
- end;
- procedure TimeDuration.Set_unit_(unit_: String);
- begin
- Funit_ := unit_;
- end;
- procedure TimeDuration.Set_value(value: Integer);
- begin
- Fvalue := value;
- end;
- { Zugriffsmethoden }
- function TService.createFulfillmentPolicy(fulfillmentPolicyRequest : FulfillmentPolicyRequest) : SetFulfillmentPolicyResponse;
- var
- baseUrl : String;
- body : String;
- begin
- ClearRequest;
- baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/fulfillment_policy');
- body := '';
- body := body + 'fulfillmentPolicyRequest=' + fulfillmentPolicyRequest.ToString + #13#10;
- if body <> '' then
- begin
- Request.AddBody(body);
- end;
- Request.Client.BaseURL := baseUrl;
- Request.Method := rmPOST;
- ExecuteRequest;
- if Request.Response.Content <> '' then
- Result := TJson.JsonToObject<SetFulfillmentPolicyResponse>(Request.Response.Content)
- else
- Result := nil;
- end;
- procedure TService.deleteFulfillmentPolicy(fulfillmentPolicyId : String);
- var
- baseUrl : String;
- begin
- ClearRequest;
- baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/fulfillment_policy/{fulfillmentPolicyId}');
- baseUrl := ReplaceStr(baseUrl, '{fulfillmentPolicyId}', TNetEncoding.URL.Encode(fulfillmentPolicyId));
- Request.Client.BaseURL := baseUrl;
- Request.Method := rmDELETE;
- ExecuteRequest;
- end;
- function TService.getFulfillmentPolicies(marketplaceId : String) : FulfillmentPolicyResponse;
- var
- baseUrl : String;
- begin
- ClearRequest;
- baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/fulfillment_policy');
- Request.AddParameter('marketplaceId', marketplaceId);
- Request.Client.BaseURL := baseUrl;
- Request.Method := rmGET;
- ExecuteRequest;
- if Request.Response.Content <> '' then
- Result := TJson.JsonToObject<FulfillmentPolicyResponse>(Request.Response.Content)
- else
- Result := nil;
- end;
- function TService.getFulfillmentPolicy(fulfillmentPolicyId : String) : FulfillmentPolicy;
- var
- baseUrl : String;
- begin
- ClearRequest;
- baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/fulfillment_policy/{fulfillmentPolicyId}');
- baseUrl := ReplaceStr(baseUrl, '{fulfillmentPolicyId}', TNetEncoding.URL.Encode(fulfillmentPolicyId));
- Request.Client.BaseURL := baseUrl;
- Request.Method := rmGET;
- ExecuteRequest;
- if Request.Response.Content <> '' then
- Result := TJson.JsonToObject<FulfillmentPolicy>(Request.Response.Content)
- else
- Result := nil;
- end;
- function TService.getFulfillmentPolicyByName(marketplaceId : String; name : String) : FulfillmentPolicy;
- var
- baseUrl : String;
- begin
- ClearRequest;
- baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/fulfillment_policy/get_by_policy_name');
- Request.AddParameter('marketplaceId', marketplaceId);
- Request.AddParameter('name', name);
- Request.Client.BaseURL := baseUrl;
- Request.Method := rmGET;
- ExecuteRequest;
- if Request.Response.Content <> '' then
- Result := TJson.JsonToObject<FulfillmentPolicy>(Request.Response.Content)
- else
- Result := nil;
- end;
- function TService.updateFulfillmentPolicy(fulfillmentPolicyId : String; fulfillmentPolicyRequest : FulfillmentPolicyRequest) : SetFulfillmentPolicyResponse;
- var
- baseUrl : String;
- body : String;
- begin
- ClearRequest;
- baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/fulfillment_policy/{fulfillmentPolicyId}');
- baseUrl := ReplaceStr(baseUrl, '{fulfillmentPolicyId}', TNetEncoding.URL.Encode(fulfillmentPolicyId));
- body := '';
- body := body + 'fulfillmentPolicyRequest=' + fulfillmentPolicyRequest.ToString + #13#10;
- if body <> '' then
- begin
- Request.AddBody(body);
- end;
- Request.Client.BaseURL := baseUrl;
- Request.Method := rmPUT;
- ExecuteRequest;
- if Request.Response.Content <> '' then
- Result := TJson.JsonToObject<SetFulfillmentPolicyResponse>(Request.Response.Content)
- else
- Result := nil;
- end;
- function TService.getPaymentsProgramOnboarding(marketplaceId : String; paymentsProgramType : String) : PaymentsProgramOnboardingResponse;
- var
- baseUrl : String;
- begin
- ClearRequest;
- baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/payments_program/{marketplace_id}/{payments_program_type}/onboarding');
- baseUrl := ReplaceStr(baseUrl, '{marketplaceId}', TNetEncoding.URL.Encode(marketplaceId));
- baseUrl := ReplaceStr(baseUrl, '{paymentsProgramType}', TNetEncoding.URL.Encode(paymentsProgramType));
- Request.Client.BaseURL := baseUrl;
- Request.Method := rmGET;
- ExecuteRequest;
- if Request.Response.Content <> '' then
- Result := TJson.JsonToObject<PaymentsProgramOnboardingResponse>(Request.Response.Content)
- else
- Result := nil;
- end;
- function TService.createPaymentPolicy(paymentPolicyRequest : PaymentPolicyRequest) : SetPaymentPolicyResponse;
- var
- baseUrl : String;
- body : String;
- begin
- ClearRequest;
- baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/payment_policy');
- body := '';
- body := body + 'paymentPolicyRequest=' + paymentPolicyRequest.ToString + #13#10;
- if body <> '' then
- begin
- Request.AddBody(body);
- end;
- Request.Client.BaseURL := baseUrl;
- Request.Method := rmPOST;
- ExecuteRequest;
- if Request.Response.Content <> '' then
- Result := TJson.JsonToObject<SetPaymentPolicyResponse>(Request.Response.Content)
- else
- Result := nil;
- end;
- procedure TService.deletePaymentPolicy(paymentPolicyId : String);
- var
- baseUrl : String;
- begin
- ClearRequest;
- baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/payment_policy/{payment_policy_id}');
- baseUrl := ReplaceStr(baseUrl, '{paymentPolicyId}', TNetEncoding.URL.Encode(paymentPolicyId));
- Request.Client.BaseURL := baseUrl;
- Request.Method := rmDELETE;
- ExecuteRequest;
- end;
- function TService.getPaymentPolicies(marketplaceId : String) : PaymentPolicyResponse;
- var
- baseUrl : String;
- begin
- ClearRequest;
- baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/payment_policy');
- Request.AddParameter('marketplaceId', marketplaceId);
- Request.Client.BaseURL := baseUrl;
- Request.Method := rmGET;
- ExecuteRequest;
- if Request.Response.Content <> '' then
- Result := TJson.JsonToObject<PaymentPolicyResponse>(Request.Response.Content)
- else
- Result := nil;
- end;
- function TService.getPaymentPolicy(paymentPolicyId : String) : PaymentPolicy;
- var
- baseUrl : String;
- begin
- ClearRequest;
- baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/payment_policy/{payment_policy_id}');
- baseUrl := ReplaceStr(baseUrl, '{paymentPolicyId}', TNetEncoding.URL.Encode(paymentPolicyId));
- Request.Client.BaseURL := baseUrl;
- Request.Method := rmGET;
- ExecuteRequest;
- if Request.Response.Content <> '' then
- Result := TJson.JsonToObject<PaymentPolicy>(Request.Response.Content)
- else
- Result := nil;
- end;
- function TService.getPaymentPolicyByName(marketplaceId : String; name : String) : PaymentPolicy;
- var
- baseUrl : String;
- begin
- ClearRequest;
- baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/payment_policy/get_by_policy_name');
- Request.AddParameter('marketplaceId', marketplaceId);
- Request.AddParameter('name', name);
- Request.Client.BaseURL := baseUrl;
- Request.Method := rmGET;
- ExecuteRequest;
- if Request.Response.Content <> '' then
- Result := TJson.JsonToObject<PaymentPolicy>(Request.Response.Content)
- else
- Result := nil;
- end;
- function TService.updatePaymentPolicy(paymentPolicyId : String; paymentPolicyRequest : PaymentPolicyRequest) : SetPaymentPolicyResponse;
- var
- baseUrl : String;
- body : String;
- begin
- ClearRequest;
- baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/payment_policy/{payment_policy_id}');
- baseUrl := ReplaceStr(baseUrl, '{paymentPolicyId}', TNetEncoding.URL.Encode(paymentPolicyId));
- body := '';
- body := body + 'paymentPolicyRequest=' + paymentPolicyRequest.ToString + #13#10;
- if body <> '' then
- begin
- Request.AddBody(body);
- end;
- Request.Client.BaseURL := baseUrl;
- Request.Method := rmPUT;
- ExecuteRequest;
- if Request.Response.Content <> '' then
- Result := TJson.JsonToObject<SetPaymentPolicyResponse>(Request.Response.Content)
- else
- Result := nil;
- end;
- function TService.getPaymentsProgram(marketplaceId : String; paymentsProgramType : String) : PaymentsProgramResponse;
- var
- baseUrl : String;
- begin
- ClearRequest;
- baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/payments_program/{marketplace_id}/{payments_program_type}');
- baseUrl := ReplaceStr(baseUrl, '{marketplaceId}', TNetEncoding.URL.Encode(marketplaceId));
- baseUrl := ReplaceStr(baseUrl, '{paymentsProgramType}', TNetEncoding.URL.Encode(paymentsProgramType));
- Request.Client.BaseURL := baseUrl;
- Request.Method := rmGET;
- ExecuteRequest;
- if Request.Response.Content <> '' then
- Result := TJson.JsonToObject<PaymentsProgramResponse>(Request.Response.Content)
- else
- Result := nil;
- end;
- function TService.getPrivileges() : SellingPrivileges;
- var
- baseUrl : String;
- begin
- ClearRequest;
- baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/privilege');
- Request.Client.BaseURL := baseUrl;
- Request.Method := rmGET;
- ExecuteRequest;
- if Request.Response.Content <> '' then
- Result := TJson.JsonToObject<SellingPrivileges>(Request.Response.Content)
- else
- Result := nil;
- end;
- function TService.getOptedInPrograms() : Programs;
- var
- baseUrl : String;
- begin
- ClearRequest;
- baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/program/get_opted_in_programs');
- Request.Client.BaseURL := baseUrl;
- Request.Method := rmGET;
- ExecuteRequest;
- if Request.Response.Content <> '' then
- Result := TJson.JsonToObject<Programs>(Request.Response.Content)
- else
- Result := nil;
- end;
- function TService.optInToProgram(program_ : Program_) : TObject;
- var
- baseUrl : String;
- body : String;
- begin
- ClearRequest;
- baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/program/opt_in');
- body := '';
- body := body + 'program_=' + program_.ToString + #13#10;
- if body <> '' then
- begin
- Request.AddBody(body);
- end;
- Request.Client.BaseURL := baseUrl;
- Request.Method := rmPOST;
- ExecuteRequest;
- if Request.Response.Content <> '' then
- Result := TJson.JsonToObject<TObject>(Request.Response.Content)
- else
- Result := nil;
- end;
- function TService.optOutOfProgram(program_ : Program_) : TObject;
- var
- baseUrl : String;
- body : String;
- begin
- ClearRequest;
- baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/program/opt_out');
- body := '';
- body := body + 'program_=' + program_.ToString + #13#10;
- if body <> '' then
- begin
- Request.AddBody(body);
- end;
- Request.Client.BaseURL := baseUrl;
- Request.Method := rmPOST;
- ExecuteRequest;
- if Request.Response.Content <> '' then
- Result := TJson.JsonToObject<TObject>(Request.Response.Content)
- else
- Result := nil;
- end;
- function TService.getRateTables(countryCode : String) : RateTableResponse;
- var
- baseUrl : String;
- begin
- ClearRequest;
- baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/rate_table');
- Request.AddParameter('countryCode', countryCode);
- Request.Client.BaseURL := baseUrl;
- Request.Method := rmGET;
- ExecuteRequest;
- if Request.Response.Content <> '' then
- Result := TJson.JsonToObject<RateTableResponse>(Request.Response.Content)
- else
- Result := nil;
- end;
- function TService.createReturnPolicy(returnPolicyRequest : ReturnPolicyRequest) : SetReturnPolicyResponse;
- var
- baseUrl : String;
- body : String;
- begin
- ClearRequest;
- baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/return_policy');
- body := '';
- body := body + 'returnPolicyRequest=' + returnPolicyRequest.ToString + #13#10;
- if body <> '' then
- begin
- Request.AddBody(body);
- end;
- Request.Client.BaseURL := baseUrl;
- Request.Method := rmPOST;
- ExecuteRequest;
- if Request.Response.Content <> '' then
- Result := TJson.JsonToObject<SetReturnPolicyResponse>(Request.Response.Content)
- else
- Result := nil;
- end;
- procedure TService.deleteReturnPolicy(returnPolicyId : String);
- var
- baseUrl : String;
- begin
- ClearRequest;
- baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/return_policy/{return_policy_id}');
- baseUrl := ReplaceStr(baseUrl, '{returnPolicyId}', TNetEncoding.URL.Encode(returnPolicyId));
- Request.Client.BaseURL := baseUrl;
- Request.Method := rmDELETE;
- ExecuteRequest;
- end;
- function TService.getReturnPolicies(marketplaceId : String) : ReturnPolicyResponse;
- var
- baseUrl : String;
- begin
- ClearRequest;
- baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/return_policy');
- Request.AddParameter('marketplaceId', marketplaceId);
- Request.Client.BaseURL := baseUrl;
- Request.Method := rmGET;
- ExecuteRequest;
- if Request.Response.Content <> '' then
- Result := TJson.JsonToObject<ReturnPolicyResponse>(Request.Response.Content)
- else
- Result := nil;
- end;
- function TService.getReturnPolicy(returnPolicyId : String) : ReturnPolicy;
- var
- baseUrl : String;
- begin
- ClearRequest;
- baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/return_policy/{return_policy_id}');
- baseUrl := ReplaceStr(baseUrl, '{returnPolicyId}', TNetEncoding.URL.Encode(returnPolicyId));
- Request.Client.BaseURL := baseUrl;
- Request.Method := rmGET;
- ExecuteRequest;
- if Request.Response.Content <> '' then
- Result := TJson.JsonToObject<ReturnPolicy>(Request.Response.Content)
- else
- Result := nil;
- end;
- function TService.getReturnPolicyByName(marketplaceId : String; name : String) : ReturnPolicy;
- var
- baseUrl : String;
- begin
- ClearRequest;
- baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/return_policy/get_by_policy_name');
- Request.AddParameter('marketplaceId', marketplaceId);
- Request.AddParameter('name', name);
- Request.Client.BaseURL := baseUrl;
- Request.Method := rmGET;
- ExecuteRequest;
- if Request.Response.Content <> '' then
- Result := TJson.JsonToObject<ReturnPolicy>(Request.Response.Content)
- else
- Result := nil;
- end;
- function TService.updateReturnPolicy(returnPolicyId : String; returnPolicyRequest : ReturnPolicyRequest) : SetReturnPolicyResponse;
- var
- baseUrl : String;
- body : String;
- begin
- ClearRequest;
- baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/return_policy/{return_policy_id}');
- baseUrl := ReplaceStr(baseUrl, '{returnPolicyId}', TNetEncoding.URL.Encode(returnPolicyId));
- body := '';
- body := body + 'returnPolicyRequest=' + returnPolicyRequest.ToString + #13#10;
- if body <> '' then
- begin
- Request.AddBody(body);
- end;
- Request.Client.BaseURL := baseUrl;
- Request.Method := rmPUT;
- ExecuteRequest;
- if Request.Response.Content <> '' then
- Result := TJson.JsonToObject<SetReturnPolicyResponse>(Request.Response.Content)
- else
- Result := nil;
- end;
- procedure TService.createOrReplaceSalesTax(countryCode : String; jurisdictionId : String; salesTaxBase : SalesTaxBase);
- var
- baseUrl : String;
- body : String;
- begin
- ClearRequest;
- baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/sales_tax/{countryCode}/{jurisdictionId}');
- baseUrl := ReplaceStr(baseUrl, '{countryCode}', TNetEncoding.URL.Encode(countryCode));
- baseUrl := ReplaceStr(baseUrl, '{jurisdictionId}', TNetEncoding.URL.Encode(jurisdictionId));
- body := '';
- body := body + 'salesTaxBase=' + salesTaxBase.ToString + #13#10;
- if body <> '' then
- begin
- Request.AddBody(body);
- end;
- Request.Client.BaseURL := baseUrl;
- Request.Method := rmPUT;
- ExecuteRequest;
- end;
- procedure TService.deleteSalesTax(countryCode : String; jurisdictionId : String);
- var
- baseUrl : String;
- begin
- ClearRequest;
- baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/sales_tax/{countryCode}/{jurisdictionId}');
- baseUrl := ReplaceStr(baseUrl, '{countryCode}', TNetEncoding.URL.Encode(countryCode));
- baseUrl := ReplaceStr(baseUrl, '{jurisdictionId}', TNetEncoding.URL.Encode(jurisdictionId));
- Request.Client.BaseURL := baseUrl;
- Request.Method := rmDELETE;
- ExecuteRequest;
- end;
- function TService.getSalesTax(countryCode : String; jurisdictionId : String) : SalesTax;
- var
- baseUrl : String;
- begin
- ClearRequest;
- baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/sales_tax/{countryCode}/{jurisdictionId}');
- baseUrl := ReplaceStr(baseUrl, '{countryCode}', TNetEncoding.URL.Encode(countryCode));
- baseUrl := ReplaceStr(baseUrl, '{jurisdictionId}', TNetEncoding.URL.Encode(jurisdictionId));
- Request.Client.BaseURL := baseUrl;
- Request.Method := rmGET;
- ExecuteRequest;
- if Request.Response.Content <> '' then
- Result := TJson.JsonToObject<SalesTax>(Request.Response.Content)
- else
- Result := nil;
- end;
- function TService.getSalesTaxes(countryCode : String) : SalesTaxes;
- var
- baseUrl : String;
- begin
- ClearRequest;
- baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/sales_tax');
- Request.AddParameter('countryCode', countryCode);
- Request.Client.BaseURL := baseUrl;
- Request.Method := rmGET;
- ExecuteRequest;
- if Request.Response.Content <> '' then
- Result := TJson.JsonToObject<SalesTaxes>(Request.Response.Content)
- else
- Result := nil;
- end;
- constructor TService.Create();
- begin
- Request := TRESTRequest.Create(nil);
- Request.Client := TRestClient.Create(nil);
- Request.Response := TRESTResponse.Create(nil);
- end;
- destructor TService.Destroy();
- begin
- Request.Response.Free;
- Request.Client.Free;
- FreeAndNil(Request);
- end;
- procedure TService.ClearRequest;
- begin
- Request.ClearBody;
- Request.Params.Clear;
- end;
- procedure TService.ExecuteRequest;
- begin
- if Assigned(OnBeforeRequest) then
- OnBeforeRequest(Request);
- Request.Execute;
- if Assigned(OnAfterRequest) then
- OnAfterRequest(Request);
- end;
- end.
Add Comment
Please, Sign In to add comment