Visual Basic.NET - AYUDA!!!. Leer Factura XML (cfdi:conceptos)

<cfdi:Conceptos>

<cfdi:Concepto importe="646425.00" valorUnitario="13.00" descripcion="GLUCOSA SERICA Y PARA LIQUIDOS ORGANICOS UNIDAD : PRUEBAS<br>" noIdentificacion="a023" unidad="SR" cantidad="49725.0000"/>

<cfdi:Concepto importe="604825.00" valorUnitario="13.00" descripcion="UREA SERICA Y URINARIA UNIDAD : PRUEBAS<br>" noIdentificacion="b345" unidad="SR" cantidad="46525.0000"/>

<cfdi:Concepto importe="660725.00" valorUnitario="13.00" descripcion="CREATININA SERICA Y URINARIA. UNIDAD : PRUEBAS<br>" noIdentificacion="b234" unidad="SR" cantidad="50825.0000"/>

<cfdi:Concepto importe="476450.00" valorUnitario="13.00" descripcion="ACIDO URICO SERICA Y URINARIA. UNIDAD : PRUEBAS<br>" noIdentificacion="b178" unidad="SR" cantidad="36650.0000"/>

<cfdi:Concepto importe="438425.00" valorUnitario="13.00" descripcion="COLESTEROL PRUEBAS UNIDAD : PRUEBAS<br>" noIdentificacion="b084" unidad="SR" cantidad="33725.0000"/>

</cfdi:Conceptos>

Imports System.Xml

try

Dim mValorUnitario as Decimal

Dim mNoIdentificacion as String

Dim m_xmld As New System.Xml.XmlDocument

Dim m_nodelist As System.Xml.XmlNodeList

Dim m_node As System.Xml.XmlNode

m_xmld = New XmlDocument()

m_xmld.Load("C:\XML\invoice.xml")

m_nodelist = m_xmld.ChildNodes()

    For Each m_node In m_nodelist

      Dim mValorUnitario = m_node.Attributes.GetNamedItem("cfdi:conceptos").ChildNodes(0).Attributes.GetNamedItem("valorUnitario").Value

       Dim mNoIdentificacion = m_node.Attributes.GetNamedItem("cfdi:conceptos").ChildNodes(0).Attributes.GetNamedItem("noIdentificacion").Value

       'aquí insertaría un código para validar con la base de datos

  Next

Catch ex As Exception

End try

Dim nsCFDi As XNamespace = "http://www.sat.gob.mx/cfd/3" 'para que pueda identificar el prefijo CFDI

Dim archivoXML As XDocument = XDocument.Load("C:\XML\books.xml") 'selecciona y abre la factura electrónica xml

Dim importe As Integer = 0 'contador para saber cuantos conceptos tiene la factura

For Each lconcepto As XElement In archivoXML.Descendants(nsCFDi + "Comprobante").Elements(nsCFDi + "Conceptos").Elements() 'ciclo que recorre todos los conceptos de la factura

Dim Name As String = lconcepto.Attribute("descripcion").Value 'obtiene el valor de la descripción para darle tratamiento posterior

importe = importe + 1

Next

MsgBox(importe & " descripciones") 'imprime cuantos conceptos encontro 

