(Visual FoxPro) Walmart - Update Inventory for an Item

Demonstrates how to update inventory for an item.

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

LOCAL loSbUrl
LOCAL lnSuccess
LOCAL lnNumReplaced
LOCAL lcRequestMethod
LOCAL loAuthUtil
LOCAL lcWmConsumerId
LOCAL lcWmPrivateKey
LOCAL lcJsonStr
LOCAL loJson
LOCAL loHttp
LOCAL lnOriginalAmount
LOCAL loXmlBody
LOCAL lcXmlStr
LOCAL loXml

* ---------------------------------------------------------------------------------------------------------
* Note: This example is deprecated.  The Walmart API no longer uses the Signature method of authenticating.
* Walmart now uses OAuth2.  
* ---------------------------------------------------------------------------------------------------------

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

* Sends the following PUT request:
* PUT https://marketplace.walmartapis.com/v2/inventory?sku={SKU}

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbUrl = CreateObject('Chilkat.StringBuilder')
lnSuccess = loSbUrl.Append("https://marketplace.walmartapis.com/v2/inventory?sku={SKU}")
lnNumReplaced = loSbUrl.Replace("{SKU}","HOPP~904~51041")

lcRequestMethod = "PUT"

* First we need to generate a signature for our request.
* The signature needs to be re-generated for each new Walmart HTTP request.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.AuthUtil')
loAuthUtil = CreateObject('Chilkat.AuthUtil')

lcWmConsumerId = "WALMART_CONSUMER_ID"
lcWmPrivateKey = "WALMART_PRIVATE_KEY"
lcJsonStr = loAuthUtil.WalmartSignature(loSbUrl.GetAsString(),lcWmConsumerId,lcWmPrivateKey,lcRequestMethod)
IF (loAuthUtil.LastMethodSuccess <> 1) THEN
    ? loAuthUtil.LastErrorText
    RELEASE loSbUrl
    RELEASE loAuthUtil
    CANCEL
ENDIF

* The JSON returned by WalmartSignature contains the values to be used in the following
* header fields: WM_SEC.AUTH_SIGNATURE, WM_SEC.TIMESTAMP, and WM_QOS.CORRELATION_ID
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')
loJson.Load(lcJsonStr)

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')
loHttp.SetRequestHeader("WM_SVC.NAME","Walmart Marketplace")
loHttp.SetRequestHeader("WM_QOS.CORRELATION_ID",loJson.StringOf("correlation_id"))
loHttp.SetRequestHeader("WM_SEC.TIMESTAMP",loJson.StringOf("timestamp"))
loHttp.SetRequestHeader("WM_SEC.AUTH_SIGNATURE",loJson.StringOf("signature"))
loHttp.SetRequestHeader("WM_CONSUMER.ID",lcWmConsumerId)
loHttp.Accept = "application/xml"

* Note: Do not explicitly set the "Host" header.  Chilkat will set it automatically.

* The body of the PUT request will be XML that looks like this:

* 	<?xml version="1.0" encoding="utf-8" ?>
* 	<wm:inventory xmlns:wm="http://walmart.com/">
* 	    <wm:sku>HOPP~904~51041</wm:sku>
* 	    <wm:quantity>
* 	        <wm:unit>EACH</wm:unit>
* 	        <wm:amount>235</wm:amount>
* 	    </wm:quantity>
* 	    <wm:fulfillmentLagTime>5</wm:fulfillmentLagTime>
* 	</wm:inventory>

* Build the XML request body:
lnOriginalAmount = 234

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Xml')
loXmlBody = CreateObject('Chilkat.Xml')
loXmlBody.Tag = "wm:inventory"
loXmlBody.AddAttribute("xmlns:wm","http://walmart.com/")
loXmlBody.UpdateChildContent("wm:sku","HOPP~904~51041")
loXmlBody.UpdateChildContent("wm:quantity|wm:unit","EACH")
loXmlBody.UpdateChildContentInt("wm:quantity|wm:amount",lnOriginalAmount + 1)
loXmlBody.UpdateChildContent("wm:fulfillmentLagTime","5")

? "PUT request body:"
? loXmlBody.GetXml()
? "--"

* This is a simple PUT that can be sent w/ the PutText method.
lcXmlStr = loHttp.PutText(loSbUrl.GetAsString(),loXmlBody.GetXml(),"utf-8","application/xml",0,0)
IF (loHttp.LastMethodSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loSbUrl
    RELEASE loAuthUtil
    RELEASE loJson
    RELEASE loHttp
    RELEASE loXmlBody
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Xml')
loXml = CreateObject('Chilkat.Xml')
loXml.LoadXml(lcXmlStr)

* A successful response should have a 200 response status
IF (loHttp.LastStatus <> 200) THEN
    ? loXml.GetXml()
    ? "Response Status Code: " + STR(loHttp.LastStatus)
    ? "Failed."
    RELEASE loSbUrl
    RELEASE loAuthUtil
    RELEASE loJson
    RELEASE loHttp
    RELEASE loXmlBody
    RELEASE loXml
    CANCEL
ENDIF

* A sample XML response is shown below..
? loXml.GetXml()
? "--"
? "Success!"

* ---------------------------------------
* Sample XML response
* ---------------------------------------

* <?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
* <inventory xmlns="http://walmart.com/">
*     <sku>HOPP~904~51041</sku>
*     <quantity>
*         <unit>EACH</unit>
*         <amount>235</amount>
*     </quantity>
*     <fulfillmentLagTime>5</fulfillmentLagTime>
* </inventory>

RELEASE loSbUrl
RELEASE loAuthUtil
RELEASE loJson
RELEASE loHttp
RELEASE loXmlBody
RELEASE loXml