unit googlecontent; {$MODE objfpc} {$H+} interface uses sysutils, classes, googleservice, restbase, googlebase; type //Top-level schema types TAccount = Class; TAccountAdwordsLink = Class; TAccountIdentifier = Class; TAccountShipping = Class; TAccountShippingCarrierRate = Class; TAccountShippingCondition = Class; TAccountShippingLocationGroup = Class; TAccountShippingPostalCodeRange = Class; TAccountShippingRateTable = Class; TAccountShippingRateTableCell = Class; TAccountShippingShippingService = Class; TAccountShippingShippingServiceCalculationMethod = Class; TAccountShippingShippingServiceCostRule = Class; TAccountStatus = Class; TAccountStatusDataQualityIssue = Class; TAccountStatusExampleItem = Class; TAccountTax = Class; TAccountTaxTaxRule = Class; TAccountUser = Class; TAccountsAuthInfoResponse = Class; TAccountsCustomBatchRequest = Class; TAccountsCustomBatchRequestEntry = Class; TAccountsCustomBatchResponse = Class; TAccountsCustomBatchResponseEntry = Class; TAccountsListResponse = Class; TAccountshippingCustomBatchRequest = Class; TAccountshippingCustomBatchRequestEntry = Class; TAccountshippingCustomBatchResponse = Class; TAccountshippingCustomBatchResponseEntry = Class; TAccountshippingListResponse = Class; TAccountstatusesCustomBatchRequest = Class; TAccountstatusesCustomBatchRequestEntry = Class; TAccountstatusesCustomBatchResponse = Class; TAccountstatusesCustomBatchResponseEntry = Class; TAccountstatusesListResponse = Class; TAccounttaxCustomBatchRequest = Class; TAccounttaxCustomBatchRequestEntry = Class; TAccounttaxCustomBatchResponse = Class; TAccounttaxCustomBatchResponseEntry = Class; TAccounttaxListResponse = Class; TDatafeed = Class; TDatafeedFetchSchedule = Class; TDatafeedFormat = Class; TDatafeedStatus = Class; TDatafeedStatusError = Class; TDatafeedStatusExample = Class; TDatafeedsCustomBatchRequest = Class; TDatafeedsCustomBatchRequestEntry = Class; TDatafeedsCustomBatchResponse = Class; TDatafeedsCustomBatchResponseEntry = Class; TDatafeedsListResponse = Class; TDatafeedstatusesCustomBatchRequest = Class; TDatafeedstatusesCustomBatchRequestEntry = Class; TDatafeedstatusesCustomBatchResponse = Class; TDatafeedstatusesCustomBatchResponseEntry = Class; TDatafeedstatusesListResponse = Class; TError = Class; TErrors = Class; TInstallment = Class; TInventory = Class; TInventoryCustomBatchRequest = Class; TInventoryCustomBatchRequestEntry = Class; TInventoryCustomBatchResponse = Class; TInventoryCustomBatchResponseEntry = Class; TInventorySetRequest = Class; TInventorySetResponse = Class; TLoyaltyPoints = Class; TOrder = Class; TOrderAddress = Class; TOrderCancellation = Class; TOrderCustomer = Class; TOrderDeliveryDetails = Class; TOrderLineItem = Class; TOrderLineItemProduct = Class; TOrderLineItemProductVariantAttribute = Class; TOrderLineItemReturnInfo = Class; TOrderLineItemShippingDetails = Class; TOrderLineItemShippingDetailsMethod = Class; TOrderPaymentMethod = Class; TOrderPromotion = Class; TOrderPromotionBenefit = Class; TOrderRefund = Class; TOrderReturn = Class; TOrderShipment = Class; TOrderShipmentLineItemShipment = Class; TOrdersAcknowledgeRequest = Class; TOrdersAcknowledgeResponse = Class; TOrdersAdvanceTestOrderResponse = Class; TOrdersCancelLineItemRequest = Class; TOrdersCancelLineItemResponse = Class; TOrdersCancelRequest = Class; TOrdersCancelResponse = Class; TOrdersCreateTestOrderRequest = Class; TOrdersCreateTestOrderResponse = Class; TOrdersCustomBatchRequest = Class; TOrdersCustomBatchRequestEntry = Class; TOrdersCustomBatchRequestEntryCancel = Class; TOrdersCustomBatchRequestEntryCancelLineItem = Class; TOrdersCustomBatchRequestEntryRefund = Class; TOrdersCustomBatchRequestEntryReturnLineItem = Class; TOrdersCustomBatchRequestEntryShipLineItems = Class; TOrdersCustomBatchRequestEntryUpdateShipment = Class; TOrdersCustomBatchResponse = Class; TOrdersCustomBatchResponseEntry = Class; TOrdersGetByMerchantOrderIdResponse = Class; TOrdersGetTestOrderTemplateResponse = Class; TOrdersListResponse = Class; TOrdersRefundRequest = Class; TOrdersRefundResponse = Class; TOrdersReturnLineItemRequest = Class; TOrdersReturnLineItemResponse = Class; TOrdersShipLineItemsRequest = Class; TOrdersShipLineItemsResponse = Class; TOrdersUpdateMerchantOrderIdRequest = Class; TOrdersUpdateMerchantOrderIdResponse = Class; TOrdersUpdateShipmentRequest = Class; TOrdersUpdateShipmentResponse = Class; TPrice = Class; TProduct = Class; TProductAspect = Class; TProductCustomAttribute = Class; TProductCustomGroup = Class; TProductDestination = Class; TProductShipping = Class; TProductShippingDimension = Class; TProductShippingWeight = Class; TProductStatus = Class; TProductStatusDataQualityIssue = Class; TProductStatusDestinationStatus = Class; TProductTax = Class; TProductUnitPricingBaseMeasure = Class; TProductUnitPricingMeasure = Class; TProductsCustomBatchRequest = Class; TProductsCustomBatchRequestEntry = Class; TProductsCustomBatchResponse = Class; TProductsCustomBatchResponseEntry = Class; TProductsListResponse = Class; TProductstatusesCustomBatchRequest = Class; TProductstatusesCustomBatchRequestEntry = Class; TProductstatusesCustomBatchResponse = Class; TProductstatusesCustomBatchResponseEntry = Class; TProductstatusesListResponse = Class; TTestOrder = Class; TTestOrderCustomer = Class; TTestOrderLineItem = Class; TTestOrderLineItemProduct = Class; TTestOrderPaymentMethod = Class; TWeight = Class; TAccountArray = Array of TAccount; TAccountAdwordsLinkArray = Array of TAccountAdwordsLink; TAccountIdentifierArray = Array of TAccountIdentifier; TAccountShippingArray = Array of TAccountShipping; TAccountShippingCarrierRateArray = Array of TAccountShippingCarrierRate; TAccountShippingConditionArray = Array of TAccountShippingCondition; TAccountShippingLocationGroupArray = Array of TAccountShippingLocationGroup; TAccountShippingPostalCodeRangeArray = Array of TAccountShippingPostalCodeRange; TAccountShippingRateTableArray = Array of TAccountShippingRateTable; TAccountShippingRateTableCellArray = Array of TAccountShippingRateTableCell; TAccountShippingShippingServiceArray = Array of TAccountShippingShippingService; TAccountShippingShippingServiceCalculationMethodArray = Array of TAccountShippingShippingServiceCalculationMethod; TAccountShippingShippingServiceCostRuleArray = Array of TAccountShippingShippingServiceCostRule; TAccountStatusArray = Array of TAccountStatus; TAccountStatusDataQualityIssueArray = Array of TAccountStatusDataQualityIssue; TAccountStatusExampleItemArray = Array of TAccountStatusExampleItem; TAccountTaxArray = Array of TAccountTax; TAccountTaxTaxRuleArray = Array of TAccountTaxTaxRule; TAccountUserArray = Array of TAccountUser; TAccountsAuthInfoResponseArray = Array of TAccountsAuthInfoResponse; TAccountsCustomBatchRequestArray = Array of TAccountsCustomBatchRequest; TAccountsCustomBatchRequestEntryArray = Array of TAccountsCustomBatchRequestEntry; TAccountsCustomBatchResponseArray = Array of TAccountsCustomBatchResponse; TAccountsCustomBatchResponseEntryArray = Array of TAccountsCustomBatchResponseEntry; TAccountsListResponseArray = Array of TAccountsListResponse; TAccountshippingCustomBatchRequestArray = Array of TAccountshippingCustomBatchRequest; TAccountshippingCustomBatchRequestEntryArray = Array of TAccountshippingCustomBatchRequestEntry; TAccountshippingCustomBatchResponseArray = Array of TAccountshippingCustomBatchResponse; TAccountshippingCustomBatchResponseEntryArray = Array of TAccountshippingCustomBatchResponseEntry; TAccountshippingListResponseArray = Array of TAccountshippingListResponse; TAccountstatusesCustomBatchRequestArray = Array of TAccountstatusesCustomBatchRequest; TAccountstatusesCustomBatchRequestEntryArray = Array of TAccountstatusesCustomBatchRequestEntry; TAccountstatusesCustomBatchResponseArray = Array of TAccountstatusesCustomBatchResponse; TAccountstatusesCustomBatchResponseEntryArray = Array of TAccountstatusesCustomBatchResponseEntry; TAccountstatusesListResponseArray = Array of TAccountstatusesListResponse; TAccounttaxCustomBatchRequestArray = Array of TAccounttaxCustomBatchRequest; TAccounttaxCustomBatchRequestEntryArray = Array of TAccounttaxCustomBatchRequestEntry; TAccounttaxCustomBatchResponseArray = Array of TAccounttaxCustomBatchResponse; TAccounttaxCustomBatchResponseEntryArray = Array of TAccounttaxCustomBatchResponseEntry; TAccounttaxListResponseArray = Array of TAccounttaxListResponse; TDatafeedArray = Array of TDatafeed; TDatafeedFetchScheduleArray = Array of TDatafeedFetchSchedule; TDatafeedFormatArray = Array of TDatafeedFormat; TDatafeedStatusArray = Array of TDatafeedStatus; TDatafeedStatusErrorArray = Array of TDatafeedStatusError; TDatafeedStatusExampleArray = Array of TDatafeedStatusExample; TDatafeedsCustomBatchRequestArray = Array of TDatafeedsCustomBatchRequest; TDatafeedsCustomBatchRequestEntryArray = Array of TDatafeedsCustomBatchRequestEntry; TDatafeedsCustomBatchResponseArray = Array of TDatafeedsCustomBatchResponse; TDatafeedsCustomBatchResponseEntryArray = Array of TDatafeedsCustomBatchResponseEntry; TDatafeedsListResponseArray = Array of TDatafeedsListResponse; TDatafeedstatusesCustomBatchRequestArray = Array of TDatafeedstatusesCustomBatchRequest; TDatafeedstatusesCustomBatchRequestEntryArray = Array of TDatafeedstatusesCustomBatchRequestEntry; TDatafeedstatusesCustomBatchResponseArray = Array of TDatafeedstatusesCustomBatchResponse; TDatafeedstatusesCustomBatchResponseEntryArray = Array of TDatafeedstatusesCustomBatchResponseEntry; TDatafeedstatusesListResponseArray = Array of TDatafeedstatusesListResponse; TErrorArray = Array of TError; TErrorsArray = Array of TErrors; TInstallmentArray = Array of TInstallment; TInventoryArray = Array of TInventory; TInventoryCustomBatchRequestArray = Array of TInventoryCustomBatchRequest; TInventoryCustomBatchRequestEntryArray = Array of TInventoryCustomBatchRequestEntry; TInventoryCustomBatchResponseArray = Array of TInventoryCustomBatchResponse; TInventoryCustomBatchResponseEntryArray = Array of TInventoryCustomBatchResponseEntry; TInventorySetRequestArray = Array of TInventorySetRequest; TInventorySetResponseArray = Array of TInventorySetResponse; TLoyaltyPointsArray = Array of TLoyaltyPoints; TOrderArray = Array of TOrder; TOrderAddressArray = Array of TOrderAddress; TOrderCancellationArray = Array of TOrderCancellation; TOrderCustomerArray = Array of TOrderCustomer; TOrderDeliveryDetailsArray = Array of TOrderDeliveryDetails; TOrderLineItemArray = Array of TOrderLineItem; TOrderLineItemProductArray = Array of TOrderLineItemProduct; TOrderLineItemProductVariantAttributeArray = Array of TOrderLineItemProductVariantAttribute; TOrderLineItemReturnInfoArray = Array of TOrderLineItemReturnInfo; TOrderLineItemShippingDetailsArray = Array of TOrderLineItemShippingDetails; TOrderLineItemShippingDetailsMethodArray = Array of TOrderLineItemShippingDetailsMethod; TOrderPaymentMethodArray = Array of TOrderPaymentMethod; TOrderPromotionArray = Array of TOrderPromotion; TOrderPromotionBenefitArray = Array of TOrderPromotionBenefit; TOrderRefundArray = Array of TOrderRefund; TOrderReturnArray = Array of TOrderReturn; TOrderShipmentArray = Array of TOrderShipment; TOrderShipmentLineItemShipmentArray = Array of TOrderShipmentLineItemShipment; TOrdersAcknowledgeRequestArray = Array of TOrdersAcknowledgeRequest; TOrdersAcknowledgeResponseArray = Array of TOrdersAcknowledgeResponse; TOrdersAdvanceTestOrderResponseArray = Array of TOrdersAdvanceTestOrderResponse; TOrdersCancelLineItemRequestArray = Array of TOrdersCancelLineItemRequest; TOrdersCancelLineItemResponseArray = Array of TOrdersCancelLineItemResponse; TOrdersCancelRequestArray = Array of TOrdersCancelRequest; TOrdersCancelResponseArray = Array of TOrdersCancelResponse; TOrdersCreateTestOrderRequestArray = Array of TOrdersCreateTestOrderRequest; TOrdersCreateTestOrderResponseArray = Array of TOrdersCreateTestOrderResponse; TOrdersCustomBatchRequestArray = Array of TOrdersCustomBatchRequest; TOrdersCustomBatchRequestEntryArray = Array of TOrdersCustomBatchRequestEntry; TOrdersCustomBatchRequestEntryCancelArray = Array of TOrdersCustomBatchRequestEntryCancel; TOrdersCustomBatchRequestEntryCancelLineItemArray = Array of TOrdersCustomBatchRequestEntryCancelLineItem; TOrdersCustomBatchRequestEntryRefundArray = Array of TOrdersCustomBatchRequestEntryRefund; TOrdersCustomBatchRequestEntryReturnLineItemArray = Array of TOrdersCustomBatchRequestEntryReturnLineItem; TOrdersCustomBatchRequestEntryShipLineItemsArray = Array of TOrdersCustomBatchRequestEntryShipLineItems; TOrdersCustomBatchRequestEntryUpdateShipmentArray = Array of TOrdersCustomBatchRequestEntryUpdateShipment; TOrdersCustomBatchResponseArray = Array of TOrdersCustomBatchResponse; TOrdersCustomBatchResponseEntryArray = Array of TOrdersCustomBatchResponseEntry; TOrdersGetByMerchantOrderIdResponseArray = Array of TOrdersGetByMerchantOrderIdResponse; TOrdersGetTestOrderTemplateResponseArray = Array of TOrdersGetTestOrderTemplateResponse; TOrdersListResponseArray = Array of TOrdersListResponse; TOrdersRefundRequestArray = Array of TOrdersRefundRequest; TOrdersRefundResponseArray = Array of TOrdersRefundResponse; TOrdersReturnLineItemRequestArray = Array of TOrdersReturnLineItemRequest; TOrdersReturnLineItemResponseArray = Array of TOrdersReturnLineItemResponse; TOrdersShipLineItemsRequestArray = Array of TOrdersShipLineItemsRequest; TOrdersShipLineItemsResponseArray = Array of TOrdersShipLineItemsResponse; TOrdersUpdateMerchantOrderIdRequestArray = Array of TOrdersUpdateMerchantOrderIdRequest; TOrdersUpdateMerchantOrderIdResponseArray = Array of TOrdersUpdateMerchantOrderIdResponse; TOrdersUpdateShipmentRequestArray = Array of TOrdersUpdateShipmentRequest; TOrdersUpdateShipmentResponseArray = Array of TOrdersUpdateShipmentResponse; TPriceArray = Array of TPrice; TProductArray = Array of TProduct; TProductAspectArray = Array of TProductAspect; TProductCustomAttributeArray = Array of TProductCustomAttribute; TProductCustomGroupArray = Array of TProductCustomGroup; TProductDestinationArray = Array of TProductDestination; TProductShippingArray = Array of TProductShipping; TProductShippingDimensionArray = Array of TProductShippingDimension; TProductShippingWeightArray = Array of TProductShippingWeight; TProductStatusArray = Array of TProductStatus; TProductStatusDataQualityIssueArray = Array of TProductStatusDataQualityIssue; TProductStatusDestinationStatusArray = Array of TProductStatusDestinationStatus; TProductTaxArray = Array of TProductTax; TProductUnitPricingBaseMeasureArray = Array of TProductUnitPricingBaseMeasure; TProductUnitPricingMeasureArray = Array of TProductUnitPricingMeasure; TProductsCustomBatchRequestArray = Array of TProductsCustomBatchRequest; TProductsCustomBatchRequestEntryArray = Array of TProductsCustomBatchRequestEntry; TProductsCustomBatchResponseArray = Array of TProductsCustomBatchResponse; TProductsCustomBatchResponseEntryArray = Array of TProductsCustomBatchResponseEntry; TProductsListResponseArray = Array of TProductsListResponse; TProductstatusesCustomBatchRequestArray = Array of TProductstatusesCustomBatchRequest; TProductstatusesCustomBatchRequestEntryArray = Array of TProductstatusesCustomBatchRequestEntry; TProductstatusesCustomBatchResponseArray = Array of TProductstatusesCustomBatchResponse; TProductstatusesCustomBatchResponseEntryArray = Array of TProductstatusesCustomBatchResponseEntry; TProductstatusesListResponseArray = Array of TProductstatusesListResponse; TTestOrderArray = Array of TTestOrder; TTestOrderCustomerArray = Array of TTestOrderCustomer; TTestOrderLineItemArray = Array of TTestOrderLineItem; TTestOrderLineItemProductArray = Array of TTestOrderLineItemProduct; TTestOrderPaymentMethodArray = Array of TTestOrderPaymentMethod; TWeightArray = Array of TWeight; //Anonymous types, using auto-generated names TAccountTypeadwordsLinksArray = Array of TAccountAdwordsLink; TAccountTypeusersArray = Array of TAccountUser; TAccountShippingTypecarrierRatesArray = Array of TAccountShippingCarrierRate; TAccountShippingTypelocationGroupsArray = Array of TAccountShippingLocationGroup; TAccountShippingTyperateTablesArray = Array of TAccountShippingRateTable; TAccountShippingTypeservicesArray = Array of TAccountShippingShippingService; TAccountShippingLocationGroupTypepostalCodeRangesArray = Array of TAccountShippingPostalCodeRange; TAccountShippingRateTableTypecontentArray = Array of TAccountShippingRateTableCell; TAccountShippingShippingServiceCostRuleTypechildrenArray = Array of TAccountShippingShippingServiceCostRule; TAccountStatusTypedataQualityIssuesArray = Array of TAccountStatusDataQualityIssue; TAccountStatusDataQualityIssueTypeexampleItemsArray = Array of TAccountStatusExampleItem; TAccountTaxTyperulesArray = Array of TAccountTaxTaxRule; TAccountsAuthInfoResponseTypeaccountIdentifiersArray = Array of TAccountIdentifier; TAccountsCustomBatchRequestTypeentriesArray = Array of TAccountsCustomBatchRequestEntry; TAccountsCustomBatchResponseTypeentriesArray = Array of TAccountsCustomBatchResponseEntry; TAccountsListResponseTyperesourcesArray = Array of TAccount; TAccountshippingCustomBatchRequestTypeentriesArray = Array of TAccountshippingCustomBatchRequestEntry; TAccountshippingCustomBatchResponseTypeentriesArray = Array of TAccountshippingCustomBatchResponseEntry; TAccountshippingListResponseTyperesourcesArray = Array of TAccountShipping; TAccountstatusesCustomBatchRequestTypeentriesArray = Array of TAccountstatusesCustomBatchRequestEntry; TAccountstatusesCustomBatchResponseTypeentriesArray = Array of TAccountstatusesCustomBatchResponseEntry; TAccountstatusesListResponseTyperesourcesArray = Array of TAccountStatus; TAccounttaxCustomBatchRequestTypeentriesArray = Array of TAccounttaxCustomBatchRequestEntry; TAccounttaxCustomBatchResponseTypeentriesArray = Array of TAccounttaxCustomBatchResponseEntry; TAccounttaxListResponseTyperesourcesArray = Array of TAccountTax; TDatafeedStatusTypeerrorsArray = Array of TDatafeedStatusError; TDatafeedStatusTypewarningsArray = Array of TDatafeedStatusError; TDatafeedStatusErrorTypeexamplesArray = Array of TDatafeedStatusExample; TDatafeedsCustomBatchRequestTypeentriesArray = Array of TDatafeedsCustomBatchRequestEntry; TDatafeedsCustomBatchResponseTypeentriesArray = Array of TDatafeedsCustomBatchResponseEntry; TDatafeedsListResponseTyperesourcesArray = Array of TDatafeed; TDatafeedstatusesCustomBatchRequestTypeentriesArray = Array of TDatafeedstatusesCustomBatchRequestEntry; TDatafeedstatusesCustomBatchResponseTypeentriesArray = Array of TDatafeedstatusesCustomBatchResponseEntry; TDatafeedstatusesListResponseTyperesourcesArray = Array of TDatafeedStatus; TErrorsTypeerrorsArray = Array of TError; TInventoryCustomBatchRequestTypeentriesArray = Array of TInventoryCustomBatchRequestEntry; TInventoryCustomBatchResponseTypeentriesArray = Array of TInventoryCustomBatchResponseEntry; TOrderTypelineItemsArray = Array of TOrderLineItem; TOrderTypepromotionsArray = Array of TOrderPromotion; TOrderTyperefundsArray = Array of TOrderRefund; TOrderTypeshipmentsArray = Array of TOrderShipment; TOrderLineItemTypecancellationsArray = Array of TOrderCancellation; TOrderLineItemTypereturnsArray = Array of TOrderReturn; TOrderLineItemProductTypevariantAttributesArray = Array of TOrderLineItemProductVariantAttribute; TOrderPromotionTypebenefitsArray = Array of TOrderPromotionBenefit; TOrderShipmentTypelineItemsArray = Array of TOrderShipmentLineItemShipment; TOrdersCustomBatchRequestTypeentriesArray = Array of TOrdersCustomBatchRequestEntry; TOrdersCustomBatchRequestEntryShipLineItemsTypelineItemsArray = Array of TOrderShipmentLineItemShipment; TOrdersCustomBatchResponseTypeentriesArray = Array of TOrdersCustomBatchResponseEntry; TOrdersListResponseTyperesourcesArray = Array of TOrder; TOrdersShipLineItemsRequestTypelineItemsArray = Array of TOrderShipmentLineItemShipment; TProductTypeaspectsArray = Array of TProductAspect; TProductTypecustomAttributesArray = Array of TProductCustomAttribute; TProductTypecustomGroupsArray = Array of TProductCustomGroup; TProductTypedestinationsArray = Array of TProductDestination; TProductTypeshippingArray = Array of TProductShipping; TProductTypetaxesArray = Array of TProductTax; TProductTypewarningsArray = Array of TError; TProductCustomGroupTypeattributesArray = Array of TProductCustomAttribute; TProductStatusTypedataQualityIssuesArray = Array of TProductStatusDataQualityIssue; TProductStatusTypedestinationStatusesArray = Array of TProductStatusDestinationStatus; TProductsCustomBatchRequestTypeentriesArray = Array of TProductsCustomBatchRequestEntry; TProductsCustomBatchResponseTypeentriesArray = Array of TProductsCustomBatchResponseEntry; TProductsListResponseTyperesourcesArray = Array of TProduct; TProductstatusesCustomBatchRequestTypeentriesArray = Array of TProductstatusesCustomBatchRequestEntry; TProductstatusesCustomBatchResponseTypeentriesArray = Array of TProductstatusesCustomBatchResponseEntry; TProductstatusesListResponseTyperesourcesArray = Array of TProductStatus; TTestOrderTypelineItemsArray = Array of TTestOrderLineItem; TTestOrderTypepromotionsArray = Array of TOrderPromotion; TTestOrderLineItemProductTypevariantAttributesArray = Array of TOrderLineItemProductVariantAttribute; { -------------------------------------------------------------------- TAccount --------------------------------------------------------------------} TAccount = Class(TGoogleBaseObject) Private FadultContent : boolean; FadwordsLinks : TAccountTypeadwordsLinksArray; Fid : String; Fkind : String; Fname : String; FreviewsUrl : String; FsellerId : String; Fusers : TAccountTypeusersArray; FwebsiteUrl : String; Protected //Property setters Procedure SetadultContent(AIndex : Integer; const AValue : boolean); virtual; Procedure SetadwordsLinks(AIndex : Integer; const AValue : TAccountTypeadwordsLinksArray); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Procedure SetreviewsUrl(AIndex : Integer; const AValue : String); virtual; Procedure SetsellerId(AIndex : Integer; const AValue : String); virtual; Procedure Setusers(AIndex : Integer; const AValue : TAccountTypeusersArray); virtual; Procedure SetwebsiteUrl(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property adultContent : boolean Index 0 Read FadultContent Write SetadultContent; Property adwordsLinks : TAccountTypeadwordsLinksArray Index 8 Read FadwordsLinks Write SetadwordsLinks; Property id : String Index 16 Read Fid Write Setid; Property kind : String Index 24 Read Fkind Write Setkind; Property name : String Index 32 Read Fname Write Setname; Property reviewsUrl : String Index 40 Read FreviewsUrl Write SetreviewsUrl; Property sellerId : String Index 48 Read FsellerId Write SetsellerId; Property users : TAccountTypeusersArray Index 56 Read Fusers Write Setusers; Property websiteUrl : String Index 64 Read FwebsiteUrl Write SetwebsiteUrl; end; TAccountClass = Class of TAccount; { -------------------------------------------------------------------- TAccountAdwordsLink --------------------------------------------------------------------} TAccountAdwordsLink = Class(TGoogleBaseObject) Private FadwordsId : String; Fstatus : String; Protected //Property setters Procedure SetadwordsId(AIndex : Integer; const AValue : String); virtual; Procedure Setstatus(AIndex : Integer; const AValue : String); virtual; Public Published Property adwordsId : String Index 0 Read FadwordsId Write SetadwordsId; Property status : String Index 8 Read Fstatus Write Setstatus; end; TAccountAdwordsLinkClass = Class of TAccountAdwordsLink; { -------------------------------------------------------------------- TAccountIdentifier --------------------------------------------------------------------} TAccountIdentifier = Class(TGoogleBaseObject) Private FaggregatorId : String; FmerchantId : String; Protected //Property setters Procedure SetaggregatorId(AIndex : Integer; const AValue : String); virtual; Procedure SetmerchantId(AIndex : Integer; const AValue : String); virtual; Public Published Property aggregatorId : String Index 0 Read FaggregatorId Write SetaggregatorId; Property merchantId : String Index 8 Read FmerchantId Write SetmerchantId; end; TAccountIdentifierClass = Class of TAccountIdentifier; { -------------------------------------------------------------------- TAccountShipping --------------------------------------------------------------------} TAccountShipping = Class(TGoogleBaseObject) Private FaccountId : String; FcarrierRates : TAccountShippingTypecarrierRatesArray; Fkind : String; FlocationGroups : TAccountShippingTypelocationGroupsArray; FrateTables : TAccountShippingTyperateTablesArray; Fservices : TAccountShippingTypeservicesArray; Protected //Property setters Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual; Procedure SetcarrierRates(AIndex : Integer; const AValue : TAccountShippingTypecarrierRatesArray); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetlocationGroups(AIndex : Integer; const AValue : TAccountShippingTypelocationGroupsArray); virtual; Procedure SetrateTables(AIndex : Integer; const AValue : TAccountShippingTyperateTablesArray); virtual; Procedure Setservices(AIndex : Integer; const AValue : TAccountShippingTypeservicesArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property accountId : String Index 0 Read FaccountId Write SetaccountId; Property carrierRates : TAccountShippingTypecarrierRatesArray Index 8 Read FcarrierRates Write SetcarrierRates; Property kind : String Index 16 Read Fkind Write Setkind; Property locationGroups : TAccountShippingTypelocationGroupsArray Index 24 Read FlocationGroups Write SetlocationGroups; Property rateTables : TAccountShippingTyperateTablesArray Index 32 Read FrateTables Write SetrateTables; Property services : TAccountShippingTypeservicesArray Index 40 Read Fservices Write Setservices; end; TAccountShippingClass = Class of TAccountShipping; { -------------------------------------------------------------------- TAccountShippingCarrierRate --------------------------------------------------------------------} TAccountShippingCarrierRate = Class(TGoogleBaseObject) Private Fcarrier : String; FcarrierService : String; FmodifierFlatRate : TPrice; FmodifierPercent : String; Fname : String; FsaleCountry : String; FshippingOrigin : String; Protected //Property setters Procedure Setcarrier(AIndex : Integer; const AValue : String); virtual; Procedure SetcarrierService(AIndex : Integer; const AValue : String); virtual; Procedure SetmodifierFlatRate(AIndex : Integer; const AValue : TPrice); virtual; Procedure SetmodifierPercent(AIndex : Integer; const AValue : String); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Procedure SetsaleCountry(AIndex : Integer; const AValue : String); virtual; Procedure SetshippingOrigin(AIndex : Integer; const AValue : String); virtual; Public Published Property carrier : String Index 0 Read Fcarrier Write Setcarrier; Property carrierService : String Index 8 Read FcarrierService Write SetcarrierService; Property modifierFlatRate : TPrice Index 16 Read FmodifierFlatRate Write SetmodifierFlatRate; Property modifierPercent : String Index 24 Read FmodifierPercent Write SetmodifierPercent; Property name : String Index 32 Read Fname Write Setname; Property saleCountry : String Index 40 Read FsaleCountry Write SetsaleCountry; Property shippingOrigin : String Index 48 Read FshippingOrigin Write SetshippingOrigin; end; TAccountShippingCarrierRateClass = Class of TAccountShippingCarrierRate; { -------------------------------------------------------------------- TAccountShippingCondition --------------------------------------------------------------------} TAccountShippingCondition = Class(TGoogleBaseObject) Private FdeliveryLocationGroup : String; FdeliveryLocationId : String; FdeliveryPostalCode : String; FdeliveryPostalCodeRange : TAccountShippingPostalCodeRange; FpriceMax : TPrice; FshippingLabel : String; FweightMax : TWeight; Protected //Property setters Procedure SetdeliveryLocationGroup(AIndex : Integer; const AValue : String); virtual; Procedure SetdeliveryLocationId(AIndex : Integer; const AValue : String); virtual; Procedure SetdeliveryPostalCode(AIndex : Integer; const AValue : String); virtual; Procedure SetdeliveryPostalCodeRange(AIndex : Integer; const AValue : TAccountShippingPostalCodeRange); virtual; Procedure SetpriceMax(AIndex : Integer; const AValue : TPrice); virtual; Procedure SetshippingLabel(AIndex : Integer; const AValue : String); virtual; Procedure SetweightMax(AIndex : Integer; const AValue : TWeight); virtual; Public Published Property deliveryLocationGroup : String Index 0 Read FdeliveryLocationGroup Write SetdeliveryLocationGroup; Property deliveryLocationId : String Index 8 Read FdeliveryLocationId Write SetdeliveryLocationId; Property deliveryPostalCode : String Index 16 Read FdeliveryPostalCode Write SetdeliveryPostalCode; Property deliveryPostalCodeRange : TAccountShippingPostalCodeRange Index 24 Read FdeliveryPostalCodeRange Write SetdeliveryPostalCodeRange; Property priceMax : TPrice Index 32 Read FpriceMax Write SetpriceMax; Property shippingLabel : String Index 40 Read FshippingLabel Write SetshippingLabel; Property weightMax : TWeight Index 48 Read FweightMax Write SetweightMax; end; TAccountShippingConditionClass = Class of TAccountShippingCondition; { -------------------------------------------------------------------- TAccountShippingLocationGroup --------------------------------------------------------------------} TAccountShippingLocationGroup = Class(TGoogleBaseObject) Private Fcountry : String; FlocationIds : TStringArray; Fname : String; FpostalCodeRanges : TAccountShippingLocationGroupTypepostalCodeRangesArray; FpostalCodes : TStringArray; Protected //Property setters Procedure Setcountry(AIndex : Integer; const AValue : String); virtual; Procedure SetlocationIds(AIndex : Integer; const AValue : TStringArray); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Procedure SetpostalCodeRanges(AIndex : Integer; const AValue : TAccountShippingLocationGroupTypepostalCodeRangesArray); virtual; Procedure SetpostalCodes(AIndex : Integer; const AValue : TStringArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property country : String Index 0 Read Fcountry Write Setcountry; Property locationIds : TStringArray Index 8 Read FlocationIds Write SetlocationIds; Property name : String Index 16 Read Fname Write Setname; Property postalCodeRanges : TAccountShippingLocationGroupTypepostalCodeRangesArray Index 24 Read FpostalCodeRanges Write SetpostalCodeRanges; Property postalCodes : TStringArray Index 32 Read FpostalCodes Write SetpostalCodes; end; TAccountShippingLocationGroupClass = Class of TAccountShippingLocationGroup; { -------------------------------------------------------------------- TAccountShippingPostalCodeRange --------------------------------------------------------------------} TAccountShippingPostalCodeRange = Class(TGoogleBaseObject) Private F_end : String; Fstart : String; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure Set_end(AIndex : Integer; const AValue : String); virtual; Procedure Setstart(AIndex : Integer; const AValue : String); virtual; Public Published Property _end : String Index 0 Read F_end Write Set_end; Property start : String Index 8 Read Fstart Write Setstart; end; TAccountShippingPostalCodeRangeClass = Class of TAccountShippingPostalCodeRange; { -------------------------------------------------------------------- TAccountShippingRateTable --------------------------------------------------------------------} TAccountShippingRateTable = Class(TGoogleBaseObject) Private Fcontent : TAccountShippingRateTableTypecontentArray; Fname : String; FsaleCountry : String; Protected //Property setters Procedure Setcontent(AIndex : Integer; const AValue : TAccountShippingRateTableTypecontentArray); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Procedure SetsaleCountry(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property content : TAccountShippingRateTableTypecontentArray Index 0 Read Fcontent Write Setcontent; Property name : String Index 8 Read Fname Write Setname; Property saleCountry : String Index 16 Read FsaleCountry Write SetsaleCountry; end; TAccountShippingRateTableClass = Class of TAccountShippingRateTable; { -------------------------------------------------------------------- TAccountShippingRateTableCell --------------------------------------------------------------------} TAccountShippingRateTableCell = Class(TGoogleBaseObject) Private Fcondition : TAccountShippingCondition; Frate : TPrice; Protected //Property setters Procedure Setcondition(AIndex : Integer; const AValue : TAccountShippingCondition); virtual; Procedure Setrate(AIndex : Integer; const AValue : TPrice); virtual; Public Published Property condition : TAccountShippingCondition Index 0 Read Fcondition Write Setcondition; Property rate : TPrice Index 8 Read Frate Write Setrate; end; TAccountShippingRateTableCellClass = Class of TAccountShippingRateTableCell; { -------------------------------------------------------------------- TAccountShippingShippingService --------------------------------------------------------------------} TAccountShippingShippingService = Class(TGoogleBaseObject) Private Factive : boolean; FcalculationMethod : TAccountShippingShippingServiceCalculationMethod; FcostRuleTree : TAccountShippingShippingServiceCostRule; Fname : String; FsaleCountry : String; Protected //Property setters Procedure Setactive(AIndex : Integer; const AValue : boolean); virtual; Procedure SetcalculationMethod(AIndex : Integer; const AValue : TAccountShippingShippingServiceCalculationMethod); virtual; Procedure SetcostRuleTree(AIndex : Integer; const AValue : TAccountShippingShippingServiceCostRule); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Procedure SetsaleCountry(AIndex : Integer; const AValue : String); virtual; Public Published Property active : boolean Index 0 Read Factive Write Setactive; Property calculationMethod : TAccountShippingShippingServiceCalculationMethod Index 8 Read FcalculationMethod Write SetcalculationMethod; Property costRuleTree : TAccountShippingShippingServiceCostRule Index 16 Read FcostRuleTree Write SetcostRuleTree; Property name : String Index 24 Read Fname Write Setname; Property saleCountry : String Index 32 Read FsaleCountry Write SetsaleCountry; end; TAccountShippingShippingServiceClass = Class of TAccountShippingShippingService; { -------------------------------------------------------------------- TAccountShippingShippingServiceCalculationMethod --------------------------------------------------------------------} TAccountShippingShippingServiceCalculationMethod = Class(TGoogleBaseObject) Private FcarrierRate : String; Fexcluded : boolean; FflatRate : TPrice; FpercentageRate : String; FrateTable : String; Protected //Property setters Procedure SetcarrierRate(AIndex : Integer; const AValue : String); virtual; Procedure Setexcluded(AIndex : Integer; const AValue : boolean); virtual; Procedure SetflatRate(AIndex : Integer; const AValue : TPrice); virtual; Procedure SetpercentageRate(AIndex : Integer; const AValue : String); virtual; Procedure SetrateTable(AIndex : Integer; const AValue : String); virtual; Public Published Property carrierRate : String Index 0 Read FcarrierRate Write SetcarrierRate; Property excluded : boolean Index 8 Read Fexcluded Write Setexcluded; Property flatRate : TPrice Index 16 Read FflatRate Write SetflatRate; Property percentageRate : String Index 24 Read FpercentageRate Write SetpercentageRate; Property rateTable : String Index 32 Read FrateTable Write SetrateTable; end; TAccountShippingShippingServiceCalculationMethodClass = Class of TAccountShippingShippingServiceCalculationMethod; { -------------------------------------------------------------------- TAccountShippingShippingServiceCostRule --------------------------------------------------------------------} TAccountShippingShippingServiceCostRule = Class(TGoogleBaseObject) Private FcalculationMethod : TAccountShippingShippingServiceCalculationMethod; Fchildren : TAccountShippingShippingServiceCostRuleTypechildrenArray; Fcondition : TAccountShippingCondition; Protected //Property setters Procedure SetcalculationMethod(AIndex : Integer; const AValue : TAccountShippingShippingServiceCalculationMethod); virtual; Procedure Setchildren(AIndex : Integer; const AValue : TAccountShippingShippingServiceCostRuleTypechildrenArray); virtual; Procedure Setcondition(AIndex : Integer; const AValue : TAccountShippingCondition); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property calculationMethod : TAccountShippingShippingServiceCalculationMethod Index 0 Read FcalculationMethod Write SetcalculationMethod; Property children : TAccountShippingShippingServiceCostRuleTypechildrenArray Index 8 Read Fchildren Write Setchildren; Property condition : TAccountShippingCondition Index 16 Read Fcondition Write Setcondition; end; TAccountShippingShippingServiceCostRuleClass = Class of TAccountShippingShippingServiceCostRule; { -------------------------------------------------------------------- TAccountStatus --------------------------------------------------------------------} TAccountStatus = Class(TGoogleBaseObject) Private FaccountId : String; FdataQualityIssues : TAccountStatusTypedataQualityIssuesArray; Fkind : String; Protected //Property setters Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual; Procedure SetdataQualityIssues(AIndex : Integer; const AValue : TAccountStatusTypedataQualityIssuesArray); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property accountId : String Index 0 Read FaccountId Write SetaccountId; Property dataQualityIssues : TAccountStatusTypedataQualityIssuesArray Index 8 Read FdataQualityIssues Write SetdataQualityIssues; Property kind : String Index 16 Read Fkind Write Setkind; end; TAccountStatusClass = Class of TAccountStatus; { -------------------------------------------------------------------- TAccountStatusDataQualityIssue --------------------------------------------------------------------} TAccountStatusDataQualityIssue = Class(TGoogleBaseObject) Private Fcountry : String; FdisplayedValue : String; FexampleItems : TAccountStatusDataQualityIssueTypeexampleItemsArray; Fid : String; FlastChecked : String; FnumItems : integer; Fseverity : String; FsubmittedValue : String; Protected //Property setters Procedure Setcountry(AIndex : Integer; const AValue : String); virtual; Procedure SetdisplayedValue(AIndex : Integer; const AValue : String); virtual; Procedure SetexampleItems(AIndex : Integer; const AValue : TAccountStatusDataQualityIssueTypeexampleItemsArray); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure SetlastChecked(AIndex : Integer; const AValue : String); virtual; Procedure SetnumItems(AIndex : Integer; const AValue : integer); virtual; Procedure Setseverity(AIndex : Integer; const AValue : String); virtual; Procedure SetsubmittedValue(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property country : String Index 0 Read Fcountry Write Setcountry; Property displayedValue : String Index 8 Read FdisplayedValue Write SetdisplayedValue; Property exampleItems : TAccountStatusDataQualityIssueTypeexampleItemsArray Index 16 Read FexampleItems Write SetexampleItems; Property id : String Index 24 Read Fid Write Setid; Property lastChecked : String Index 32 Read FlastChecked Write SetlastChecked; Property numItems : integer Index 40 Read FnumItems Write SetnumItems; Property severity : String Index 48 Read Fseverity Write Setseverity; Property submittedValue : String Index 56 Read FsubmittedValue Write SetsubmittedValue; end; TAccountStatusDataQualityIssueClass = Class of TAccountStatusDataQualityIssue; { -------------------------------------------------------------------- TAccountStatusExampleItem --------------------------------------------------------------------} TAccountStatusExampleItem = Class(TGoogleBaseObject) Private FitemId : String; Flink : String; FsubmittedValue : String; Ftitle : String; FvalueOnLandingPage : String; Protected //Property setters Procedure SetitemId(AIndex : Integer; const AValue : String); virtual; Procedure Setlink(AIndex : Integer; const AValue : String); virtual; Procedure SetsubmittedValue(AIndex : Integer; const AValue : String); virtual; Procedure Settitle(AIndex : Integer; const AValue : String); virtual; Procedure SetvalueOnLandingPage(AIndex : Integer; const AValue : String); virtual; Public Published Property itemId : String Index 0 Read FitemId Write SetitemId; Property link : String Index 8 Read Flink Write Setlink; Property submittedValue : String Index 16 Read FsubmittedValue Write SetsubmittedValue; Property title : String Index 24 Read Ftitle Write Settitle; Property valueOnLandingPage : String Index 32 Read FvalueOnLandingPage Write SetvalueOnLandingPage; end; TAccountStatusExampleItemClass = Class of TAccountStatusExampleItem; { -------------------------------------------------------------------- TAccountTax --------------------------------------------------------------------} TAccountTax = Class(TGoogleBaseObject) Private FaccountId : String; Fkind : String; Frules : TAccountTaxTyperulesArray; Protected //Property setters Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setrules(AIndex : Integer; const AValue : TAccountTaxTyperulesArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property accountId : String Index 0 Read FaccountId Write SetaccountId; Property kind : String Index 8 Read Fkind Write Setkind; Property rules : TAccountTaxTyperulesArray Index 16 Read Frules Write Setrules; end; TAccountTaxClass = Class of TAccountTax; { -------------------------------------------------------------------- TAccountTaxTaxRule --------------------------------------------------------------------} TAccountTaxTaxRule = Class(TGoogleBaseObject) Private Fcountry : String; FlocationId : String; FratePercent : String; FshippingTaxed : boolean; FuseGlobalRate : boolean; Protected //Property setters Procedure Setcountry(AIndex : Integer; const AValue : String); virtual; Procedure SetlocationId(AIndex : Integer; const AValue : String); virtual; Procedure SetratePercent(AIndex : Integer; const AValue : String); virtual; Procedure SetshippingTaxed(AIndex : Integer; const AValue : boolean); virtual; Procedure SetuseGlobalRate(AIndex : Integer; const AValue : boolean); virtual; Public Published Property country : String Index 0 Read Fcountry Write Setcountry; Property locationId : String Index 8 Read FlocationId Write SetlocationId; Property ratePercent : String Index 16 Read FratePercent Write SetratePercent; Property shippingTaxed : boolean Index 24 Read FshippingTaxed Write SetshippingTaxed; Property useGlobalRate : boolean Index 32 Read FuseGlobalRate Write SetuseGlobalRate; end; TAccountTaxTaxRuleClass = Class of TAccountTaxTaxRule; { -------------------------------------------------------------------- TAccountUser --------------------------------------------------------------------} TAccountUser = Class(TGoogleBaseObject) Private Fadmin : boolean; FemailAddress : String; Protected //Property setters Procedure Setadmin(AIndex : Integer; const AValue : boolean); virtual; Procedure SetemailAddress(AIndex : Integer; const AValue : String); virtual; Public Published Property admin : boolean Index 0 Read Fadmin Write Setadmin; Property emailAddress : String Index 8 Read FemailAddress Write SetemailAddress; end; TAccountUserClass = Class of TAccountUser; { -------------------------------------------------------------------- TAccountsAuthInfoResponse --------------------------------------------------------------------} TAccountsAuthInfoResponse = Class(TGoogleBaseObject) Private FaccountIdentifiers : TAccountsAuthInfoResponseTypeaccountIdentifiersArray; Fkind : String; Protected //Property setters Procedure SetaccountIdentifiers(AIndex : Integer; const AValue : TAccountsAuthInfoResponseTypeaccountIdentifiersArray); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property accountIdentifiers : TAccountsAuthInfoResponseTypeaccountIdentifiersArray Index 0 Read FaccountIdentifiers Write SetaccountIdentifiers; Property kind : String Index 8 Read Fkind Write Setkind; end; TAccountsAuthInfoResponseClass = Class of TAccountsAuthInfoResponse; { -------------------------------------------------------------------- TAccountsCustomBatchRequest --------------------------------------------------------------------} TAccountsCustomBatchRequest = Class(TGoogleBaseObject) Private Fentries : TAccountsCustomBatchRequestTypeentriesArray; Protected //Property setters Procedure Setentries(AIndex : Integer; const AValue : TAccountsCustomBatchRequestTypeentriesArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property entries : TAccountsCustomBatchRequestTypeentriesArray Index 0 Read Fentries Write Setentries; end; TAccountsCustomBatchRequestClass = Class of TAccountsCustomBatchRequest; { -------------------------------------------------------------------- TAccountsCustomBatchRequestEntry --------------------------------------------------------------------} TAccountsCustomBatchRequestEntry = Class(TGoogleBaseObject) Private Faccount : TAccount; FaccountId : String; FbatchId : integer; FmerchantId : String; Fmethod : String; Protected //Property setters Procedure Setaccount(AIndex : Integer; const AValue : TAccount); virtual; Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual; Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual; Procedure SetmerchantId(AIndex : Integer; const AValue : String); virtual; Procedure Setmethod(AIndex : Integer; const AValue : String); virtual; Public Published Property account : TAccount Index 0 Read Faccount Write Setaccount; Property accountId : String Index 8 Read FaccountId Write SetaccountId; Property batchId : integer Index 16 Read FbatchId Write SetbatchId; Property merchantId : String Index 24 Read FmerchantId Write SetmerchantId; Property method : String Index 32 Read Fmethod Write Setmethod; end; TAccountsCustomBatchRequestEntryClass = Class of TAccountsCustomBatchRequestEntry; { -------------------------------------------------------------------- TAccountsCustomBatchResponse --------------------------------------------------------------------} TAccountsCustomBatchResponse = Class(TGoogleBaseObject) Private Fentries : TAccountsCustomBatchResponseTypeentriesArray; Fkind : String; Protected //Property setters Procedure Setentries(AIndex : Integer; const AValue : TAccountsCustomBatchResponseTypeentriesArray); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property entries : TAccountsCustomBatchResponseTypeentriesArray Index 0 Read Fentries Write Setentries; Property kind : String Index 8 Read Fkind Write Setkind; end; TAccountsCustomBatchResponseClass = Class of TAccountsCustomBatchResponse; { -------------------------------------------------------------------- TAccountsCustomBatchResponseEntry --------------------------------------------------------------------} TAccountsCustomBatchResponseEntry = Class(TGoogleBaseObject) Private Faccount : TAccount; FbatchId : integer; Ferrors : TErrors; Fkind : String; Protected //Property setters Procedure Setaccount(AIndex : Integer; const AValue : TAccount); virtual; Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual; Procedure Seterrors(AIndex : Integer; const AValue : TErrors); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Public Published Property account : TAccount Index 0 Read Faccount Write Setaccount; Property batchId : integer Index 8 Read FbatchId Write SetbatchId; Property errors : TErrors Index 16 Read Ferrors Write Seterrors; Property kind : String Index 24 Read Fkind Write Setkind; end; TAccountsCustomBatchResponseEntryClass = Class of TAccountsCustomBatchResponseEntry; { -------------------------------------------------------------------- TAccountsListResponse --------------------------------------------------------------------} TAccountsListResponse = Class(TGoogleBaseObject) Private Fkind : String; FnextPageToken : String; Fresources : TAccountsListResponseTyperesourcesArray; Protected //Property setters Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual; Procedure Setresources(AIndex : Integer; const AValue : TAccountsListResponseTyperesourcesArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property kind : String Index 0 Read Fkind Write Setkind; Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken; Property resources : TAccountsListResponseTyperesourcesArray Index 16 Read Fresources Write Setresources; end; TAccountsListResponseClass = Class of TAccountsListResponse; { -------------------------------------------------------------------- TAccountshippingCustomBatchRequest --------------------------------------------------------------------} TAccountshippingCustomBatchRequest = Class(TGoogleBaseObject) Private Fentries : TAccountshippingCustomBatchRequestTypeentriesArray; Protected //Property setters Procedure Setentries(AIndex : Integer; const AValue : TAccountshippingCustomBatchRequestTypeentriesArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property entries : TAccountshippingCustomBatchRequestTypeentriesArray Index 0 Read Fentries Write Setentries; end; TAccountshippingCustomBatchRequestClass = Class of TAccountshippingCustomBatchRequest; { -------------------------------------------------------------------- TAccountshippingCustomBatchRequestEntry --------------------------------------------------------------------} TAccountshippingCustomBatchRequestEntry = Class(TGoogleBaseObject) Private FaccountId : String; FaccountShipping : TAccountShipping; FbatchId : integer; FmerchantId : String; Fmethod : String; Protected //Property setters Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual; Procedure SetaccountShipping(AIndex : Integer; const AValue : TAccountShipping); virtual; Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual; Procedure SetmerchantId(AIndex : Integer; const AValue : String); virtual; Procedure Setmethod(AIndex : Integer; const AValue : String); virtual; Public Published Property accountId : String Index 0 Read FaccountId Write SetaccountId; Property accountShipping : TAccountShipping Index 8 Read FaccountShipping Write SetaccountShipping; Property batchId : integer Index 16 Read FbatchId Write SetbatchId; Property merchantId : String Index 24 Read FmerchantId Write SetmerchantId; Property method : String Index 32 Read Fmethod Write Setmethod; end; TAccountshippingCustomBatchRequestEntryClass = Class of TAccountshippingCustomBatchRequestEntry; { -------------------------------------------------------------------- TAccountshippingCustomBatchResponse --------------------------------------------------------------------} TAccountshippingCustomBatchResponse = Class(TGoogleBaseObject) Private Fentries : TAccountshippingCustomBatchResponseTypeentriesArray; Fkind : String; Protected //Property setters Procedure Setentries(AIndex : Integer; const AValue : TAccountshippingCustomBatchResponseTypeentriesArray); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property entries : TAccountshippingCustomBatchResponseTypeentriesArray Index 0 Read Fentries Write Setentries; Property kind : String Index 8 Read Fkind Write Setkind; end; TAccountshippingCustomBatchResponseClass = Class of TAccountshippingCustomBatchResponse; { -------------------------------------------------------------------- TAccountshippingCustomBatchResponseEntry --------------------------------------------------------------------} TAccountshippingCustomBatchResponseEntry = Class(TGoogleBaseObject) Private FaccountShipping : TAccountShipping; FbatchId : integer; Ferrors : TErrors; Fkind : String; Protected //Property setters Procedure SetaccountShipping(AIndex : Integer; const AValue : TAccountShipping); virtual; Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual; Procedure Seterrors(AIndex : Integer; const AValue : TErrors); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Public Published Property accountShipping : TAccountShipping Index 0 Read FaccountShipping Write SetaccountShipping; Property batchId : integer Index 8 Read FbatchId Write SetbatchId; Property errors : TErrors Index 16 Read Ferrors Write Seterrors; Property kind : String Index 24 Read Fkind Write Setkind; end; TAccountshippingCustomBatchResponseEntryClass = Class of TAccountshippingCustomBatchResponseEntry; { -------------------------------------------------------------------- TAccountshippingListResponse --------------------------------------------------------------------} TAccountshippingListResponse = Class(TGoogleBaseObject) Private Fkind : String; FnextPageToken : String; Fresources : TAccountshippingListResponseTyperesourcesArray; Protected //Property setters Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual; Procedure Setresources(AIndex : Integer; const AValue : TAccountshippingListResponseTyperesourcesArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property kind : String Index 0 Read Fkind Write Setkind; Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken; Property resources : TAccountshippingListResponseTyperesourcesArray Index 16 Read Fresources Write Setresources; end; TAccountshippingListResponseClass = Class of TAccountshippingListResponse; { -------------------------------------------------------------------- TAccountstatusesCustomBatchRequest --------------------------------------------------------------------} TAccountstatusesCustomBatchRequest = Class(TGoogleBaseObject) Private Fentries : TAccountstatusesCustomBatchRequestTypeentriesArray; Protected //Property setters Procedure Setentries(AIndex : Integer; const AValue : TAccountstatusesCustomBatchRequestTypeentriesArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property entries : TAccountstatusesCustomBatchRequestTypeentriesArray Index 0 Read Fentries Write Setentries; end; TAccountstatusesCustomBatchRequestClass = Class of TAccountstatusesCustomBatchRequest; { -------------------------------------------------------------------- TAccountstatusesCustomBatchRequestEntry --------------------------------------------------------------------} TAccountstatusesCustomBatchRequestEntry = Class(TGoogleBaseObject) Private FaccountId : String; FbatchId : integer; FmerchantId : String; Fmethod : String; Protected //Property setters Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual; Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual; Procedure SetmerchantId(AIndex : Integer; const AValue : String); virtual; Procedure Setmethod(AIndex : Integer; const AValue : String); virtual; Public Published Property accountId : String Index 0 Read FaccountId Write SetaccountId; Property batchId : integer Index 8 Read FbatchId Write SetbatchId; Property merchantId : String Index 16 Read FmerchantId Write SetmerchantId; Property method : String Index 24 Read Fmethod Write Setmethod; end; TAccountstatusesCustomBatchRequestEntryClass = Class of TAccountstatusesCustomBatchRequestEntry; { -------------------------------------------------------------------- TAccountstatusesCustomBatchResponse --------------------------------------------------------------------} TAccountstatusesCustomBatchResponse = Class(TGoogleBaseObject) Private Fentries : TAccountstatusesCustomBatchResponseTypeentriesArray; Fkind : String; Protected //Property setters Procedure Setentries(AIndex : Integer; const AValue : TAccountstatusesCustomBatchResponseTypeentriesArray); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property entries : TAccountstatusesCustomBatchResponseTypeentriesArray Index 0 Read Fentries Write Setentries; Property kind : String Index 8 Read Fkind Write Setkind; end; TAccountstatusesCustomBatchResponseClass = Class of TAccountstatusesCustomBatchResponse; { -------------------------------------------------------------------- TAccountstatusesCustomBatchResponseEntry --------------------------------------------------------------------} TAccountstatusesCustomBatchResponseEntry = Class(TGoogleBaseObject) Private FaccountStatus : TAccountStatus; FbatchId : integer; Ferrors : TErrors; Protected //Property setters Procedure SetaccountStatus(AIndex : Integer; const AValue : TAccountStatus); virtual; Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual; Procedure Seterrors(AIndex : Integer; const AValue : TErrors); virtual; Public Published Property accountStatus : TAccountStatus Index 0 Read FaccountStatus Write SetaccountStatus; Property batchId : integer Index 8 Read FbatchId Write SetbatchId; Property errors : TErrors Index 16 Read Ferrors Write Seterrors; end; TAccountstatusesCustomBatchResponseEntryClass = Class of TAccountstatusesCustomBatchResponseEntry; { -------------------------------------------------------------------- TAccountstatusesListResponse --------------------------------------------------------------------} TAccountstatusesListResponse = Class(TGoogleBaseObject) Private Fkind : String; FnextPageToken : String; Fresources : TAccountstatusesListResponseTyperesourcesArray; Protected //Property setters Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual; Procedure Setresources(AIndex : Integer; const AValue : TAccountstatusesListResponseTyperesourcesArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property kind : String Index 0 Read Fkind Write Setkind; Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken; Property resources : TAccountstatusesListResponseTyperesourcesArray Index 16 Read Fresources Write Setresources; end; TAccountstatusesListResponseClass = Class of TAccountstatusesListResponse; { -------------------------------------------------------------------- TAccounttaxCustomBatchRequest --------------------------------------------------------------------} TAccounttaxCustomBatchRequest = Class(TGoogleBaseObject) Private Fentries : TAccounttaxCustomBatchRequestTypeentriesArray; Protected //Property setters Procedure Setentries(AIndex : Integer; const AValue : TAccounttaxCustomBatchRequestTypeentriesArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property entries : TAccounttaxCustomBatchRequestTypeentriesArray Index 0 Read Fentries Write Setentries; end; TAccounttaxCustomBatchRequestClass = Class of TAccounttaxCustomBatchRequest; { -------------------------------------------------------------------- TAccounttaxCustomBatchRequestEntry --------------------------------------------------------------------} TAccounttaxCustomBatchRequestEntry = Class(TGoogleBaseObject) Private FaccountId : String; FaccountTax : TAccountTax; FbatchId : integer; FmerchantId : String; Fmethod : String; Protected //Property setters Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual; Procedure SetaccountTax(AIndex : Integer; const AValue : TAccountTax); virtual; Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual; Procedure SetmerchantId(AIndex : Integer; const AValue : String); virtual; Procedure Setmethod(AIndex : Integer; const AValue : String); virtual; Public Published Property accountId : String Index 0 Read FaccountId Write SetaccountId; Property accountTax : TAccountTax Index 8 Read FaccountTax Write SetaccountTax; Property batchId : integer Index 16 Read FbatchId Write SetbatchId; Property merchantId : String Index 24 Read FmerchantId Write SetmerchantId; Property method : String Index 32 Read Fmethod Write Setmethod; end; TAccounttaxCustomBatchRequestEntryClass = Class of TAccounttaxCustomBatchRequestEntry; { -------------------------------------------------------------------- TAccounttaxCustomBatchResponse --------------------------------------------------------------------} TAccounttaxCustomBatchResponse = Class(TGoogleBaseObject) Private Fentries : TAccounttaxCustomBatchResponseTypeentriesArray; Fkind : String; Protected //Property setters Procedure Setentries(AIndex : Integer; const AValue : TAccounttaxCustomBatchResponseTypeentriesArray); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property entries : TAccounttaxCustomBatchResponseTypeentriesArray Index 0 Read Fentries Write Setentries; Property kind : String Index 8 Read Fkind Write Setkind; end; TAccounttaxCustomBatchResponseClass = Class of TAccounttaxCustomBatchResponse; { -------------------------------------------------------------------- TAccounttaxCustomBatchResponseEntry --------------------------------------------------------------------} TAccounttaxCustomBatchResponseEntry = Class(TGoogleBaseObject) Private FaccountTax : TAccountTax; FbatchId : integer; Ferrors : TErrors; Fkind : String; Protected //Property setters Procedure SetaccountTax(AIndex : Integer; const AValue : TAccountTax); virtual; Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual; Procedure Seterrors(AIndex : Integer; const AValue : TErrors); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Public Published Property accountTax : TAccountTax Index 0 Read FaccountTax Write SetaccountTax; Property batchId : integer Index 8 Read FbatchId Write SetbatchId; Property errors : TErrors Index 16 Read Ferrors Write Seterrors; Property kind : String Index 24 Read Fkind Write Setkind; end; TAccounttaxCustomBatchResponseEntryClass = Class of TAccounttaxCustomBatchResponseEntry; { -------------------------------------------------------------------- TAccounttaxListResponse --------------------------------------------------------------------} TAccounttaxListResponse = Class(TGoogleBaseObject) Private Fkind : String; FnextPageToken : String; Fresources : TAccounttaxListResponseTyperesourcesArray; Protected //Property setters Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual; Procedure Setresources(AIndex : Integer; const AValue : TAccounttaxListResponseTyperesourcesArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property kind : String Index 0 Read Fkind Write Setkind; Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken; Property resources : TAccounttaxListResponseTyperesourcesArray Index 16 Read Fresources Write Setresources; end; TAccounttaxListResponseClass = Class of TAccounttaxListResponse; { -------------------------------------------------------------------- TDatafeed --------------------------------------------------------------------} TDatafeed = Class(TGoogleBaseObject) Private FattributeLanguage : String; FcontentLanguage : String; FcontentType : String; FfetchSchedule : TDatafeedFetchSchedule; FfileName : String; Fformat : TDatafeedFormat; Fid : String; FintendedDestinations : TStringArray; Fkind : String; Fname : String; FtargetCountry : String; Protected //Property setters Procedure SetattributeLanguage(AIndex : Integer; const AValue : String); virtual; Procedure SetcontentLanguage(AIndex : Integer; const AValue : String); virtual; Procedure SetcontentType(AIndex : Integer; const AValue : String); virtual; Procedure SetfetchSchedule(AIndex : Integer; const AValue : TDatafeedFetchSchedule); virtual; Procedure SetfileName(AIndex : Integer; const AValue : String); virtual; Procedure Setformat(AIndex : Integer; const AValue : TDatafeedFormat); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure SetintendedDestinations(AIndex : Integer; const AValue : TStringArray); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Procedure SettargetCountry(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property attributeLanguage : String Index 0 Read FattributeLanguage Write SetattributeLanguage; Property contentLanguage : String Index 8 Read FcontentLanguage Write SetcontentLanguage; Property contentType : String Index 16 Read FcontentType Write SetcontentType; Property fetchSchedule : TDatafeedFetchSchedule Index 24 Read FfetchSchedule Write SetfetchSchedule; Property fileName : String Index 32 Read FfileName Write SetfileName; Property format : TDatafeedFormat Index 40 Read Fformat Write Setformat; Property id : String Index 48 Read Fid Write Setid; Property intendedDestinations : TStringArray Index 56 Read FintendedDestinations Write SetintendedDestinations; Property kind : String Index 64 Read Fkind Write Setkind; Property name : String Index 72 Read Fname Write Setname; Property targetCountry : String Index 80 Read FtargetCountry Write SettargetCountry; end; TDatafeedClass = Class of TDatafeed; { -------------------------------------------------------------------- TDatafeedFetchSchedule --------------------------------------------------------------------} TDatafeedFetchSchedule = Class(TGoogleBaseObject) Private FdayOfMonth : integer; FfetchUrl : String; Fhour : integer; FminuteOfHour : integer; Fpassword : String; FtimeZone : String; Fusername : String; Fweekday : String; Protected //Property setters Procedure SetdayOfMonth(AIndex : Integer; const AValue : integer); virtual; Procedure SetfetchUrl(AIndex : Integer; const AValue : String); virtual; Procedure Sethour(AIndex : Integer; const AValue : integer); virtual; Procedure SetminuteOfHour(AIndex : Integer; const AValue : integer); virtual; Procedure Setpassword(AIndex : Integer; const AValue : String); virtual; Procedure SettimeZone(AIndex : Integer; const AValue : String); virtual; Procedure Setusername(AIndex : Integer; const AValue : String); virtual; Procedure Setweekday(AIndex : Integer; const AValue : String); virtual; Public Published Property dayOfMonth : integer Index 0 Read FdayOfMonth Write SetdayOfMonth; Property fetchUrl : String Index 8 Read FfetchUrl Write SetfetchUrl; Property hour : integer Index 16 Read Fhour Write Sethour; Property minuteOfHour : integer Index 24 Read FminuteOfHour Write SetminuteOfHour; Property password : String Index 32 Read Fpassword Write Setpassword; Property timeZone : String Index 40 Read FtimeZone Write SettimeZone; Property username : String Index 48 Read Fusername Write Setusername; Property weekday : String Index 56 Read Fweekday Write Setweekday; end; TDatafeedFetchScheduleClass = Class of TDatafeedFetchSchedule; { -------------------------------------------------------------------- TDatafeedFormat --------------------------------------------------------------------} TDatafeedFormat = Class(TGoogleBaseObject) Private FcolumnDelimiter : String; FfileEncoding : String; FquotingMode : String; Protected //Property setters Procedure SetcolumnDelimiter(AIndex : Integer; const AValue : String); virtual; Procedure SetfileEncoding(AIndex : Integer; const AValue : String); virtual; Procedure SetquotingMode(AIndex : Integer; const AValue : String); virtual; Public Published Property columnDelimiter : String Index 0 Read FcolumnDelimiter Write SetcolumnDelimiter; Property fileEncoding : String Index 8 Read FfileEncoding Write SetfileEncoding; Property quotingMode : String Index 16 Read FquotingMode Write SetquotingMode; end; TDatafeedFormatClass = Class of TDatafeedFormat; { -------------------------------------------------------------------- TDatafeedStatus --------------------------------------------------------------------} TDatafeedStatus = Class(TGoogleBaseObject) Private FdatafeedId : String; Ferrors : TDatafeedStatusTypeerrorsArray; FitemsTotal : String; FitemsValid : String; Fkind : String; FlastUploadDate : String; FprocessingStatus : String; Fwarnings : TDatafeedStatusTypewarningsArray; Protected //Property setters Procedure SetdatafeedId(AIndex : Integer; const AValue : String); virtual; Procedure Seterrors(AIndex : Integer; const AValue : TDatafeedStatusTypeerrorsArray); virtual; Procedure SetitemsTotal(AIndex : Integer; const AValue : String); virtual; Procedure SetitemsValid(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetlastUploadDate(AIndex : Integer; const AValue : String); virtual; Procedure SetprocessingStatus(AIndex : Integer; const AValue : String); virtual; Procedure Setwarnings(AIndex : Integer; const AValue : TDatafeedStatusTypewarningsArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property datafeedId : String Index 0 Read FdatafeedId Write SetdatafeedId; Property errors : TDatafeedStatusTypeerrorsArray Index 8 Read Ferrors Write Seterrors; Property itemsTotal : String Index 16 Read FitemsTotal Write SetitemsTotal; Property itemsValid : String Index 24 Read FitemsValid Write SetitemsValid; Property kind : String Index 32 Read Fkind Write Setkind; Property lastUploadDate : String Index 40 Read FlastUploadDate Write SetlastUploadDate; Property processingStatus : String Index 48 Read FprocessingStatus Write SetprocessingStatus; Property warnings : TDatafeedStatusTypewarningsArray Index 56 Read Fwarnings Write Setwarnings; end; TDatafeedStatusClass = Class of TDatafeedStatus; { -------------------------------------------------------------------- TDatafeedStatusError --------------------------------------------------------------------} TDatafeedStatusError = Class(TGoogleBaseObject) Private Fcode : String; Fcount : String; Fexamples : TDatafeedStatusErrorTypeexamplesArray; Fmessage : String; Protected //Property setters Procedure Setcode(AIndex : Integer; const AValue : String); virtual; Procedure Setcount(AIndex : Integer; const AValue : String); virtual; Procedure Setexamples(AIndex : Integer; const AValue : TDatafeedStatusErrorTypeexamplesArray); virtual; Procedure Setmessage(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property code : String Index 0 Read Fcode Write Setcode; Property count : String Index 8 Read Fcount Write Setcount; Property examples : TDatafeedStatusErrorTypeexamplesArray Index 16 Read Fexamples Write Setexamples; Property message : String Index 24 Read Fmessage Write Setmessage; end; TDatafeedStatusErrorClass = Class of TDatafeedStatusError; { -------------------------------------------------------------------- TDatafeedStatusExample --------------------------------------------------------------------} TDatafeedStatusExample = Class(TGoogleBaseObject) Private FitemId : String; FlineNumber : String; Fvalue : String; Protected //Property setters Procedure SetitemId(AIndex : Integer; const AValue : String); virtual; Procedure SetlineNumber(AIndex : Integer; const AValue : String); virtual; Procedure Setvalue(AIndex : Integer; const AValue : String); virtual; Public Published Property itemId : String Index 0 Read FitemId Write SetitemId; Property lineNumber : String Index 8 Read FlineNumber Write SetlineNumber; Property value : String Index 16 Read Fvalue Write Setvalue; end; TDatafeedStatusExampleClass = Class of TDatafeedStatusExample; { -------------------------------------------------------------------- TDatafeedsCustomBatchRequest --------------------------------------------------------------------} TDatafeedsCustomBatchRequest = Class(TGoogleBaseObject) Private Fentries : TDatafeedsCustomBatchRequestTypeentriesArray; Protected //Property setters Procedure Setentries(AIndex : Integer; const AValue : TDatafeedsCustomBatchRequestTypeentriesArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property entries : TDatafeedsCustomBatchRequestTypeentriesArray Index 0 Read Fentries Write Setentries; end; TDatafeedsCustomBatchRequestClass = Class of TDatafeedsCustomBatchRequest; { -------------------------------------------------------------------- TDatafeedsCustomBatchRequestEntry --------------------------------------------------------------------} TDatafeedsCustomBatchRequestEntry = Class(TGoogleBaseObject) Private FbatchId : integer; Fdatafeed : TDatafeed; FdatafeedId : String; FmerchantId : String; Fmethod : String; Protected //Property setters Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual; Procedure Setdatafeed(AIndex : Integer; const AValue : TDatafeed); virtual; Procedure SetdatafeedId(AIndex : Integer; const AValue : String); virtual; Procedure SetmerchantId(AIndex : Integer; const AValue : String); virtual; Procedure Setmethod(AIndex : Integer; const AValue : String); virtual; Public Published Property batchId : integer Index 0 Read FbatchId Write SetbatchId; Property datafeed : TDatafeed Index 8 Read Fdatafeed Write Setdatafeed; Property datafeedId : String Index 16 Read FdatafeedId Write SetdatafeedId; Property merchantId : String Index 24 Read FmerchantId Write SetmerchantId; Property method : String Index 32 Read Fmethod Write Setmethod; end; TDatafeedsCustomBatchRequestEntryClass = Class of TDatafeedsCustomBatchRequestEntry; { -------------------------------------------------------------------- TDatafeedsCustomBatchResponse --------------------------------------------------------------------} TDatafeedsCustomBatchResponse = Class(TGoogleBaseObject) Private Fentries : TDatafeedsCustomBatchResponseTypeentriesArray; Fkind : String; Protected //Property setters Procedure Setentries(AIndex : Integer; const AValue : TDatafeedsCustomBatchResponseTypeentriesArray); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property entries : TDatafeedsCustomBatchResponseTypeentriesArray Index 0 Read Fentries Write Setentries; Property kind : String Index 8 Read Fkind Write Setkind; end; TDatafeedsCustomBatchResponseClass = Class of TDatafeedsCustomBatchResponse; { -------------------------------------------------------------------- TDatafeedsCustomBatchResponseEntry --------------------------------------------------------------------} TDatafeedsCustomBatchResponseEntry = Class(TGoogleBaseObject) Private FbatchId : integer; Fdatafeed : TDatafeed; Ferrors : TErrors; Protected //Property setters Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual; Procedure Setdatafeed(AIndex : Integer; const AValue : TDatafeed); virtual; Procedure Seterrors(AIndex : Integer; const AValue : TErrors); virtual; Public Published Property batchId : integer Index 0 Read FbatchId Write SetbatchId; Property datafeed : TDatafeed Index 8 Read Fdatafeed Write Setdatafeed; Property errors : TErrors Index 16 Read Ferrors Write Seterrors; end; TDatafeedsCustomBatchResponseEntryClass = Class of TDatafeedsCustomBatchResponseEntry; { -------------------------------------------------------------------- TDatafeedsListResponse --------------------------------------------------------------------} TDatafeedsListResponse = Class(TGoogleBaseObject) Private Fkind : String; FnextPageToken : String; Fresources : TDatafeedsListResponseTyperesourcesArray; Protected //Property setters Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual; Procedure Setresources(AIndex : Integer; const AValue : TDatafeedsListResponseTyperesourcesArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property kind : String Index 0 Read Fkind Write Setkind; Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken; Property resources : TDatafeedsListResponseTyperesourcesArray Index 16 Read Fresources Write Setresources; end; TDatafeedsListResponseClass = Class of TDatafeedsListResponse; { -------------------------------------------------------------------- TDatafeedstatusesCustomBatchRequest --------------------------------------------------------------------} TDatafeedstatusesCustomBatchRequest = Class(TGoogleBaseObject) Private Fentries : TDatafeedstatusesCustomBatchRequestTypeentriesArray; Protected //Property setters Procedure Setentries(AIndex : Integer; const AValue : TDatafeedstatusesCustomBatchRequestTypeentriesArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property entries : TDatafeedstatusesCustomBatchRequestTypeentriesArray Index 0 Read Fentries Write Setentries; end; TDatafeedstatusesCustomBatchRequestClass = Class of TDatafeedstatusesCustomBatchRequest; { -------------------------------------------------------------------- TDatafeedstatusesCustomBatchRequestEntry --------------------------------------------------------------------} TDatafeedstatusesCustomBatchRequestEntry = Class(TGoogleBaseObject) Private FbatchId : integer; FdatafeedId : String; FmerchantId : String; Fmethod : String; Protected //Property setters Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual; Procedure SetdatafeedId(AIndex : Integer; const AValue : String); virtual; Procedure SetmerchantId(AIndex : Integer; const AValue : String); virtual; Procedure Setmethod(AIndex : Integer; const AValue : String); virtual; Public Published Property batchId : integer Index 0 Read FbatchId Write SetbatchId; Property datafeedId : String Index 8 Read FdatafeedId Write SetdatafeedId; Property merchantId : String Index 16 Read FmerchantId Write SetmerchantId; Property method : String Index 24 Read Fmethod Write Setmethod; end; TDatafeedstatusesCustomBatchRequestEntryClass = Class of TDatafeedstatusesCustomBatchRequestEntry; { -------------------------------------------------------------------- TDatafeedstatusesCustomBatchResponse --------------------------------------------------------------------} TDatafeedstatusesCustomBatchResponse = Class(TGoogleBaseObject) Private Fentries : TDatafeedstatusesCustomBatchResponseTypeentriesArray; Fkind : String; Protected //Property setters Procedure Setentries(AIndex : Integer; const AValue : TDatafeedstatusesCustomBatchResponseTypeentriesArray); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property entries : TDatafeedstatusesCustomBatchResponseTypeentriesArray Index 0 Read Fentries Write Setentries; Property kind : String Index 8 Read Fkind Write Setkind; end; TDatafeedstatusesCustomBatchResponseClass = Class of TDatafeedstatusesCustomBatchResponse; { -------------------------------------------------------------------- TDatafeedstatusesCustomBatchResponseEntry --------------------------------------------------------------------} TDatafeedstatusesCustomBatchResponseEntry = Class(TGoogleBaseObject) Private FbatchId : integer; FdatafeedStatus : TDatafeedStatus; Ferrors : TErrors; Protected //Property setters Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual; Procedure SetdatafeedStatus(AIndex : Integer; const AValue : TDatafeedStatus); virtual; Procedure Seterrors(AIndex : Integer; const AValue : TErrors); virtual; Public Published Property batchId : integer Index 0 Read FbatchId Write SetbatchId; Property datafeedStatus : TDatafeedStatus Index 8 Read FdatafeedStatus Write SetdatafeedStatus; Property errors : TErrors Index 16 Read Ferrors Write Seterrors; end; TDatafeedstatusesCustomBatchResponseEntryClass = Class of TDatafeedstatusesCustomBatchResponseEntry; { -------------------------------------------------------------------- TDatafeedstatusesListResponse --------------------------------------------------------------------} TDatafeedstatusesListResponse = Class(TGoogleBaseObject) Private Fkind : String; FnextPageToken : String; Fresources : TDatafeedstatusesListResponseTyperesourcesArray; Protected //Property setters Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual; Procedure Setresources(AIndex : Integer; const AValue : TDatafeedstatusesListResponseTyperesourcesArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property kind : String Index 0 Read Fkind Write Setkind; Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken; Property resources : TDatafeedstatusesListResponseTyperesourcesArray Index 16 Read Fresources Write Setresources; end; TDatafeedstatusesListResponseClass = Class of TDatafeedstatusesListResponse; { -------------------------------------------------------------------- TError --------------------------------------------------------------------} TError = Class(TGoogleBaseObject) Private Fdomain : String; Fmessage : String; Freason : String; Protected //Property setters Procedure Setdomain(AIndex : Integer; const AValue : String); virtual; Procedure Setmessage(AIndex : Integer; const AValue : String); virtual; Procedure Setreason(AIndex : Integer; const AValue : String); virtual; Public Published Property domain : String Index 0 Read Fdomain Write Setdomain; Property message : String Index 8 Read Fmessage Write Setmessage; Property reason : String Index 16 Read Freason Write Setreason; end; TErrorClass = Class of TError; { -------------------------------------------------------------------- TErrors --------------------------------------------------------------------} TErrors = Class(TGoogleBaseObject) Private Fcode : integer; Ferrors : TErrorsTypeerrorsArray; Fmessage : String; Protected //Property setters Procedure Setcode(AIndex : Integer; const AValue : integer); virtual; Procedure Seterrors(AIndex : Integer; const AValue : TErrorsTypeerrorsArray); virtual; Procedure Setmessage(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property code : integer Index 0 Read Fcode Write Setcode; Property errors : TErrorsTypeerrorsArray Index 8 Read Ferrors Write Seterrors; Property message : String Index 16 Read Fmessage Write Setmessage; end; TErrorsClass = Class of TErrors; { -------------------------------------------------------------------- TInstallment --------------------------------------------------------------------} TInstallment = Class(TGoogleBaseObject) Private Famount : TPrice; Fmonths : String; Protected //Property setters Procedure Setamount(AIndex : Integer; const AValue : TPrice); virtual; Procedure Setmonths(AIndex : Integer; const AValue : String); virtual; Public Published Property amount : TPrice Index 0 Read Famount Write Setamount; Property months : String Index 8 Read Fmonths Write Setmonths; end; TInstallmentClass = Class of TInstallment; { -------------------------------------------------------------------- TInventory --------------------------------------------------------------------} TInventory = Class(TGoogleBaseObject) Private Favailability : String; Finstallment : TInstallment; Fkind : String; FloyaltyPoints : TLoyaltyPoints; Fprice : TPrice; Fquantity : integer; FsalePrice : TPrice; FsalePriceEffectiveDate : String; FsellOnGoogleQuantity : integer; Protected //Property setters Procedure Setavailability(AIndex : Integer; const AValue : String); virtual; Procedure Setinstallment(AIndex : Integer; const AValue : TInstallment); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetloyaltyPoints(AIndex : Integer; const AValue : TLoyaltyPoints); virtual; Procedure Setprice(AIndex : Integer; const AValue : TPrice); virtual; Procedure Setquantity(AIndex : Integer; const AValue : integer); virtual; Procedure SetsalePrice(AIndex : Integer; const AValue : TPrice); virtual; Procedure SetsalePriceEffectiveDate(AIndex : Integer; const AValue : String); virtual; Procedure SetsellOnGoogleQuantity(AIndex : Integer; const AValue : integer); virtual; Public Published Property availability : String Index 0 Read Favailability Write Setavailability; Property installment : TInstallment Index 8 Read Finstallment Write Setinstallment; Property kind : String Index 16 Read Fkind Write Setkind; Property loyaltyPoints : TLoyaltyPoints Index 24 Read FloyaltyPoints Write SetloyaltyPoints; Property price : TPrice Index 32 Read Fprice Write Setprice; Property quantity : integer Index 40 Read Fquantity Write Setquantity; Property salePrice : TPrice Index 48 Read FsalePrice Write SetsalePrice; Property salePriceEffectiveDate : String Index 56 Read FsalePriceEffectiveDate Write SetsalePriceEffectiveDate; Property sellOnGoogleQuantity : integer Index 64 Read FsellOnGoogleQuantity Write SetsellOnGoogleQuantity; end; TInventoryClass = Class of TInventory; { -------------------------------------------------------------------- TInventoryCustomBatchRequest --------------------------------------------------------------------} TInventoryCustomBatchRequest = Class(TGoogleBaseObject) Private Fentries : TInventoryCustomBatchRequestTypeentriesArray; Protected //Property setters Procedure Setentries(AIndex : Integer; const AValue : TInventoryCustomBatchRequestTypeentriesArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property entries : TInventoryCustomBatchRequestTypeentriesArray Index 0 Read Fentries Write Setentries; end; TInventoryCustomBatchRequestClass = Class of TInventoryCustomBatchRequest; { -------------------------------------------------------------------- TInventoryCustomBatchRequestEntry --------------------------------------------------------------------} TInventoryCustomBatchRequestEntry = Class(TGoogleBaseObject) Private FbatchId : integer; Finventory : TInventory; FmerchantId : String; FproductId : String; FstoreCode : String; Protected //Property setters Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual; Procedure Setinventory(AIndex : Integer; const AValue : TInventory); virtual; Procedure SetmerchantId(AIndex : Integer; const AValue : String); virtual; Procedure SetproductId(AIndex : Integer; const AValue : String); virtual; Procedure SetstoreCode(AIndex : Integer; const AValue : String); virtual; Public Published Property batchId : integer Index 0 Read FbatchId Write SetbatchId; Property inventory : TInventory Index 8 Read Finventory Write Setinventory; Property merchantId : String Index 16 Read FmerchantId Write SetmerchantId; Property productId : String Index 24 Read FproductId Write SetproductId; Property storeCode : String Index 32 Read FstoreCode Write SetstoreCode; end; TInventoryCustomBatchRequestEntryClass = Class of TInventoryCustomBatchRequestEntry; { -------------------------------------------------------------------- TInventoryCustomBatchResponse --------------------------------------------------------------------} TInventoryCustomBatchResponse = Class(TGoogleBaseObject) Private Fentries : TInventoryCustomBatchResponseTypeentriesArray; Fkind : String; Protected //Property setters Procedure Setentries(AIndex : Integer; const AValue : TInventoryCustomBatchResponseTypeentriesArray); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property entries : TInventoryCustomBatchResponseTypeentriesArray Index 0 Read Fentries Write Setentries; Property kind : String Index 8 Read Fkind Write Setkind; end; TInventoryCustomBatchResponseClass = Class of TInventoryCustomBatchResponse; { -------------------------------------------------------------------- TInventoryCustomBatchResponseEntry --------------------------------------------------------------------} TInventoryCustomBatchResponseEntry = Class(TGoogleBaseObject) Private FbatchId : integer; Ferrors : TErrors; Fkind : String; Protected //Property setters Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual; Procedure Seterrors(AIndex : Integer; const AValue : TErrors); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Public Published Property batchId : integer Index 0 Read FbatchId Write SetbatchId; Property errors : TErrors Index 8 Read Ferrors Write Seterrors; Property kind : String Index 16 Read Fkind Write Setkind; end; TInventoryCustomBatchResponseEntryClass = Class of TInventoryCustomBatchResponseEntry; { -------------------------------------------------------------------- TInventorySetRequest --------------------------------------------------------------------} TInventorySetRequest = Class(TGoogleBaseObject) Private Favailability : String; Finstallment : TInstallment; FloyaltyPoints : TLoyaltyPoints; Fprice : TPrice; Fquantity : integer; FsalePrice : TPrice; FsalePriceEffectiveDate : String; FsellOnGoogleQuantity : integer; Protected //Property setters Procedure Setavailability(AIndex : Integer; const AValue : String); virtual; Procedure Setinstallment(AIndex : Integer; const AValue : TInstallment); virtual; Procedure SetloyaltyPoints(AIndex : Integer; const AValue : TLoyaltyPoints); virtual; Procedure Setprice(AIndex : Integer; const AValue : TPrice); virtual; Procedure Setquantity(AIndex : Integer; const AValue : integer); virtual; Procedure SetsalePrice(AIndex : Integer; const AValue : TPrice); virtual; Procedure SetsalePriceEffectiveDate(AIndex : Integer; const AValue : String); virtual; Procedure SetsellOnGoogleQuantity(AIndex : Integer; const AValue : integer); virtual; Public Published Property availability : String Index 0 Read Favailability Write Setavailability; Property installment : TInstallment Index 8 Read Finstallment Write Setinstallment; Property loyaltyPoints : TLoyaltyPoints Index 16 Read FloyaltyPoints Write SetloyaltyPoints; Property price : TPrice Index 24 Read Fprice Write Setprice; Property quantity : integer Index 32 Read Fquantity Write Setquantity; Property salePrice : TPrice Index 40 Read FsalePrice Write SetsalePrice; Property salePriceEffectiveDate : String Index 48 Read FsalePriceEffectiveDate Write SetsalePriceEffectiveDate; Property sellOnGoogleQuantity : integer Index 56 Read FsellOnGoogleQuantity Write SetsellOnGoogleQuantity; end; TInventorySetRequestClass = Class of TInventorySetRequest; { -------------------------------------------------------------------- TInventorySetResponse --------------------------------------------------------------------} TInventorySetResponse = Class(TGoogleBaseObject) Private Fkind : String; Protected //Property setters Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Public Published Property kind : String Index 0 Read Fkind Write Setkind; end; TInventorySetResponseClass = Class of TInventorySetResponse; { -------------------------------------------------------------------- TLoyaltyPoints --------------------------------------------------------------------} TLoyaltyPoints = Class(TGoogleBaseObject) Private Fname : String; FpointsValue : String; Fratio : double; Protected //Property setters Procedure Setname(AIndex : Integer; const AValue : String); virtual; Procedure SetpointsValue(AIndex : Integer; const AValue : String); virtual; Procedure Setratio(AIndex : Integer; const AValue : double); virtual; Public Published Property name : String Index 0 Read Fname Write Setname; Property pointsValue : String Index 8 Read FpointsValue Write SetpointsValue; Property ratio : double Index 16 Read Fratio Write Setratio; end; TLoyaltyPointsClass = Class of TLoyaltyPoints; { -------------------------------------------------------------------- TOrder --------------------------------------------------------------------} TOrder = Class(TGoogleBaseObject) Private Facknowledged : boolean; Fcustomer : TOrderCustomer; FdeliveryDetails : TOrderDeliveryDetails; Fid : String; Fkind : String; FlineItems : TOrderTypelineItemsArray; FmerchantId : String; FmerchantOrderId : String; FnetAmount : TPrice; FpaymentMethod : TOrderPaymentMethod; FpaymentStatus : String; FplacedDate : String; Fpromotions : TOrderTypepromotionsArray; Frefunds : TOrderTyperefundsArray; Fshipments : TOrderTypeshipmentsArray; FshippingCost : TPrice; FshippingCostTax : TPrice; FshippingOption : String; Fstatus : String; Protected //Property setters Procedure Setacknowledged(AIndex : Integer; const AValue : boolean); virtual; Procedure Setcustomer(AIndex : Integer; const AValue : TOrderCustomer); virtual; Procedure SetdeliveryDetails(AIndex : Integer; const AValue : TOrderDeliveryDetails); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetlineItems(AIndex : Integer; const AValue : TOrderTypelineItemsArray); virtual; Procedure SetmerchantId(AIndex : Integer; const AValue : String); virtual; Procedure SetmerchantOrderId(AIndex : Integer; const AValue : String); virtual; Procedure SetnetAmount(AIndex : Integer; const AValue : TPrice); virtual; Procedure SetpaymentMethod(AIndex : Integer; const AValue : TOrderPaymentMethod); virtual; Procedure SetpaymentStatus(AIndex : Integer; const AValue : String); virtual; Procedure SetplacedDate(AIndex : Integer; const AValue : String); virtual; Procedure Setpromotions(AIndex : Integer; const AValue : TOrderTypepromotionsArray); virtual; Procedure Setrefunds(AIndex : Integer; const AValue : TOrderTyperefundsArray); virtual; Procedure Setshipments(AIndex : Integer; const AValue : TOrderTypeshipmentsArray); virtual; Procedure SetshippingCost(AIndex : Integer; const AValue : TPrice); virtual; Procedure SetshippingCostTax(AIndex : Integer; const AValue : TPrice); virtual; Procedure SetshippingOption(AIndex : Integer; const AValue : String); virtual; Procedure Setstatus(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property acknowledged : boolean Index 0 Read Facknowledged Write Setacknowledged; Property customer : TOrderCustomer Index 8 Read Fcustomer Write Setcustomer; Property deliveryDetails : TOrderDeliveryDetails Index 16 Read FdeliveryDetails Write SetdeliveryDetails; Property id : String Index 24 Read Fid Write Setid; Property kind : String Index 32 Read Fkind Write Setkind; Property lineItems : TOrderTypelineItemsArray Index 40 Read FlineItems Write SetlineItems; Property merchantId : String Index 48 Read FmerchantId Write SetmerchantId; Property merchantOrderId : String Index 56 Read FmerchantOrderId Write SetmerchantOrderId; Property netAmount : TPrice Index 64 Read FnetAmount Write SetnetAmount; Property paymentMethod : TOrderPaymentMethod Index 72 Read FpaymentMethod Write SetpaymentMethod; Property paymentStatus : String Index 80 Read FpaymentStatus Write SetpaymentStatus; Property placedDate : String Index 88 Read FplacedDate Write SetplacedDate; Property promotions : TOrderTypepromotionsArray Index 96 Read Fpromotions Write Setpromotions; Property refunds : TOrderTyperefundsArray Index 104 Read Frefunds Write Setrefunds; Property shipments : TOrderTypeshipmentsArray Index 112 Read Fshipments Write Setshipments; Property shippingCost : TPrice Index 120 Read FshippingCost Write SetshippingCost; Property shippingCostTax : TPrice Index 128 Read FshippingCostTax Write SetshippingCostTax; Property shippingOption : String Index 136 Read FshippingOption Write SetshippingOption; Property status : String Index 144 Read Fstatus Write Setstatus; end; TOrderClass = Class of TOrder; { -------------------------------------------------------------------- TOrderAddress --------------------------------------------------------------------} TOrderAddress = Class(TGoogleBaseObject) Private Fcountry : String; FfullAddress : TStringArray; FisPostOfficeBox : boolean; Flocality : String; FpostalCode : String; FrecipientName : String; Fregion : String; FstreetAddress : TStringArray; Protected //Property setters Procedure Setcountry(AIndex : Integer; const AValue : String); virtual; Procedure SetfullAddress(AIndex : Integer; const AValue : TStringArray); virtual; Procedure SetisPostOfficeBox(AIndex : Integer; const AValue : boolean); virtual; Procedure Setlocality(AIndex : Integer; const AValue : String); virtual; Procedure SetpostalCode(AIndex : Integer; const AValue : String); virtual; Procedure SetrecipientName(AIndex : Integer; const AValue : String); virtual; Procedure Setregion(AIndex : Integer; const AValue : String); virtual; Procedure SetstreetAddress(AIndex : Integer; const AValue : TStringArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property country : String Index 0 Read Fcountry Write Setcountry; Property fullAddress : TStringArray Index 8 Read FfullAddress Write SetfullAddress; Property isPostOfficeBox : boolean Index 16 Read FisPostOfficeBox Write SetisPostOfficeBox; Property locality : String Index 24 Read Flocality Write Setlocality; Property postalCode : String Index 32 Read FpostalCode Write SetpostalCode; Property recipientName : String Index 40 Read FrecipientName Write SetrecipientName; Property region : String Index 48 Read Fregion Write Setregion; Property streetAddress : TStringArray Index 56 Read FstreetAddress Write SetstreetAddress; end; TOrderAddressClass = Class of TOrderAddress; { -------------------------------------------------------------------- TOrderCancellation --------------------------------------------------------------------} TOrderCancellation = Class(TGoogleBaseObject) Private Factor : String; FcreationDate : String; Fquantity : integer; Freason : String; FreasonText : String; Protected //Property setters Procedure Setactor(AIndex : Integer; const AValue : String); virtual; Procedure SetcreationDate(AIndex : Integer; const AValue : String); virtual; Procedure Setquantity(AIndex : Integer; const AValue : integer); virtual; Procedure Setreason(AIndex : Integer; const AValue : String); virtual; Procedure SetreasonText(AIndex : Integer; const AValue : String); virtual; Public Published Property actor : String Index 0 Read Factor Write Setactor; Property creationDate : String Index 8 Read FcreationDate Write SetcreationDate; Property quantity : integer Index 16 Read Fquantity Write Setquantity; Property reason : String Index 24 Read Freason Write Setreason; Property reasonText : String Index 32 Read FreasonText Write SetreasonText; end; TOrderCancellationClass = Class of TOrderCancellation; { -------------------------------------------------------------------- TOrderCustomer --------------------------------------------------------------------} TOrderCustomer = Class(TGoogleBaseObject) Private Femail : String; FexplicitMarketingPreference : boolean; FfullName : String; Protected //Property setters Procedure Setemail(AIndex : Integer; const AValue : String); virtual; Procedure SetexplicitMarketingPreference(AIndex : Integer; const AValue : boolean); virtual; Procedure SetfullName(AIndex : Integer; const AValue : String); virtual; Public Published Property email : String Index 0 Read Femail Write Setemail; Property explicitMarketingPreference : boolean Index 8 Read FexplicitMarketingPreference Write SetexplicitMarketingPreference; Property fullName : String Index 16 Read FfullName Write SetfullName; end; TOrderCustomerClass = Class of TOrderCustomer; { -------------------------------------------------------------------- TOrderDeliveryDetails --------------------------------------------------------------------} TOrderDeliveryDetails = Class(TGoogleBaseObject) Private Faddress : TOrderAddress; FphoneNumber : String; Protected //Property setters Procedure Setaddress(AIndex : Integer; const AValue : TOrderAddress); virtual; Procedure SetphoneNumber(AIndex : Integer; const AValue : String); virtual; Public Published Property address : TOrderAddress Index 0 Read Faddress Write Setaddress; Property phoneNumber : String Index 8 Read FphoneNumber Write SetphoneNumber; end; TOrderDeliveryDetailsClass = Class of TOrderDeliveryDetails; { -------------------------------------------------------------------- TOrderLineItem --------------------------------------------------------------------} TOrderLineItem = Class(TGoogleBaseObject) Private Fcancellations : TOrderLineItemTypecancellationsArray; Fid : String; Fprice : TPrice; Fproduct : TOrderLineItemProduct; FquantityCanceled : integer; FquantityDelivered : integer; FquantityOrdered : integer; FquantityPending : integer; FquantityReturned : integer; FquantityShipped : integer; FreturnInfo : TOrderLineItemReturnInfo; Freturns : TOrderLineItemTypereturnsArray; FshippingDetails : TOrderLineItemShippingDetails; Ftax : TPrice; Protected //Property setters Procedure Setcancellations(AIndex : Integer; const AValue : TOrderLineItemTypecancellationsArray); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure Setprice(AIndex : Integer; const AValue : TPrice); virtual; Procedure Setproduct(AIndex : Integer; const AValue : TOrderLineItemProduct); virtual; Procedure SetquantityCanceled(AIndex : Integer; const AValue : integer); virtual; Procedure SetquantityDelivered(AIndex : Integer; const AValue : integer); virtual; Procedure SetquantityOrdered(AIndex : Integer; const AValue : integer); virtual; Procedure SetquantityPending(AIndex : Integer; const AValue : integer); virtual; Procedure SetquantityReturned(AIndex : Integer; const AValue : integer); virtual; Procedure SetquantityShipped(AIndex : Integer; const AValue : integer); virtual; Procedure SetreturnInfo(AIndex : Integer; const AValue : TOrderLineItemReturnInfo); virtual; Procedure Setreturns(AIndex : Integer; const AValue : TOrderLineItemTypereturnsArray); virtual; Procedure SetshippingDetails(AIndex : Integer; const AValue : TOrderLineItemShippingDetails); virtual; Procedure Settax(AIndex : Integer; const AValue : TPrice); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property cancellations : TOrderLineItemTypecancellationsArray Index 0 Read Fcancellations Write Setcancellations; Property id : String Index 8 Read Fid Write Setid; Property price : TPrice Index 16 Read Fprice Write Setprice; Property product : TOrderLineItemProduct Index 24 Read Fproduct Write Setproduct; Property quantityCanceled : integer Index 32 Read FquantityCanceled Write SetquantityCanceled; Property quantityDelivered : integer Index 40 Read FquantityDelivered Write SetquantityDelivered; Property quantityOrdered : integer Index 48 Read FquantityOrdered Write SetquantityOrdered; Property quantityPending : integer Index 56 Read FquantityPending Write SetquantityPending; Property quantityReturned : integer Index 64 Read FquantityReturned Write SetquantityReturned; Property quantityShipped : integer Index 72 Read FquantityShipped Write SetquantityShipped; Property returnInfo : TOrderLineItemReturnInfo Index 80 Read FreturnInfo Write SetreturnInfo; Property returns : TOrderLineItemTypereturnsArray Index 88 Read Freturns Write Setreturns; Property shippingDetails : TOrderLineItemShippingDetails Index 96 Read FshippingDetails Write SetshippingDetails; Property tax : TPrice Index 104 Read Ftax Write Settax; end; TOrderLineItemClass = Class of TOrderLineItem; { -------------------------------------------------------------------- TOrderLineItemProduct --------------------------------------------------------------------} TOrderLineItemProduct = Class(TGoogleBaseObject) Private Fbrand : String; Fchannel : String; Fcondition : String; FcontentLanguage : String; Fgtin : String; Fid : String; FimageLink : String; FitemGroupId : String; Fmpn : String; FofferId : String; Fprice : TPrice; FshownImage : String; FtargetCountry : String; Ftitle : String; FvariantAttributes : TOrderLineItemProductTypevariantAttributesArray; Protected //Property setters Procedure Setbrand(AIndex : Integer; const AValue : String); virtual; Procedure Setchannel(AIndex : Integer; const AValue : String); virtual; Procedure Setcondition(AIndex : Integer; const AValue : String); virtual; Procedure SetcontentLanguage(AIndex : Integer; const AValue : String); virtual; Procedure Setgtin(AIndex : Integer; const AValue : String); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure SetimageLink(AIndex : Integer; const AValue : String); virtual; Procedure SetitemGroupId(AIndex : Integer; const AValue : String); virtual; Procedure Setmpn(AIndex : Integer; const AValue : String); virtual; Procedure SetofferId(AIndex : Integer; const AValue : String); virtual; Procedure Setprice(AIndex : Integer; const AValue : TPrice); virtual; Procedure SetshownImage(AIndex : Integer; const AValue : String); virtual; Procedure SettargetCountry(AIndex : Integer; const AValue : String); virtual; Procedure Settitle(AIndex : Integer; const AValue : String); virtual; Procedure SetvariantAttributes(AIndex : Integer; const AValue : TOrderLineItemProductTypevariantAttributesArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property brand : String Index 0 Read Fbrand Write Setbrand; Property channel : String Index 8 Read Fchannel Write Setchannel; Property condition : String Index 16 Read Fcondition Write Setcondition; Property contentLanguage : String Index 24 Read FcontentLanguage Write SetcontentLanguage; Property gtin : String Index 32 Read Fgtin Write Setgtin; Property id : String Index 40 Read Fid Write Setid; Property imageLink : String Index 48 Read FimageLink Write SetimageLink; Property itemGroupId : String Index 56 Read FitemGroupId Write SetitemGroupId; Property mpn : String Index 64 Read Fmpn Write Setmpn; Property offerId : String Index 72 Read FofferId Write SetofferId; Property price : TPrice Index 80 Read Fprice Write Setprice; Property shownImage : String Index 88 Read FshownImage Write SetshownImage; Property targetCountry : String Index 96 Read FtargetCountry Write SettargetCountry; Property title : String Index 104 Read Ftitle Write Settitle; Property variantAttributes : TOrderLineItemProductTypevariantAttributesArray Index 112 Read FvariantAttributes Write SetvariantAttributes; end; TOrderLineItemProductClass = Class of TOrderLineItemProduct; { -------------------------------------------------------------------- TOrderLineItemProductVariantAttribute --------------------------------------------------------------------} TOrderLineItemProductVariantAttribute = Class(TGoogleBaseObject) Private Fdimension : String; Fvalue : String; Protected //Property setters Procedure Setdimension(AIndex : Integer; const AValue : String); virtual; Procedure Setvalue(AIndex : Integer; const AValue : String); virtual; Public Published Property dimension : String Index 0 Read Fdimension Write Setdimension; Property value : String Index 8 Read Fvalue Write Setvalue; end; TOrderLineItemProductVariantAttributeClass = Class of TOrderLineItemProductVariantAttribute; { -------------------------------------------------------------------- TOrderLineItemReturnInfo --------------------------------------------------------------------} TOrderLineItemReturnInfo = Class(TGoogleBaseObject) Private FdaysToReturn : integer; FisReturnable : boolean; FpolicyUrl : String; Protected //Property setters Procedure SetdaysToReturn(AIndex : Integer; const AValue : integer); virtual; Procedure SetisReturnable(AIndex : Integer; const AValue : boolean); virtual; Procedure SetpolicyUrl(AIndex : Integer; const AValue : String); virtual; Public Published Property daysToReturn : integer Index 0 Read FdaysToReturn Write SetdaysToReturn; Property isReturnable : boolean Index 8 Read FisReturnable Write SetisReturnable; Property policyUrl : String Index 16 Read FpolicyUrl Write SetpolicyUrl; end; TOrderLineItemReturnInfoClass = Class of TOrderLineItemReturnInfo; { -------------------------------------------------------------------- TOrderLineItemShippingDetails --------------------------------------------------------------------} TOrderLineItemShippingDetails = Class(TGoogleBaseObject) Private FdeliverByDate : String; Fmethod : TOrderLineItemShippingDetailsMethod; FshipByDate : String; Protected //Property setters Procedure SetdeliverByDate(AIndex : Integer; const AValue : String); virtual; Procedure Setmethod(AIndex : Integer; const AValue : TOrderLineItemShippingDetailsMethod); virtual; Procedure SetshipByDate(AIndex : Integer; const AValue : String); virtual; Public Published Property deliverByDate : String Index 0 Read FdeliverByDate Write SetdeliverByDate; Property method : TOrderLineItemShippingDetailsMethod Index 8 Read Fmethod Write Setmethod; Property shipByDate : String Index 16 Read FshipByDate Write SetshipByDate; end; TOrderLineItemShippingDetailsClass = Class of TOrderLineItemShippingDetails; { -------------------------------------------------------------------- TOrderLineItemShippingDetailsMethod --------------------------------------------------------------------} TOrderLineItemShippingDetailsMethod = Class(TGoogleBaseObject) Private Fcarrier : String; FmaxDaysInTransit : integer; FmethodName : String; FminDaysInTransit : integer; Protected //Property setters Procedure Setcarrier(AIndex : Integer; const AValue : String); virtual; Procedure SetmaxDaysInTransit(AIndex : Integer; const AValue : integer); virtual; Procedure SetmethodName(AIndex : Integer; const AValue : String); virtual; Procedure SetminDaysInTransit(AIndex : Integer; const AValue : integer); virtual; Public Published Property carrier : String Index 0 Read Fcarrier Write Setcarrier; Property maxDaysInTransit : integer Index 8 Read FmaxDaysInTransit Write SetmaxDaysInTransit; Property methodName : String Index 16 Read FmethodName Write SetmethodName; Property minDaysInTransit : integer Index 24 Read FminDaysInTransit Write SetminDaysInTransit; end; TOrderLineItemShippingDetailsMethodClass = Class of TOrderLineItemShippingDetailsMethod; { -------------------------------------------------------------------- TOrderPaymentMethod --------------------------------------------------------------------} TOrderPaymentMethod = Class(TGoogleBaseObject) Private FbillingAddress : TOrderAddress; FexpirationMonth : integer; FexpirationYear : integer; FlastFourDigits : String; FphoneNumber : String; F_type : String; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure SetbillingAddress(AIndex : Integer; const AValue : TOrderAddress); virtual; Procedure SetexpirationMonth(AIndex : Integer; const AValue : integer); virtual; Procedure SetexpirationYear(AIndex : Integer; const AValue : integer); virtual; Procedure SetlastFourDigits(AIndex : Integer; const AValue : String); virtual; Procedure SetphoneNumber(AIndex : Integer; const AValue : String); virtual; Procedure Set_type(AIndex : Integer; const AValue : String); virtual; Public Published Property billingAddress : TOrderAddress Index 0 Read FbillingAddress Write SetbillingAddress; Property expirationMonth : integer Index 8 Read FexpirationMonth Write SetexpirationMonth; Property expirationYear : integer Index 16 Read FexpirationYear Write SetexpirationYear; Property lastFourDigits : String Index 24 Read FlastFourDigits Write SetlastFourDigits; Property phoneNumber : String Index 32 Read FphoneNumber Write SetphoneNumber; Property _type : String Index 40 Read F_type Write Set_type; end; TOrderPaymentMethodClass = Class of TOrderPaymentMethod; { -------------------------------------------------------------------- TOrderPromotion --------------------------------------------------------------------} TOrderPromotion = Class(TGoogleBaseObject) Private Fbenefits : TOrderPromotionTypebenefitsArray; FeffectiveDates : String; FgenericRedemptionCode : String; Fid : String; FlongTitle : String; FproductApplicability : String; FredemptionChannel : String; Protected //Property setters Procedure Setbenefits(AIndex : Integer; const AValue : TOrderPromotionTypebenefitsArray); virtual; Procedure SeteffectiveDates(AIndex : Integer; const AValue : String); virtual; Procedure SetgenericRedemptionCode(AIndex : Integer; const AValue : String); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure SetlongTitle(AIndex : Integer; const AValue : String); virtual; Procedure SetproductApplicability(AIndex : Integer; const AValue : String); virtual; Procedure SetredemptionChannel(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property benefits : TOrderPromotionTypebenefitsArray Index 0 Read Fbenefits Write Setbenefits; Property effectiveDates : String Index 8 Read FeffectiveDates Write SeteffectiveDates; Property genericRedemptionCode : String Index 16 Read FgenericRedemptionCode Write SetgenericRedemptionCode; Property id : String Index 24 Read Fid Write Setid; Property longTitle : String Index 32 Read FlongTitle Write SetlongTitle; Property productApplicability : String Index 40 Read FproductApplicability Write SetproductApplicability; Property redemptionChannel : String Index 48 Read FredemptionChannel Write SetredemptionChannel; end; TOrderPromotionClass = Class of TOrderPromotion; { -------------------------------------------------------------------- TOrderPromotionBenefit --------------------------------------------------------------------} TOrderPromotionBenefit = Class(TGoogleBaseObject) Private Fdiscount : TPrice; FofferIds : TStringArray; FsubType : String; FtaxImpact : TPrice; F_type : String; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure Setdiscount(AIndex : Integer; const AValue : TPrice); virtual; Procedure SetofferIds(AIndex : Integer; const AValue : TStringArray); virtual; Procedure SetsubType(AIndex : Integer; const AValue : String); virtual; Procedure SettaxImpact(AIndex : Integer; const AValue : TPrice); virtual; Procedure Set_type(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property discount : TPrice Index 0 Read Fdiscount Write Setdiscount; Property offerIds : TStringArray Index 8 Read FofferIds Write SetofferIds; Property subType : String Index 16 Read FsubType Write SetsubType; Property taxImpact : TPrice Index 24 Read FtaxImpact Write SettaxImpact; Property _type : String Index 32 Read F_type Write Set_type; end; TOrderPromotionBenefitClass = Class of TOrderPromotionBenefit; { -------------------------------------------------------------------- TOrderRefund --------------------------------------------------------------------} TOrderRefund = Class(TGoogleBaseObject) Private Factor : String; Famount : TPrice; FcreationDate : String; Freason : String; FreasonText : String; Protected //Property setters Procedure Setactor(AIndex : Integer; const AValue : String); virtual; Procedure Setamount(AIndex : Integer; const AValue : TPrice); virtual; Procedure SetcreationDate(AIndex : Integer; const AValue : String); virtual; Procedure Setreason(AIndex : Integer; const AValue : String); virtual; Procedure SetreasonText(AIndex : Integer; const AValue : String); virtual; Public Published Property actor : String Index 0 Read Factor Write Setactor; Property amount : TPrice Index 8 Read Famount Write Setamount; Property creationDate : String Index 16 Read FcreationDate Write SetcreationDate; Property reason : String Index 24 Read Freason Write Setreason; Property reasonText : String Index 32 Read FreasonText Write SetreasonText; end; TOrderRefundClass = Class of TOrderRefund; { -------------------------------------------------------------------- TOrderReturn --------------------------------------------------------------------} TOrderReturn = Class(TGoogleBaseObject) Private Factor : String; FcreationDate : String; Fquantity : integer; Freason : String; FreasonText : String; Protected //Property setters Procedure Setactor(AIndex : Integer; const AValue : String); virtual; Procedure SetcreationDate(AIndex : Integer; const AValue : String); virtual; Procedure Setquantity(AIndex : Integer; const AValue : integer); virtual; Procedure Setreason(AIndex : Integer; const AValue : String); virtual; Procedure SetreasonText(AIndex : Integer; const AValue : String); virtual; Public Published Property actor : String Index 0 Read Factor Write Setactor; Property creationDate : String Index 8 Read FcreationDate Write SetcreationDate; Property quantity : integer Index 16 Read Fquantity Write Setquantity; Property reason : String Index 24 Read Freason Write Setreason; Property reasonText : String Index 32 Read FreasonText Write SetreasonText; end; TOrderReturnClass = Class of TOrderReturn; { -------------------------------------------------------------------- TOrderShipment --------------------------------------------------------------------} TOrderShipment = Class(TGoogleBaseObject) Private Fcarrier : String; FcreationDate : String; FdeliveryDate : String; Fid : String; FlineItems : TOrderShipmentTypelineItemsArray; Fstatus : String; FtrackingId : String; Protected //Property setters Procedure Setcarrier(AIndex : Integer; const AValue : String); virtual; Procedure SetcreationDate(AIndex : Integer; const AValue : String); virtual; Procedure SetdeliveryDate(AIndex : Integer; const AValue : String); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure SetlineItems(AIndex : Integer; const AValue : TOrderShipmentTypelineItemsArray); virtual; Procedure Setstatus(AIndex : Integer; const AValue : String); virtual; Procedure SettrackingId(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property carrier : String Index 0 Read Fcarrier Write Setcarrier; Property creationDate : String Index 8 Read FcreationDate Write SetcreationDate; Property deliveryDate : String Index 16 Read FdeliveryDate Write SetdeliveryDate; Property id : String Index 24 Read Fid Write Setid; Property lineItems : TOrderShipmentTypelineItemsArray Index 32 Read FlineItems Write SetlineItems; Property status : String Index 40 Read Fstatus Write Setstatus; Property trackingId : String Index 48 Read FtrackingId Write SettrackingId; end; TOrderShipmentClass = Class of TOrderShipment; { -------------------------------------------------------------------- TOrderShipmentLineItemShipment --------------------------------------------------------------------} TOrderShipmentLineItemShipment = Class(TGoogleBaseObject) Private FlineItemId : String; Fquantity : integer; Protected //Property setters Procedure SetlineItemId(AIndex : Integer; const AValue : String); virtual; Procedure Setquantity(AIndex : Integer; const AValue : integer); virtual; Public Published Property lineItemId : String Index 0 Read FlineItemId Write SetlineItemId; Property quantity : integer Index 8 Read Fquantity Write Setquantity; end; TOrderShipmentLineItemShipmentClass = Class of TOrderShipmentLineItemShipment; { -------------------------------------------------------------------- TOrdersAcknowledgeRequest --------------------------------------------------------------------} TOrdersAcknowledgeRequest = Class(TGoogleBaseObject) Private FoperationId : String; Protected //Property setters Procedure SetoperationId(AIndex : Integer; const AValue : String); virtual; Public Published Property operationId : String Index 0 Read FoperationId Write SetoperationId; end; TOrdersAcknowledgeRequestClass = Class of TOrdersAcknowledgeRequest; { -------------------------------------------------------------------- TOrdersAcknowledgeResponse --------------------------------------------------------------------} TOrdersAcknowledgeResponse = Class(TGoogleBaseObject) Private FexecutionStatus : String; Fkind : String; Protected //Property setters Procedure SetexecutionStatus(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Public Published Property executionStatus : String Index 0 Read FexecutionStatus Write SetexecutionStatus; Property kind : String Index 8 Read Fkind Write Setkind; end; TOrdersAcknowledgeResponseClass = Class of TOrdersAcknowledgeResponse; { -------------------------------------------------------------------- TOrdersAdvanceTestOrderResponse --------------------------------------------------------------------} TOrdersAdvanceTestOrderResponse = Class(TGoogleBaseObject) Private Fkind : String; Protected //Property setters Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Public Published Property kind : String Index 0 Read Fkind Write Setkind; end; TOrdersAdvanceTestOrderResponseClass = Class of TOrdersAdvanceTestOrderResponse; { -------------------------------------------------------------------- TOrdersCancelLineItemRequest --------------------------------------------------------------------} TOrdersCancelLineItemRequest = Class(TGoogleBaseObject) Private Famount : TPrice; FlineItemId : String; FoperationId : String; Fquantity : integer; Freason : String; FreasonText : String; Protected //Property setters Procedure Setamount(AIndex : Integer; const AValue : TPrice); virtual; Procedure SetlineItemId(AIndex : Integer; const AValue : String); virtual; Procedure SetoperationId(AIndex : Integer; const AValue : String); virtual; Procedure Setquantity(AIndex : Integer; const AValue : integer); virtual; Procedure Setreason(AIndex : Integer; const AValue : String); virtual; Procedure SetreasonText(AIndex : Integer; const AValue : String); virtual; Public Published Property amount : TPrice Index 0 Read Famount Write Setamount; Property lineItemId : String Index 8 Read FlineItemId Write SetlineItemId; Property operationId : String Index 16 Read FoperationId Write SetoperationId; Property quantity : integer Index 24 Read Fquantity Write Setquantity; Property reason : String Index 32 Read Freason Write Setreason; Property reasonText : String Index 40 Read FreasonText Write SetreasonText; end; TOrdersCancelLineItemRequestClass = Class of TOrdersCancelLineItemRequest; { -------------------------------------------------------------------- TOrdersCancelLineItemResponse --------------------------------------------------------------------} TOrdersCancelLineItemResponse = Class(TGoogleBaseObject) Private FexecutionStatus : String; Fkind : String; Protected //Property setters Procedure SetexecutionStatus(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Public Published Property executionStatus : String Index 0 Read FexecutionStatus Write SetexecutionStatus; Property kind : String Index 8 Read Fkind Write Setkind; end; TOrdersCancelLineItemResponseClass = Class of TOrdersCancelLineItemResponse; { -------------------------------------------------------------------- TOrdersCancelRequest --------------------------------------------------------------------} TOrdersCancelRequest = Class(TGoogleBaseObject) Private FoperationId : String; Freason : String; FreasonText : String; Protected //Property setters Procedure SetoperationId(AIndex : Integer; const AValue : String); virtual; Procedure Setreason(AIndex : Integer; const AValue : String); virtual; Procedure SetreasonText(AIndex : Integer; const AValue : String); virtual; Public Published Property operationId : String Index 0 Read FoperationId Write SetoperationId; Property reason : String Index 8 Read Freason Write Setreason; Property reasonText : String Index 16 Read FreasonText Write SetreasonText; end; TOrdersCancelRequestClass = Class of TOrdersCancelRequest; { -------------------------------------------------------------------- TOrdersCancelResponse --------------------------------------------------------------------} TOrdersCancelResponse = Class(TGoogleBaseObject) Private FexecutionStatus : String; Fkind : String; Protected //Property setters Procedure SetexecutionStatus(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Public Published Property executionStatus : String Index 0 Read FexecutionStatus Write SetexecutionStatus; Property kind : String Index 8 Read Fkind Write Setkind; end; TOrdersCancelResponseClass = Class of TOrdersCancelResponse; { -------------------------------------------------------------------- TOrdersCreateTestOrderRequest --------------------------------------------------------------------} TOrdersCreateTestOrderRequest = Class(TGoogleBaseObject) Private FtemplateName : String; FtestOrder : TTestOrder; Protected //Property setters Procedure SettemplateName(AIndex : Integer; const AValue : String); virtual; Procedure SettestOrder(AIndex : Integer; const AValue : TTestOrder); virtual; Public Published Property templateName : String Index 0 Read FtemplateName Write SettemplateName; Property testOrder : TTestOrder Index 8 Read FtestOrder Write SettestOrder; end; TOrdersCreateTestOrderRequestClass = Class of TOrdersCreateTestOrderRequest; { -------------------------------------------------------------------- TOrdersCreateTestOrderResponse --------------------------------------------------------------------} TOrdersCreateTestOrderResponse = Class(TGoogleBaseObject) Private Fkind : String; ForderId : String; Protected //Property setters Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetorderId(AIndex : Integer; const AValue : String); virtual; Public Published Property kind : String Index 0 Read Fkind Write Setkind; Property orderId : String Index 8 Read ForderId Write SetorderId; end; TOrdersCreateTestOrderResponseClass = Class of TOrdersCreateTestOrderResponse; { -------------------------------------------------------------------- TOrdersCustomBatchRequest --------------------------------------------------------------------} TOrdersCustomBatchRequest = Class(TGoogleBaseObject) Private Fentries : TOrdersCustomBatchRequestTypeentriesArray; Protected //Property setters Procedure Setentries(AIndex : Integer; const AValue : TOrdersCustomBatchRequestTypeentriesArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property entries : TOrdersCustomBatchRequestTypeentriesArray Index 0 Read Fentries Write Setentries; end; TOrdersCustomBatchRequestClass = Class of TOrdersCustomBatchRequest; { -------------------------------------------------------------------- TOrdersCustomBatchRequestEntry --------------------------------------------------------------------} TOrdersCustomBatchRequestEntry = Class(TGoogleBaseObject) Private FbatchId : integer; Fcancel : TOrdersCustomBatchRequestEntryCancel; FcancelLineItem : TOrdersCustomBatchRequestEntryCancelLineItem; FmerchantId : String; FmerchantOrderId : String; Fmethod : String; FoperationId : String; ForderId : String; Frefund : TOrdersCustomBatchRequestEntryRefund; FreturnLineItem : TOrdersCustomBatchRequestEntryReturnLineItem; FshipLineItems : TOrdersCustomBatchRequestEntryShipLineItems; FupdateShipment : TOrdersCustomBatchRequestEntryUpdateShipment; Protected //Property setters Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual; Procedure Setcancel(AIndex : Integer; const AValue : TOrdersCustomBatchRequestEntryCancel); virtual; Procedure SetcancelLineItem(AIndex : Integer; const AValue : TOrdersCustomBatchRequestEntryCancelLineItem); virtual; Procedure SetmerchantId(AIndex : Integer; const AValue : String); virtual; Procedure SetmerchantOrderId(AIndex : Integer; const AValue : String); virtual; Procedure Setmethod(AIndex : Integer; const AValue : String); virtual; Procedure SetoperationId(AIndex : Integer; const AValue : String); virtual; Procedure SetorderId(AIndex : Integer; const AValue : String); virtual; Procedure Setrefund(AIndex : Integer; const AValue : TOrdersCustomBatchRequestEntryRefund); virtual; Procedure SetreturnLineItem(AIndex : Integer; const AValue : TOrdersCustomBatchRequestEntryReturnLineItem); virtual; Procedure SetshipLineItems(AIndex : Integer; const AValue : TOrdersCustomBatchRequestEntryShipLineItems); virtual; Procedure SetupdateShipment(AIndex : Integer; const AValue : TOrdersCustomBatchRequestEntryUpdateShipment); virtual; Public Published Property batchId : integer Index 0 Read FbatchId Write SetbatchId; Property cancel : TOrdersCustomBatchRequestEntryCancel Index 8 Read Fcancel Write Setcancel; Property cancelLineItem : TOrdersCustomBatchRequestEntryCancelLineItem Index 16 Read FcancelLineItem Write SetcancelLineItem; Property merchantId : String Index 24 Read FmerchantId Write SetmerchantId; Property merchantOrderId : String Index 32 Read FmerchantOrderId Write SetmerchantOrderId; Property method : String Index 40 Read Fmethod Write Setmethod; Property operationId : String Index 48 Read FoperationId Write SetoperationId; Property orderId : String Index 56 Read ForderId Write SetorderId; Property refund : TOrdersCustomBatchRequestEntryRefund Index 64 Read Frefund Write Setrefund; Property returnLineItem : TOrdersCustomBatchRequestEntryReturnLineItem Index 72 Read FreturnLineItem Write SetreturnLineItem; Property shipLineItems : TOrdersCustomBatchRequestEntryShipLineItems Index 80 Read FshipLineItems Write SetshipLineItems; Property updateShipment : TOrdersCustomBatchRequestEntryUpdateShipment Index 88 Read FupdateShipment Write SetupdateShipment; end; TOrdersCustomBatchRequestEntryClass = Class of TOrdersCustomBatchRequestEntry; { -------------------------------------------------------------------- TOrdersCustomBatchRequestEntryCancel --------------------------------------------------------------------} TOrdersCustomBatchRequestEntryCancel = Class(TGoogleBaseObject) Private Freason : String; FreasonText : String; Protected //Property setters Procedure Setreason(AIndex : Integer; const AValue : String); virtual; Procedure SetreasonText(AIndex : Integer; const AValue : String); virtual; Public Published Property reason : String Index 0 Read Freason Write Setreason; Property reasonText : String Index 8 Read FreasonText Write SetreasonText; end; TOrdersCustomBatchRequestEntryCancelClass = Class of TOrdersCustomBatchRequestEntryCancel; { -------------------------------------------------------------------- TOrdersCustomBatchRequestEntryCancelLineItem --------------------------------------------------------------------} TOrdersCustomBatchRequestEntryCancelLineItem = Class(TGoogleBaseObject) Private Famount : TPrice; FlineItemId : String; Fquantity : integer; Freason : String; FreasonText : String; Protected //Property setters Procedure Setamount(AIndex : Integer; const AValue : TPrice); virtual; Procedure SetlineItemId(AIndex : Integer; const AValue : String); virtual; Procedure Setquantity(AIndex : Integer; const AValue : integer); virtual; Procedure Setreason(AIndex : Integer; const AValue : String); virtual; Procedure SetreasonText(AIndex : Integer; const AValue : String); virtual; Public Published Property amount : TPrice Index 0 Read Famount Write Setamount; Property lineItemId : String Index 8 Read FlineItemId Write SetlineItemId; Property quantity : integer Index 16 Read Fquantity Write Setquantity; Property reason : String Index 24 Read Freason Write Setreason; Property reasonText : String Index 32 Read FreasonText Write SetreasonText; end; TOrdersCustomBatchRequestEntryCancelLineItemClass = Class of TOrdersCustomBatchRequestEntryCancelLineItem; { -------------------------------------------------------------------- TOrdersCustomBatchRequestEntryRefund --------------------------------------------------------------------} TOrdersCustomBatchRequestEntryRefund = Class(TGoogleBaseObject) Private Famount : TPrice; Freason : String; FreasonText : String; Protected //Property setters Procedure Setamount(AIndex : Integer; const AValue : TPrice); virtual; Procedure Setreason(AIndex : Integer; const AValue : String); virtual; Procedure SetreasonText(AIndex : Integer; const AValue : String); virtual; Public Published Property amount : TPrice Index 0 Read Famount Write Setamount; Property reason : String Index 8 Read Freason Write Setreason; Property reasonText : String Index 16 Read FreasonText Write SetreasonText; end; TOrdersCustomBatchRequestEntryRefundClass = Class of TOrdersCustomBatchRequestEntryRefund; { -------------------------------------------------------------------- TOrdersCustomBatchRequestEntryReturnLineItem --------------------------------------------------------------------} TOrdersCustomBatchRequestEntryReturnLineItem = Class(TGoogleBaseObject) Private FlineItemId : String; Fquantity : integer; Freason : String; FreasonText : String; Protected //Property setters Procedure SetlineItemId(AIndex : Integer; const AValue : String); virtual; Procedure Setquantity(AIndex : Integer; const AValue : integer); virtual; Procedure Setreason(AIndex : Integer; const AValue : String); virtual; Procedure SetreasonText(AIndex : Integer; const AValue : String); virtual; Public Published Property lineItemId : String Index 0 Read FlineItemId Write SetlineItemId; Property quantity : integer Index 8 Read Fquantity Write Setquantity; Property reason : String Index 16 Read Freason Write Setreason; Property reasonText : String Index 24 Read FreasonText Write SetreasonText; end; TOrdersCustomBatchRequestEntryReturnLineItemClass = Class of TOrdersCustomBatchRequestEntryReturnLineItem; { -------------------------------------------------------------------- TOrdersCustomBatchRequestEntryShipLineItems --------------------------------------------------------------------} TOrdersCustomBatchRequestEntryShipLineItems = Class(TGoogleBaseObject) Private Fcarrier : String; FlineItems : TOrdersCustomBatchRequestEntryShipLineItemsTypelineItemsArray; FshipmentId : String; FtrackingId : String; Protected //Property setters Procedure Setcarrier(AIndex : Integer; const AValue : String); virtual; Procedure SetlineItems(AIndex : Integer; const AValue : TOrdersCustomBatchRequestEntryShipLineItemsTypelineItemsArray); virtual; Procedure SetshipmentId(AIndex : Integer; const AValue : String); virtual; Procedure SettrackingId(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property carrier : String Index 0 Read Fcarrier Write Setcarrier; Property lineItems : TOrdersCustomBatchRequestEntryShipLineItemsTypelineItemsArray Index 8 Read FlineItems Write SetlineItems; Property shipmentId : String Index 16 Read FshipmentId Write SetshipmentId; Property trackingId : String Index 24 Read FtrackingId Write SettrackingId; end; TOrdersCustomBatchRequestEntryShipLineItemsClass = Class of TOrdersCustomBatchRequestEntryShipLineItems; { -------------------------------------------------------------------- TOrdersCustomBatchRequestEntryUpdateShipment --------------------------------------------------------------------} TOrdersCustomBatchRequestEntryUpdateShipment = Class(TGoogleBaseObject) Private Fcarrier : String; FshipmentId : String; Fstatus : String; FtrackingId : String; Protected //Property setters Procedure Setcarrier(AIndex : Integer; const AValue : String); virtual; Procedure SetshipmentId(AIndex : Integer; const AValue : String); virtual; Procedure Setstatus(AIndex : Integer; const AValue : String); virtual; Procedure SettrackingId(AIndex : Integer; const AValue : String); virtual; Public Published Property carrier : String Index 0 Read Fcarrier Write Setcarrier; Property shipmentId : String Index 8 Read FshipmentId Write SetshipmentId; Property status : String Index 16 Read Fstatus Write Setstatus; Property trackingId : String Index 24 Read FtrackingId Write SettrackingId; end; TOrdersCustomBatchRequestEntryUpdateShipmentClass = Class of TOrdersCustomBatchRequestEntryUpdateShipment; { -------------------------------------------------------------------- TOrdersCustomBatchResponse --------------------------------------------------------------------} TOrdersCustomBatchResponse = Class(TGoogleBaseObject) Private Fentries : TOrdersCustomBatchResponseTypeentriesArray; Fkind : String; Protected //Property setters Procedure Setentries(AIndex : Integer; const AValue : TOrdersCustomBatchResponseTypeentriesArray); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property entries : TOrdersCustomBatchResponseTypeentriesArray Index 0 Read Fentries Write Setentries; Property kind : String Index 8 Read Fkind Write Setkind; end; TOrdersCustomBatchResponseClass = Class of TOrdersCustomBatchResponse; { -------------------------------------------------------------------- TOrdersCustomBatchResponseEntry --------------------------------------------------------------------} TOrdersCustomBatchResponseEntry = Class(TGoogleBaseObject) Private FbatchId : integer; Ferrors : TErrors; FexecutionStatus : String; Fkind : String; Forder : TOrder; Protected //Property setters Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual; Procedure Seterrors(AIndex : Integer; const AValue : TErrors); virtual; Procedure SetexecutionStatus(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setorder(AIndex : Integer; const AValue : TOrder); virtual; Public Published Property batchId : integer Index 0 Read FbatchId Write SetbatchId; Property errors : TErrors Index 8 Read Ferrors Write Seterrors; Property executionStatus : String Index 16 Read FexecutionStatus Write SetexecutionStatus; Property kind : String Index 24 Read Fkind Write Setkind; Property order : TOrder Index 32 Read Forder Write Setorder; end; TOrdersCustomBatchResponseEntryClass = Class of TOrdersCustomBatchResponseEntry; { -------------------------------------------------------------------- TOrdersGetByMerchantOrderIdResponse --------------------------------------------------------------------} TOrdersGetByMerchantOrderIdResponse = Class(TGoogleBaseObject) Private Fkind : String; Forder : TOrder; Protected //Property setters Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setorder(AIndex : Integer; const AValue : TOrder); virtual; Public Published Property kind : String Index 0 Read Fkind Write Setkind; Property order : TOrder Index 8 Read Forder Write Setorder; end; TOrdersGetByMerchantOrderIdResponseClass = Class of TOrdersGetByMerchantOrderIdResponse; { -------------------------------------------------------------------- TOrdersGetTestOrderTemplateResponse --------------------------------------------------------------------} TOrdersGetTestOrderTemplateResponse = Class(TGoogleBaseObject) Private Fkind : String; Ftemplate : TTestOrder; Protected //Property setters Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Settemplate(AIndex : Integer; const AValue : TTestOrder); virtual; Public Published Property kind : String Index 0 Read Fkind Write Setkind; Property template : TTestOrder Index 8 Read Ftemplate Write Settemplate; end; TOrdersGetTestOrderTemplateResponseClass = Class of TOrdersGetTestOrderTemplateResponse; { -------------------------------------------------------------------- TOrdersListResponse --------------------------------------------------------------------} TOrdersListResponse = Class(TGoogleBaseObject) Private Fkind : String; FnextPageToken : String; Fresources : TOrdersListResponseTyperesourcesArray; Protected //Property setters Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual; Procedure Setresources(AIndex : Integer; const AValue : TOrdersListResponseTyperesourcesArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property kind : String Index 0 Read Fkind Write Setkind; Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken; Property resources : TOrdersListResponseTyperesourcesArray Index 16 Read Fresources Write Setresources; end; TOrdersListResponseClass = Class of TOrdersListResponse; { -------------------------------------------------------------------- TOrdersRefundRequest --------------------------------------------------------------------} TOrdersRefundRequest = Class(TGoogleBaseObject) Private Famount : TPrice; FoperationId : String; Freason : String; FreasonText : String; Protected //Property setters Procedure Setamount(AIndex : Integer; const AValue : TPrice); virtual; Procedure SetoperationId(AIndex : Integer; const AValue : String); virtual; Procedure Setreason(AIndex : Integer; const AValue : String); virtual; Procedure SetreasonText(AIndex : Integer; const AValue : String); virtual; Public Published Property amount : TPrice Index 0 Read Famount Write Setamount; Property operationId : String Index 8 Read FoperationId Write SetoperationId; Property reason : String Index 16 Read Freason Write Setreason; Property reasonText : String Index 24 Read FreasonText Write SetreasonText; end; TOrdersRefundRequestClass = Class of TOrdersRefundRequest; { -------------------------------------------------------------------- TOrdersRefundResponse --------------------------------------------------------------------} TOrdersRefundResponse = Class(TGoogleBaseObject) Private FexecutionStatus : String; Fkind : String; Protected //Property setters Procedure SetexecutionStatus(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Public Published Property executionStatus : String Index 0 Read FexecutionStatus Write SetexecutionStatus; Property kind : String Index 8 Read Fkind Write Setkind; end; TOrdersRefundResponseClass = Class of TOrdersRefundResponse; { -------------------------------------------------------------------- TOrdersReturnLineItemRequest --------------------------------------------------------------------} TOrdersReturnLineItemRequest = Class(TGoogleBaseObject) Private FlineItemId : String; FoperationId : String; Fquantity : integer; Freason : String; FreasonText : String; Protected //Property setters Procedure SetlineItemId(AIndex : Integer; const AValue : String); virtual; Procedure SetoperationId(AIndex : Integer; const AValue : String); virtual; Procedure Setquantity(AIndex : Integer; const AValue : integer); virtual; Procedure Setreason(AIndex : Integer; const AValue : String); virtual; Procedure SetreasonText(AIndex : Integer; const AValue : String); virtual; Public Published Property lineItemId : String Index 0 Read FlineItemId Write SetlineItemId; Property operationId : String Index 8 Read FoperationId Write SetoperationId; Property quantity : integer Index 16 Read Fquantity Write Setquantity; Property reason : String Index 24 Read Freason Write Setreason; Property reasonText : String Index 32 Read FreasonText Write SetreasonText; end; TOrdersReturnLineItemRequestClass = Class of TOrdersReturnLineItemRequest; { -------------------------------------------------------------------- TOrdersReturnLineItemResponse --------------------------------------------------------------------} TOrdersReturnLineItemResponse = Class(TGoogleBaseObject) Private FexecutionStatus : String; Fkind : String; Protected //Property setters Procedure SetexecutionStatus(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Public Published Property executionStatus : String Index 0 Read FexecutionStatus Write SetexecutionStatus; Property kind : String Index 8 Read Fkind Write Setkind; end; TOrdersReturnLineItemResponseClass = Class of TOrdersReturnLineItemResponse; { -------------------------------------------------------------------- TOrdersShipLineItemsRequest --------------------------------------------------------------------} TOrdersShipLineItemsRequest = Class(TGoogleBaseObject) Private Fcarrier : String; FlineItems : TOrdersShipLineItemsRequestTypelineItemsArray; FoperationId : String; FshipmentId : String; FtrackingId : String; Protected //Property setters Procedure Setcarrier(AIndex : Integer; const AValue : String); virtual; Procedure SetlineItems(AIndex : Integer; const AValue : TOrdersShipLineItemsRequestTypelineItemsArray); virtual; Procedure SetoperationId(AIndex : Integer; const AValue : String); virtual; Procedure SetshipmentId(AIndex : Integer; const AValue : String); virtual; Procedure SettrackingId(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property carrier : String Index 0 Read Fcarrier Write Setcarrier; Property lineItems : TOrdersShipLineItemsRequestTypelineItemsArray Index 8 Read FlineItems Write SetlineItems; Property operationId : String Index 16 Read FoperationId Write SetoperationId; Property shipmentId : String Index 24 Read FshipmentId Write SetshipmentId; Property trackingId : String Index 32 Read FtrackingId Write SettrackingId; end; TOrdersShipLineItemsRequestClass = Class of TOrdersShipLineItemsRequest; { -------------------------------------------------------------------- TOrdersShipLineItemsResponse --------------------------------------------------------------------} TOrdersShipLineItemsResponse = Class(TGoogleBaseObject) Private FexecutionStatus : String; Fkind : String; Protected //Property setters Procedure SetexecutionStatus(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Public Published Property executionStatus : String Index 0 Read FexecutionStatus Write SetexecutionStatus; Property kind : String Index 8 Read Fkind Write Setkind; end; TOrdersShipLineItemsResponseClass = Class of TOrdersShipLineItemsResponse; { -------------------------------------------------------------------- TOrdersUpdateMerchantOrderIdRequest --------------------------------------------------------------------} TOrdersUpdateMerchantOrderIdRequest = Class(TGoogleBaseObject) Private FmerchantOrderId : String; FoperationId : String; Protected //Property setters Procedure SetmerchantOrderId(AIndex : Integer; const AValue : String); virtual; Procedure SetoperationId(AIndex : Integer; const AValue : String); virtual; Public Published Property merchantOrderId : String Index 0 Read FmerchantOrderId Write SetmerchantOrderId; Property operationId : String Index 8 Read FoperationId Write SetoperationId; end; TOrdersUpdateMerchantOrderIdRequestClass = Class of TOrdersUpdateMerchantOrderIdRequest; { -------------------------------------------------------------------- TOrdersUpdateMerchantOrderIdResponse --------------------------------------------------------------------} TOrdersUpdateMerchantOrderIdResponse = Class(TGoogleBaseObject) Private FexecutionStatus : String; Fkind : String; Protected //Property setters Procedure SetexecutionStatus(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Public Published Property executionStatus : String Index 0 Read FexecutionStatus Write SetexecutionStatus; Property kind : String Index 8 Read Fkind Write Setkind; end; TOrdersUpdateMerchantOrderIdResponseClass = Class of TOrdersUpdateMerchantOrderIdResponse; { -------------------------------------------------------------------- TOrdersUpdateShipmentRequest --------------------------------------------------------------------} TOrdersUpdateShipmentRequest = Class(TGoogleBaseObject) Private Fcarrier : String; FoperationId : String; FshipmentId : String; Fstatus : String; FtrackingId : String; Protected //Property setters Procedure Setcarrier(AIndex : Integer; const AValue : String); virtual; Procedure SetoperationId(AIndex : Integer; const AValue : String); virtual; Procedure SetshipmentId(AIndex : Integer; const AValue : String); virtual; Procedure Setstatus(AIndex : Integer; const AValue : String); virtual; Procedure SettrackingId(AIndex : Integer; const AValue : String); virtual; Public Published Property carrier : String Index 0 Read Fcarrier Write Setcarrier; Property operationId : String Index 8 Read FoperationId Write SetoperationId; Property shipmentId : String Index 16 Read FshipmentId Write SetshipmentId; Property status : String Index 24 Read Fstatus Write Setstatus; Property trackingId : String Index 32 Read FtrackingId Write SettrackingId; end; TOrdersUpdateShipmentRequestClass = Class of TOrdersUpdateShipmentRequest; { -------------------------------------------------------------------- TOrdersUpdateShipmentResponse --------------------------------------------------------------------} TOrdersUpdateShipmentResponse = Class(TGoogleBaseObject) Private FexecutionStatus : String; Fkind : String; Protected //Property setters Procedure SetexecutionStatus(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Public Published Property executionStatus : String Index 0 Read FexecutionStatus Write SetexecutionStatus; Property kind : String Index 8 Read Fkind Write Setkind; end; TOrdersUpdateShipmentResponseClass = Class of TOrdersUpdateShipmentResponse; { -------------------------------------------------------------------- TPrice --------------------------------------------------------------------} TPrice = Class(TGoogleBaseObject) Private Fcurrency : String; Fvalue : String; Protected //Property setters Procedure Setcurrency(AIndex : Integer; const AValue : String); virtual; Procedure Setvalue(AIndex : Integer; const AValue : String); virtual; Public Published Property currency : String Index 0 Read Fcurrency Write Setcurrency; Property value : String Index 8 Read Fvalue Write Setvalue; end; TPriceClass = Class of TPrice; { -------------------------------------------------------------------- TProduct --------------------------------------------------------------------} TProduct = Class(TGoogleBaseObject) Private FadditionalImageLinks : TStringArray; Fadult : boolean; FadwordsGrouping : String; FadwordsLabels : TStringArray; FadwordsRedirect : String; FageGroup : String; Faspects : TProductTypeaspectsArray; Favailability : String; FavailabilityDate : String; Fbrand : String; Fchannel : String; Fcolor : String; Fcondition : String; FcontentLanguage : String; FcustomAttributes : TProductTypecustomAttributesArray; FcustomGroups : TProductTypecustomGroupsArray; FcustomLabel0 : String; FcustomLabel1 : String; FcustomLabel2 : String; FcustomLabel3 : String; FcustomLabel4 : String; Fdescription : String; Fdestinations : TProductTypedestinationsArray; FdisplayAdsId : String; FdisplayAdsLink : String; FdisplayAdsSimilarIds : TStringArray; FdisplayAdsTitle : String; FdisplayAdsValue : double; FenergyEfficiencyClass : String; FexpirationDate : String; Fgender : String; FgoogleProductCategory : String; Fgtin : String; Fid : String; FidentifierExists : boolean; FimageLink : String; Finstallment : TInstallment; FisBundle : boolean; FitemGroupId : String; Fkind : String; Flink : String; FloyaltyPoints : TLoyaltyPoints; Fmaterial : String; FmobileLink : String; Fmpn : String; Fmultipack : String; FofferId : String; FonlineOnly : boolean; Fpattern : String; Fprice : TPrice; FproductType : String; FpromotionIds : TStringArray; FsalePrice : TPrice; FsalePriceEffectiveDate : String; FsellOnGoogleQuantity : String; Fshipping : TProductTypeshippingArray; FshippingHeight : TProductShippingDimension; FshippingLabel : String; FshippingLength : TProductShippingDimension; FshippingWeight : TProductShippingWeight; FshippingWidth : TProductShippingDimension; FsizeSystem : String; FsizeType : String; Fsizes : TStringArray; FtargetCountry : String; Ftaxes : TProductTypetaxesArray; Ftitle : String; FunitPricingBaseMeasure : TProductUnitPricingBaseMeasure; FunitPricingMeasure : TProductUnitPricingMeasure; FvalidatedDestinations : TStringArray; Fwarnings : TProductTypewarningsArray; Protected //Property setters Procedure SetadditionalImageLinks(AIndex : Integer; const AValue : TStringArray); virtual; Procedure Setadult(AIndex : Integer; const AValue : boolean); virtual; Procedure SetadwordsGrouping(AIndex : Integer; const AValue : String); virtual; Procedure SetadwordsLabels(AIndex : Integer; const AValue : TStringArray); virtual; Procedure SetadwordsRedirect(AIndex : Integer; const AValue : String); virtual; Procedure SetageGroup(AIndex : Integer; const AValue : String); virtual; Procedure Setaspects(AIndex : Integer; const AValue : TProductTypeaspectsArray); virtual; Procedure Setavailability(AIndex : Integer; const AValue : String); virtual; Procedure SetavailabilityDate(AIndex : Integer; const AValue : String); virtual; Procedure Setbrand(AIndex : Integer; const AValue : String); virtual; Procedure Setchannel(AIndex : Integer; const AValue : String); virtual; Procedure Setcolor(AIndex : Integer; const AValue : String); virtual; Procedure Setcondition(AIndex : Integer; const AValue : String); virtual; Procedure SetcontentLanguage(AIndex : Integer; const AValue : String); virtual; Procedure SetcustomAttributes(AIndex : Integer; const AValue : TProductTypecustomAttributesArray); virtual; Procedure SetcustomGroups(AIndex : Integer; const AValue : TProductTypecustomGroupsArray); virtual; Procedure SetcustomLabel0(AIndex : Integer; const AValue : String); virtual; Procedure SetcustomLabel1(AIndex : Integer; const AValue : String); virtual; Procedure SetcustomLabel2(AIndex : Integer; const AValue : String); virtual; Procedure SetcustomLabel3(AIndex : Integer; const AValue : String); virtual; Procedure SetcustomLabel4(AIndex : Integer; const AValue : String); virtual; Procedure Setdescription(AIndex : Integer; const AValue : String); virtual; Procedure Setdestinations(AIndex : Integer; const AValue : TProductTypedestinationsArray); virtual; Procedure SetdisplayAdsId(AIndex : Integer; const AValue : String); virtual; Procedure SetdisplayAdsLink(AIndex : Integer; const AValue : String); virtual; Procedure SetdisplayAdsSimilarIds(AIndex : Integer; const AValue : TStringArray); virtual; Procedure SetdisplayAdsTitle(AIndex : Integer; const AValue : String); virtual; Procedure SetdisplayAdsValue(AIndex : Integer; const AValue : double); virtual; Procedure SetenergyEfficiencyClass(AIndex : Integer; const AValue : String); virtual; Procedure SetexpirationDate(AIndex : Integer; const AValue : String); virtual; Procedure Setgender(AIndex : Integer; const AValue : String); virtual; Procedure SetgoogleProductCategory(AIndex : Integer; const AValue : String); virtual; Procedure Setgtin(AIndex : Integer; const AValue : String); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure SetidentifierExists(AIndex : Integer; const AValue : boolean); virtual; Procedure SetimageLink(AIndex : Integer; const AValue : String); virtual; Procedure Setinstallment(AIndex : Integer; const AValue : TInstallment); virtual; Procedure SetisBundle(AIndex : Integer; const AValue : boolean); virtual; Procedure SetitemGroupId(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setlink(AIndex : Integer; const AValue : String); virtual; Procedure SetloyaltyPoints(AIndex : Integer; const AValue : TLoyaltyPoints); virtual; Procedure Setmaterial(AIndex : Integer; const AValue : String); virtual; Procedure SetmobileLink(AIndex : Integer; const AValue : String); virtual; Procedure Setmpn(AIndex : Integer; const AValue : String); virtual; Procedure Setmultipack(AIndex : Integer; const AValue : String); virtual; Procedure SetofferId(AIndex : Integer; const AValue : String); virtual; Procedure SetonlineOnly(AIndex : Integer; const AValue : boolean); virtual; Procedure Setpattern(AIndex : Integer; const AValue : String); virtual; Procedure Setprice(AIndex : Integer; const AValue : TPrice); virtual; Procedure SetproductType(AIndex : Integer; const AValue : String); virtual; Procedure SetpromotionIds(AIndex : Integer; const AValue : TStringArray); virtual; Procedure SetsalePrice(AIndex : Integer; const AValue : TPrice); virtual; Procedure SetsalePriceEffectiveDate(AIndex : Integer; const AValue : String); virtual; Procedure SetsellOnGoogleQuantity(AIndex : Integer; const AValue : String); virtual; Procedure Setshipping(AIndex : Integer; const AValue : TProductTypeshippingArray); virtual; Procedure SetshippingHeight(AIndex : Integer; const AValue : TProductShippingDimension); virtual; Procedure SetshippingLabel(AIndex : Integer; const AValue : String); virtual; Procedure SetshippingLength(AIndex : Integer; const AValue : TProductShippingDimension); virtual; Procedure SetshippingWeight(AIndex : Integer; const AValue : TProductShippingWeight); virtual; Procedure SetshippingWidth(AIndex : Integer; const AValue : TProductShippingDimension); virtual; Procedure SetsizeSystem(AIndex : Integer; const AValue : String); virtual; Procedure SetsizeType(AIndex : Integer; const AValue : String); virtual; Procedure Setsizes(AIndex : Integer; const AValue : TStringArray); virtual; Procedure SettargetCountry(AIndex : Integer; const AValue : String); virtual; Procedure Settaxes(AIndex : Integer; const AValue : TProductTypetaxesArray); virtual; Procedure Settitle(AIndex : Integer; const AValue : String); virtual; Procedure SetunitPricingBaseMeasure(AIndex : Integer; const AValue : TProductUnitPricingBaseMeasure); virtual; Procedure SetunitPricingMeasure(AIndex : Integer; const AValue : TProductUnitPricingMeasure); virtual; Procedure SetvalidatedDestinations(AIndex : Integer; const AValue : TStringArray); virtual; Procedure Setwarnings(AIndex : Integer; const AValue : TProductTypewarningsArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property additionalImageLinks : TStringArray Index 0 Read FadditionalImageLinks Write SetadditionalImageLinks; Property adult : boolean Index 8 Read Fadult Write Setadult; Property adwordsGrouping : String Index 16 Read FadwordsGrouping Write SetadwordsGrouping; Property adwordsLabels : TStringArray Index 24 Read FadwordsLabels Write SetadwordsLabels; Property adwordsRedirect : String Index 32 Read FadwordsRedirect Write SetadwordsRedirect; Property ageGroup : String Index 40 Read FageGroup Write SetageGroup; Property aspects : TProductTypeaspectsArray Index 48 Read Faspects Write Setaspects; Property availability : String Index 56 Read Favailability Write Setavailability; Property availabilityDate : String Index 64 Read FavailabilityDate Write SetavailabilityDate; Property brand : String Index 72 Read Fbrand Write Setbrand; Property channel : String Index 80 Read Fchannel Write Setchannel; Property color : String Index 88 Read Fcolor Write Setcolor; Property condition : String Index 96 Read Fcondition Write Setcondition; Property contentLanguage : String Index 104 Read FcontentLanguage Write SetcontentLanguage; Property customAttributes : TProductTypecustomAttributesArray Index 112 Read FcustomAttributes Write SetcustomAttributes; Property customGroups : TProductTypecustomGroupsArray Index 120 Read FcustomGroups Write SetcustomGroups; Property customLabel0 : String Index 128 Read FcustomLabel0 Write SetcustomLabel0; Property customLabel1 : String Index 136 Read FcustomLabel1 Write SetcustomLabel1; Property customLabel2 : String Index 144 Read FcustomLabel2 Write SetcustomLabel2; Property customLabel3 : String Index 152 Read FcustomLabel3 Write SetcustomLabel3; Property customLabel4 : String Index 160 Read FcustomLabel4 Write SetcustomLabel4; Property description : String Index 168 Read Fdescription Write Setdescription; Property destinations : TProductTypedestinationsArray Index 176 Read Fdestinations Write Setdestinations; Property displayAdsId : String Index 184 Read FdisplayAdsId Write SetdisplayAdsId; Property displayAdsLink : String Index 192 Read FdisplayAdsLink Write SetdisplayAdsLink; Property displayAdsSimilarIds : TStringArray Index 200 Read FdisplayAdsSimilarIds Write SetdisplayAdsSimilarIds; Property displayAdsTitle : String Index 208 Read FdisplayAdsTitle Write SetdisplayAdsTitle; Property displayAdsValue : double Index 216 Read FdisplayAdsValue Write SetdisplayAdsValue; Property energyEfficiencyClass : String Index 224 Read FenergyEfficiencyClass Write SetenergyEfficiencyClass; Property expirationDate : String Index 232 Read FexpirationDate Write SetexpirationDate; Property gender : String Index 240 Read Fgender Write Setgender; Property googleProductCategory : String Index 248 Read FgoogleProductCategory Write SetgoogleProductCategory; Property gtin : String Index 256 Read Fgtin Write Setgtin; Property id : String Index 264 Read Fid Write Setid; Property identifierExists : boolean Index 272 Read FidentifierExists Write SetidentifierExists; Property imageLink : String Index 280 Read FimageLink Write SetimageLink; Property installment : TInstallment Index 288 Read Finstallment Write Setinstallment; Property isBundle : boolean Index 296 Read FisBundle Write SetisBundle; Property itemGroupId : String Index 304 Read FitemGroupId Write SetitemGroupId; Property kind : String Index 312 Read Fkind Write Setkind; Property link : String Index 320 Read Flink Write Setlink; Property loyaltyPoints : TLoyaltyPoints Index 328 Read FloyaltyPoints Write SetloyaltyPoints; Property material : String Index 336 Read Fmaterial Write Setmaterial; Property mobileLink : String Index 344 Read FmobileLink Write SetmobileLink; Property mpn : String Index 352 Read Fmpn Write Setmpn; Property multipack : String Index 360 Read Fmultipack Write Setmultipack; Property offerId : String Index 368 Read FofferId Write SetofferId; Property onlineOnly : boolean Index 376 Read FonlineOnly Write SetonlineOnly; Property pattern : String Index 384 Read Fpattern Write Setpattern; Property price : TPrice Index 392 Read Fprice Write Setprice; Property productType : String Index 400 Read FproductType Write SetproductType; Property promotionIds : TStringArray Index 408 Read FpromotionIds Write SetpromotionIds; Property salePrice : TPrice Index 416 Read FsalePrice Write SetsalePrice; Property salePriceEffectiveDate : String Index 424 Read FsalePriceEffectiveDate Write SetsalePriceEffectiveDate; Property sellOnGoogleQuantity : String Index 432 Read FsellOnGoogleQuantity Write SetsellOnGoogleQuantity; Property shipping : TProductTypeshippingArray Index 440 Read Fshipping Write Setshipping; Property shippingHeight : TProductShippingDimension Index 448 Read FshippingHeight Write SetshippingHeight; Property shippingLabel : String Index 456 Read FshippingLabel Write SetshippingLabel; Property shippingLength : TProductShippingDimension Index 464 Read FshippingLength Write SetshippingLength; Property shippingWeight : TProductShippingWeight Index 472 Read FshippingWeight Write SetshippingWeight; Property shippingWidth : TProductShippingDimension Index 480 Read FshippingWidth Write SetshippingWidth; Property sizeSystem : String Index 488 Read FsizeSystem Write SetsizeSystem; Property sizeType : String Index 496 Read FsizeType Write SetsizeType; Property sizes : TStringArray Index 504 Read Fsizes Write Setsizes; Property targetCountry : String Index 512 Read FtargetCountry Write SettargetCountry; Property taxes : TProductTypetaxesArray Index 520 Read Ftaxes Write Settaxes; Property title : String Index 528 Read Ftitle Write Settitle; Property unitPricingBaseMeasure : TProductUnitPricingBaseMeasure Index 536 Read FunitPricingBaseMeasure Write SetunitPricingBaseMeasure; Property unitPricingMeasure : TProductUnitPricingMeasure Index 544 Read FunitPricingMeasure Write SetunitPricingMeasure; Property validatedDestinations : TStringArray Index 552 Read FvalidatedDestinations Write SetvalidatedDestinations; Property warnings : TProductTypewarningsArray Index 560 Read Fwarnings Write Setwarnings; end; TProductClass = Class of TProduct; { -------------------------------------------------------------------- TProductAspect --------------------------------------------------------------------} TProductAspect = Class(TGoogleBaseObject) Private FaspectName : String; FdestinationName : String; Fintention : String; Protected //Property setters Procedure SetaspectName(AIndex : Integer; const AValue : String); virtual; Procedure SetdestinationName(AIndex : Integer; const AValue : String); virtual; Procedure Setintention(AIndex : Integer; const AValue : String); virtual; Public Published Property aspectName : String Index 0 Read FaspectName Write SetaspectName; Property destinationName : String Index 8 Read FdestinationName Write SetdestinationName; Property intention : String Index 16 Read Fintention Write Setintention; end; TProductAspectClass = Class of TProductAspect; { -------------------------------------------------------------------- TProductCustomAttribute --------------------------------------------------------------------} TProductCustomAttribute = Class(TGoogleBaseObject) Private Fname : String; F_type : String; F_unit : String; Fvalue : String; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure Setname(AIndex : Integer; const AValue : String); virtual; Procedure Set_type(AIndex : Integer; const AValue : String); virtual; Procedure Set_unit(AIndex : Integer; const AValue : String); virtual; Procedure Setvalue(AIndex : Integer; const AValue : String); virtual; Public Published Property name : String Index 0 Read Fname Write Setname; Property _type : String Index 8 Read F_type Write Set_type; Property _unit : String Index 16 Read F_unit Write Set_unit; Property value : String Index 24 Read Fvalue Write Setvalue; end; TProductCustomAttributeClass = Class of TProductCustomAttribute; { -------------------------------------------------------------------- TProductCustomGroup --------------------------------------------------------------------} TProductCustomGroup = Class(TGoogleBaseObject) Private Fattributes : TProductCustomGroupTypeattributesArray; Fname : String; Protected //Property setters Procedure Setattributes(AIndex : Integer; const AValue : TProductCustomGroupTypeattributesArray); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property attributes : TProductCustomGroupTypeattributesArray Index 0 Read Fattributes Write Setattributes; Property name : String Index 8 Read Fname Write Setname; end; TProductCustomGroupClass = Class of TProductCustomGroup; { -------------------------------------------------------------------- TProductDestination --------------------------------------------------------------------} TProductDestination = Class(TGoogleBaseObject) Private FdestinationName : String; Fintention : String; Protected //Property setters Procedure SetdestinationName(AIndex : Integer; const AValue : String); virtual; Procedure Setintention(AIndex : Integer; const AValue : String); virtual; Public Published Property destinationName : String Index 0 Read FdestinationName Write SetdestinationName; Property intention : String Index 8 Read Fintention Write Setintention; end; TProductDestinationClass = Class of TProductDestination; { -------------------------------------------------------------------- TProductShipping --------------------------------------------------------------------} TProductShipping = Class(TGoogleBaseObject) Private Fcountry : String; FlocationGroupName : String; FlocationId : String; FpostalCode : String; Fprice : TPrice; Fregion : String; Fservice : String; Protected //Property setters Procedure Setcountry(AIndex : Integer; const AValue : String); virtual; Procedure SetlocationGroupName(AIndex : Integer; const AValue : String); virtual; Procedure SetlocationId(AIndex : Integer; const AValue : String); virtual; Procedure SetpostalCode(AIndex : Integer; const AValue : String); virtual; Procedure Setprice(AIndex : Integer; const AValue : TPrice); virtual; Procedure Setregion(AIndex : Integer; const AValue : String); virtual; Procedure Setservice(AIndex : Integer; const AValue : String); virtual; Public Published Property country : String Index 0 Read Fcountry Write Setcountry; Property locationGroupName : String Index 8 Read FlocationGroupName Write SetlocationGroupName; Property locationId : String Index 16 Read FlocationId Write SetlocationId; Property postalCode : String Index 24 Read FpostalCode Write SetpostalCode; Property price : TPrice Index 32 Read Fprice Write Setprice; Property region : String Index 40 Read Fregion Write Setregion; Property service : String Index 48 Read Fservice Write Setservice; end; TProductShippingClass = Class of TProductShipping; { -------------------------------------------------------------------- TProductShippingDimension --------------------------------------------------------------------} TProductShippingDimension = Class(TGoogleBaseObject) Private F_unit : String; Fvalue : double; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure Set_unit(AIndex : Integer; const AValue : String); virtual; Procedure Setvalue(AIndex : Integer; const AValue : double); virtual; Public Published Property _unit : String Index 0 Read F_unit Write Set_unit; Property value : double Index 8 Read Fvalue Write Setvalue; end; TProductShippingDimensionClass = Class of TProductShippingDimension; { -------------------------------------------------------------------- TProductShippingWeight --------------------------------------------------------------------} TProductShippingWeight = Class(TGoogleBaseObject) Private F_unit : String; Fvalue : double; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure Set_unit(AIndex : Integer; const AValue : String); virtual; Procedure Setvalue(AIndex : Integer; const AValue : double); virtual; Public Published Property _unit : String Index 0 Read F_unit Write Set_unit; Property value : double Index 8 Read Fvalue Write Setvalue; end; TProductShippingWeightClass = Class of TProductShippingWeight; { -------------------------------------------------------------------- TProductStatus --------------------------------------------------------------------} TProductStatus = Class(TGoogleBaseObject) Private FcreationDate : String; FdataQualityIssues : TProductStatusTypedataQualityIssuesArray; FdestinationStatuses : TProductStatusTypedestinationStatusesArray; FgoogleExpirationDate : String; Fkind : String; FlastUpdateDate : String; Flink : String; FproductId : String; Ftitle : String; Protected //Property setters Procedure SetcreationDate(AIndex : Integer; const AValue : String); virtual; Procedure SetdataQualityIssues(AIndex : Integer; const AValue : TProductStatusTypedataQualityIssuesArray); virtual; Procedure SetdestinationStatuses(AIndex : Integer; const AValue : TProductStatusTypedestinationStatusesArray); virtual; Procedure SetgoogleExpirationDate(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetlastUpdateDate(AIndex : Integer; const AValue : String); virtual; Procedure Setlink(AIndex : Integer; const AValue : String); virtual; Procedure SetproductId(AIndex : Integer; const AValue : String); virtual; Procedure Settitle(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property creationDate : String Index 0 Read FcreationDate Write SetcreationDate; Property dataQualityIssues : TProductStatusTypedataQualityIssuesArray Index 8 Read FdataQualityIssues Write SetdataQualityIssues; Property destinationStatuses : TProductStatusTypedestinationStatusesArray Index 16 Read FdestinationStatuses Write SetdestinationStatuses; Property googleExpirationDate : String Index 24 Read FgoogleExpirationDate Write SetgoogleExpirationDate; Property kind : String Index 32 Read Fkind Write Setkind; Property lastUpdateDate : String Index 40 Read FlastUpdateDate Write SetlastUpdateDate; Property link : String Index 48 Read Flink Write Setlink; Property productId : String Index 56 Read FproductId Write SetproductId; Property title : String Index 64 Read Ftitle Write Settitle; end; TProductStatusClass = Class of TProductStatus; { -------------------------------------------------------------------- TProductStatusDataQualityIssue --------------------------------------------------------------------} TProductStatusDataQualityIssue = Class(TGoogleBaseObject) Private Fdetail : String; FfetchStatus : String; Fid : String; Flocation : String; Fseverity : String; Ftimestamp : String; FvalueOnLandingPage : String; FvalueProvided : String; Protected //Property setters Procedure Setdetail(AIndex : Integer; const AValue : String); virtual; Procedure SetfetchStatus(AIndex : Integer; const AValue : String); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure Setlocation(AIndex : Integer; const AValue : String); virtual; Procedure Setseverity(AIndex : Integer; const AValue : String); virtual; Procedure Settimestamp(AIndex : Integer; const AValue : String); virtual; Procedure SetvalueOnLandingPage(AIndex : Integer; const AValue : String); virtual; Procedure SetvalueProvided(AIndex : Integer; const AValue : String); virtual; Public Published Property detail : String Index 0 Read Fdetail Write Setdetail; Property fetchStatus : String Index 8 Read FfetchStatus Write SetfetchStatus; Property id : String Index 16 Read Fid Write Setid; Property location : String Index 24 Read Flocation Write Setlocation; Property severity : String Index 32 Read Fseverity Write Setseverity; Property timestamp : String Index 40 Read Ftimestamp Write Settimestamp; Property valueOnLandingPage : String Index 48 Read FvalueOnLandingPage Write SetvalueOnLandingPage; Property valueProvided : String Index 56 Read FvalueProvided Write SetvalueProvided; end; TProductStatusDataQualityIssueClass = Class of TProductStatusDataQualityIssue; { -------------------------------------------------------------------- TProductStatusDestinationStatus --------------------------------------------------------------------} TProductStatusDestinationStatus = Class(TGoogleBaseObject) Private FapprovalStatus : String; Fdestination : String; Fintention : String; Protected //Property setters Procedure SetapprovalStatus(AIndex : Integer; const AValue : String); virtual; Procedure Setdestination(AIndex : Integer; const AValue : String); virtual; Procedure Setintention(AIndex : Integer; const AValue : String); virtual; Public Published Property approvalStatus : String Index 0 Read FapprovalStatus Write SetapprovalStatus; Property destination : String Index 8 Read Fdestination Write Setdestination; Property intention : String Index 16 Read Fintention Write Setintention; end; TProductStatusDestinationStatusClass = Class of TProductStatusDestinationStatus; { -------------------------------------------------------------------- TProductTax --------------------------------------------------------------------} TProductTax = Class(TGoogleBaseObject) Private Fcountry : String; FlocationId : String; FpostalCode : String; Frate : double; Fregion : String; FtaxShip : boolean; Protected //Property setters Procedure Setcountry(AIndex : Integer; const AValue : String); virtual; Procedure SetlocationId(AIndex : Integer; const AValue : String); virtual; Procedure SetpostalCode(AIndex : Integer; const AValue : String); virtual; Procedure Setrate(AIndex : Integer; const AValue : double); virtual; Procedure Setregion(AIndex : Integer; const AValue : String); virtual; Procedure SettaxShip(AIndex : Integer; const AValue : boolean); virtual; Public Published Property country : String Index 0 Read Fcountry Write Setcountry; Property locationId : String Index 8 Read FlocationId Write SetlocationId; Property postalCode : String Index 16 Read FpostalCode Write SetpostalCode; Property rate : double Index 24 Read Frate Write Setrate; Property region : String Index 32 Read Fregion Write Setregion; Property taxShip : boolean Index 40 Read FtaxShip Write SettaxShip; end; TProductTaxClass = Class of TProductTax; { -------------------------------------------------------------------- TProductUnitPricingBaseMeasure --------------------------------------------------------------------} TProductUnitPricingBaseMeasure = Class(TGoogleBaseObject) Private F_unit : String; Fvalue : String; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure Set_unit(AIndex : Integer; const AValue : String); virtual; Procedure Setvalue(AIndex : Integer; const AValue : String); virtual; Public Published Property _unit : String Index 0 Read F_unit Write Set_unit; Property value : String Index 8 Read Fvalue Write Setvalue; end; TProductUnitPricingBaseMeasureClass = Class of TProductUnitPricingBaseMeasure; { -------------------------------------------------------------------- TProductUnitPricingMeasure --------------------------------------------------------------------} TProductUnitPricingMeasure = Class(TGoogleBaseObject) Private F_unit : String; Fvalue : double; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure Set_unit(AIndex : Integer; const AValue : String); virtual; Procedure Setvalue(AIndex : Integer; const AValue : double); virtual; Public Published Property _unit : String Index 0 Read F_unit Write Set_unit; Property value : double Index 8 Read Fvalue Write Setvalue; end; TProductUnitPricingMeasureClass = Class of TProductUnitPricingMeasure; { -------------------------------------------------------------------- TProductsCustomBatchRequest --------------------------------------------------------------------} TProductsCustomBatchRequest = Class(TGoogleBaseObject) Private Fentries : TProductsCustomBatchRequestTypeentriesArray; Protected //Property setters Procedure Setentries(AIndex : Integer; const AValue : TProductsCustomBatchRequestTypeentriesArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property entries : TProductsCustomBatchRequestTypeentriesArray Index 0 Read Fentries Write Setentries; end; TProductsCustomBatchRequestClass = Class of TProductsCustomBatchRequest; { -------------------------------------------------------------------- TProductsCustomBatchRequestEntry --------------------------------------------------------------------} TProductsCustomBatchRequestEntry = Class(TGoogleBaseObject) Private FbatchId : integer; FmerchantId : String; Fmethod : String; Fproduct : TProduct; FproductId : String; Protected //Property setters Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual; Procedure SetmerchantId(AIndex : Integer; const AValue : String); virtual; Procedure Setmethod(AIndex : Integer; const AValue : String); virtual; Procedure Setproduct(AIndex : Integer; const AValue : TProduct); virtual; Procedure SetproductId(AIndex : Integer; const AValue : String); virtual; Public Published Property batchId : integer Index 0 Read FbatchId Write SetbatchId; Property merchantId : String Index 8 Read FmerchantId Write SetmerchantId; Property method : String Index 16 Read Fmethod Write Setmethod; Property product : TProduct Index 24 Read Fproduct Write Setproduct; Property productId : String Index 32 Read FproductId Write SetproductId; end; TProductsCustomBatchRequestEntryClass = Class of TProductsCustomBatchRequestEntry; { -------------------------------------------------------------------- TProductsCustomBatchResponse --------------------------------------------------------------------} TProductsCustomBatchResponse = Class(TGoogleBaseObject) Private Fentries : TProductsCustomBatchResponseTypeentriesArray; Fkind : String; Protected //Property setters Procedure Setentries(AIndex : Integer; const AValue : TProductsCustomBatchResponseTypeentriesArray); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property entries : TProductsCustomBatchResponseTypeentriesArray Index 0 Read Fentries Write Setentries; Property kind : String Index 8 Read Fkind Write Setkind; end; TProductsCustomBatchResponseClass = Class of TProductsCustomBatchResponse; { -------------------------------------------------------------------- TProductsCustomBatchResponseEntry --------------------------------------------------------------------} TProductsCustomBatchResponseEntry = Class(TGoogleBaseObject) Private FbatchId : integer; Ferrors : TErrors; Fkind : String; Fproduct : TProduct; Protected //Property setters Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual; Procedure Seterrors(AIndex : Integer; const AValue : TErrors); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setproduct(AIndex : Integer; const AValue : TProduct); virtual; Public Published Property batchId : integer Index 0 Read FbatchId Write SetbatchId; Property errors : TErrors Index 8 Read Ferrors Write Seterrors; Property kind : String Index 16 Read Fkind Write Setkind; Property product : TProduct Index 24 Read Fproduct Write Setproduct; end; TProductsCustomBatchResponseEntryClass = Class of TProductsCustomBatchResponseEntry; { -------------------------------------------------------------------- TProductsListResponse --------------------------------------------------------------------} TProductsListResponse = Class(TGoogleBaseObject) Private Fkind : String; FnextPageToken : String; Fresources : TProductsListResponseTyperesourcesArray; Protected //Property setters Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual; Procedure Setresources(AIndex : Integer; const AValue : TProductsListResponseTyperesourcesArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property kind : String Index 0 Read Fkind Write Setkind; Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken; Property resources : TProductsListResponseTyperesourcesArray Index 16 Read Fresources Write Setresources; end; TProductsListResponseClass = Class of TProductsListResponse; { -------------------------------------------------------------------- TProductstatusesCustomBatchRequest --------------------------------------------------------------------} TProductstatusesCustomBatchRequest = Class(TGoogleBaseObject) Private Fentries : TProductstatusesCustomBatchRequestTypeentriesArray; Protected //Property setters Procedure Setentries(AIndex : Integer; const AValue : TProductstatusesCustomBatchRequestTypeentriesArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property entries : TProductstatusesCustomBatchRequestTypeentriesArray Index 0 Read Fentries Write Setentries; end; TProductstatusesCustomBatchRequestClass = Class of TProductstatusesCustomBatchRequest; { -------------------------------------------------------------------- TProductstatusesCustomBatchRequestEntry --------------------------------------------------------------------} TProductstatusesCustomBatchRequestEntry = Class(TGoogleBaseObject) Private FbatchId : integer; FmerchantId : String; Fmethod : String; FproductId : String; Protected //Property setters Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual; Procedure SetmerchantId(AIndex : Integer; const AValue : String); virtual; Procedure Setmethod(AIndex : Integer; const AValue : String); virtual; Procedure SetproductId(AIndex : Integer; const AValue : String); virtual; Public Published Property batchId : integer Index 0 Read FbatchId Write SetbatchId; Property merchantId : String Index 8 Read FmerchantId Write SetmerchantId; Property method : String Index 16 Read Fmethod Write Setmethod; Property productId : String Index 24 Read FproductId Write SetproductId; end; TProductstatusesCustomBatchRequestEntryClass = Class of TProductstatusesCustomBatchRequestEntry; { -------------------------------------------------------------------- TProductstatusesCustomBatchResponse --------------------------------------------------------------------} TProductstatusesCustomBatchResponse = Class(TGoogleBaseObject) Private Fentries : TProductstatusesCustomBatchResponseTypeentriesArray; Fkind : String; Protected //Property setters Procedure Setentries(AIndex : Integer; const AValue : TProductstatusesCustomBatchResponseTypeentriesArray); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property entries : TProductstatusesCustomBatchResponseTypeentriesArray Index 0 Read Fentries Write Setentries; Property kind : String Index 8 Read Fkind Write Setkind; end; TProductstatusesCustomBatchResponseClass = Class of TProductstatusesCustomBatchResponse; { -------------------------------------------------------------------- TProductstatusesCustomBatchResponseEntry --------------------------------------------------------------------} TProductstatusesCustomBatchResponseEntry = Class(TGoogleBaseObject) Private FbatchId : integer; Ferrors : TErrors; Fkind : String; FproductStatus : TProductStatus; Protected //Property setters Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual; Procedure Seterrors(AIndex : Integer; const AValue : TErrors); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetproductStatus(AIndex : Integer; const AValue : TProductStatus); virtual; Public Published Property batchId : integer Index 0 Read FbatchId Write SetbatchId; Property errors : TErrors Index 8 Read Ferrors Write Seterrors; Property kind : String Index 16 Read Fkind Write Setkind; Property productStatus : TProductStatus Index 24 Read FproductStatus Write SetproductStatus; end; TProductstatusesCustomBatchResponseEntryClass = Class of TProductstatusesCustomBatchResponseEntry; { -------------------------------------------------------------------- TProductstatusesListResponse --------------------------------------------------------------------} TProductstatusesListResponse = Class(TGoogleBaseObject) Private Fkind : String; FnextPageToken : String; Fresources : TProductstatusesListResponseTyperesourcesArray; Protected //Property setters Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual; Procedure Setresources(AIndex : Integer; const AValue : TProductstatusesListResponseTyperesourcesArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property kind : String Index 0 Read Fkind Write Setkind; Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken; Property resources : TProductstatusesListResponseTyperesourcesArray Index 16 Read Fresources Write Setresources; end; TProductstatusesListResponseClass = Class of TProductstatusesListResponse; { -------------------------------------------------------------------- TTestOrder --------------------------------------------------------------------} TTestOrder = Class(TGoogleBaseObject) Private Fcustomer : TTestOrderCustomer; Fkind : String; FlineItems : TTestOrderTypelineItemsArray; FpaymentMethod : TTestOrderPaymentMethod; FpredefinedDeliveryAddress : String; Fpromotions : TTestOrderTypepromotionsArray; FshippingCost : TPrice; FshippingCostTax : TPrice; FshippingOption : String; Protected //Property setters Procedure Setcustomer(AIndex : Integer; const AValue : TTestOrderCustomer); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetlineItems(AIndex : Integer; const AValue : TTestOrderTypelineItemsArray); virtual; Procedure SetpaymentMethod(AIndex : Integer; const AValue : TTestOrderPaymentMethod); virtual; Procedure SetpredefinedDeliveryAddress(AIndex : Integer; const AValue : String); virtual; Procedure Setpromotions(AIndex : Integer; const AValue : TTestOrderTypepromotionsArray); virtual; Procedure SetshippingCost(AIndex : Integer; const AValue : TPrice); virtual; Procedure SetshippingCostTax(AIndex : Integer; const AValue : TPrice); virtual; Procedure SetshippingOption(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property customer : TTestOrderCustomer Index 0 Read Fcustomer Write Setcustomer; Property kind : String Index 8 Read Fkind Write Setkind; Property lineItems : TTestOrderTypelineItemsArray Index 16 Read FlineItems Write SetlineItems; Property paymentMethod : TTestOrderPaymentMethod Index 24 Read FpaymentMethod Write SetpaymentMethod; Property predefinedDeliveryAddress : String Index 32 Read FpredefinedDeliveryAddress Write SetpredefinedDeliveryAddress; Property promotions : TTestOrderTypepromotionsArray Index 40 Read Fpromotions Write Setpromotions; Property shippingCost : TPrice Index 48 Read FshippingCost Write SetshippingCost; Property shippingCostTax : TPrice Index 56 Read FshippingCostTax Write SetshippingCostTax; Property shippingOption : String Index 64 Read FshippingOption Write SetshippingOption; end; TTestOrderClass = Class of TTestOrder; { -------------------------------------------------------------------- TTestOrderCustomer --------------------------------------------------------------------} TTestOrderCustomer = Class(TGoogleBaseObject) Private Femail : String; FexplicitMarketingPreference : boolean; FfullName : String; Protected //Property setters Procedure Setemail(AIndex : Integer; const AValue : String); virtual; Procedure SetexplicitMarketingPreference(AIndex : Integer; const AValue : boolean); virtual; Procedure SetfullName(AIndex : Integer; const AValue : String); virtual; Public Published Property email : String Index 0 Read Femail Write Setemail; Property explicitMarketingPreference : boolean Index 8 Read FexplicitMarketingPreference Write SetexplicitMarketingPreference; Property fullName : String Index 16 Read FfullName Write SetfullName; end; TTestOrderCustomerClass = Class of TTestOrderCustomer; { -------------------------------------------------------------------- TTestOrderLineItem --------------------------------------------------------------------} TTestOrderLineItem = Class(TGoogleBaseObject) Private Fproduct : TTestOrderLineItemProduct; FquantityOrdered : integer; FreturnInfo : TOrderLineItemReturnInfo; FshippingDetails : TOrderLineItemShippingDetails; FunitTax : TPrice; Protected //Property setters Procedure Setproduct(AIndex : Integer; const AValue : TTestOrderLineItemProduct); virtual; Procedure SetquantityOrdered(AIndex : Integer; const AValue : integer); virtual; Procedure SetreturnInfo(AIndex : Integer; const AValue : TOrderLineItemReturnInfo); virtual; Procedure SetshippingDetails(AIndex : Integer; const AValue : TOrderLineItemShippingDetails); virtual; Procedure SetunitTax(AIndex : Integer; const AValue : TPrice); virtual; Public Published Property product : TTestOrderLineItemProduct Index 0 Read Fproduct Write Setproduct; Property quantityOrdered : integer Index 8 Read FquantityOrdered Write SetquantityOrdered; Property returnInfo : TOrderLineItemReturnInfo Index 16 Read FreturnInfo Write SetreturnInfo; Property shippingDetails : TOrderLineItemShippingDetails Index 24 Read FshippingDetails Write SetshippingDetails; Property unitTax : TPrice Index 32 Read FunitTax Write SetunitTax; end; TTestOrderLineItemClass = Class of TTestOrderLineItem; { -------------------------------------------------------------------- TTestOrderLineItemProduct --------------------------------------------------------------------} TTestOrderLineItemProduct = Class(TGoogleBaseObject) Private Fbrand : String; Fchannel : String; Fcondition : String; FcontentLanguage : String; Fgtin : String; FimageLink : String; FitemGroupId : String; Fmpn : String; FofferId : String; Fprice : TPrice; FtargetCountry : String; Ftitle : String; FvariantAttributes : TTestOrderLineItemProductTypevariantAttributesArray; Protected //Property setters Procedure Setbrand(AIndex : Integer; const AValue : String); virtual; Procedure Setchannel(AIndex : Integer; const AValue : String); virtual; Procedure Setcondition(AIndex : Integer; const AValue : String); virtual; Procedure SetcontentLanguage(AIndex : Integer; const AValue : String); virtual; Procedure Setgtin(AIndex : Integer; const AValue : String); virtual; Procedure SetimageLink(AIndex : Integer; const AValue : String); virtual; Procedure SetitemGroupId(AIndex : Integer; const AValue : String); virtual; Procedure Setmpn(AIndex : Integer; const AValue : String); virtual; Procedure SetofferId(AIndex : Integer; const AValue : String); virtual; Procedure Setprice(AIndex : Integer; const AValue : TPrice); virtual; Procedure SettargetCountry(AIndex : Integer; const AValue : String); virtual; Procedure Settitle(AIndex : Integer; const AValue : String); virtual; Procedure SetvariantAttributes(AIndex : Integer; const AValue : TTestOrderLineItemProductTypevariantAttributesArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property brand : String Index 0 Read Fbrand Write Setbrand; Property channel : String Index 8 Read Fchannel Write Setchannel; Property condition : String Index 16 Read Fcondition Write Setcondition; Property contentLanguage : String Index 24 Read FcontentLanguage Write SetcontentLanguage; Property gtin : String Index 32 Read Fgtin Write Setgtin; Property imageLink : String Index 40 Read FimageLink Write SetimageLink; Property itemGroupId : String Index 48 Read FitemGroupId Write SetitemGroupId; Property mpn : String Index 56 Read Fmpn Write Setmpn; Property offerId : String Index 64 Read FofferId Write SetofferId; Property price : TPrice Index 72 Read Fprice Write Setprice; Property targetCountry : String Index 80 Read FtargetCountry Write SettargetCountry; Property title : String Index 88 Read Ftitle Write Settitle; Property variantAttributes : TTestOrderLineItemProductTypevariantAttributesArray Index 96 Read FvariantAttributes Write SetvariantAttributes; end; TTestOrderLineItemProductClass = Class of TTestOrderLineItemProduct; { -------------------------------------------------------------------- TTestOrderPaymentMethod --------------------------------------------------------------------} TTestOrderPaymentMethod = Class(TGoogleBaseObject) Private FexpirationMonth : integer; FexpirationYear : integer; FlastFourDigits : String; FpredefinedBillingAddress : String; F_type : String; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure SetexpirationMonth(AIndex : Integer; const AValue : integer); virtual; Procedure SetexpirationYear(AIndex : Integer; const AValue : integer); virtual; Procedure SetlastFourDigits(AIndex : Integer; const AValue : String); virtual; Procedure SetpredefinedBillingAddress(AIndex : Integer; const AValue : String); virtual; Procedure Set_type(AIndex : Integer; const AValue : String); virtual; Public Published Property expirationMonth : integer Index 0 Read FexpirationMonth Write SetexpirationMonth; Property expirationYear : integer Index 8 Read FexpirationYear Write SetexpirationYear; Property lastFourDigits : String Index 16 Read FlastFourDigits Write SetlastFourDigits; Property predefinedBillingAddress : String Index 24 Read FpredefinedBillingAddress Write SetpredefinedBillingAddress; Property _type : String Index 32 Read F_type Write Set_type; end; TTestOrderPaymentMethodClass = Class of TTestOrderPaymentMethod; { -------------------------------------------------------------------- TWeight --------------------------------------------------------------------} TWeight = Class(TGoogleBaseObject) Private F_unit : String; Fvalue : String; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure Set_unit(AIndex : Integer; const AValue : String); virtual; Procedure Setvalue(AIndex : Integer; const AValue : String); virtual; Public Published Property _unit : String Index 0 Read F_unit Write Set_unit; Property value : String Index 8 Read Fvalue Write Setvalue; end; TWeightClass = Class of TWeight; { -------------------------------------------------------------------- TAccountsResource --------------------------------------------------------------------} //Optional query Options for TAccountsResource, method Custombatch TAccountsCustombatchOptions = Record dryRun : boolean; end; //Optional query Options for TAccountsResource, method Delete TAccountsDeleteOptions = Record dryRun : boolean; end; //Optional query Options for TAccountsResource, method Insert TAccountsInsertOptions = Record dryRun : boolean; end; //Optional query Options for TAccountsResource, method List TAccountsListOptions = Record maxResults : integer; pageToken : String; end; //Optional query Options for TAccountsResource, method Patch TAccountsPatchOptions = Record dryRun : boolean; end; //Optional query Options for TAccountsResource, method Update TAccountsUpdateOptions = Record dryRun : boolean; end; TAccountsResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function Authinfo : TAccountsAuthInfoResponse; Function Custombatch(aAccountsCustomBatchRequest : TAccountsCustomBatchRequest; AQuery : string = '') : TAccountsCustomBatchResponse; Function Custombatch(aAccountsCustomBatchRequest : TAccountsCustomBatchRequest; AQuery : TAccountscustombatchOptions) : TAccountsCustomBatchResponse; Procedure Delete(accountId: string; merchantId: string; AQuery : string = ''); Procedure Delete(accountId: string; merchantId: string; AQuery : TAccountsdeleteOptions); Function Get(accountId: string; merchantId: string) : TAccount; Function Insert(merchantId: string; aAccount : TAccount; AQuery : string = '') : TAccount; Function Insert(merchantId: string; aAccount : TAccount; AQuery : TAccountsinsertOptions) : TAccount; Function List(merchantId: string; AQuery : string = '') : TAccountsListResponse; Function List(merchantId: string; AQuery : TAccountslistOptions) : TAccountsListResponse; Function Patch(accountId: string; merchantId: string; aAccount : TAccount; AQuery : string = '') : TAccount; Function Patch(accountId: string; merchantId: string; aAccount : TAccount; AQuery : TAccountspatchOptions) : TAccount; Function Update(accountId: string; merchantId: string; aAccount : TAccount; AQuery : string = '') : TAccount; Function Update(accountId: string; merchantId: string; aAccount : TAccount; AQuery : TAccountsupdateOptions) : TAccount; end; { -------------------------------------------------------------------- TAccountshippingResource --------------------------------------------------------------------} //Optional query Options for TAccountshippingResource, method Custombatch TAccountshippingCustombatchOptions = Record dryRun : boolean; end; //Optional query Options for TAccountshippingResource, method List TAccountshippingListOptions = Record maxResults : integer; pageToken : String; end; //Optional query Options for TAccountshippingResource, method Patch TAccountshippingPatchOptions = Record dryRun : boolean; end; //Optional query Options for TAccountshippingResource, method Update TAccountshippingUpdateOptions = Record dryRun : boolean; end; TAccountshippingResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function Custombatch(aAccountshippingCustomBatchRequest : TAccountshippingCustomBatchRequest; AQuery : string = '') : TAccountshippingCustomBatchResponse; Function Custombatch(aAccountshippingCustomBatchRequest : TAccountshippingCustomBatchRequest; AQuery : TAccountshippingcustombatchOptions) : TAccountshippingCustomBatchResponse; Function Get(accountId: string; merchantId: string) : TAccountShipping; Function List(merchantId: string; AQuery : string = '') : TAccountshippingListResponse; Function List(merchantId: string; AQuery : TAccountshippinglistOptions) : TAccountshippingListResponse; Function Patch(accountId: string; merchantId: string; aAccountShipping : TAccountShipping; AQuery : string = '') : TAccountShipping; Function Patch(accountId: string; merchantId: string; aAccountShipping : TAccountShipping; AQuery : TAccountshippingpatchOptions) : TAccountShipping; Function Update(accountId: string; merchantId: string; aAccountShipping : TAccountShipping; AQuery : string = '') : TAccountShipping; Function Update(accountId: string; merchantId: string; aAccountShipping : TAccountShipping; AQuery : TAccountshippingupdateOptions) : TAccountShipping; end; { -------------------------------------------------------------------- TAccountstatusesResource --------------------------------------------------------------------} //Optional query Options for TAccountstatusesResource, method List TAccountstatusesListOptions = Record maxResults : integer; pageToken : String; end; TAccountstatusesResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function Custombatch(aAccountstatusesCustomBatchRequest : TAccountstatusesCustomBatchRequest) : TAccountstatusesCustomBatchResponse; Function Get(accountId: string; merchantId: string) : TAccountStatus; Function List(merchantId: string; AQuery : string = '') : TAccountstatusesListResponse; Function List(merchantId: string; AQuery : TAccountstatuseslistOptions) : TAccountstatusesListResponse; end; { -------------------------------------------------------------------- TAccounttaxResource --------------------------------------------------------------------} //Optional query Options for TAccounttaxResource, method Custombatch TAccounttaxCustombatchOptions = Record dryRun : boolean; end; //Optional query Options for TAccounttaxResource, method List TAccounttaxListOptions = Record maxResults : integer; pageToken : String; end; //Optional query Options for TAccounttaxResource, method Patch TAccounttaxPatchOptions = Record dryRun : boolean; end; //Optional query Options for TAccounttaxResource, method Update TAccounttaxUpdateOptions = Record dryRun : boolean; end; TAccounttaxResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function Custombatch(aAccounttaxCustomBatchRequest : TAccounttaxCustomBatchRequest; AQuery : string = '') : TAccounttaxCustomBatchResponse; Function Custombatch(aAccounttaxCustomBatchRequest : TAccounttaxCustomBatchRequest; AQuery : TAccounttaxcustombatchOptions) : TAccounttaxCustomBatchResponse; Function Get(accountId: string; merchantId: string) : TAccountTax; Function List(merchantId: string; AQuery : string = '') : TAccounttaxListResponse; Function List(merchantId: string; AQuery : TAccounttaxlistOptions) : TAccounttaxListResponse; Function Patch(accountId: string; merchantId: string; aAccountTax : TAccountTax; AQuery : string = '') : TAccountTax; Function Patch(accountId: string; merchantId: string; aAccountTax : TAccountTax; AQuery : TAccounttaxpatchOptions) : TAccountTax; Function Update(accountId: string; merchantId: string; aAccountTax : TAccountTax; AQuery : string = '') : TAccountTax; Function Update(accountId: string; merchantId: string; aAccountTax : TAccountTax; AQuery : TAccounttaxupdateOptions) : TAccountTax; end; { -------------------------------------------------------------------- TDatafeedsResource --------------------------------------------------------------------} //Optional query Options for TDatafeedsResource, method Custombatch TDatafeedsCustombatchOptions = Record dryRun : boolean; end; //Optional query Options for TDatafeedsResource, method Delete TDatafeedsDeleteOptions = Record dryRun : boolean; end; //Optional query Options for TDatafeedsResource, method Insert TDatafeedsInsertOptions = Record dryRun : boolean; end; //Optional query Options for TDatafeedsResource, method List TDatafeedsListOptions = Record maxResults : integer; pageToken : String; end; //Optional query Options for TDatafeedsResource, method Patch TDatafeedsPatchOptions = Record dryRun : boolean; end; //Optional query Options for TDatafeedsResource, method Update TDatafeedsUpdateOptions = Record dryRun : boolean; end; TDatafeedsResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function Custombatch(aDatafeedsCustomBatchRequest : TDatafeedsCustomBatchRequest; AQuery : string = '') : TDatafeedsCustomBatchResponse; Function Custombatch(aDatafeedsCustomBatchRequest : TDatafeedsCustomBatchRequest; AQuery : TDatafeedscustombatchOptions) : TDatafeedsCustomBatchResponse; Procedure Delete(datafeedId: string; merchantId: string; AQuery : string = ''); Procedure Delete(datafeedId: string; merchantId: string; AQuery : TDatafeedsdeleteOptions); Function Get(datafeedId: string; merchantId: string) : TDatafeed; Function Insert(merchantId: string; aDatafeed : TDatafeed; AQuery : string = '') : TDatafeed; Function Insert(merchantId: string; aDatafeed : TDatafeed; AQuery : TDatafeedsinsertOptions) : TDatafeed; Function List(merchantId: string; AQuery : string = '') : TDatafeedsListResponse; Function List(merchantId: string; AQuery : TDatafeedslistOptions) : TDatafeedsListResponse; Function Patch(datafeedId: string; merchantId: string; aDatafeed : TDatafeed; AQuery : string = '') : TDatafeed; Function Patch(datafeedId: string; merchantId: string; aDatafeed : TDatafeed; AQuery : TDatafeedspatchOptions) : TDatafeed; Function Update(datafeedId: string; merchantId: string; aDatafeed : TDatafeed; AQuery : string = '') : TDatafeed; Function Update(datafeedId: string; merchantId: string; aDatafeed : TDatafeed; AQuery : TDatafeedsupdateOptions) : TDatafeed; end; { -------------------------------------------------------------------- TDatafeedstatusesResource --------------------------------------------------------------------} //Optional query Options for TDatafeedstatusesResource, method List TDatafeedstatusesListOptions = Record maxResults : integer; pageToken : String; end; TDatafeedstatusesResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function Custombatch(aDatafeedstatusesCustomBatchRequest : TDatafeedstatusesCustomBatchRequest) : TDatafeedstatusesCustomBatchResponse; Function Get(datafeedId: string; merchantId: string) : TDatafeedStatus; Function List(merchantId: string; AQuery : string = '') : TDatafeedstatusesListResponse; Function List(merchantId: string; AQuery : TDatafeedstatuseslistOptions) : TDatafeedstatusesListResponse; end; { -------------------------------------------------------------------- TInventoryResource --------------------------------------------------------------------} //Optional query Options for TInventoryResource, method Custombatch TInventoryCustombatchOptions = Record dryRun : boolean; end; //Optional query Options for TInventoryResource, method Set TInventorySetOptions = Record dryRun : boolean; end; TInventoryResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function Custombatch(aInventoryCustomBatchRequest : TInventoryCustomBatchRequest; AQuery : string = '') : TInventoryCustomBatchResponse; Function Custombatch(aInventoryCustomBatchRequest : TInventoryCustomBatchRequest; AQuery : TInventorycustombatchOptions) : TInventoryCustomBatchResponse; Function _set(merchantId: string; productId: string; storeCode: string; aInventorySetRequest : TInventorySetRequest; AQuery : string = '') : TInventorySetResponse; Function _set(merchantId: string; productId: string; storeCode: string; aInventorySetRequest : TInventorySetRequest; AQuery : TInventorysetOptions) : TInventorySetResponse; end; { -------------------------------------------------------------------- TOrdersResource --------------------------------------------------------------------} //Optional query Options for TOrdersResource, method List TOrdersListOptions = Record acknowledged : boolean; maxResults : integer; orderBy : String; pageToken : String; placedDateEnd : String; placedDateStart : String; statuses : String; end; TOrdersResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function Acknowledge(merchantId: string; orderId: string; aOrdersAcknowledgeRequest : TOrdersAcknowledgeRequest) : TOrdersAcknowledgeResponse; Function Advancetestorder(merchantId: string; orderId: string) : TOrdersAdvanceTestOrderResponse; Function Cancel(merchantId: string; orderId: string; aOrdersCancelRequest : TOrdersCancelRequest) : TOrdersCancelResponse; Function Cancellineitem(merchantId: string; orderId: string; aOrdersCancelLineItemRequest : TOrdersCancelLineItemRequest) : TOrdersCancelLineItemResponse; Function Createtestorder(merchantId: string; aOrdersCreateTestOrderRequest : TOrdersCreateTestOrderRequest) : TOrdersCreateTestOrderResponse; Function Custombatch(aOrdersCustomBatchRequest : TOrdersCustomBatchRequest) : TOrdersCustomBatchResponse; Function Get(merchantId: string; orderId: string) : TOrder; Function Getbymerchantorderid(merchantId: string; merchantOrderId: string) : TOrdersGetByMerchantOrderIdResponse; Function Gettestordertemplate(merchantId: string; templateName: string) : TOrdersGetTestOrderTemplateResponse; Function List(merchantId: string; AQuery : string = '') : TOrdersListResponse; Function List(merchantId: string; AQuery : TOrderslistOptions) : TOrdersListResponse; Function Refund(merchantId: string; orderId: string; aOrdersRefundRequest : TOrdersRefundRequest) : TOrdersRefundResponse; Function Returnlineitem(merchantId: string; orderId: string; aOrdersReturnLineItemRequest : TOrdersReturnLineItemRequest) : TOrdersReturnLineItemResponse; Function Shiplineitems(merchantId: string; orderId: string; aOrdersShipLineItemsRequest : TOrdersShipLineItemsRequest) : TOrdersShipLineItemsResponse; Function Updatemerchantorderid(merchantId: string; orderId: string; aOrdersUpdateMerchantOrderIdRequest : TOrdersUpdateMerchantOrderIdRequest) : TOrdersUpdateMerchantOrderIdResponse; Function Updateshipment(merchantId: string; orderId: string; aOrdersUpdateShipmentRequest : TOrdersUpdateShipmentRequest) : TOrdersUpdateShipmentResponse; end; { -------------------------------------------------------------------- TProductsResource --------------------------------------------------------------------} //Optional query Options for TProductsResource, method Custombatch TProductsCustombatchOptions = Record dryRun : boolean; end; //Optional query Options for TProductsResource, method Delete TProductsDeleteOptions = Record dryRun : boolean; end; //Optional query Options for TProductsResource, method Insert TProductsInsertOptions = Record dryRun : boolean; end; //Optional query Options for TProductsResource, method List TProductsListOptions = Record includeInvalidInsertedItems : boolean; maxResults : integer; pageToken : String; end; TProductsResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function Custombatch(aProductsCustomBatchRequest : TProductsCustomBatchRequest; AQuery : string = '') : TProductsCustomBatchResponse; Function Custombatch(aProductsCustomBatchRequest : TProductsCustomBatchRequest; AQuery : TProductscustombatchOptions) : TProductsCustomBatchResponse; Procedure Delete(merchantId: string; productId: string; AQuery : string = ''); Procedure Delete(merchantId: string; productId: string; AQuery : TProductsdeleteOptions); Function Get(merchantId: string; productId: string) : TProduct; Function Insert(merchantId: string; aProduct : TProduct; AQuery : string = '') : TProduct; Function Insert(merchantId: string; aProduct : TProduct; AQuery : TProductsinsertOptions) : TProduct; Function List(merchantId: string; AQuery : string = '') : TProductsListResponse; Function List(merchantId: string; AQuery : TProductslistOptions) : TProductsListResponse; end; { -------------------------------------------------------------------- TProductstatusesResource --------------------------------------------------------------------} //Optional query Options for TProductstatusesResource, method List TProductstatusesListOptions = Record includeInvalidInsertedItems : boolean; maxResults : integer; pageToken : String; end; TProductstatusesResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function Custombatch(aProductstatusesCustomBatchRequest : TProductstatusesCustomBatchRequest) : TProductstatusesCustomBatchResponse; Function Get(merchantId: string; productId: string) : TProductStatus; Function List(merchantId: string; AQuery : string = '') : TProductstatusesListResponse; Function List(merchantId: string; AQuery : TProductstatuseslistOptions) : TProductstatusesListResponse; end; { -------------------------------------------------------------------- TContentAPI --------------------------------------------------------------------} TContentAPI = Class(TGoogleAPI) Private FAccountsInstance : TAccountsResource; FAccountshippingInstance : TAccountshippingResource; FAccountstatusesInstance : TAccountstatusesResource; FAccounttaxInstance : TAccounttaxResource; FDatafeedsInstance : TDatafeedsResource; FDatafeedstatusesInstance : TDatafeedstatusesResource; FInventoryInstance : TInventoryResource; FOrdersInstance : TOrdersResource; FProductsInstance : TProductsResource; FProductstatusesInstance : TProductstatusesResource; Function GetAccountsInstance : TAccountsResource;virtual; Function GetAccountshippingInstance : TAccountshippingResource;virtual; Function GetAccountstatusesInstance : TAccountstatusesResource;virtual; Function GetAccounttaxInstance : TAccounttaxResource;virtual; Function GetDatafeedsInstance : TDatafeedsResource;virtual; Function GetDatafeedstatusesInstance : TDatafeedstatusesResource;virtual; Function GetInventoryInstance : TInventoryResource;virtual; Function GetOrdersInstance : TOrdersResource;virtual; Function GetProductsInstance : TProductsResource;virtual; Function GetProductstatusesInstance : TProductstatusesResource;virtual; Public //Override class functions with API info Class Function APIName : String; override; Class Function APIVersion : String; override; Class Function APIRevision : String; override; Class Function APIID : String; override; Class Function APITitle : String; override; Class Function APIDescription : String; override; Class Function APIOwnerDomain : String; override; Class Function APIOwnerName : String; override; Class Function APIIcon16 : String; override; Class Function APIIcon32 : String; override; Class Function APIdocumentationLink : String; override; Class Function APIrootUrl : string; override; Class Function APIbasePath : string;override; Class Function APIbaseURL : String;override; Class Function APIProtocol : string;override; Class Function APIservicePath : string;override; Class Function APIbatchPath : String;override; Class Function APIAuthScopes : TScopeInfoArray;override; Class Function APINeedsAuth : Boolean;override; Class Procedure RegisterAPIResources; override; //Add create function for resources Function CreateAccountsResource(AOwner : TComponent) : TAccountsResource;virtual;overload; Function CreateAccountsResource : TAccountsResource;virtual;overload; Function CreateAccountshippingResource(AOwner : TComponent) : TAccountshippingResource;virtual;overload; Function CreateAccountshippingResource : TAccountshippingResource;virtual;overload; Function CreateAccountstatusesResource(AOwner : TComponent) : TAccountstatusesResource;virtual;overload; Function CreateAccountstatusesResource : TAccountstatusesResource;virtual;overload; Function CreateAccounttaxResource(AOwner : TComponent) : TAccounttaxResource;virtual;overload; Function CreateAccounttaxResource : TAccounttaxResource;virtual;overload; Function CreateDatafeedsResource(AOwner : TComponent) : TDatafeedsResource;virtual;overload; Function CreateDatafeedsResource : TDatafeedsResource;virtual;overload; Function CreateDatafeedstatusesResource(AOwner : TComponent) : TDatafeedstatusesResource;virtual;overload; Function CreateDatafeedstatusesResource : TDatafeedstatusesResource;virtual;overload; Function CreateInventoryResource(AOwner : TComponent) : TInventoryResource;virtual;overload; Function CreateInventoryResource : TInventoryResource;virtual;overload; Function CreateOrdersResource(AOwner : TComponent) : TOrdersResource;virtual;overload; Function CreateOrdersResource : TOrdersResource;virtual;overload; Function CreateProductsResource(AOwner : TComponent) : TProductsResource;virtual;overload; Function CreateProductsResource : TProductsResource;virtual;overload; Function CreateProductstatusesResource(AOwner : TComponent) : TProductstatusesResource;virtual;overload; Function CreateProductstatusesResource : TProductstatusesResource;virtual;overload; //Add default on-demand instances for resources Property AccountsResource : TAccountsResource Read GetAccountsInstance; Property AccountshippingResource : TAccountshippingResource Read GetAccountshippingInstance; Property AccountstatusesResource : TAccountstatusesResource Read GetAccountstatusesInstance; Property AccounttaxResource : TAccounttaxResource Read GetAccounttaxInstance; Property DatafeedsResource : TDatafeedsResource Read GetDatafeedsInstance; Property DatafeedstatusesResource : TDatafeedstatusesResource Read GetDatafeedstatusesInstance; Property InventoryResource : TInventoryResource Read GetInventoryInstance; Property OrdersResource : TOrdersResource Read GetOrdersInstance; Property ProductsResource : TProductsResource Read GetProductsInstance; Property ProductstatusesResource : TProductstatusesResource Read GetProductstatusesInstance; end; implementation { -------------------------------------------------------------------- TAccount --------------------------------------------------------------------} Procedure TAccount.SetadultContent(AIndex : Integer; const AValue : boolean); begin If (FadultContent=AValue) then exit; FadultContent:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccount.SetadwordsLinks(AIndex : Integer; const AValue : TAccountTypeadwordsLinksArray); begin If (FadwordsLinks=AValue) then exit; FadwordsLinks:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccount.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccount.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccount.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccount.SetreviewsUrl(AIndex : Integer; const AValue : String); begin If (FreviewsUrl=AValue) then exit; FreviewsUrl:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccount.SetsellerId(AIndex : Integer; const AValue : String); begin If (FsellerId=AValue) then exit; FsellerId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccount.Setusers(AIndex : Integer; const AValue : TAccountTypeusersArray); begin If (Fusers=AValue) then exit; Fusers:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccount.SetwebsiteUrl(AIndex : Integer; const AValue : String); begin If (FwebsiteUrl=AValue) then exit; FwebsiteUrl:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TAccount.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'adwordslinks' : SetLength(FadwordsLinks,ALength); 'users' : SetLength(Fusers,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TAccountAdwordsLink --------------------------------------------------------------------} Procedure TAccountAdwordsLink.SetadwordsId(AIndex : Integer; const AValue : String); begin If (FadwordsId=AValue) then exit; FadwordsId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountAdwordsLink.Setstatus(AIndex : Integer; const AValue : String); begin If (Fstatus=AValue) then exit; Fstatus:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TAccountIdentifier --------------------------------------------------------------------} Procedure TAccountIdentifier.SetaggregatorId(AIndex : Integer; const AValue : String); begin If (FaggregatorId=AValue) then exit; FaggregatorId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountIdentifier.SetmerchantId(AIndex : Integer; const AValue : String); begin If (FmerchantId=AValue) then exit; FmerchantId:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TAccountShipping --------------------------------------------------------------------} Procedure TAccountShipping.SetaccountId(AIndex : Integer; const AValue : String); begin If (FaccountId=AValue) then exit; FaccountId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountShipping.SetcarrierRates(AIndex : Integer; const AValue : TAccountShippingTypecarrierRatesArray); begin If (FcarrierRates=AValue) then exit; FcarrierRates:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountShipping.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountShipping.SetlocationGroups(AIndex : Integer; const AValue : TAccountShippingTypelocationGroupsArray); begin If (FlocationGroups=AValue) then exit; FlocationGroups:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountShipping.SetrateTables(AIndex : Integer; const AValue : TAccountShippingTyperateTablesArray); begin If (FrateTables=AValue) then exit; FrateTables:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountShipping.Setservices(AIndex : Integer; const AValue : TAccountShippingTypeservicesArray); begin If (Fservices=AValue) then exit; Fservices:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TAccountShipping.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'carrierrates' : SetLength(FcarrierRates,ALength); 'locationgroups' : SetLength(FlocationGroups,ALength); 'ratetables' : SetLength(FrateTables,ALength); 'services' : SetLength(Fservices,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TAccountShippingCarrierRate --------------------------------------------------------------------} Procedure TAccountShippingCarrierRate.Setcarrier(AIndex : Integer; const AValue : String); begin If (Fcarrier=AValue) then exit; Fcarrier:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountShippingCarrierRate.SetcarrierService(AIndex : Integer; const AValue : String); begin If (FcarrierService=AValue) then exit; FcarrierService:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountShippingCarrierRate.SetmodifierFlatRate(AIndex : Integer; const AValue : TPrice); begin If (FmodifierFlatRate=AValue) then exit; FmodifierFlatRate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountShippingCarrierRate.SetmodifierPercent(AIndex : Integer; const AValue : String); begin If (FmodifierPercent=AValue) then exit; FmodifierPercent:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountShippingCarrierRate.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountShippingCarrierRate.SetsaleCountry(AIndex : Integer; const AValue : String); begin If (FsaleCountry=AValue) then exit; FsaleCountry:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountShippingCarrierRate.SetshippingOrigin(AIndex : Integer; const AValue : String); begin If (FshippingOrigin=AValue) then exit; FshippingOrigin:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TAccountShippingCondition --------------------------------------------------------------------} Procedure TAccountShippingCondition.SetdeliveryLocationGroup(AIndex : Integer; const AValue : String); begin If (FdeliveryLocationGroup=AValue) then exit; FdeliveryLocationGroup:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountShippingCondition.SetdeliveryLocationId(AIndex : Integer; const AValue : String); begin If (FdeliveryLocationId=AValue) then exit; FdeliveryLocationId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountShippingCondition.SetdeliveryPostalCode(AIndex : Integer; const AValue : String); begin If (FdeliveryPostalCode=AValue) then exit; FdeliveryPostalCode:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountShippingCondition.SetdeliveryPostalCodeRange(AIndex : Integer; const AValue : TAccountShippingPostalCodeRange); begin If (FdeliveryPostalCodeRange=AValue) then exit; FdeliveryPostalCodeRange:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountShippingCondition.SetpriceMax(AIndex : Integer; const AValue : TPrice); begin If (FpriceMax=AValue) then exit; FpriceMax:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountShippingCondition.SetshippingLabel(AIndex : Integer; const AValue : String); begin If (FshippingLabel=AValue) then exit; FshippingLabel:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountShippingCondition.SetweightMax(AIndex : Integer; const AValue : TWeight); begin If (FweightMax=AValue) then exit; FweightMax:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TAccountShippingLocationGroup --------------------------------------------------------------------} Procedure TAccountShippingLocationGroup.Setcountry(AIndex : Integer; const AValue : String); begin If (Fcountry=AValue) then exit; Fcountry:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountShippingLocationGroup.SetlocationIds(AIndex : Integer; const AValue : TStringArray); begin If (FlocationIds=AValue) then exit; FlocationIds:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountShippingLocationGroup.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountShippingLocationGroup.SetpostalCodeRanges(AIndex : Integer; const AValue : TAccountShippingLocationGroupTypepostalCodeRangesArray); begin If (FpostalCodeRanges=AValue) then exit; FpostalCodeRanges:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountShippingLocationGroup.SetpostalCodes(AIndex : Integer; const AValue : TStringArray); begin If (FpostalCodes=AValue) then exit; FpostalCodes:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TAccountShippingLocationGroup.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'locationids' : SetLength(FlocationIds,ALength); 'postalcoderanges' : SetLength(FpostalCodeRanges,ALength); 'postalcodes' : SetLength(FpostalCodes,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TAccountShippingPostalCodeRange --------------------------------------------------------------------} Procedure TAccountShippingPostalCodeRange.Set_end(AIndex : Integer; const AValue : String); begin If (F_end=AValue) then exit; F_end:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountShippingPostalCodeRange.Setstart(AIndex : Integer; const AValue : String); begin If (Fstart=AValue) then exit; Fstart:=AValue; MarkPropertyChanged(AIndex); end; Class Function TAccountShippingPostalCodeRange.ExportPropertyName(Const AName : String) :String; begin Case AName of '_end' : Result:='end'; else Result:=Inherited ExportPropertyName(AName); end; end; { -------------------------------------------------------------------- TAccountShippingRateTable --------------------------------------------------------------------} Procedure TAccountShippingRateTable.Setcontent(AIndex : Integer; const AValue : TAccountShippingRateTableTypecontentArray); begin If (Fcontent=AValue) then exit; Fcontent:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountShippingRateTable.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountShippingRateTable.SetsaleCountry(AIndex : Integer; const AValue : String); begin If (FsaleCountry=AValue) then exit; FsaleCountry:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TAccountShippingRateTable.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'content' : SetLength(Fcontent,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TAccountShippingRateTableCell --------------------------------------------------------------------} Procedure TAccountShippingRateTableCell.Setcondition(AIndex : Integer; const AValue : TAccountShippingCondition); begin If (Fcondition=AValue) then exit; Fcondition:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountShippingRateTableCell.Setrate(AIndex : Integer; const AValue : TPrice); begin If (Frate=AValue) then exit; Frate:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TAccountShippingShippingService --------------------------------------------------------------------} Procedure TAccountShippingShippingService.Setactive(AIndex : Integer; const AValue : boolean); begin If (Factive=AValue) then exit; Factive:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountShippingShippingService.SetcalculationMethod(AIndex : Integer; const AValue : TAccountShippingShippingServiceCalculationMethod); begin If (FcalculationMethod=AValue) then exit; FcalculationMethod:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountShippingShippingService.SetcostRuleTree(AIndex : Integer; const AValue : TAccountShippingShippingServiceCostRule); begin If (FcostRuleTree=AValue) then exit; FcostRuleTree:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountShippingShippingService.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountShippingShippingService.SetsaleCountry(AIndex : Integer; const AValue : String); begin If (FsaleCountry=AValue) then exit; FsaleCountry:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TAccountShippingShippingServiceCalculationMethod --------------------------------------------------------------------} Procedure TAccountShippingShippingServiceCalculationMethod.SetcarrierRate(AIndex : Integer; const AValue : String); begin If (FcarrierRate=AValue) then exit; FcarrierRate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountShippingShippingServiceCalculationMethod.Setexcluded(AIndex : Integer; const AValue : boolean); begin If (Fexcluded=AValue) then exit; Fexcluded:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountShippingShippingServiceCalculationMethod.SetflatRate(AIndex : Integer; const AValue : TPrice); begin If (FflatRate=AValue) then exit; FflatRate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountShippingShippingServiceCalculationMethod.SetpercentageRate(AIndex : Integer; const AValue : String); begin If (FpercentageRate=AValue) then exit; FpercentageRate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountShippingShippingServiceCalculationMethod.SetrateTable(AIndex : Integer; const AValue : String); begin If (FrateTable=AValue) then exit; FrateTable:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TAccountShippingShippingServiceCostRule --------------------------------------------------------------------} Procedure TAccountShippingShippingServiceCostRule.SetcalculationMethod(AIndex : Integer; const AValue : TAccountShippingShippingServiceCalculationMethod); begin If (FcalculationMethod=AValue) then exit; FcalculationMethod:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountShippingShippingServiceCostRule.Setchildren(AIndex : Integer; const AValue : TAccountShippingShippingServiceCostRuleTypechildrenArray); begin If (Fchildren=AValue) then exit; Fchildren:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountShippingShippingServiceCostRule.Setcondition(AIndex : Integer; const AValue : TAccountShippingCondition); begin If (Fcondition=AValue) then exit; Fcondition:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TAccountShippingShippingServiceCostRule.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'children' : SetLength(Fchildren,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TAccountStatus --------------------------------------------------------------------} Procedure TAccountStatus.SetaccountId(AIndex : Integer; const AValue : String); begin If (FaccountId=AValue) then exit; FaccountId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountStatus.SetdataQualityIssues(AIndex : Integer; const AValue : TAccountStatusTypedataQualityIssuesArray); begin If (FdataQualityIssues=AValue) then exit; FdataQualityIssues:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountStatus.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TAccountStatus.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'dataqualityissues' : SetLength(FdataQualityIssues,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TAccountStatusDataQualityIssue --------------------------------------------------------------------} Procedure TAccountStatusDataQualityIssue.Setcountry(AIndex : Integer; const AValue : String); begin If (Fcountry=AValue) then exit; Fcountry:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountStatusDataQualityIssue.SetdisplayedValue(AIndex : Integer; const AValue : String); begin If (FdisplayedValue=AValue) then exit; FdisplayedValue:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountStatusDataQualityIssue.SetexampleItems(AIndex : Integer; const AValue : TAccountStatusDataQualityIssueTypeexampleItemsArray); begin If (FexampleItems=AValue) then exit; FexampleItems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountStatusDataQualityIssue.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountStatusDataQualityIssue.SetlastChecked(AIndex : Integer; const AValue : String); begin If (FlastChecked=AValue) then exit; FlastChecked:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountStatusDataQualityIssue.SetnumItems(AIndex : Integer; const AValue : integer); begin If (FnumItems=AValue) then exit; FnumItems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountStatusDataQualityIssue.Setseverity(AIndex : Integer; const AValue : String); begin If (Fseverity=AValue) then exit; Fseverity:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountStatusDataQualityIssue.SetsubmittedValue(AIndex : Integer; const AValue : String); begin If (FsubmittedValue=AValue) then exit; FsubmittedValue:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TAccountStatusDataQualityIssue.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'exampleitems' : SetLength(FexampleItems,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TAccountStatusExampleItem --------------------------------------------------------------------} Procedure TAccountStatusExampleItem.SetitemId(AIndex : Integer; const AValue : String); begin If (FitemId=AValue) then exit; FitemId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountStatusExampleItem.Setlink(AIndex : Integer; const AValue : String); begin If (Flink=AValue) then exit; Flink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountStatusExampleItem.SetsubmittedValue(AIndex : Integer; const AValue : String); begin If (FsubmittedValue=AValue) then exit; FsubmittedValue:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountStatusExampleItem.Settitle(AIndex : Integer; const AValue : String); begin If (Ftitle=AValue) then exit; Ftitle:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountStatusExampleItem.SetvalueOnLandingPage(AIndex : Integer; const AValue : String); begin If (FvalueOnLandingPage=AValue) then exit; FvalueOnLandingPage:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TAccountTax --------------------------------------------------------------------} Procedure TAccountTax.SetaccountId(AIndex : Integer; const AValue : String); begin If (FaccountId=AValue) then exit; FaccountId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountTax.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountTax.Setrules(AIndex : Integer; const AValue : TAccountTaxTyperulesArray); begin If (Frules=AValue) then exit; Frules:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TAccountTax.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'rules' : SetLength(Frules,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TAccountTaxTaxRule --------------------------------------------------------------------} Procedure TAccountTaxTaxRule.Setcountry(AIndex : Integer; const AValue : String); begin If (Fcountry=AValue) then exit; Fcountry:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountTaxTaxRule.SetlocationId(AIndex : Integer; const AValue : String); begin If (FlocationId=AValue) then exit; FlocationId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountTaxTaxRule.SetratePercent(AIndex : Integer; const AValue : String); begin If (FratePercent=AValue) then exit; FratePercent:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountTaxTaxRule.SetshippingTaxed(AIndex : Integer; const AValue : boolean); begin If (FshippingTaxed=AValue) then exit; FshippingTaxed:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountTaxTaxRule.SetuseGlobalRate(AIndex : Integer; const AValue : boolean); begin If (FuseGlobalRate=AValue) then exit; FuseGlobalRate:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TAccountUser --------------------------------------------------------------------} Procedure TAccountUser.Setadmin(AIndex : Integer; const AValue : boolean); begin If (Fadmin=AValue) then exit; Fadmin:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountUser.SetemailAddress(AIndex : Integer; const AValue : String); begin If (FemailAddress=AValue) then exit; FemailAddress:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TAccountsAuthInfoResponse --------------------------------------------------------------------} Procedure TAccountsAuthInfoResponse.SetaccountIdentifiers(AIndex : Integer; const AValue : TAccountsAuthInfoResponseTypeaccountIdentifiersArray); begin If (FaccountIdentifiers=AValue) then exit; FaccountIdentifiers:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountsAuthInfoResponse.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TAccountsAuthInfoResponse.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'accountidentifiers' : SetLength(FaccountIdentifiers,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TAccountsCustomBatchRequest --------------------------------------------------------------------} Procedure TAccountsCustomBatchRequest.Setentries(AIndex : Integer; const AValue : TAccountsCustomBatchRequestTypeentriesArray); begin If (Fentries=AValue) then exit; Fentries:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TAccountsCustomBatchRequest.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'entries' : SetLength(Fentries,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TAccountsCustomBatchRequestEntry --------------------------------------------------------------------} Procedure TAccountsCustomBatchRequestEntry.Setaccount(AIndex : Integer; const AValue : TAccount); begin If (Faccount=AValue) then exit; Faccount:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountsCustomBatchRequestEntry.SetaccountId(AIndex : Integer; const AValue : String); begin If (FaccountId=AValue) then exit; FaccountId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountsCustomBatchRequestEntry.SetbatchId(AIndex : Integer; const AValue : integer); begin If (FbatchId=AValue) then exit; FbatchId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountsCustomBatchRequestEntry.SetmerchantId(AIndex : Integer; const AValue : String); begin If (FmerchantId=AValue) then exit; FmerchantId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountsCustomBatchRequestEntry.Setmethod(AIndex : Integer; const AValue : String); begin If (Fmethod=AValue) then exit; Fmethod:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TAccountsCustomBatchResponse --------------------------------------------------------------------} Procedure TAccountsCustomBatchResponse.Setentries(AIndex : Integer; const AValue : TAccountsCustomBatchResponseTypeentriesArray); begin If (Fentries=AValue) then exit; Fentries:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountsCustomBatchResponse.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TAccountsCustomBatchResponse.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'entries' : SetLength(Fentries,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TAccountsCustomBatchResponseEntry --------------------------------------------------------------------} Procedure TAccountsCustomBatchResponseEntry.Setaccount(AIndex : Integer; const AValue : TAccount); begin If (Faccount=AValue) then exit; Faccount:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountsCustomBatchResponseEntry.SetbatchId(AIndex : Integer; const AValue : integer); begin If (FbatchId=AValue) then exit; FbatchId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountsCustomBatchResponseEntry.Seterrors(AIndex : Integer; const AValue : TErrors); begin If (Ferrors=AValue) then exit; Ferrors:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountsCustomBatchResponseEntry.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TAccountsListResponse --------------------------------------------------------------------} Procedure TAccountsListResponse.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountsListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); begin If (FnextPageToken=AValue) then exit; FnextPageToken:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountsListResponse.Setresources(AIndex : Integer; const AValue : TAccountsListResponseTyperesourcesArray); begin If (Fresources=AValue) then exit; Fresources:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TAccountsListResponse.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'resources' : SetLength(Fresources,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TAccountshippingCustomBatchRequest --------------------------------------------------------------------} Procedure TAccountshippingCustomBatchRequest.Setentries(AIndex : Integer; const AValue : TAccountshippingCustomBatchRequestTypeentriesArray); begin If (Fentries=AValue) then exit; Fentries:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TAccountshippingCustomBatchRequest.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'entries' : SetLength(Fentries,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TAccountshippingCustomBatchRequestEntry --------------------------------------------------------------------} Procedure TAccountshippingCustomBatchRequestEntry.SetaccountId(AIndex : Integer; const AValue : String); begin If (FaccountId=AValue) then exit; FaccountId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountshippingCustomBatchRequestEntry.SetaccountShipping(AIndex : Integer; const AValue : TAccountShipping); begin If (FaccountShipping=AValue) then exit; FaccountShipping:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountshippingCustomBatchRequestEntry.SetbatchId(AIndex : Integer; const AValue : integer); begin If (FbatchId=AValue) then exit; FbatchId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountshippingCustomBatchRequestEntry.SetmerchantId(AIndex : Integer; const AValue : String); begin If (FmerchantId=AValue) then exit; FmerchantId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountshippingCustomBatchRequestEntry.Setmethod(AIndex : Integer; const AValue : String); begin If (Fmethod=AValue) then exit; Fmethod:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TAccountshippingCustomBatchResponse --------------------------------------------------------------------} Procedure TAccountshippingCustomBatchResponse.Setentries(AIndex : Integer; const AValue : TAccountshippingCustomBatchResponseTypeentriesArray); begin If (Fentries=AValue) then exit; Fentries:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountshippingCustomBatchResponse.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TAccountshippingCustomBatchResponse.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'entries' : SetLength(Fentries,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TAccountshippingCustomBatchResponseEntry --------------------------------------------------------------------} Procedure TAccountshippingCustomBatchResponseEntry.SetaccountShipping(AIndex : Integer; const AValue : TAccountShipping); begin If (FaccountShipping=AValue) then exit; FaccountShipping:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountshippingCustomBatchResponseEntry.SetbatchId(AIndex : Integer; const AValue : integer); begin If (FbatchId=AValue) then exit; FbatchId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountshippingCustomBatchResponseEntry.Seterrors(AIndex : Integer; const AValue : TErrors); begin If (Ferrors=AValue) then exit; Ferrors:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountshippingCustomBatchResponseEntry.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TAccountshippingListResponse --------------------------------------------------------------------} Procedure TAccountshippingListResponse.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountshippingListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); begin If (FnextPageToken=AValue) then exit; FnextPageToken:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountshippingListResponse.Setresources(AIndex : Integer; const AValue : TAccountshippingListResponseTyperesourcesArray); begin If (Fresources=AValue) then exit; Fresources:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TAccountshippingListResponse.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'resources' : SetLength(Fresources,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TAccountstatusesCustomBatchRequest --------------------------------------------------------------------} Procedure TAccountstatusesCustomBatchRequest.Setentries(AIndex : Integer; const AValue : TAccountstatusesCustomBatchRequestTypeentriesArray); begin If (Fentries=AValue) then exit; Fentries:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TAccountstatusesCustomBatchRequest.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'entries' : SetLength(Fentries,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TAccountstatusesCustomBatchRequestEntry --------------------------------------------------------------------} Procedure TAccountstatusesCustomBatchRequestEntry.SetaccountId(AIndex : Integer; const AValue : String); begin If (FaccountId=AValue) then exit; FaccountId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountstatusesCustomBatchRequestEntry.SetbatchId(AIndex : Integer; const AValue : integer); begin If (FbatchId=AValue) then exit; FbatchId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountstatusesCustomBatchRequestEntry.SetmerchantId(AIndex : Integer; const AValue : String); begin If (FmerchantId=AValue) then exit; FmerchantId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountstatusesCustomBatchRequestEntry.Setmethod(AIndex : Integer; const AValue : String); begin If (Fmethod=AValue) then exit; Fmethod:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TAccountstatusesCustomBatchResponse --------------------------------------------------------------------} Procedure TAccountstatusesCustomBatchResponse.Setentries(AIndex : Integer; const AValue : TAccountstatusesCustomBatchResponseTypeentriesArray); begin If (Fentries=AValue) then exit; Fentries:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountstatusesCustomBatchResponse.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TAccountstatusesCustomBatchResponse.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'entries' : SetLength(Fentries,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TAccountstatusesCustomBatchResponseEntry --------------------------------------------------------------------} Procedure TAccountstatusesCustomBatchResponseEntry.SetaccountStatus(AIndex : Integer; const AValue : TAccountStatus); begin If (FaccountStatus=AValue) then exit; FaccountStatus:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountstatusesCustomBatchResponseEntry.SetbatchId(AIndex : Integer; const AValue : integer); begin If (FbatchId=AValue) then exit; FbatchId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountstatusesCustomBatchResponseEntry.Seterrors(AIndex : Integer; const AValue : TErrors); begin If (Ferrors=AValue) then exit; Ferrors:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TAccountstatusesListResponse --------------------------------------------------------------------} Procedure TAccountstatusesListResponse.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountstatusesListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); begin If (FnextPageToken=AValue) then exit; FnextPageToken:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountstatusesListResponse.Setresources(AIndex : Integer; const AValue : TAccountstatusesListResponseTyperesourcesArray); begin If (Fresources=AValue) then exit; Fresources:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TAccountstatusesListResponse.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'resources' : SetLength(Fresources,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TAccounttaxCustomBatchRequest --------------------------------------------------------------------} Procedure TAccounttaxCustomBatchRequest.Setentries(AIndex : Integer; const AValue : TAccounttaxCustomBatchRequestTypeentriesArray); begin If (Fentries=AValue) then exit; Fentries:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TAccounttaxCustomBatchRequest.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'entries' : SetLength(Fentries,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TAccounttaxCustomBatchRequestEntry --------------------------------------------------------------------} Procedure TAccounttaxCustomBatchRequestEntry.SetaccountId(AIndex : Integer; const AValue : String); begin If (FaccountId=AValue) then exit; FaccountId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccounttaxCustomBatchRequestEntry.SetaccountTax(AIndex : Integer; const AValue : TAccountTax); begin If (FaccountTax=AValue) then exit; FaccountTax:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccounttaxCustomBatchRequestEntry.SetbatchId(AIndex : Integer; const AValue : integer); begin If (FbatchId=AValue) then exit; FbatchId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccounttaxCustomBatchRequestEntry.SetmerchantId(AIndex : Integer; const AValue : String); begin If (FmerchantId=AValue) then exit; FmerchantId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccounttaxCustomBatchRequestEntry.Setmethod(AIndex : Integer; const AValue : String); begin If (Fmethod=AValue) then exit; Fmethod:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TAccounttaxCustomBatchResponse --------------------------------------------------------------------} Procedure TAccounttaxCustomBatchResponse.Setentries(AIndex : Integer; const AValue : TAccounttaxCustomBatchResponseTypeentriesArray); begin If (Fentries=AValue) then exit; Fentries:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccounttaxCustomBatchResponse.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TAccounttaxCustomBatchResponse.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'entries' : SetLength(Fentries,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TAccounttaxCustomBatchResponseEntry --------------------------------------------------------------------} Procedure TAccounttaxCustomBatchResponseEntry.SetaccountTax(AIndex : Integer; const AValue : TAccountTax); begin If (FaccountTax=AValue) then exit; FaccountTax:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccounttaxCustomBatchResponseEntry.SetbatchId(AIndex : Integer; const AValue : integer); begin If (FbatchId=AValue) then exit; FbatchId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccounttaxCustomBatchResponseEntry.Seterrors(AIndex : Integer; const AValue : TErrors); begin If (Ferrors=AValue) then exit; Ferrors:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccounttaxCustomBatchResponseEntry.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TAccounttaxListResponse --------------------------------------------------------------------} Procedure TAccounttaxListResponse.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccounttaxListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); begin If (FnextPageToken=AValue) then exit; FnextPageToken:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccounttaxListResponse.Setresources(AIndex : Integer; const AValue : TAccounttaxListResponseTyperesourcesArray); begin If (Fresources=AValue) then exit; Fresources:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TAccounttaxListResponse.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'resources' : SetLength(Fresources,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TDatafeed --------------------------------------------------------------------} Procedure TDatafeed.SetattributeLanguage(AIndex : Integer; const AValue : String); begin If (FattributeLanguage=AValue) then exit; FattributeLanguage:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeed.SetcontentLanguage(AIndex : Integer; const AValue : String); begin If (FcontentLanguage=AValue) then exit; FcontentLanguage:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeed.SetcontentType(AIndex : Integer; const AValue : String); begin If (FcontentType=AValue) then exit; FcontentType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeed.SetfetchSchedule(AIndex : Integer; const AValue : TDatafeedFetchSchedule); begin If (FfetchSchedule=AValue) then exit; FfetchSchedule:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeed.SetfileName(AIndex : Integer; const AValue : String); begin If (FfileName=AValue) then exit; FfileName:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeed.Setformat(AIndex : Integer; const AValue : TDatafeedFormat); begin If (Fformat=AValue) then exit; Fformat:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeed.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeed.SetintendedDestinations(AIndex : Integer; const AValue : TStringArray); begin If (FintendedDestinations=AValue) then exit; FintendedDestinations:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeed.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeed.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeed.SettargetCountry(AIndex : Integer; const AValue : String); begin If (FtargetCountry=AValue) then exit; FtargetCountry:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TDatafeed.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'intendeddestinations' : SetLength(FintendedDestinations,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TDatafeedFetchSchedule --------------------------------------------------------------------} Procedure TDatafeedFetchSchedule.SetdayOfMonth(AIndex : Integer; const AValue : integer); begin If (FdayOfMonth=AValue) then exit; FdayOfMonth:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedFetchSchedule.SetfetchUrl(AIndex : Integer; const AValue : String); begin If (FfetchUrl=AValue) then exit; FfetchUrl:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedFetchSchedule.Sethour(AIndex : Integer; const AValue : integer); begin If (Fhour=AValue) then exit; Fhour:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedFetchSchedule.SetminuteOfHour(AIndex : Integer; const AValue : integer); begin If (FminuteOfHour=AValue) then exit; FminuteOfHour:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedFetchSchedule.Setpassword(AIndex : Integer; const AValue : String); begin If (Fpassword=AValue) then exit; Fpassword:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedFetchSchedule.SettimeZone(AIndex : Integer; const AValue : String); begin If (FtimeZone=AValue) then exit; FtimeZone:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedFetchSchedule.Setusername(AIndex : Integer; const AValue : String); begin If (Fusername=AValue) then exit; Fusername:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedFetchSchedule.Setweekday(AIndex : Integer; const AValue : String); begin If (Fweekday=AValue) then exit; Fweekday:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TDatafeedFormat --------------------------------------------------------------------} Procedure TDatafeedFormat.SetcolumnDelimiter(AIndex : Integer; const AValue : String); begin If (FcolumnDelimiter=AValue) then exit; FcolumnDelimiter:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedFormat.SetfileEncoding(AIndex : Integer; const AValue : String); begin If (FfileEncoding=AValue) then exit; FfileEncoding:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedFormat.SetquotingMode(AIndex : Integer; const AValue : String); begin If (FquotingMode=AValue) then exit; FquotingMode:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TDatafeedStatus --------------------------------------------------------------------} Procedure TDatafeedStatus.SetdatafeedId(AIndex : Integer; const AValue : String); begin If (FdatafeedId=AValue) then exit; FdatafeedId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedStatus.Seterrors(AIndex : Integer; const AValue : TDatafeedStatusTypeerrorsArray); begin If (Ferrors=AValue) then exit; Ferrors:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedStatus.SetitemsTotal(AIndex : Integer; const AValue : String); begin If (FitemsTotal=AValue) then exit; FitemsTotal:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedStatus.SetitemsValid(AIndex : Integer; const AValue : String); begin If (FitemsValid=AValue) then exit; FitemsValid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedStatus.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedStatus.SetlastUploadDate(AIndex : Integer; const AValue : String); begin If (FlastUploadDate=AValue) then exit; FlastUploadDate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedStatus.SetprocessingStatus(AIndex : Integer; const AValue : String); begin If (FprocessingStatus=AValue) then exit; FprocessingStatus:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedStatus.Setwarnings(AIndex : Integer; const AValue : TDatafeedStatusTypewarningsArray); begin If (Fwarnings=AValue) then exit; Fwarnings:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TDatafeedStatus.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'errors' : SetLength(Ferrors,ALength); 'warnings' : SetLength(Fwarnings,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TDatafeedStatusError --------------------------------------------------------------------} Procedure TDatafeedStatusError.Setcode(AIndex : Integer; const AValue : String); begin If (Fcode=AValue) then exit; Fcode:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedStatusError.Setcount(AIndex : Integer; const AValue : String); begin If (Fcount=AValue) then exit; Fcount:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedStatusError.Setexamples(AIndex : Integer; const AValue : TDatafeedStatusErrorTypeexamplesArray); begin If (Fexamples=AValue) then exit; Fexamples:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedStatusError.Setmessage(AIndex : Integer; const AValue : String); begin If (Fmessage=AValue) then exit; Fmessage:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TDatafeedStatusError.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'examples' : SetLength(Fexamples,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TDatafeedStatusExample --------------------------------------------------------------------} Procedure TDatafeedStatusExample.SetitemId(AIndex : Integer; const AValue : String); begin If (FitemId=AValue) then exit; FitemId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedStatusExample.SetlineNumber(AIndex : Integer; const AValue : String); begin If (FlineNumber=AValue) then exit; FlineNumber:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedStatusExample.Setvalue(AIndex : Integer; const AValue : String); begin If (Fvalue=AValue) then exit; Fvalue:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TDatafeedsCustomBatchRequest --------------------------------------------------------------------} Procedure TDatafeedsCustomBatchRequest.Setentries(AIndex : Integer; const AValue : TDatafeedsCustomBatchRequestTypeentriesArray); begin If (Fentries=AValue) then exit; Fentries:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TDatafeedsCustomBatchRequest.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'entries' : SetLength(Fentries,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TDatafeedsCustomBatchRequestEntry --------------------------------------------------------------------} Procedure TDatafeedsCustomBatchRequestEntry.SetbatchId(AIndex : Integer; const AValue : integer); begin If (FbatchId=AValue) then exit; FbatchId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedsCustomBatchRequestEntry.Setdatafeed(AIndex : Integer; const AValue : TDatafeed); begin If (Fdatafeed=AValue) then exit; Fdatafeed:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedsCustomBatchRequestEntry.SetdatafeedId(AIndex : Integer; const AValue : String); begin If (FdatafeedId=AValue) then exit; FdatafeedId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedsCustomBatchRequestEntry.SetmerchantId(AIndex : Integer; const AValue : String); begin If (FmerchantId=AValue) then exit; FmerchantId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedsCustomBatchRequestEntry.Setmethod(AIndex : Integer; const AValue : String); begin If (Fmethod=AValue) then exit; Fmethod:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TDatafeedsCustomBatchResponse --------------------------------------------------------------------} Procedure TDatafeedsCustomBatchResponse.Setentries(AIndex : Integer; const AValue : TDatafeedsCustomBatchResponseTypeentriesArray); begin If (Fentries=AValue) then exit; Fentries:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedsCustomBatchResponse.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TDatafeedsCustomBatchResponse.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'entries' : SetLength(Fentries,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TDatafeedsCustomBatchResponseEntry --------------------------------------------------------------------} Procedure TDatafeedsCustomBatchResponseEntry.SetbatchId(AIndex : Integer; const AValue : integer); begin If (FbatchId=AValue) then exit; FbatchId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedsCustomBatchResponseEntry.Setdatafeed(AIndex : Integer; const AValue : TDatafeed); begin If (Fdatafeed=AValue) then exit; Fdatafeed:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedsCustomBatchResponseEntry.Seterrors(AIndex : Integer; const AValue : TErrors); begin If (Ferrors=AValue) then exit; Ferrors:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TDatafeedsListResponse --------------------------------------------------------------------} Procedure TDatafeedsListResponse.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedsListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); begin If (FnextPageToken=AValue) then exit; FnextPageToken:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedsListResponse.Setresources(AIndex : Integer; const AValue : TDatafeedsListResponseTyperesourcesArray); begin If (Fresources=AValue) then exit; Fresources:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TDatafeedsListResponse.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'resources' : SetLength(Fresources,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TDatafeedstatusesCustomBatchRequest --------------------------------------------------------------------} Procedure TDatafeedstatusesCustomBatchRequest.Setentries(AIndex : Integer; const AValue : TDatafeedstatusesCustomBatchRequestTypeentriesArray); begin If (Fentries=AValue) then exit; Fentries:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TDatafeedstatusesCustomBatchRequest.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'entries' : SetLength(Fentries,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TDatafeedstatusesCustomBatchRequestEntry --------------------------------------------------------------------} Procedure TDatafeedstatusesCustomBatchRequestEntry.SetbatchId(AIndex : Integer; const AValue : integer); begin If (FbatchId=AValue) then exit; FbatchId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedstatusesCustomBatchRequestEntry.SetdatafeedId(AIndex : Integer; const AValue : String); begin If (FdatafeedId=AValue) then exit; FdatafeedId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedstatusesCustomBatchRequestEntry.SetmerchantId(AIndex : Integer; const AValue : String); begin If (FmerchantId=AValue) then exit; FmerchantId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedstatusesCustomBatchRequestEntry.Setmethod(AIndex : Integer; const AValue : String); begin If (Fmethod=AValue) then exit; Fmethod:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TDatafeedstatusesCustomBatchResponse --------------------------------------------------------------------} Procedure TDatafeedstatusesCustomBatchResponse.Setentries(AIndex : Integer; const AValue : TDatafeedstatusesCustomBatchResponseTypeentriesArray); begin If (Fentries=AValue) then exit; Fentries:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedstatusesCustomBatchResponse.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TDatafeedstatusesCustomBatchResponse.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'entries' : SetLength(Fentries,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TDatafeedstatusesCustomBatchResponseEntry --------------------------------------------------------------------} Procedure TDatafeedstatusesCustomBatchResponseEntry.SetbatchId(AIndex : Integer; const AValue : integer); begin If (FbatchId=AValue) then exit; FbatchId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedstatusesCustomBatchResponseEntry.SetdatafeedStatus(AIndex : Integer; const AValue : TDatafeedStatus); begin If (FdatafeedStatus=AValue) then exit; FdatafeedStatus:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedstatusesCustomBatchResponseEntry.Seterrors(AIndex : Integer; const AValue : TErrors); begin If (Ferrors=AValue) then exit; Ferrors:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TDatafeedstatusesListResponse --------------------------------------------------------------------} Procedure TDatafeedstatusesListResponse.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedstatusesListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); begin If (FnextPageToken=AValue) then exit; FnextPageToken:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDatafeedstatusesListResponse.Setresources(AIndex : Integer; const AValue : TDatafeedstatusesListResponseTyperesourcesArray); begin If (Fresources=AValue) then exit; Fresources:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TDatafeedstatusesListResponse.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'resources' : SetLength(Fresources,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TError --------------------------------------------------------------------} Procedure TError.Setdomain(AIndex : Integer; const AValue : String); begin If (Fdomain=AValue) then exit; Fdomain:=AValue; MarkPropertyChanged(AIndex); end; Procedure TError.Setmessage(AIndex : Integer; const AValue : String); begin If (Fmessage=AValue) then exit; Fmessage:=AValue; MarkPropertyChanged(AIndex); end; Procedure TError.Setreason(AIndex : Integer; const AValue : String); begin If (Freason=AValue) then exit; Freason:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TErrors --------------------------------------------------------------------} Procedure TErrors.Setcode(AIndex : Integer; const AValue : integer); begin If (Fcode=AValue) then exit; Fcode:=AValue; MarkPropertyChanged(AIndex); end; Procedure TErrors.Seterrors(AIndex : Integer; const AValue : TErrorsTypeerrorsArray); begin If (Ferrors=AValue) then exit; Ferrors:=AValue; MarkPropertyChanged(AIndex); end; Procedure TErrors.Setmessage(AIndex : Integer; const AValue : String); begin If (Fmessage=AValue) then exit; Fmessage:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TErrors.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'errors' : SetLength(Ferrors,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TInstallment --------------------------------------------------------------------} Procedure TInstallment.Setamount(AIndex : Integer; const AValue : TPrice); begin If (Famount=AValue) then exit; Famount:=AValue; MarkPropertyChanged(AIndex); end; Procedure TInstallment.Setmonths(AIndex : Integer; const AValue : String); begin If (Fmonths=AValue) then exit; Fmonths:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TInventory --------------------------------------------------------------------} Procedure TInventory.Setavailability(AIndex : Integer; const AValue : String); begin If (Favailability=AValue) then exit; Favailability:=AValue; MarkPropertyChanged(AIndex); end; Procedure TInventory.Setinstallment(AIndex : Integer; const AValue : TInstallment); begin If (Finstallment=AValue) then exit; Finstallment:=AValue; MarkPropertyChanged(AIndex); end; Procedure TInventory.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TInventory.SetloyaltyPoints(AIndex : Integer; const AValue : TLoyaltyPoints); begin If (FloyaltyPoints=AValue) then exit; FloyaltyPoints:=AValue; MarkPropertyChanged(AIndex); end; Procedure TInventory.Setprice(AIndex : Integer; const AValue : TPrice); begin If (Fprice=AValue) then exit; Fprice:=AValue; MarkPropertyChanged(AIndex); end; Procedure TInventory.Setquantity(AIndex : Integer; const AValue : integer); begin If (Fquantity=AValue) then exit; Fquantity:=AValue; MarkPropertyChanged(AIndex); end; Procedure TInventory.SetsalePrice(AIndex : Integer; const AValue : TPrice); begin If (FsalePrice=AValue) then exit; FsalePrice:=AValue; MarkPropertyChanged(AIndex); end; Procedure TInventory.SetsalePriceEffectiveDate(AIndex : Integer; const AValue : String); begin If (FsalePriceEffectiveDate=AValue) then exit; FsalePriceEffectiveDate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TInventory.SetsellOnGoogleQuantity(AIndex : Integer; const AValue : integer); begin If (FsellOnGoogleQuantity=AValue) then exit; FsellOnGoogleQuantity:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TInventoryCustomBatchRequest --------------------------------------------------------------------} Procedure TInventoryCustomBatchRequest.Setentries(AIndex : Integer; const AValue : TInventoryCustomBatchRequestTypeentriesArray); begin If (Fentries=AValue) then exit; Fentries:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TInventoryCustomBatchRequest.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'entries' : SetLength(Fentries,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TInventoryCustomBatchRequestEntry --------------------------------------------------------------------} Procedure TInventoryCustomBatchRequestEntry.SetbatchId(AIndex : Integer; const AValue : integer); begin If (FbatchId=AValue) then exit; FbatchId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TInventoryCustomBatchRequestEntry.Setinventory(AIndex : Integer; const AValue : TInventory); begin If (Finventory=AValue) then exit; Finventory:=AValue; MarkPropertyChanged(AIndex); end; Procedure TInventoryCustomBatchRequestEntry.SetmerchantId(AIndex : Integer; const AValue : String); begin If (FmerchantId=AValue) then exit; FmerchantId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TInventoryCustomBatchRequestEntry.SetproductId(AIndex : Integer; const AValue : String); begin If (FproductId=AValue) then exit; FproductId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TInventoryCustomBatchRequestEntry.SetstoreCode(AIndex : Integer; const AValue : String); begin If (FstoreCode=AValue) then exit; FstoreCode:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TInventoryCustomBatchResponse --------------------------------------------------------------------} Procedure TInventoryCustomBatchResponse.Setentries(AIndex : Integer; const AValue : TInventoryCustomBatchResponseTypeentriesArray); begin If (Fentries=AValue) then exit; Fentries:=AValue; MarkPropertyChanged(AIndex); end; Procedure TInventoryCustomBatchResponse.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TInventoryCustomBatchResponse.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'entries' : SetLength(Fentries,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TInventoryCustomBatchResponseEntry --------------------------------------------------------------------} Procedure TInventoryCustomBatchResponseEntry.SetbatchId(AIndex : Integer; const AValue : integer); begin If (FbatchId=AValue) then exit; FbatchId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TInventoryCustomBatchResponseEntry.Seterrors(AIndex : Integer; const AValue : TErrors); begin If (Ferrors=AValue) then exit; Ferrors:=AValue; MarkPropertyChanged(AIndex); end; Procedure TInventoryCustomBatchResponseEntry.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TInventorySetRequest --------------------------------------------------------------------} Procedure TInventorySetRequest.Setavailability(AIndex : Integer; const AValue : String); begin If (Favailability=AValue) then exit; Favailability:=AValue; MarkPropertyChanged(AIndex); end; Procedure TInventorySetRequest.Setinstallment(AIndex : Integer; const AValue : TInstallment); begin If (Finstallment=AValue) then exit; Finstallment:=AValue; MarkPropertyChanged(AIndex); end; Procedure TInventorySetRequest.SetloyaltyPoints(AIndex : Integer; const AValue : TLoyaltyPoints); begin If (FloyaltyPoints=AValue) then exit; FloyaltyPoints:=AValue; MarkPropertyChanged(AIndex); end; Procedure TInventorySetRequest.Setprice(AIndex : Integer; const AValue : TPrice); begin If (Fprice=AValue) then exit; Fprice:=AValue; MarkPropertyChanged(AIndex); end; Procedure TInventorySetRequest.Setquantity(AIndex : Integer; const AValue : integer); begin If (Fquantity=AValue) then exit; Fquantity:=AValue; MarkPropertyChanged(AIndex); end; Procedure TInventorySetRequest.SetsalePrice(AIndex : Integer; const AValue : TPrice); begin If (FsalePrice=AValue) then exit; FsalePrice:=AValue; MarkPropertyChanged(AIndex); end; Procedure TInventorySetRequest.SetsalePriceEffectiveDate(AIndex : Integer; const AValue : String); begin If (FsalePriceEffectiveDate=AValue) then exit; FsalePriceEffectiveDate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TInventorySetRequest.SetsellOnGoogleQuantity(AIndex : Integer; const AValue : integer); begin If (FsellOnGoogleQuantity=AValue) then exit; FsellOnGoogleQuantity:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TInventorySetResponse --------------------------------------------------------------------} Procedure TInventorySetResponse.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TLoyaltyPoints --------------------------------------------------------------------} Procedure TLoyaltyPoints.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; Procedure TLoyaltyPoints.SetpointsValue(AIndex : Integer; const AValue : String); begin If (FpointsValue=AValue) then exit; FpointsValue:=AValue; MarkPropertyChanged(AIndex); end; Procedure TLoyaltyPoints.Setratio(AIndex : Integer; const AValue : double); begin If (Fratio=AValue) then exit; Fratio:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOrder --------------------------------------------------------------------} Procedure TOrder.Setacknowledged(AIndex : Integer; const AValue : boolean); begin If (Facknowledged=AValue) then exit; Facknowledged:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrder.Setcustomer(AIndex : Integer; const AValue : TOrderCustomer); begin If (Fcustomer=AValue) then exit; Fcustomer:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrder.SetdeliveryDetails(AIndex : Integer; const AValue : TOrderDeliveryDetails); begin If (FdeliveryDetails=AValue) then exit; FdeliveryDetails:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrder.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrder.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrder.SetlineItems(AIndex : Integer; const AValue : TOrderTypelineItemsArray); begin If (FlineItems=AValue) then exit; FlineItems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrder.SetmerchantId(AIndex : Integer; const AValue : String); begin If (FmerchantId=AValue) then exit; FmerchantId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrder.SetmerchantOrderId(AIndex : Integer; const AValue : String); begin If (FmerchantOrderId=AValue) then exit; FmerchantOrderId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrder.SetnetAmount(AIndex : Integer; const AValue : TPrice); begin If (FnetAmount=AValue) then exit; FnetAmount:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrder.SetpaymentMethod(AIndex : Integer; const AValue : TOrderPaymentMethod); begin If (FpaymentMethod=AValue) then exit; FpaymentMethod:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrder.SetpaymentStatus(AIndex : Integer; const AValue : String); begin If (FpaymentStatus=AValue) then exit; FpaymentStatus:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrder.SetplacedDate(AIndex : Integer; const AValue : String); begin If (FplacedDate=AValue) then exit; FplacedDate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrder.Setpromotions(AIndex : Integer; const AValue : TOrderTypepromotionsArray); begin If (Fpromotions=AValue) then exit; Fpromotions:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrder.Setrefunds(AIndex : Integer; const AValue : TOrderTyperefundsArray); begin If (Frefunds=AValue) then exit; Frefunds:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrder.Setshipments(AIndex : Integer; const AValue : TOrderTypeshipmentsArray); begin If (Fshipments=AValue) then exit; Fshipments:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrder.SetshippingCost(AIndex : Integer; const AValue : TPrice); begin If (FshippingCost=AValue) then exit; FshippingCost:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrder.SetshippingCostTax(AIndex : Integer; const AValue : TPrice); begin If (FshippingCostTax=AValue) then exit; FshippingCostTax:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrder.SetshippingOption(AIndex : Integer; const AValue : String); begin If (FshippingOption=AValue) then exit; FshippingOption:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrder.Setstatus(AIndex : Integer; const AValue : String); begin If (Fstatus=AValue) then exit; Fstatus:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TOrder.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'lineitems' : SetLength(FlineItems,ALength); 'promotions' : SetLength(Fpromotions,ALength); 'refunds' : SetLength(Frefunds,ALength); 'shipments' : SetLength(Fshipments,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TOrderAddress --------------------------------------------------------------------} Procedure TOrderAddress.Setcountry(AIndex : Integer; const AValue : String); begin If (Fcountry=AValue) then exit; Fcountry:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderAddress.SetfullAddress(AIndex : Integer; const AValue : TStringArray); begin If (FfullAddress=AValue) then exit; FfullAddress:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderAddress.SetisPostOfficeBox(AIndex : Integer; const AValue : boolean); begin If (FisPostOfficeBox=AValue) then exit; FisPostOfficeBox:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderAddress.Setlocality(AIndex : Integer; const AValue : String); begin If (Flocality=AValue) then exit; Flocality:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderAddress.SetpostalCode(AIndex : Integer; const AValue : String); begin If (FpostalCode=AValue) then exit; FpostalCode:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderAddress.SetrecipientName(AIndex : Integer; const AValue : String); begin If (FrecipientName=AValue) then exit; FrecipientName:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderAddress.Setregion(AIndex : Integer; const AValue : String); begin If (Fregion=AValue) then exit; Fregion:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderAddress.SetstreetAddress(AIndex : Integer; const AValue : TStringArray); begin If (FstreetAddress=AValue) then exit; FstreetAddress:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TOrderAddress.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'fulladdress' : SetLength(FfullAddress,ALength); 'streetaddress' : SetLength(FstreetAddress,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TOrderCancellation --------------------------------------------------------------------} Procedure TOrderCancellation.Setactor(AIndex : Integer; const AValue : String); begin If (Factor=AValue) then exit; Factor:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderCancellation.SetcreationDate(AIndex : Integer; const AValue : String); begin If (FcreationDate=AValue) then exit; FcreationDate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderCancellation.Setquantity(AIndex : Integer; const AValue : integer); begin If (Fquantity=AValue) then exit; Fquantity:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderCancellation.Setreason(AIndex : Integer; const AValue : String); begin If (Freason=AValue) then exit; Freason:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderCancellation.SetreasonText(AIndex : Integer; const AValue : String); begin If (FreasonText=AValue) then exit; FreasonText:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOrderCustomer --------------------------------------------------------------------} Procedure TOrderCustomer.Setemail(AIndex : Integer; const AValue : String); begin If (Femail=AValue) then exit; Femail:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderCustomer.SetexplicitMarketingPreference(AIndex : Integer; const AValue : boolean); begin If (FexplicitMarketingPreference=AValue) then exit; FexplicitMarketingPreference:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderCustomer.SetfullName(AIndex : Integer; const AValue : String); begin If (FfullName=AValue) then exit; FfullName:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOrderDeliveryDetails --------------------------------------------------------------------} Procedure TOrderDeliveryDetails.Setaddress(AIndex : Integer; const AValue : TOrderAddress); begin If (Faddress=AValue) then exit; Faddress:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderDeliveryDetails.SetphoneNumber(AIndex : Integer; const AValue : String); begin If (FphoneNumber=AValue) then exit; FphoneNumber:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOrderLineItem --------------------------------------------------------------------} Procedure TOrderLineItem.Setcancellations(AIndex : Integer; const AValue : TOrderLineItemTypecancellationsArray); begin If (Fcancellations=AValue) then exit; Fcancellations:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderLineItem.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderLineItem.Setprice(AIndex : Integer; const AValue : TPrice); begin If (Fprice=AValue) then exit; Fprice:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderLineItem.Setproduct(AIndex : Integer; const AValue : TOrderLineItemProduct); begin If (Fproduct=AValue) then exit; Fproduct:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderLineItem.SetquantityCanceled(AIndex : Integer; const AValue : integer); begin If (FquantityCanceled=AValue) then exit; FquantityCanceled:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderLineItem.SetquantityDelivered(AIndex : Integer; const AValue : integer); begin If (FquantityDelivered=AValue) then exit; FquantityDelivered:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderLineItem.SetquantityOrdered(AIndex : Integer; const AValue : integer); begin If (FquantityOrdered=AValue) then exit; FquantityOrdered:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderLineItem.SetquantityPending(AIndex : Integer; const AValue : integer); begin If (FquantityPending=AValue) then exit; FquantityPending:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderLineItem.SetquantityReturned(AIndex : Integer; const AValue : integer); begin If (FquantityReturned=AValue) then exit; FquantityReturned:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderLineItem.SetquantityShipped(AIndex : Integer; const AValue : integer); begin If (FquantityShipped=AValue) then exit; FquantityShipped:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderLineItem.SetreturnInfo(AIndex : Integer; const AValue : TOrderLineItemReturnInfo); begin If (FreturnInfo=AValue) then exit; FreturnInfo:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderLineItem.Setreturns(AIndex : Integer; const AValue : TOrderLineItemTypereturnsArray); begin If (Freturns=AValue) then exit; Freturns:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderLineItem.SetshippingDetails(AIndex : Integer; const AValue : TOrderLineItemShippingDetails); begin If (FshippingDetails=AValue) then exit; FshippingDetails:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderLineItem.Settax(AIndex : Integer; const AValue : TPrice); begin If (Ftax=AValue) then exit; Ftax:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TOrderLineItem.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'cancellations' : SetLength(Fcancellations,ALength); 'returns' : SetLength(Freturns,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TOrderLineItemProduct --------------------------------------------------------------------} Procedure TOrderLineItemProduct.Setbrand(AIndex : Integer; const AValue : String); begin If (Fbrand=AValue) then exit; Fbrand:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderLineItemProduct.Setchannel(AIndex : Integer; const AValue : String); begin If (Fchannel=AValue) then exit; Fchannel:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderLineItemProduct.Setcondition(AIndex : Integer; const AValue : String); begin If (Fcondition=AValue) then exit; Fcondition:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderLineItemProduct.SetcontentLanguage(AIndex : Integer; const AValue : String); begin If (FcontentLanguage=AValue) then exit; FcontentLanguage:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderLineItemProduct.Setgtin(AIndex : Integer; const AValue : String); begin If (Fgtin=AValue) then exit; Fgtin:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderLineItemProduct.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderLineItemProduct.SetimageLink(AIndex : Integer; const AValue : String); begin If (FimageLink=AValue) then exit; FimageLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderLineItemProduct.SetitemGroupId(AIndex : Integer; const AValue : String); begin If (FitemGroupId=AValue) then exit; FitemGroupId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderLineItemProduct.Setmpn(AIndex : Integer; const AValue : String); begin If (Fmpn=AValue) then exit; Fmpn:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderLineItemProduct.SetofferId(AIndex : Integer; const AValue : String); begin If (FofferId=AValue) then exit; FofferId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderLineItemProduct.Setprice(AIndex : Integer; const AValue : TPrice); begin If (Fprice=AValue) then exit; Fprice:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderLineItemProduct.SetshownImage(AIndex : Integer; const AValue : String); begin If (FshownImage=AValue) then exit; FshownImage:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderLineItemProduct.SettargetCountry(AIndex : Integer; const AValue : String); begin If (FtargetCountry=AValue) then exit; FtargetCountry:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderLineItemProduct.Settitle(AIndex : Integer; const AValue : String); begin If (Ftitle=AValue) then exit; Ftitle:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderLineItemProduct.SetvariantAttributes(AIndex : Integer; const AValue : TOrderLineItemProductTypevariantAttributesArray); begin If (FvariantAttributes=AValue) then exit; FvariantAttributes:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TOrderLineItemProduct.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'variantattributes' : SetLength(FvariantAttributes,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TOrderLineItemProductVariantAttribute --------------------------------------------------------------------} Procedure TOrderLineItemProductVariantAttribute.Setdimension(AIndex : Integer; const AValue : String); begin If (Fdimension=AValue) then exit; Fdimension:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderLineItemProductVariantAttribute.Setvalue(AIndex : Integer; const AValue : String); begin If (Fvalue=AValue) then exit; Fvalue:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOrderLineItemReturnInfo --------------------------------------------------------------------} Procedure TOrderLineItemReturnInfo.SetdaysToReturn(AIndex : Integer; const AValue : integer); begin If (FdaysToReturn=AValue) then exit; FdaysToReturn:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderLineItemReturnInfo.SetisReturnable(AIndex : Integer; const AValue : boolean); begin If (FisReturnable=AValue) then exit; FisReturnable:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderLineItemReturnInfo.SetpolicyUrl(AIndex : Integer; const AValue : String); begin If (FpolicyUrl=AValue) then exit; FpolicyUrl:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOrderLineItemShippingDetails --------------------------------------------------------------------} Procedure TOrderLineItemShippingDetails.SetdeliverByDate(AIndex : Integer; const AValue : String); begin If (FdeliverByDate=AValue) then exit; FdeliverByDate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderLineItemShippingDetails.Setmethod(AIndex : Integer; const AValue : TOrderLineItemShippingDetailsMethod); begin If (Fmethod=AValue) then exit; Fmethod:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderLineItemShippingDetails.SetshipByDate(AIndex : Integer; const AValue : String); begin If (FshipByDate=AValue) then exit; FshipByDate:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOrderLineItemShippingDetailsMethod --------------------------------------------------------------------} Procedure TOrderLineItemShippingDetailsMethod.Setcarrier(AIndex : Integer; const AValue : String); begin If (Fcarrier=AValue) then exit; Fcarrier:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderLineItemShippingDetailsMethod.SetmaxDaysInTransit(AIndex : Integer; const AValue : integer); begin If (FmaxDaysInTransit=AValue) then exit; FmaxDaysInTransit:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderLineItemShippingDetailsMethod.SetmethodName(AIndex : Integer; const AValue : String); begin If (FmethodName=AValue) then exit; FmethodName:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderLineItemShippingDetailsMethod.SetminDaysInTransit(AIndex : Integer; const AValue : integer); begin If (FminDaysInTransit=AValue) then exit; FminDaysInTransit:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOrderPaymentMethod --------------------------------------------------------------------} Procedure TOrderPaymentMethod.SetbillingAddress(AIndex : Integer; const AValue : TOrderAddress); begin If (FbillingAddress=AValue) then exit; FbillingAddress:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderPaymentMethod.SetexpirationMonth(AIndex : Integer; const AValue : integer); begin If (FexpirationMonth=AValue) then exit; FexpirationMonth:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderPaymentMethod.SetexpirationYear(AIndex : Integer; const AValue : integer); begin If (FexpirationYear=AValue) then exit; FexpirationYear:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderPaymentMethod.SetlastFourDigits(AIndex : Integer; const AValue : String); begin If (FlastFourDigits=AValue) then exit; FlastFourDigits:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderPaymentMethod.SetphoneNumber(AIndex : Integer; const AValue : String); begin If (FphoneNumber=AValue) then exit; FphoneNumber:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderPaymentMethod.Set_type(AIndex : Integer; const AValue : String); begin If (F_type=AValue) then exit; F_type:=AValue; MarkPropertyChanged(AIndex); end; Class Function TOrderPaymentMethod.ExportPropertyName(Const AName : String) :String; begin Case AName of '_type' : Result:='type'; else Result:=Inherited ExportPropertyName(AName); end; end; { -------------------------------------------------------------------- TOrderPromotion --------------------------------------------------------------------} Procedure TOrderPromotion.Setbenefits(AIndex : Integer; const AValue : TOrderPromotionTypebenefitsArray); begin If (Fbenefits=AValue) then exit; Fbenefits:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderPromotion.SeteffectiveDates(AIndex : Integer; const AValue : String); begin If (FeffectiveDates=AValue) then exit; FeffectiveDates:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderPromotion.SetgenericRedemptionCode(AIndex : Integer; const AValue : String); begin If (FgenericRedemptionCode=AValue) then exit; FgenericRedemptionCode:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderPromotion.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderPromotion.SetlongTitle(AIndex : Integer; const AValue : String); begin If (FlongTitle=AValue) then exit; FlongTitle:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderPromotion.SetproductApplicability(AIndex : Integer; const AValue : String); begin If (FproductApplicability=AValue) then exit; FproductApplicability:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderPromotion.SetredemptionChannel(AIndex : Integer; const AValue : String); begin If (FredemptionChannel=AValue) then exit; FredemptionChannel:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TOrderPromotion.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'benefits' : SetLength(Fbenefits,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TOrderPromotionBenefit --------------------------------------------------------------------} Procedure TOrderPromotionBenefit.Setdiscount(AIndex : Integer; const AValue : TPrice); begin If (Fdiscount=AValue) then exit; Fdiscount:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderPromotionBenefit.SetofferIds(AIndex : Integer; const AValue : TStringArray); begin If (FofferIds=AValue) then exit; FofferIds:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderPromotionBenefit.SetsubType(AIndex : Integer; const AValue : String); begin If (FsubType=AValue) then exit; FsubType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderPromotionBenefit.SettaxImpact(AIndex : Integer; const AValue : TPrice); begin If (FtaxImpact=AValue) then exit; FtaxImpact:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderPromotionBenefit.Set_type(AIndex : Integer; const AValue : String); begin If (F_type=AValue) then exit; F_type:=AValue; MarkPropertyChanged(AIndex); end; Class Function TOrderPromotionBenefit.ExportPropertyName(Const AName : String) :String; begin Case AName of '_type' : Result:='type'; else Result:=Inherited ExportPropertyName(AName); end; end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TOrderPromotionBenefit.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'offerids' : SetLength(FofferIds,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TOrderRefund --------------------------------------------------------------------} Procedure TOrderRefund.Setactor(AIndex : Integer; const AValue : String); begin If (Factor=AValue) then exit; Factor:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderRefund.Setamount(AIndex : Integer; const AValue : TPrice); begin If (Famount=AValue) then exit; Famount:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderRefund.SetcreationDate(AIndex : Integer; const AValue : String); begin If (FcreationDate=AValue) then exit; FcreationDate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderRefund.Setreason(AIndex : Integer; const AValue : String); begin If (Freason=AValue) then exit; Freason:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderRefund.SetreasonText(AIndex : Integer; const AValue : String); begin If (FreasonText=AValue) then exit; FreasonText:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOrderReturn --------------------------------------------------------------------} Procedure TOrderReturn.Setactor(AIndex : Integer; const AValue : String); begin If (Factor=AValue) then exit; Factor:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderReturn.SetcreationDate(AIndex : Integer; const AValue : String); begin If (FcreationDate=AValue) then exit; FcreationDate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderReturn.Setquantity(AIndex : Integer; const AValue : integer); begin If (Fquantity=AValue) then exit; Fquantity:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderReturn.Setreason(AIndex : Integer; const AValue : String); begin If (Freason=AValue) then exit; Freason:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderReturn.SetreasonText(AIndex : Integer; const AValue : String); begin If (FreasonText=AValue) then exit; FreasonText:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOrderShipment --------------------------------------------------------------------} Procedure TOrderShipment.Setcarrier(AIndex : Integer; const AValue : String); begin If (Fcarrier=AValue) then exit; Fcarrier:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderShipment.SetcreationDate(AIndex : Integer; const AValue : String); begin If (FcreationDate=AValue) then exit; FcreationDate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderShipment.SetdeliveryDate(AIndex : Integer; const AValue : String); begin If (FdeliveryDate=AValue) then exit; FdeliveryDate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderShipment.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderShipment.SetlineItems(AIndex : Integer; const AValue : TOrderShipmentTypelineItemsArray); begin If (FlineItems=AValue) then exit; FlineItems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderShipment.Setstatus(AIndex : Integer; const AValue : String); begin If (Fstatus=AValue) then exit; Fstatus:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderShipment.SettrackingId(AIndex : Integer; const AValue : String); begin If (FtrackingId=AValue) then exit; FtrackingId:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TOrderShipment.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'lineitems' : SetLength(FlineItems,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TOrderShipmentLineItemShipment --------------------------------------------------------------------} Procedure TOrderShipmentLineItemShipment.SetlineItemId(AIndex : Integer; const AValue : String); begin If (FlineItemId=AValue) then exit; FlineItemId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrderShipmentLineItemShipment.Setquantity(AIndex : Integer; const AValue : integer); begin If (Fquantity=AValue) then exit; Fquantity:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOrdersAcknowledgeRequest --------------------------------------------------------------------} Procedure TOrdersAcknowledgeRequest.SetoperationId(AIndex : Integer; const AValue : String); begin If (FoperationId=AValue) then exit; FoperationId:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOrdersAcknowledgeResponse --------------------------------------------------------------------} Procedure TOrdersAcknowledgeResponse.SetexecutionStatus(AIndex : Integer; const AValue : String); begin If (FexecutionStatus=AValue) then exit; FexecutionStatus:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersAcknowledgeResponse.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOrdersAdvanceTestOrderResponse --------------------------------------------------------------------} Procedure TOrdersAdvanceTestOrderResponse.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOrdersCancelLineItemRequest --------------------------------------------------------------------} Procedure TOrdersCancelLineItemRequest.Setamount(AIndex : Integer; const AValue : TPrice); begin If (Famount=AValue) then exit; Famount:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCancelLineItemRequest.SetlineItemId(AIndex : Integer; const AValue : String); begin If (FlineItemId=AValue) then exit; FlineItemId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCancelLineItemRequest.SetoperationId(AIndex : Integer; const AValue : String); begin If (FoperationId=AValue) then exit; FoperationId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCancelLineItemRequest.Setquantity(AIndex : Integer; const AValue : integer); begin If (Fquantity=AValue) then exit; Fquantity:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCancelLineItemRequest.Setreason(AIndex : Integer; const AValue : String); begin If (Freason=AValue) then exit; Freason:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCancelLineItemRequest.SetreasonText(AIndex : Integer; const AValue : String); begin If (FreasonText=AValue) then exit; FreasonText:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOrdersCancelLineItemResponse --------------------------------------------------------------------} Procedure TOrdersCancelLineItemResponse.SetexecutionStatus(AIndex : Integer; const AValue : String); begin If (FexecutionStatus=AValue) then exit; FexecutionStatus:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCancelLineItemResponse.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOrdersCancelRequest --------------------------------------------------------------------} Procedure TOrdersCancelRequest.SetoperationId(AIndex : Integer; const AValue : String); begin If (FoperationId=AValue) then exit; FoperationId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCancelRequest.Setreason(AIndex : Integer; const AValue : String); begin If (Freason=AValue) then exit; Freason:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCancelRequest.SetreasonText(AIndex : Integer; const AValue : String); begin If (FreasonText=AValue) then exit; FreasonText:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOrdersCancelResponse --------------------------------------------------------------------} Procedure TOrdersCancelResponse.SetexecutionStatus(AIndex : Integer; const AValue : String); begin If (FexecutionStatus=AValue) then exit; FexecutionStatus:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCancelResponse.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOrdersCreateTestOrderRequest --------------------------------------------------------------------} Procedure TOrdersCreateTestOrderRequest.SettemplateName(AIndex : Integer; const AValue : String); begin If (FtemplateName=AValue) then exit; FtemplateName:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCreateTestOrderRequest.SettestOrder(AIndex : Integer; const AValue : TTestOrder); begin If (FtestOrder=AValue) then exit; FtestOrder:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOrdersCreateTestOrderResponse --------------------------------------------------------------------} Procedure TOrdersCreateTestOrderResponse.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCreateTestOrderResponse.SetorderId(AIndex : Integer; const AValue : String); begin If (ForderId=AValue) then exit; ForderId:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOrdersCustomBatchRequest --------------------------------------------------------------------} Procedure TOrdersCustomBatchRequest.Setentries(AIndex : Integer; const AValue : TOrdersCustomBatchRequestTypeentriesArray); begin If (Fentries=AValue) then exit; Fentries:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TOrdersCustomBatchRequest.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'entries' : SetLength(Fentries,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TOrdersCustomBatchRequestEntry --------------------------------------------------------------------} Procedure TOrdersCustomBatchRequestEntry.SetbatchId(AIndex : Integer; const AValue : integer); begin If (FbatchId=AValue) then exit; FbatchId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCustomBatchRequestEntry.Setcancel(AIndex : Integer; const AValue : TOrdersCustomBatchRequestEntryCancel); begin If (Fcancel=AValue) then exit; Fcancel:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCustomBatchRequestEntry.SetcancelLineItem(AIndex : Integer; const AValue : TOrdersCustomBatchRequestEntryCancelLineItem); begin If (FcancelLineItem=AValue) then exit; FcancelLineItem:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCustomBatchRequestEntry.SetmerchantId(AIndex : Integer; const AValue : String); begin If (FmerchantId=AValue) then exit; FmerchantId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCustomBatchRequestEntry.SetmerchantOrderId(AIndex : Integer; const AValue : String); begin If (FmerchantOrderId=AValue) then exit; FmerchantOrderId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCustomBatchRequestEntry.Setmethod(AIndex : Integer; const AValue : String); begin If (Fmethod=AValue) then exit; Fmethod:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCustomBatchRequestEntry.SetoperationId(AIndex : Integer; const AValue : String); begin If (FoperationId=AValue) then exit; FoperationId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCustomBatchRequestEntry.SetorderId(AIndex : Integer; const AValue : String); begin If (ForderId=AValue) then exit; ForderId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCustomBatchRequestEntry.Setrefund(AIndex : Integer; const AValue : TOrdersCustomBatchRequestEntryRefund); begin If (Frefund=AValue) then exit; Frefund:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCustomBatchRequestEntry.SetreturnLineItem(AIndex : Integer; const AValue : TOrdersCustomBatchRequestEntryReturnLineItem); begin If (FreturnLineItem=AValue) then exit; FreturnLineItem:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCustomBatchRequestEntry.SetshipLineItems(AIndex : Integer; const AValue : TOrdersCustomBatchRequestEntryShipLineItems); begin If (FshipLineItems=AValue) then exit; FshipLineItems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCustomBatchRequestEntry.SetupdateShipment(AIndex : Integer; const AValue : TOrdersCustomBatchRequestEntryUpdateShipment); begin If (FupdateShipment=AValue) then exit; FupdateShipment:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOrdersCustomBatchRequestEntryCancel --------------------------------------------------------------------} Procedure TOrdersCustomBatchRequestEntryCancel.Setreason(AIndex : Integer; const AValue : String); begin If (Freason=AValue) then exit; Freason:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCustomBatchRequestEntryCancel.SetreasonText(AIndex : Integer; const AValue : String); begin If (FreasonText=AValue) then exit; FreasonText:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOrdersCustomBatchRequestEntryCancelLineItem --------------------------------------------------------------------} Procedure TOrdersCustomBatchRequestEntryCancelLineItem.Setamount(AIndex : Integer; const AValue : TPrice); begin If (Famount=AValue) then exit; Famount:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCustomBatchRequestEntryCancelLineItem.SetlineItemId(AIndex : Integer; const AValue : String); begin If (FlineItemId=AValue) then exit; FlineItemId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCustomBatchRequestEntryCancelLineItem.Setquantity(AIndex : Integer; const AValue : integer); begin If (Fquantity=AValue) then exit; Fquantity:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCustomBatchRequestEntryCancelLineItem.Setreason(AIndex : Integer; const AValue : String); begin If (Freason=AValue) then exit; Freason:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCustomBatchRequestEntryCancelLineItem.SetreasonText(AIndex : Integer; const AValue : String); begin If (FreasonText=AValue) then exit; FreasonText:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOrdersCustomBatchRequestEntryRefund --------------------------------------------------------------------} Procedure TOrdersCustomBatchRequestEntryRefund.Setamount(AIndex : Integer; const AValue : TPrice); begin If (Famount=AValue) then exit; Famount:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCustomBatchRequestEntryRefund.Setreason(AIndex : Integer; const AValue : String); begin If (Freason=AValue) then exit; Freason:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCustomBatchRequestEntryRefund.SetreasonText(AIndex : Integer; const AValue : String); begin If (FreasonText=AValue) then exit; FreasonText:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOrdersCustomBatchRequestEntryReturnLineItem --------------------------------------------------------------------} Procedure TOrdersCustomBatchRequestEntryReturnLineItem.SetlineItemId(AIndex : Integer; const AValue : String); begin If (FlineItemId=AValue) then exit; FlineItemId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCustomBatchRequestEntryReturnLineItem.Setquantity(AIndex : Integer; const AValue : integer); begin If (Fquantity=AValue) then exit; Fquantity:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCustomBatchRequestEntryReturnLineItem.Setreason(AIndex : Integer; const AValue : String); begin If (Freason=AValue) then exit; Freason:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCustomBatchRequestEntryReturnLineItem.SetreasonText(AIndex : Integer; const AValue : String); begin If (FreasonText=AValue) then exit; FreasonText:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOrdersCustomBatchRequestEntryShipLineItems --------------------------------------------------------------------} Procedure TOrdersCustomBatchRequestEntryShipLineItems.Setcarrier(AIndex : Integer; const AValue : String); begin If (Fcarrier=AValue) then exit; Fcarrier:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCustomBatchRequestEntryShipLineItems.SetlineItems(AIndex : Integer; const AValue : TOrdersCustomBatchRequestEntryShipLineItemsTypelineItemsArray); begin If (FlineItems=AValue) then exit; FlineItems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCustomBatchRequestEntryShipLineItems.SetshipmentId(AIndex : Integer; const AValue : String); begin If (FshipmentId=AValue) then exit; FshipmentId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCustomBatchRequestEntryShipLineItems.SettrackingId(AIndex : Integer; const AValue : String); begin If (FtrackingId=AValue) then exit; FtrackingId:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TOrdersCustomBatchRequestEntryShipLineItems.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'lineitems' : SetLength(FlineItems,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TOrdersCustomBatchRequestEntryUpdateShipment --------------------------------------------------------------------} Procedure TOrdersCustomBatchRequestEntryUpdateShipment.Setcarrier(AIndex : Integer; const AValue : String); begin If (Fcarrier=AValue) then exit; Fcarrier:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCustomBatchRequestEntryUpdateShipment.SetshipmentId(AIndex : Integer; const AValue : String); begin If (FshipmentId=AValue) then exit; FshipmentId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCustomBatchRequestEntryUpdateShipment.Setstatus(AIndex : Integer; const AValue : String); begin If (Fstatus=AValue) then exit; Fstatus:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCustomBatchRequestEntryUpdateShipment.SettrackingId(AIndex : Integer; const AValue : String); begin If (FtrackingId=AValue) then exit; FtrackingId:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOrdersCustomBatchResponse --------------------------------------------------------------------} Procedure TOrdersCustomBatchResponse.Setentries(AIndex : Integer; const AValue : TOrdersCustomBatchResponseTypeentriesArray); begin If (Fentries=AValue) then exit; Fentries:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCustomBatchResponse.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TOrdersCustomBatchResponse.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'entries' : SetLength(Fentries,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TOrdersCustomBatchResponseEntry --------------------------------------------------------------------} Procedure TOrdersCustomBatchResponseEntry.SetbatchId(AIndex : Integer; const AValue : integer); begin If (FbatchId=AValue) then exit; FbatchId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCustomBatchResponseEntry.Seterrors(AIndex : Integer; const AValue : TErrors); begin If (Ferrors=AValue) then exit; Ferrors:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCustomBatchResponseEntry.SetexecutionStatus(AIndex : Integer; const AValue : String); begin If (FexecutionStatus=AValue) then exit; FexecutionStatus:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCustomBatchResponseEntry.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersCustomBatchResponseEntry.Setorder(AIndex : Integer; const AValue : TOrder); begin If (Forder=AValue) then exit; Forder:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOrdersGetByMerchantOrderIdResponse --------------------------------------------------------------------} Procedure TOrdersGetByMerchantOrderIdResponse.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersGetByMerchantOrderIdResponse.Setorder(AIndex : Integer; const AValue : TOrder); begin If (Forder=AValue) then exit; Forder:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOrdersGetTestOrderTemplateResponse --------------------------------------------------------------------} Procedure TOrdersGetTestOrderTemplateResponse.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersGetTestOrderTemplateResponse.Settemplate(AIndex : Integer; const AValue : TTestOrder); begin If (Ftemplate=AValue) then exit; Ftemplate:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOrdersListResponse --------------------------------------------------------------------} Procedure TOrdersListResponse.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); begin If (FnextPageToken=AValue) then exit; FnextPageToken:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersListResponse.Setresources(AIndex : Integer; const AValue : TOrdersListResponseTyperesourcesArray); begin If (Fresources=AValue) then exit; Fresources:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TOrdersListResponse.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'resources' : SetLength(Fresources,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TOrdersRefundRequest --------------------------------------------------------------------} Procedure TOrdersRefundRequest.Setamount(AIndex : Integer; const AValue : TPrice); begin If (Famount=AValue) then exit; Famount:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersRefundRequest.SetoperationId(AIndex : Integer; const AValue : String); begin If (FoperationId=AValue) then exit; FoperationId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersRefundRequest.Setreason(AIndex : Integer; const AValue : String); begin If (Freason=AValue) then exit; Freason:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersRefundRequest.SetreasonText(AIndex : Integer; const AValue : String); begin If (FreasonText=AValue) then exit; FreasonText:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOrdersRefundResponse --------------------------------------------------------------------} Procedure TOrdersRefundResponse.SetexecutionStatus(AIndex : Integer; const AValue : String); begin If (FexecutionStatus=AValue) then exit; FexecutionStatus:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersRefundResponse.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOrdersReturnLineItemRequest --------------------------------------------------------------------} Procedure TOrdersReturnLineItemRequest.SetlineItemId(AIndex : Integer; const AValue : String); begin If (FlineItemId=AValue) then exit; FlineItemId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersReturnLineItemRequest.SetoperationId(AIndex : Integer; const AValue : String); begin If (FoperationId=AValue) then exit; FoperationId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersReturnLineItemRequest.Setquantity(AIndex : Integer; const AValue : integer); begin If (Fquantity=AValue) then exit; Fquantity:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersReturnLineItemRequest.Setreason(AIndex : Integer; const AValue : String); begin If (Freason=AValue) then exit; Freason:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersReturnLineItemRequest.SetreasonText(AIndex : Integer; const AValue : String); begin If (FreasonText=AValue) then exit; FreasonText:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOrdersReturnLineItemResponse --------------------------------------------------------------------} Procedure TOrdersReturnLineItemResponse.SetexecutionStatus(AIndex : Integer; const AValue : String); begin If (FexecutionStatus=AValue) then exit; FexecutionStatus:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersReturnLineItemResponse.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOrdersShipLineItemsRequest --------------------------------------------------------------------} Procedure TOrdersShipLineItemsRequest.Setcarrier(AIndex : Integer; const AValue : String); begin If (Fcarrier=AValue) then exit; Fcarrier:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersShipLineItemsRequest.SetlineItems(AIndex : Integer; const AValue : TOrdersShipLineItemsRequestTypelineItemsArray); begin If (FlineItems=AValue) then exit; FlineItems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersShipLineItemsRequest.SetoperationId(AIndex : Integer; const AValue : String); begin If (FoperationId=AValue) then exit; FoperationId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersShipLineItemsRequest.SetshipmentId(AIndex : Integer; const AValue : String); begin If (FshipmentId=AValue) then exit; FshipmentId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersShipLineItemsRequest.SettrackingId(AIndex : Integer; const AValue : String); begin If (FtrackingId=AValue) then exit; FtrackingId:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TOrdersShipLineItemsRequest.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'lineitems' : SetLength(FlineItems,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TOrdersShipLineItemsResponse --------------------------------------------------------------------} Procedure TOrdersShipLineItemsResponse.SetexecutionStatus(AIndex : Integer; const AValue : String); begin If (FexecutionStatus=AValue) then exit; FexecutionStatus:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersShipLineItemsResponse.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOrdersUpdateMerchantOrderIdRequest --------------------------------------------------------------------} Procedure TOrdersUpdateMerchantOrderIdRequest.SetmerchantOrderId(AIndex : Integer; const AValue : String); begin If (FmerchantOrderId=AValue) then exit; FmerchantOrderId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersUpdateMerchantOrderIdRequest.SetoperationId(AIndex : Integer; const AValue : String); begin If (FoperationId=AValue) then exit; FoperationId:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOrdersUpdateMerchantOrderIdResponse --------------------------------------------------------------------} Procedure TOrdersUpdateMerchantOrderIdResponse.SetexecutionStatus(AIndex : Integer; const AValue : String); begin If (FexecutionStatus=AValue) then exit; FexecutionStatus:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersUpdateMerchantOrderIdResponse.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOrdersUpdateShipmentRequest --------------------------------------------------------------------} Procedure TOrdersUpdateShipmentRequest.Setcarrier(AIndex : Integer; const AValue : String); begin If (Fcarrier=AValue) then exit; Fcarrier:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersUpdateShipmentRequest.SetoperationId(AIndex : Integer; const AValue : String); begin If (FoperationId=AValue) then exit; FoperationId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersUpdateShipmentRequest.SetshipmentId(AIndex : Integer; const AValue : String); begin If (FshipmentId=AValue) then exit; FshipmentId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersUpdateShipmentRequest.Setstatus(AIndex : Integer; const AValue : String); begin If (Fstatus=AValue) then exit; Fstatus:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersUpdateShipmentRequest.SettrackingId(AIndex : Integer; const AValue : String); begin If (FtrackingId=AValue) then exit; FtrackingId:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOrdersUpdateShipmentResponse --------------------------------------------------------------------} Procedure TOrdersUpdateShipmentResponse.SetexecutionStatus(AIndex : Integer; const AValue : String); begin If (FexecutionStatus=AValue) then exit; FexecutionStatus:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOrdersUpdateShipmentResponse.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TPrice --------------------------------------------------------------------} Procedure TPrice.Setcurrency(AIndex : Integer; const AValue : String); begin If (Fcurrency=AValue) then exit; Fcurrency:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPrice.Setvalue(AIndex : Integer; const AValue : String); begin If (Fvalue=AValue) then exit; Fvalue:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TProduct --------------------------------------------------------------------} Procedure TProduct.SetadditionalImageLinks(AIndex : Integer; const AValue : TStringArray); begin If (FadditionalImageLinks=AValue) then exit; FadditionalImageLinks:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.Setadult(AIndex : Integer; const AValue : boolean); begin If (Fadult=AValue) then exit; Fadult:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetadwordsGrouping(AIndex : Integer; const AValue : String); begin If (FadwordsGrouping=AValue) then exit; FadwordsGrouping:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetadwordsLabels(AIndex : Integer; const AValue : TStringArray); begin If (FadwordsLabels=AValue) then exit; FadwordsLabels:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetadwordsRedirect(AIndex : Integer; const AValue : String); begin If (FadwordsRedirect=AValue) then exit; FadwordsRedirect:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetageGroup(AIndex : Integer; const AValue : String); begin If (FageGroup=AValue) then exit; FageGroup:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.Setaspects(AIndex : Integer; const AValue : TProductTypeaspectsArray); begin If (Faspects=AValue) then exit; Faspects:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.Setavailability(AIndex : Integer; const AValue : String); begin If (Favailability=AValue) then exit; Favailability:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetavailabilityDate(AIndex : Integer; const AValue : String); begin If (FavailabilityDate=AValue) then exit; FavailabilityDate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.Setbrand(AIndex : Integer; const AValue : String); begin If (Fbrand=AValue) then exit; Fbrand:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.Setchannel(AIndex : Integer; const AValue : String); begin If (Fchannel=AValue) then exit; Fchannel:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.Setcolor(AIndex : Integer; const AValue : String); begin If (Fcolor=AValue) then exit; Fcolor:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.Setcondition(AIndex : Integer; const AValue : String); begin If (Fcondition=AValue) then exit; Fcondition:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetcontentLanguage(AIndex : Integer; const AValue : String); begin If (FcontentLanguage=AValue) then exit; FcontentLanguage:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetcustomAttributes(AIndex : Integer; const AValue : TProductTypecustomAttributesArray); begin If (FcustomAttributes=AValue) then exit; FcustomAttributes:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetcustomGroups(AIndex : Integer; const AValue : TProductTypecustomGroupsArray); begin If (FcustomGroups=AValue) then exit; FcustomGroups:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetcustomLabel0(AIndex : Integer; const AValue : String); begin If (FcustomLabel0=AValue) then exit; FcustomLabel0:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetcustomLabel1(AIndex : Integer; const AValue : String); begin If (FcustomLabel1=AValue) then exit; FcustomLabel1:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetcustomLabel2(AIndex : Integer; const AValue : String); begin If (FcustomLabel2=AValue) then exit; FcustomLabel2:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetcustomLabel3(AIndex : Integer; const AValue : String); begin If (FcustomLabel3=AValue) then exit; FcustomLabel3:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetcustomLabel4(AIndex : Integer; const AValue : String); begin If (FcustomLabel4=AValue) then exit; FcustomLabel4:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.Setdescription(AIndex : Integer; const AValue : String); begin If (Fdescription=AValue) then exit; Fdescription:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.Setdestinations(AIndex : Integer; const AValue : TProductTypedestinationsArray); begin If (Fdestinations=AValue) then exit; Fdestinations:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetdisplayAdsId(AIndex : Integer; const AValue : String); begin If (FdisplayAdsId=AValue) then exit; FdisplayAdsId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetdisplayAdsLink(AIndex : Integer; const AValue : String); begin If (FdisplayAdsLink=AValue) then exit; FdisplayAdsLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetdisplayAdsSimilarIds(AIndex : Integer; const AValue : TStringArray); begin If (FdisplayAdsSimilarIds=AValue) then exit; FdisplayAdsSimilarIds:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetdisplayAdsTitle(AIndex : Integer; const AValue : String); begin If (FdisplayAdsTitle=AValue) then exit; FdisplayAdsTitle:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetdisplayAdsValue(AIndex : Integer; const AValue : double); begin If (FdisplayAdsValue=AValue) then exit; FdisplayAdsValue:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetenergyEfficiencyClass(AIndex : Integer; const AValue : String); begin If (FenergyEfficiencyClass=AValue) then exit; FenergyEfficiencyClass:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetexpirationDate(AIndex : Integer; const AValue : String); begin If (FexpirationDate=AValue) then exit; FexpirationDate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.Setgender(AIndex : Integer; const AValue : String); begin If (Fgender=AValue) then exit; Fgender:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetgoogleProductCategory(AIndex : Integer; const AValue : String); begin If (FgoogleProductCategory=AValue) then exit; FgoogleProductCategory:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.Setgtin(AIndex : Integer; const AValue : String); begin If (Fgtin=AValue) then exit; Fgtin:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetidentifierExists(AIndex : Integer; const AValue : boolean); begin If (FidentifierExists=AValue) then exit; FidentifierExists:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetimageLink(AIndex : Integer; const AValue : String); begin If (FimageLink=AValue) then exit; FimageLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.Setinstallment(AIndex : Integer; const AValue : TInstallment); begin If (Finstallment=AValue) then exit; Finstallment:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetisBundle(AIndex : Integer; const AValue : boolean); begin If (FisBundle=AValue) then exit; FisBundle:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetitemGroupId(AIndex : Integer; const AValue : String); begin If (FitemGroupId=AValue) then exit; FitemGroupId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.Setlink(AIndex : Integer; const AValue : String); begin If (Flink=AValue) then exit; Flink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetloyaltyPoints(AIndex : Integer; const AValue : TLoyaltyPoints); begin If (FloyaltyPoints=AValue) then exit; FloyaltyPoints:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.Setmaterial(AIndex : Integer; const AValue : String); begin If (Fmaterial=AValue) then exit; Fmaterial:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetmobileLink(AIndex : Integer; const AValue : String); begin If (FmobileLink=AValue) then exit; FmobileLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.Setmpn(AIndex : Integer; const AValue : String); begin If (Fmpn=AValue) then exit; Fmpn:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.Setmultipack(AIndex : Integer; const AValue : String); begin If (Fmultipack=AValue) then exit; Fmultipack:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetofferId(AIndex : Integer; const AValue : String); begin If (FofferId=AValue) then exit; FofferId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetonlineOnly(AIndex : Integer; const AValue : boolean); begin If (FonlineOnly=AValue) then exit; FonlineOnly:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.Setpattern(AIndex : Integer; const AValue : String); begin If (Fpattern=AValue) then exit; Fpattern:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.Setprice(AIndex : Integer; const AValue : TPrice); begin If (Fprice=AValue) then exit; Fprice:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetproductType(AIndex : Integer; const AValue : String); begin If (FproductType=AValue) then exit; FproductType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetpromotionIds(AIndex : Integer; const AValue : TStringArray); begin If (FpromotionIds=AValue) then exit; FpromotionIds:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetsalePrice(AIndex : Integer; const AValue : TPrice); begin If (FsalePrice=AValue) then exit; FsalePrice:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetsalePriceEffectiveDate(AIndex : Integer; const AValue : String); begin If (FsalePriceEffectiveDate=AValue) then exit; FsalePriceEffectiveDate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetsellOnGoogleQuantity(AIndex : Integer; const AValue : String); begin If (FsellOnGoogleQuantity=AValue) then exit; FsellOnGoogleQuantity:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.Setshipping(AIndex : Integer; const AValue : TProductTypeshippingArray); begin If (Fshipping=AValue) then exit; Fshipping:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetshippingHeight(AIndex : Integer; const AValue : TProductShippingDimension); begin If (FshippingHeight=AValue) then exit; FshippingHeight:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetshippingLabel(AIndex : Integer; const AValue : String); begin If (FshippingLabel=AValue) then exit; FshippingLabel:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetshippingLength(AIndex : Integer; const AValue : TProductShippingDimension); begin If (FshippingLength=AValue) then exit; FshippingLength:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetshippingWeight(AIndex : Integer; const AValue : TProductShippingWeight); begin If (FshippingWeight=AValue) then exit; FshippingWeight:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetshippingWidth(AIndex : Integer; const AValue : TProductShippingDimension); begin If (FshippingWidth=AValue) then exit; FshippingWidth:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetsizeSystem(AIndex : Integer; const AValue : String); begin If (FsizeSystem=AValue) then exit; FsizeSystem:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetsizeType(AIndex : Integer; const AValue : String); begin If (FsizeType=AValue) then exit; FsizeType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.Setsizes(AIndex : Integer; const AValue : TStringArray); begin If (Fsizes=AValue) then exit; Fsizes:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SettargetCountry(AIndex : Integer; const AValue : String); begin If (FtargetCountry=AValue) then exit; FtargetCountry:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.Settaxes(AIndex : Integer; const AValue : TProductTypetaxesArray); begin If (Ftaxes=AValue) then exit; Ftaxes:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.Settitle(AIndex : Integer; const AValue : String); begin If (Ftitle=AValue) then exit; Ftitle:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetunitPricingBaseMeasure(AIndex : Integer; const AValue : TProductUnitPricingBaseMeasure); begin If (FunitPricingBaseMeasure=AValue) then exit; FunitPricingBaseMeasure:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetunitPricingMeasure(AIndex : Integer; const AValue : TProductUnitPricingMeasure); begin If (FunitPricingMeasure=AValue) then exit; FunitPricingMeasure:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetvalidatedDestinations(AIndex : Integer; const AValue : TStringArray); begin If (FvalidatedDestinations=AValue) then exit; FvalidatedDestinations:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.Setwarnings(AIndex : Integer; const AValue : TProductTypewarningsArray); begin If (Fwarnings=AValue) then exit; Fwarnings:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TProduct.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'additionalimagelinks' : SetLength(FadditionalImageLinks,ALength); 'adwordslabels' : SetLength(FadwordsLabels,ALength); 'aspects' : SetLength(Faspects,ALength); 'customattributes' : SetLength(FcustomAttributes,ALength); 'customgroups' : SetLength(FcustomGroups,ALength); 'destinations' : SetLength(Fdestinations,ALength); 'displayadssimilarids' : SetLength(FdisplayAdsSimilarIds,ALength); 'promotionids' : SetLength(FpromotionIds,ALength); 'shipping' : SetLength(Fshipping,ALength); 'sizes' : SetLength(Fsizes,ALength); 'taxes' : SetLength(Ftaxes,ALength); 'validateddestinations' : SetLength(FvalidatedDestinations,ALength); 'warnings' : SetLength(Fwarnings,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TProductAspect --------------------------------------------------------------------} Procedure TProductAspect.SetaspectName(AIndex : Integer; const AValue : String); begin If (FaspectName=AValue) then exit; FaspectName:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductAspect.SetdestinationName(AIndex : Integer; const AValue : String); begin If (FdestinationName=AValue) then exit; FdestinationName:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductAspect.Setintention(AIndex : Integer; const AValue : String); begin If (Fintention=AValue) then exit; Fintention:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TProductCustomAttribute --------------------------------------------------------------------} Procedure TProductCustomAttribute.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductCustomAttribute.Set_type(AIndex : Integer; const AValue : String); begin If (F_type=AValue) then exit; F_type:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductCustomAttribute.Set_unit(AIndex : Integer; const AValue : String); begin If (F_unit=AValue) then exit; F_unit:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductCustomAttribute.Setvalue(AIndex : Integer; const AValue : String); begin If (Fvalue=AValue) then exit; Fvalue:=AValue; MarkPropertyChanged(AIndex); end; Class Function TProductCustomAttribute.ExportPropertyName(Const AName : String) :String; begin Case AName of '_type' : Result:='type'; '_unit' : Result:='unit'; else Result:=Inherited ExportPropertyName(AName); end; end; { -------------------------------------------------------------------- TProductCustomGroup --------------------------------------------------------------------} Procedure TProductCustomGroup.Setattributes(AIndex : Integer; const AValue : TProductCustomGroupTypeattributesArray); begin If (Fattributes=AValue) then exit; Fattributes:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductCustomGroup.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TProductCustomGroup.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'attributes' : SetLength(Fattributes,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TProductDestination --------------------------------------------------------------------} Procedure TProductDestination.SetdestinationName(AIndex : Integer; const AValue : String); begin If (FdestinationName=AValue) then exit; FdestinationName:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductDestination.Setintention(AIndex : Integer; const AValue : String); begin If (Fintention=AValue) then exit; Fintention:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TProductShipping --------------------------------------------------------------------} Procedure TProductShipping.Setcountry(AIndex : Integer; const AValue : String); begin If (Fcountry=AValue) then exit; Fcountry:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductShipping.SetlocationGroupName(AIndex : Integer; const AValue : String); begin If (FlocationGroupName=AValue) then exit; FlocationGroupName:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductShipping.SetlocationId(AIndex : Integer; const AValue : String); begin If (FlocationId=AValue) then exit; FlocationId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductShipping.SetpostalCode(AIndex : Integer; const AValue : String); begin If (FpostalCode=AValue) then exit; FpostalCode:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductShipping.Setprice(AIndex : Integer; const AValue : TPrice); begin If (Fprice=AValue) then exit; Fprice:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductShipping.Setregion(AIndex : Integer; const AValue : String); begin If (Fregion=AValue) then exit; Fregion:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductShipping.Setservice(AIndex : Integer; const AValue : String); begin If (Fservice=AValue) then exit; Fservice:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TProductShippingDimension --------------------------------------------------------------------} Procedure TProductShippingDimension.Set_unit(AIndex : Integer; const AValue : String); begin If (F_unit=AValue) then exit; F_unit:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductShippingDimension.Setvalue(AIndex : Integer; const AValue : double); begin If (Fvalue=AValue) then exit; Fvalue:=AValue; MarkPropertyChanged(AIndex); end; Class Function TProductShippingDimension.ExportPropertyName(Const AName : String) :String; begin Case AName of '_unit' : Result:='unit'; else Result:=Inherited ExportPropertyName(AName); end; end; { -------------------------------------------------------------------- TProductShippingWeight --------------------------------------------------------------------} Procedure TProductShippingWeight.Set_unit(AIndex : Integer; const AValue : String); begin If (F_unit=AValue) then exit; F_unit:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductShippingWeight.Setvalue(AIndex : Integer; const AValue : double); begin If (Fvalue=AValue) then exit; Fvalue:=AValue; MarkPropertyChanged(AIndex); end; Class Function TProductShippingWeight.ExportPropertyName(Const AName : String) :String; begin Case AName of '_unit' : Result:='unit'; else Result:=Inherited ExportPropertyName(AName); end; end; { -------------------------------------------------------------------- TProductStatus --------------------------------------------------------------------} Procedure TProductStatus.SetcreationDate(AIndex : Integer; const AValue : String); begin If (FcreationDate=AValue) then exit; FcreationDate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductStatus.SetdataQualityIssues(AIndex : Integer; const AValue : TProductStatusTypedataQualityIssuesArray); begin If (FdataQualityIssues=AValue) then exit; FdataQualityIssues:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductStatus.SetdestinationStatuses(AIndex : Integer; const AValue : TProductStatusTypedestinationStatusesArray); begin If (FdestinationStatuses=AValue) then exit; FdestinationStatuses:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductStatus.SetgoogleExpirationDate(AIndex : Integer; const AValue : String); begin If (FgoogleExpirationDate=AValue) then exit; FgoogleExpirationDate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductStatus.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductStatus.SetlastUpdateDate(AIndex : Integer; const AValue : String); begin If (FlastUpdateDate=AValue) then exit; FlastUpdateDate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductStatus.Setlink(AIndex : Integer; const AValue : String); begin If (Flink=AValue) then exit; Flink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductStatus.SetproductId(AIndex : Integer; const AValue : String); begin If (FproductId=AValue) then exit; FproductId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductStatus.Settitle(AIndex : Integer; const AValue : String); begin If (Ftitle=AValue) then exit; Ftitle:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TProductStatus.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'dataqualityissues' : SetLength(FdataQualityIssues,ALength); 'destinationstatuses' : SetLength(FdestinationStatuses,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TProductStatusDataQualityIssue --------------------------------------------------------------------} Procedure TProductStatusDataQualityIssue.Setdetail(AIndex : Integer; const AValue : String); begin If (Fdetail=AValue) then exit; Fdetail:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductStatusDataQualityIssue.SetfetchStatus(AIndex : Integer; const AValue : String); begin If (FfetchStatus=AValue) then exit; FfetchStatus:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductStatusDataQualityIssue.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductStatusDataQualityIssue.Setlocation(AIndex : Integer; const AValue : String); begin If (Flocation=AValue) then exit; Flocation:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductStatusDataQualityIssue.Setseverity(AIndex : Integer; const AValue : String); begin If (Fseverity=AValue) then exit; Fseverity:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductStatusDataQualityIssue.Settimestamp(AIndex : Integer; const AValue : String); begin If (Ftimestamp=AValue) then exit; Ftimestamp:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductStatusDataQualityIssue.SetvalueOnLandingPage(AIndex : Integer; const AValue : String); begin If (FvalueOnLandingPage=AValue) then exit; FvalueOnLandingPage:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductStatusDataQualityIssue.SetvalueProvided(AIndex : Integer; const AValue : String); begin If (FvalueProvided=AValue) then exit; FvalueProvided:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TProductStatusDestinationStatus --------------------------------------------------------------------} Procedure TProductStatusDestinationStatus.SetapprovalStatus(AIndex : Integer; const AValue : String); begin If (FapprovalStatus=AValue) then exit; FapprovalStatus:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductStatusDestinationStatus.Setdestination(AIndex : Integer; const AValue : String); begin If (Fdestination=AValue) then exit; Fdestination:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductStatusDestinationStatus.Setintention(AIndex : Integer; const AValue : String); begin If (Fintention=AValue) then exit; Fintention:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TProductTax --------------------------------------------------------------------} Procedure TProductTax.Setcountry(AIndex : Integer; const AValue : String); begin If (Fcountry=AValue) then exit; Fcountry:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductTax.SetlocationId(AIndex : Integer; const AValue : String); begin If (FlocationId=AValue) then exit; FlocationId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductTax.SetpostalCode(AIndex : Integer; const AValue : String); begin If (FpostalCode=AValue) then exit; FpostalCode:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductTax.Setrate(AIndex : Integer; const AValue : double); begin If (Frate=AValue) then exit; Frate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductTax.Setregion(AIndex : Integer; const AValue : String); begin If (Fregion=AValue) then exit; Fregion:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductTax.SettaxShip(AIndex : Integer; const AValue : boolean); begin If (FtaxShip=AValue) then exit; FtaxShip:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TProductUnitPricingBaseMeasure --------------------------------------------------------------------} Procedure TProductUnitPricingBaseMeasure.Set_unit(AIndex : Integer; const AValue : String); begin If (F_unit=AValue) then exit; F_unit:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductUnitPricingBaseMeasure.Setvalue(AIndex : Integer; const AValue : String); begin If (Fvalue=AValue) then exit; Fvalue:=AValue; MarkPropertyChanged(AIndex); end; Class Function TProductUnitPricingBaseMeasure.ExportPropertyName(Const AName : String) :String; begin Case AName of '_unit' : Result:='unit'; else Result:=Inherited ExportPropertyName(AName); end; end; { -------------------------------------------------------------------- TProductUnitPricingMeasure --------------------------------------------------------------------} Procedure TProductUnitPricingMeasure.Set_unit(AIndex : Integer; const AValue : String); begin If (F_unit=AValue) then exit; F_unit:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductUnitPricingMeasure.Setvalue(AIndex : Integer; const AValue : double); begin If (Fvalue=AValue) then exit; Fvalue:=AValue; MarkPropertyChanged(AIndex); end; Class Function TProductUnitPricingMeasure.ExportPropertyName(Const AName : String) :String; begin Case AName of '_unit' : Result:='unit'; else Result:=Inherited ExportPropertyName(AName); end; end; { -------------------------------------------------------------------- TProductsCustomBatchRequest --------------------------------------------------------------------} Procedure TProductsCustomBatchRequest.Setentries(AIndex : Integer; const AValue : TProductsCustomBatchRequestTypeentriesArray); begin If (Fentries=AValue) then exit; Fentries:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TProductsCustomBatchRequest.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'entries' : SetLength(Fentries,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TProductsCustomBatchRequestEntry --------------------------------------------------------------------} Procedure TProductsCustomBatchRequestEntry.SetbatchId(AIndex : Integer; const AValue : integer); begin If (FbatchId=AValue) then exit; FbatchId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductsCustomBatchRequestEntry.SetmerchantId(AIndex : Integer; const AValue : String); begin If (FmerchantId=AValue) then exit; FmerchantId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductsCustomBatchRequestEntry.Setmethod(AIndex : Integer; const AValue : String); begin If (Fmethod=AValue) then exit; Fmethod:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductsCustomBatchRequestEntry.Setproduct(AIndex : Integer; const AValue : TProduct); begin If (Fproduct=AValue) then exit; Fproduct:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductsCustomBatchRequestEntry.SetproductId(AIndex : Integer; const AValue : String); begin If (FproductId=AValue) then exit; FproductId:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TProductsCustomBatchResponse --------------------------------------------------------------------} Procedure TProductsCustomBatchResponse.Setentries(AIndex : Integer; const AValue : TProductsCustomBatchResponseTypeentriesArray); begin If (Fentries=AValue) then exit; Fentries:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductsCustomBatchResponse.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TProductsCustomBatchResponse.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'entries' : SetLength(Fentries,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TProductsCustomBatchResponseEntry --------------------------------------------------------------------} Procedure TProductsCustomBatchResponseEntry.SetbatchId(AIndex : Integer; const AValue : integer); begin If (FbatchId=AValue) then exit; FbatchId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductsCustomBatchResponseEntry.Seterrors(AIndex : Integer; const AValue : TErrors); begin If (Ferrors=AValue) then exit; Ferrors:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductsCustomBatchResponseEntry.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductsCustomBatchResponseEntry.Setproduct(AIndex : Integer; const AValue : TProduct); begin If (Fproduct=AValue) then exit; Fproduct:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TProductsListResponse --------------------------------------------------------------------} Procedure TProductsListResponse.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductsListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); begin If (FnextPageToken=AValue) then exit; FnextPageToken:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductsListResponse.Setresources(AIndex : Integer; const AValue : TProductsListResponseTyperesourcesArray); begin If (Fresources=AValue) then exit; Fresources:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TProductsListResponse.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'resources' : SetLength(Fresources,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TProductstatusesCustomBatchRequest --------------------------------------------------------------------} Procedure TProductstatusesCustomBatchRequest.Setentries(AIndex : Integer; const AValue : TProductstatusesCustomBatchRequestTypeentriesArray); begin If (Fentries=AValue) then exit; Fentries:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TProductstatusesCustomBatchRequest.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'entries' : SetLength(Fentries,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TProductstatusesCustomBatchRequestEntry --------------------------------------------------------------------} Procedure TProductstatusesCustomBatchRequestEntry.SetbatchId(AIndex : Integer; const AValue : integer); begin If (FbatchId=AValue) then exit; FbatchId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductstatusesCustomBatchRequestEntry.SetmerchantId(AIndex : Integer; const AValue : String); begin If (FmerchantId=AValue) then exit; FmerchantId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductstatusesCustomBatchRequestEntry.Setmethod(AIndex : Integer; const AValue : String); begin If (Fmethod=AValue) then exit; Fmethod:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductstatusesCustomBatchRequestEntry.SetproductId(AIndex : Integer; const AValue : String); begin If (FproductId=AValue) then exit; FproductId:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TProductstatusesCustomBatchResponse --------------------------------------------------------------------} Procedure TProductstatusesCustomBatchResponse.Setentries(AIndex : Integer; const AValue : TProductstatusesCustomBatchResponseTypeentriesArray); begin If (Fentries=AValue) then exit; Fentries:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductstatusesCustomBatchResponse.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TProductstatusesCustomBatchResponse.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'entries' : SetLength(Fentries,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TProductstatusesCustomBatchResponseEntry --------------------------------------------------------------------} Procedure TProductstatusesCustomBatchResponseEntry.SetbatchId(AIndex : Integer; const AValue : integer); begin If (FbatchId=AValue) then exit; FbatchId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductstatusesCustomBatchResponseEntry.Seterrors(AIndex : Integer; const AValue : TErrors); begin If (Ferrors=AValue) then exit; Ferrors:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductstatusesCustomBatchResponseEntry.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductstatusesCustomBatchResponseEntry.SetproductStatus(AIndex : Integer; const AValue : TProductStatus); begin If (FproductStatus=AValue) then exit; FproductStatus:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TProductstatusesListResponse --------------------------------------------------------------------} Procedure TProductstatusesListResponse.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductstatusesListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); begin If (FnextPageToken=AValue) then exit; FnextPageToken:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProductstatusesListResponse.Setresources(AIndex : Integer; const AValue : TProductstatusesListResponseTyperesourcesArray); begin If (Fresources=AValue) then exit; Fresources:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TProductstatusesListResponse.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'resources' : SetLength(Fresources,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TTestOrder --------------------------------------------------------------------} Procedure TTestOrder.Setcustomer(AIndex : Integer; const AValue : TTestOrderCustomer); begin If (Fcustomer=AValue) then exit; Fcustomer:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTestOrder.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTestOrder.SetlineItems(AIndex : Integer; const AValue : TTestOrderTypelineItemsArray); begin If (FlineItems=AValue) then exit; FlineItems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTestOrder.SetpaymentMethod(AIndex : Integer; const AValue : TTestOrderPaymentMethod); begin If (FpaymentMethod=AValue) then exit; FpaymentMethod:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTestOrder.SetpredefinedDeliveryAddress(AIndex : Integer; const AValue : String); begin If (FpredefinedDeliveryAddress=AValue) then exit; FpredefinedDeliveryAddress:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTestOrder.Setpromotions(AIndex : Integer; const AValue : TTestOrderTypepromotionsArray); begin If (Fpromotions=AValue) then exit; Fpromotions:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTestOrder.SetshippingCost(AIndex : Integer; const AValue : TPrice); begin If (FshippingCost=AValue) then exit; FshippingCost:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTestOrder.SetshippingCostTax(AIndex : Integer; const AValue : TPrice); begin If (FshippingCostTax=AValue) then exit; FshippingCostTax:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTestOrder.SetshippingOption(AIndex : Integer; const AValue : String); begin If (FshippingOption=AValue) then exit; FshippingOption:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TTestOrder.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'lineitems' : SetLength(FlineItems,ALength); 'promotions' : SetLength(Fpromotions,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TTestOrderCustomer --------------------------------------------------------------------} Procedure TTestOrderCustomer.Setemail(AIndex : Integer; const AValue : String); begin If (Femail=AValue) then exit; Femail:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTestOrderCustomer.SetexplicitMarketingPreference(AIndex : Integer; const AValue : boolean); begin If (FexplicitMarketingPreference=AValue) then exit; FexplicitMarketingPreference:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTestOrderCustomer.SetfullName(AIndex : Integer; const AValue : String); begin If (FfullName=AValue) then exit; FfullName:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TTestOrderLineItem --------------------------------------------------------------------} Procedure TTestOrderLineItem.Setproduct(AIndex : Integer; const AValue : TTestOrderLineItemProduct); begin If (Fproduct=AValue) then exit; Fproduct:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTestOrderLineItem.SetquantityOrdered(AIndex : Integer; const AValue : integer); begin If (FquantityOrdered=AValue) then exit; FquantityOrdered:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTestOrderLineItem.SetreturnInfo(AIndex : Integer; const AValue : TOrderLineItemReturnInfo); begin If (FreturnInfo=AValue) then exit; FreturnInfo:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTestOrderLineItem.SetshippingDetails(AIndex : Integer; const AValue : TOrderLineItemShippingDetails); begin If (FshippingDetails=AValue) then exit; FshippingDetails:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTestOrderLineItem.SetunitTax(AIndex : Integer; const AValue : TPrice); begin If (FunitTax=AValue) then exit; FunitTax:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TTestOrderLineItemProduct --------------------------------------------------------------------} Procedure TTestOrderLineItemProduct.Setbrand(AIndex : Integer; const AValue : String); begin If (Fbrand=AValue) then exit; Fbrand:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTestOrderLineItemProduct.Setchannel(AIndex : Integer; const AValue : String); begin If (Fchannel=AValue) then exit; Fchannel:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTestOrderLineItemProduct.Setcondition(AIndex : Integer; const AValue : String); begin If (Fcondition=AValue) then exit; Fcondition:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTestOrderLineItemProduct.SetcontentLanguage(AIndex : Integer; const AValue : String); begin If (FcontentLanguage=AValue) then exit; FcontentLanguage:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTestOrderLineItemProduct.Setgtin(AIndex : Integer; const AValue : String); begin If (Fgtin=AValue) then exit; Fgtin:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTestOrderLineItemProduct.SetimageLink(AIndex : Integer; const AValue : String); begin If (FimageLink=AValue) then exit; FimageLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTestOrderLineItemProduct.SetitemGroupId(AIndex : Integer; const AValue : String); begin If (FitemGroupId=AValue) then exit; FitemGroupId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTestOrderLineItemProduct.Setmpn(AIndex : Integer; const AValue : String); begin If (Fmpn=AValue) then exit; Fmpn:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTestOrderLineItemProduct.SetofferId(AIndex : Integer; const AValue : String); begin If (FofferId=AValue) then exit; FofferId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTestOrderLineItemProduct.Setprice(AIndex : Integer; const AValue : TPrice); begin If (Fprice=AValue) then exit; Fprice:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTestOrderLineItemProduct.SettargetCountry(AIndex : Integer; const AValue : String); begin If (FtargetCountry=AValue) then exit; FtargetCountry:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTestOrderLineItemProduct.Settitle(AIndex : Integer; const AValue : String); begin If (Ftitle=AValue) then exit; Ftitle:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTestOrderLineItemProduct.SetvariantAttributes(AIndex : Integer; const AValue : TTestOrderLineItemProductTypevariantAttributesArray); begin If (FvariantAttributes=AValue) then exit; FvariantAttributes:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TTestOrderLineItemProduct.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'variantattributes' : SetLength(FvariantAttributes,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TTestOrderPaymentMethod --------------------------------------------------------------------} Procedure TTestOrderPaymentMethod.SetexpirationMonth(AIndex : Integer; const AValue : integer); begin If (FexpirationMonth=AValue) then exit; FexpirationMonth:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTestOrderPaymentMethod.SetexpirationYear(AIndex : Integer; const AValue : integer); begin If (FexpirationYear=AValue) then exit; FexpirationYear:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTestOrderPaymentMethod.SetlastFourDigits(AIndex : Integer; const AValue : String); begin If (FlastFourDigits=AValue) then exit; FlastFourDigits:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTestOrderPaymentMethod.SetpredefinedBillingAddress(AIndex : Integer; const AValue : String); begin If (FpredefinedBillingAddress=AValue) then exit; FpredefinedBillingAddress:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTestOrderPaymentMethod.Set_type(AIndex : Integer; const AValue : String); begin If (F_type=AValue) then exit; F_type:=AValue; MarkPropertyChanged(AIndex); end; Class Function TTestOrderPaymentMethod.ExportPropertyName(Const AName : String) :String; begin Case AName of '_type' : Result:='type'; else Result:=Inherited ExportPropertyName(AName); end; end; { -------------------------------------------------------------------- TWeight --------------------------------------------------------------------} Procedure TWeight.Set_unit(AIndex : Integer; const AValue : String); begin If (F_unit=AValue) then exit; F_unit:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWeight.Setvalue(AIndex : Integer; const AValue : String); begin If (Fvalue=AValue) then exit; Fvalue:=AValue; MarkPropertyChanged(AIndex); end; Class Function TWeight.ExportPropertyName(Const AName : String) :String; begin Case AName of '_unit' : Result:='unit'; else Result:=Inherited ExportPropertyName(AName); end; end; { -------------------------------------------------------------------- TAccountsResource --------------------------------------------------------------------} Class Function TAccountsResource.ResourceName : String; begin Result:='accounts'; end; Class Function TAccountsResource.DefaultAPI : TGoogleAPIClass; begin Result:=TcontentAPI; end; Function TAccountsResource.Authinfo : TAccountsAuthInfoResponse; Const _HTTPMethod = 'GET'; _Path = 'accounts/authinfo'; _Methodid = 'content.accounts.authinfo'; begin Result:=ServiceCall(_HTTPMethod,_Path,'',Nil,TAccountsAuthInfoResponse) as TAccountsAuthInfoResponse; end; Function TAccountsResource.Custombatch(aAccountsCustomBatchRequest : TAccountsCustomBatchRequest; AQuery : string = '') : TAccountsCustomBatchResponse; Const _HTTPMethod = 'POST'; _Path = 'accounts/batch'; _Methodid = 'content.accounts.custombatch'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aAccountsCustomBatchRequest,TAccountsCustomBatchResponse) as TAccountsCustomBatchResponse; end; Function TAccountsResource.Custombatch(aAccountsCustomBatchRequest : TAccountsCustomBatchRequest; AQuery : TAccountscustombatchOptions) : TAccountsCustomBatchResponse; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'dryRun',AQuery.dryRun); Result:=Custombatch(aAccountsCustomBatchRequest,_Q); end; Procedure TAccountsResource.Delete(accountId: string; merchantId: string; AQuery : string = ''); Const _HTTPMethod = 'DELETE'; _Path = '{merchantId}/accounts/{accountId}'; _Methodid = 'content.accounts.delete'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'merchantId',merchantId]); ServiceCall(_HTTPMethod,_P,AQuery,Nil,Nil); end; Procedure TAccountsResource.Delete(accountId: string; merchantId: string; AQuery : TAccountsdeleteOptions); Var _Q : String; begin _Q:=''; AddToQuery(_Q,'dryRun',AQuery.dryRun); Delete(accountId,merchantId,_Q); end; Function TAccountsResource.Get(accountId: string; merchantId: string) : TAccount; Const _HTTPMethod = 'GET'; _Path = '{merchantId}/accounts/{accountId}'; _Methodid = 'content.accounts.get'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'merchantId',merchantId]); Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TAccount) as TAccount; end; Function TAccountsResource.Insert(merchantId: string; aAccount : TAccount; AQuery : string = '') : TAccount; Const _HTTPMethod = 'POST'; _Path = '{merchantId}/accounts'; _Methodid = 'content.accounts.insert'; Var _P : String; begin _P:=SubstitutePath(_Path,['merchantId',merchantId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,aAccount,TAccount) as TAccount; end; Function TAccountsResource.Insert(merchantId: string; aAccount : TAccount; AQuery : TAccountsinsertOptions) : TAccount; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'dryRun',AQuery.dryRun); Result:=Insert(merchantId,aAccount,_Q); end; Function TAccountsResource.List(merchantId: string; AQuery : string = '') : TAccountsListResponse; Const _HTTPMethod = 'GET'; _Path = '{merchantId}/accounts'; _Methodid = 'content.accounts.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['merchantId',merchantId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TAccountsListResponse) as TAccountsListResponse; end; Function TAccountsResource.List(merchantId: string; AQuery : TAccountslistOptions) : TAccountsListResponse; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'maxResults',AQuery.maxResults); AddToQuery(_Q,'pageToken',AQuery.pageToken); Result:=List(merchantId,_Q); end; Function TAccountsResource.Patch(accountId: string; merchantId: string; aAccount : TAccount; AQuery : string = '') : TAccount; Const _HTTPMethod = 'PATCH'; _Path = '{merchantId}/accounts/{accountId}'; _Methodid = 'content.accounts.patch'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'merchantId',merchantId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,aAccount,TAccount) as TAccount; end; Function TAccountsResource.Patch(accountId: string; merchantId: string; aAccount : TAccount; AQuery : TAccountspatchOptions) : TAccount; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'dryRun',AQuery.dryRun); Result:=Patch(accountId,merchantId,aAccount,_Q); end; Function TAccountsResource.Update(accountId: string; merchantId: string; aAccount : TAccount; AQuery : string = '') : TAccount; Const _HTTPMethod = 'PUT'; _Path = '{merchantId}/accounts/{accountId}'; _Methodid = 'content.accounts.update'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'merchantId',merchantId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,aAccount,TAccount) as TAccount; end; Function TAccountsResource.Update(accountId: string; merchantId: string; aAccount : TAccount; AQuery : TAccountsupdateOptions) : TAccount; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'dryRun',AQuery.dryRun); Result:=Update(accountId,merchantId,aAccount,_Q); end; { -------------------------------------------------------------------- TAccountshippingResource --------------------------------------------------------------------} Class Function TAccountshippingResource.ResourceName : String; begin Result:='accountshipping'; end; Class Function TAccountshippingResource.DefaultAPI : TGoogleAPIClass; begin Result:=TcontentAPI; end; Function TAccountshippingResource.Custombatch(aAccountshippingCustomBatchRequest : TAccountshippingCustomBatchRequest; AQuery : string = '') : TAccountshippingCustomBatchResponse; Const _HTTPMethod = 'POST'; _Path = 'accountshipping/batch'; _Methodid = 'content.accountshipping.custombatch'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aAccountshippingCustomBatchRequest,TAccountshippingCustomBatchResponse) as TAccountshippingCustomBatchResponse; end; Function TAccountshippingResource.Custombatch(aAccountshippingCustomBatchRequest : TAccountshippingCustomBatchRequest; AQuery : TAccountshippingcustombatchOptions) : TAccountshippingCustomBatchResponse; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'dryRun',AQuery.dryRun); Result:=Custombatch(aAccountshippingCustomBatchRequest,_Q); end; Function TAccountshippingResource.Get(accountId: string; merchantId: string) : TAccountShipping; Const _HTTPMethod = 'GET'; _Path = '{merchantId}/accountshipping/{accountId}'; _Methodid = 'content.accountshipping.get'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'merchantId',merchantId]); Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TAccountShipping) as TAccountShipping; end; Function TAccountshippingResource.List(merchantId: string; AQuery : string = '') : TAccountshippingListResponse; Const _HTTPMethod = 'GET'; _Path = '{merchantId}/accountshipping'; _Methodid = 'content.accountshipping.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['merchantId',merchantId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TAccountshippingListResponse) as TAccountshippingListResponse; end; Function TAccountshippingResource.List(merchantId: string; AQuery : TAccountshippinglistOptions) : TAccountshippingListResponse; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'maxResults',AQuery.maxResults); AddToQuery(_Q,'pageToken',AQuery.pageToken); Result:=List(merchantId,_Q); end; Function TAccountshippingResource.Patch(accountId: string; merchantId: string; aAccountShipping : TAccountShipping; AQuery : string = '') : TAccountShipping; Const _HTTPMethod = 'PATCH'; _Path = '{merchantId}/accountshipping/{accountId}'; _Methodid = 'content.accountshipping.patch'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'merchantId',merchantId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,aAccountShipping,TAccountShipping) as TAccountShipping; end; Function TAccountshippingResource.Patch(accountId: string; merchantId: string; aAccountShipping : TAccountShipping; AQuery : TAccountshippingpatchOptions) : TAccountShipping; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'dryRun',AQuery.dryRun); Result:=Patch(accountId,merchantId,aAccountShipping,_Q); end; Function TAccountshippingResource.Update(accountId: string; merchantId: string; aAccountShipping : TAccountShipping; AQuery : string = '') : TAccountShipping; Const _HTTPMethod = 'PUT'; _Path = '{merchantId}/accountshipping/{accountId}'; _Methodid = 'content.accountshipping.update'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'merchantId',merchantId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,aAccountShipping,TAccountShipping) as TAccountShipping; end; Function TAccountshippingResource.Update(accountId: string; merchantId: string; aAccountShipping : TAccountShipping; AQuery : TAccountshippingupdateOptions) : TAccountShipping; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'dryRun',AQuery.dryRun); Result:=Update(accountId,merchantId,aAccountShipping,_Q); end; { -------------------------------------------------------------------- TAccountstatusesResource --------------------------------------------------------------------} Class Function TAccountstatusesResource.ResourceName : String; begin Result:='accountstatuses'; end; Class Function TAccountstatusesResource.DefaultAPI : TGoogleAPIClass; begin Result:=TcontentAPI; end; Function TAccountstatusesResource.Custombatch(aAccountstatusesCustomBatchRequest : TAccountstatusesCustomBatchRequest) : TAccountstatusesCustomBatchResponse; Const _HTTPMethod = 'POST'; _Path = 'accountstatuses/batch'; _Methodid = 'content.accountstatuses.custombatch'; begin Result:=ServiceCall(_HTTPMethod,_Path,'',aAccountstatusesCustomBatchRequest,TAccountstatusesCustomBatchResponse) as TAccountstatusesCustomBatchResponse; end; Function TAccountstatusesResource.Get(accountId: string; merchantId: string) : TAccountStatus; Const _HTTPMethod = 'GET'; _Path = '{merchantId}/accountstatuses/{accountId}'; _Methodid = 'content.accountstatuses.get'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'merchantId',merchantId]); Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TAccountStatus) as TAccountStatus; end; Function TAccountstatusesResource.List(merchantId: string; AQuery : string = '') : TAccountstatusesListResponse; Const _HTTPMethod = 'GET'; _Path = '{merchantId}/accountstatuses'; _Methodid = 'content.accountstatuses.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['merchantId',merchantId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TAccountstatusesListResponse) as TAccountstatusesListResponse; end; Function TAccountstatusesResource.List(merchantId: string; AQuery : TAccountstatuseslistOptions) : TAccountstatusesListResponse; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'maxResults',AQuery.maxResults); AddToQuery(_Q,'pageToken',AQuery.pageToken); Result:=List(merchantId,_Q); end; { -------------------------------------------------------------------- TAccounttaxResource --------------------------------------------------------------------} Class Function TAccounttaxResource.ResourceName : String; begin Result:='accounttax'; end; Class Function TAccounttaxResource.DefaultAPI : TGoogleAPIClass; begin Result:=TcontentAPI; end; Function TAccounttaxResource.Custombatch(aAccounttaxCustomBatchRequest : TAccounttaxCustomBatchRequest; AQuery : string = '') : TAccounttaxCustomBatchResponse; Const _HTTPMethod = 'POST'; _Path = 'accounttax/batch'; _Methodid = 'content.accounttax.custombatch'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aAccounttaxCustomBatchRequest,TAccounttaxCustomBatchResponse) as TAccounttaxCustomBatchResponse; end; Function TAccounttaxResource.Custombatch(aAccounttaxCustomBatchRequest : TAccounttaxCustomBatchRequest; AQuery : TAccounttaxcustombatchOptions) : TAccounttaxCustomBatchResponse; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'dryRun',AQuery.dryRun); Result:=Custombatch(aAccounttaxCustomBatchRequest,_Q); end; Function TAccounttaxResource.Get(accountId: string; merchantId: string) : TAccountTax; Const _HTTPMethod = 'GET'; _Path = '{merchantId}/accounttax/{accountId}'; _Methodid = 'content.accounttax.get'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'merchantId',merchantId]); Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TAccountTax) as TAccountTax; end; Function TAccounttaxResource.List(merchantId: string; AQuery : string = '') : TAccounttaxListResponse; Const _HTTPMethod = 'GET'; _Path = '{merchantId}/accounttax'; _Methodid = 'content.accounttax.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['merchantId',merchantId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TAccounttaxListResponse) as TAccounttaxListResponse; end; Function TAccounttaxResource.List(merchantId: string; AQuery : TAccounttaxlistOptions) : TAccounttaxListResponse; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'maxResults',AQuery.maxResults); AddToQuery(_Q,'pageToken',AQuery.pageToken); Result:=List(merchantId,_Q); end; Function TAccounttaxResource.Patch(accountId: string; merchantId: string; aAccountTax : TAccountTax; AQuery : string = '') : TAccountTax; Const _HTTPMethod = 'PATCH'; _Path = '{merchantId}/accounttax/{accountId}'; _Methodid = 'content.accounttax.patch'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'merchantId',merchantId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,aAccountTax,TAccountTax) as TAccountTax; end; Function TAccounttaxResource.Patch(accountId: string; merchantId: string; aAccountTax : TAccountTax; AQuery : TAccounttaxpatchOptions) : TAccountTax; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'dryRun',AQuery.dryRun); Result:=Patch(accountId,merchantId,aAccountTax,_Q); end; Function TAccounttaxResource.Update(accountId: string; merchantId: string; aAccountTax : TAccountTax; AQuery : string = '') : TAccountTax; Const _HTTPMethod = 'PUT'; _Path = '{merchantId}/accounttax/{accountId}'; _Methodid = 'content.accounttax.update'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'merchantId',merchantId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,aAccountTax,TAccountTax) as TAccountTax; end; Function TAccounttaxResource.Update(accountId: string; merchantId: string; aAccountTax : TAccountTax; AQuery : TAccounttaxupdateOptions) : TAccountTax; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'dryRun',AQuery.dryRun); Result:=Update(accountId,merchantId,aAccountTax,_Q); end; { -------------------------------------------------------------------- TDatafeedsResource --------------------------------------------------------------------} Class Function TDatafeedsResource.ResourceName : String; begin Result:='datafeeds'; end; Class Function TDatafeedsResource.DefaultAPI : TGoogleAPIClass; begin Result:=TcontentAPI; end; Function TDatafeedsResource.Custombatch(aDatafeedsCustomBatchRequest : TDatafeedsCustomBatchRequest; AQuery : string = '') : TDatafeedsCustomBatchResponse; Const _HTTPMethod = 'POST'; _Path = 'datafeeds/batch'; _Methodid = 'content.datafeeds.custombatch'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aDatafeedsCustomBatchRequest,TDatafeedsCustomBatchResponse) as TDatafeedsCustomBatchResponse; end; Function TDatafeedsResource.Custombatch(aDatafeedsCustomBatchRequest : TDatafeedsCustomBatchRequest; AQuery : TDatafeedscustombatchOptions) : TDatafeedsCustomBatchResponse; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'dryRun',AQuery.dryRun); Result:=Custombatch(aDatafeedsCustomBatchRequest,_Q); end; Procedure TDatafeedsResource.Delete(datafeedId: string; merchantId: string; AQuery : string = ''); Const _HTTPMethod = 'DELETE'; _Path = '{merchantId}/datafeeds/{datafeedId}'; _Methodid = 'content.datafeeds.delete'; Var _P : String; begin _P:=SubstitutePath(_Path,['datafeedId',datafeedId,'merchantId',merchantId]); ServiceCall(_HTTPMethod,_P,AQuery,Nil,Nil); end; Procedure TDatafeedsResource.Delete(datafeedId: string; merchantId: string; AQuery : TDatafeedsdeleteOptions); Var _Q : String; begin _Q:=''; AddToQuery(_Q,'dryRun',AQuery.dryRun); Delete(datafeedId,merchantId,_Q); end; Function TDatafeedsResource.Get(datafeedId: string; merchantId: string) : TDatafeed; Const _HTTPMethod = 'GET'; _Path = '{merchantId}/datafeeds/{datafeedId}'; _Methodid = 'content.datafeeds.get'; Var _P : String; begin _P:=SubstitutePath(_Path,['datafeedId',datafeedId,'merchantId',merchantId]); Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TDatafeed) as TDatafeed; end; Function TDatafeedsResource.Insert(merchantId: string; aDatafeed : TDatafeed; AQuery : string = '') : TDatafeed; Const _HTTPMethod = 'POST'; _Path = '{merchantId}/datafeeds'; _Methodid = 'content.datafeeds.insert'; Var _P : String; begin _P:=SubstitutePath(_Path,['merchantId',merchantId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,aDatafeed,TDatafeed) as TDatafeed; end; Function TDatafeedsResource.Insert(merchantId: string; aDatafeed : TDatafeed; AQuery : TDatafeedsinsertOptions) : TDatafeed; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'dryRun',AQuery.dryRun); Result:=Insert(merchantId,aDatafeed,_Q); end; Function TDatafeedsResource.List(merchantId: string; AQuery : string = '') : TDatafeedsListResponse; Const _HTTPMethod = 'GET'; _Path = '{merchantId}/datafeeds'; _Methodid = 'content.datafeeds.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['merchantId',merchantId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TDatafeedsListResponse) as TDatafeedsListResponse; end; Function TDatafeedsResource.List(merchantId: string; AQuery : TDatafeedslistOptions) : TDatafeedsListResponse; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'maxResults',AQuery.maxResults); AddToQuery(_Q,'pageToken',AQuery.pageToken); Result:=List(merchantId,_Q); end; Function TDatafeedsResource.Patch(datafeedId: string; merchantId: string; aDatafeed : TDatafeed; AQuery : string = '') : TDatafeed; Const _HTTPMethod = 'PATCH'; _Path = '{merchantId}/datafeeds/{datafeedId}'; _Methodid = 'content.datafeeds.patch'; Var _P : String; begin _P:=SubstitutePath(_Path,['datafeedId',datafeedId,'merchantId',merchantId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,aDatafeed,TDatafeed) as TDatafeed; end; Function TDatafeedsResource.Patch(datafeedId: string; merchantId: string; aDatafeed : TDatafeed; AQuery : TDatafeedspatchOptions) : TDatafeed; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'dryRun',AQuery.dryRun); Result:=Patch(datafeedId,merchantId,aDatafeed,_Q); end; Function TDatafeedsResource.Update(datafeedId: string; merchantId: string; aDatafeed : TDatafeed; AQuery : string = '') : TDatafeed; Const _HTTPMethod = 'PUT'; _Path = '{merchantId}/datafeeds/{datafeedId}'; _Methodid = 'content.datafeeds.update'; Var _P : String; begin _P:=SubstitutePath(_Path,['datafeedId',datafeedId,'merchantId',merchantId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,aDatafeed,TDatafeed) as TDatafeed; end; Function TDatafeedsResource.Update(datafeedId: string; merchantId: string; aDatafeed : TDatafeed; AQuery : TDatafeedsupdateOptions) : TDatafeed; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'dryRun',AQuery.dryRun); Result:=Update(datafeedId,merchantId,aDatafeed,_Q); end; { -------------------------------------------------------------------- TDatafeedstatusesResource --------------------------------------------------------------------} Class Function TDatafeedstatusesResource.ResourceName : String; begin Result:='datafeedstatuses'; end; Class Function TDatafeedstatusesResource.DefaultAPI : TGoogleAPIClass; begin Result:=TcontentAPI; end; Function TDatafeedstatusesResource.Custombatch(aDatafeedstatusesCustomBatchRequest : TDatafeedstatusesCustomBatchRequest) : TDatafeedstatusesCustomBatchResponse; Const _HTTPMethod = 'POST'; _Path = 'datafeedstatuses/batch'; _Methodid = 'content.datafeedstatuses.custombatch'; begin Result:=ServiceCall(_HTTPMethod,_Path,'',aDatafeedstatusesCustomBatchRequest,TDatafeedstatusesCustomBatchResponse) as TDatafeedstatusesCustomBatchResponse; end; Function TDatafeedstatusesResource.Get(datafeedId: string; merchantId: string) : TDatafeedStatus; Const _HTTPMethod = 'GET'; _Path = '{merchantId}/datafeedstatuses/{datafeedId}'; _Methodid = 'content.datafeedstatuses.get'; Var _P : String; begin _P:=SubstitutePath(_Path,['datafeedId',datafeedId,'merchantId',merchantId]); Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TDatafeedStatus) as TDatafeedStatus; end; Function TDatafeedstatusesResource.List(merchantId: string; AQuery : string = '') : TDatafeedstatusesListResponse; Const _HTTPMethod = 'GET'; _Path = '{merchantId}/datafeedstatuses'; _Methodid = 'content.datafeedstatuses.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['merchantId',merchantId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TDatafeedstatusesListResponse) as TDatafeedstatusesListResponse; end; Function TDatafeedstatusesResource.List(merchantId: string; AQuery : TDatafeedstatuseslistOptions) : TDatafeedstatusesListResponse; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'maxResults',AQuery.maxResults); AddToQuery(_Q,'pageToken',AQuery.pageToken); Result:=List(merchantId,_Q); end; { -------------------------------------------------------------------- TInventoryResource --------------------------------------------------------------------} Class Function TInventoryResource.ResourceName : String; begin Result:='inventory'; end; Class Function TInventoryResource.DefaultAPI : TGoogleAPIClass; begin Result:=TcontentAPI; end; Function TInventoryResource.Custombatch(aInventoryCustomBatchRequest : TInventoryCustomBatchRequest; AQuery : string = '') : TInventoryCustomBatchResponse; Const _HTTPMethod = 'POST'; _Path = 'inventory/batch'; _Methodid = 'content.inventory.custombatch'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aInventoryCustomBatchRequest,TInventoryCustomBatchResponse) as TInventoryCustomBatchResponse; end; Function TInventoryResource.Custombatch(aInventoryCustomBatchRequest : TInventoryCustomBatchRequest; AQuery : TInventorycustombatchOptions) : TInventoryCustomBatchResponse; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'dryRun',AQuery.dryRun); Result:=Custombatch(aInventoryCustomBatchRequest,_Q); end; Function TInventoryResource._set(merchantId: string; productId: string; storeCode: string; aInventorySetRequest : TInventorySetRequest; AQuery : string = '') : TInventorySetResponse; Const _HTTPMethod = 'POST'; _Path = '{merchantId}/inventory/{storeCode}/products/{productId}'; _Methodid = 'content.inventory.set'; Var _P : String; begin _P:=SubstitutePath(_Path,['merchantId',merchantId,'productId',productId,'storeCode',storeCode]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,aInventorySetRequest,TInventorySetResponse) as TInventorySetResponse; end; Function TInventoryResource._set(merchantId: string; productId: string; storeCode: string; aInventorySetRequest : TInventorySetRequest; AQuery : TInventorysetOptions) : TInventorySetResponse; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'dryRun',AQuery.dryRun); Result:=_set(merchantId,productId,storeCode,aInventorySetRequest,_Q); end; { -------------------------------------------------------------------- TOrdersResource --------------------------------------------------------------------} Class Function TOrdersResource.ResourceName : String; begin Result:='orders'; end; Class Function TOrdersResource.DefaultAPI : TGoogleAPIClass; begin Result:=TcontentAPI; end; Function TOrdersResource.Acknowledge(merchantId: string; orderId: string; aOrdersAcknowledgeRequest : TOrdersAcknowledgeRequest) : TOrdersAcknowledgeResponse; Const _HTTPMethod = 'POST'; _Path = '{merchantId}/orders/{orderId}/acknowledge'; _Methodid = 'content.orders.acknowledge'; Var _P : String; begin _P:=SubstitutePath(_Path,['merchantId',merchantId,'orderId',orderId]); Result:=ServiceCall(_HTTPMethod,_P,'',aOrdersAcknowledgeRequest,TOrdersAcknowledgeResponse) as TOrdersAcknowledgeResponse; end; Function TOrdersResource.Advancetestorder(merchantId: string; orderId: string) : TOrdersAdvanceTestOrderResponse; Const _HTTPMethod = 'POST'; _Path = '{merchantId}/testorders/{orderId}/advance'; _Methodid = 'content.orders.advancetestorder'; Var _P : String; begin _P:=SubstitutePath(_Path,['merchantId',merchantId,'orderId',orderId]); Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOrdersAdvanceTestOrderResponse) as TOrdersAdvanceTestOrderResponse; end; Function TOrdersResource.Cancel(merchantId: string; orderId: string; aOrdersCancelRequest : TOrdersCancelRequest) : TOrdersCancelResponse; Const _HTTPMethod = 'POST'; _Path = '{merchantId}/orders/{orderId}/cancel'; _Methodid = 'content.orders.cancel'; Var _P : String; begin _P:=SubstitutePath(_Path,['merchantId',merchantId,'orderId',orderId]); Result:=ServiceCall(_HTTPMethod,_P,'',aOrdersCancelRequest,TOrdersCancelResponse) as TOrdersCancelResponse; end; Function TOrdersResource.Cancellineitem(merchantId: string; orderId: string; aOrdersCancelLineItemRequest : TOrdersCancelLineItemRequest) : TOrdersCancelLineItemResponse; Const _HTTPMethod = 'POST'; _Path = '{merchantId}/orders/{orderId}/cancelLineItem'; _Methodid = 'content.orders.cancellineitem'; Var _P : String; begin _P:=SubstitutePath(_Path,['merchantId',merchantId,'orderId',orderId]); Result:=ServiceCall(_HTTPMethod,_P,'',aOrdersCancelLineItemRequest,TOrdersCancelLineItemResponse) as TOrdersCancelLineItemResponse; end; Function TOrdersResource.Createtestorder(merchantId: string; aOrdersCreateTestOrderRequest : TOrdersCreateTestOrderRequest) : TOrdersCreateTestOrderResponse; Const _HTTPMethod = 'POST'; _Path = '{merchantId}/testorders'; _Methodid = 'content.orders.createtestorder'; Var _P : String; begin _P:=SubstitutePath(_Path,['merchantId',merchantId]); Result:=ServiceCall(_HTTPMethod,_P,'',aOrdersCreateTestOrderRequest,TOrdersCreateTestOrderResponse) as TOrdersCreateTestOrderResponse; end; Function TOrdersResource.Custombatch(aOrdersCustomBatchRequest : TOrdersCustomBatchRequest) : TOrdersCustomBatchResponse; Const _HTTPMethod = 'POST'; _Path = 'orders/batch'; _Methodid = 'content.orders.custombatch'; begin Result:=ServiceCall(_HTTPMethod,_Path,'',aOrdersCustomBatchRequest,TOrdersCustomBatchResponse) as TOrdersCustomBatchResponse; end; Function TOrdersResource.Get(merchantId: string; orderId: string) : TOrder; Const _HTTPMethod = 'GET'; _Path = '{merchantId}/orders/{orderId}'; _Methodid = 'content.orders.get'; Var _P : String; begin _P:=SubstitutePath(_Path,['merchantId',merchantId,'orderId',orderId]); Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOrder) as TOrder; end; Function TOrdersResource.Getbymerchantorderid(merchantId: string; merchantOrderId: string) : TOrdersGetByMerchantOrderIdResponse; Const _HTTPMethod = 'GET'; _Path = '{merchantId}/ordersbymerchantid/{merchantOrderId}'; _Methodid = 'content.orders.getbymerchantorderid'; Var _P : String; begin _P:=SubstitutePath(_Path,['merchantId',merchantId,'merchantOrderId',merchantOrderId]); Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOrdersGetByMerchantOrderIdResponse) as TOrdersGetByMerchantOrderIdResponse; end; Function TOrdersResource.Gettestordertemplate(merchantId: string; templateName: string) : TOrdersGetTestOrderTemplateResponse; Const _HTTPMethod = 'GET'; _Path = '{merchantId}/testordertemplates/{templateName}'; _Methodid = 'content.orders.gettestordertemplate'; Var _P : String; begin _P:=SubstitutePath(_Path,['merchantId',merchantId,'templateName',templateName]); Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOrdersGetTestOrderTemplateResponse) as TOrdersGetTestOrderTemplateResponse; end; Function TOrdersResource.List(merchantId: string; AQuery : string = '') : TOrdersListResponse; Const _HTTPMethod = 'GET'; _Path = '{merchantId}/orders'; _Methodid = 'content.orders.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['merchantId',merchantId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TOrdersListResponse) as TOrdersListResponse; end; Function TOrdersResource.List(merchantId: string; AQuery : TOrderslistOptions) : TOrdersListResponse; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'acknowledged',AQuery.acknowledged); AddToQuery(_Q,'maxResults',AQuery.maxResults); AddToQuery(_Q,'orderBy',AQuery.orderBy); AddToQuery(_Q,'pageToken',AQuery.pageToken); AddToQuery(_Q,'placedDateEnd',AQuery.placedDateEnd); AddToQuery(_Q,'placedDateStart',AQuery.placedDateStart); AddToQuery(_Q,'statuses',AQuery.statuses); Result:=List(merchantId,_Q); end; Function TOrdersResource.Refund(merchantId: string; orderId: string; aOrdersRefundRequest : TOrdersRefundRequest) : TOrdersRefundResponse; Const _HTTPMethod = 'POST'; _Path = '{merchantId}/orders/{orderId}/refund'; _Methodid = 'content.orders.refund'; Var _P : String; begin _P:=SubstitutePath(_Path,['merchantId',merchantId,'orderId',orderId]); Result:=ServiceCall(_HTTPMethod,_P,'',aOrdersRefundRequest,TOrdersRefundResponse) as TOrdersRefundResponse; end; Function TOrdersResource.Returnlineitem(merchantId: string; orderId: string; aOrdersReturnLineItemRequest : TOrdersReturnLineItemRequest) : TOrdersReturnLineItemResponse; Const _HTTPMethod = 'POST'; _Path = '{merchantId}/orders/{orderId}/returnLineItem'; _Methodid = 'content.orders.returnlineitem'; Var _P : String; begin _P:=SubstitutePath(_Path,['merchantId',merchantId,'orderId',orderId]); Result:=ServiceCall(_HTTPMethod,_P,'',aOrdersReturnLineItemRequest,TOrdersReturnLineItemResponse) as TOrdersReturnLineItemResponse; end; Function TOrdersResource.Shiplineitems(merchantId: string; orderId: string; aOrdersShipLineItemsRequest : TOrdersShipLineItemsRequest) : TOrdersShipLineItemsResponse; Const _HTTPMethod = 'POST'; _Path = '{merchantId}/orders/{orderId}/shipLineItems'; _Methodid = 'content.orders.shiplineitems'; Var _P : String; begin _P:=SubstitutePath(_Path,['merchantId',merchantId,'orderId',orderId]); Result:=ServiceCall(_HTTPMethod,_P,'',aOrdersShipLineItemsRequest,TOrdersShipLineItemsResponse) as TOrdersShipLineItemsResponse; end; Function TOrdersResource.Updatemerchantorderid(merchantId: string; orderId: string; aOrdersUpdateMerchantOrderIdRequest : TOrdersUpdateMerchantOrderIdRequest) : TOrdersUpdateMerchantOrderIdResponse; Const _HTTPMethod = 'POST'; _Path = '{merchantId}/orders/{orderId}/updateMerchantOrderId'; _Methodid = 'content.orders.updatemerchantorderid'; Var _P : String; begin _P:=SubstitutePath(_Path,['merchantId',merchantId,'orderId',orderId]); Result:=ServiceCall(_HTTPMethod,_P,'',aOrdersUpdateMerchantOrderIdRequest,TOrdersUpdateMerchantOrderIdResponse) as TOrdersUpdateMerchantOrderIdResponse; end; Function TOrdersResource.Updateshipment(merchantId: string; orderId: string; aOrdersUpdateShipmentRequest : TOrdersUpdateShipmentRequest) : TOrdersUpdateShipmentResponse; Const _HTTPMethod = 'POST'; _Path = '{merchantId}/orders/{orderId}/updateShipment'; _Methodid = 'content.orders.updateshipment'; Var _P : String; begin _P:=SubstitutePath(_Path,['merchantId',merchantId,'orderId',orderId]); Result:=ServiceCall(_HTTPMethod,_P,'',aOrdersUpdateShipmentRequest,TOrdersUpdateShipmentResponse) as TOrdersUpdateShipmentResponse; end; { -------------------------------------------------------------------- TProductsResource --------------------------------------------------------------------} Class Function TProductsResource.ResourceName : String; begin Result:='products'; end; Class Function TProductsResource.DefaultAPI : TGoogleAPIClass; begin Result:=TcontentAPI; end; Function TProductsResource.Custombatch(aProductsCustomBatchRequest : TProductsCustomBatchRequest; AQuery : string = '') : TProductsCustomBatchResponse; Const _HTTPMethod = 'POST'; _Path = 'products/batch'; _Methodid = 'content.products.custombatch'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aProductsCustomBatchRequest,TProductsCustomBatchResponse) as TProductsCustomBatchResponse; end; Function TProductsResource.Custombatch(aProductsCustomBatchRequest : TProductsCustomBatchRequest; AQuery : TProductscustombatchOptions) : TProductsCustomBatchResponse; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'dryRun',AQuery.dryRun); Result:=Custombatch(aProductsCustomBatchRequest,_Q); end; Procedure TProductsResource.Delete(merchantId: string; productId: string; AQuery : string = ''); Const _HTTPMethod = 'DELETE'; _Path = '{merchantId}/products/{productId}'; _Methodid = 'content.products.delete'; Var _P : String; begin _P:=SubstitutePath(_Path,['merchantId',merchantId,'productId',productId]); ServiceCall(_HTTPMethod,_P,AQuery,Nil,Nil); end; Procedure TProductsResource.Delete(merchantId: string; productId: string; AQuery : TProductsdeleteOptions); Var _Q : String; begin _Q:=''; AddToQuery(_Q,'dryRun',AQuery.dryRun); Delete(merchantId,productId,_Q); end; Function TProductsResource.Get(merchantId: string; productId: string) : TProduct; Const _HTTPMethod = 'GET'; _Path = '{merchantId}/products/{productId}'; _Methodid = 'content.products.get'; Var _P : String; begin _P:=SubstitutePath(_Path,['merchantId',merchantId,'productId',productId]); Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TProduct) as TProduct; end; Function TProductsResource.Insert(merchantId: string; aProduct : TProduct; AQuery : string = '') : TProduct; Const _HTTPMethod = 'POST'; _Path = '{merchantId}/products'; _Methodid = 'content.products.insert'; Var _P : String; begin _P:=SubstitutePath(_Path,['merchantId',merchantId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,aProduct,TProduct) as TProduct; end; Function TProductsResource.Insert(merchantId: string; aProduct : TProduct; AQuery : TProductsinsertOptions) : TProduct; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'dryRun',AQuery.dryRun); Result:=Insert(merchantId,aProduct,_Q); end; Function TProductsResource.List(merchantId: string; AQuery : string = '') : TProductsListResponse; Const _HTTPMethod = 'GET'; _Path = '{merchantId}/products'; _Methodid = 'content.products.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['merchantId',merchantId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TProductsListResponse) as TProductsListResponse; end; Function TProductsResource.List(merchantId: string; AQuery : TProductslistOptions) : TProductsListResponse; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'includeInvalidInsertedItems',AQuery.includeInvalidInsertedItems); AddToQuery(_Q,'maxResults',AQuery.maxResults); AddToQuery(_Q,'pageToken',AQuery.pageToken); Result:=List(merchantId,_Q); end; { -------------------------------------------------------------------- TProductstatusesResource --------------------------------------------------------------------} Class Function TProductstatusesResource.ResourceName : String; begin Result:='productstatuses'; end; Class Function TProductstatusesResource.DefaultAPI : TGoogleAPIClass; begin Result:=TcontentAPI; end; Function TProductstatusesResource.Custombatch(aProductstatusesCustomBatchRequest : TProductstatusesCustomBatchRequest) : TProductstatusesCustomBatchResponse; Const _HTTPMethod = 'POST'; _Path = 'productstatuses/batch'; _Methodid = 'content.productstatuses.custombatch'; begin Result:=ServiceCall(_HTTPMethod,_Path,'',aProductstatusesCustomBatchRequest,TProductstatusesCustomBatchResponse) as TProductstatusesCustomBatchResponse; end; Function TProductstatusesResource.Get(merchantId: string; productId: string) : TProductStatus; Const _HTTPMethod = 'GET'; _Path = '{merchantId}/productstatuses/{productId}'; _Methodid = 'content.productstatuses.get'; Var _P : String; begin _P:=SubstitutePath(_Path,['merchantId',merchantId,'productId',productId]); Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TProductStatus) as TProductStatus; end; Function TProductstatusesResource.List(merchantId: string; AQuery : string = '') : TProductstatusesListResponse; Const _HTTPMethod = 'GET'; _Path = '{merchantId}/productstatuses'; _Methodid = 'content.productstatuses.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['merchantId',merchantId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TProductstatusesListResponse) as TProductstatusesListResponse; end; Function TProductstatusesResource.List(merchantId: string; AQuery : TProductstatuseslistOptions) : TProductstatusesListResponse; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'includeInvalidInsertedItems',AQuery.includeInvalidInsertedItems); AddToQuery(_Q,'maxResults',AQuery.maxResults); AddToQuery(_Q,'pageToken',AQuery.pageToken); Result:=List(merchantId,_Q); end; { -------------------------------------------------------------------- TContentAPI --------------------------------------------------------------------} Class Function TContentAPI.APIName : String; begin Result:='content'; end; Class Function TContentAPI.APIVersion : String; begin Result:='v2'; end; Class Function TContentAPI.APIRevision : String; begin Result:='20160419'; end; Class Function TContentAPI.APIID : String; begin Result:='content:v2'; end; Class Function TContentAPI.APITitle : String; begin Result:='Content API for Shopping'; end; Class Function TContentAPI.APIDescription : String; begin Result:='Manages product items, inventory, and Merchant Center accounts for Google Shopping.'; end; Class Function TContentAPI.APIOwnerDomain : String; begin Result:='google.com'; end; Class Function TContentAPI.APIOwnerName : String; begin Result:='Google'; end; Class Function TContentAPI.APIIcon16 : String; begin Result:='http://www.google.com/images/icons/product/search-16.gif'; end; Class Function TContentAPI.APIIcon32 : String; begin Result:='http://www.google.com/images/icons/product/search-32.gif'; end; Class Function TContentAPI.APIdocumentationLink : String; begin Result:='https://developers.google.com/shopping-content'; end; Class Function TContentAPI.APIrootUrl : string; begin Result:='https://www.googleapis.com/'; end; Class Function TContentAPI.APIbasePath : string; begin Result:='/content/v2/'; end; Class Function TContentAPI.APIbaseURL : String; begin Result:='https://www.googleapis.com/content/v2/'; end; Class Function TContentAPI.APIProtocol : string; begin Result:='rest'; end; Class Function TContentAPI.APIservicePath : string; begin Result:='content/v2/'; end; Class Function TContentAPI.APIbatchPath : String; begin Result:='batch'; end; Class Function TContentAPI.APIAuthScopes : TScopeInfoArray; begin SetLength(Result,1); Result[0].Name:='https://www.googleapis.com/auth/content'; Result[0].Description:='Manage your product listings and accounts for Google Shopping'; end; Class Function TContentAPI.APINeedsAuth : Boolean; begin Result:=True; end; Class Procedure TContentAPI.RegisterAPIResources; begin TAccount.RegisterObject; TAccountAdwordsLink.RegisterObject; TAccountIdentifier.RegisterObject; TAccountShipping.RegisterObject; TAccountShippingCarrierRate.RegisterObject; TAccountShippingCondition.RegisterObject; TAccountShippingLocationGroup.RegisterObject; TAccountShippingPostalCodeRange.RegisterObject; TAccountShippingRateTable.RegisterObject; TAccountShippingRateTableCell.RegisterObject; TAccountShippingShippingService.RegisterObject; TAccountShippingShippingServiceCalculationMethod.RegisterObject; TAccountShippingShippingServiceCostRule.RegisterObject; TAccountStatus.RegisterObject; TAccountStatusDataQualityIssue.RegisterObject; TAccountStatusExampleItem.RegisterObject; TAccountTax.RegisterObject; TAccountTaxTaxRule.RegisterObject; TAccountUser.RegisterObject; TAccountsAuthInfoResponse.RegisterObject; TAccountsCustomBatchRequest.RegisterObject; TAccountsCustomBatchRequestEntry.RegisterObject; TAccountsCustomBatchResponse.RegisterObject; TAccountsCustomBatchResponseEntry.RegisterObject; TAccountsListResponse.RegisterObject; TAccountshippingCustomBatchRequest.RegisterObject; TAccountshippingCustomBatchRequestEntry.RegisterObject; TAccountshippingCustomBatchResponse.RegisterObject; TAccountshippingCustomBatchResponseEntry.RegisterObject; TAccountshippingListResponse.RegisterObject; TAccountstatusesCustomBatchRequest.RegisterObject; TAccountstatusesCustomBatchRequestEntry.RegisterObject; TAccountstatusesCustomBatchResponse.RegisterObject; TAccountstatusesCustomBatchResponseEntry.RegisterObject; TAccountstatusesListResponse.RegisterObject; TAccounttaxCustomBatchRequest.RegisterObject; TAccounttaxCustomBatchRequestEntry.RegisterObject; TAccounttaxCustomBatchResponse.RegisterObject; TAccounttaxCustomBatchResponseEntry.RegisterObject; TAccounttaxListResponse.RegisterObject; TDatafeed.RegisterObject; TDatafeedFetchSchedule.RegisterObject; TDatafeedFormat.RegisterObject; TDatafeedStatus.RegisterObject; TDatafeedStatusError.RegisterObject; TDatafeedStatusExample.RegisterObject; TDatafeedsCustomBatchRequest.RegisterObject; TDatafeedsCustomBatchRequestEntry.RegisterObject; TDatafeedsCustomBatchResponse.RegisterObject; TDatafeedsCustomBatchResponseEntry.RegisterObject; TDatafeedsListResponse.RegisterObject; TDatafeedstatusesCustomBatchRequest.RegisterObject; TDatafeedstatusesCustomBatchRequestEntry.RegisterObject; TDatafeedstatusesCustomBatchResponse.RegisterObject; TDatafeedstatusesCustomBatchResponseEntry.RegisterObject; TDatafeedstatusesListResponse.RegisterObject; TError.RegisterObject; TErrors.RegisterObject; TInstallment.RegisterObject; TInventory.RegisterObject; TInventoryCustomBatchRequest.RegisterObject; TInventoryCustomBatchRequestEntry.RegisterObject; TInventoryCustomBatchResponse.RegisterObject; TInventoryCustomBatchResponseEntry.RegisterObject; TInventorySetRequest.RegisterObject; TInventorySetResponse.RegisterObject; TLoyaltyPoints.RegisterObject; TOrder.RegisterObject; TOrderAddress.RegisterObject; TOrderCancellation.RegisterObject; TOrderCustomer.RegisterObject; TOrderDeliveryDetails.RegisterObject; TOrderLineItem.RegisterObject; TOrderLineItemProduct.RegisterObject; TOrderLineItemProductVariantAttribute.RegisterObject; TOrderLineItemReturnInfo.RegisterObject; TOrderLineItemShippingDetails.RegisterObject; TOrderLineItemShippingDetailsMethod.RegisterObject; TOrderPaymentMethod.RegisterObject; TOrderPromotion.RegisterObject; TOrderPromotionBenefit.RegisterObject; TOrderRefund.RegisterObject; TOrderReturn.RegisterObject; TOrderShipment.RegisterObject; TOrderShipmentLineItemShipment.RegisterObject; TOrdersAcknowledgeRequest.RegisterObject; TOrdersAcknowledgeResponse.RegisterObject; TOrdersAdvanceTestOrderResponse.RegisterObject; TOrdersCancelLineItemRequest.RegisterObject; TOrdersCancelLineItemResponse.RegisterObject; TOrdersCancelRequest.RegisterObject; TOrdersCancelResponse.RegisterObject; TOrdersCreateTestOrderRequest.RegisterObject; TOrdersCreateTestOrderResponse.RegisterObject; TOrdersCustomBatchRequest.RegisterObject; TOrdersCustomBatchRequestEntry.RegisterObject; TOrdersCustomBatchRequestEntryCancel.RegisterObject; TOrdersCustomBatchRequestEntryCancelLineItem.RegisterObject; TOrdersCustomBatchRequestEntryRefund.RegisterObject; TOrdersCustomBatchRequestEntryReturnLineItem.RegisterObject; TOrdersCustomBatchRequestEntryShipLineItems.RegisterObject; TOrdersCustomBatchRequestEntryUpdateShipment.RegisterObject; TOrdersCustomBatchResponse.RegisterObject; TOrdersCustomBatchResponseEntry.RegisterObject; TOrdersGetByMerchantOrderIdResponse.RegisterObject; TOrdersGetTestOrderTemplateResponse.RegisterObject; TOrdersListResponse.RegisterObject; TOrdersRefundRequest.RegisterObject; TOrdersRefundResponse.RegisterObject; TOrdersReturnLineItemRequest.RegisterObject; TOrdersReturnLineItemResponse.RegisterObject; TOrdersShipLineItemsRequest.RegisterObject; TOrdersShipLineItemsResponse.RegisterObject; TOrdersUpdateMerchantOrderIdRequest.RegisterObject; TOrdersUpdateMerchantOrderIdResponse.RegisterObject; TOrdersUpdateShipmentRequest.RegisterObject; TOrdersUpdateShipmentResponse.RegisterObject; TPrice.RegisterObject; TProduct.RegisterObject; TProductAspect.RegisterObject; TProductCustomAttribute.RegisterObject; TProductCustomGroup.RegisterObject; TProductDestination.RegisterObject; TProductShipping.RegisterObject; TProductShippingDimension.RegisterObject; TProductShippingWeight.RegisterObject; TProductStatus.RegisterObject; TProductStatusDataQualityIssue.RegisterObject; TProductStatusDestinationStatus.RegisterObject; TProductTax.RegisterObject; TProductUnitPricingBaseMeasure.RegisterObject; TProductUnitPricingMeasure.RegisterObject; TProductsCustomBatchRequest.RegisterObject; TProductsCustomBatchRequestEntry.RegisterObject; TProductsCustomBatchResponse.RegisterObject; TProductsCustomBatchResponseEntry.RegisterObject; TProductsListResponse.RegisterObject; TProductstatusesCustomBatchRequest.RegisterObject; TProductstatusesCustomBatchRequestEntry.RegisterObject; TProductstatusesCustomBatchResponse.RegisterObject; TProductstatusesCustomBatchResponseEntry.RegisterObject; TProductstatusesListResponse.RegisterObject; TTestOrder.RegisterObject; TTestOrderCustomer.RegisterObject; TTestOrderLineItem.RegisterObject; TTestOrderLineItemProduct.RegisterObject; TTestOrderPaymentMethod.RegisterObject; TWeight.RegisterObject; end; Function TContentAPI.GetAccountsInstance : TAccountsResource; begin if (FAccountsInstance=Nil) then FAccountsInstance:=CreateAccountsResource; Result:=FAccountsInstance; end; Function TContentAPI.CreateAccountsResource : TAccountsResource; begin Result:=CreateAccountsResource(Self); end; Function TContentAPI.CreateAccountsResource(AOwner : TComponent) : TAccountsResource; begin Result:=TAccountsResource.Create(AOwner); Result.API:=Self.API; end; Function TContentAPI.GetAccountshippingInstance : TAccountshippingResource; begin if (FAccountshippingInstance=Nil) then FAccountshippingInstance:=CreateAccountshippingResource; Result:=FAccountshippingInstance; end; Function TContentAPI.CreateAccountshippingResource : TAccountshippingResource; begin Result:=CreateAccountshippingResource(Self); end; Function TContentAPI.CreateAccountshippingResource(AOwner : TComponent) : TAccountshippingResource; begin Result:=TAccountshippingResource.Create(AOwner); Result.API:=Self.API; end; Function TContentAPI.GetAccountstatusesInstance : TAccountstatusesResource; begin if (FAccountstatusesInstance=Nil) then FAccountstatusesInstance:=CreateAccountstatusesResource; Result:=FAccountstatusesInstance; end; Function TContentAPI.CreateAccountstatusesResource : TAccountstatusesResource; begin Result:=CreateAccountstatusesResource(Self); end; Function TContentAPI.CreateAccountstatusesResource(AOwner : TComponent) : TAccountstatusesResource; begin Result:=TAccountstatusesResource.Create(AOwner); Result.API:=Self.API; end; Function TContentAPI.GetAccounttaxInstance : TAccounttaxResource; begin if (FAccounttaxInstance=Nil) then FAccounttaxInstance:=CreateAccounttaxResource; Result:=FAccounttaxInstance; end; Function TContentAPI.CreateAccounttaxResource : TAccounttaxResource; begin Result:=CreateAccounttaxResource(Self); end; Function TContentAPI.CreateAccounttaxResource(AOwner : TComponent) : TAccounttaxResource; begin Result:=TAccounttaxResource.Create(AOwner); Result.API:=Self.API; end; Function TContentAPI.GetDatafeedsInstance : TDatafeedsResource; begin if (FDatafeedsInstance=Nil) then FDatafeedsInstance:=CreateDatafeedsResource; Result:=FDatafeedsInstance; end; Function TContentAPI.CreateDatafeedsResource : TDatafeedsResource; begin Result:=CreateDatafeedsResource(Self); end; Function TContentAPI.CreateDatafeedsResource(AOwner : TComponent) : TDatafeedsResource; begin Result:=TDatafeedsResource.Create(AOwner); Result.API:=Self.API; end; Function TContentAPI.GetDatafeedstatusesInstance : TDatafeedstatusesResource; begin if (FDatafeedstatusesInstance=Nil) then FDatafeedstatusesInstance:=CreateDatafeedstatusesResource; Result:=FDatafeedstatusesInstance; end; Function TContentAPI.CreateDatafeedstatusesResource : TDatafeedstatusesResource; begin Result:=CreateDatafeedstatusesResource(Self); end; Function TContentAPI.CreateDatafeedstatusesResource(AOwner : TComponent) : TDatafeedstatusesResource; begin Result:=TDatafeedstatusesResource.Create(AOwner); Result.API:=Self.API; end; Function TContentAPI.GetInventoryInstance : TInventoryResource; begin if (FInventoryInstance=Nil) then FInventoryInstance:=CreateInventoryResource; Result:=FInventoryInstance; end; Function TContentAPI.CreateInventoryResource : TInventoryResource; begin Result:=CreateInventoryResource(Self); end; Function TContentAPI.CreateInventoryResource(AOwner : TComponent) : TInventoryResource; begin Result:=TInventoryResource.Create(AOwner); Result.API:=Self.API; end; Function TContentAPI.GetOrdersInstance : TOrdersResource; begin if (FOrdersInstance=Nil) then FOrdersInstance:=CreateOrdersResource; Result:=FOrdersInstance; end; Function TContentAPI.CreateOrdersResource : TOrdersResource; begin Result:=CreateOrdersResource(Self); end; Function TContentAPI.CreateOrdersResource(AOwner : TComponent) : TOrdersResource; begin Result:=TOrdersResource.Create(AOwner); Result.API:=Self.API; end; Function TContentAPI.GetProductsInstance : TProductsResource; begin if (FProductsInstance=Nil) then FProductsInstance:=CreateProductsResource; Result:=FProductsInstance; end; Function TContentAPI.CreateProductsResource : TProductsResource; begin Result:=CreateProductsResource(Self); end; Function TContentAPI.CreateProductsResource(AOwner : TComponent) : TProductsResource; begin Result:=TProductsResource.Create(AOwner); Result.API:=Self.API; end; Function TContentAPI.GetProductstatusesInstance : TProductstatusesResource; begin if (FProductstatusesInstance=Nil) then FProductstatusesInstance:=CreateProductstatusesResource; Result:=FProductstatusesInstance; end; Function TContentAPI.CreateProductstatusesResource : TProductstatusesResource; begin Result:=CreateProductstatusesResource(Self); end; Function TContentAPI.CreateProductstatusesResource(AOwner : TComponent) : TProductstatusesResource; begin Result:=TProductstatusesResource.Create(AOwner); Result.API:=Self.API; end; initialization TContentAPI.RegisterAPI; end.