Zwixx

Untitled

May 14th, 2020
609
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 120.09 KB | None | 0 0
  1. unit Rest.Service.Ebay.Account;
  2.  
  3. { ********************************************************************** }
  4. {                                                                        }
  5. { Dies ist ein automatisch generiertes Unit aus:                         }
  6. { 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>.                                            }
  7. {                                                                        }
  8. { ********************************************************************** }
  9.  
  10. interface
  11.  
  12. uses REST.Types, REST.Client, System.JSON, REST.Json, System.SysUtils,
  13.   System.StrUtils, NetEncoding;
  14.  
  15. const
  16.   host = 'https://api.ebay.com{basePath}';
  17.  
  18. type
  19.  
  20.   Amount = class;
  21.   CategoryType = class;
  22.   Deposit = class;
  23.   Error = class;
  24.   ErrorParameter = class;
  25.   FulfillmentPolicy = class;
  26.   FulfillmentPolicyRequest = class;
  27.   FulfillmentPolicyResponse = class;
  28.   InternationalReturnOverrideType = class;
  29.   PaymentMethod = class;
  30.   PaymentPolicy = class;
  31.   PaymentPolicyRequest = class;
  32.   PaymentPolicyResponse = class;
  33.   PaymentsProgramOnboardingResponse = class;
  34.   PaymentsProgramOnboardingSteps = class;
  35.   PaymentsProgramResponse = class;
  36.   Program_ = class;
  37.   Programs = class;
  38.   RateTable = class;
  39.   RateTableResponse = class;
  40.   RecipientAccountReference = class;
  41.   Region = class;
  42.   RegionSet = class;
  43.   ReturnPolicy = class;
  44.   ReturnPolicyRequest = class;
  45.   ReturnPolicyResponse = class;
  46.   SalesTax = class;
  47.   SalesTaxBase = class;
  48.   SalesTaxes = class;
  49.   SellingLimit = class;
  50.   SellingPrivileges = class;
  51.   SetFulfillmentPolicyResponse = class;
  52.   SetPaymentPolicyResponse = class;
  53.   SetReturnPolicyResponse = class;
  54.   ShippingOption = class;
  55.   ShippingService = class;
  56.   TimeDuration = class;
  57.  
  58.   Array_of_ErrorParameter = Array of ErrorParameter;
  59.   Array_of_FulfillmentPolicy = Array of FulfillmentPolicy;
  60.   Array_of_PaymentMethod = Array of PaymentMethod;
  61.   Array_of_PaymentPolicy = Array of PaymentPolicy;
  62.   Array_of_CategoryType = Array of CategoryType;
  63.   Array_of_string = Array of string;
  64.   Array_of_ShippingService = Array of ShippingService;
  65.   Array_of_Program_ = Array of Program_;
  66.   Array_of_Error = Array of Error;
  67.   Array_of_Region = Array of Region;
  68.   Array_of_ReturnPolicy = Array of ReturnPolicy;
  69.   Array_of_SalesTax = Array of SalesTax;
  70.   Array_of_RateTable = Array of RateTable;
  71.   Array_of_PaymentsProgramOnboardingSteps = Array of PaymentsProgramOnboardingSteps;
  72.   Array_of_ShippingOption = Array of ShippingOption;
  73.  
  74.  
  75.   Amount = class(TObject)
  76.   private
  77.     { Variablen }
  78.     Fcurrency : String;
  79.     Fvalue : String;
  80.     { Getter }
  81.     function Get_currency() : String;
  82.     function Get_value() : String;
  83.     { Setter }
  84.     procedure Set_currency(currency : String);
  85.     procedure Set_value(value : String);
  86.   public
  87.     property currency: String read Get_currency write Set_currency;
  88.     property value: String read Get_value write Set_value;
  89.   end;
  90.  
  91.   CategoryType = class(TObject)
  92.   private
  93.     { Variablen }
  94.     Fdefault : Boolean;
  95.     Fname : String;
  96.     { Getter }
  97.     function Get_default() : Boolean;
  98.     function Get_name() : String;
  99.     { Setter }
  100.     procedure Set_default(default : Boolean);
  101.     procedure Set_name(name : String);
  102.   public
  103.     property default: Boolean read Get_default write Set_default;
  104.     property name: String read Get_name write Set_name;
  105.   end;
  106.  
  107.   Deposit = class(TObject)
  108.   private
  109.     { Variablen }
  110.     Famount : Amount;
  111.     FdueIn : TimeDuration;
  112.     FpaymentMethods : Array_of_PaymentMethod;
  113.     { Getter }
  114.     function Get_amount() : Amount;
  115.     function Get_dueIn() : TimeDuration;
  116.     function Get_paymentMethods() : Array_of_PaymentMethod;
  117.     { Setter }
  118.     procedure Set_amount(amount : Amount);
  119.     procedure Set_dueIn(dueIn : TimeDuration);
  120.     procedure Set_paymentMethods(paymentMethods : Array_of_PaymentMethod);
  121.   public
  122.     property amount: Amount read Get_amount write Set_amount;
  123.     property dueIn: TimeDuration read Get_dueIn write Set_dueIn;
  124.     property paymentMethods: Array_of_PaymentMethod read Get_paymentMethods write Set_paymentMethods;
  125.   end;
  126.  
  127.   Error = class(TObject)
  128.   private
  129.     { Variablen }
  130.     Fcategory : String;
  131.     Fdomain : String;
  132.     FerrorId : Integer;
  133.     FinputRefIds : Array_of_string;
  134.     FlongMessage : String;
  135.     Fmessage : String;
  136.     FoutputRefIds : Array_of_string;
  137.     Fparameters : Array_of_ErrorParameter;
  138.     Fsubdomain : String;
  139.     { Getter }
  140.     function Get_category() : String;
  141.     function Get_domain() : String;
  142.     function Get_errorId() : Integer;
  143.     function Get_inputRefIds() : Array_of_string;
  144.     function Get_longMessage() : String;
  145.     function Get_message() : String;
  146.     function Get_outputRefIds() : Array_of_string;
  147.     function Get_parameters() : Array_of_ErrorParameter;
  148.     function Get_subdomain() : String;
  149.     { Setter }
  150.     procedure Set_category(category : String);
  151.     procedure Set_domain(domain : String);
  152.     procedure Set_errorId(errorId : Integer);
  153.     procedure Set_inputRefIds(inputRefIds : Array_of_string);
  154.     procedure Set_longMessage(longMessage : String);
  155.     procedure Set_message(message : String);
  156.     procedure Set_outputRefIds(outputRefIds : Array_of_string);
  157.     procedure Set_parameters(parameters : Array_of_ErrorParameter);
  158.     procedure Set_subdomain(subdomain : String);
  159.   public
  160.     property category: String read Get_category write Set_category;
  161.     property domain: String read Get_domain write Set_domain;
  162.     property errorId: Integer read Get_errorId write Set_errorId;
  163.     property inputRefIds: Array_of_string read Get_inputRefIds write Set_inputRefIds;
  164.     property longMessage: String read Get_longMessage write Set_longMessage;
  165.     property message: String read Get_message write Set_message;
  166.     property outputRefIds: Array_of_string read Get_outputRefIds write Set_outputRefIds;
  167.     property parameters: Array_of_ErrorParameter read Get_parameters write Set_parameters;
  168.     property subdomain: String read Get_subdomain write Set_subdomain;
  169.   end;
  170.  
  171.   ErrorParameter = class(TObject)
  172.   private
  173.     { Variablen }
  174.     Fname : String;
  175.     Fvalue : String;
  176.     { Getter }
  177.     function Get_name() : String;
  178.     function Get_value() : String;
  179.     { Setter }
  180.     procedure Set_name(name : String);
  181.     procedure Set_value(value : String);
  182.   public
  183.     property name: String read Get_name write Set_name;
  184.     property value: String read Get_value write Set_value;
  185.   end;
  186.  
  187.   FulfillmentPolicy = class(TObject)
  188.   private
  189.     { Variablen }
  190.     FcategoryTypes : Array_of_CategoryType;
  191.     Fdescription : String;
  192.     FfreightShipping : Boolean;
  193.     FfulfillmentPolicyId : String;
  194.     FglobalShipping : Boolean;
  195.     FhandlingTime : TimeDuration;
  196.     FlocalPickup : Boolean;
  197.     FmarketplaceId : String;
  198.     Fname : String;
  199.     FpickupDropOff : Boolean;
  200.     FshippingOptions : Array_of_ShippingOption;
  201.     FshipToLocations : RegionSet;
  202.     { Getter }
  203.     function Get_categoryTypes() : Array_of_CategoryType;
  204.     function Get_description() : String;
  205.     function Get_freightShipping() : Boolean;
  206.     function Get_fulfillmentPolicyId() : String;
  207.     function Get_globalShipping() : Boolean;
  208.     function Get_handlingTime() : TimeDuration;
  209.     function Get_localPickup() : Boolean;
  210.     function Get_marketplaceId() : String;
  211.     function Get_name() : String;
  212.     function Get_pickupDropOff() : Boolean;
  213.     function Get_shippingOptions() : Array_of_ShippingOption;
  214.     function Get_shipToLocations() : RegionSet;
  215.     { Setter }
  216.     procedure Set_categoryTypes(categoryTypes : Array_of_CategoryType);
  217.     procedure Set_description(description : String);
  218.     procedure Set_freightShipping(freightShipping : Boolean);
  219.     procedure Set_fulfillmentPolicyId(fulfillmentPolicyId : String);
  220.     procedure Set_globalShipping(globalShipping : Boolean);
  221.     procedure Set_handlingTime(handlingTime : TimeDuration);
  222.     procedure Set_localPickup(localPickup : Boolean);
  223.     procedure Set_marketplaceId(marketplaceId : String);
  224.     procedure Set_name(name : String);
  225.     procedure Set_pickupDropOff(pickupDropOff : Boolean);
  226.     procedure Set_shippingOptions(shippingOptions : Array_of_ShippingOption);
  227.     procedure Set_shipToLocations(shipToLocations : RegionSet);
  228.   public
  229.     property categoryTypes: Array_of_CategoryType read Get_categoryTypes write Set_categoryTypes;
  230.     property description: String read Get_description write Set_description;
  231.     property freightShipping: Boolean read Get_freightShipping write Set_freightShipping;
  232.     property fulfillmentPolicyId: String read Get_fulfillmentPolicyId write Set_fulfillmentPolicyId;
  233.     property globalShipping: Boolean read Get_globalShipping write Set_globalShipping;
  234.     property handlingTime: TimeDuration read Get_handlingTime write Set_handlingTime;
  235.     property localPickup: Boolean read Get_localPickup write Set_localPickup;
  236.     property marketplaceId: String read Get_marketplaceId write Set_marketplaceId;
  237.     property name: String read Get_name write Set_name;
  238.     property pickupDropOff: Boolean read Get_pickupDropOff write Set_pickupDropOff;
  239.     property shippingOptions: Array_of_ShippingOption read Get_shippingOptions write Set_shippingOptions;
  240.     property shipToLocations: RegionSet read Get_shipToLocations write Set_shipToLocations;
  241.   end;
  242.  
  243.   FulfillmentPolicyRequest = class(TObject)
  244.   private
  245.     { Variablen }
  246.     FcategoryTypes : Array_of_CategoryType;
  247.     Fdescription : String;
  248.     FfreightShipping : Boolean;
  249.     FglobalShipping : Boolean;
  250.     FhandlingTime : TimeDuration;
  251.     FlocalPickup : Boolean;
  252.     FmarketplaceId : String;
  253.     Fname : String;
  254.     FpickupDropOff : Boolean;
  255.     FshippingOptions : Array_of_ShippingOption;
  256.     FshipToLocations : RegionSet;
  257.     { Getter }
  258.     function Get_categoryTypes() : Array_of_CategoryType;
  259.     function Get_description() : String;
  260.     function Get_freightShipping() : Boolean;
  261.     function Get_globalShipping() : Boolean;
  262.     function Get_handlingTime() : TimeDuration;
  263.     function Get_localPickup() : Boolean;
  264.     function Get_marketplaceId() : String;
  265.     function Get_name() : String;
  266.     function Get_pickupDropOff() : Boolean;
  267.     function Get_shippingOptions() : Array_of_ShippingOption;
  268.     function Get_shipToLocations() : RegionSet;
  269.     { Setter }
  270.     procedure Set_categoryTypes(categoryTypes : Array_of_CategoryType);
  271.     procedure Set_description(description : String);
  272.     procedure Set_freightShipping(freightShipping : Boolean);
  273.     procedure Set_globalShipping(globalShipping : Boolean);
  274.     procedure Set_handlingTime(handlingTime : TimeDuration);
  275.     procedure Set_localPickup(localPickup : Boolean);
  276.     procedure Set_marketplaceId(marketplaceId : String);
  277.     procedure Set_name(name : String);
  278.     procedure Set_pickupDropOff(pickupDropOff : Boolean);
  279.     procedure Set_shippingOptions(shippingOptions : Array_of_ShippingOption);
  280.     procedure Set_shipToLocations(shipToLocations : RegionSet);
  281.   public
  282.     property categoryTypes: Array_of_CategoryType read Get_categoryTypes write Set_categoryTypes;
  283.     property description: String read Get_description write Set_description;
  284.     property freightShipping: Boolean read Get_freightShipping write Set_freightShipping;
  285.     property globalShipping: Boolean read Get_globalShipping write Set_globalShipping;
  286.     property handlingTime: TimeDuration read Get_handlingTime write Set_handlingTime;
  287.     property localPickup: Boolean read Get_localPickup write Set_localPickup;
  288.     property marketplaceId: String read Get_marketplaceId write Set_marketplaceId;
  289.     property name: String read Get_name write Set_name;
  290.     property pickupDropOff: Boolean read Get_pickupDropOff write Set_pickupDropOff;
  291.     property shippingOptions: Array_of_ShippingOption read Get_shippingOptions write Set_shippingOptions;
  292.     property shipToLocations: RegionSet read Get_shipToLocations write Set_shipToLocations;
  293.   end;
  294.  
  295.   FulfillmentPolicyResponse = class(TObject)
  296.   private
  297.     { Variablen }
  298.     FfulfillmentPolicies : Array_of_FulfillmentPolicy;
  299.     Fhref : String;
  300.     Flimit : Integer;
  301.     Fnext : String;
  302.     Foffset : Integer;
  303.     Fprev : String;
  304.     Ftotal : Integer;
  305.     { Getter }
  306.     function Get_fulfillmentPolicies() : Array_of_FulfillmentPolicy;
  307.     function Get_href() : String;
  308.     function Get_limit() : Integer;
  309.     function Get_next() : String;
  310.     function Get_offset() : Integer;
  311.     function Get_prev() : String;
  312.     function Get_total() : Integer;
  313.     { Setter }
  314.     procedure Set_fulfillmentPolicies(fulfillmentPolicies : Array_of_FulfillmentPolicy);
  315.     procedure Set_href(href : String);
  316.     procedure Set_limit(limit : Integer);
  317.     procedure Set_next(next : String);
  318.     procedure Set_offset(offset : Integer);
  319.     procedure Set_prev(prev : String);
  320.     procedure Set_total(total : Integer);
  321.   public
  322.     property fulfillmentPolicies: Array_of_FulfillmentPolicy read Get_fulfillmentPolicies write Set_fulfillmentPolicies;
  323.     property href: String read Get_href write Set_href;
  324.     property limit: Integer read Get_limit write Set_limit;
  325.     property next: String read Get_next write Set_next;
  326.     property offset: Integer read Get_offset write Set_offset;
  327.     property prev: String read Get_prev write Set_prev;
  328.     property total: Integer read Get_total write Set_total;
  329.   end;
  330.  
  331.   InternationalReturnOverrideType = class(TObject)
  332.   private
  333.     { Variablen }
  334.     FreturnMethod : String;
  335.     FreturnPeriod : TimeDuration;
  336.     FreturnsAccepted : Boolean;
  337.     FreturnShippingCostPayer : String;
  338.     { Getter }
  339.     function Get_returnMethod() : String;
  340.     function Get_returnPeriod() : TimeDuration;
  341.     function Get_returnsAccepted() : Boolean;
  342.     function Get_returnShippingCostPayer() : String;
  343.     { Setter }
  344.     procedure Set_returnMethod(returnMethod : String);
  345.     procedure Set_returnPeriod(returnPeriod : TimeDuration);
  346.     procedure Set_returnsAccepted(returnsAccepted : Boolean);
  347.     procedure Set_returnShippingCostPayer(returnShippingCostPayer : String);
  348.   public
  349.     property returnMethod: String read Get_returnMethod write Set_returnMethod;
  350.     property returnPeriod: TimeDuration read Get_returnPeriod write Set_returnPeriod;
  351.     property returnsAccepted: Boolean read Get_returnsAccepted write Set_returnsAccepted;
  352.     property returnShippingCostPayer: String read Get_returnShippingCostPayer write Set_returnShippingCostPayer;
  353.   end;
  354.  
  355.   PaymentMethod = class(TObject)
  356.   private
  357.     { Variablen }
  358.     Fbrands : Array_of_string;
  359.     FpaymentMethodType : String;
  360.     FrecipientAccountReference : RecipientAccountReference;
  361.     { Getter }
  362.     function Get_brands() : Array_of_string;
  363.     function Get_paymentMethodType() : String;
  364.     function Get_recipientAccountReference() : RecipientAccountReference;
  365.     { Setter }
  366.     procedure Set_brands(brands : Array_of_string);
  367.     procedure Set_paymentMethodType(paymentMethodType : String);
  368.     procedure Set_recipientAccountReference(recipientAccountReference : RecipientAccountReference);
  369.   public
  370.     property brands: Array_of_string read Get_brands write Set_brands;
  371.     property paymentMethodType: String read Get_paymentMethodType write Set_paymentMethodType;
  372.     property recipientAccountReference: RecipientAccountReference read Get_recipientAccountReference write Set_recipientAccountReference;
  373.   end;
  374.  
  375.   PaymentPolicy = class(TObject)
  376.   private
  377.     { Variablen }
  378.     FcategoryTypes : Array_of_CategoryType;
  379.     Fdeposit : Deposit;
  380.     Fdescription : String;
  381.     FfullPaymentDueIn : TimeDuration;
  382.     FimmediatePay : Boolean;
  383.     FmarketplaceId : String;
  384.     Fname : String;
  385.     FpaymentInstructions : String;
  386.     FpaymentMethods : Array_of_PaymentMethod;
  387.     FpaymentPolicyId : String;
  388.     { Getter }
  389.     function Get_categoryTypes() : Array_of_CategoryType;
  390.     function Get_deposit() : Deposit;
  391.     function Get_description() : String;
  392.     function Get_fullPaymentDueIn() : TimeDuration;
  393.     function Get_immediatePay() : Boolean;
  394.     function Get_marketplaceId() : String;
  395.     function Get_name() : String;
  396.     function Get_paymentInstructions() : String;
  397.     function Get_paymentMethods() : Array_of_PaymentMethod;
  398.     function Get_paymentPolicyId() : String;
  399.     { Setter }
  400.     procedure Set_categoryTypes(categoryTypes : Array_of_CategoryType);
  401.     procedure Set_deposit(deposit : Deposit);
  402.     procedure Set_description(description : String);
  403.     procedure Set_fullPaymentDueIn(fullPaymentDueIn : TimeDuration);
  404.     procedure Set_immediatePay(immediatePay : Boolean);
  405.     procedure Set_marketplaceId(marketplaceId : String);
  406.     procedure Set_name(name : String);
  407.     procedure Set_paymentInstructions(paymentInstructions : String);
  408.     procedure Set_paymentMethods(paymentMethods : Array_of_PaymentMethod);
  409.     procedure Set_paymentPolicyId(paymentPolicyId : String);
  410.   public
  411.     property categoryTypes: Array_of_CategoryType read Get_categoryTypes write Set_categoryTypes;
  412.     property deposit: Deposit read Get_deposit write Set_deposit;
  413.     property description: String read Get_description write Set_description;
  414.     property fullPaymentDueIn: TimeDuration read Get_fullPaymentDueIn write Set_fullPaymentDueIn;
  415.     property immediatePay: Boolean read Get_immediatePay write Set_immediatePay;
  416.     property marketplaceId: String read Get_marketplaceId write Set_marketplaceId;
  417.     property name: String read Get_name write Set_name;
  418.     property paymentInstructions: String read Get_paymentInstructions write Set_paymentInstructions;
  419.     property paymentMethods: Array_of_PaymentMethod read Get_paymentMethods write Set_paymentMethods;
  420.     property paymentPolicyId: String read Get_paymentPolicyId write Set_paymentPolicyId;
  421.   end;
  422.  
  423.   PaymentPolicyRequest = class(TObject)
  424.   private
  425.     { Variablen }
  426.     FcategoryTypes : Array_of_CategoryType;
  427.     Fdeposit : Deposit;
  428.     Fdescription : String;
  429.     FfullPaymentDueIn : TimeDuration;
  430.     FimmediatePay : Boolean;
  431.     FmarketplaceId : String;
  432.     Fname : String;
  433.     FpaymentInstructions : String;
  434.     FpaymentMethods : Array_of_PaymentMethod;
  435.     { Getter }
  436.     function Get_categoryTypes() : Array_of_CategoryType;
  437.     function Get_deposit() : Deposit;
  438.     function Get_description() : String;
  439.     function Get_fullPaymentDueIn() : TimeDuration;
  440.     function Get_immediatePay() : Boolean;
  441.     function Get_marketplaceId() : String;
  442.     function Get_name() : String;
  443.     function Get_paymentInstructions() : String;
  444.     function Get_paymentMethods() : Array_of_PaymentMethod;
  445.     { Setter }
  446.     procedure Set_categoryTypes(categoryTypes : Array_of_CategoryType);
  447.     procedure Set_deposit(deposit : Deposit);
  448.     procedure Set_description(description : String);
  449.     procedure Set_fullPaymentDueIn(fullPaymentDueIn : TimeDuration);
  450.     procedure Set_immediatePay(immediatePay : Boolean);
  451.     procedure Set_marketplaceId(marketplaceId : String);
  452.     procedure Set_name(name : String);
  453.     procedure Set_paymentInstructions(paymentInstructions : String);
  454.     procedure Set_paymentMethods(paymentMethods : Array_of_PaymentMethod);
  455.   public
  456.     property categoryTypes: Array_of_CategoryType read Get_categoryTypes write Set_categoryTypes;
  457.     property deposit: Deposit read Get_deposit write Set_deposit;
  458.     property description: String read Get_description write Set_description;
  459.     property fullPaymentDueIn: TimeDuration read Get_fullPaymentDueIn write Set_fullPaymentDueIn;
  460.     property immediatePay: Boolean read Get_immediatePay write Set_immediatePay;
  461.     property marketplaceId: String read Get_marketplaceId write Set_marketplaceId;
  462.     property name: String read Get_name write Set_name;
  463.     property paymentInstructions: String read Get_paymentInstructions write Set_paymentInstructions;
  464.     property paymentMethods: Array_of_PaymentMethod read Get_paymentMethods write Set_paymentMethods;
  465.   end;
  466.  
  467.   PaymentPolicyResponse = class(TObject)
  468.   private
  469.     { Variablen }
  470.     Fhref : String;
  471.     Flimit : Integer;
  472.     Fnext : String;
  473.     Foffset : Integer;
  474.     Fprev : String;
  475.     Ftotal : Integer;
  476.     FpaymentPolicies : Array_of_PaymentPolicy;
  477.     { Getter }
  478.     function Get_href() : String;
  479.     function Get_limit() : Integer;
  480.     function Get_next() : String;
  481.     function Get_offset() : Integer;
  482.     function Get_prev() : String;
  483.     function Get_total() : Integer;
  484.     function Get_paymentPolicies() : Array_of_PaymentPolicy;
  485.     { Setter }
  486.     procedure Set_href(href : String);
  487.     procedure Set_limit(limit : Integer);
  488.     procedure Set_next(next : String);
  489.     procedure Set_offset(offset : Integer);
  490.     procedure Set_prev(prev : String);
  491.     procedure Set_total(total : Integer);
  492.     procedure Set_paymentPolicies(paymentPolicies : Array_of_PaymentPolicy);
  493.   public
  494.     property href: String read Get_href write Set_href;
  495.     property limit: Integer read Get_limit write Set_limit;
  496.     property next: String read Get_next write Set_next;
  497.     property offset: Integer read Get_offset write Set_offset;
  498.     property prev: String read Get_prev write Set_prev;
  499.     property total: Integer read Get_total write Set_total;
  500.     property paymentPolicies: Array_of_PaymentPolicy read Get_paymentPolicies write Set_paymentPolicies;
  501.   end;
  502.  
  503.   PaymentsProgramOnboardingResponse = class(TObject)
  504.   private
  505.     { Variablen }
  506.     FonboardingStatus : String;
  507.     Fsteps : Array_of_PaymentsProgramOnboardingSteps;
  508.     { Getter }
  509.     function Get_onboardingStatus() : String;
  510.     function Get_steps() : Array_of_PaymentsProgramOnboardingSteps;
  511.     { Setter }
  512.     procedure Set_onboardingStatus(onboardingStatus : String);
  513.     procedure Set_steps(steps : Array_of_PaymentsProgramOnboardingSteps);
  514.   public
  515.     property onboardingStatus: String read Get_onboardingStatus write Set_onboardingStatus;
  516.     property steps: Array_of_PaymentsProgramOnboardingSteps read Get_steps write Set_steps;
  517.   end;
  518.  
  519.   PaymentsProgramOnboardingSteps = class(TObject)
  520.   private
  521.     { Variablen }
  522.     Fname : String;
  523.     Fstatus : String;
  524.     FwebUrl : String;
  525.     { Getter }
  526.     function Get_name() : String;
  527.     function Get_status() : String;
  528.     function Get_webUrl() : String;
  529.     { Setter }
  530.     procedure Set_name(name : String);
  531.     procedure Set_status(status : String);
  532.     procedure Set_webUrl(webUrl : String);
  533.   public
  534.     property name: String read Get_name write Set_name;
  535.     property status: String read Get_status write Set_status;
  536.     property webUrl: String read Get_webUrl write Set_webUrl;
  537.   end;
  538.  
  539.   PaymentsProgramResponse = class(TObject)
  540.   private
  541.     { Variablen }
  542.     FmarketplaceId : String;
  543.     FpaymentsProgramType : String;
  544.     Fstatus : String;
  545.     FwasPreviouslyOptedIn : Boolean;
  546.     { Getter }
  547.     function Get_marketplaceId() : String;
  548.     function Get_paymentsProgramType() : String;
  549.     function Get_status() : String;
  550.     function Get_wasPreviouslyOptedIn() : Boolean;
  551.     { Setter }
  552.     procedure Set_marketplaceId(marketplaceId : String);
  553.     procedure Set_paymentsProgramType(paymentsProgramType : String);
  554.     procedure Set_status(status : String);
  555.     procedure Set_wasPreviouslyOptedIn(wasPreviouslyOptedIn : Boolean);
  556.   public
  557.     property marketplaceId: String read Get_marketplaceId write Set_marketplaceId;
  558.     property paymentsProgramType: String read Get_paymentsProgramType write Set_paymentsProgramType;
  559.     property status: String read Get_status write Set_status;
  560.     property wasPreviouslyOptedIn: Boolean read Get_wasPreviouslyOptedIn write Set_wasPreviouslyOptedIn;
  561.   end;
  562.  
  563.   Program_ = class(TObject)
  564.   private
  565.     { Variablen }
  566.     FprogramType : String;
  567.     { Getter }
  568.     function Get_programType() : String;
  569.     { Setter }
  570.     procedure Set_programType(programType : String);
  571.   public
  572.     property programType: String read Get_programType write Set_programType;
  573.   end;
  574.  
  575.   Programs = class(TObject)
  576.   private
  577.     { Variablen }
  578.     Fprograms : Array_of_Program_;
  579.     { Getter }
  580.     function Get_programs() : Array_of_Program_;
  581.     { Setter }
  582.     procedure Set_programs(programs : Array_of_Program_);
  583.   public
  584.     property programs: Array_of_Program_ read Get_programs write Set_programs;
  585.   end;
  586.  
  587.   RateTable = class(TObject)
  588.   private
  589.     { Variablen }
  590.     FcountryCode : String;
  591.     Flocality : String;
  592.     Fname : String;
  593.     FrateTableId : String;
  594.     { Getter }
  595.     function Get_countryCode() : String;
  596.     function Get_locality() : String;
  597.     function Get_name() : String;
  598.     function Get_rateTableId() : String;
  599.     { Setter }
  600.     procedure Set_countryCode(countryCode : String);
  601.     procedure Set_locality(locality : String);
  602.     procedure Set_name(name : String);
  603.     procedure Set_rateTableId(rateTableId : String);
  604.   public
  605.     property countryCode: String read Get_countryCode write Set_countryCode;
  606.     property locality: String read Get_locality write Set_locality;
  607.     property name: String read Get_name write Set_name;
  608.     property rateTableId: String read Get_rateTableId write Set_rateTableId;
  609.   end;
  610.  
  611.   RateTableResponse = class(TObject)
  612.   private
  613.     { Variablen }
  614.     FrateTables : Array_of_RateTable;
  615.     { Getter }
  616.     function Get_rateTables() : Array_of_RateTable;
  617.     { Setter }
  618.     procedure Set_rateTables(rateTables : Array_of_RateTable);
  619.   public
  620.     property rateTables: Array_of_RateTable read Get_rateTables write Set_rateTables;
  621.   end;
  622.  
  623.   RecipientAccountReference = class(TObject)
  624.   private
  625.     { Variablen }
  626.     FreferenceId : String;
  627.     FreferenceType : String;
  628.     { Getter }
  629.     function Get_referenceId() : String;
  630.     function Get_referenceType() : String;
  631.     { Setter }
  632.     procedure Set_referenceId(referenceId : String);
  633.     procedure Set_referenceType(referenceType : String);
  634.   public
  635.     property referenceId: String read Get_referenceId write Set_referenceId;
  636.     property referenceType: String read Get_referenceType write Set_referenceType;
  637.   end;
  638.  
  639.   Region = class(TObject)
  640.   private
  641.     { Variablen }
  642.     FregionName : String;
  643.     FregionType : String;
  644.     { Getter }
  645.     function Get_regionName() : String;
  646.     function Get_regionType() : String;
  647.     { Setter }
  648.     procedure Set_regionName(regionName : String);
  649.     procedure Set_regionType(regionType : String);
  650.   public
  651.     property regionName: String read Get_regionName write Set_regionName;
  652.     property regionType: String read Get_regionType write Set_regionType;
  653.   end;
  654.  
  655.   RegionSet = class(TObject)
  656.   private
  657.     { Variablen }
  658.     FregionExcluded : Array_of_Region;
  659.     FregionIncluded : Array_of_Region;
  660.     { Getter }
  661.     function Get_regionExcluded() : Array_of_Region;
  662.     function Get_regionIncluded() : Array_of_Region;
  663.     { Setter }
  664.     procedure Set_regionExcluded(regionExcluded : Array_of_Region);
  665.     procedure Set_regionIncluded(regionIncluded : Array_of_Region);
  666.   public
  667.     property regionExcluded: Array_of_Region read Get_regionExcluded write Set_regionExcluded;
  668.     property regionIncluded: Array_of_Region read Get_regionIncluded write Set_regionIncluded;
  669.   end;
  670.  
  671.   ReturnPolicy = class(TObject)
  672.   private
  673.     { Variablen }
  674.     FcategoryTypes : Array_of_CategoryType;
  675.     Fdescription : String;
  676.     FextendedHolidayReturnsOffered : Boolean;
  677.     FinternationalOverride : InternationalReturnOverrideType;
  678.     FmarketplaceId : String;
  679.     Fname : String;
  680.     FrefundMethod : String;
  681.     FrestockingFeePercentage : String;
  682.     FreturnInstructions : String;
  683.     FreturnMethod : String;
  684.     FreturnPeriod : TimeDuration;
  685.     FreturnPolicyId : String;
  686.     FreturnsAccepted : Boolean;
  687.     FreturnShippingCostPayer : String;
  688.     { Getter }
  689.     function Get_categoryTypes() : Array_of_CategoryType;
  690.     function Get_description() : String;
  691.     function Get_extendedHolidayReturnsOffered() : Boolean;
  692.     function Get_internationalOverride() : InternationalReturnOverrideType;
  693.     function Get_marketplaceId() : String;
  694.     function Get_name() : String;
  695.     function Get_refundMethod() : String;
  696.     function Get_restockingFeePercentage() : String;
  697.     function Get_returnInstructions() : String;
  698.     function Get_returnMethod() : String;
  699.     function Get_returnPeriod() : TimeDuration;
  700.     function Get_returnPolicyId() : String;
  701.     function Get_returnsAccepted() : Boolean;
  702.     function Get_returnShippingCostPayer() : String;
  703.     { Setter }
  704.     procedure Set_categoryTypes(categoryTypes : Array_of_CategoryType);
  705.     procedure Set_description(description : String);
  706.     procedure Set_extendedHolidayReturnsOffered(extendedHolidayReturnsOffered : Boolean);
  707.     procedure Set_internationalOverride(internationalOverride : InternationalReturnOverrideType);
  708.     procedure Set_marketplaceId(marketplaceId : String);
  709.     procedure Set_name(name : String);
  710.     procedure Set_refundMethod(refundMethod : String);
  711.     procedure Set_restockingFeePercentage(restockingFeePercentage : String);
  712.     procedure Set_returnInstructions(returnInstructions : String);
  713.     procedure Set_returnMethod(returnMethod : String);
  714.     procedure Set_returnPeriod(returnPeriod : TimeDuration);
  715.     procedure Set_returnPolicyId(returnPolicyId : String);
  716.     procedure Set_returnsAccepted(returnsAccepted : Boolean);
  717.     procedure Set_returnShippingCostPayer(returnShippingCostPayer : String);
  718.   public
  719.     property categoryTypes: Array_of_CategoryType read Get_categoryTypes write Set_categoryTypes;
  720.     property description: String read Get_description write Set_description;
  721.     property extendedHolidayReturnsOffered: Boolean read Get_extendedHolidayReturnsOffered write Set_extendedHolidayReturnsOffered;
  722.     property internationalOverride: InternationalReturnOverrideType read Get_internationalOverride write Set_internationalOverride;
  723.     property marketplaceId: String read Get_marketplaceId write Set_marketplaceId;
  724.     property name: String read Get_name write Set_name;
  725.     property refundMethod: String read Get_refundMethod write Set_refundMethod;
  726.     property restockingFeePercentage: String read Get_restockingFeePercentage write Set_restockingFeePercentage;
  727.     property returnInstructions: String read Get_returnInstructions write Set_returnInstructions;
  728.     property returnMethod: String read Get_returnMethod write Set_returnMethod;
  729.     property returnPeriod: TimeDuration read Get_returnPeriod write Set_returnPeriod;
  730.     property returnPolicyId: String read Get_returnPolicyId write Set_returnPolicyId;
  731.     property returnsAccepted: Boolean read Get_returnsAccepted write Set_returnsAccepted;
  732.     property returnShippingCostPayer: String read Get_returnShippingCostPayer write Set_returnShippingCostPayer;
  733.   end;
  734.  
  735.   ReturnPolicyRequest = class(TObject)
  736.   private
  737.     { Variablen }
  738.     FcategoryTypes : Array_of_CategoryType;
  739.     Fdescription : String;
  740.     FextendedHolidayReturnsOffered : Boolean;
  741.     FinternationalOverride : InternationalReturnOverrideType;
  742.     FmarketplaceId : String;
  743.     Fname : String;
  744.     FrefundMethod : String;
  745.     FrestockingFeePercentage : String;
  746.     FreturnInstructions : String;
  747.     FreturnMethod : String;
  748.     FreturnPeriod : TimeDuration;
  749.     FreturnsAccepted : Boolean;
  750.     FreturnShippingCostPayer : String;
  751.     { Getter }
  752.     function Get_categoryTypes() : Array_of_CategoryType;
  753.     function Get_description() : String;
  754.     function Get_extendedHolidayReturnsOffered() : Boolean;
  755.     function Get_internationalOverride() : InternationalReturnOverrideType;
  756.     function Get_marketplaceId() : String;
  757.     function Get_name() : String;
  758.     function Get_refundMethod() : String;
  759.     function Get_restockingFeePercentage() : String;
  760.     function Get_returnInstructions() : String;
  761.     function Get_returnMethod() : String;
  762.     function Get_returnPeriod() : TimeDuration;
  763.     function Get_returnsAccepted() : Boolean;
  764.     function Get_returnShippingCostPayer() : String;
  765.     { Setter }
  766.     procedure Set_categoryTypes(categoryTypes : Array_of_CategoryType);
  767.     procedure Set_description(description : String);
  768.     procedure Set_extendedHolidayReturnsOffered(extendedHolidayReturnsOffered : Boolean);
  769.     procedure Set_internationalOverride(internationalOverride : InternationalReturnOverrideType);
  770.     procedure Set_marketplaceId(marketplaceId : String);
  771.     procedure Set_name(name : String);
  772.     procedure Set_refundMethod(refundMethod : String);
  773.     procedure Set_restockingFeePercentage(restockingFeePercentage : String);
  774.     procedure Set_returnInstructions(returnInstructions : String);
  775.     procedure Set_returnMethod(returnMethod : String);
  776.     procedure Set_returnPeriod(returnPeriod : TimeDuration);
  777.     procedure Set_returnsAccepted(returnsAccepted : Boolean);
  778.     procedure Set_returnShippingCostPayer(returnShippingCostPayer : String);
  779.   public
  780.     property categoryTypes: Array_of_CategoryType read Get_categoryTypes write Set_categoryTypes;
  781.     property description: String read Get_description write Set_description;
  782.     property extendedHolidayReturnsOffered: Boolean read Get_extendedHolidayReturnsOffered write Set_extendedHolidayReturnsOffered;
  783.     property internationalOverride: InternationalReturnOverrideType read Get_internationalOverride write Set_internationalOverride;
  784.     property marketplaceId: String read Get_marketplaceId write Set_marketplaceId;
  785.     property name: String read Get_name write Set_name;
  786.     property refundMethod: String read Get_refundMethod write Set_refundMethod;
  787.     property restockingFeePercentage: String read Get_restockingFeePercentage write Set_restockingFeePercentage;
  788.     property returnInstructions: String read Get_returnInstructions write Set_returnInstructions;
  789.     property returnMethod: String read Get_returnMethod write Set_returnMethod;
  790.     property returnPeriod: TimeDuration read Get_returnPeriod write Set_returnPeriod;
  791.     property returnsAccepted: Boolean read Get_returnsAccepted write Set_returnsAccepted;
  792.     property returnShippingCostPayer: String read Get_returnShippingCostPayer write Set_returnShippingCostPayer;
  793.   end;
  794.  
  795.   ReturnPolicyResponse = class(TObject)
  796.   private
  797.     { Variablen }
  798.     Fhref : String;
  799.     Flimit : Integer;
  800.     Fnext : String;
  801.     Foffset : Integer;
  802.     Fprev : String;
  803.     Ftotal : Integer;
  804.     FreturnPolicies : Array_of_ReturnPolicy;
  805.     { Getter }
  806.     function Get_href() : String;
  807.     function Get_limit() : Integer;
  808.     function Get_next() : String;
  809.     function Get_offset() : Integer;
  810.     function Get_prev() : String;
  811.     function Get_total() : Integer;
  812.     function Get_returnPolicies() : Array_of_ReturnPolicy;
  813.     { Setter }
  814.     procedure Set_href(href : String);
  815.     procedure Set_limit(limit : Integer);
  816.     procedure Set_next(next : String);
  817.     procedure Set_offset(offset : Integer);
  818.     procedure Set_prev(prev : String);
  819.     procedure Set_total(total : Integer);
  820.     procedure Set_returnPolicies(returnPolicies : Array_of_ReturnPolicy);
  821.   public
  822.     property href: String read Get_href write Set_href;
  823.     property limit: Integer read Get_limit write Set_limit;
  824.     property next: String read Get_next write Set_next;
  825.     property offset: Integer read Get_offset write Set_offset;
  826.     property prev: String read Get_prev write Set_prev;
  827.     property total: Integer read Get_total write Set_total;
  828.     property returnPolicies: Array_of_ReturnPolicy read Get_returnPolicies write Set_returnPolicies;
  829.   end;
  830.  
  831.   SalesTax = class(TObject)
  832.   private
  833.     { Variablen }
  834.     FcountryCode : String;
  835.     FsalesTaxJurisdictionId : String;
  836.     FsalesTaxPercentage : String;
  837.     FshippingAndHandlingTaxed : Boolean;
  838.     { Getter }
  839.     function Get_countryCode() : String;
  840.     function Get_salesTaxJurisdictionId() : String;
  841.     function Get_salesTaxPercentage() : String;
  842.     function Get_shippingAndHandlingTaxed() : Boolean;
  843.     { Setter }
  844.     procedure Set_countryCode(countryCode : String);
  845.     procedure Set_salesTaxJurisdictionId(salesTaxJurisdictionId : String);
  846.     procedure Set_salesTaxPercentage(salesTaxPercentage : String);
  847.     procedure Set_shippingAndHandlingTaxed(shippingAndHandlingTaxed : Boolean);
  848.   public
  849.     property countryCode: String read Get_countryCode write Set_countryCode;
  850.     property salesTaxJurisdictionId: String read Get_salesTaxJurisdictionId write Set_salesTaxJurisdictionId;
  851.     property salesTaxPercentage: String read Get_salesTaxPercentage write Set_salesTaxPercentage;
  852.     property shippingAndHandlingTaxed: Boolean read Get_shippingAndHandlingTaxed write Set_shippingAndHandlingTaxed;
  853.   end;
  854.  
  855.   SalesTaxBase = class(TObject)
  856.   private
  857.     { Variablen }
  858.     FsalesTaxPercentage : String;
  859.     FshippingAndHandlingTaxed : Boolean;
  860.     { Getter }
  861.     function Get_salesTaxPercentage() : String;
  862.     function Get_shippingAndHandlingTaxed() : Boolean;
  863.     { Setter }
  864.     procedure Set_salesTaxPercentage(salesTaxPercentage : String);
  865.     procedure Set_shippingAndHandlingTaxed(shippingAndHandlingTaxed : Boolean);
  866.   public
  867.     property salesTaxPercentage: String read Get_salesTaxPercentage write Set_salesTaxPercentage;
  868.     property shippingAndHandlingTaxed: Boolean read Get_shippingAndHandlingTaxed write Set_shippingAndHandlingTaxed;
  869.   end;
  870.  
  871.   SalesTaxes = class(TObject)
  872.   private
  873.     { Variablen }
  874.     FsalesTaxes : Array_of_SalesTax;
  875.     { Getter }
  876.     function Get_salesTaxes() : Array_of_SalesTax;
  877.     { Setter }
  878.     procedure Set_salesTaxes(salesTaxes : Array_of_SalesTax);
  879.   public
  880.     property salesTaxes: Array_of_SalesTax read Get_salesTaxes write Set_salesTaxes;
  881.   end;
  882.  
  883.   SellingLimit = class(TObject)
  884.   private
  885.     { Variablen }
  886.     Famount : Amount;
  887.     Fquantity : Integer;
  888.     { Getter }
  889.     function Get_amount() : Amount;
  890.     function Get_quantity() : Integer;
  891.     { Setter }
  892.     procedure Set_amount(amount : Amount);
  893.     procedure Set_quantity(quantity : Integer);
  894.   public
  895.     property amount: Amount read Get_amount write Set_amount;
  896.     property quantity: Integer read Get_quantity write Set_quantity;
  897.   end;
  898.  
  899.   SellingPrivileges = class(TObject)
  900.   private
  901.     { Variablen }
  902.     FsellerRegistrationCompleted : Boolean;
  903.     FsellingLimit : SellingLimit;
  904.     { Getter }
  905.     function Get_sellerRegistrationCompleted() : Boolean;
  906.     function Get_sellingLimit() : SellingLimit;
  907.     { Setter }
  908.     procedure Set_sellerRegistrationCompleted(sellerRegistrationCompleted : Boolean);
  909.     procedure Set_sellingLimit(sellingLimit : SellingLimit);
  910.   public
  911.     property sellerRegistrationCompleted: Boolean read Get_sellerRegistrationCompleted write Set_sellerRegistrationCompleted;
  912.     property sellingLimit: SellingLimit read Get_sellingLimit write Set_sellingLimit;
  913.   end;
  914.  
  915.   SetFulfillmentPolicyResponse = class(TObject)
  916.   private
  917.     { Variablen }
  918.     FcategoryTypes : Array_of_CategoryType;
  919.     Fdescription : String;
  920.     FfreightShipping : Boolean;
  921.     FfulfillmentPolicyId : String;
  922.     FglobalShipping : Boolean;
  923.     FhandlingTime : TimeDuration;
  924.     FlocalPickup : Boolean;
  925.     FmarketplaceId : String;
  926.     Fname : String;
  927.     FpickupDropOff : Boolean;
  928.     FshippingOptions : Array_of_ShippingOption;
  929.     FshipToLocations : RegionSet;
  930.     Fwarnings : Array_of_Error;
  931.     { Getter }
  932.     function Get_categoryTypes() : Array_of_CategoryType;
  933.     function Get_description() : String;
  934.     function Get_freightShipping() : Boolean;
  935.     function Get_fulfillmentPolicyId() : String;
  936.     function Get_globalShipping() : Boolean;
  937.     function Get_handlingTime() : TimeDuration;
  938.     function Get_localPickup() : Boolean;
  939.     function Get_marketplaceId() : String;
  940.     function Get_name() : String;
  941.     function Get_pickupDropOff() : Boolean;
  942.     function Get_shippingOptions() : Array_of_ShippingOption;
  943.     function Get_shipToLocations() : RegionSet;
  944.     function Get_warnings() : Array_of_Error;
  945.     { Setter }
  946.     procedure Set_categoryTypes(categoryTypes : Array_of_CategoryType);
  947.     procedure Set_description(description : String);
  948.     procedure Set_freightShipping(freightShipping : Boolean);
  949.     procedure Set_fulfillmentPolicyId(fulfillmentPolicyId : String);
  950.     procedure Set_globalShipping(globalShipping : Boolean);
  951.     procedure Set_handlingTime(handlingTime : TimeDuration);
  952.     procedure Set_localPickup(localPickup : Boolean);
  953.     procedure Set_marketplaceId(marketplaceId : String);
  954.     procedure Set_name(name : String);
  955.     procedure Set_pickupDropOff(pickupDropOff : Boolean);
  956.     procedure Set_shippingOptions(shippingOptions : Array_of_ShippingOption);
  957.     procedure Set_shipToLocations(shipToLocations : RegionSet);
  958.     procedure Set_warnings(warnings : Array_of_Error);
  959.   public
  960.     property categoryTypes: Array_of_CategoryType read Get_categoryTypes write Set_categoryTypes;
  961.     property description: String read Get_description write Set_description;
  962.     property freightShipping: Boolean read Get_freightShipping write Set_freightShipping;
  963.     property fulfillmentPolicyId: String read Get_fulfillmentPolicyId write Set_fulfillmentPolicyId;
  964.     property globalShipping: Boolean read Get_globalShipping write Set_globalShipping;
  965.     property handlingTime: TimeDuration read Get_handlingTime write Set_handlingTime;
  966.     property localPickup: Boolean read Get_localPickup write Set_localPickup;
  967.     property marketplaceId: String read Get_marketplaceId write Set_marketplaceId;
  968.     property name: String read Get_name write Set_name;
  969.     property pickupDropOff: Boolean read Get_pickupDropOff write Set_pickupDropOff;
  970.     property shippingOptions: Array_of_ShippingOption read Get_shippingOptions write Set_shippingOptions;
  971.     property shipToLocations: RegionSet read Get_shipToLocations write Set_shipToLocations;
  972.     property warnings: Array_of_Error read Get_warnings write Set_warnings;
  973.   end;
  974.  
  975.   SetPaymentPolicyResponse = class(TObject)
  976.   private
  977.     { Variablen }
  978.     FcategoryTypes : Array_of_CategoryType;
  979.     Fdeposit : Deposit;
  980.     Fdescription : String;
  981.     FfullPaymentDueIn : TimeDuration;
  982.     FimmediatePay : Boolean;
  983.     FmarketplaceId : String;
  984.     Fname : String;
  985.     FpaymentInstructions : String;
  986.     FpaymentMethods : Array_of_PaymentMethod;
  987.     FpaymentPolicyId : String;
  988.     Fwarnings : Array_of_Error;
  989.     { Getter }
  990.     function Get_categoryTypes() : Array_of_CategoryType;
  991.     function Get_deposit() : Deposit;
  992.     function Get_description() : String;
  993.     function Get_fullPaymentDueIn() : TimeDuration;
  994.     function Get_immediatePay() : Boolean;
  995.     function Get_marketplaceId() : String;
  996.     function Get_name() : String;
  997.     function Get_paymentInstructions() : String;
  998.     function Get_paymentMethods() : Array_of_PaymentMethod;
  999.     function Get_paymentPolicyId() : String;
  1000.     function Get_warnings() : Array_of_Error;
  1001.     { Setter }
  1002.     procedure Set_categoryTypes(categoryTypes : Array_of_CategoryType);
  1003.     procedure Set_deposit(deposit : Deposit);
  1004.     procedure Set_description(description : String);
  1005.     procedure Set_fullPaymentDueIn(fullPaymentDueIn : TimeDuration);
  1006.     procedure Set_immediatePay(immediatePay : Boolean);
  1007.     procedure Set_marketplaceId(marketplaceId : String);
  1008.     procedure Set_name(name : String);
  1009.     procedure Set_paymentInstructions(paymentInstructions : String);
  1010.     procedure Set_paymentMethods(paymentMethods : Array_of_PaymentMethod);
  1011.     procedure Set_paymentPolicyId(paymentPolicyId : String);
  1012.     procedure Set_warnings(warnings : Array_of_Error);
  1013.   public
  1014.     property categoryTypes: Array_of_CategoryType read Get_categoryTypes write Set_categoryTypes;
  1015.     property deposit: Deposit read Get_deposit write Set_deposit;
  1016.     property description: String read Get_description write Set_description;
  1017.     property fullPaymentDueIn: TimeDuration read Get_fullPaymentDueIn write Set_fullPaymentDueIn;
  1018.     property immediatePay: Boolean read Get_immediatePay write Set_immediatePay;
  1019.     property marketplaceId: String read Get_marketplaceId write Set_marketplaceId;
  1020.     property name: String read Get_name write Set_name;
  1021.     property paymentInstructions: String read Get_paymentInstructions write Set_paymentInstructions;
  1022.     property paymentMethods: Array_of_PaymentMethod read Get_paymentMethods write Set_paymentMethods;
  1023.     property paymentPolicyId: String read Get_paymentPolicyId write Set_paymentPolicyId;
  1024.     property warnings: Array_of_Error read Get_warnings write Set_warnings;
  1025.   end;
  1026.  
  1027.   SetReturnPolicyResponse = class(TObject)
  1028.   private
  1029.     { Variablen }
  1030.     FcategoryTypes : Array_of_CategoryType;
  1031.     Fdescription : String;
  1032.     FextendedHolidayReturnsOffered : Boolean;
  1033.     FinternationalOverride : InternationalReturnOverrideType;
  1034.     FmarketplaceId : String;
  1035.     Fname : String;
  1036.     FrefundMethod : String;
  1037.     FrestockingFeePercentage : String;
  1038.     FreturnInstructions : String;
  1039.     FreturnMethod : String;
  1040.     FreturnPeriod : TimeDuration;
  1041.     FreturnPolicyId : String;
  1042.     FreturnsAccepted : Boolean;
  1043.     FreturnShippingCostPayer : String;
  1044.     Fwarnings : Array_of_Error;
  1045.     { Getter }
  1046.     function Get_categoryTypes() : Array_of_CategoryType;
  1047.     function Get_description() : String;
  1048.     function Get_extendedHolidayReturnsOffered() : Boolean;
  1049.     function Get_internationalOverride() : InternationalReturnOverrideType;
  1050.     function Get_marketplaceId() : String;
  1051.     function Get_name() : String;
  1052.     function Get_refundMethod() : String;
  1053.     function Get_restockingFeePercentage() : String;
  1054.     function Get_returnInstructions() : String;
  1055.     function Get_returnMethod() : String;
  1056.     function Get_returnPeriod() : TimeDuration;
  1057.     function Get_returnPolicyId() : String;
  1058.     function Get_returnsAccepted() : Boolean;
  1059.     function Get_returnShippingCostPayer() : String;
  1060.     function Get_warnings() : Array_of_Error;
  1061.     { Setter }
  1062.     procedure Set_categoryTypes(categoryTypes : Array_of_CategoryType);
  1063.     procedure Set_description(description : String);
  1064.     procedure Set_extendedHolidayReturnsOffered(extendedHolidayReturnsOffered : Boolean);
  1065.     procedure Set_internationalOverride(internationalOverride : InternationalReturnOverrideType);
  1066.     procedure Set_marketplaceId(marketplaceId : String);
  1067.     procedure Set_name(name : String);
  1068.     procedure Set_refundMethod(refundMethod : String);
  1069.     procedure Set_restockingFeePercentage(restockingFeePercentage : String);
  1070.     procedure Set_returnInstructions(returnInstructions : String);
  1071.     procedure Set_returnMethod(returnMethod : String);
  1072.     procedure Set_returnPeriod(returnPeriod : TimeDuration);
  1073.     procedure Set_returnPolicyId(returnPolicyId : String);
  1074.     procedure Set_returnsAccepted(returnsAccepted : Boolean);
  1075.     procedure Set_returnShippingCostPayer(returnShippingCostPayer : String);
  1076.     procedure Set_warnings(warnings : Array_of_Error);
  1077.   public
  1078.     property categoryTypes: Array_of_CategoryType read Get_categoryTypes write Set_categoryTypes;
  1079.     property description: String read Get_description write Set_description;
  1080.     property extendedHolidayReturnsOffered: Boolean read Get_extendedHolidayReturnsOffered write Set_extendedHolidayReturnsOffered;
  1081.     property internationalOverride: InternationalReturnOverrideType read Get_internationalOverride write Set_internationalOverride;
  1082.     property marketplaceId: String read Get_marketplaceId write Set_marketplaceId;
  1083.     property name: String read Get_name write Set_name;
  1084.     property refundMethod: String read Get_refundMethod write Set_refundMethod;
  1085.     property restockingFeePercentage: String read Get_restockingFeePercentage write Set_restockingFeePercentage;
  1086.     property returnInstructions: String read Get_returnInstructions write Set_returnInstructions;
  1087.     property returnMethod: String read Get_returnMethod write Set_returnMethod;
  1088.     property returnPeriod: TimeDuration read Get_returnPeriod write Set_returnPeriod;
  1089.     property returnPolicyId: String read Get_returnPolicyId write Set_returnPolicyId;
  1090.     property returnsAccepted: Boolean read Get_returnsAccepted write Set_returnsAccepted;
  1091.     property returnShippingCostPayer: String read Get_returnShippingCostPayer write Set_returnShippingCostPayer;
  1092.     property warnings: Array_of_Error read Get_warnings write Set_warnings;
  1093.   end;
  1094.  
  1095.   ShippingOption = class(TObject)
  1096.   private
  1097.     { Variablen }
  1098.     FcostType : String;
  1099.     FinsuranceFee : Amount;
  1100.     FinsuranceOffered : Boolean;
  1101.     FoptionType : String;
  1102.     FpackageHandlingCost : Amount;
  1103.     FrateTableId : String;
  1104.     FshippingServices : Array_of_ShippingService;
  1105.     { Getter }
  1106.     function Get_costType() : String;
  1107.     function Get_insuranceFee() : Amount;
  1108.     function Get_insuranceOffered() : Boolean;
  1109.     function Get_optionType() : String;
  1110.     function Get_packageHandlingCost() : Amount;
  1111.     function Get_rateTableId() : String;
  1112.     function Get_shippingServices() : Array_of_ShippingService;
  1113.     { Setter }
  1114.     procedure Set_costType(costType : String);
  1115.     procedure Set_insuranceFee(insuranceFee : Amount);
  1116.     procedure Set_insuranceOffered(insuranceOffered : Boolean);
  1117.     procedure Set_optionType(optionType : String);
  1118.     procedure Set_packageHandlingCost(packageHandlingCost : Amount);
  1119.     procedure Set_rateTableId(rateTableId : String);
  1120.     procedure Set_shippingServices(shippingServices : Array_of_ShippingService);
  1121.   public
  1122.     property costType: String read Get_costType write Set_costType;
  1123.     property insuranceFee: Amount read Get_insuranceFee write Set_insuranceFee;
  1124.     property insuranceOffered: Boolean read Get_insuranceOffered write Set_insuranceOffered;
  1125.     property optionType: String read Get_optionType write Set_optionType;
  1126.     property packageHandlingCost: Amount read Get_packageHandlingCost write Set_packageHandlingCost;
  1127.     property rateTableId: String read Get_rateTableId write Set_rateTableId;
  1128.     property shippingServices: Array_of_ShippingService read Get_shippingServices write Set_shippingServices;
  1129.   end;
  1130.  
  1131.   ShippingService = class(TObject)
  1132.   private
  1133.     { Variablen }
  1134.     FadditionalShippingCost : Amount;
  1135.     FbuyerResponsibleForPickup : Boolean;
  1136.     FbuyerResponsibleForShipping : Boolean;
  1137.     FcashOnDeliveryFee : Amount;
  1138.     FfreeShipping : Boolean;
  1139.     FshippingCarrierCode : String;
  1140.     FshippingCost : Amount;
  1141.     FshippingServiceCode : String;
  1142.     FshipToLocations : RegionSet;
  1143.     FsortOrder : Integer;
  1144.     Fsurcharge : Amount;
  1145.     { Getter }
  1146.     function Get_additionalShippingCost() : Amount;
  1147.     function Get_buyerResponsibleForPickup() : Boolean;
  1148.     function Get_buyerResponsibleForShipping() : Boolean;
  1149.     function Get_cashOnDeliveryFee() : Amount;
  1150.     function Get_freeShipping() : Boolean;
  1151.     function Get_shippingCarrierCode() : String;
  1152.     function Get_shippingCost() : Amount;
  1153.     function Get_shippingServiceCode() : String;
  1154.     function Get_shipToLocations() : RegionSet;
  1155.     function Get_sortOrder() : Integer;
  1156.     function Get_surcharge() : Amount;
  1157.     { Setter }
  1158.     procedure Set_additionalShippingCost(additionalShippingCost : Amount);
  1159.     procedure Set_buyerResponsibleForPickup(buyerResponsibleForPickup : Boolean);
  1160.     procedure Set_buyerResponsibleForShipping(buyerResponsibleForShipping : Boolean);
  1161.     procedure Set_cashOnDeliveryFee(cashOnDeliveryFee : Amount);
  1162.     procedure Set_freeShipping(freeShipping : Boolean);
  1163.     procedure Set_shippingCarrierCode(shippingCarrierCode : String);
  1164.     procedure Set_shippingCost(shippingCost : Amount);
  1165.     procedure Set_shippingServiceCode(shippingServiceCode : String);
  1166.     procedure Set_shipToLocations(shipToLocations : RegionSet);
  1167.     procedure Set_sortOrder(sortOrder : Integer);
  1168.     procedure Set_surcharge(surcharge : Amount);
  1169.   public
  1170.     property additionalShippingCost: Amount read Get_additionalShippingCost write Set_additionalShippingCost;
  1171.     property buyerResponsibleForPickup: Boolean read Get_buyerResponsibleForPickup write Set_buyerResponsibleForPickup;
  1172.     property buyerResponsibleForShipping: Boolean read Get_buyerResponsibleForShipping write Set_buyerResponsibleForShipping;
  1173.     property cashOnDeliveryFee: Amount read Get_cashOnDeliveryFee write Set_cashOnDeliveryFee;
  1174.     property freeShipping: Boolean read Get_freeShipping write Set_freeShipping;
  1175.     property shippingCarrierCode: String read Get_shippingCarrierCode write Set_shippingCarrierCode;
  1176.     property shippingCost: Amount read Get_shippingCost write Set_shippingCost;
  1177.     property shippingServiceCode: String read Get_shippingServiceCode write Set_shippingServiceCode;
  1178.     property shipToLocations: RegionSet read Get_shipToLocations write Set_shipToLocations;
  1179.     property sortOrder: Integer read Get_sortOrder write Set_sortOrder;
  1180.     property surcharge: Amount read Get_surcharge write Set_surcharge;
  1181.   end;
  1182.  
  1183.   TimeDuration = class(TObject)
  1184.   private
  1185.     { Variablen }
  1186.     Funit_ : String;
  1187.     Fvalue : Integer;
  1188.     { Getter }
  1189.     function Get_unit_() : String;
  1190.     function Get_value() : Integer;
  1191.     { Setter }
  1192.     procedure Set_unit_(unit_ : String);
  1193.     procedure Set_value(value : Integer);
  1194.   public
  1195.     property unit_: String read Get_unit_ write Set_unit_;
  1196.     property value: Integer read Get_value write Set_value;
  1197.   end;
  1198.  
  1199.   TOnBeforeRequest = procedure(Request : TRESTRequest);
  1200.   TOnAfterRequest = procedure(Request : TRESTRequest);
  1201.  
  1202.   TService = class(TObject)
  1203.   private
  1204.     FOnBeforeRequest : TOnBeforeRequest;
  1205.     FOnAfterRequest : TOnAfterRequest;
  1206.     Request : TRESTRequest;
  1207.     procedure ClearRequest;
  1208.     procedure ExecuteRequest;
  1209.   public
  1210.     constructor Create();
  1211.     destructor Destroy();
  1212.     function createFulfillmentPolicy(fulfillmentPolicyRequest : FulfillmentPolicyRequest) : SetFulfillmentPolicyResponse;
  1213.     procedure deleteFulfillmentPolicy(fulfillmentPolicyId : String);
  1214.     function getFulfillmentPolicies(marketplaceId : String) : FulfillmentPolicyResponse;
  1215.     function getFulfillmentPolicy(fulfillmentPolicyId : String) : FulfillmentPolicy;
  1216.     function getFulfillmentPolicyByName(marketplaceId : String; name : String) : FulfillmentPolicy;
  1217.     function updateFulfillmentPolicy(fulfillmentPolicyId : String; fulfillmentPolicyRequest : FulfillmentPolicyRequest) : SetFulfillmentPolicyResponse;
  1218.     function getPaymentsProgramOnboarding(marketplaceId : String; paymentsProgramType : String) : PaymentsProgramOnboardingResponse;
  1219.     function createPaymentPolicy(paymentPolicyRequest : PaymentPolicyRequest) : SetPaymentPolicyResponse;
  1220.     procedure deletePaymentPolicy(paymentPolicyId : String);
  1221.     function getPaymentPolicies(marketplaceId : String) : PaymentPolicyResponse;
  1222.     function getPaymentPolicy(paymentPolicyId : String) : PaymentPolicy;
  1223.     function getPaymentPolicyByName(marketplaceId : String; name : String) : PaymentPolicy;
  1224.     function updatePaymentPolicy(paymentPolicyId : String; paymentPolicyRequest : PaymentPolicyRequest) : SetPaymentPolicyResponse;
  1225.     function getPaymentsProgram(marketplaceId : String; paymentsProgramType : String) : PaymentsProgramResponse;
  1226.     function getPrivileges() : SellingPrivileges;
  1227.     function getOptedInPrograms() : Programs;
  1228.     function optInToProgram(program_ : Program_) : TObject;
  1229.     function optOutOfProgram(program_ : Program_) : TObject;
  1230.     function getRateTables(countryCode : String) : RateTableResponse;
  1231.     function createReturnPolicy(returnPolicyRequest : ReturnPolicyRequest) : SetReturnPolicyResponse;
  1232.     procedure deleteReturnPolicy(returnPolicyId : String);
  1233.     function getReturnPolicies(marketplaceId : String) : ReturnPolicyResponse;
  1234.     function getReturnPolicy(returnPolicyId : String) : ReturnPolicy;
  1235.     function getReturnPolicyByName(marketplaceId : String; name : String) : ReturnPolicy;
  1236.     function updateReturnPolicy(returnPolicyId : String; returnPolicyRequest : ReturnPolicyRequest) : SetReturnPolicyResponse;
  1237.     procedure createOrReplaceSalesTax(countryCode : String; jurisdictionId : String; salesTaxBase : SalesTaxBase);
  1238.     procedure deleteSalesTax(countryCode : String; jurisdictionId : String);
  1239.     function getSalesTax(countryCode : String; jurisdictionId : String) : SalesTax;
  1240.     function getSalesTaxes(countryCode : String) : SalesTaxes;
  1241.     property OnBeforeRequest : TOnBeforeRequest read FOnBeforeRequest write FOnBeforeRequest;
  1242.     property OnAfterRequest : TOnAfterRequest read FOnAfterRequest write FOnAfterRequest;
  1243.   end;
  1244.  
  1245. implementation
  1246.  
  1247. { Getter }
  1248.  
  1249. function Amount.Get_currency() : String;
  1250. begin
  1251.   Result := Fcurrency;
  1252. end;
  1253.  
  1254. function Amount.Get_value() : String;
  1255. begin
  1256.   Result := Fvalue;
  1257. end;
  1258.  
  1259. function CategoryType.Get_default() : Boolean;
  1260. begin
  1261.   Result := Fdefault;
  1262. end;
  1263.  
  1264. function CategoryType.Get_name() : String;
  1265. begin
  1266.   Result := Fname;
  1267. end;
  1268.  
  1269. function Deposit.Get_amount() : Amount;
  1270. begin
  1271.   Result := Famount;
  1272. end;
  1273.  
  1274. function Deposit.Get_dueIn() : TimeDuration;
  1275. begin
  1276.   Result := FdueIn;
  1277. end;
  1278.  
  1279. function Deposit.Get_paymentMethods() : Array_of_PaymentMethod;
  1280. begin
  1281.   Result := FpaymentMethods;
  1282. end;
  1283.  
  1284. function Error.Get_category() : String;
  1285. begin
  1286.   Result := Fcategory;
  1287. end;
  1288.  
  1289. function Error.Get_domain() : String;
  1290. begin
  1291.   Result := Fdomain;
  1292. end;
  1293.  
  1294. function Error.Get_errorId() : Integer;
  1295. begin
  1296.   Result := FerrorId;
  1297. end;
  1298.  
  1299. function Error.Get_inputRefIds() : Array_of_string;
  1300. begin
  1301.   Result := FinputRefIds;
  1302. end;
  1303.  
  1304. function Error.Get_longMessage() : String;
  1305. begin
  1306.   Result := FlongMessage;
  1307. end;
  1308.  
  1309. function Error.Get_message() : String;
  1310. begin
  1311.   Result := Fmessage;
  1312. end;
  1313.  
  1314. function Error.Get_outputRefIds() : Array_of_string;
  1315. begin
  1316.   Result := FoutputRefIds;
  1317. end;
  1318.  
  1319. function Error.Get_parameters() : Array_of_ErrorParameter;
  1320. begin
  1321.   Result := Fparameters;
  1322. end;
  1323.  
  1324. function Error.Get_subdomain() : String;
  1325. begin
  1326.   Result := Fsubdomain;
  1327. end;
  1328.  
  1329. function ErrorParameter.Get_name() : String;
  1330. begin
  1331.   Result := Fname;
  1332. end;
  1333.  
  1334. function ErrorParameter.Get_value() : String;
  1335. begin
  1336.   Result := Fvalue;
  1337. end;
  1338.  
  1339. function FulfillmentPolicy.Get_categoryTypes() : Array_of_CategoryType;
  1340. begin
  1341.   Result := FcategoryTypes;
  1342. end;
  1343.  
  1344. function FulfillmentPolicy.Get_description() : String;
  1345. begin
  1346.   Result := Fdescription;
  1347. end;
  1348.  
  1349. function FulfillmentPolicy.Get_freightShipping() : Boolean;
  1350. begin
  1351.   Result := FfreightShipping;
  1352. end;
  1353.  
  1354. function FulfillmentPolicy.Get_fulfillmentPolicyId() : String;
  1355. begin
  1356.   Result := FfulfillmentPolicyId;
  1357. end;
  1358.  
  1359. function FulfillmentPolicy.Get_globalShipping() : Boolean;
  1360. begin
  1361.   Result := FglobalShipping;
  1362. end;
  1363.  
  1364. function FulfillmentPolicy.Get_handlingTime() : TimeDuration;
  1365. begin
  1366.   Result := FhandlingTime;
  1367. end;
  1368.  
  1369. function FulfillmentPolicy.Get_localPickup() : Boolean;
  1370. begin
  1371.   Result := FlocalPickup;
  1372. end;
  1373.  
  1374. function FulfillmentPolicy.Get_marketplaceId() : String;
  1375. begin
  1376.   Result := FmarketplaceId;
  1377. end;
  1378.  
  1379. function FulfillmentPolicy.Get_name() : String;
  1380. begin
  1381.   Result := Fname;
  1382. end;
  1383.  
  1384. function FulfillmentPolicy.Get_pickupDropOff() : Boolean;
  1385. begin
  1386.   Result := FpickupDropOff;
  1387. end;
  1388.  
  1389. function FulfillmentPolicy.Get_shippingOptions() : Array_of_ShippingOption;
  1390. begin
  1391.   Result := FshippingOptions;
  1392. end;
  1393.  
  1394. function FulfillmentPolicy.Get_shipToLocations() : RegionSet;
  1395. begin
  1396.   Result := FshipToLocations;
  1397. end;
  1398.  
  1399. function FulfillmentPolicyRequest.Get_categoryTypes() : Array_of_CategoryType;
  1400. begin
  1401.   Result := FcategoryTypes;
  1402. end;
  1403.  
  1404. function FulfillmentPolicyRequest.Get_description() : String;
  1405. begin
  1406.   Result := Fdescription;
  1407. end;
  1408.  
  1409. function FulfillmentPolicyRequest.Get_freightShipping() : Boolean;
  1410. begin
  1411.   Result := FfreightShipping;
  1412. end;
  1413.  
  1414. function FulfillmentPolicyRequest.Get_globalShipping() : Boolean;
  1415. begin
  1416.   Result := FglobalShipping;
  1417. end;
  1418.  
  1419. function FulfillmentPolicyRequest.Get_handlingTime() : TimeDuration;
  1420. begin
  1421.   Result := FhandlingTime;
  1422. end;
  1423.  
  1424. function FulfillmentPolicyRequest.Get_localPickup() : Boolean;
  1425. begin
  1426.   Result := FlocalPickup;
  1427. end;
  1428.  
  1429. function FulfillmentPolicyRequest.Get_marketplaceId() : String;
  1430. begin
  1431.   Result := FmarketplaceId;
  1432. end;
  1433.  
  1434. function FulfillmentPolicyRequest.Get_name() : String;
  1435. begin
  1436.   Result := Fname;
  1437. end;
  1438.  
  1439. function FulfillmentPolicyRequest.Get_pickupDropOff() : Boolean;
  1440. begin
  1441.   Result := FpickupDropOff;
  1442. end;
  1443.  
  1444. function FulfillmentPolicyRequest.Get_shippingOptions() : Array_of_ShippingOption;
  1445. begin
  1446.   Result := FshippingOptions;
  1447. end;
  1448.  
  1449. function FulfillmentPolicyRequest.Get_shipToLocations() : RegionSet;
  1450. begin
  1451.   Result := FshipToLocations;
  1452. end;
  1453.  
  1454. function FulfillmentPolicyResponse.Get_fulfillmentPolicies() : Array_of_FulfillmentPolicy;
  1455. begin
  1456.   Result := FfulfillmentPolicies;
  1457. end;
  1458.  
  1459. function FulfillmentPolicyResponse.Get_href() : String;
  1460. begin
  1461.   Result := Fhref;
  1462. end;
  1463.  
  1464. function FulfillmentPolicyResponse.Get_limit() : Integer;
  1465. begin
  1466.   Result := Flimit;
  1467. end;
  1468.  
  1469. function FulfillmentPolicyResponse.Get_next() : String;
  1470. begin
  1471.   Result := Fnext;
  1472. end;
  1473.  
  1474. function FulfillmentPolicyResponse.Get_offset() : Integer;
  1475. begin
  1476.   Result := Foffset;
  1477. end;
  1478.  
  1479. function FulfillmentPolicyResponse.Get_prev() : String;
  1480. begin
  1481.   Result := Fprev;
  1482. end;
  1483.  
  1484. function FulfillmentPolicyResponse.Get_total() : Integer;
  1485. begin
  1486.   Result := Ftotal;
  1487. end;
  1488.  
  1489. function InternationalReturnOverrideType.Get_returnMethod() : String;
  1490. begin
  1491.   Result := FreturnMethod;
  1492. end;
  1493.  
  1494. function InternationalReturnOverrideType.Get_returnPeriod() : TimeDuration;
  1495. begin
  1496.   Result := FreturnPeriod;
  1497. end;
  1498.  
  1499. function InternationalReturnOverrideType.Get_returnsAccepted() : Boolean;
  1500. begin
  1501.   Result := FreturnsAccepted;
  1502. end;
  1503.  
  1504. function InternationalReturnOverrideType.Get_returnShippingCostPayer() : String;
  1505. begin
  1506.   Result := FreturnShippingCostPayer;
  1507. end;
  1508.  
  1509. function PaymentMethod.Get_brands() : Array_of_string;
  1510. begin
  1511.   Result := Fbrands;
  1512. end;
  1513.  
  1514. function PaymentMethod.Get_paymentMethodType() : String;
  1515. begin
  1516.   Result := FpaymentMethodType;
  1517. end;
  1518.  
  1519. function PaymentMethod.Get_recipientAccountReference() : RecipientAccountReference;
  1520. begin
  1521.   Result := FrecipientAccountReference;
  1522. end;
  1523.  
  1524. function PaymentPolicy.Get_categoryTypes() : Array_of_CategoryType;
  1525. begin
  1526.   Result := FcategoryTypes;
  1527. end;
  1528.  
  1529. function PaymentPolicy.Get_deposit() : Deposit;
  1530. begin
  1531.   Result := Fdeposit;
  1532. end;
  1533.  
  1534. function PaymentPolicy.Get_description() : String;
  1535. begin
  1536.   Result := Fdescription;
  1537. end;
  1538.  
  1539. function PaymentPolicy.Get_fullPaymentDueIn() : TimeDuration;
  1540. begin
  1541.   Result := FfullPaymentDueIn;
  1542. end;
  1543.  
  1544. function PaymentPolicy.Get_immediatePay() : Boolean;
  1545. begin
  1546.   Result := FimmediatePay;
  1547. end;
  1548.  
  1549. function PaymentPolicy.Get_marketplaceId() : String;
  1550. begin
  1551.   Result := FmarketplaceId;
  1552. end;
  1553.  
  1554. function PaymentPolicy.Get_name() : String;
  1555. begin
  1556.   Result := Fname;
  1557. end;
  1558.  
  1559. function PaymentPolicy.Get_paymentInstructions() : String;
  1560. begin
  1561.   Result := FpaymentInstructions;
  1562. end;
  1563.  
  1564. function PaymentPolicy.Get_paymentMethods() : Array_of_PaymentMethod;
  1565. begin
  1566.   Result := FpaymentMethods;
  1567. end;
  1568.  
  1569. function PaymentPolicy.Get_paymentPolicyId() : String;
  1570. begin
  1571.   Result := FpaymentPolicyId;
  1572. end;
  1573.  
  1574. function PaymentPolicyRequest.Get_categoryTypes() : Array_of_CategoryType;
  1575. begin
  1576.   Result := FcategoryTypes;
  1577. end;
  1578.  
  1579. function PaymentPolicyRequest.Get_deposit() : Deposit;
  1580. begin
  1581.   Result := Fdeposit;
  1582. end;
  1583.  
  1584. function PaymentPolicyRequest.Get_description() : String;
  1585. begin
  1586.   Result := Fdescription;
  1587. end;
  1588.  
  1589. function PaymentPolicyRequest.Get_fullPaymentDueIn() : TimeDuration;
  1590. begin
  1591.   Result := FfullPaymentDueIn;
  1592. end;
  1593.  
  1594. function PaymentPolicyRequest.Get_immediatePay() : Boolean;
  1595. begin
  1596.   Result := FimmediatePay;
  1597. end;
  1598.  
  1599. function PaymentPolicyRequest.Get_marketplaceId() : String;
  1600. begin
  1601.   Result := FmarketplaceId;
  1602. end;
  1603.  
  1604. function PaymentPolicyRequest.Get_name() : String;
  1605. begin
  1606.   Result := Fname;
  1607. end;
  1608.  
  1609. function PaymentPolicyRequest.Get_paymentInstructions() : String;
  1610. begin
  1611.   Result := FpaymentInstructions;
  1612. end;
  1613.  
  1614. function PaymentPolicyRequest.Get_paymentMethods() : Array_of_PaymentMethod;
  1615. begin
  1616.   Result := FpaymentMethods;
  1617. end;
  1618.  
  1619. function PaymentPolicyResponse.Get_href() : String;
  1620. begin
  1621.   Result := Fhref;
  1622. end;
  1623.  
  1624. function PaymentPolicyResponse.Get_limit() : Integer;
  1625. begin
  1626.   Result := Flimit;
  1627. end;
  1628.  
  1629. function PaymentPolicyResponse.Get_next() : String;
  1630. begin
  1631.   Result := Fnext;
  1632. end;
  1633.  
  1634. function PaymentPolicyResponse.Get_offset() : Integer;
  1635. begin
  1636.   Result := Foffset;
  1637. end;
  1638.  
  1639. function PaymentPolicyResponse.Get_prev() : String;
  1640. begin
  1641.   Result := Fprev;
  1642. end;
  1643.  
  1644. function PaymentPolicyResponse.Get_total() : Integer;
  1645. begin
  1646.   Result := Ftotal;
  1647. end;
  1648.  
  1649. function PaymentPolicyResponse.Get_paymentPolicies() : Array_of_PaymentPolicy;
  1650. begin
  1651.   Result := FpaymentPolicies;
  1652. end;
  1653.  
  1654. function PaymentsProgramOnboardingResponse.Get_onboardingStatus() : String;
  1655. begin
  1656.   Result := FonboardingStatus;
  1657. end;
  1658.  
  1659. function PaymentsProgramOnboardingResponse.Get_steps() : Array_of_PaymentsProgramOnboardingSteps;
  1660. begin
  1661.   Result := Fsteps;
  1662. end;
  1663.  
  1664. function PaymentsProgramOnboardingSteps.Get_name() : String;
  1665. begin
  1666.   Result := Fname;
  1667. end;
  1668.  
  1669. function PaymentsProgramOnboardingSteps.Get_status() : String;
  1670. begin
  1671.   Result := Fstatus;
  1672. end;
  1673.  
  1674. function PaymentsProgramOnboardingSteps.Get_webUrl() : String;
  1675. begin
  1676.   Result := FwebUrl;
  1677. end;
  1678.  
  1679. function PaymentsProgramResponse.Get_marketplaceId() : String;
  1680. begin
  1681.   Result := FmarketplaceId;
  1682. end;
  1683.  
  1684. function PaymentsProgramResponse.Get_paymentsProgramType() : String;
  1685. begin
  1686.   Result := FpaymentsProgramType;
  1687. end;
  1688.  
  1689. function PaymentsProgramResponse.Get_status() : String;
  1690. begin
  1691.   Result := Fstatus;
  1692. end;
  1693.  
  1694. function PaymentsProgramResponse.Get_wasPreviouslyOptedIn() : Boolean;
  1695. begin
  1696.   Result := FwasPreviouslyOptedIn;
  1697. end;
  1698.  
  1699. function Program_.Get_programType() : String;
  1700. begin
  1701.   Result := FprogramType;
  1702. end;
  1703.  
  1704. function Programs.Get_programs() : Array_of_Program_;
  1705. begin
  1706.   Result := Fprograms;
  1707. end;
  1708.  
  1709. function RateTable.Get_countryCode() : String;
  1710. begin
  1711.   Result := FcountryCode;
  1712. end;
  1713.  
  1714. function RateTable.Get_locality() : String;
  1715. begin
  1716.   Result := Flocality;
  1717. end;
  1718.  
  1719. function RateTable.Get_name() : String;
  1720. begin
  1721.   Result := Fname;
  1722. end;
  1723.  
  1724. function RateTable.Get_rateTableId() : String;
  1725. begin
  1726.   Result := FrateTableId;
  1727. end;
  1728.  
  1729. function RateTableResponse.Get_rateTables() : Array_of_RateTable;
  1730. begin
  1731.   Result := FrateTables;
  1732. end;
  1733.  
  1734. function RecipientAccountReference.Get_referenceId() : String;
  1735. begin
  1736.   Result := FreferenceId;
  1737. end;
  1738.  
  1739. function RecipientAccountReference.Get_referenceType() : String;
  1740. begin
  1741.   Result := FreferenceType;
  1742. end;
  1743.  
  1744. function Region.Get_regionName() : String;
  1745. begin
  1746.   Result := FregionName;
  1747. end;
  1748.  
  1749. function Region.Get_regionType() : String;
  1750. begin
  1751.   Result := FregionType;
  1752. end;
  1753.  
  1754. function RegionSet.Get_regionExcluded() : Array_of_Region;
  1755. begin
  1756.   Result := FregionExcluded;
  1757. end;
  1758.  
  1759. function RegionSet.Get_regionIncluded() : Array_of_Region;
  1760. begin
  1761.   Result := FregionIncluded;
  1762. end;
  1763.  
  1764. function ReturnPolicy.Get_categoryTypes() : Array_of_CategoryType;
  1765. begin
  1766.   Result := FcategoryTypes;
  1767. end;
  1768.  
  1769. function ReturnPolicy.Get_description() : String;
  1770. begin
  1771.   Result := Fdescription;
  1772. end;
  1773.  
  1774. function ReturnPolicy.Get_extendedHolidayReturnsOffered() : Boolean;
  1775. begin
  1776.   Result := FextendedHolidayReturnsOffered;
  1777. end;
  1778.  
  1779. function ReturnPolicy.Get_internationalOverride() : InternationalReturnOverrideType;
  1780. begin
  1781.   Result := FinternationalOverride;
  1782. end;
  1783.  
  1784. function ReturnPolicy.Get_marketplaceId() : String;
  1785. begin
  1786.   Result := FmarketplaceId;
  1787. end;
  1788.  
  1789. function ReturnPolicy.Get_name() : String;
  1790. begin
  1791.   Result := Fname;
  1792. end;
  1793.  
  1794. function ReturnPolicy.Get_refundMethod() : String;
  1795. begin
  1796.   Result := FrefundMethod;
  1797. end;
  1798.  
  1799. function ReturnPolicy.Get_restockingFeePercentage() : String;
  1800. begin
  1801.   Result := FrestockingFeePercentage;
  1802. end;
  1803.  
  1804. function ReturnPolicy.Get_returnInstructions() : String;
  1805. begin
  1806.   Result := FreturnInstructions;
  1807. end;
  1808.  
  1809. function ReturnPolicy.Get_returnMethod() : String;
  1810. begin
  1811.   Result := FreturnMethod;
  1812. end;
  1813.  
  1814. function ReturnPolicy.Get_returnPeriod() : TimeDuration;
  1815. begin
  1816.   Result := FreturnPeriod;
  1817. end;
  1818.  
  1819. function ReturnPolicy.Get_returnPolicyId() : String;
  1820. begin
  1821.   Result := FreturnPolicyId;
  1822. end;
  1823.  
  1824. function ReturnPolicy.Get_returnsAccepted() : Boolean;
  1825. begin
  1826.   Result := FreturnsAccepted;
  1827. end;
  1828.  
  1829. function ReturnPolicy.Get_returnShippingCostPayer() : String;
  1830. begin
  1831.   Result := FreturnShippingCostPayer;
  1832. end;
  1833.  
  1834. function ReturnPolicyRequest.Get_categoryTypes() : Array_of_CategoryType;
  1835. begin
  1836.   Result := FcategoryTypes;
  1837. end;
  1838.  
  1839. function ReturnPolicyRequest.Get_description() : String;
  1840. begin
  1841.   Result := Fdescription;
  1842. end;
  1843.  
  1844. function ReturnPolicyRequest.Get_extendedHolidayReturnsOffered() : Boolean;
  1845. begin
  1846.   Result := FextendedHolidayReturnsOffered;
  1847. end;
  1848.  
  1849. function ReturnPolicyRequest.Get_internationalOverride() : InternationalReturnOverrideType;
  1850. begin
  1851.   Result := FinternationalOverride;
  1852. end;
  1853.  
  1854. function ReturnPolicyRequest.Get_marketplaceId() : String;
  1855. begin
  1856.   Result := FmarketplaceId;
  1857. end;
  1858.  
  1859. function ReturnPolicyRequest.Get_name() : String;
  1860. begin
  1861.   Result := Fname;
  1862. end;
  1863.  
  1864. function ReturnPolicyRequest.Get_refundMethod() : String;
  1865. begin
  1866.   Result := FrefundMethod;
  1867. end;
  1868.  
  1869. function ReturnPolicyRequest.Get_restockingFeePercentage() : String;
  1870. begin
  1871.   Result := FrestockingFeePercentage;
  1872. end;
  1873.  
  1874. function ReturnPolicyRequest.Get_returnInstructions() : String;
  1875. begin
  1876.   Result := FreturnInstructions;
  1877. end;
  1878.  
  1879. function ReturnPolicyRequest.Get_returnMethod() : String;
  1880. begin
  1881.   Result := FreturnMethod;
  1882. end;
  1883.  
  1884. function ReturnPolicyRequest.Get_returnPeriod() : TimeDuration;
  1885. begin
  1886.   Result := FreturnPeriod;
  1887. end;
  1888.  
  1889. function ReturnPolicyRequest.Get_returnsAccepted() : Boolean;
  1890. begin
  1891.   Result := FreturnsAccepted;
  1892. end;
  1893.  
  1894. function ReturnPolicyRequest.Get_returnShippingCostPayer() : String;
  1895. begin
  1896.   Result := FreturnShippingCostPayer;
  1897. end;
  1898.  
  1899. function ReturnPolicyResponse.Get_href() : String;
  1900. begin
  1901.   Result := Fhref;
  1902. end;
  1903.  
  1904. function ReturnPolicyResponse.Get_limit() : Integer;
  1905. begin
  1906.   Result := Flimit;
  1907. end;
  1908.  
  1909. function ReturnPolicyResponse.Get_next() : String;
  1910. begin
  1911.   Result := Fnext;
  1912. end;
  1913.  
  1914. function ReturnPolicyResponse.Get_offset() : Integer;
  1915. begin
  1916.   Result := Foffset;
  1917. end;
  1918.  
  1919. function ReturnPolicyResponse.Get_prev() : String;
  1920. begin
  1921.   Result := Fprev;
  1922. end;
  1923.  
  1924. function ReturnPolicyResponse.Get_total() : Integer;
  1925. begin
  1926.   Result := Ftotal;
  1927. end;
  1928.  
  1929. function ReturnPolicyResponse.Get_returnPolicies() : Array_of_ReturnPolicy;
  1930. begin
  1931.   Result := FreturnPolicies;
  1932. end;
  1933.  
  1934. function SalesTax.Get_countryCode() : String;
  1935. begin
  1936.   Result := FcountryCode;
  1937. end;
  1938.  
  1939. function SalesTax.Get_salesTaxJurisdictionId() : String;
  1940. begin
  1941.   Result := FsalesTaxJurisdictionId;
  1942. end;
  1943.  
  1944. function SalesTax.Get_salesTaxPercentage() : String;
  1945. begin
  1946.   Result := FsalesTaxPercentage;
  1947. end;
  1948.  
  1949. function SalesTax.Get_shippingAndHandlingTaxed() : Boolean;
  1950. begin
  1951.   Result := FshippingAndHandlingTaxed;
  1952. end;
  1953.  
  1954. function SalesTaxBase.Get_salesTaxPercentage() : String;
  1955. begin
  1956.   Result := FsalesTaxPercentage;
  1957. end;
  1958.  
  1959. function SalesTaxBase.Get_shippingAndHandlingTaxed() : Boolean;
  1960. begin
  1961.   Result := FshippingAndHandlingTaxed;
  1962. end;
  1963.  
  1964. function SalesTaxes.Get_salesTaxes() : Array_of_SalesTax;
  1965. begin
  1966.   Result := FsalesTaxes;
  1967. end;
  1968.  
  1969. function SellingLimit.Get_amount() : Amount;
  1970. begin
  1971.   Result := Famount;
  1972. end;
  1973.  
  1974. function SellingLimit.Get_quantity() : Integer;
  1975. begin
  1976.   Result := Fquantity;
  1977. end;
  1978.  
  1979. function SellingPrivileges.Get_sellerRegistrationCompleted() : Boolean;
  1980. begin
  1981.   Result := FsellerRegistrationCompleted;
  1982. end;
  1983.  
  1984. function SellingPrivileges.Get_sellingLimit() : SellingLimit;
  1985. begin
  1986.   Result := FsellingLimit;
  1987. end;
  1988.  
  1989. function SetFulfillmentPolicyResponse.Get_categoryTypes() : Array_of_CategoryType;
  1990. begin
  1991.   Result := FcategoryTypes;
  1992. end;
  1993.  
  1994. function SetFulfillmentPolicyResponse.Get_description() : String;
  1995. begin
  1996.   Result := Fdescription;
  1997. end;
  1998.  
  1999. function SetFulfillmentPolicyResponse.Get_freightShipping() : Boolean;
  2000. begin
  2001.   Result := FfreightShipping;
  2002. end;
  2003.  
  2004. function SetFulfillmentPolicyResponse.Get_fulfillmentPolicyId() : String;
  2005. begin
  2006.   Result := FfulfillmentPolicyId;
  2007. end;
  2008.  
  2009. function SetFulfillmentPolicyResponse.Get_globalShipping() : Boolean;
  2010. begin
  2011.   Result := FglobalShipping;
  2012. end;
  2013.  
  2014. function SetFulfillmentPolicyResponse.Get_handlingTime() : TimeDuration;
  2015. begin
  2016.   Result := FhandlingTime;
  2017. end;
  2018.  
  2019. function SetFulfillmentPolicyResponse.Get_localPickup() : Boolean;
  2020. begin
  2021.   Result := FlocalPickup;
  2022. end;
  2023.  
  2024. function SetFulfillmentPolicyResponse.Get_marketplaceId() : String;
  2025. begin
  2026.   Result := FmarketplaceId;
  2027. end;
  2028.  
  2029. function SetFulfillmentPolicyResponse.Get_name() : String;
  2030. begin
  2031.   Result := Fname;
  2032. end;
  2033.  
  2034. function SetFulfillmentPolicyResponse.Get_pickupDropOff() : Boolean;
  2035. begin
  2036.   Result := FpickupDropOff;
  2037. end;
  2038.  
  2039. function SetFulfillmentPolicyResponse.Get_shippingOptions() : Array_of_ShippingOption;
  2040. begin
  2041.   Result := FshippingOptions;
  2042. end;
  2043.  
  2044. function SetFulfillmentPolicyResponse.Get_shipToLocations() : RegionSet;
  2045. begin
  2046.   Result := FshipToLocations;
  2047. end;
  2048.  
  2049. function SetFulfillmentPolicyResponse.Get_warnings() : Array_of_Error;
  2050. begin
  2051.   Result := Fwarnings;
  2052. end;
  2053.  
  2054. function SetPaymentPolicyResponse.Get_categoryTypes() : Array_of_CategoryType;
  2055. begin
  2056.   Result := FcategoryTypes;
  2057. end;
  2058.  
  2059. function SetPaymentPolicyResponse.Get_deposit() : Deposit;
  2060. begin
  2061.   Result := Fdeposit;
  2062. end;
  2063.  
  2064. function SetPaymentPolicyResponse.Get_description() : String;
  2065. begin
  2066.   Result := Fdescription;
  2067. end;
  2068.  
  2069. function SetPaymentPolicyResponse.Get_fullPaymentDueIn() : TimeDuration;
  2070. begin
  2071.   Result := FfullPaymentDueIn;
  2072. end;
  2073.  
  2074. function SetPaymentPolicyResponse.Get_immediatePay() : Boolean;
  2075. begin
  2076.   Result := FimmediatePay;
  2077. end;
  2078.  
  2079. function SetPaymentPolicyResponse.Get_marketplaceId() : String;
  2080. begin
  2081.   Result := FmarketplaceId;
  2082. end;
  2083.  
  2084. function SetPaymentPolicyResponse.Get_name() : String;
  2085. begin
  2086.   Result := Fname;
  2087. end;
  2088.  
  2089. function SetPaymentPolicyResponse.Get_paymentInstructions() : String;
  2090. begin
  2091.   Result := FpaymentInstructions;
  2092. end;
  2093.  
  2094. function SetPaymentPolicyResponse.Get_paymentMethods() : Array_of_PaymentMethod;
  2095. begin
  2096.   Result := FpaymentMethods;
  2097. end;
  2098.  
  2099. function SetPaymentPolicyResponse.Get_paymentPolicyId() : String;
  2100. begin
  2101.   Result := FpaymentPolicyId;
  2102. end;
  2103.  
  2104. function SetPaymentPolicyResponse.Get_warnings() : Array_of_Error;
  2105. begin
  2106.   Result := Fwarnings;
  2107. end;
  2108.  
  2109. function SetReturnPolicyResponse.Get_categoryTypes() : Array_of_CategoryType;
  2110. begin
  2111.   Result := FcategoryTypes;
  2112. end;
  2113.  
  2114. function SetReturnPolicyResponse.Get_description() : String;
  2115. begin
  2116.   Result := Fdescription;
  2117. end;
  2118.  
  2119. function SetReturnPolicyResponse.Get_extendedHolidayReturnsOffered() : Boolean;
  2120. begin
  2121.   Result := FextendedHolidayReturnsOffered;
  2122. end;
  2123.  
  2124. function SetReturnPolicyResponse.Get_internationalOverride() : InternationalReturnOverrideType;
  2125. begin
  2126.   Result := FinternationalOverride;
  2127. end;
  2128.  
  2129. function SetReturnPolicyResponse.Get_marketplaceId() : String;
  2130. begin
  2131.   Result := FmarketplaceId;
  2132. end;
  2133.  
  2134. function SetReturnPolicyResponse.Get_name() : String;
  2135. begin
  2136.   Result := Fname;
  2137. end;
  2138.  
  2139. function SetReturnPolicyResponse.Get_refundMethod() : String;
  2140. begin
  2141.   Result := FrefundMethod;
  2142. end;
  2143.  
  2144. function SetReturnPolicyResponse.Get_restockingFeePercentage() : String;
  2145. begin
  2146.   Result := FrestockingFeePercentage;
  2147. end;
  2148.  
  2149. function SetReturnPolicyResponse.Get_returnInstructions() : String;
  2150. begin
  2151.   Result := FreturnInstructions;
  2152. end;
  2153.  
  2154. function SetReturnPolicyResponse.Get_returnMethod() : String;
  2155. begin
  2156.   Result := FreturnMethod;
  2157. end;
  2158.  
  2159. function SetReturnPolicyResponse.Get_returnPeriod() : TimeDuration;
  2160. begin
  2161.   Result := FreturnPeriod;
  2162. end;
  2163.  
  2164. function SetReturnPolicyResponse.Get_returnPolicyId() : String;
  2165. begin
  2166.   Result := FreturnPolicyId;
  2167. end;
  2168.  
  2169. function SetReturnPolicyResponse.Get_returnsAccepted() : Boolean;
  2170. begin
  2171.   Result := FreturnsAccepted;
  2172. end;
  2173.  
  2174. function SetReturnPolicyResponse.Get_returnShippingCostPayer() : String;
  2175. begin
  2176.   Result := FreturnShippingCostPayer;
  2177. end;
  2178.  
  2179. function SetReturnPolicyResponse.Get_warnings() : Array_of_Error;
  2180. begin
  2181.   Result := Fwarnings;
  2182. end;
  2183.  
  2184. function ShippingOption.Get_costType() : String;
  2185. begin
  2186.   Result := FcostType;
  2187. end;
  2188.  
  2189. function ShippingOption.Get_insuranceFee() : Amount;
  2190. begin
  2191.   Result := FinsuranceFee;
  2192. end;
  2193.  
  2194. function ShippingOption.Get_insuranceOffered() : Boolean;
  2195. begin
  2196.   Result := FinsuranceOffered;
  2197. end;
  2198.  
  2199. function ShippingOption.Get_optionType() : String;
  2200. begin
  2201.   Result := FoptionType;
  2202. end;
  2203.  
  2204. function ShippingOption.Get_packageHandlingCost() : Amount;
  2205. begin
  2206.   Result := FpackageHandlingCost;
  2207. end;
  2208.  
  2209. function ShippingOption.Get_rateTableId() : String;
  2210. begin
  2211.   Result := FrateTableId;
  2212. end;
  2213.  
  2214. function ShippingOption.Get_shippingServices() : Array_of_ShippingService;
  2215. begin
  2216.   Result := FshippingServices;
  2217. end;
  2218.  
  2219. function ShippingService.Get_additionalShippingCost() : Amount;
  2220. begin
  2221.   Result := FadditionalShippingCost;
  2222. end;
  2223.  
  2224. function ShippingService.Get_buyerResponsibleForPickup() : Boolean;
  2225. begin
  2226.   Result := FbuyerResponsibleForPickup;
  2227. end;
  2228.  
  2229. function ShippingService.Get_buyerResponsibleForShipping() : Boolean;
  2230. begin
  2231.   Result := FbuyerResponsibleForShipping;
  2232. end;
  2233.  
  2234. function ShippingService.Get_cashOnDeliveryFee() : Amount;
  2235. begin
  2236.   Result := FcashOnDeliveryFee;
  2237. end;
  2238.  
  2239. function ShippingService.Get_freeShipping() : Boolean;
  2240. begin
  2241.   Result := FfreeShipping;
  2242. end;
  2243.  
  2244. function ShippingService.Get_shippingCarrierCode() : String;
  2245. begin
  2246.   Result := FshippingCarrierCode;
  2247. end;
  2248.  
  2249. function ShippingService.Get_shippingCost() : Amount;
  2250. begin
  2251.   Result := FshippingCost;
  2252. end;
  2253.  
  2254. function ShippingService.Get_shippingServiceCode() : String;
  2255. begin
  2256.   Result := FshippingServiceCode;
  2257. end;
  2258.  
  2259. function ShippingService.Get_shipToLocations() : RegionSet;
  2260. begin
  2261.   Result := FshipToLocations;
  2262. end;
  2263.  
  2264. function ShippingService.Get_sortOrder() : Integer;
  2265. begin
  2266.   Result := FsortOrder;
  2267. end;
  2268.  
  2269. function ShippingService.Get_surcharge() : Amount;
  2270. begin
  2271.   Result := Fsurcharge;
  2272. end;
  2273.  
  2274. function TimeDuration.Get_unit_() : String;
  2275. begin
  2276.   Result := Funit_;
  2277. end;
  2278.  
  2279. function TimeDuration.Get_value() : Integer;
  2280. begin
  2281.   Result := Fvalue;
  2282. end;
  2283.  
  2284. { Setter }
  2285.  
  2286. procedure Amount.Set_currency(currency: String);
  2287. begin
  2288.   Fcurrency := currency;
  2289. end;
  2290.  
  2291. procedure Amount.Set_value(value: String);
  2292. begin
  2293.   Fvalue := value;
  2294. end;
  2295.  
  2296. procedure CategoryType.Set_default(default: Boolean);
  2297. begin
  2298.   Fdefault := default;
  2299. end;
  2300.  
  2301. procedure CategoryType.Set_name(name: String);
  2302. begin
  2303.   Fname := name;
  2304. end;
  2305.  
  2306. procedure Deposit.Set_amount(amount: Amount);
  2307. begin
  2308.   Famount := amount;
  2309. end;
  2310.  
  2311. procedure Deposit.Set_dueIn(dueIn: TimeDuration);
  2312. begin
  2313.   FdueIn := dueIn;
  2314. end;
  2315.  
  2316. procedure Deposit.Set_paymentMethods(paymentMethods: Array_of_PaymentMethod);
  2317. begin
  2318.   FpaymentMethods := paymentMethods;
  2319. end;
  2320.  
  2321. procedure Error.Set_category(category: String);
  2322. begin
  2323.   Fcategory := category;
  2324. end;
  2325.  
  2326. procedure Error.Set_domain(domain: String);
  2327. begin
  2328.   Fdomain := domain;
  2329. end;
  2330.  
  2331. procedure Error.Set_errorId(errorId: Integer);
  2332. begin
  2333.   FerrorId := errorId;
  2334. end;
  2335.  
  2336. procedure Error.Set_inputRefIds(inputRefIds: Array_of_string);
  2337. begin
  2338.   FinputRefIds := inputRefIds;
  2339. end;
  2340.  
  2341. procedure Error.Set_longMessage(longMessage: String);
  2342. begin
  2343.   FlongMessage := longMessage;
  2344. end;
  2345.  
  2346. procedure Error.Set_message(message: String);
  2347. begin
  2348.   Fmessage := message;
  2349. end;
  2350.  
  2351. procedure Error.Set_outputRefIds(outputRefIds: Array_of_string);
  2352. begin
  2353.   FoutputRefIds := outputRefIds;
  2354. end;
  2355.  
  2356. procedure Error.Set_parameters(parameters: Array_of_ErrorParameter);
  2357. begin
  2358.   Fparameters := parameters;
  2359. end;
  2360.  
  2361. procedure Error.Set_subdomain(subdomain: String);
  2362. begin
  2363.   Fsubdomain := subdomain;
  2364. end;
  2365.  
  2366. procedure ErrorParameter.Set_name(name: String);
  2367. begin
  2368.   Fname := name;
  2369. end;
  2370.  
  2371. procedure ErrorParameter.Set_value(value: String);
  2372. begin
  2373.   Fvalue := value;
  2374. end;
  2375.  
  2376. procedure FulfillmentPolicy.Set_categoryTypes(categoryTypes: Array_of_CategoryType);
  2377. begin
  2378.   FcategoryTypes := categoryTypes;
  2379. end;
  2380.  
  2381. procedure FulfillmentPolicy.Set_description(description: String);
  2382. begin
  2383.   Fdescription := description;
  2384. end;
  2385.  
  2386. procedure FulfillmentPolicy.Set_freightShipping(freightShipping: Boolean);
  2387. begin
  2388.   FfreightShipping := freightShipping;
  2389. end;
  2390.  
  2391. procedure FulfillmentPolicy.Set_fulfillmentPolicyId(fulfillmentPolicyId: String);
  2392. begin
  2393.   FfulfillmentPolicyId := fulfillmentPolicyId;
  2394. end;
  2395.  
  2396. procedure FulfillmentPolicy.Set_globalShipping(globalShipping: Boolean);
  2397. begin
  2398.   FglobalShipping := globalShipping;
  2399. end;
  2400.  
  2401. procedure FulfillmentPolicy.Set_handlingTime(handlingTime: TimeDuration);
  2402. begin
  2403.   FhandlingTime := handlingTime;
  2404. end;
  2405.  
  2406. procedure FulfillmentPolicy.Set_localPickup(localPickup: Boolean);
  2407. begin
  2408.   FlocalPickup := localPickup;
  2409. end;
  2410.  
  2411. procedure FulfillmentPolicy.Set_marketplaceId(marketplaceId: String);
  2412. begin
  2413.   FmarketplaceId := marketplaceId;
  2414. end;
  2415.  
  2416. procedure FulfillmentPolicy.Set_name(name: String);
  2417. begin
  2418.   Fname := name;
  2419. end;
  2420.  
  2421. procedure FulfillmentPolicy.Set_pickupDropOff(pickupDropOff: Boolean);
  2422. begin
  2423.   FpickupDropOff := pickupDropOff;
  2424. end;
  2425.  
  2426. procedure FulfillmentPolicy.Set_shippingOptions(shippingOptions: Array_of_ShippingOption);
  2427. begin
  2428.   FshippingOptions := shippingOptions;
  2429. end;
  2430.  
  2431. procedure FulfillmentPolicy.Set_shipToLocations(shipToLocations: RegionSet);
  2432. begin
  2433.   FshipToLocations := shipToLocations;
  2434. end;
  2435.  
  2436. procedure FulfillmentPolicyRequest.Set_categoryTypes(categoryTypes: Array_of_CategoryType);
  2437. begin
  2438.   FcategoryTypes := categoryTypes;
  2439. end;
  2440.  
  2441. procedure FulfillmentPolicyRequest.Set_description(description: String);
  2442. begin
  2443.   Fdescription := description;
  2444. end;
  2445.  
  2446. procedure FulfillmentPolicyRequest.Set_freightShipping(freightShipping: Boolean);
  2447. begin
  2448.   FfreightShipping := freightShipping;
  2449. end;
  2450.  
  2451. procedure FulfillmentPolicyRequest.Set_globalShipping(globalShipping: Boolean);
  2452. begin
  2453.   FglobalShipping := globalShipping;
  2454. end;
  2455.  
  2456. procedure FulfillmentPolicyRequest.Set_handlingTime(handlingTime: TimeDuration);
  2457. begin
  2458.   FhandlingTime := handlingTime;
  2459. end;
  2460.  
  2461. procedure FulfillmentPolicyRequest.Set_localPickup(localPickup: Boolean);
  2462. begin
  2463.   FlocalPickup := localPickup;
  2464. end;
  2465.  
  2466. procedure FulfillmentPolicyRequest.Set_marketplaceId(marketplaceId: String);
  2467. begin
  2468.   FmarketplaceId := marketplaceId;
  2469. end;
  2470.  
  2471. procedure FulfillmentPolicyRequest.Set_name(name: String);
  2472. begin
  2473.   Fname := name;
  2474. end;
  2475.  
  2476. procedure FulfillmentPolicyRequest.Set_pickupDropOff(pickupDropOff: Boolean);
  2477. begin
  2478.   FpickupDropOff := pickupDropOff;
  2479. end;
  2480.  
  2481. procedure FulfillmentPolicyRequest.Set_shippingOptions(shippingOptions: Array_of_ShippingOption);
  2482. begin
  2483.   FshippingOptions := shippingOptions;
  2484. end;
  2485.  
  2486. procedure FulfillmentPolicyRequest.Set_shipToLocations(shipToLocations: RegionSet);
  2487. begin
  2488.   FshipToLocations := shipToLocations;
  2489. end;
  2490.  
  2491. procedure FulfillmentPolicyResponse.Set_fulfillmentPolicies(fulfillmentPolicies: Array_of_FulfillmentPolicy);
  2492. begin
  2493.   FfulfillmentPolicies := fulfillmentPolicies;
  2494. end;
  2495.  
  2496. procedure FulfillmentPolicyResponse.Set_href(href: String);
  2497. begin
  2498.   Fhref := href;
  2499. end;
  2500.  
  2501. procedure FulfillmentPolicyResponse.Set_limit(limit: Integer);
  2502. begin
  2503.   Flimit := limit;
  2504. end;
  2505.  
  2506. procedure FulfillmentPolicyResponse.Set_next(next: String);
  2507. begin
  2508.   Fnext := next;
  2509. end;
  2510.  
  2511. procedure FulfillmentPolicyResponse.Set_offset(offset: Integer);
  2512. begin
  2513.   Foffset := offset;
  2514. end;
  2515.  
  2516. procedure FulfillmentPolicyResponse.Set_prev(prev: String);
  2517. begin
  2518.   Fprev := prev;
  2519. end;
  2520.  
  2521. procedure FulfillmentPolicyResponse.Set_total(total: Integer);
  2522. begin
  2523.   Ftotal := total;
  2524. end;
  2525.  
  2526. procedure InternationalReturnOverrideType.Set_returnMethod(returnMethod: String);
  2527. begin
  2528.   FreturnMethod := returnMethod;
  2529. end;
  2530.  
  2531. procedure InternationalReturnOverrideType.Set_returnPeriod(returnPeriod: TimeDuration);
  2532. begin
  2533.   FreturnPeriod := returnPeriod;
  2534. end;
  2535.  
  2536. procedure InternationalReturnOverrideType.Set_returnsAccepted(returnsAccepted: Boolean);
  2537. begin
  2538.   FreturnsAccepted := returnsAccepted;
  2539. end;
  2540.  
  2541. procedure InternationalReturnOverrideType.Set_returnShippingCostPayer(returnShippingCostPayer: String);
  2542. begin
  2543.   FreturnShippingCostPayer := returnShippingCostPayer;
  2544. end;
  2545.  
  2546. procedure PaymentMethod.Set_brands(brands: Array_of_string);
  2547. begin
  2548.   Fbrands := brands;
  2549. end;
  2550.  
  2551. procedure PaymentMethod.Set_paymentMethodType(paymentMethodType: String);
  2552. begin
  2553.   FpaymentMethodType := paymentMethodType;
  2554. end;
  2555.  
  2556. procedure PaymentMethod.Set_recipientAccountReference(recipientAccountReference: RecipientAccountReference);
  2557. begin
  2558.   FrecipientAccountReference := recipientAccountReference;
  2559. end;
  2560.  
  2561. procedure PaymentPolicy.Set_categoryTypes(categoryTypes: Array_of_CategoryType);
  2562. begin
  2563.   FcategoryTypes := categoryTypes;
  2564. end;
  2565.  
  2566. procedure PaymentPolicy.Set_deposit(deposit: Deposit);
  2567. begin
  2568.   Fdeposit := deposit;
  2569. end;
  2570.  
  2571. procedure PaymentPolicy.Set_description(description: String);
  2572. begin
  2573.   Fdescription := description;
  2574. end;
  2575.  
  2576. procedure PaymentPolicy.Set_fullPaymentDueIn(fullPaymentDueIn: TimeDuration);
  2577. begin
  2578.   FfullPaymentDueIn := fullPaymentDueIn;
  2579. end;
  2580.  
  2581. procedure PaymentPolicy.Set_immediatePay(immediatePay: Boolean);
  2582. begin
  2583.   FimmediatePay := immediatePay;
  2584. end;
  2585.  
  2586. procedure PaymentPolicy.Set_marketplaceId(marketplaceId: String);
  2587. begin
  2588.   FmarketplaceId := marketplaceId;
  2589. end;
  2590.  
  2591. procedure PaymentPolicy.Set_name(name: String);
  2592. begin
  2593.   Fname := name;
  2594. end;
  2595.  
  2596. procedure PaymentPolicy.Set_paymentInstructions(paymentInstructions: String);
  2597. begin
  2598.   FpaymentInstructions := paymentInstructions;
  2599. end;
  2600.  
  2601. procedure PaymentPolicy.Set_paymentMethods(paymentMethods: Array_of_PaymentMethod);
  2602. begin
  2603.   FpaymentMethods := paymentMethods;
  2604. end;
  2605.  
  2606. procedure PaymentPolicy.Set_paymentPolicyId(paymentPolicyId: String);
  2607. begin
  2608.   FpaymentPolicyId := paymentPolicyId;
  2609. end;
  2610.  
  2611. procedure PaymentPolicyRequest.Set_categoryTypes(categoryTypes: Array_of_CategoryType);
  2612. begin
  2613.   FcategoryTypes := categoryTypes;
  2614. end;
  2615.  
  2616. procedure PaymentPolicyRequest.Set_deposit(deposit: Deposit);
  2617. begin
  2618.   Fdeposit := deposit;
  2619. end;
  2620.  
  2621. procedure PaymentPolicyRequest.Set_description(description: String);
  2622. begin
  2623.   Fdescription := description;
  2624. end;
  2625.  
  2626. procedure PaymentPolicyRequest.Set_fullPaymentDueIn(fullPaymentDueIn: TimeDuration);
  2627. begin
  2628.   FfullPaymentDueIn := fullPaymentDueIn;
  2629. end;
  2630.  
  2631. procedure PaymentPolicyRequest.Set_immediatePay(immediatePay: Boolean);
  2632. begin
  2633.   FimmediatePay := immediatePay;
  2634. end;
  2635.  
  2636. procedure PaymentPolicyRequest.Set_marketplaceId(marketplaceId: String);
  2637. begin
  2638.   FmarketplaceId := marketplaceId;
  2639. end;
  2640.  
  2641. procedure PaymentPolicyRequest.Set_name(name: String);
  2642. begin
  2643.   Fname := name;
  2644. end;
  2645.  
  2646. procedure PaymentPolicyRequest.Set_paymentInstructions(paymentInstructions: String);
  2647. begin
  2648.   FpaymentInstructions := paymentInstructions;
  2649. end;
  2650.  
  2651. procedure PaymentPolicyRequest.Set_paymentMethods(paymentMethods: Array_of_PaymentMethod);
  2652. begin
  2653.   FpaymentMethods := paymentMethods;
  2654. end;
  2655.  
  2656. procedure PaymentPolicyResponse.Set_href(href: String);
  2657. begin
  2658.   Fhref := href;
  2659. end;
  2660.  
  2661. procedure PaymentPolicyResponse.Set_limit(limit: Integer);
  2662. begin
  2663.   Flimit := limit;
  2664. end;
  2665.  
  2666. procedure PaymentPolicyResponse.Set_next(next: String);
  2667. begin
  2668.   Fnext := next;
  2669. end;
  2670.  
  2671. procedure PaymentPolicyResponse.Set_offset(offset: Integer);
  2672. begin
  2673.   Foffset := offset;
  2674. end;
  2675.  
  2676. procedure PaymentPolicyResponse.Set_prev(prev: String);
  2677. begin
  2678.   Fprev := prev;
  2679. end;
  2680.  
  2681. procedure PaymentPolicyResponse.Set_total(total: Integer);
  2682. begin
  2683.   Ftotal := total;
  2684. end;
  2685.  
  2686. procedure PaymentPolicyResponse.Set_paymentPolicies(paymentPolicies: Array_of_PaymentPolicy);
  2687. begin
  2688.   FpaymentPolicies := paymentPolicies;
  2689. end;
  2690.  
  2691. procedure PaymentsProgramOnboardingResponse.Set_onboardingStatus(onboardingStatus: String);
  2692. begin
  2693.   FonboardingStatus := onboardingStatus;
  2694. end;
  2695.  
  2696. procedure PaymentsProgramOnboardingResponse.Set_steps(steps: Array_of_PaymentsProgramOnboardingSteps);
  2697. begin
  2698.   Fsteps := steps;
  2699. end;
  2700.  
  2701. procedure PaymentsProgramOnboardingSteps.Set_name(name: String);
  2702. begin
  2703.   Fname := name;
  2704. end;
  2705.  
  2706. procedure PaymentsProgramOnboardingSteps.Set_status(status: String);
  2707. begin
  2708.   Fstatus := status;
  2709. end;
  2710.  
  2711. procedure PaymentsProgramOnboardingSteps.Set_webUrl(webUrl: String);
  2712. begin
  2713.   FwebUrl := webUrl;
  2714. end;
  2715.  
  2716. procedure PaymentsProgramResponse.Set_marketplaceId(marketplaceId: String);
  2717. begin
  2718.   FmarketplaceId := marketplaceId;
  2719. end;
  2720.  
  2721. procedure PaymentsProgramResponse.Set_paymentsProgramType(paymentsProgramType: String);
  2722. begin
  2723.   FpaymentsProgramType := paymentsProgramType;
  2724. end;
  2725.  
  2726. procedure PaymentsProgramResponse.Set_status(status: String);
  2727. begin
  2728.   Fstatus := status;
  2729. end;
  2730.  
  2731. procedure PaymentsProgramResponse.Set_wasPreviouslyOptedIn(wasPreviouslyOptedIn: Boolean);
  2732. begin
  2733.   FwasPreviouslyOptedIn := wasPreviouslyOptedIn;
  2734. end;
  2735.  
  2736. procedure Program_.Set_programType(programType: String);
  2737. begin
  2738.   FprogramType := programType;
  2739. end;
  2740.  
  2741. procedure Programs.Set_programs(programs: Array_of_Program_);
  2742. begin
  2743.   Fprograms := programs;
  2744. end;
  2745.  
  2746. procedure RateTable.Set_countryCode(countryCode: String);
  2747. begin
  2748.   FcountryCode := countryCode;
  2749. end;
  2750.  
  2751. procedure RateTable.Set_locality(locality: String);
  2752. begin
  2753.   Flocality := locality;
  2754. end;
  2755.  
  2756. procedure RateTable.Set_name(name: String);
  2757. begin
  2758.   Fname := name;
  2759. end;
  2760.  
  2761. procedure RateTable.Set_rateTableId(rateTableId: String);
  2762. begin
  2763.   FrateTableId := rateTableId;
  2764. end;
  2765.  
  2766. procedure RateTableResponse.Set_rateTables(rateTables: Array_of_RateTable);
  2767. begin
  2768.   FrateTables := rateTables;
  2769. end;
  2770.  
  2771. procedure RecipientAccountReference.Set_referenceId(referenceId: String);
  2772. begin
  2773.   FreferenceId := referenceId;
  2774. end;
  2775.  
  2776. procedure RecipientAccountReference.Set_referenceType(referenceType: String);
  2777. begin
  2778.   FreferenceType := referenceType;
  2779. end;
  2780.  
  2781. procedure Region.Set_regionName(regionName: String);
  2782. begin
  2783.   FregionName := regionName;
  2784. end;
  2785.  
  2786. procedure Region.Set_regionType(regionType: String);
  2787. begin
  2788.   FregionType := regionType;
  2789. end;
  2790.  
  2791. procedure RegionSet.Set_regionExcluded(regionExcluded: Array_of_Region);
  2792. begin
  2793.   FregionExcluded := regionExcluded;
  2794. end;
  2795.  
  2796. procedure RegionSet.Set_regionIncluded(regionIncluded: Array_of_Region);
  2797. begin
  2798.   FregionIncluded := regionIncluded;
  2799. end;
  2800.  
  2801. procedure ReturnPolicy.Set_categoryTypes(categoryTypes: Array_of_CategoryType);
  2802. begin
  2803.   FcategoryTypes := categoryTypes;
  2804. end;
  2805.  
  2806. procedure ReturnPolicy.Set_description(description: String);
  2807. begin
  2808.   Fdescription := description;
  2809. end;
  2810.  
  2811. procedure ReturnPolicy.Set_extendedHolidayReturnsOffered(extendedHolidayReturnsOffered: Boolean);
  2812. begin
  2813.   FextendedHolidayReturnsOffered := extendedHolidayReturnsOffered;
  2814. end;
  2815.  
  2816. procedure ReturnPolicy.Set_internationalOverride(internationalOverride: InternationalReturnOverrideType);
  2817. begin
  2818.   FinternationalOverride := internationalOverride;
  2819. end;
  2820.  
  2821. procedure ReturnPolicy.Set_marketplaceId(marketplaceId: String);
  2822. begin
  2823.   FmarketplaceId := marketplaceId;
  2824. end;
  2825.  
  2826. procedure ReturnPolicy.Set_name(name: String);
  2827. begin
  2828.   Fname := name;
  2829. end;
  2830.  
  2831. procedure ReturnPolicy.Set_refundMethod(refundMethod: String);
  2832. begin
  2833.   FrefundMethod := refundMethod;
  2834. end;
  2835.  
  2836. procedure ReturnPolicy.Set_restockingFeePercentage(restockingFeePercentage: String);
  2837. begin
  2838.   FrestockingFeePercentage := restockingFeePercentage;
  2839. end;
  2840.  
  2841. procedure ReturnPolicy.Set_returnInstructions(returnInstructions: String);
  2842. begin
  2843.   FreturnInstructions := returnInstructions;
  2844. end;
  2845.  
  2846. procedure ReturnPolicy.Set_returnMethod(returnMethod: String);
  2847. begin
  2848.   FreturnMethod := returnMethod;
  2849. end;
  2850.  
  2851. procedure ReturnPolicy.Set_returnPeriod(returnPeriod: TimeDuration);
  2852. begin
  2853.   FreturnPeriod := returnPeriod;
  2854. end;
  2855.  
  2856. procedure ReturnPolicy.Set_returnPolicyId(returnPolicyId: String);
  2857. begin
  2858.   FreturnPolicyId := returnPolicyId;
  2859. end;
  2860.  
  2861. procedure ReturnPolicy.Set_returnsAccepted(returnsAccepted: Boolean);
  2862. begin
  2863.   FreturnsAccepted := returnsAccepted;
  2864. end;
  2865.  
  2866. procedure ReturnPolicy.Set_returnShippingCostPayer(returnShippingCostPayer: String);
  2867. begin
  2868.   FreturnShippingCostPayer := returnShippingCostPayer;
  2869. end;
  2870.  
  2871. procedure ReturnPolicyRequest.Set_categoryTypes(categoryTypes: Array_of_CategoryType);
  2872. begin
  2873.   FcategoryTypes := categoryTypes;
  2874. end;
  2875.  
  2876. procedure ReturnPolicyRequest.Set_description(description: String);
  2877. begin
  2878.   Fdescription := description;
  2879. end;
  2880.  
  2881. procedure ReturnPolicyRequest.Set_extendedHolidayReturnsOffered(extendedHolidayReturnsOffered: Boolean);
  2882. begin
  2883.   FextendedHolidayReturnsOffered := extendedHolidayReturnsOffered;
  2884. end;
  2885.  
  2886. procedure ReturnPolicyRequest.Set_internationalOverride(internationalOverride: InternationalReturnOverrideType);
  2887. begin
  2888.   FinternationalOverride := internationalOverride;
  2889. end;
  2890.  
  2891. procedure ReturnPolicyRequest.Set_marketplaceId(marketplaceId: String);
  2892. begin
  2893.   FmarketplaceId := marketplaceId;
  2894. end;
  2895.  
  2896. procedure ReturnPolicyRequest.Set_name(name: String);
  2897. begin
  2898.   Fname := name;
  2899. end;
  2900.  
  2901. procedure ReturnPolicyRequest.Set_refundMethod(refundMethod: String);
  2902. begin
  2903.   FrefundMethod := refundMethod;
  2904. end;
  2905.  
  2906. procedure ReturnPolicyRequest.Set_restockingFeePercentage(restockingFeePercentage: String);
  2907. begin
  2908.   FrestockingFeePercentage := restockingFeePercentage;
  2909. end;
  2910.  
  2911. procedure ReturnPolicyRequest.Set_returnInstructions(returnInstructions: String);
  2912. begin
  2913.   FreturnInstructions := returnInstructions;
  2914. end;
  2915.  
  2916. procedure ReturnPolicyRequest.Set_returnMethod(returnMethod: String);
  2917. begin
  2918.   FreturnMethod := returnMethod;
  2919. end;
  2920.  
  2921. procedure ReturnPolicyRequest.Set_returnPeriod(returnPeriod: TimeDuration);
  2922. begin
  2923.   FreturnPeriod := returnPeriod;
  2924. end;
  2925.  
  2926. procedure ReturnPolicyRequest.Set_returnsAccepted(returnsAccepted: Boolean);
  2927. begin
  2928.   FreturnsAccepted := returnsAccepted;
  2929. end;
  2930.  
  2931. procedure ReturnPolicyRequest.Set_returnShippingCostPayer(returnShippingCostPayer: String);
  2932. begin
  2933.   FreturnShippingCostPayer := returnShippingCostPayer;
  2934. end;
  2935.  
  2936. procedure ReturnPolicyResponse.Set_href(href: String);
  2937. begin
  2938.   Fhref := href;
  2939. end;
  2940.  
  2941. procedure ReturnPolicyResponse.Set_limit(limit: Integer);
  2942. begin
  2943.   Flimit := limit;
  2944. end;
  2945.  
  2946. procedure ReturnPolicyResponse.Set_next(next: String);
  2947. begin
  2948.   Fnext := next;
  2949. end;
  2950.  
  2951. procedure ReturnPolicyResponse.Set_offset(offset: Integer);
  2952. begin
  2953.   Foffset := offset;
  2954. end;
  2955.  
  2956. procedure ReturnPolicyResponse.Set_prev(prev: String);
  2957. begin
  2958.   Fprev := prev;
  2959. end;
  2960.  
  2961. procedure ReturnPolicyResponse.Set_total(total: Integer);
  2962. begin
  2963.   Ftotal := total;
  2964. end;
  2965.  
  2966. procedure ReturnPolicyResponse.Set_returnPolicies(returnPolicies: Array_of_ReturnPolicy);
  2967. begin
  2968.   FreturnPolicies := returnPolicies;
  2969. end;
  2970.  
  2971. procedure SalesTax.Set_countryCode(countryCode: String);
  2972. begin
  2973.   FcountryCode := countryCode;
  2974. end;
  2975.  
  2976. procedure SalesTax.Set_salesTaxJurisdictionId(salesTaxJurisdictionId: String);
  2977. begin
  2978.   FsalesTaxJurisdictionId := salesTaxJurisdictionId;
  2979. end;
  2980.  
  2981. procedure SalesTax.Set_salesTaxPercentage(salesTaxPercentage: String);
  2982. begin
  2983.   FsalesTaxPercentage := salesTaxPercentage;
  2984. end;
  2985.  
  2986. procedure SalesTax.Set_shippingAndHandlingTaxed(shippingAndHandlingTaxed: Boolean);
  2987. begin
  2988.   FshippingAndHandlingTaxed := shippingAndHandlingTaxed;
  2989. end;
  2990.  
  2991. procedure SalesTaxBase.Set_salesTaxPercentage(salesTaxPercentage: String);
  2992. begin
  2993.   FsalesTaxPercentage := salesTaxPercentage;
  2994. end;
  2995.  
  2996. procedure SalesTaxBase.Set_shippingAndHandlingTaxed(shippingAndHandlingTaxed: Boolean);
  2997. begin
  2998.   FshippingAndHandlingTaxed := shippingAndHandlingTaxed;
  2999. end;
  3000.  
  3001. procedure SalesTaxes.Set_salesTaxes(salesTaxes: Array_of_SalesTax);
  3002. begin
  3003.   FsalesTaxes := salesTaxes;
  3004. end;
  3005.  
  3006. procedure SellingLimit.Set_amount(amount: Amount);
  3007. begin
  3008.   Famount := amount;
  3009. end;
  3010.  
  3011. procedure SellingLimit.Set_quantity(quantity: Integer);
  3012. begin
  3013.   Fquantity := quantity;
  3014. end;
  3015.  
  3016. procedure SellingPrivileges.Set_sellerRegistrationCompleted(sellerRegistrationCompleted: Boolean);
  3017. begin
  3018.   FsellerRegistrationCompleted := sellerRegistrationCompleted;
  3019. end;
  3020.  
  3021. procedure SellingPrivileges.Set_sellingLimit(sellingLimit: SellingLimit);
  3022. begin
  3023.   FsellingLimit := sellingLimit;
  3024. end;
  3025.  
  3026. procedure SetFulfillmentPolicyResponse.Set_categoryTypes(categoryTypes: Array_of_CategoryType);
  3027. begin
  3028.   FcategoryTypes := categoryTypes;
  3029. end;
  3030.  
  3031. procedure SetFulfillmentPolicyResponse.Set_description(description: String);
  3032. begin
  3033.   Fdescription := description;
  3034. end;
  3035.  
  3036. procedure SetFulfillmentPolicyResponse.Set_freightShipping(freightShipping: Boolean);
  3037. begin
  3038.   FfreightShipping := freightShipping;
  3039. end;
  3040.  
  3041. procedure SetFulfillmentPolicyResponse.Set_fulfillmentPolicyId(fulfillmentPolicyId: String);
  3042. begin
  3043.   FfulfillmentPolicyId := fulfillmentPolicyId;
  3044. end;
  3045.  
  3046. procedure SetFulfillmentPolicyResponse.Set_globalShipping(globalShipping: Boolean);
  3047. begin
  3048.   FglobalShipping := globalShipping;
  3049. end;
  3050.  
  3051. procedure SetFulfillmentPolicyResponse.Set_handlingTime(handlingTime: TimeDuration);
  3052. begin
  3053.   FhandlingTime := handlingTime;
  3054. end;
  3055.  
  3056. procedure SetFulfillmentPolicyResponse.Set_localPickup(localPickup: Boolean);
  3057. begin
  3058.   FlocalPickup := localPickup;
  3059. end;
  3060.  
  3061. procedure SetFulfillmentPolicyResponse.Set_marketplaceId(marketplaceId: String);
  3062. begin
  3063.   FmarketplaceId := marketplaceId;
  3064. end;
  3065.  
  3066. procedure SetFulfillmentPolicyResponse.Set_name(name: String);
  3067. begin
  3068.   Fname := name;
  3069. end;
  3070.  
  3071. procedure SetFulfillmentPolicyResponse.Set_pickupDropOff(pickupDropOff: Boolean);
  3072. begin
  3073.   FpickupDropOff := pickupDropOff;
  3074. end;
  3075.  
  3076. procedure SetFulfillmentPolicyResponse.Set_shippingOptions(shippingOptions: Array_of_ShippingOption);
  3077. begin
  3078.   FshippingOptions := shippingOptions;
  3079. end;
  3080.  
  3081. procedure SetFulfillmentPolicyResponse.Set_shipToLocations(shipToLocations: RegionSet);
  3082. begin
  3083.   FshipToLocations := shipToLocations;
  3084. end;
  3085.  
  3086. procedure SetFulfillmentPolicyResponse.Set_warnings(warnings: Array_of_Error);
  3087. begin
  3088.   Fwarnings := warnings;
  3089. end;
  3090.  
  3091. procedure SetPaymentPolicyResponse.Set_categoryTypes(categoryTypes: Array_of_CategoryType);
  3092. begin
  3093.   FcategoryTypes := categoryTypes;
  3094. end;
  3095.  
  3096. procedure SetPaymentPolicyResponse.Set_deposit(deposit: Deposit);
  3097. begin
  3098.   Fdeposit := deposit;
  3099. end;
  3100.  
  3101. procedure SetPaymentPolicyResponse.Set_description(description: String);
  3102. begin
  3103.   Fdescription := description;
  3104. end;
  3105.  
  3106. procedure SetPaymentPolicyResponse.Set_fullPaymentDueIn(fullPaymentDueIn: TimeDuration);
  3107. begin
  3108.   FfullPaymentDueIn := fullPaymentDueIn;
  3109. end;
  3110.  
  3111. procedure SetPaymentPolicyResponse.Set_immediatePay(immediatePay: Boolean);
  3112. begin
  3113.   FimmediatePay := immediatePay;
  3114. end;
  3115.  
  3116. procedure SetPaymentPolicyResponse.Set_marketplaceId(marketplaceId: String);
  3117. begin
  3118.   FmarketplaceId := marketplaceId;
  3119. end;
  3120.  
  3121. procedure SetPaymentPolicyResponse.Set_name(name: String);
  3122. begin
  3123.   Fname := name;
  3124. end;
  3125.  
  3126. procedure SetPaymentPolicyResponse.Set_paymentInstructions(paymentInstructions: String);
  3127. begin
  3128.   FpaymentInstructions := paymentInstructions;
  3129. end;
  3130.  
  3131. procedure SetPaymentPolicyResponse.Set_paymentMethods(paymentMethods: Array_of_PaymentMethod);
  3132. begin
  3133.   FpaymentMethods := paymentMethods;
  3134. end;
  3135.  
  3136. procedure SetPaymentPolicyResponse.Set_paymentPolicyId(paymentPolicyId: String);
  3137. begin
  3138.   FpaymentPolicyId := paymentPolicyId;
  3139. end;
  3140.  
  3141. procedure SetPaymentPolicyResponse.Set_warnings(warnings: Array_of_Error);
  3142. begin
  3143.   Fwarnings := warnings;
  3144. end;
  3145.  
  3146. procedure SetReturnPolicyResponse.Set_categoryTypes(categoryTypes: Array_of_CategoryType);
  3147. begin
  3148.   FcategoryTypes := categoryTypes;
  3149. end;
  3150.  
  3151. procedure SetReturnPolicyResponse.Set_description(description: String);
  3152. begin
  3153.   Fdescription := description;
  3154. end;
  3155.  
  3156. procedure SetReturnPolicyResponse.Set_extendedHolidayReturnsOffered(extendedHolidayReturnsOffered: Boolean);
  3157. begin
  3158.   FextendedHolidayReturnsOffered := extendedHolidayReturnsOffered;
  3159. end;
  3160.  
  3161. procedure SetReturnPolicyResponse.Set_internationalOverride(internationalOverride: InternationalReturnOverrideType);
  3162. begin
  3163.   FinternationalOverride := internationalOverride;
  3164. end;
  3165.  
  3166. procedure SetReturnPolicyResponse.Set_marketplaceId(marketplaceId: String);
  3167. begin
  3168.   FmarketplaceId := marketplaceId;
  3169. end;
  3170.  
  3171. procedure SetReturnPolicyResponse.Set_name(name: String);
  3172. begin
  3173.   Fname := name;
  3174. end;
  3175.  
  3176. procedure SetReturnPolicyResponse.Set_refundMethod(refundMethod: String);
  3177. begin
  3178.   FrefundMethod := refundMethod;
  3179. end;
  3180.  
  3181. procedure SetReturnPolicyResponse.Set_restockingFeePercentage(restockingFeePercentage: String);
  3182. begin
  3183.   FrestockingFeePercentage := restockingFeePercentage;
  3184. end;
  3185.  
  3186. procedure SetReturnPolicyResponse.Set_returnInstructions(returnInstructions: String);
  3187. begin
  3188.   FreturnInstructions := returnInstructions;
  3189. end;
  3190.  
  3191. procedure SetReturnPolicyResponse.Set_returnMethod(returnMethod: String);
  3192. begin
  3193.   FreturnMethod := returnMethod;
  3194. end;
  3195.  
  3196. procedure SetReturnPolicyResponse.Set_returnPeriod(returnPeriod: TimeDuration);
  3197. begin
  3198.   FreturnPeriod := returnPeriod;
  3199. end;
  3200.  
  3201. procedure SetReturnPolicyResponse.Set_returnPolicyId(returnPolicyId: String);
  3202. begin
  3203.   FreturnPolicyId := returnPolicyId;
  3204. end;
  3205.  
  3206. procedure SetReturnPolicyResponse.Set_returnsAccepted(returnsAccepted: Boolean);
  3207. begin
  3208.   FreturnsAccepted := returnsAccepted;
  3209. end;
  3210.  
  3211. procedure SetReturnPolicyResponse.Set_returnShippingCostPayer(returnShippingCostPayer: String);
  3212. begin
  3213.   FreturnShippingCostPayer := returnShippingCostPayer;
  3214. end;
  3215.  
  3216. procedure SetReturnPolicyResponse.Set_warnings(warnings: Array_of_Error);
  3217. begin
  3218.   Fwarnings := warnings;
  3219. end;
  3220.  
  3221. procedure ShippingOption.Set_costType(costType: String);
  3222. begin
  3223.   FcostType := costType;
  3224. end;
  3225.  
  3226. procedure ShippingOption.Set_insuranceFee(insuranceFee: Amount);
  3227. begin
  3228.   FinsuranceFee := insuranceFee;
  3229. end;
  3230.  
  3231. procedure ShippingOption.Set_insuranceOffered(insuranceOffered: Boolean);
  3232. begin
  3233.   FinsuranceOffered := insuranceOffered;
  3234. end;
  3235.  
  3236. procedure ShippingOption.Set_optionType(optionType: String);
  3237. begin
  3238.   FoptionType := optionType;
  3239. end;
  3240.  
  3241. procedure ShippingOption.Set_packageHandlingCost(packageHandlingCost: Amount);
  3242. begin
  3243.   FpackageHandlingCost := packageHandlingCost;
  3244. end;
  3245.  
  3246. procedure ShippingOption.Set_rateTableId(rateTableId: String);
  3247. begin
  3248.   FrateTableId := rateTableId;
  3249. end;
  3250.  
  3251. procedure ShippingOption.Set_shippingServices(shippingServices: Array_of_ShippingService);
  3252. begin
  3253.   FshippingServices := shippingServices;
  3254. end;
  3255.  
  3256. procedure ShippingService.Set_additionalShippingCost(additionalShippingCost: Amount);
  3257. begin
  3258.   FadditionalShippingCost := additionalShippingCost;
  3259. end;
  3260.  
  3261. procedure ShippingService.Set_buyerResponsibleForPickup(buyerResponsibleForPickup: Boolean);
  3262. begin
  3263.   FbuyerResponsibleForPickup := buyerResponsibleForPickup;
  3264. end;
  3265.  
  3266. procedure ShippingService.Set_buyerResponsibleForShipping(buyerResponsibleForShipping: Boolean);
  3267. begin
  3268.   FbuyerResponsibleForShipping := buyerResponsibleForShipping;
  3269. end;
  3270.  
  3271. procedure ShippingService.Set_cashOnDeliveryFee(cashOnDeliveryFee: Amount);
  3272. begin
  3273.   FcashOnDeliveryFee := cashOnDeliveryFee;
  3274. end;
  3275.  
  3276. procedure ShippingService.Set_freeShipping(freeShipping: Boolean);
  3277. begin
  3278.   FfreeShipping := freeShipping;
  3279. end;
  3280.  
  3281. procedure ShippingService.Set_shippingCarrierCode(shippingCarrierCode: String);
  3282. begin
  3283.   FshippingCarrierCode := shippingCarrierCode;
  3284. end;
  3285.  
  3286. procedure ShippingService.Set_shippingCost(shippingCost: Amount);
  3287. begin
  3288.   FshippingCost := shippingCost;
  3289. end;
  3290.  
  3291. procedure ShippingService.Set_shippingServiceCode(shippingServiceCode: String);
  3292. begin
  3293.   FshippingServiceCode := shippingServiceCode;
  3294. end;
  3295.  
  3296. procedure ShippingService.Set_shipToLocations(shipToLocations: RegionSet);
  3297. begin
  3298.   FshipToLocations := shipToLocations;
  3299. end;
  3300.  
  3301. procedure ShippingService.Set_sortOrder(sortOrder: Integer);
  3302. begin
  3303.   FsortOrder := sortOrder;
  3304. end;
  3305.  
  3306. procedure ShippingService.Set_surcharge(surcharge: Amount);
  3307. begin
  3308.   Fsurcharge := surcharge;
  3309. end;
  3310.  
  3311. procedure TimeDuration.Set_unit_(unit_: String);
  3312. begin
  3313.   Funit_ := unit_;
  3314. end;
  3315.  
  3316. procedure TimeDuration.Set_value(value: Integer);
  3317. begin
  3318.   Fvalue := value;
  3319. end;
  3320.  
  3321. { Zugriffsmethoden }
  3322.  
  3323. function TService.createFulfillmentPolicy(fulfillmentPolicyRequest : FulfillmentPolicyRequest) : SetFulfillmentPolicyResponse;
  3324. var
  3325.   baseUrl : String;
  3326.   body : String;
  3327. begin
  3328.   ClearRequest;
  3329.  
  3330.   baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/fulfillment_policy');
  3331.  
  3332.   body := '';
  3333.   body := body + 'fulfillmentPolicyRequest=' + fulfillmentPolicyRequest.ToString + #13#10;
  3334.   if body <> '' then
  3335.   begin
  3336.     Request.AddBody(body);
  3337.   end;
  3338.  
  3339.   Request.Client.BaseURL := baseUrl;
  3340.   Request.Method := rmPOST;
  3341.  
  3342.   ExecuteRequest;
  3343.    
  3344.   if Request.Response.Content <> '' then
  3345.     Result := TJson.JsonToObject<SetFulfillmentPolicyResponse>(Request.Response.Content)
  3346.   else
  3347.     Result := nil;
  3348. end;
  3349.  
  3350. procedure TService.deleteFulfillmentPolicy(fulfillmentPolicyId : String);
  3351. var
  3352.   baseUrl : String;
  3353. begin
  3354.   ClearRequest;
  3355.  
  3356.   baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/fulfillment_policy/{fulfillmentPolicyId}');
  3357.   baseUrl := ReplaceStr(baseUrl, '{fulfillmentPolicyId}', TNetEncoding.URL.Encode(fulfillmentPolicyId));
  3358.  
  3359.   Request.Client.BaseURL := baseUrl;
  3360.   Request.Method := rmDELETE;
  3361.  
  3362.   ExecuteRequest;
  3363.    
  3364. end;
  3365.  
  3366. function TService.getFulfillmentPolicies(marketplaceId : String) : FulfillmentPolicyResponse;
  3367. var
  3368.   baseUrl : String;
  3369. begin
  3370.   ClearRequest;
  3371.  
  3372.   baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/fulfillment_policy');
  3373.  
  3374.   Request.AddParameter('marketplaceId', marketplaceId);
  3375.  
  3376.   Request.Client.BaseURL := baseUrl;
  3377.   Request.Method := rmGET;
  3378.  
  3379.   ExecuteRequest;
  3380.    
  3381.   if Request.Response.Content <> '' then
  3382.     Result := TJson.JsonToObject<FulfillmentPolicyResponse>(Request.Response.Content)
  3383.   else
  3384.     Result := nil;
  3385. end;
  3386.  
  3387. function TService.getFulfillmentPolicy(fulfillmentPolicyId : String) : FulfillmentPolicy;
  3388. var
  3389.   baseUrl : String;
  3390. begin
  3391.   ClearRequest;
  3392.  
  3393.   baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/fulfillment_policy/{fulfillmentPolicyId}');
  3394.   baseUrl := ReplaceStr(baseUrl, '{fulfillmentPolicyId}', TNetEncoding.URL.Encode(fulfillmentPolicyId));
  3395.  
  3396.   Request.Client.BaseURL := baseUrl;
  3397.   Request.Method := rmGET;
  3398.  
  3399.   ExecuteRequest;
  3400.    
  3401.   if Request.Response.Content <> '' then
  3402.     Result := TJson.JsonToObject<FulfillmentPolicy>(Request.Response.Content)
  3403.   else
  3404.     Result := nil;
  3405. end;
  3406.  
  3407. function TService.getFulfillmentPolicyByName(marketplaceId : String; name : String) : FulfillmentPolicy;
  3408. var
  3409.   baseUrl : String;
  3410. begin
  3411.   ClearRequest;
  3412.  
  3413.   baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/fulfillment_policy/get_by_policy_name');
  3414.  
  3415.   Request.AddParameter('marketplaceId', marketplaceId);
  3416.   Request.AddParameter('name', name);
  3417.  
  3418.   Request.Client.BaseURL := baseUrl;
  3419.   Request.Method := rmGET;
  3420.  
  3421.   ExecuteRequest;
  3422.    
  3423.   if Request.Response.Content <> '' then
  3424.     Result := TJson.JsonToObject<FulfillmentPolicy>(Request.Response.Content)
  3425.   else
  3426.     Result := nil;
  3427. end;
  3428.  
  3429. function TService.updateFulfillmentPolicy(fulfillmentPolicyId : String; fulfillmentPolicyRequest : FulfillmentPolicyRequest) : SetFulfillmentPolicyResponse;
  3430. var
  3431.   baseUrl : String;
  3432.   body : String;
  3433. begin
  3434.   ClearRequest;
  3435.  
  3436.   baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/fulfillment_policy/{fulfillmentPolicyId}');
  3437.   baseUrl := ReplaceStr(baseUrl, '{fulfillmentPolicyId}', TNetEncoding.URL.Encode(fulfillmentPolicyId));
  3438.  
  3439.   body := '';
  3440.   body := body + 'fulfillmentPolicyRequest=' + fulfillmentPolicyRequest.ToString + #13#10;
  3441.   if body <> '' then
  3442.   begin
  3443.     Request.AddBody(body);
  3444.   end;
  3445.  
  3446.   Request.Client.BaseURL := baseUrl;
  3447.   Request.Method := rmPUT;
  3448.  
  3449.   ExecuteRequest;
  3450.    
  3451.   if Request.Response.Content <> '' then
  3452.     Result := TJson.JsonToObject<SetFulfillmentPolicyResponse>(Request.Response.Content)
  3453.   else
  3454.     Result := nil;
  3455. end;
  3456.  
  3457. function TService.getPaymentsProgramOnboarding(marketplaceId : String; paymentsProgramType : String) : PaymentsProgramOnboardingResponse;
  3458. var
  3459.   baseUrl : String;
  3460. begin
  3461.   ClearRequest;
  3462.  
  3463.   baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/payments_program/{marketplace_id}/{payments_program_type}/onboarding');
  3464.   baseUrl := ReplaceStr(baseUrl, '{marketplaceId}', TNetEncoding.URL.Encode(marketplaceId));
  3465.   baseUrl := ReplaceStr(baseUrl, '{paymentsProgramType}', TNetEncoding.URL.Encode(paymentsProgramType));
  3466.  
  3467.   Request.Client.BaseURL := baseUrl;
  3468.   Request.Method := rmGET;
  3469.  
  3470.   ExecuteRequest;
  3471.    
  3472.   if Request.Response.Content <> '' then
  3473.     Result := TJson.JsonToObject<PaymentsProgramOnboardingResponse>(Request.Response.Content)
  3474.   else
  3475.     Result := nil;
  3476. end;
  3477.  
  3478. function TService.createPaymentPolicy(paymentPolicyRequest : PaymentPolicyRequest) : SetPaymentPolicyResponse;
  3479. var
  3480.   baseUrl : String;
  3481.   body : String;
  3482. begin
  3483.   ClearRequest;
  3484.  
  3485.   baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/payment_policy');
  3486.  
  3487.   body := '';
  3488.   body := body + 'paymentPolicyRequest=' + paymentPolicyRequest.ToString + #13#10;
  3489.   if body <> '' then
  3490.   begin
  3491.     Request.AddBody(body);
  3492.   end;
  3493.  
  3494.   Request.Client.BaseURL := baseUrl;
  3495.   Request.Method := rmPOST;
  3496.  
  3497.   ExecuteRequest;
  3498.    
  3499.   if Request.Response.Content <> '' then
  3500.     Result := TJson.JsonToObject<SetPaymentPolicyResponse>(Request.Response.Content)
  3501.   else
  3502.     Result := nil;
  3503. end;
  3504.  
  3505. procedure TService.deletePaymentPolicy(paymentPolicyId : String);
  3506. var
  3507.   baseUrl : String;
  3508. begin
  3509.   ClearRequest;
  3510.  
  3511.   baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/payment_policy/{payment_policy_id}');
  3512.   baseUrl := ReplaceStr(baseUrl, '{paymentPolicyId}', TNetEncoding.URL.Encode(paymentPolicyId));
  3513.  
  3514.   Request.Client.BaseURL := baseUrl;
  3515.   Request.Method := rmDELETE;
  3516.  
  3517.   ExecuteRequest;
  3518.    
  3519. end;
  3520.  
  3521. function TService.getPaymentPolicies(marketplaceId : String) : PaymentPolicyResponse;
  3522. var
  3523.   baseUrl : String;
  3524. begin
  3525.   ClearRequest;
  3526.  
  3527.   baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/payment_policy');
  3528.  
  3529.   Request.AddParameter('marketplaceId', marketplaceId);
  3530.  
  3531.   Request.Client.BaseURL := baseUrl;
  3532.   Request.Method := rmGET;
  3533.  
  3534.   ExecuteRequest;
  3535.    
  3536.   if Request.Response.Content <> '' then
  3537.     Result := TJson.JsonToObject<PaymentPolicyResponse>(Request.Response.Content)
  3538.   else
  3539.     Result := nil;
  3540. end;
  3541.  
  3542. function TService.getPaymentPolicy(paymentPolicyId : String) : PaymentPolicy;
  3543. var
  3544.   baseUrl : String;
  3545. begin
  3546.   ClearRequest;
  3547.  
  3548.   baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/payment_policy/{payment_policy_id}');
  3549.   baseUrl := ReplaceStr(baseUrl, '{paymentPolicyId}', TNetEncoding.URL.Encode(paymentPolicyId));
  3550.  
  3551.   Request.Client.BaseURL := baseUrl;
  3552.   Request.Method := rmGET;
  3553.  
  3554.   ExecuteRequest;
  3555.    
  3556.   if Request.Response.Content <> '' then
  3557.     Result := TJson.JsonToObject<PaymentPolicy>(Request.Response.Content)
  3558.   else
  3559.     Result := nil;
  3560. end;
  3561.  
  3562. function TService.getPaymentPolicyByName(marketplaceId : String; name : String) : PaymentPolicy;
  3563. var
  3564.   baseUrl : String;
  3565. begin
  3566.   ClearRequest;
  3567.  
  3568.   baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/payment_policy/get_by_policy_name');
  3569.  
  3570.   Request.AddParameter('marketplaceId', marketplaceId);
  3571.   Request.AddParameter('name', name);
  3572.  
  3573.   Request.Client.BaseURL := baseUrl;
  3574.   Request.Method := rmGET;
  3575.  
  3576.   ExecuteRequest;
  3577.    
  3578.   if Request.Response.Content <> '' then
  3579.     Result := TJson.JsonToObject<PaymentPolicy>(Request.Response.Content)
  3580.   else
  3581.     Result := nil;
  3582. end;
  3583.  
  3584. function TService.updatePaymentPolicy(paymentPolicyId : String; paymentPolicyRequest : PaymentPolicyRequest) : SetPaymentPolicyResponse;
  3585. var
  3586.   baseUrl : String;
  3587.   body : String;
  3588. begin
  3589.   ClearRequest;
  3590.  
  3591.   baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/payment_policy/{payment_policy_id}');
  3592.   baseUrl := ReplaceStr(baseUrl, '{paymentPolicyId}', TNetEncoding.URL.Encode(paymentPolicyId));
  3593.  
  3594.   body := '';
  3595.   body := body + 'paymentPolicyRequest=' + paymentPolicyRequest.ToString + #13#10;
  3596.   if body <> '' then
  3597.   begin
  3598.     Request.AddBody(body);
  3599.   end;
  3600.  
  3601.   Request.Client.BaseURL := baseUrl;
  3602.   Request.Method := rmPUT;
  3603.  
  3604.   ExecuteRequest;
  3605.    
  3606.   if Request.Response.Content <> '' then
  3607.     Result := TJson.JsonToObject<SetPaymentPolicyResponse>(Request.Response.Content)
  3608.   else
  3609.     Result := nil;
  3610. end;
  3611.  
  3612. function TService.getPaymentsProgram(marketplaceId : String; paymentsProgramType : String) : PaymentsProgramResponse;
  3613. var
  3614.   baseUrl : String;
  3615. begin
  3616.   ClearRequest;
  3617.  
  3618.   baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/payments_program/{marketplace_id}/{payments_program_type}');
  3619.   baseUrl := ReplaceStr(baseUrl, '{marketplaceId}', TNetEncoding.URL.Encode(marketplaceId));
  3620.   baseUrl := ReplaceStr(baseUrl, '{paymentsProgramType}', TNetEncoding.URL.Encode(paymentsProgramType));
  3621.  
  3622.   Request.Client.BaseURL := baseUrl;
  3623.   Request.Method := rmGET;
  3624.  
  3625.   ExecuteRequest;
  3626.    
  3627.   if Request.Response.Content <> '' then
  3628.     Result := TJson.JsonToObject<PaymentsProgramResponse>(Request.Response.Content)
  3629.   else
  3630.     Result := nil;
  3631. end;
  3632.  
  3633. function TService.getPrivileges() : SellingPrivileges;
  3634. var
  3635.   baseUrl : String;
  3636. begin
  3637.   ClearRequest;
  3638.  
  3639.   baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/privilege');
  3640.  
  3641.   Request.Client.BaseURL := baseUrl;
  3642.   Request.Method := rmGET;
  3643.  
  3644.   ExecuteRequest;
  3645.    
  3646.   if Request.Response.Content <> '' then
  3647.     Result := TJson.JsonToObject<SellingPrivileges>(Request.Response.Content)
  3648.   else
  3649.     Result := nil;
  3650. end;
  3651.  
  3652. function TService.getOptedInPrograms() : Programs;
  3653. var
  3654.   baseUrl : String;
  3655. begin
  3656.   ClearRequest;
  3657.  
  3658.   baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/program/get_opted_in_programs');
  3659.  
  3660.   Request.Client.BaseURL := baseUrl;
  3661.   Request.Method := rmGET;
  3662.  
  3663.   ExecuteRequest;
  3664.    
  3665.   if Request.Response.Content <> '' then
  3666.     Result := TJson.JsonToObject<Programs>(Request.Response.Content)
  3667.   else
  3668.     Result := nil;
  3669. end;
  3670.  
  3671. function TService.optInToProgram(program_ : Program_) : TObject;
  3672. var
  3673.   baseUrl : String;
  3674.   body : String;
  3675. begin
  3676.   ClearRequest;
  3677.  
  3678.   baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/program/opt_in');
  3679.  
  3680.   body := '';
  3681.   body := body + 'program_=' + program_.ToString + #13#10;
  3682.   if body <> '' then
  3683.   begin
  3684.     Request.AddBody(body);
  3685.   end;
  3686.  
  3687.   Request.Client.BaseURL := baseUrl;
  3688.   Request.Method := rmPOST;
  3689.  
  3690.   ExecuteRequest;
  3691.    
  3692.   if Request.Response.Content <> '' then
  3693.     Result := TJson.JsonToObject<TObject>(Request.Response.Content)
  3694.   else
  3695.     Result := nil;
  3696. end;
  3697.  
  3698. function TService.optOutOfProgram(program_ : Program_) : TObject;
  3699. var
  3700.   baseUrl : String;
  3701.   body : String;
  3702. begin
  3703.   ClearRequest;
  3704.  
  3705.   baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/program/opt_out');
  3706.  
  3707.   body := '';
  3708.   body := body + 'program_=' + program_.ToString + #13#10;
  3709.   if body <> '' then
  3710.   begin
  3711.     Request.AddBody(body);
  3712.   end;
  3713.  
  3714.   Request.Client.BaseURL := baseUrl;
  3715.   Request.Method := rmPOST;
  3716.  
  3717.   ExecuteRequest;
  3718.    
  3719.   if Request.Response.Content <> '' then
  3720.     Result := TJson.JsonToObject<TObject>(Request.Response.Content)
  3721.   else
  3722.     Result := nil;
  3723. end;
  3724.  
  3725. function TService.getRateTables(countryCode : String) : RateTableResponse;
  3726. var
  3727.   baseUrl : String;
  3728. begin
  3729.   ClearRequest;
  3730.  
  3731.   baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/rate_table');
  3732.  
  3733.   Request.AddParameter('countryCode', countryCode);
  3734.  
  3735.   Request.Client.BaseURL := baseUrl;
  3736.   Request.Method := rmGET;
  3737.  
  3738.   ExecuteRequest;
  3739.    
  3740.   if Request.Response.Content <> '' then
  3741.     Result := TJson.JsonToObject<RateTableResponse>(Request.Response.Content)
  3742.   else
  3743.     Result := nil;
  3744. end;
  3745.  
  3746. function TService.createReturnPolicy(returnPolicyRequest : ReturnPolicyRequest) : SetReturnPolicyResponse;
  3747. var
  3748.   baseUrl : String;
  3749.   body : String;
  3750. begin
  3751.   ClearRequest;
  3752.  
  3753.   baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/return_policy');
  3754.  
  3755.   body := '';
  3756.   body := body + 'returnPolicyRequest=' + returnPolicyRequest.ToString + #13#10;
  3757.   if body <> '' then
  3758.   begin
  3759.     Request.AddBody(body);
  3760.   end;
  3761.  
  3762.   Request.Client.BaseURL := baseUrl;
  3763.   Request.Method := rmPOST;
  3764.  
  3765.   ExecuteRequest;
  3766.    
  3767.   if Request.Response.Content <> '' then
  3768.     Result := TJson.JsonToObject<SetReturnPolicyResponse>(Request.Response.Content)
  3769.   else
  3770.     Result := nil;
  3771. end;
  3772.  
  3773. procedure TService.deleteReturnPolicy(returnPolicyId : String);
  3774. var
  3775.   baseUrl : String;
  3776. begin
  3777.   ClearRequest;
  3778.  
  3779.   baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/return_policy/{return_policy_id}');
  3780.   baseUrl := ReplaceStr(baseUrl, '{returnPolicyId}', TNetEncoding.URL.Encode(returnPolicyId));
  3781.  
  3782.   Request.Client.BaseURL := baseUrl;
  3783.   Request.Method := rmDELETE;
  3784.  
  3785.   ExecuteRequest;
  3786.    
  3787. end;
  3788.  
  3789. function TService.getReturnPolicies(marketplaceId : String) : ReturnPolicyResponse;
  3790. var
  3791.   baseUrl : String;
  3792. begin
  3793.   ClearRequest;
  3794.  
  3795.   baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/return_policy');
  3796.  
  3797.   Request.AddParameter('marketplaceId', marketplaceId);
  3798.  
  3799.   Request.Client.BaseURL := baseUrl;
  3800.   Request.Method := rmGET;
  3801.  
  3802.   ExecuteRequest;
  3803.    
  3804.   if Request.Response.Content <> '' then
  3805.     Result := TJson.JsonToObject<ReturnPolicyResponse>(Request.Response.Content)
  3806.   else
  3807.     Result := nil;
  3808. end;
  3809.  
  3810. function TService.getReturnPolicy(returnPolicyId : String) : ReturnPolicy;
  3811. var
  3812.   baseUrl : String;
  3813. begin
  3814.   ClearRequest;
  3815.  
  3816.   baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/return_policy/{return_policy_id}');
  3817.   baseUrl := ReplaceStr(baseUrl, '{returnPolicyId}', TNetEncoding.URL.Encode(returnPolicyId));
  3818.  
  3819.   Request.Client.BaseURL := baseUrl;
  3820.   Request.Method := rmGET;
  3821.  
  3822.   ExecuteRequest;
  3823.    
  3824.   if Request.Response.Content <> '' then
  3825.     Result := TJson.JsonToObject<ReturnPolicy>(Request.Response.Content)
  3826.   else
  3827.     Result := nil;
  3828. end;
  3829.  
  3830. function TService.getReturnPolicyByName(marketplaceId : String; name : String) : ReturnPolicy;
  3831. var
  3832.   baseUrl : String;
  3833. begin
  3834.   ClearRequest;
  3835.  
  3836.   baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/return_policy/get_by_policy_name');
  3837.  
  3838.   Request.AddParameter('marketplaceId', marketplaceId);
  3839.   Request.AddParameter('name', name);
  3840.  
  3841.   Request.Client.BaseURL := baseUrl;
  3842.   Request.Method := rmGET;
  3843.  
  3844.   ExecuteRequest;
  3845.    
  3846.   if Request.Response.Content <> '' then
  3847.     Result := TJson.JsonToObject<ReturnPolicy>(Request.Response.Content)
  3848.   else
  3849.     Result := nil;
  3850. end;
  3851.  
  3852. function TService.updateReturnPolicy(returnPolicyId : String; returnPolicyRequest : ReturnPolicyRequest) : SetReturnPolicyResponse;
  3853. var
  3854.   baseUrl : String;
  3855.   body : String;
  3856. begin
  3857.   ClearRequest;
  3858.  
  3859.   baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/return_policy/{return_policy_id}');
  3860.   baseUrl := ReplaceStr(baseUrl, '{returnPolicyId}', TNetEncoding.URL.Encode(returnPolicyId));
  3861.  
  3862.   body := '';
  3863.   body := body + 'returnPolicyRequest=' + returnPolicyRequest.ToString + #13#10;
  3864.   if body <> '' then
  3865.   begin
  3866.     Request.AddBody(body);
  3867.   end;
  3868.  
  3869.   Request.Client.BaseURL := baseUrl;
  3870.   Request.Method := rmPUT;
  3871.  
  3872.   ExecuteRequest;
  3873.    
  3874.   if Request.Response.Content <> '' then
  3875.     Result := TJson.JsonToObject<SetReturnPolicyResponse>(Request.Response.Content)
  3876.   else
  3877.     Result := nil;
  3878. end;
  3879.  
  3880. procedure TService.createOrReplaceSalesTax(countryCode : String; jurisdictionId : String; salesTaxBase : SalesTaxBase);
  3881. var
  3882.   baseUrl : String;
  3883.   body : String;
  3884. begin
  3885.   ClearRequest;
  3886.  
  3887.   baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/sales_tax/{countryCode}/{jurisdictionId}');
  3888.   baseUrl := ReplaceStr(baseUrl, '{countryCode}', TNetEncoding.URL.Encode(countryCode));
  3889.   baseUrl := ReplaceStr(baseUrl, '{jurisdictionId}', TNetEncoding.URL.Encode(jurisdictionId));
  3890.  
  3891.   body := '';
  3892.   body := body + 'salesTaxBase=' + salesTaxBase.ToString + #13#10;
  3893.   if body <> '' then
  3894.   begin
  3895.     Request.AddBody(body);
  3896.   end;
  3897.  
  3898.   Request.Client.BaseURL := baseUrl;
  3899.   Request.Method := rmPUT;
  3900.  
  3901.   ExecuteRequest;
  3902.    
  3903. end;
  3904.  
  3905. procedure TService.deleteSalesTax(countryCode : String; jurisdictionId : String);
  3906. var
  3907.   baseUrl : String;
  3908. begin
  3909.   ClearRequest;
  3910.  
  3911.   baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/sales_tax/{countryCode}/{jurisdictionId}');
  3912.   baseUrl := ReplaceStr(baseUrl, '{countryCode}', TNetEncoding.URL.Encode(countryCode));
  3913.   baseUrl := ReplaceStr(baseUrl, '{jurisdictionId}', TNetEncoding.URL.Encode(jurisdictionId));
  3914.  
  3915.   Request.Client.BaseURL := baseUrl;
  3916.   Request.Method := rmDELETE;
  3917.  
  3918.   ExecuteRequest;
  3919.    
  3920. end;
  3921.  
  3922. function TService.getSalesTax(countryCode : String; jurisdictionId : String) : SalesTax;
  3923. var
  3924.   baseUrl : String;
  3925. begin
  3926.   ClearRequest;
  3927.  
  3928.   baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/sales_tax/{countryCode}/{jurisdictionId}');
  3929.   baseUrl := ReplaceStr(baseUrl, '{countryCode}', TNetEncoding.URL.Encode(countryCode));
  3930.   baseUrl := ReplaceStr(baseUrl, '{jurisdictionId}', TNetEncoding.URL.Encode(jurisdictionId));
  3931.  
  3932.   Request.Client.BaseURL := baseUrl;
  3933.   Request.Method := rmGET;
  3934.  
  3935.   ExecuteRequest;
  3936.    
  3937.   if Request.Response.Content <> '' then
  3938.     Result := TJson.JsonToObject<SalesTax>(Request.Response.Content)
  3939.   else
  3940.     Result := nil;
  3941. end;
  3942.  
  3943. function TService.getSalesTaxes(countryCode : String) : SalesTaxes;
  3944. var
  3945.   baseUrl : String;
  3946. begin
  3947.   ClearRequest;
  3948.  
  3949.   baseUrl := ReplaceStr(host, '{basepath}', '/sell/account/v1/sales_tax');
  3950.  
  3951.   Request.AddParameter('countryCode', countryCode);
  3952.  
  3953.   Request.Client.BaseURL := baseUrl;
  3954.   Request.Method := rmGET;
  3955.  
  3956.   ExecuteRequest;
  3957.    
  3958.   if Request.Response.Content <> '' then
  3959.     Result := TJson.JsonToObject<SalesTaxes>(Request.Response.Content)
  3960.   else
  3961.     Result := nil;
  3962. end;
  3963.  
  3964.  
  3965. constructor TService.Create();
  3966. begin
  3967.   Request := TRESTRequest.Create(nil);
  3968.   Request.Client := TRestClient.Create(nil);
  3969.   Request.Response := TRESTResponse.Create(nil);
  3970. end;
  3971.  
  3972. destructor TService.Destroy();
  3973. begin
  3974.   Request.Response.Free;
  3975.   Request.Client.Free;
  3976.   FreeAndNil(Request);
  3977. end;
  3978.  
  3979. procedure TService.ClearRequest;
  3980. begin
  3981.   Request.ClearBody;
  3982.   Request.Params.Clear;
  3983. end;
  3984.  
  3985. procedure TService.ExecuteRequest;
  3986. begin
  3987.   if Assigned(OnBeforeRequest) then
  3988.     OnBeforeRequest(Request);
  3989.   Request.Execute;
  3990.   if Assigned(OnAfterRequest) then
  3991.     OnAfterRequest(Request);
  3992. end;
  3993.  
  3994. end.
Add Comment
Please, Sign In to add comment