Visual FoxPro

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.

Visual FoxPro

LOCAL lnSuccess
LOCAL loRest
LOCAL lnBTls
LOCAL lnPort
LOCAL lnBAutoReconnect
LOCAL lcResponseXml

lnSuccess = 0

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

loRest = 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 
*  
lnBTls = 1
lnPort = 443
lnBAutoReconnect = 1
lnSuccess = loRest.Connect("mws.amazonservices.com",lnPort,lnBTls,lnBAutoReconnect)

loRest.Host = "mws.amazonservices.com"

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

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

lcResponseXml = loRest.FullRequestFormUrlEncoded("POST","/Orders/2013-09-01")
IF (loRest.LastMethodSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    CANCEL
ENDIF

IF (loRest.ResponseStatusCode <> 200) THEN
    *  Examine the request/response to see what happened.
    ? "response status code = " + STR(loRest.ResponseStatusCode)
    ? "response status text = " + loRest.ResponseStatusText
    ? "response header: " + loRest.ResponseHeader
    ? "response body: " + lcResponseXml
    ? "---"
    ? "LastRequestStartLine: " + loRest.LastRequestStartLine
    ? "LastRequestHeader: " + loRest.LastRequestHeader
ENDIF

*  Examine the XML returned in the response body.
? lcResponseXml
? "----"
? "Success."

RELEASE loRest