Imports System.Xml

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim Version_xml As String

        Dim implocaltraladados As Decimal

        Dim implocalretenidos As Decimal

        Dim retenidos As Decimal

        Dim trasladados As Decimal

        Dim Subtotal As Decimal

        Dim valor_noIdentificacion As String

        Dim preciounitarioxml As Decimal

        Dim importeconcepto As Decimal

        Dim cantidadvendida As Decimal

        Dim subtotalclave As Decimal = 0

        Dim descripcionxml As String

        Dim Emisor_Nombre As String

        Dim total As Decimal

        Dim UUID As String

        Dim VarConceptos As XmlNodeList

        On Error Resume Next

        Dim VarDocumentoXML As XmlDocument = New XmlDocument()

        Dim VarManager As XmlNamespaceManager = New XmlNamespaceManager(VarDocumentoXML.NameTable)

        VarDocumentoXML.Load("c:\factura3_3_prueba.xml")  'Aqui puedes definir la ruta del archivo mediante un OpenFileDialog o  algun otro metodo para especificar la ubicacion del XML

        VarManager.AddNamespace("cfdi", "http://www.sat.gob.mx/cfd/3")

        VarManager.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")

        VarManager.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")

        Version_xml = VarDocumentoXML.SelectSingleNode("/cfdi:Comprobante/@Version", VarManager).InnerText

        If Version_xml = "3.3" Then

            total = VarDocumentoXML.SelectSingleNode("/cfdi:Comprobante/@Total", VarManager).InnerText

            Emisor_Nombre = VarDocumentoXML.SelectSingleNode("/cfdi:Comprobante/cfdi:Emisor/@Nombre", VarManager).InnerText

            UUID = VarDocumentoXML.SelectSingleNode("/cfdi:Comprobante/cfdi:Complemento/tfd:TimbreFiscalDigital/@UUID", VarManager).InnerText

            Label2.Text = Emisor_Nombre

            Label4.Text = UUID

            Label5.Text = total.ToString("c")

            implocalretenidos = VarDocumentoXML.SelectSingleNode("/cfdi:Comprobante/cfdi:Complemento/implocal:ImpuestosLocales/@TotaldeRetenciones", VarManager).InnerText

            implocaltraladados = VarDocumentoXML.SelectSingleNode("/cfdi:Comprobante/cfdi:Complemento/implocal:ImpuestosLocales/@TotaldeTraslados", VarManager).InnerText

            retenidos = VarDocumentoXML.SelectSingleNode("/cfdi:Comprobante/cfdi:Impuestos/@TotalImpuestosRetenidos", VarManager).InnerText

            trasladados = VarDocumentoXML.SelectSingleNode("/cfdi:Comprobante/cfdi:Impuestos/@TotalImpuestosTrasladados", VarManager).InnerText

            Subtotal = VarDocumentoXML.SelectSingleNode("/cfdi:Comprobante/@SubTotal", VarManager).InnerText

            VarConceptos = VarDocumentoXML.SelectNodes("/cfdi:Comprobante/cfdi:Conceptos/cfdi:Concepto", VarManager)

            For Each node In VarConceptos

                valor_noIdentificacion = node.attributes("NoIdentificacion").value

                preciounitarioxml = node.attributes("ValorUnitario").value

                importeconcepto = node.attributes("Importe").value

                cantidadvendida = node.attributes("Cantidad").value

                subtotalclave = node.attributes("Importe").value

                descripcionxml = node.attributes("Descripcion").value

            Next

        Else

            MsgBox("Archivo XML no es una factura version 3.3")

        End If

    End Sub

End Class

VarrManager.AddNamespace("cfdi", "http://www.sat.gob.mx/cfd/3")

VarManager.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")

VarManager.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")

varNodestraslados = VarDocumentoXML.SelectNodes("/cfdi:Comprobante/cfdi:Impuestos/cfdi:Traslados/cfdi:Traslado", VarManager)

varNodesretenidos = VarDocumentoXML.SelectNodes("/cfdi:Comprobante/cfdi:Impuestos/cfdi:Retenciones/cfdi:Retencion", VarManager)

For Each node In varNodestraslados

    .impuestostraslados = .impuestostraslados + (node.Attributes("Importe").Value)

Next

For Each node In varNodesretenidos

    .impuestosretenidos = .impuestosretenidos + (node.Attributes("Importe").Value)

Next

<cfdi:Complemento>

    <servicioparcial:parcialesconstruccion NumPerLicoAut="4444" Version="1.0">

      <servicioparcial:Inmueble Estado="20" CodigoPostal="53290" Calle="CERRADA  DEL MUERTO 43" Municipio="morelia" />

    </servicioparcial:parcialesconstruccion>

    <implocal:ImpuestosLocales TotaldeTraslados="0.00" TotaldeRetenciones="5224.24" version="1.0">

      <implocal:RetencionesLocales Importe="5224.24" TasadeRetencion="5" ImpLocRetenido="FONDO GARANTÍA" />

    </implocal:ImpuestosLocales>

    <tfd:TimbreFiscalDigital UUID="CD256C34-D0F9-143B-B6F5-03322591E845" xmlns:tfd="http://www.sat.gob.mx/TimbreFiscalDigital" selloSAT="GnK+wWuttfh/lSyFCxbOCjlUIeogGDdg8C0Nj8tHpkCNekPy=" selloCFD="HwFjQYCu6ZRpw0YS7Wfkz5iG4QYzo8PzcHKfMw+e45u9nLLjFzUmPgrij/kguqcDITrVslx99af43PlfvOBtqCh7UClrtZCU6ZK6jY9zIeVPp41lz9VFtF2dx+in8EbUXn9dspKTnoen9gkmvZnAXrFUUYx0wrOT9hGkAoljPwA=" FechaTimbrado="2015-05-22T11:43:13" xsi:schemaLocation="http://www.sat.gob.mx/TimbreFiscalDigital http://www.sat.gob.mx/TimbreFiscalDigital/TimbreFiscalDigital.xsd" noCertificadoSAT="00001000000102285872" version="1.0" />

  </cfdi:Complemento>

