Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VB.NET) Walmart - Send Shipping NotificationSee Shipping notifications/updates for more information about this call. Note: This example requires Chilkat v9.5.0.67 or greater.
' --------------------------------------------------------------------------------------------------------- ' Note: This example is deprecated. The Walmart API no longer uses the Signature method of authenticating. ' Walmart now uses OAuth2. ' --------------------------------------------------------------------------------------------------------- ' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' Sends the following POST request: ' POST https://marketplace.walmartapis.com/v3/orders/{purchaseOrderId}/shipping Dim sbUrl As New Chilkat.StringBuilder Dim success As Boolean = sbUrl.Append("https://marketplace.walmartapis.com/v3/orders/{purchaseOrderId}/shipping") Dim numReplaced As Integer = sbUrl.Replace("{purchaseOrderId}","1111691995111") Dim requestMethod As String = "POST" ' First we need to generate a signature for our request. ' The signature needs to be re-generated for each new Walmart HTTP request. Dim authUtil As New Chilkat.AuthUtil Dim wmConsumerId As String = "WALMART_CONSUMER_ID" Dim wmPrivateKey As String = "WALMART_PRIVATE_KEY" Dim jsonStr As String = authUtil.WalmartSignature(sbUrl.GetAsString(),wmConsumerId,wmPrivateKey,requestMethod) If (authUtil.LastMethodSuccess <> True) Then Debug.WriteLine(authUtil.LastErrorText) Exit Sub End If ' The JSON returned by WalmartSignature contains the values to be used in the following ' header fields: WM_SEC.AUTH_SIGNATURE, WM_SEC.TIMESTAMP, and WM_QOS.CORRELATION_ID Dim json As New Chilkat.JsonObject json.Load(jsonStr) Dim http As New Chilkat.Http http.SetRequestHeader("WM_SVC.NAME","Walmart Marketplace") http.SetRequestHeader("WM_QOS.CORRELATION_ID",json.StringOf("correlation_id")) http.SetRequestHeader("WM_SEC.TIMESTAMP",json.StringOf("timestamp")) http.SetRequestHeader("WM_SEC.AUTH_SIGNATURE",json.StringOf("signature")) http.SetRequestHeader("WM_CONSUMER.ID",wmConsumerId) http.SetRequestHeader("WM_CONSUMER.CHANNEL.TYPE","WALMART_CHANNEL_TYPE") http.Accept = "application/xml" ' Note: Do not explicitly set the "Host" header. Chilkat will set it automatically. ' The body of the POST request will be XML that looks something like this: ' <?xml version="1.0" encoding="UTF-8" standalone="yes"?> ' <ns2:orderShipment ' xmlns:ns2="http://walmart.com/mp/v3/orders" ' xmlns:ns3="http://walmart.com/"> ' <ns2:orderLines> ' <ns2:orderLine> ' <ns2:lineNumber>2</ns2:lineNumber> ' <ns2:orderLineStatuses> ' <ns2:orderLineStatus> ' <ns2:status>Shipped</ns2:status> ' <ns2:statusQuantity> ' <ns2:unitOfMeasurement>Each</ns2:unitOfMeasurement> ' <ns2:amount>1</ns2:amount> ' </ns2:statusQuantity> ' <ns2:trackingInfo> ' <ns2:shipDateTime>2016-06-27T05:30:15.000Z</ns2:shipDateTime> ' <ns2:carrierName> ' <ns2:carrier>FedEx</ns2:carrier> ' </ns2:carrierName> ' <ns2:methodCode>Standard</ns2:methodCode> ' <ns2:trackingNumber>12333634122</ns2:trackingNumber> ' </ns2:trackingInfo> ' </ns2:orderLineStatus> ' </ns2:orderLineStatuses> ' </ns2:orderLine> ' </ns2:orderLines> ' </ns2:orderShipment> ' Build the XML request body: Dim lineNumber As Integer = 1 Dim shippingStatus As String = "Shipped" Dim quantity As Integer = 1 Dim carrier As String = "USPS" Dim shippingMethod As String = "Standard" Dim trackingNumber As String = "9999869903501929298999" Dim dtNow As New Chilkat.CkDateTime dtNow.SetFromCurrentSystemTime() Dim shipDateTime As String = dtNow.GetAsTimestamp(False) Dim xmlBody As New Chilkat.Xml xmlBody.Tag = "ns2:orderShipment" xmlBody.AddAttribute("xmlns:ns2","http://walmart.com/mp/v3/orders") xmlBody.AddAttribute("xmlns:ns3","http://walmart.com/") xmlBody.UpdateChildContentInt("ns2:orderLines|ns2:orderLine|ns2:lineNumber",lineNumber) Dim orderLine As Chilkat.Xml = xmlBody.GetChildWithTag("ns2:orderLines|ns2:orderLine") orderLine.UpdateChildContent("ns2:orderLineStatuses|ns2:orderLineStatus|ns2:status",shippingStatus) Dim orderLineStatus As Chilkat.Xml = orderLine.GetChildWithTag("ns2:orderLineStatuses|ns2:orderLineStatus") orderLineStatus.UpdateChildContent("ns2:statusQuantity|ns2:unitOfMeasurement","Each") orderLineStatus.UpdateChildContentInt("ns2:statusQuantity|ns2:amount",quantity) orderLineStatus.UpdateChildContent("ns2:trackingInfo|ns2:shipDateTime",shipDateTime) orderLineStatus.UpdateChildContent("ns2:trackingInfo|ns2:carrierName|ns2:carrier",carrier) orderLineStatus.UpdateChildContent("ns2:trackingInfo|ns2:methodCode",shippingMethod) orderLineStatus.UpdateChildContent("ns2:trackingInfo|ns2:trackingNumber",trackingNumber) Debug.WriteLine("POST request body:") Debug.WriteLine(xmlBody.GetXml()) Debug.WriteLine("--") ' This is a simple POST that can be sent w/ the PostXml method. ' Explicitly set the Content-Type header, otherwise "text/xml" will be used. http.SetRequestHeader("Content-Type","application/xml") Dim resp As Chilkat.HttpResponse = http.PostXml(sbUrl.GetAsString(),xmlBody.GetXml(),"utf-8") If (http.LastMethodSuccess <> True) Then Debug.WriteLine(http.LastErrorText) Exit Sub End If Dim xml As New Chilkat.Xml xml.LoadXml(resp.BodyStr) ' A successful response should have a 200 response status If (resp.StatusCode <> 200) Then Debug.WriteLine(xml.GetXml()) Debug.WriteLine("Response Status Code: " & resp.StatusCode) Debug.WriteLine("Failed.") Exit Sub End If ' Show the XML response.. Debug.WriteLine(xml.GetXml()) Debug.WriteLine("--") Debug.WriteLine("Success!") |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.