(Visual FoxPro) Walmart - Get an Order by purchaseOrderId

Gets the XML data for an order by purchaseOrderId.

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

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

* Demonstrates how to get the XML for a particular order by purchaseOrderId

* Sends the following GET request:
* GET https://marketplace.walmartapis.com/v3/orders/{purchaseOrderId}

* 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/v3/orders/{purchaseOrderId}")
lnNumReplaced = loSbUrl.Replace("{purchaseOrderId}","1111691995111")

lcRequestMethod = "GET"

* First we need to generate a signature for the 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.SetRequestHeader("WM_CONSUMER.CHANNEL.TYPE","WALMART_CHANNEL_TYPE")

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

* Show the XML response:
? loXml.GetXml()
? "Success."

RELEASE loSbUrl
RELEASE loAuthUtil
RELEASE loJson
RELEASE loHttp
RELEASE loXml