B4X Requires Chilkat v11.0.0+

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.

B4X

Dim success As Boolean = 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 ChilkatJsonObject
json.Initialize
json.EmitCompact = False

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

'  Show the JSON to be sent:
Log(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 = "EBAY_ACCESS_TOKEN"

Dim http As ChilkatHttp
http.Initialize("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 = "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 ChilkatStringBuilder
sbAuth.Initialize
sbAuth.Append("Bearer ")
sbAuth.Append(accessToken)
http.SetRequestHeader("Authorization", sbAuth.GetAsString)

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

Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpStr("PUT", url, json.Emit, "utf-8", "application/json", resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


Log("Response status code = " & resp.StatusCode)

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


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