|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(PureBasic) Akeneo: Get List of Products (using StringBuilder)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.
IncludeFile "CkHttp.pb" IncludeFile "CkStringBuilder.pb" IncludeFile "CkJsonObject.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") sbJson.i = CkStringBuilder::ckCreate() If sbJson.i = 0 Debug "Failed to create object." ProcedureReturn EndIf success.i = CkHttp::ckQuickGetSb(http,"http://pim.my-akeneo-site.com/api/rest/v1/products",sbJson) If success <> 1 Debug CkHttp::ckLastHeader(http) Debug CkHttp::ckLastErrorText(http) CkHttp::ckDispose(http) CkStringBuilder::ckDispose(sbJson) ProcedureReturn EndIf ; 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": "Dbardeur", ; "locale": "fr_FR", ; "scope": null ; } ; ], ; "description": [ ; { ; "data": "Summer top", ; "locale": "en_US", ; "scope": "ecommerce" ; }, ; { ; "data": "Top", ; "locale": "en_US", ; "scope": "tablet" ; }, ; { ; "data": "Dbardeur pour l't", ; "locale": "fr_FR", ; "scope": "ecommerce" ; }, ; { ; "data": "Dbardeur", ; "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::ckLoadSb(json,sbJson) 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 Debug "Success." CkHttp::ckDispose(http) CkStringBuilder::ckDispose(sbJson) CkJsonObject::ckDispose(json) ProcedureReturn EndProcedure |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.