Tcl
Tcl
Akeneo: Get List of Products (using StringBuilder)
See more HTTP Misc Examples
Using a previously obtained request token, demonstrates how to get a list of products using a Chilkat StringBuilder. Using the StringBuilder is convenient because it prevents returning a potentially large string. Instead, the result is deposited into the StringBuilder object.Chilkat Tcl Downloads
load ./chilkat.dll
set success 0
# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.
set http [new_CkHttp]
# Use your previously obtained access token.
# See Get Akeneo Access Token
CkHttp_put_AuthToken $http "access_token"
set sbJson [new_CkStringBuilder]
set success [CkHttp_QuickGetSb $http "http://pim.my-akeneo-site.com/api/rest/v1/products" $sbJson]
if {$success != 1} then {
puts [CkHttp_lastHeader $http]
puts [CkHttp_lastErrorText $http]
delete_CkHttp $http
delete_CkStringBuilder $sbJson
exit
}
# 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": {}
# }
# ]
# }
# }
#
set json [new_CkJsonObject]
CkJsonObject_LoadSb $json $sbJson
set v_linksSelfHref [CkJsonObject_stringOf $json "_links.self.href"]
set v_linksFirstHref [CkJsonObject_stringOf $json "_links.first.href"]
set current_page [CkJsonObject_IntOf $json "current_page"]
set i 0
set count_i [CkJsonObject_SizeOfArray $json "_embedded.items"]
while {$i < $count_i} {
CkJsonObject_put_I $json $i
set v_linksSelfHref [CkJsonObject_stringOf $json "_embedded.items[i]._links.self.href"]
set identifier [CkJsonObject_stringOf $json "_embedded.items[i].identifier"]
set family [CkJsonObject_stringOf $json "_embedded.items[i].family"]
set parent [CkJsonObject_stringOf $json "_embedded.items[i].parent"]
set enabled [CkJsonObject_BoolOf $json "_embedded.items[i].enabled"]
set created [CkJsonObject_stringOf $json "_embedded.items[i].created"]
set updated [CkJsonObject_stringOf $json "_embedded.items[i].updated"]
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].groups"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set strVal [CkJsonObject_stringOf $json "_embedded.items[i].groups[j]"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].categories"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set strVal [CkJsonObject_stringOf $json "_embedded.items[i].categories[j]"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.blocked"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.blocked[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.blocked[j].scope"]
set data [CkJsonObject_BoolOf $json "_embedded.items[i].values.blocked[j].data"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.can_cut"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.can_cut[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.can_cut[j].scope"]
set data [CkJsonObject_BoolOf $json "_embedded.items[i].values.can_cut[j].data"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.not_used"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.not_used[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.not_used[j].scope"]
set data [CkJsonObject_BoolOf $json "_embedded.items[i].values.not_used[j].data"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.deny_delivery"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.deny_delivery[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.deny_delivery[j].scope"]
set data [CkJsonObject_BoolOf $json "_embedded.items[i].values.deny_delivery[j].data"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.can_split_package"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.can_split_package[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.can_split_package[j].scope"]
set data [CkJsonObject_BoolOf $json "_embedded.items[i].values.can_split_package[j].data"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.transfer_to_warehouse"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.transfer_to_warehouse[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.transfer_to_warehouse[j].scope"]
set data [CkJsonObject_BoolOf $json "_embedded.items[i].values.transfer_to_warehouse[j].data"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.product_code"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.product_code[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.product_code[j].scope"]
set data_str [CkJsonObject_stringOf $json "_embedded.items[i].values.product_code[j].data"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.nuotrauka"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.nuotrauka[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.nuotrauka[j].scope"]
set data_str [CkJsonObject_stringOf $json "_embedded.items[i].values.nuotrauka[j].data"]
set v_linksDownloadHref [CkJsonObject_stringOf $json "_embedded.items[i].values.nuotrauka[j]._links.download.href"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.minimum_quantity"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.minimum_quantity[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.minimum_quantity[j].scope"]
set data_int [CkJsonObject_IntOf $json "_embedded.items[i].values.minimum_quantity[j].data"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.code"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.code[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.code[j].scope"]
set data_int [CkJsonObject_IntOf $json "_embedded.items[i].values.code[j].data"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.name"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.name[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.name[j].scope"]
set data_str [CkJsonObject_stringOf $json "_embedded.items[i].values.name[j].data"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.fsc_code"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.fsc_code[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.fsc_code[j].scope"]
set data_str [CkJsonObject_stringOf $json "_embedded.items[i].values.fsc_code[j].data"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.warehouse"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.warehouse[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.warehouse[j].scope"]
set data_str [CkJsonObject_stringOf $json "_embedded.items[i].values.warehouse[j].data"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.item_volume"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.item_volume[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.item_volume[j].scope"]
set dataAmount [CkJsonObject_stringOf $json "_embedded.items[i].values.item_volume[j].data.amount"]
set dataUnit [CkJsonObject_stringOf $json "_embedded.items[i].values.item_volume[j].data.unit"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.customs_code"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.customs_code[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.customs_code[j].scope"]
set data_str [CkJsonObject_stringOf $json "_embedded.items[i].values.customs_code[j].data"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.product_type"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.product_type[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.product_type[j].scope"]
set data_str [CkJsonObject_stringOf $json "_embedded.items[i].values.product_type[j].data"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.weight_netto"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.weight_netto[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.weight_netto[j].scope"]
set dataAmount [CkJsonObject_stringOf $json "_embedded.items[i].values.weight_netto[j].data.amount"]
set dataUnit [CkJsonObject_stringOf $json "_embedded.items[i].values.weight_netto[j].data.unit"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.supplier_code"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.supplier_code[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.supplier_code[j].scope"]
set data_str [CkJsonObject_stringOf $json "_embedded.items[i].values.supplier_code[j].data"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.tariff_number"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.tariff_number[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.tariff_number[j].scope"]
set data_str [CkJsonObject_stringOf $json "_embedded.items[i].values.tariff_number[j].data"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.weight_brutto"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.weight_brutto[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.weight_brutto[j].scope"]
set dataAmount [CkJsonObject_stringOf $json "_embedded.items[i].values.weight_brutto[j].data.amount"]
set dataUnit [CkJsonObject_stringOf $json "_embedded.items[i].values.weight_brutto[j].data.unit"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.package_code_1"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.package_code_1[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.package_code_1[j].scope"]
set data_str [CkJsonObject_stringOf $json "_embedded.items[i].values.package_code_1[j].data"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.package_code_2"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.package_code_2[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.package_code_2[j].scope"]
set data_str [CkJsonObject_stringOf $json "_embedded.items[i].values.package_code_2[j].data"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.package_code_3"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.package_code_3[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.package_code_3[j].scope"]
set data_str [CkJsonObject_stringOf $json "_embedded.items[i].values.package_code_3[j].data"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.supplier_number"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.supplier_number[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.supplier_number[j].scope"]
set data_str [CkJsonObject_stringOf $json "_embedded.items[i].values.supplier_number[j].data"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.package_volume_1"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.package_volume_1[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.package_volume_1[j].scope"]
set dataAmount [CkJsonObject_stringOf $json "_embedded.items[i].values.package_volume_1[j].data.amount"]
set dataUnit [CkJsonObject_stringOf $json "_embedded.items[i].values.package_volume_1[j].data.unit"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.package_volume_2"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.package_volume_2[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.package_volume_2[j].scope"]
set dataAmount [CkJsonObject_stringOf $json "_embedded.items[i].values.package_volume_2[j].data.amount"]
set dataUnit [CkJsonObject_stringOf $json "_embedded.items[i].values.package_volume_2[j].data.unit"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.package_volume_3"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.package_volume_3[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.package_volume_3[j].scope"]
set dataAmount [CkJsonObject_stringOf $json "_embedded.items[i].values.package_volume_3[j].data.amount"]
set dataUnit [CkJsonObject_stringOf $json "_embedded.items[i].values.package_volume_3[j].data.unit"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.package_weight_1"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.package_weight_1[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.package_weight_1[j].scope"]
set dataAmount [CkJsonObject_stringOf $json "_embedded.items[i].values.package_weight_1[j].data.amount"]
set dataUnit [CkJsonObject_stringOf $json "_embedded.items[i].values.package_weight_1[j].data.unit"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.package_weight_2"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.package_weight_2[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.package_weight_2[j].scope"]
set dataAmount [CkJsonObject_stringOf $json "_embedded.items[i].values.package_weight_2[j].data.amount"]
set dataUnit [CkJsonObject_stringOf $json "_embedded.items[i].values.package_weight_2[j].data.unit"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.package_weight_3"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.package_weight_3[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.package_weight_3[j].scope"]
set dataAmount [CkJsonObject_stringOf $json "_embedded.items[i].values.package_weight_3[j].data.amount"]
set dataUnit [CkJsonObject_stringOf $json "_embedded.items[i].values.package_weight_3[j].data.unit"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.country_of_origin"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.country_of_origin[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.country_of_origin[j].scope"]
set data_str [CkJsonObject_stringOf $json "_embedded.items[i].values.country_of_origin[j].data"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.product_group_code"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.product_group_code[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.product_group_code[j].scope"]
set data_str [CkJsonObject_stringOf $json "_embedded.items[i].values.product_group_code[j].data"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.base_measurement_unit"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.base_measurement_unit[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.base_measurement_unit[j].scope"]
set data_str [CkJsonObject_stringOf $json "_embedded.items[i].values.base_measurement_unit[j].data"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.measurement_unit_code"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.measurement_unit_code[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.measurement_unit_code[j].scope"]
set data_str [CkJsonObject_stringOf $json "_embedded.items[i].values.measurement_unit_code[j].data"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.product_category_code"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.product_category_code[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.product_category_code[j].scope"]
set data_str [CkJsonObject_stringOf $json "_embedded.items[i].values.product_category_code[j].data"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.sale_measurement_unit"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.sale_measurement_unit[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.sale_measurement_unit[j].scope"]
set data_str [CkJsonObject_stringOf $json "_embedded.items[i].values.sale_measurement_unit[j].data"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.country_of_origin_code"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.country_of_origin_code[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.country_of_origin_code[j].scope"]
set data_str [CkJsonObject_stringOf $json "_embedded.items[i].values.country_of_origin_code[j].data"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.vat_registration_group"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.vat_registration_group[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.vat_registration_group[j].scope"]
set data_str [CkJsonObject_stringOf $json "_embedded.items[i].values.vat_registration_group[j].data"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.critical_amount_of_stock"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.critical_amount_of_stock[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.critical_amount_of_stock[j].scope"]
set data_str [CkJsonObject_stringOf $json "_embedded.items[i].values.critical_amount_of_stock[j].data"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.stock_registration_group"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.stock_registration_group[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.stock_registration_group[j].scope"]
set data_str [CkJsonObject_stringOf $json "_embedded.items[i].values.stock_registration_group[j].data"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.purchase_measurement_unit"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.purchase_measurement_unit[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.purchase_measurement_unit[j].scope"]
set data_str [CkJsonObject_stringOf $json "_embedded.items[i].values.purchase_measurement_unit[j].data"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.product_registration_group"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.product_registration_group[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.product_registration_group[j].scope"]
set data_str [CkJsonObject_stringOf $json "_embedded.items[i].values.product_registration_group[j].data"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.base_measurement_unit_quantity"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.base_measurement_unit_quantity[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.base_measurement_unit_quantity[j].scope"]
set data_str [CkJsonObject_stringOf $json "_embedded.items[i].values.base_measurement_unit_quantity[j].data"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.comment"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.comment[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.comment[j].scope"]
set data_str [CkJsonObject_stringOf $json "_embedded.items[i].values.comment[j].data"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.units_in_pallet"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.units_in_pallet[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.units_in_pallet[j].scope"]
set data_str [CkJsonObject_stringOf $json "_embedded.items[i].values.units_in_pallet[j].data"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.first_description"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.first_description[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.first_description[j].scope"]
set data_str [CkJsonObject_stringOf $json "_embedded.items[i].values.first_description[j].data"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $json "_embedded.items[i].values.second_description"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set locale [CkJsonObject_stringOf $json "_embedded.items[i].values.second_description[j].locale"]
set scope [CkJsonObject_stringOf $json "_embedded.items[i].values.second_description[j].scope"]
set data_str [CkJsonObject_stringOf $json "_embedded.items[i].values.second_description[j].data"]
set j [expr $j + 1]
}
set i [expr $i + 1]
}
puts "Success."
delete_CkHttp $http
delete_CkStringBuilder $sbJson
delete_CkJsonObject $json