Quantcast
Channel: VBForums
Viewing all articles
Browse latest Browse all 15990

Read XML from REST API

$
0
0
Hi All

I'm having to read XML data coming from a REST API, i'm getting the data back from the web service with no problem. I'm trying to iterate through the nodes to get all the order data but for some reason i'm just not coming right. Here is my code for running through the XML.

Code:

  Dim xDoc As New MSXML2.DOMDocument60
    Dim objTableRecords As MSXML2.IXMLDOMNodeList
    Dim objTable As MSXML2.IXMLDOMNode
    Dim objTableColumns As MSXML2.IXMLDOMElement
    Dim m_NS As String

    Set xDoc = New MSXML2.DOMDocument60
   
    WebRequest EdiApiUrl
   
    If xDoc.LoadXML(ApiResult) = False Then
        MsgBox "Connection failure !", vbInformation
        Exit Sub
    End If
   
    Set objTableRecords = xDoc.documentElement.selectNodes("/Document")
   
    For Each objTable In objTableRecords
        fgEdi.Rows = fgEdi.Rows + 1
        For Each objTableColumns In objTable.childNodes
            Select Case objTableColumns.baseName
                Case ""

                Case ""

                Case ""

                Case ""

                Case ""

                Case ""

            End Select
        Next objTableColumns
    Next objTable

here is a sample of the XML coming from Postman

?xml version="1.0" encoding="utf-8"?>
<Document>
<Item>
<message xmlns="urn:ean.ucc:2">
<messageIdentifier>26731590</messageIdentifier>
<sender>6001000000001</sender>
<receiver>6001007800222</receiver>
<entityIdentification>
<uniqueCreatorIdentification>4579344309</uniqueCreatorIdentification>
<contentOwner>
<gln>6001000000001</gln>
</contentOwner>
</entityIdentification>
<transaction>
<entityIdentification>
<uniqueCreatorIdentification>4579344309</uniqueCreatorIdentification>
<contentOwner>
<gln>6001000000001</gln>
</contentOwner>
</entityIdentification>
<command>
<documentCommand xmlns="urn:ean.ucc:2">
<documentCommandHeader type="ADD">
<entityIdentification>
<uniqueCreatorIdentification>4579344309</uniqueCreatorIdentification>
<contentOwner>
<gln>6001000000001</gln>
</contentOwner>
</entityIdentification>
</documentCommandHeader>
<documentCommandOperand>
<order creationDateTime="2020-08-03T00:00:00" documentStatus="ORIGINAL" xmlns="urn:ean.ucc:order:2">
<orderIdentification>
<uniqueCreatorIdentification>4579344309</uniqueCreatorIdentification>
<contentOwner>
<gln>6001000000001</gln>
<additionalPartyIdentification>
<additionalPartyIdentificationValue />
<additionalPartyIdentificationType>ALLOCATION_DC</additionalPartyIdentificationType>
</additionalPartyIdentification>
</contentOwner>
</orderIdentification>
<orderPartyInformation>
<seller>
<gln>6001007800222</gln>
<additionalPartyIdentification>
<additionalPartyIdentificationValue>1000003458</additionalPartyIdentificationValue>
<additionalPartyIdentificationType>BUYER_ASSIGNED_IDENTIFIER_FOR_A_PARTY</additionalPartyIdentificationType>
</additionalPartyIdentification>
<additionalPartyIdentification>
<additionalPartyIdentificationValue>Pick n Pay Support Bakery</additionalPartyIdentificationValue>
<additionalPartyIdentificationType>BUYER_ASSIGNED_IDENTIFIER_FOR_A_PARTY</additionalPartyIdentificationType>
</additionalPartyIdentification>
<additionalPartyIdentification>
<additionalPartyIdentificationValue>4090105588</additionalPartyIdentificationValue>
<additionalPartyIdentificationType>SELLER_ASSIGNED_IDENTIFIER_FOR_A_PARTY</additionalPartyIdentificationType>
</additionalPartyIdentification>
</seller>
<buyer>
<gln>6001007034009</gln>
<additionalPartyIdentification>
<additionalPartyIdentificationValue>Longmeadow DC</additionalPartyIdentificationValue>
<additionalPartyIdentificationType>BUYER_ASSIGNED_IDENTIFIER_FOR_A_PARTY</additionalPartyIdentificationType>
</additionalPartyIdentification>
</buyer>
</orderPartyInformation>
<orderLogisticalInformation>
<shipToLogistics>
<shipTo>
<gln>6001007022334</gln>
<additionalPartyIdentification>
<additionalPartyIdentificationValue>MA08</additionalPartyIdentificationValue>
<additionalPartyIdentificationType>BUYER_ASSIGNED_IDENTIFIER_FOR_A_PARTY</additionalPartyIdentificationType>
</additionalPartyIdentification>
<additionalPartyIdentification>
<additionalPartyIdentificationValue>KZN DC Perishables</additionalPartyIdentificationValue>
<additionalPartyIdentificationType>BUYER_ASSIGNED_IDENTIFIER_FOR_A_PARTY</additionalPartyIdentificationType>
</additionalPartyIdentification>
</shipTo>
</shipToLogistics>
<orderLogisticalDateGroup>
<requestedDeliveryDateAtUltimateConsignee>
<date>2020-08-06T00:00:00+00:00</date>
</requestedDeliveryDateAtUltimateConsignee>
</orderLogisticalDateGroup>
</orderLogisticalInformation>
<orderLineItem number="10">
<requestedQuantity>
<value>3</value>
</requestedQuantity>
<netPrice>
<amount>
<currencyCode>
<currencyISOCode>ZAR</currencyISOCode>
</currencyCode>
<monetaryAmount>120.6</monetaryAmount>
</amount>
</netPrice>
<netAmount>
<amount>
<currencyCode>
<currencyISOCode>ZAR</currencyISOCode>
</currencyCode>
<monetaryAmount>416.07</monetaryAmount>
</amount>
</netAmount>

I cant figure out where i'm going wrong, please can someone help me in the right direction.

Many thanks

Viewing all articles
Browse latest Browse all 15990

Latest Images

Trending Articles



Latest Images

<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>