</cfdi:Comprobante>

For Each lconcepto As XElement In archivoXML.Descendants(nsCFDi + "servicioparcial").Elements(nsCFDi + "parcialesconstruccion").Elements() 'ciclo que recorre todos los conceptos de la factura

    'MsgBox("inica ciclo")

    Dim Name As String = lconcepto.Attribute("NumPerLicoAut").Value 'obtiene el valor de la descripción para darle tratamiento posterior

    ' Dim Name As String = lconcepto.Attribute("descripcion").Value '32

    Dim tmp = lconcepto.Attribute("NumPerLicoAut").Value

    'Dim tmp = lconcepto.Attribute("descripcion").Value '32

    If lconcepto.Attribute("NumPerLicoAut").Value = strDescripcionO.Trim Then

        'MsgBox(lconcepto.Attribute("descripcion").Value)

        ElseIf result = DialogResult.No Then

            'MessageBox.Show("No pressed")

        End If

    End If

    importe = importe + 1

Next

<cfdi:Concepto Cantidad="2.000" ClaveProdServ="50202203" ClaveUnidad="H87" Descripcion="EL COTO CRIANZA 750ML" Descuento="50.09" Importe="333.92" NoIdentificacion="COT75002B12" Unidad="PIEZA" ValorUnitario="166.962">

    <cfdi:Impuestos>

        <cfdi:Traslados>

        <cfdi:Traslado Base="283.83" Importe="75.21" Impuesto="003" TasaOCuota="0.265000" TipoFactor="Tasa"></cfdi:Traslado>

            <cfdi:Traslado Base="359.04" Importe="57.45" Impuesto="002" TasaOCuota="0.160000" TipoFactor="Tasa"></cfdi:Traslado>

        </cfdi:Traslados>

    </cfdi:Impuestos>

</cfdi:Concepto>

VarConceptos = VarDocumentoXML.SelectNodes("/cfdi:Comprobante/cfdi:Conceptos/cfdi:Concepto", VarManager)

varNodestrasladosXLinea = VarDocumentoXML.SelectNodes("/cfdi:Comprobante/cfdi:Conceptos/cfdi:Concepto/cfdi:Impuestos/cfdi:Traslados/cfdi:Traslado", VarManager)

For Each node In VarConceptos

Dim dr As DataRow = dt.NewRow()

dr("ID") = "0" & GridViewDetalleCompras.RowCount + 1

dr("Cantidad") = node.Attributes("Cantidad").Value

dr("IDProveedor") = node.Attributes("NoIdentificacion").Value

dr("IDInterno") = ""

dr("Descripcion") = node.Attributes("Descripcion").Value

dr("Unidad") = ""

dr("Costo") = node.Attributes("ValorUnitario").Value

dr("Descuento") = node.Attributes("Descuento").Value

For Each node2 In varNodestrasladosXLinea

    Select Case node2.Attributes("Impuesto").Value()

        Case "003"

            dr("TasaIEPS") = node2.Attributes("TasaOCuota").Value()

            dr("IEPS") = node2.Attributes("Importe").Value()

        Case "002"

            dr("TasaIVA") = node2.Attributes("TasaOCuota").Value()

            dr("IVA") = node2.Attributes("Importe").Value()

    End Select

Next

Dim importe_impuesto_concepto As Decimal

Dim VarDocumentoXML As XmlDocument = New XmlDocument()

Dim VarManager As XmlNamespaceManager = New XmlNamespaceManager(VarDocumentoXML.NameTable)

VarDocumentoXML.Load(Objetos2(contadorlibros2))  'Aqui toma el archivo XML a leer (yo lo hago mediante un DragDrop en un listbox), tu puedes especificar  algun otro metodo de obtener la ruta

        VarManager.AddNamespace("cfdi", "http://www.sat.gob.mx/cfd/3")

        VarManager.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")

        VarManager.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")

importe_impuesto_concepto = VarDocumentoXML.SelectSingleNode("/cfdi:Comprobante/cfdi:Conceptos/cfdi:Concepto/cfdi:Impuestos/cfdi:Traslados/cfdi:Traslado/@Importe", VarManager).InnerText  'ESTE ES LA LINEA QUE PUDIERA INTERESARTE (LEE EL IMPORTE DEL IMPUESTO DEL CONCEPTO)