(Visual FoxPro) Shopify Retrieve the item's inventory levels

After you have the inventory item ID, you can use it with the InventoryLevel resource to find the levels and locations for the inventory item:

Note: This example requires Chilkat v11.0.0 or greater.

For more information, see https://shopify.dev/tutorials/manage-product-inventory-with-admin-api#retrieve-the-inventory-levels-for-a-product-variant

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL lnSuccess
LOCAL loHttp
LOCAL loResp
LOCAL loJsonResponse
LOCAL lnInventory_item_id
LOCAL lnLocation_id
LOCAL lnAvailable
LOCAL lcUpdated_at
LOCAL lcAdmin_graphql_api_id
LOCAL i
LOCAL lnCount_i

lnSuccess = 0

* This example requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

loHttp = CreateObject('Chilkat.Http')

loHttp.Login = "SHOPIFY_PRIVATE_API_KEY"
loHttp.Password = "SHOPIFY_PRIVATE_API_KEY"

loHttp.Accept = "application/json"

* How to get the inventory item ID

loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpNoBody("GET","https://{shop}.myshopify.com/admin/api/2020-04/inventory_levels.json?inventory_item_ids={inventory_item_id}",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loResp
    CANCEL
ENDIF

? "Response Status Code: " + STR(loResp.StatusCode)

loJsonResponse = CreateObject('Chilkat.JsonObject')
loJsonResponse.Load(loResp.BodyStr)
loJsonResponse.EmitCompact = 0
? loJsonResponse.Emit()

IF (loResp.StatusCode <> 200) THEN
    ? "Failed."
    RELEASE loHttp
    RELEASE loResp
    RELEASE loJsonResponse
    CANCEL
ENDIF

* Sample output...
* (See the parsing code below..)
* 
* Use the this online tool to generate parsing code from sample JSON: 
* Generate Parsing Code from JSON

* {
*   "inventory_levels": [
*     {
*       "inventory_item_id": 12250274365496,
*       "location_id": 6884556842,
*       "available": 8,
*       "updated_at": "2018-06-18T11:49:50-04:00",
*       "admin_graphql_api_id": "gid://shopify/InventoryLevel/6485147690?inventory_item_id=12250274365496"
*     },
*     {
*       "inventory_item_id": 12250274365496,
*       "location_id": 13968834616,
*       "available": 50,
*       "updated_at": "2018-06-26T14:44:30-04:00",
*       "admin_graphql_api_id": "gid://shopify/InventoryLevel/13570506808?inventory_item_id=12250274365496"
*     },
*     {
*       "inventory_item_id": 12250274365496,
*       "location_id": 13968867384,
*       "available": 100,
*       "updated_at": "2018-06-26T14:44:30-04:00",
*       "admin_graphql_api_id": "gid://shopify/InventoryLevel/13570539576?inventory_item_id=12250274365496"
*     }
*   ]
* }
* 

i = 0
lnCount_i = loJsonResponse.SizeOfArray("inventory_levels")
DO WHILE i < lnCount_i
    loJsonResponse.I = i
    lnInventory_item_id = loJsonResponse.IntOf("inventory_levels[i].inventory_item_id")
    lnLocation_id = loJsonResponse.IntOf("inventory_levels[i].location_id")
    lnAvailable = loJsonResponse.IntOf("inventory_levels[i].available")
    lcUpdated_at = loJsonResponse.StringOf("inventory_levels[i].updated_at")
    lcAdmin_graphql_api_id = loJsonResponse.StringOf("inventory_levels[i].admin_graphql_api_id")
    i = i + 1
ENDDO

RELEASE loHttp
RELEASE loResp
RELEASE loJsonResponse