(VB.NET) Amazon SP-API Get Orders

See more Amazon SP-API Examples

Demonstrates Amazon SP-API Sellers API -- get orders. Returns orders created or updated during the time frame indicated by the specified parameters.

For more information, see https://developer-docs.amazon.com/sp-api/docs/orders-api-v0-reference#getorders

Chilkat .NET Downloads Chilkat .NET Assemblies Chilkat for .NET Core Chilkat for Mono

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

' IMPORTANT:
' You'll need to make changes to use values specific to your own region and account.
' 
' Here is a list of values you'll need to change or provide:
' 
' 1) The access key. Change AWS_ACCESS_KEY to your actual access key.
' 2) The secret key. Change AWS_SECRET_KEY to your actual access key.
' 3) Your region.  Change "ew-west-1" to your region.
' 4) The domain to which you connect.  Change sandbox.sellingpartnerapi-eu.amazon.com to non-sandbox by removing the "sandbox." 
'    and change the "-eu" part of the domain to your region. See https://developer-docs.amazon.com/sp-api/docs/sp-api-endpoints
' 5) Use the restricted data token (RDT) obtained from your code that previously obtained the RDT.
' 	If you saved the RDT to a file, update the relative file path "qa_data/tokens/sp_api_rdt_token.json" to your actual file path.
' 6) Update your Marketplace ID(s), such as ATVPDKIKX0DER
' 7) If using the non-sandbox, change the CreatedAfter from "TEST_CASE_200" to an actual date, such as "2022-12-25"


Dim authAws As New Chilkat.AuthAws
authAws.AccessKey = "AWS_ACCESS_KEY"
authAws.SecretKey = "AWS_SECRET_KEY"
authAws.ServiceName = "execute-api"
' Use the region that is correct for your needs.
authAws.Region = "eu-west-1"

Dim rest As New Chilkat.Rest
Dim bTls As Boolean = True
Dim port As Integer = 443
Dim bAutoReconnect As Boolean = True
' Make sure to use the correct domain.
' This example is using the sandbox
Dim success As Boolean = rest.Connect("sandbox.sellingpartnerapi-eu.amazon.com",port,bTls,bAutoReconnect)
If (success = False) Then
    Debug.WriteLine(rest.LastErrorText)
    Exit Sub
End If


success = rest.SetAuthAws(authAws)

' Here's the example to get the RDT access token: Get SP-API Restricted Data Token

' Load the previously obtained RDT access token.
' See Fetch SP-API RDT Access Token
Dim jsonToken As New Chilkat.JsonObject
success = jsonToken.LoadFile("qa_data/tokens/sp_api_rdt_token.json")
If (success = False) Then
    Debug.WriteLine("Failed to load RDT access token.")
    Exit Sub
End If


' Add the x-amz-access-token request header.
Dim rdt_token As String = jsonToken.StringOf("restrictedDataToken")
rest.ClearAllHeaders()
rest.AddHeader("x-amz-access-token",rdt_token)

' Indicate the marketplace IDs.  Use the marketplace ID for your needs. See https://developer-docs.amazon.com/sp-api/docs/marketplace-ids
rest.ClearAllQueryParams()
' When using the sandbox, use these params literally and exactly has shown here:
rest.AddQueryParam("MarketplaceIds","ATVPDKIKX0DER")
rest.AddQueryParam("CreatedAfter","TEST_CASE_200")

Dim sbResponse As New Chilkat.StringBuilder
Dim uri As String = "/orders/v0/orders"
success = rest.FullRequestNoBodySb("GET",uri,sbResponse)
If (success = False) Then
    Debug.WriteLine(rest.LastErrorText)
    Exit Sub
End If


' Examine the response status.
Dim statusCode As Integer = rest.ResponseStatusCode
If (statusCode <> 200) Then
    Debug.WriteLine("Response status text: " & rest.ResponseStatusText)
    Debug.WriteLine("Response body: ")
    Debug.WriteLine(sbResponse.GetAsString())
    Debug.WriteLine("Failed.")
    Exit Sub
End If


Debug.WriteLine(sbResponse.GetAsString())

' If successful, gets a JSON response such as the following:

