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
(Visual Basic 6.0) Walmart - Update bulk inventorySee Update bulk inventory for more information about this call. Note: This example requires Chilkat v9.5.0.67 or greater.
' 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/v2/feeds?feedType=inventory Dim success As Long Dim url As String url = "https://marketplace.walmartapis.com/v2/feeds?feedType=inventory" Dim requestMethod As String requestMethod = "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 ChilkatAuthUtil Dim wmConsumerId As String wmConsumerId = "WALMART_CONSUMER_ID" Dim wmPrivateKey As String wmPrivateKey = "WALMART_PRIVATE_KEY" Dim jsonStr As String jsonStr = authUtil.WalmartSignature(url,wmConsumerId,wmPrivateKey,requestMethod) If (authUtil.LastMethodSuccess <> 1) Then Debug.Print authUtil.LastErrorText Exit Sub End If ' Build the HTTP POST request. Dim req As New ChilkatHttpRequest req.HttpVerb = "POST" req.ContentType = "multipart/form-data" req.Path = "/v2/feeds?feedType=inventory" req.AddHeader "Accept","application/xml" ' 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 ChilkatJsonObject success = json.Load(jsonStr) req.AddHeader "WM_SVC.NAME","Walmart Marketplace" req.AddHeader "WM_QOS.CORRELATION_ID",json.StringOf("correlation_id") req.AddHeader "WM_SEC.TIMESTAMP",json.StringOf("timestamp") req.AddHeader "WM_SEC.AUTH_SIGNATURE",json.StringOf("signature") req.AddHeader "WM_CONSUMER.ID",wmConsumerId ' Note: Make sure to replace "WALMART_CHANNEL_TYPE" with the actual value for your seller account... req.AddHeader "WM_CONSUMER.CHANNEL.TYPE","WALMART_CHANNEL_TYPE" ' The body of the POST will contain XML. In this example, we'll load the XML ' from a file. The XML contains inventory data that looks something like this: ' <InventoryFeed xmlns="http://walmart.com/"> ' <InventoryHeader> ' <version>1.4</version> ' </InventoryHeader> ' <inventory> ' <sku>1068155</sku> ' <quantity> ' <unit>EACH</unit> ' <amount>10</amount> ' </quantity> ' <fulfillmentLagTime>1</fulfillmentLagTime> ' </inventory> ' <inventory> ' <sku>10210321</sku> ' <quantity> ' <unit>EACH</unit> ' <amount>20</amount> ' </quantity> ' <fulfillmentLagTime>3</fulfillmentLagTime> ' </inventory> ' </InventoryFeed> success = req.AddFileForUpload2("inventory","qa_data/walmart/inventory.xml","application/xml") If (success <> 1) Then Debug.Print req.LastErrorText Exit Sub End If Dim http As New ChilkatHttp Dim resp As ChilkatHttpResponse Set resp = http.SynchronousRequest("marketplace.walmartapis.com",443,1,req) If (http.LastMethodSuccess <> 1) Then Debug.Print http.LastErrorText Exit Sub End If Dim xml As New ChilkatXml success = xml.LoadXml(resp.BodyStr) ' A successful response should have a 200 response status If (resp.StatusCode <> 200) Then Debug.Print xml.GetXml() Debug.Print "Response Status Code: " & resp.StatusCode Debug.Print "Failed." Exit Sub End If ' Show the XML response.. Debug.Print xml.GetXml() Debug.Print "--" Debug.Print "Success!" |
© 2000-2023 Chilkat Software, Inc. All Rights Reserved.