Read content of an XML node

Question

0.00/5 (No votes)

See more:

I am trying to read the contents of an XML file that contains an electronic invoice. For this, I use namespace but I have not been able to extract the data found in the <cac:additionalitemproperty> element.
The code that I do is the following and additionally part of the XML:

XML

<AttachedDocument xmlns="urn:oasis:names:specification:ubl:schema:xsd:AttachedDocument-2" xmlns:ds="http://www.w3.org/2000/09/xmldsig#" xmlns:cac="urn:oasis:names:specification:ubl:schema:xsd:CommonAggregateComponents-2" xmlns:cbc="urn:oasis:names:specification:ubl:schema:xsd:CommonBasicComponents-2" xmlns:ccts="urn:un:unece:uncefact:data:specification:CoreComponentTypeSchemaModule:2" xmlns:ext="urn:oasis:names:specification:ubl:schema:xsd:CommonExtensionComponents-2" xmlns:xades="http://uri.etsi.org/01903/v1.3.2#" xmlns:xades141="http://uri.etsi.org/01903/v1.4.1#">
<ext:UBLExtensions>
...
</ext:UBLExtensions>
<cbc:UBLVersionID>UBL 2.1</cbc:UBLVersionID>
<cbc:CustomizationID>Doctos</cbc:CustomizationID>
<cbc:ID>DT41647</cbc:ID>
<cbc:IssueDate>2023-03-17</cbc:IssueDate>
<cbc:ParentDocumentID>DT41647</cbc:ParentDocumentID>
<cac:SenderParty>
...
</cac:SenderParty>
<cac:ReceiverParty>
...
</cac:ReceiverParty>
<cac:Attachment>
<cac:ExternalReference>
<cbc:MimeCode>text/xml</cbc:MimeCode>
<cbc:EncodingCode>UTF-8</cbc:EncodingCode>
<cbc:Description>
<![CDATA[ <?xml version="1.0" encoding="UTF-8" standalone="no"?><Invoice xmlns:cac="urn:oasis:names:specification:ubl:schema:xsd:CommonAggregateComponents-2" xmlns:cbc="urn:oasis:names:specification:ubl:schema:xsd:CommonBasicComponents-2" xmlns:ext="urn:oasis:names:specification:ubl:schema:xsd:CommonExtensionComponents-2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:sts="xxxx" xmlns:xades="http://uri.etsi.org/01903/v1.3.2#" xmlns:xades141="http://uri.etsi.org/01903/v1.4.1#" xmlns:ds="http://www.w3.org/2000/09/xmldsig#" xmlns:oth="http://example.org/oth" xsi:schemaLocation="urn:oasis:names:specification:ubl:schema:xsd:Invoice-2 http://docs.oasis-open.org/ubl/os-UBL-2.1/xsd/maindoc/UBL-Invoice-2.1.xsd" xmlns="urn:oasis:names:specification:ubl:schema:xsd:Invoice-2"><ext:UBLExtensions>
<ext:UBLExtension><ext:ExtensionContent>
<sts:xxxExtensions><sts:InvoiceControl><sts:InvoiceAuthorization>99999999</sts:InvoiceAuthorization><sts:AuthorizationPeriod><cbc:StartDate>2023-02-23</cbc:StartDate><cbc:EndDate>2024-02-23</cbc:EndDate></sts:AuthorizationPeriod>
<cac:AdditionalItemProperty><cbc:Name>
01</cbc:Name><cbc:Value>105584152</cbc:Value>
</cac:AdditionalItemProperty><cac:AdditionalItemProperty>
<cbc:Name>02</cbc:Name><cbc:Value>2023171843
</cbc:Value></cac:AdditionalItemProperty>
<cac:AdditionalItemProperty><cbc:Name>03
</cbc:Name><cbc:Value>184000</cbc:Value>
<cbc:ValueQuantity unitCode="KG">1280</cbc:ValueQuantity>
</cac:AdditionalItemProperty></cac:Item>
<cac:Price><cbc:PriceAmount currencyID="PP">184000.00</cbc:PriceAmount>
<cbc:BaseQuantity unitCode="94">1.00</cbc:BaseQuantity>
</cac:Price></cac:InvoiceLine>
</Invoice> ]]>
</cbc:Description>
</cac:ExternalReference>
</cac:Attachment>
<cac:ParentDocumentLineReference>
...
</cac:ParentDocumentLineReference>
</AttachedDocument>

What I have tried:

VB

