Xojo Plugin

Walmart v3 Get a Feed Status

See more Walmart v3 Examples

This API returns the feed status for a specified Feed ID. Xojo Plugin

Dim success As Boolean
success = False

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

Dim http As New Chilkat.Http

// Implements the following CURL command:

// curl -X GET \
//   https://marketplace.walmartapis.com/v3/feeds/{feedId} \
//   -H 'WM_SVC.NAME: Walmart Marketplace'
//   -H 'WM_SEC.ACCESS_TOKEN: eyJraWQiOiIzZjVhYTFmNS1hYWE5LTQzM.....'
//   -H 'WM_QOS.CORRELATION_ID: b3261d2d-028a-4ef7-8602-633c23200af6'
//   -H 'Content-Type: application/xml'
//   -H 'Accept: application/xml'

http.SetRequestHeader "WM_QOS.CORRELATION_ID","b3261d2d-028a-4ef7-8602-633c23200af6"
http.SetRequestHeader "Content-Type","application/xml"
http.SetRequestHeader "WM_SEC.ACCESS_TOKEN","eyJraWQiOiIzZjVhYTFmNS1hYWE5LTQzM....."
http.SetRequestHeader "Accept","application/xml"
http.SetRequestHeader "WM_SVC.NAME","Walmart Marketplace"

Dim sbResponseBody As New Chilkat.StringBuilder
success = http.QuickGetSb("https://marketplace.walmartapis.com/v3/feeds/{feedId}",sbResponseBody)
If (success = False) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

Dim xmlResponse As New Chilkat.Xml
success = xmlResponse.LoadSb(sbResponseBody,True)

// Sample XML response:
// (Sample code for parsing the XML response is shown below)

// <?xml version="1.0" encoding="UTF-8"?>
// <PartnerFeedResponse xmlns:ns2="http://walmart.com/">
//     <feedId>1c349f8f-aec0-411f-8454-ead47d12946f</feedId>
//     <feedStatus>PROCESSED</feedStatus>
//     <ingestionErrors/>
//     <itemsReceived>11</itemsReceived>
//     <itemsSucceeded>11</itemsSucceeded>
//     <itemsFailed>0</itemsFailed>
//     <itemsProcessing>0</itemsProcessing>
//     <offset>0</offset>
//     <limit>0</limit>
//     <itemDetails>
//         <itemIngestionStatus>
//             <martId>0</martId>
//             <sku>sku1</sku>
//             <index>8</index>
//             <ingestionStatus>SUCCESS</ingestionStatus>
//             <ingestionErrors/>
//         </itemIngestionStatus>
//         <itemIngestionStatus>
//             <martId>0</martId>
//             <sku>sku2</sku>
//             <index>6</index>
//             <ingestionStatus>SUCCESS</ingestionStatus>
//             <ingestionErrors/>
//         </itemIngestionStatus>
//         <itemIngestionStatus>
//             <martId>0</martId>
//             <sku>sku3</sku>
//             <index>9</index>
//             <ingestionStatus>SUCCESS</ingestionStatus>
//             <ingestionErrors/>
//         </itemIngestionStatus>
//     </itemDetails>
// </PartnerFeedResponse>

// Sample code for parsing the XML response...
// Use the following online tool to generate parsing code from sample XML:
// Generate Parsing Code from XML

Dim PartnerFeedResponse_xmlns_ns2 As String
Dim feedId As String
Dim feedStatus As String
Dim itemsReceived As Int32
Dim itemsSucceeded As Int32
Dim itemsFailed As Int32
Dim itemsProcessing As Int32
Dim offset As Int32
Dim limit As Int32
Dim i As Int32
Dim count_i As Int32
Dim martId As Int32
Dim sku As String
Dim index As Int32
Dim ingestionStatus As String

PartnerFeedResponse_xmlns_ns2 = xmlResponse.GetAttrValue("xmlns:ns2")
feedId = xmlResponse.GetChildContent("feedId")
feedStatus = xmlResponse.GetChildContent("feedStatus")
itemsReceived = xmlResponse.GetChildIntValue("itemsReceived")
itemsSucceeded = xmlResponse.GetChildIntValue("itemsSucceeded")
itemsFailed = xmlResponse.GetChildIntValue("itemsFailed")
itemsProcessing = xmlResponse.GetChildIntValue("itemsProcessing")
offset = xmlResponse.GetChildIntValue("offset")
limit = xmlResponse.GetChildIntValue("limit")
i = 0
count_i = xmlResponse.NumChildrenHavingTag("itemDetails|itemIngestionStatus")
While i < count_i
    xmlResponse.I = i
    martId = xmlResponse.GetChildIntValue("itemDetails|itemIngestionStatus[i]|martId")
    sku = xmlResponse.GetChildContent("itemDetails|itemIngestionStatus[i]|sku")
    index = xmlResponse.GetChildIntValue("itemDetails|itemIngestionStatus[i]|index")
    ingestionStatus = xmlResponse.GetChildContent("itemDetails|itemIngestionStatus[i]|ingestionStatus")
    i = i + 1
Wend