(SQL Server) eBay -- Create or Replace Inventory Item (2nd example)

Another example for creating an inventory item, with different data.

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

-- Important: See this note about string length limitations for strings returned by sp_OAMethod calls.
--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @iTmp0 int
    -- Important: Do not use nvarchar(max).  See the warning about using nvarchar(max).
    DECLARE @sTmp0 nvarchar(4000)
    -- 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.

    -- { 
    --     "product": { 
    --         "title": "Test listing - do not bid or buy - awesome Apple watch test 2",
    --         "aspects": { 
    --             "Feature" : ["Water resistance", "GPS"],
    --             "CPU" : ["Dual-Core Processor"]
    --         },
    --         "description": "Test listing - do not bid or buy \n Built-in GPS. Water resistance to 50 meters.1 A new lightning-fast dual-core processor. And a display that\u2019s two times brighter than before. Full of features that help you stay active, motivated, and connected, Apple Watch Series 2 is designed for all the ways you move ",
    --         "upc": ["888462079525"],
    --         "imageUrls": [
    --             "http://store.storeimages.cdn-apple.com/4973/as-images.apple.com/is/image/AppleInc/aos/published/images/S/1/S1/42/S1-42-alu-silver-sport-white-grid?wid=332&hei=392&fmt=jpeg&qlt=95&op_sharpen=0&resMode=bicub&op_usm=0.5,0.5,0,0&iccEmbed=0&layer=comp&.v=1472247758975",
    --             "http://store.storeimages.cdn-apple.com/4973/as-images.apple.com/is/image/AppleInc/aos/published/images/4/2/42/stainless/42-stainless-sport-white-grid?wid=332&hei=392&fmt=jpeg&qlt=95&op_sharpen=0&resMode=bicub&op_usm=0.5,0.5,0,0&iccEmbed=0&layer=comp&.v=1472247760390",
    --             "http://store.storeimages.cdn-apple.com/4973/as-images.apple.com/is/image/AppleInc/aos/published/images/4/2/42/ceramic/42-ceramic-sport-cloud-grid?wid=332&hei=392&fmt=jpeg&qlt=95&op_sharpen=0&resMode=bicub&op_usm=0.5,0.5,0,0&iccEmbed=0&layer=comp&.v=1472247758007"
    --         ]
    --     },
    --     "condition": "NEW",
    --     "packageWeightAndSize": { 
    --         "dimensions": { 
    --             "height": 5,
    --             "length": 10,
    --             "width": 15,
    --             "unit": "INCH"
    --         },
    --         "packageType": "MAILING_BOX",
    --         "weight": { 
    --             "value": 2,
    --             "unit": "POUND"
    --         }
    --     },
    --     "availability": { 
    --         "shipToLocationAvailability": { 
    --             "quantity": 10
    --         }
    --     }
    -- }

    -- First, generate the JSON using this code:
    DECLARE @json int
    -- Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.JsonObject', @json OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    EXEC sp_OASetProperty @json, 'EmitCompact', 0

    DECLARE @success int
    EXEC sp_OAMethod @json, 'UpdateString', @success OUT, 'product.title', 'Test listing - do not bid or buy - awesome Apple watch test 2'
    EXEC sp_OAMethod @json, 'UpdateString', @success OUT, 'product.aspects.Feature[0]', 'Water resistance'
    EXEC sp_OAMethod @json, 'UpdateString', @success OUT, 'product.aspects.Feature[1]', 'GPS'
    EXEC sp_OAMethod @json, 'UpdateString', @success OUT, 'product.aspects.CPU[0]', 'Dual-Core Processor'
    EXEC sp_OAMethod @json, 'UpdateString', @success OUT, 'product.description', 'Test listing - do not bid or buy\n Built-in GPS. Water resistance to 50 meters.1 A new lightning-fast dual-core processor. And a display that�s two times brighter than before. Full of features that help you stay active, motivated, and connected, Apple Watch Series 2 is designed for all the ways you move '
    EXEC sp_OAMethod @json, 'UpdateString', @success OUT, 'product.upc[0]', '888462079525'
    EXEC sp_OAMethod @json, 'UpdateString', @success OUT, 'product.imageUrls[0]', 'http://store.storeimages.cdn-apple.com/4973/as-images.apple.com/is/image/AppleInc/aos/published/images/S/1/S1/42/S1-42-alu-silver-sport-white-grid?wid=332&hei=392&fmt=jpeg&qlt=95&op_sharpen=0&resMode=bicub&op_usm=0.5,0.5,0,0&iccEmbed=0&layer=comp&.v=1472247758975'
    EXEC sp_OAMethod @json, 'UpdateString', @success OUT, 'product.imageUrls[1]', 'http://store.storeimages.cdn-apple.com/4973/as-images.apple.com/is/image/AppleInc/aos/published/images/4/2/42/stainless/42-stainless-sport-white-grid?wid=332&hei=392&fmt=jpeg&qlt=95&op_sharpen=0&resMode=bicub&op_usm=0.5,0.5,0,0&iccEmbed=0&layer=comp&.v=1472247760390'
    EXEC sp_OAMethod @json, 'UpdateString', @success OUT, 'product.imageUrls[2]', 'http://store.storeimages.cdn-apple.com/4973/as-images.apple.com/is/image/AppleInc/aos/published/images/4/2/42/ceramic/42-ceramic-sport-cloud-grid?wid=332&hei=392&fmt=jpeg&qlt=95&op_sharpen=0&resMode=bicub&op_usm=0.5,0.5,0,0&iccEmbed=0&layer=comp&.v=1472247758007'
    EXEC sp_OAMethod @json, 'UpdateString', @success OUT, 'condition', 'NEW'
    EXEC sp_OAMethod @json, 'UpdateNumber', @success OUT, 'packageWeightAndSize.dimensions.height', '5'
    EXEC sp_OAMethod @json, 'UpdateNumber', @success OUT, 'packageWeightAndSize.dimensions.length', '10'
    EXEC sp_OAMethod @json, 'UpdateNumber', @success OUT, 'packageWeightAndSize.dimensions.width', '15'
    EXEC sp_OAMethod @json, 'UpdateString', @success OUT, 'packageWeightAndSize.dimensions.unit', 'INCH'
    EXEC sp_OAMethod @json, 'UpdateString', @success OUT, 'packageWeightAndSize.packageType', 'MAILING_BOX'
    EXEC sp_OAMethod @json, 'UpdateNumber', @success OUT, 'packageWeightAndSize.weight.value', '2'
    EXEC sp_OAMethod @json, 'UpdateString', @success OUT, 'packageWeightAndSize.weight.unit', 'POUND'
    EXEC sp_OAMethod @json, 'UpdateNumber', @success OUT, 'availability.shipToLocationAvailability.quantity', '10'

    -- Show the JSON to be sent:
    EXEC sp_OAMethod @json, 'Emit', @sTmp0 OUT
    PRINT @sTmp0

    -- 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=="
    DECLARE @accessToken nvarchar(4000)
    SELECT @accessToken = 'EBAY_ACCESS_TOKEN'

    DECLARE @http int
    -- Use "Chilkat_9_5_0.Http" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.Http', @http OUT

    -- 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 "AppleWatch".
    DECLARE @url nvarchar(4000)
    SELECT @url = 'https://api.sandbox.ebay.com/sell/inventory/v1/inventory_item/AppleWatch'
    EXEC sp_OASetProperty @json, 'EmitCompact', 1

    -- Set your Content-Language to whatever is desired.
    EXEC sp_OAMethod @http, 'SetRequestHeader', NULL, 'Content-Language', 'en-US'

    -- Add our access token to the request, which is a header
    -- having the following format:
    -- Authorization: Bearer <userAccessToken>
    DECLARE @sbAuth int
    -- Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.StringBuilder', @sbAuth OUT

    EXEC sp_OAMethod @sbAuth, 'Append', @success OUT, 'Bearer '
    EXEC sp_OAMethod @sbAuth, 'Append', @success OUT, @accessToken
    EXEC sp_OAMethod @sbAuth, 'GetAsString', @sTmp0 OUT
    EXEC sp_OAMethod @http, 'SetRequestHeader', NULL, 'Authorization', @sTmp0

    EXEC sp_OASetProperty @http, 'Accept', 'application/json'
    EXEC sp_OASetProperty @http, 'AllowGzip', 0

    DECLARE @strResponse nvarchar(4000)
    EXEC sp_OAMethod @json, 'Emit', @sTmp0 OUT
    EXEC sp_OAMethod @http, 'PutText', @strResponse OUT, @url, @sTmp0, 'utf-8', 'application/json', 0, 0
    EXEC sp_OAGetProperty @http, 'LastMethodSuccess', @iTmp0 OUT
    IF @iTmp0 <> 1
      BEGIN
        EXEC sp_OAGetProperty @http, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @json
        EXEC @hr = sp_OADestroy @http
        EXEC @hr = sp_OADestroy @sbAuth
        RETURN
      END


    EXEC sp_OAGetProperty @http, 'LastStatus', @iTmp0 OUT
    PRINT 'Response status code = ' + @iTmp0

    EXEC sp_OAGetProperty @http, 'LastStatus', @iTmp0 OUT
    IF @iTmp0 <> 204
      BEGIN

        PRINT @strResponse

        PRINT 'Failed'
        EXEC @hr = sp_OADestroy @json
        EXEC @hr = sp_OADestroy @http
        EXEC @hr = sp_OADestroy @sbAuth
        RETURN
      END

    -- On success (status code = 204), there is no output payload (strResponse will be empty).

    PRINT 'Inventory item successfully created.'

    EXEC @hr = sp_OADestroy @json
    EXEC @hr = sp_OADestroy @http
    EXEC @hr = sp_OADestroy @sbAuth


END
GO