Xbase++

MWS List Orders (Amazon Marketplace Web Service)

See more Amazon MWS Examples

Send an MWS ListOrders request to return a list of orders created or updated during a time frame.

Important: The Chilkat v9.5.0.75 release accidentally breaks Amazon MWS (not AWS) authentication. If you need MWS with 9.5.0.75, send email to support@chilkatsoft.com for a hotfix, or revert back to v9.5.0.73, or update to a version after 9.5.0.75.

Xbase++

LOCAL nSuccess
LOCAL oRest
LOCAL nBTls
LOCAL nPort
LOCAL nBAutoReconnect
LOCAL cResponseXml

nSuccess := 0

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

oRest := CreateObject("Chilkat.Rest")

//  ------------------------------------------------------------
//  About using Chilkat with Amazon Marketplace SP-API
//  ------------------------------------------------------------

//  Connect to the Amazon MWS REST server.
//  
//  Make sure to connect to the correct Amazon MWS Endpoint, otherwise
//  you'll get an HTTP 401 response code.
//  
//  The possible servers are:
//  
//  North America (NA) 	https://mws.amazonservices.com
//  Europe (EU) 	https://mws-eu.amazonservices.com
//  India (IN) 	https://mws.amazonservices.in
//  China (CN) 	https://mws.amazonservices.com.cn
//  Japan (JP) 	https://mws.amazonservices.jp 
//  
nBTls := 1
nPort := 443
nBAutoReconnect := 1
nSuccess := oRest:Connect("mws.amazonservices.com", nPort, nBTls, nBAutoReconnect)

oRest:Host := "mws.amazonservices.com"

//  Add query params
oRest:AddQueryParam("Action", "ListOrders")
oRest:AddQueryParam("CreatedAfter", "2016-12-31T23:00:00Z")
oRest:AddQueryParam("MarketplaceId.Id.1", "MWS_MARKETPLACE_ID")
oRest:AddQueryParam("SellerId", "MWS_SELLER_ID")
oRest:AddQueryParam("AWSAccessKeyId", "MWS_ACCESS_KEY_ID")
oRest:AddQueryParam("SignatureVersion", "2")
oRest:AddQueryParam("SignatureMethod", "HmacSHA256")
oRest:AddQueryParam("Version", "2013-09-01")

//  Add the MWS Signature param.  (Also adds the Timestamp parameter using the curent system date/time.)
oRest:AddMwsSignature("POST", "/Orders/2013-09-01", "mws.amazonservices.com", "MWS_SECRET_ACCESS_KEY_ID")

cResponseXml := oRest:FullRequestFormUrlEncoded("POST", "/Orders/2013-09-01")
IF (oRest:LastMethodSuccess != 1)
    ? oRest:LastErrorText
    oRest:destroy()
    RETURN
ENDIF

IF (oRest:ResponseStatusCode != 200)
    //  Examine the request/response to see what happened.
    ? "response status code = " + Str(oRest:ResponseStatusCode)
    ? "response status text = " + oRest:ResponseStatusText
    ? "response header: " + oRest:ResponseHeader
    ? "response body: " + cResponseXml
    ? "---"
    ? "LastRequestStartLine: " + oRest:LastRequestStartLine
    ? "LastRequestHeader: " + oRest:LastRequestHeader
ENDIF

//  Examine the XML returned in the response body.
? cResponseXml
? "----"
? "Success."

oRest:destroy()