(Visual FoxPro) Walmart - Get Inventory for an Item

Demonstrates how to get inventory for an item and parse the result.

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 lcXmlStr
LOCAL loXml
LOCAL lnQuantity

* ---------------------------------------------------------------------------------------------------------
* 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 GET request:
* GET 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 = "GET"

* 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.

lcXmlStr = loHttp.QuickGetStr(loSbUrl.GetAsString())
IF (loHttp.LastMethodSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loSbUrl
    RELEASE loAuthUtil
    RELEASE loJson
    RELEASE loHttp
    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 loXml
    CANCEL
ENDIF

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

* To get the quantity:
lnQuantity = loXml.GetChildIntValue("quantity|amount")
? "quantity = " + STR(lnQuantity)

* ---------------------------------------
* 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>234</amount>
*     </quantity>
*     <fulfillmentLagTime>5</fulfillmentLagTime>
* </inventory>

RELEASE loSbUrl
RELEASE loAuthUtil
RELEASE loJson
RELEASE loHttp
RELEASE loXml