ValidaCFD

Código: Seleccionar todo

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Dim uuid As String = String.Empty, fecha As String = String.Empty

        Dim nTimbreFiscal As XmlNode

        Dim xml As String = "PruebaTimbre.xml"
        Dim xml1 As String = "PruebaXML.xml"


        If Not String.IsNullOrEmpty(xml) Then
            Dim xDoc As New XmlDocument()
            Dim xDoc1 As New XmlDocument()
            Dim xDoc2 As New XmlDocument()
            xDoc.Load(xml)
            xDoc1.Load(xml1)

            nTimbreFiscal = xDoc1.CreateNode(XmlNodeType.Element, "Complemento", "")
            nTimbreFiscal.Prefix = "cfdi"
           'ontengo el nodo Comprobante o nodo raiz
            Dim nodoRaiz As XmlNode = xDoc1.DocumentElement

            Dim lista As XmlNodeList = xDoc.GetElementsByTagName("tfd:TimbreFiscalDigital")

            If lista.Count >= 1 Then
                For Each nodo As XmlElement In lista

                    Dim nTemporal As XmlAttribute

                    uuid = nodo.GetAttribute("UUID")
                    nTemporal = xDoc1.CreateAttribute("UUID")
                    nTemporal.Value = uuid
                    nTimbreFiscal.Attributes.Append(nTemporal)
                  

                    fecha = nodo.GetAttribute("FechaTimbrado")
                    nTemporal = xDoc1.CreateAttribute("FechaTimbrado")
                    nTemporal.Value = uuid
                    nTimbreFiscal.Attributes.Append(nTemporal)

                    xDoc1.InsertAfter(nTimbreFiscal, nodoRaiz.FirstChild)

                    xDoc1.Save("XML_con_timbre.xml")
                Next

            End If
        End If

    End Sub