Chilkat Examples

ChilkatHOMEAndroid™Classic ASPCC++C#Mono C#.NET Core C#C# UWP/WinRTDataFlexDelphi ActiveXDelphi DLLVisual FoxProJavaLianjaMFCObjective-CPerlPHP ActiveXPHP ExtensionPowerBuilderPowerShellPureBasicCkPythonChilkat2-PythonRubySQL ServerSwift 2Swift 3/4TclUnicode CUnicode C++Visual Basic 6.0VB.NETVB.NET UWP/WinRTVBScriptXojo PluginNode.jsExcelGo

PureBasic Examples

Web API Categories

ASN.1
Amazon Glacier
Amazon S3
Amazon S3 (new)
Amazon SES
Amazon SNS
Amazon SQS
Async
Azure Cloud Storage
Azure Service Bus
Base64
Bounced Email
Box
CAdES
CSR
CSV
Certificates
Compression
DKIM / DomainKey
DSA
Diffie-Hellman
Digital Signatures
Dropbox
Dynamics CRM
ECC
Email Object
Encryption
FTP
FileAccess
Firebase
GMail REST API
Geolocation
Google APIs
Google Calendar
Google Cloud Storage
Google Drive
Google Photos
Google Sheets
Google Tasks
Gzip
HTML-to-XML/Text

HTTP
HTTP Misc
IMAP
JSON
JSON Web Encryption (JWE)
JSON Web Signatures (JWS)
JSON Web Token (JWT)
Java KeyStore (JKS)
MHT / HTML Email
MIME
Microsoft Graph
NTLM
OAuth1
OAuth2
OneDrive
OpenSSL
Outlook
PEM
PFX/P12
POP3
PRNG
REST
REST Misc
RSA
SCP
SFTP
SMTP
SSH
SSH Key
SSH Tunnel
SharePoint
Socket/SSL/TLS
Spider
Stream
Tar Archive
Upload
WebSocket
XAdES
XML
XML Digital Signatures
XMP
Zip
curl

 

 

 

(PureBasic) Akeneo: Get List of Products

Using a previously obtained request token, demonstrates how to get a list of products.

Chilkat PureBasic Module Download

Chilkat PureBasic Module

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": "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::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

 

© 2000-2019 Chilkat Software, Inc. All Rights Reserved.