(Tcl) Shopify Set inventory levels to a certain amount

Use the set endpoint with the location ID and inventory item ID to set an inventory level to a specific value.

For more information, see https://shopify.dev/tutorials/manage-product-inventory-with-admin-api#update-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"

# Also see: How to retrieve inventory levels

CkHttp_put_Accept $http "application/json"

# The following JSON is sent in the request body:

# {
#   "location_id": 6884556842,
#   "inventory_item_id": 12250274365496,
#   "available": 1
# }

# Use this online tool to generate the code from sample JSON: 
# Generate Code to Create JSON

set jsonRequestBody [new_CkJsonObject]

CkJsonObject_UpdateInt $jsonRequestBody "location_id" 6884556842
CkJsonObject_UpdateInt $jsonRequestBody "inventory_item_id" 12250274365496
CkJsonObject_UpdateInt $jsonRequestBody "available" 1

set url "https://{shop}.myshopify.com/admin/api/2020-04/inventory_levels/set.json"

# resp is a CkHttpResponse
set resp [CkHttp_PText $http "POST" $url [CkJsonObject_emit $jsonRequestBody] "utf-8" "application/json" 0 0]
if {[CkHttp_get_LastMethodSuccess $http] != 1} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkJsonObject $jsonRequestBody
    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] >= 300} then {
    puts "Failed."
    delete_CkHttpResponse $resp

    delete_CkHttp $http
    delete_CkJsonObject $jsonRequestBody
    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

# {
#   "inventory_level": {
#     "inventory_item_id": 12250274365496,
#     "location_id": 6884556842,
#     "available": 1,
#     "updated_at": "2018-06-26T15:44:33-04:00",
# ...
#     "admin_graphql_api_id": "gid://shopify/InventoryLevel/6485147690?inventory_item_id=12250274365496"
# ...
#   }
# }
# 

set inventory_levelInventory_item_id [CkJsonObject_IntOf $jsonResponse "inventory_level.inventory_item_id"]
set inventory_levelLocation_id [CkJsonObject_IntOf $jsonResponse "inventory_level.location_id"]
set inventory_levelAvailable [CkJsonObject_IntOf $jsonResponse "inventory_level.available"]
set inventory_levelUpdated_at [CkJsonObject_stringOf $jsonResponse "inventory_level.updated_at"]
set inventory_levelAdmin_graphql_api_id [CkJsonObject_stringOf $jsonResponse "inventory_level.admin_graphql_api_id"]

delete_CkHttp $http
delete_CkJsonObject $jsonRequestBody
delete_CkJsonObject $jsonResponse