(DataFlex) 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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoRest
    Boolean iBTls
    Integer iPort
    Boolean iBAutoReconnect
    Boolean iSuccess
    String sResponseXml
    String sTemp1
    Integer iTemp1
    Boolean bTemp1

    // 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

    Get Create (RefClass(cComChilkatRest)) To hoRest
    If (Not(IsComObjectCreated(hoRest))) Begin
        Send CreateComObject of hoRest
    End

    // 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 
    // 
    Move True To iBTls
    Move 443 To iPort
    Move True To iBAutoReconnect
    Get ComConnect Of hoRest "mws.amazonservices.com" iPort iBTls iBAutoReconnect To iSuccess

    Set ComHost Of hoRest To "mws.amazonservices.com"

    // Add query params
    Get ComAddQueryParam Of hoRest "NextToken" "THE_NEXT_TOKEN_FROM_THE_PREVIOUS_REPLY" To iSuccess
    Get ComAddQueryParam Of hoRest "Action" "ListOrdersByNextToken" To iSuccess
    Get ComAddQueryParam Of hoRest "MarketplaceId.Id.1" "MWS_MARKETPLACE_ID" To iSuccess
    Get ComAddQueryParam Of hoRest "SellerId" "MWS_SELLER_ID" To iSuccess
    Get ComAddQueryParam Of hoRest "AWSAccessKeyId" "MWS_ACCESS_KEY_ID" To iSuccess
    Get ComAddQueryParam Of hoRest "SignatureVersion" "2" To iSuccess
    Get ComAddQueryParam Of hoRest "SignatureMethod" "HmacSHA256" To iSuccess
    Get ComAddQueryParam Of hoRest "Version" "2013-09-01" To iSuccess

    // Add the MWS Signature param.  (Also adds the Timestamp parameter using the curent system date/time.)
    Get ComAddMwsSignature Of hoRest "POST" "/Orders/2013-09-01" "mws.amazonservices.com" "MWS_SECRET_ACCESS_KEY_ID" To iSuccess

    Get ComFullRequestFormUrlEncoded Of hoRest "POST" "/Orders/2013-09-01" To sResponseXml
    Get ComLastMethodSuccess Of hoRest To bTemp1
    If (bTemp1 <> True) Begin
        Get ComLastErrorText Of hoRest To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComResponseStatusCode Of hoRest To iTemp1
    If (iTemp1 <> 200) Begin
        // Examine the request/response to see what happened.
        Get ComResponseStatusCode Of hoRest To iTemp1
        Showln "response status code = " iTemp1
        Get ComResponseStatusText Of hoRest To sTemp1
        Showln "response status text = " sTemp1
        Get ComResponseHeader Of hoRest To sTemp1
        Showln "response header: " sTemp1
        Showln "response body: " sResponseXml
        Showln "---"
        Get ComLastRequestStartLine Of hoRest To sTemp1
        Showln "LastRequestStartLine: " sTemp1
        Get ComLastRequestHeader Of hoRest To sTemp1
        Showln "LastRequestHeader: " sTemp1
    End

    // Examine the XML returned in the response body.
    Showln sResponseXml
    Showln "----"
    Showln "Success."


End_Procedure