' {
'   "payload": {
'     "CreatedBefore": "1.569521782042E9",
'     "Orders": [
'       {
'         "AmazonOrderId": "902-1845936-5435065",
'         "PurchaseDate": "1970-01-19T03:58:30Z",
'         "LastUpdateDate": "1970-01-19T03:58:32Z",
'         "OrderStatus": "Unshipped",
'         "FulfillmentChannel": "MFN",
'         "SalesChannel": "Amazon.com",
'         "ShipServiceLevel": "Std US D2D Dom",
'         "OrderTotal": {
'           "CurrencyCode": "USD",
'           "Amount": "11.01"
'         },
'         "NumberOfItemsShipped": 0,
'         "NumberOfItemsUnshipped": 1,
'         "PaymentMethod": "Other",
'         "PaymentMethodDetails": [
'           "Standard"
'         ],
'         "IsReplacementOrder": false,
'         "MarketplaceId": "ATVPDKIKX0DER",
'         "ShipmentServiceLevelCategory": "Standard",
'         "OrderType": "StandardOrder",
'         "EarliestShipDate": "1970-01-19T03:59:27Z",
'         "LatestShipDate": "1970-01-19T04:05:13Z",
'         "EarliestDeliveryDate": "1970-01-19T04:06:39Z",
'         "LatestDeliveryDate": "1970-01-19T04:15:17Z",
'         "IsBusinessOrder": false,
'         "IsPrime": false,
'         "IsGlobalExpressEnabled": false,
'         "IsPremiumOrder": false,
'         "IsSoldByAB": false,
'         "IsIBA": false,
'         "DefaultShipFromLocationAddress": {
'           "Name": "MFNIntegrationTestMerchant",
'           "AddressLine1": "2201 WESTLAKE AVE",
'           "City": "SEATTLE",
'           "StateOrRegion": "WA",
'           "PostalCode": "98121-2778",
'           "CountryCode": "US",
'           "Phone": "+1 480-386-0930 ext. 73824",
'           "AddressType": "Commercial"
'         },
'         "FulfillmentInstruction": {
'           "FulfillmentSupplySourceId": "sampleSupplySourceId"
'         },
'         "IsISPU": false,
'         "IsAccessPointOrder": false,
'         "AutomatedShippingSettings": {
'           "HasAutomatedShippingSettings": false
'         },
'         "EasyShipShipmentStatus": "PendingPickUp",
'         "ElectronicInvoiceStatus": "NotRequired"
'       },
'       {
'         "AmazonOrderId": "902-8745147-1934268",
'         "PurchaseDate": "1970-01-19T03:58:30Z",
'         "LastUpdateDate": "1970-01-19T03:58:32Z",
'         "OrderStatus": "Unshipped",
'         "FulfillmentChannel": "MFN",
'         "SalesChannel": "Amazon.com",
'         "ShipServiceLevel": "Std US D2D Dom",
'         "OrderTotal": {
'           "CurrencyCode": "USD",
'           "Amount": "11.01"
'         },
'         "NumberOfItemsShipped": 0,
'         "NumberOfItemsUnshipped": 1,
'         "PaymentMethod": "Other",
'         "PaymentMethodDetails": [
'           "Standard"
'         ],
'         "IsReplacementOrder": false,
'         "MarketplaceId": "ATVPDKIKX0DER",
'         "ShipmentServiceLevelCategory": "Standard",
'         "OrderType": "StandardOrder",
'         "EarliestShipDate": "1970-01-19T03:59:27Z",
'         "LatestShipDate": "1970-01-19T04:05:13Z",
'         "EarliestDeliveryDate": "1970-01-19T04:06:39Z",
'         "LatestDeliveryDate": "1970-01-19T04:15:17Z",
'         "IsBusinessOrder": false,
'         "IsPrime": false,
'         "IsAccessPointOrder": false,
'         "IsGlobalExpressEnabled": false,
'         "IsPremiumOrder": false,
'         "IsSoldByAB": false,
'         "IsIBA": false,
'         "EasyShipShipmentStatus": "PendingPickUp",
'         "ElectronicInvoiceStatus": "NotRequired"
'       }
'     ]
'   }
' }


' Use this online tool to generate parsing code from sample JSON: 
' Generate Parsing Code from JSON

Dim json As New Chilkat.JsonObject

json.LoadSb(sbResponse)

Dim AmazonOrderId As String
Dim PurchaseDate As String
Dim LastUpdateDate As String
Dim OrderStatus As String
Dim FulfillmentChannel As String
Dim SalesChannel As String
Dim ShipServiceLevel As String
Dim CurrencyCode As String
Dim Amount As String
Dim NumberOfItemsShipped As Integer
Dim NumberOfItemsUnshipped As Integer
Dim PaymentMethod As String
Dim IsReplacementOrder As Boolean
Dim MarketplaceId As String
Dim ShipmentServiceLevelCategory As String
Dim OrderType As String
Dim EarliestShipDate As String
Dim LatestShipDate As String
Dim EarliestDeliveryDate As String
Dim LatestDeliveryDate As String
Dim IsBusinessOrder As Boolean
Dim IsPrime As Boolean
Dim IsGlobalExpressEnabled As Boolean
Dim IsPremiumOrder As Boolean
Dim IsSoldByAB As Boolean
Dim IsIBA As Boolean
Dim Name As String
Dim AddressLine1 As String
Dim City As String
Dim StateOrRegion As String
Dim PostalCode As String
Dim CountryCode As String
Dim Phone As String
Dim AddressType As String
Dim FulfillmentSupplySourceId As String
Dim IsISPU As Boolean
Dim IsAccessPointOrder As Boolean
Dim HasAutomatedShippingSettings As Boolean
Dim EasyShipShipmentStatus As String
Dim ElectronicInvoiceStatus As String
Dim j As Integer
Dim count_j As Integer
Dim strVal As String

