(Tcl) Shopify Query a variant for its inventory item ID

Query a product variant to find the ID of its inventory item.

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

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set http [new_CkHttp]

CkHttp_put_Login $http "SHOPIFY_PRIVATE_API_KEY"
CkHttp_put_Password $http "SHOPIFY_PRIVATE_API_KEY"

CkHttp_put_Accept $http "application/json"

# resp is a CkHttpResponse
set resp [CkHttp_QuickRequest $http "GET" "https://{shop}.myshopify.com/admin/api/2020-04/products/{product_id}/variants/{variant_id}.json"]
if {[CkHttp_get_LastMethodSuccess $http] != 1} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    exit
}

puts "Response Status Code: [CkHttpResponse_get_StatusCode $resp]"

set jsonResponse [new_CkJsonObject]

CkJsonObject_Load $jsonResponse [CkHttpResponse_bodyStr $resp]
CkJsonObject_put_EmitCompact $jsonResponse 0
puts [CkJsonObject_emit $jsonResponse]

if {[CkHttpResponse_get_StatusCode $resp] != 200} then {
    puts "Failed."
    delete_CkHttpResponse $resp

    delete_CkHttp $http
    delete_CkJsonObject $jsonResponse
    exit
}

delete_CkHttpResponse $resp

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

# {
#   "id": 12195009364024,
#   "product_id": 1321541042232,
#   "title": "xs",
# ...
#   "inventory_item_id": 12250274365496,
# ...
#   "admin_graphql_api_id": "gid://shopify/ProductVariant/12195009364024"
# }
# 

set id [CkJsonObject_IntOf $jsonResponse "id"]
set product_id [CkJsonObject_IntOf $jsonResponse "product_id"]
set title [CkJsonObject_stringOf $jsonResponse "title"]
set inventory_item_id [CkJsonObject_IntOf $jsonResponse "inventory_item_id"]
set admin_graphql_api_id [CkJsonObject_stringOf $jsonResponse "admin_graphql_api_id"]

delete_CkHttp $http
delete_CkJsonObject $jsonResponse