VB.NET UWP/WinRT MWS Inbound: Get Transport Content

Returns current transportation information about an inbound shipment.

Documentation: http://docs.developer.amazonservices.com/en_US/fba_inbound/FBAInbound_GetTransportContent.html

CURL Command

curl -X POST https://mws.amazonaws.com/FulfillmentInboundShipment/2010-10-01 \
  -d "AWSAccessKeyId=AWS_ACCESS_KEY_ID" \
  -d "Action=GetTransportContent" \
  -d "MWSAuthToken=MWS_AUTH_TOKEN" \
  -d "SellerId=MWS_SELLER_ID" \
  -d "SignatureVersion=2" \
  -d "Timestamp=CURRENT_DATE_TIME" \
  -d "Version=2010-10-01" \
  -d "SignatureMethod=HmacSHA256" \
  -d "ShipmentId=FBAQ6QBP"

See: Online Tool to Generate Chilkat Code from a CURL Command

VB.NET UWP/WinRT Example

Dim rest As New Chilkat.Rest
Dim success As Boolean

'  URL: https://mws.amazonaws.com/FulfillmentInboundShipment/2010-10-01
Dim bTls As Boolean = True
Dim port As Integer = 443
Dim bAutoReconnect As Boolean = True
success = Await rest.ConnectAsync("mws.amazonaws.com",port,bTls,bAutoReconnect)
If (success <> True) Then
    Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason)
    Debug.WriteLine(rest.LastErrorText)
    Exit Sub
End If


rest.AddQueryParam("AWSAccessKeyId","AWS_ACCESS_KEY_ID")
rest.AddQueryParam("Action","GetTransportContent")
rest.AddQueryParam("MWSAuthToken","MWS_AUTH_TOKEN")
rest.AddQueryParam("SellerId","MWS_SELLER_ID")
rest.AddQueryParam("SignatureVersion","2")
rest.AddQueryParam("Version","2010-10-01")
rest.AddQueryParam("SignatureMethod","HmacSHA256")
rest.AddQueryParam("ShipmentId","FBAQ6QBP")



rest.Host = "mws.amazonaws.com"
'  The AddMwsSignature method adds the Timestamp and Signature query params.
rest.AddMwsSignature("POST","/FulfillmentInboundShipment/2010-10-01","mws.amazonaws.com","MWS_SECRET_KEY")

Dim strResponseBody As String = Await rest.FullRequestFormUrlEncodedAsync("POST","/FulfillmentInboundShipment/2010-10-01")
If (rest.LastMethodSuccess <> True) Then
    Debug.WriteLine(rest.LastErrorText)
    Exit Sub
End If


Dim xmlResponse As New Chilkat.Xml
xmlResponse.LoadXml(strResponseBody)

Dim GetTransportContentResponse_xmlns As String
Dim tagPath As String
Dim TrackingId As String
Dim CarrierName As String
Dim PackageStatus As String
Dim TransportStatus As String
Dim ShipmentType As String
Dim ShipmentId As String
Dim SellerId As String
Dim IsPartnered As String
Dim RequestId As String

GetTransportContentResponse_xmlns = xmlResponse.GetAttrValue("xmlns")
TrackingId = xmlResponse.GetChildContent("GetTransportContentResult|TransportContent|TransportDetails|NonPartneredSmallParcelData|PackageList|member|TrackingId")
CarrierName = xmlResponse.GetChildContent("GetTransportContentResult|TransportContent|TransportDetails|NonPartneredSmallParcelData|PackageList|member|CarrierName")
PackageStatus = xmlResponse.GetChildContent("GetTransportContentResult|TransportContent|TransportDetails|NonPartneredSmallParcelData|PackageList|member|PackageStatus")
TransportStatus = xmlResponse.GetChildContent("GetTransportContentResult|TransportContent|TransportResult|TransportStatus")
ShipmentType = xmlResponse.GetChildContent("GetTransportContentResult|TransportContent|TransportHeader|ShipmentType")
ShipmentId = xmlResponse.GetChildContent("GetTransportContentResult|TransportContent|TransportHeader|ShipmentId")
SellerId = xmlResponse.GetChildContent("GetTransportContentResult|TransportContent|TransportHeader|SellerId")
IsPartnered = xmlResponse.GetChildContent("GetTransportContentResult|TransportContent|TransportHeader|IsPartnered")
RequestId = xmlResponse.GetChildContent("ResponseMetadata|RequestId")

Sample XML Response Body

<?xml version="1.0" encoding="utf-8" ?>
<GetTransportContentResponse xmlns="http://mws.amazonaws.com/FulfillmentInboundShipment/2010-10-01/">
    <GetTransportContentResult>
        <TransportContent>
            <TransportDetails>
                <NonPartneredSmallParcelData>
                    <PackageList>
                        <member>
                            <TrackingId>1Z6Y68W00342402864</TrackingId>
                            <CarrierName>UNITED PARCEL SERVICE INC</CarrierName>
                            <PackageStatus>SHIPPED</PackageStatus>
                        </member>
                    </PackageList>
                </NonPartneredSmallParcelData>
            </TransportDetails>
            <TransportResult>
                <TransportStatus>WORKING</TransportStatus>
            </TransportResult>
            <TransportHeader>
                <ShipmentType>SP</ShipmentType>
                <ShipmentId>FBAQ6QBP</ShipmentId>
                <SellerId>A135KKEKWF1J56</SellerId>
                <IsPartnered>false</IsPartnered>
            </TransportHeader>
        </TransportContent>
    </GetTransportContentResult>
    <ResponseMetadata>
        <RequestId>89a965c3-1af7-41e3-9152-44cf0affd34b</RequestId>
    </ResponseMetadata>
</GetTransportContentResponse>