PureBasic
PureBasic
Akeneo: Get List of Products
See more HTTP Misc Examples
Using a previously obtained request token, demonstrates how to get a list of products.Chilkat PureBasic Downloads
IncludeFile "CkJsonObject.pb"
IncludeFile "CkHttp.pb"
Procedure ChilkatExample()
; This example requires the Chilkat API to have been previously unlocked.
; See Global Unlock Sample for sample code.
http.i = CkHttp::ckCreate()
If http.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
; Use your previously obtained access token.
; See Get Akeneo Access Token
CkHttp::setCkAuthToken(http, "access_token")
jsonResponse.s = CkHttp::ckQuickGetStr(http,"http://pim.my-akeneo-site.com/api/rest/v1/products")
If CkHttp::ckLastMethodSuccess(http) <> 1
Debug CkHttp::ckLastHeader(http)
Debug CkHttp::ckLastErrorText(http)
CkHttp::ckDispose(http)
ProcedureReturn
EndIf
Debug jsonResponse
; A sample response looks like this.
; See below for sample code to parse the JSON response..
; {
; "_links": {
; "self": {
; "href": "https://demo.akeneo.com/api/rest/v1/products?page=3&limit=3"
; },
; "first": {
; "href": "https://demo.akeneo.com/api/rest/v1/products?page=1&limit=3"
; },
; "previous": {
; "href": "https://demo.akeneo.com/api/rest/v1/products?page=2&limit=3"
; },
; "next": {
; "href": "https://demo.akeneo.com/api/rest/v1/products?page=4&limit=3"
; }
; },
; "current_page": 3,
; "_embedded": {
; "_items": [
; {
; "_links": {
; "self": {
; "href": "https://demo.akeneo.com/api/rest/v1/product/top"
; }
; },
; "identifier": "top",
; "family": "tshirt",
; "groups": [],
; "parent": null,
; "categories": [
; "summer_collection"
; ],
; "enabled": true,
; "values": {
; "name": [
; {
; "data": "Top",
; "locale": "en_US",
; "scope": null
; },
; {
; "data": "D�bardeur",
; "locale": "fr_FR",
; "scope": null
; }
; ],
; "description": [
; {
; "data": "Summer top",
; "locale": "en_US",
; "scope": "ecommerce"
; },
; {
; "data": "Top",
; "locale": "en_US",
; "scope": "tablet"
; },
; {
; "data": "D�bardeur pour l'�t�",
; "locale": "fr_FR",
; "scope": "ecommerce"
; },
; {
; "data": "D�bardeur",
; "locale": "fr_FR",
; "scope": "tablet"
; }
; ],
; "price": [
; {
; "locale": null,
; "scope": null,
; "data": [
; {
; "amount": "15.5",
; "currency": "EUR"
; },
; {
; "amount": "15",
; "currency": "USD"
; }
; ]
; }
; ],
; "color": [
; {
; "locale": null,
; "scope": null,
; "data": "black"
; }
; ],
; "size": [
; {
; "locale": null,
; "scope": null,
; "data": "m"
; }
; ]
; },
; "created": "2016-06-23T18:24:44+02:00",
; "updated": "2016-06-25T17:56:12+02:00",
; "associations": {
; "PACK": {
; "products": [
; "sunglasses"
; ],
; "groups": []
; }
; }
; },
; {
; "_links": {
; "self": {
; "href": "https://demo.akeneo.com/api/rest/v1/product/cap"
; }
; },
; "identifier": "cap",
; "family": "caps",
; "groups": [],
; "parent": null,
; "categories": [
; "summer_collection"
; ],
; "enabled": true,
; "values": {
; "name": [
; {
; "data": "Cap",
; "locale": "en_US",
; "scope": null
; },
; {
; "data": "Casquette",
; "locale": "fr_FR",
; "scope": null
; }
; ],
; "description": [
; {
; "data": "Cap unisex",
; "locale": "en_US",
; "scope": "ecommerce"
; },
; {
; "data": "Cap unisex",
; "locale": "en_US",
; "scope": "tablet"
; },
; {
; "data": "Casquette unisexe",
; "locale": "fr_FR",
; "scope": "ecommerce"
; },
; {
; "data": "Casquette unisexe",
; "locale": "fr_FR",
; "scope": "tablet"
; }
; ],
; "price": [
; {
; "locale": null,
; "scope": null,
; "data": [
; {
; "amount": "20",
; "currency": "EUR"
; },
; {
; "amount": "20",
; "currency": "USD"
; }
; ]
; }
; ],
; "color": [
; {
; "locale": null,
; "scope": null,
; "data": "black"
; }
; ]
; },
; "created": "2016-06-23T18:24:44+02:00",
; "updated": "2016-06-25T17:56:12+02:00",
; "associations": {
; "PACK": {
; "products": [
; "sunglasses"
; ],
; "groups": []
; }
; }
; },
; {
; "_links": {
; "self": {
; "href": "https://demo.akeneo.com/api/rest/v1/product/sweat"
; }
; },
; "identifier": "sweat",
; "family": null,
; "groups": [],
; "parent": null,
; "categories": [
; "winter_collection"
; ],
; "enabled": true,
; "values": {},
; "created": "2016-06-23T11:24:44+02:00",
; "updated": "2016-06-23T11:24:44+02:00",
; "associations": {}
; }
; ]
; }
; }
;
json.i = CkJsonObject::ckCreate()
If json.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkJsonObject::ckLoad(json,jsonResponse)
v_linksSelfHref.s
v_linksFirstHref.s
current_page.i
i.i
count_i.i
identifier.s
family.s
parent.s
enabled.i
created.s
updated.s
j.i
count_j.i
strVal.s
locale.s
scope.s
data.i
data_str.s
v_linksDownloadHref.s
data_int.i
dataAmount.s
dataUnit.s
v_linksSelfHref = CkJsonObject::ckStringOf(json,"_links.self.href")
v_linksFirstHref = CkJsonObject::ckStringOf(json,"_links.first.href")
current_page = CkJsonObject::ckIntOf(json,"current_page")
i = 0
count_i = CkJsonObject::ckSizeOfArray(json,"_embedded.items")
While i < count_i
CkJsonObject::setCkI(json, i)
v_linksSelfHref = CkJsonObject::ckStringOf(json,"_embedded.items[i]._links.self.href")
identifier = CkJsonObject::ckStringOf(json,"_embedded.items[i].identifier")
family = CkJsonObject::ckStringOf(json,"_embedded.items[i].family")
parent = CkJsonObject::ckStringOf(json,"_embedded.items[i].parent")
enabled = CkJsonObject::ckBoolOf(json,"_embedded.items[i].enabled")
created = CkJsonObject::ckStringOf(json,"_embedded.items[i].created")
updated = CkJsonObject::ckStringOf(json,"_embedded.items[i].updated")
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].groups")
While j < count_j
CkJsonObject::setCkJ(json, j)
strVal = CkJsonObject::ckStringOf(json,"_embedded.items[i].groups[j]")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].categories")
While j < count_j
CkJsonObject::setCkJ(json, j)
strVal = CkJsonObject::ckStringOf(json,"_embedded.items[i].categories[j]")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.blocked")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.blocked[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.blocked[j].scope")
data = CkJsonObject::ckBoolOf(json,"_embedded.items[i].values.blocked[j].data")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.can_cut")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.can_cut[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.can_cut[j].scope")
data = CkJsonObject::ckBoolOf(json,"_embedded.items[i].values.can_cut[j].data")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.not_used")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.not_used[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.not_used[j].scope")
data = CkJsonObject::ckBoolOf(json,"_embedded.items[i].values.not_used[j].data")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.deny_delivery")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.deny_delivery[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.deny_delivery[j].scope")
data = CkJsonObject::ckBoolOf(json,"_embedded.items[i].values.deny_delivery[j].data")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.can_split_package")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.can_split_package[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.can_split_package[j].scope")
data = CkJsonObject::ckBoolOf(json,"_embedded.items[i].values.can_split_package[j].data")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.transfer_to_warehouse")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.transfer_to_warehouse[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.transfer_to_warehouse[j].scope")
data = CkJsonObject::ckBoolOf(json,"_embedded.items[i].values.transfer_to_warehouse[j].data")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.product_code")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.product_code[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.product_code[j].scope")
data_str = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.product_code[j].data")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.nuotrauka")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.nuotrauka[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.nuotrauka[j].scope")
data_str = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.nuotrauka[j].data")
v_linksDownloadHref = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.nuotrauka[j]._links.download.href")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.minimum_quantity")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.minimum_quantity[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.minimum_quantity[j].scope")
data_int = CkJsonObject::ckIntOf(json,"_embedded.items[i].values.minimum_quantity[j].data")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.code")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.code[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.code[j].scope")
data_int = CkJsonObject::ckIntOf(json,"_embedded.items[i].values.code[j].data")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.name")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.name[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.name[j].scope")
data_str = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.name[j].data")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.fsc_code")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.fsc_code[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.fsc_code[j].scope")
data_str = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.fsc_code[j].data")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.warehouse")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.warehouse[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.warehouse[j].scope")
data_str = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.warehouse[j].data")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.item_volume")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.item_volume[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.item_volume[j].scope")
dataAmount = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.item_volume[j].data.amount")
dataUnit = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.item_volume[j].data.unit")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.customs_code")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.customs_code[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.customs_code[j].scope")
data_str = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.customs_code[j].data")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.product_type")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.product_type[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.product_type[j].scope")
data_str = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.product_type[j].data")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.weight_netto")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.weight_netto[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.weight_netto[j].scope")
dataAmount = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.weight_netto[j].data.amount")
dataUnit = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.weight_netto[j].data.unit")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.supplier_code")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.supplier_code[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.supplier_code[j].scope")
data_str = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.supplier_code[j].data")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.tariff_number")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.tariff_number[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.tariff_number[j].scope")
data_str = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.tariff_number[j].data")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.weight_brutto")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.weight_brutto[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.weight_brutto[j].scope")
dataAmount = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.weight_brutto[j].data.amount")
dataUnit = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.weight_brutto[j].data.unit")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.package_code_1")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.package_code_1[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.package_code_1[j].scope")
data_str = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.package_code_1[j].data")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.package_code_2")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.package_code_2[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.package_code_2[j].scope")
data_str = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.package_code_2[j].data")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.package_code_3")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.package_code_3[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.package_code_3[j].scope")
data_str = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.package_code_3[j].data")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.supplier_number")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.supplier_number[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.supplier_number[j].scope")
data_str = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.supplier_number[j].data")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.package_volume_1")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.package_volume_1[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.package_volume_1[j].scope")
dataAmount = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.package_volume_1[j].data.amount")
dataUnit = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.package_volume_1[j].data.unit")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.package_volume_2")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.package_volume_2[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.package_volume_2[j].scope")
dataAmount = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.package_volume_2[j].data.amount")
dataUnit = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.package_volume_2[j].data.unit")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.package_volume_3")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.package_volume_3[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.package_volume_3[j].scope")
dataAmount = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.package_volume_3[j].data.amount")
dataUnit = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.package_volume_3[j].data.unit")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.package_weight_1")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.package_weight_1[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.package_weight_1[j].scope")
dataAmount = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.package_weight_1[j].data.amount")
dataUnit = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.package_weight_1[j].data.unit")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.package_weight_2")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.package_weight_2[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.package_weight_2[j].scope")
dataAmount = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.package_weight_2[j].data.amount")
dataUnit = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.package_weight_2[j].data.unit")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.package_weight_3")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.package_weight_3[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.package_weight_3[j].scope")
dataAmount = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.package_weight_3[j].data.amount")
dataUnit = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.package_weight_3[j].data.unit")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.country_of_origin")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.country_of_origin[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.country_of_origin[j].scope")
data_str = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.country_of_origin[j].data")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.product_group_code")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.product_group_code[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.product_group_code[j].scope")
data_str = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.product_group_code[j].data")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.base_measurement_unit")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.base_measurement_unit[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.base_measurement_unit[j].scope")
data_str = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.base_measurement_unit[j].data")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.measurement_unit_code")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.measurement_unit_code[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.measurement_unit_code[j].scope")
data_str = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.measurement_unit_code[j].data")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.product_category_code")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.product_category_code[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.product_category_code[j].scope")
data_str = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.product_category_code[j].data")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.sale_measurement_unit")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.sale_measurement_unit[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.sale_measurement_unit[j].scope")
data_str = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.sale_measurement_unit[j].data")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.country_of_origin_code")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.country_of_origin_code[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.country_of_origin_code[j].scope")
data_str = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.country_of_origin_code[j].data")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.vat_registration_group")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.vat_registration_group[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.vat_registration_group[j].scope")
data_str = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.vat_registration_group[j].data")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.critical_amount_of_stock")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.critical_amount_of_stock[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.critical_amount_of_stock[j].scope")
data_str = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.critical_amount_of_stock[j].data")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.stock_registration_group")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.stock_registration_group[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.stock_registration_group[j].scope")
data_str = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.stock_registration_group[j].data")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.purchase_measurement_unit")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.purchase_measurement_unit[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.purchase_measurement_unit[j].scope")
data_str = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.purchase_measurement_unit[j].data")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.product_registration_group")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.product_registration_group[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.product_registration_group[j].scope")
data_str = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.product_registration_group[j].data")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.base_measurement_unit_quantity")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.base_measurement_unit_quantity[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.base_measurement_unit_quantity[j].scope")
data_str = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.base_measurement_unit_quantity[j].data")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.comment")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.comment[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.comment[j].scope")
data_str = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.comment[j].data")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.units_in_pallet")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.units_in_pallet[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.units_in_pallet[j].scope")
data_str = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.units_in_pallet[j].data")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.first_description")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.first_description[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.first_description[j].scope")
data_str = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.first_description[j].data")
j = j + 1
Wend
j = 0
count_j = CkJsonObject::ckSizeOfArray(json,"_embedded.items[i].values.second_description")
While j < count_j
CkJsonObject::setCkJ(json, j)
locale = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.second_description[j].locale")
scope = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.second_description[j].scope")
data_str = CkJsonObject::ckStringOf(json,"_embedded.items[i].values.second_description[j].data")
j = j + 1
Wend
i = i + 1
Wend
CkHttp::ckDispose(http)
CkJsonObject::ckDispose(json)
ProcedureReturn
EndProcedure