(Visual FoxPro) MWS List Orders by Next Token (Amazon Marketplace Web Service)

Returns the next page of orders using the NextToken parameter.

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

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

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

* See MWS List Orders By Next Token for additional details 

* We need to send a GET request like this:

* https://mws.amazonservices.jp/Orders/2013-09-01
*   ?AWSAccessKeyId=0PB842EXAMPLE7N4ZTR2
*   &Action=ListOrdersByNextToken
*   &MWSAuthToken=amzn.mws.4ea38b7b-f563-7709-4bae-87aeaEXAMPLE
*   &SellerId=A2986ZQ066CH2F
*   &Signature=ZQLpf8vEXAMPLE0iC265pf18n0%3D
*   &SignatureVersion=2
*   &SignatureMethod=HmacSHA256
*   &NextToken=2YgYW55IGNhcm5hbCBwbGVhc3VyZS4%3D
*   &Timestamp=2017-02-05T18%3A12%3A21.687Z
*   &Version=2013-09-01

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Rest')
loRest = CreateObject('Chilkat.Rest')

* 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("NextToken","THE_NEXT_TOKEN_FROM_THE_PREVIOUS_REPLY")
loRest.AddQueryParam("Action","ListOrdersByNextToken")
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