Dim CreatedBefore As String = json.StringOf("payload.CreatedBefore")
Dim i As Integer = 0
Dim count_i As Integer = json.SizeOfArray("payload.Orders")
While i < count_i
    json.I = i
    AmazonOrderId = json.StringOf("payload.Orders[i].AmazonOrderId")
    PurchaseDate = json.StringOf("payload.Orders[i].PurchaseDate")
    LastUpdateDate = json.StringOf("payload.Orders[i].LastUpdateDate")
    OrderStatus = json.StringOf("payload.Orders[i].OrderStatus")
    FulfillmentChannel = json.StringOf("payload.Orders[i].FulfillmentChannel")
    SalesChannel = json.StringOf("payload.Orders[i].SalesChannel")
    ShipServiceLevel = json.StringOf("payload.Orders[i].ShipServiceLevel")
    CurrencyCode = json.StringOf("payload.Orders[i].OrderTotal.CurrencyCode")
    Amount = json.StringOf("payload.Orders[i].OrderTotal.Amount")
    NumberOfItemsShipped = json.IntOf("payload.Orders[i].NumberOfItemsShipped")
    NumberOfItemsUnshipped = json.IntOf("payload.Orders[i].NumberOfItemsUnshipped")
    PaymentMethod = json.StringOf("payload.Orders[i].PaymentMethod")
    IsReplacementOrder = json.BoolOf("payload.Orders[i].IsReplacementOrder")
    MarketplaceId = json.StringOf("payload.Orders[i].MarketplaceId")
    ShipmentServiceLevelCategory = json.StringOf("payload.Orders[i].ShipmentServiceLevelCategory")
    OrderType = json.StringOf("payload.Orders[i].OrderType")
    EarliestShipDate = json.StringOf("payload.Orders[i].EarliestShipDate")
    LatestShipDate = json.StringOf("payload.Orders[i].LatestShipDate")
    EarliestDeliveryDate = json.StringOf("payload.Orders[i].EarliestDeliveryDate")
    LatestDeliveryDate = json.StringOf("payload.Orders[i].LatestDeliveryDate")
    IsBusinessOrder = json.BoolOf("payload.Orders[i].IsBusinessOrder")
    IsPrime = json.BoolOf("payload.Orders[i].IsPrime")
    IsGlobalExpressEnabled = json.BoolOf("payload.Orders[i].IsGlobalExpressEnabled")
    IsPremiumOrder = json.BoolOf("payload.Orders[i].IsPremiumOrder")
    IsSoldByAB = json.BoolOf("payload.Orders[i].IsSoldByAB")
    IsIBA = json.BoolOf("payload.Orders[i].IsIBA")
    Name = json.StringOf("payload.Orders[i].DefaultShipFromLocationAddress.Name")
    AddressLine1 = json.StringOf("payload.Orders[i].DefaultShipFromLocationAddress.AddressLine1")
    City = json.StringOf("payload.Orders[i].DefaultShipFromLocationAddress.City")
    StateOrRegion = json.StringOf("payload.Orders[i].DefaultShipFromLocationAddress.StateOrRegion")
    PostalCode = json.StringOf("payload.Orders[i].DefaultShipFromLocationAddress.PostalCode")
    CountryCode = json.StringOf("payload.Orders[i].DefaultShipFromLocationAddress.CountryCode")
    Phone = json.StringOf("payload.Orders[i].DefaultShipFromLocationAddress.Phone")
    AddressType = json.StringOf("payload.Orders[i].DefaultShipFromLocationAddress.AddressType")
    FulfillmentSupplySourceId = json.StringOf("payload.Orders[i].FulfillmentInstruction.FulfillmentSupplySourceId")
    IsISPU = json.BoolOf("payload.Orders[i].IsISPU")
    IsAccessPointOrder = json.BoolOf("payload.Orders[i].IsAccessPointOrder")
    HasAutomatedShippingSettings = json.BoolOf("payload.Orders[i].AutomatedShippingSettings.HasAutomatedShippingSettings")
    EasyShipShipmentStatus = json.StringOf("payload.Orders[i].EasyShipShipmentStatus")
    ElectronicInvoiceStatus = json.StringOf("payload.Orders[i].ElectronicInvoiceStatus")
    j = 0
    count_j = json.SizeOfArray("payload.Orders[i].PaymentMethodDetails")
    While j < count_j
        json.J = j
        strVal = json.StringOf("payload.Orders[i].PaymentMethodDetails[j]")
        j = j + 1
    End While
    i = i + 1
End While


Debug.WriteLine("Success!")