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 - Update Inventory for an ItemDemonstrates how to update inventory for an item.
' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' Sends the following PUT request: ' PUT https://marketplace.walmartapis.com/v2/inventory?sku={SKU} Dim sbUrl As New Chilkat.StringBuilder Dim success As Boolean = sbUrl.Append("https://marketplace.walmartapis.com/v2/inventory?sku={SKU}") Dim numReplaced As Integer = sbUrl.Replace("{SKU}","HOPP~904~51041") Dim requestMethod As String = "PUT" ' 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.Accept = "application/xml" ' Note: Do not explicitly set the "Host" header. Chilkat will set it automatically. ' The body of the PUT request will be XML that looks like this: ' <?xml version="1.0" encoding="utf-8" ?> ' <wm:inventory xmlns:wm="http://walmart.com/"> ' <wm:sku>HOPP~904~51041</wm:sku> ' <wm:quantity> ' <wm:unit>EACH</wm:unit> ' <wm:amount>235</wm:amount> ' </wm:quantity> ' <wm:fulfillmentLagTime>5</wm:fulfillmentLagTime> ' </wm:inventory> ' Build the XML request body: Dim originalAmount As Integer = 234 Dim xmlBody As New Chilkat.Xml xmlBody.Tag = "wm:inventory" xmlBody.AddAttribute("xmlns:wm","http://walmart.com/") xmlBody.UpdateChildContent("wm:sku","HOPP~904~51041") xmlBody.UpdateChildContent("wm:quantity|wm:unit","EACH") xmlBody.UpdateChildContentInt("wm:quantity|wm:amount",originalAmount + 1) xmlBody.UpdateChildContent("wm:fulfillmentLagTime","5") Debug.WriteLine("PUT request body:") Debug.WriteLine(xmlBody.GetXml()) Debug.WriteLine("--") ' This is a simple PUT that can be sent w/ the PutText method. Dim xmlStr As String = http.PutText(sbUrl.GetAsString(),xmlBody.GetXml(),"utf-8","application/xml",False,False) If (http.LastMethodSuccess <> True) Then Debug.WriteLine(http.LastErrorText) Exit Sub End If Dim xml As New Chilkat.Xml xml.LoadXml(xmlStr) ' A successful response should have a 200 response status If (http.LastStatus <> 200) Then Debug.WriteLine(xml.GetXml()) Debug.WriteLine("Response Status Code: " & http.LastStatus) Debug.WriteLine("Failed.") Exit Sub End If ' A sample XML response is shown below.. Debug.WriteLine(xml.GetXml()) Debug.WriteLine("--") Debug.WriteLine("Success!") ' --------------------------------------- ' Sample XML response ' --------------------------------------- ' <?xml version="1.0" encoding="UTF-8" standalone="yes" ?> ' <inventory xmlns="http://walmart.com/"> ' <sku>HOPP~904~51041</sku> ' <quantity> ' <unit>EACH</unit> ' <amount>235</amount> ' </quantity> ' <fulfillmentLagTime>5</fulfillmentLagTime> ' </inventory> |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.