Xojo Plugin

eBay -- Create or Replace Inventory Item

See more eBay Examples

This example shows how to create a new inventory item record or update an existing inventory item record.

See Create or Replace Inventory Item for more REST API details.

Xojo Plugin

Dim success As Boolean
success = False

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

// This example sends the following sample PUT request to create (or replace) a new inventory item.

// PUT https://api.ebay.com/sell/inventory/v1/inventory_item/GP-Cam-01
// { 
// "availability":
//     { 
//     "shipToLocationAvailability":
//         { 
//         "quantity": 50
//         }
//     },
// "condition": "NEW",
// "product":
//     { 
//     "title": "GoPro Hero4 Helmet Cam",
//     "description": "New GoPro Hero4 Helmet Cam. Unopened box.",
//     "aspects": {
//         "Brand" :["GoPro"],
//         "Type" : ["Helmet/Action"],
//         "Storage Type" : ["Removable"],
//         "Recording Definition" : ["High Definition"],
//         "Media Format" : ["Flash Drive (SSD)"],
//         "Optical Zoom" : ["10x"]
//       },
//     "imageUrls": [
//         "http://i.ebayimg.com/images/i/182196556219-0-1/s-l1000.jpg",
//         "http://i.ebayimg.com/images/i/182196556219-0-1/s-l1001.jpg",
//         "http://i.ebayimg.com/images/i/182196556219-0-1/s-l1002.jpg"
//       ]
//     }
// }

// First, generate the JSON using this code:
Dim json As New Chilkat.JsonObject
json.EmitCompact = False

success = json.UpdateNumber("availability.shipToLocationAvailability.quantity","50")
success = json.UpdateString("condition","NEW")
success = json.UpdateString("product.title","GoPro Hero4 Helmet Cam")
success = json.UpdateString("product.description","New GoPro Hero4 Helmet Cam. Unopened box.")
success = json.UpdateString("product.aspects.Brand[0]","GoPro")
success = json.UpdateString("product.aspects.Type[0]","Helmet/Action")
success = json.UpdateString("product.aspects.""Storage Type""[0]","Removable")
success = json.UpdateString("product.aspects.""Recording Definition""[0]","High Definition")
success = json.UpdateString("product.aspects.""Media Format""[0]","Flash Drive (SSD)")
success = json.UpdateString("product.aspects.""Optical Zoom""[0]","10x")
success = json.UpdateString("product.imageUrls[0]","http://i.ebayimg.com/images/i/182196556219-0-1/s-l1000.jpg")
success = json.UpdateString("product.imageUrls[1]","http://i.ebayimg.com/images/i/182196556219-0-1/s-l1001.jpg")
success = json.UpdateString("product.imageUrls[2]","http://i.ebayimg.com/images/i/182196556219-0-1/s-l1002.jpg")

// Show the JSON to be sent:
System.DebugLog(json.Emit())

// Use a previously obtained user token.  The token should look something like this:
// "v^1.1#i^1#r^0#p^3#I^3#f^0#t^H4sIAAAAAAAAAOVXa2wUVRTu9k ... 89xuCWYREAAA=="
Dim accessToken As String
accessToken = "EBAY_ACCESS_TOKEN"

Dim http As New Chilkat.Http

// This example uses the sandbox.  
// Change "api.sandbox.ebay.com" to "api.ebay.com" to use the production system.
// Note: The last part of the url is the SKU.  In this URL, the SKU is "GP-Cam-01".
Dim url As String
url = "https://api.sandbox.ebay.com/sell/inventory/v1/inventory_item/GP-Cam-01"
json.EmitCompact = True

// Set your Content-Language to whatever is desired.
http.SetRequestHeader "Content-Language","en-US"

// Add our access token to the request, which is a header
// having the following format:
// Authorization: Bearer <userAccessToken>
Dim sbAuth As New Chilkat.StringBuilder
success = sbAuth.Append("Bearer ")
success = sbAuth.Append(accessToken)
http.SetRequestHeader "Authorization",sbAuth.GetAsString()

http.Accept = "application/json"
http.AllowGzip = False

Dim resp As New Chilkat.HttpResponse
success = http.HttpStr("PUT",url,json.Emit(),"utf-8","application/json",resp)
If (success = False) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

System.DebugLog("Response status code = " + Str(resp.StatusCode))

If (http.LastStatus <> 204) Then
    System.DebugLog(resp.BodyStr)
    System.DebugLog("Failed")
    Return
End If

// On success (status code = 204), there is no output payload (strResponse will be empty).
System.DebugLog("Inventory item successfully created.")