m_xmld = New XmlDocument
   m_xmld.Load(fileName)
   Dim manager As XmlNamespaceManager = New XmlNamespaceManager(m_xmld.NameTable)
   manager.AddNamespace("cbc", "urn:oasis:names:specification:ubl:schema:xsd:CommonBasicComponents-2")
   manager.AddNamespace("cac", "urn:oasis:names:specification:ubl:schema:xsd:CommonAggregateComponents-2")
   'manager.AddNamespace("qdt", "urn:oasis:names:specification:ubl:schema:xsd:QualifiedDatatypes-2")
   'manager.AddNamespace("xsd", "http://www.w3.org/2001/XMLSchema")
   'manager.AddNamespace("udt", "urn:un:unece:uncefact:data:specification:UnqualifiedDataTypesSchemaModule:2")
   'manager.AddNamespace("ccts", "urn:un:unece:uncefact:documentation:2")
   manager.AddNamespace("ext", "urn:oasis:names:specification:ubl:schema:xsd:CommonExtensionComponents-2")
   Dim list As XmlNodeList = m_xmld.SelectNodes("//cac:Attachment//cac:ExternalReference//cbc:Description", manager) 'da resultado 2
   'Dim nodeComprobante As XmlNode = m_xmld.SelectSingleNode("//cac:AdditionalItemProperty", manager)
   Dim nodeComprobante As XmlNode
   For Each Book As XmlNode In list
       nodeComprobante = m_xmld.SelectSingleNode("//cac:AdditionalItemProperty", manager)
       'TotalXML += Book.SelectSingleNode("//cac:AdditionalItemProperty", manager).InnerXml 'error
       'Dim mCodigo As Object = New Book.Attributes.GetNamedItem("Name").Value 'error
   Next
   MessageBox.Show("Tota: " & TotalXML, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

Posted 27-Aug-23 16:30pm

Member 12760369

Updated 28-Aug-23 9:11am

Deeksha Shenoy

v2

Add a Solution

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Richard Deeming · Answer 1 · 2023-08-28T22:41:00

For some bizarre reason, your XML document contains another XML document embedded as a string within a node. Your <cac:AdditionalItemProperty> elements belong to this embedded document; you won't be able to query them from the parent document.

Unfortunately, the XML you've shown is invalid. It's not clear whether that's a result of you editing it for the question, or whether it's really malformed. But as it stands, the structure is:

XML

<Invoice ...>
    <ext:UBLExtensions>
        <ext:UBLExtension>
            <ext:ExtensionContent>
                <sts:xxxExtensions>
                    <sts:InvoiceControl>
                        <sts:InvoiceAuthorization>
                        </sts:InvoiceAuthorization>
                        <sts:AuthorizationPeriod>
                            <cbc:StartDate>
                            </cbc:StartDate>
                            <cbc:EndDate>
                            </cbc:EndDate>
                        </sts:AuthorizationPeriod>
        
        ... CONTENT MISSING ...
        
            <cac:AdditionalItemProperty>
                <cbc:Name>
                </cbc:Name>
                <cbc:Value>
                </cbc:Value>
            </cac:AdditionalItemProperty>
            <cac:AdditionalItemProperty>
                <cbc:Name>
                </cbc:Name>
                <cbc:Value>
                </cbc:Value>
            </cac:AdditionalItemProperty>
            <cac:AdditionalItemProperty>
                <cbc:Name>
                </cbc:Name>
                <cbc:Value>
                </cbc:Value>
                <cbc:ValueQuantity>
                </cbc:ValueQuantity>
            </cac:AdditionalItemProperty>
        </cac:Item>
        <cac:Price>
            <cbc:PriceAmount>
            </cbc:PriceAmount>
            <cbc:BaseQuantity>
            </cbc:BaseQuantity>
        </cac:Price>
    </cac:InvoiceLine>
</Invoice>

Assuming that's just you editing the document for the question, and the real XML is valid, you'll need to parse the embedded XML document to a new document before you can query it:

VB.NET

For Each Book As XmlNode In list
    Dim bookXml As New XmlDocument()
    bookXml.LoadXml(Book.InnerText.Trim())
    Dim propertyNode As XmlNode = bookXml.SelectSingleNode("//cac:AdditionalItemProperty", manager)
    ...
Next

Member 12760369 · Answer 2 · 2023-10-15T16:01:00

VB

Dim nodeDescription As XmlNode = m_xmld.SelectSingleNode("//cbc:Description", manager)
                Dim childDoc = New XmlDocument
                childDoc.LoadXml(nodeDescription.FirstChild.InnerText.Trim) 
                Valuerem = ""
                Dim additional = childDoc.SelectSingleNode("//cbc:ID", manager)
                For Each xnd As XmlNode In additional
                    If Not xnd Is Nothing Then
                        Valuerem = xnd.Value
                     End If
                Next

                Dim additional2 = childDoc.SelectNodes("//cac:AdditionalItemProperty[02]", manager)
                For Each node As XmlNode In additional2
                    Dim oNode = node.SelectSingleNode("cbc:Value", manager)
                Next

Read content of an XML node

2 solutions

Solution 2

Solution 3

Add your solution here

Preview 0