VB.NET

Walmart v3 Get a Feed Status

See more Walmart v3 Examples

This API returns the feed status for a specified Feed ID. VB.NET

Dim success As Boolean = 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
    Debug.WriteLine(http.LastErrorText)
    Exit Sub
End If


Dim xmlResponse As New Chilkat.Xml
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 Integer
Dim itemsSucceeded As Integer
Dim itemsFailed As Integer
Dim itemsProcessing As Integer
Dim offset As Integer
Dim limit As Integer
Dim i As Integer
Dim count_i As Integer
Dim martId As Integer
Dim sku As String
Dim index As Integer
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
End While