'1. Cargo atravez de txtLoad la URL de la Factura Timbrada y sellada por SAT desde un directorio. Dim docXmlFile As XmlDocument = New XmlDocument() docXmlFile.Load(txtLoad.Text) 'Para sellecionarlo desde archivo '2. Crear en otro XmlDocument el Nodo a Insertar Este lo cargo directamende del directorio, es el nodo Addenda capturado. Pueden poner otro nombre, en este caso porque lo hago para una factura. Dim XmlAddenda As New XmlDocument() XmlAddenda.Load("C:\XML\Addenda.xml") '3. Import el nodo Addenda dedocXmlA en el documento Original docXmlF. Dim Addenda As XmlNode = docXmlFile.ImportNode(XmlAddenda.DocumentElement.LastChild, True) docXmlFile.DocumentElement.AppendChild(Addenda) ' 4. Save the modified fil XML a formato UTF8. docXmlFile.PreserveWhitespace = True Dim wrtr As XmlTextWriter = New XmlTextWriter(txtGuardarA.Text + txtAddendaXml.Text, System.Text.Encoding.UTF8) docXmlFile.WriteTo(wrtr) wrtr.Close() '5. Guardo y Senalo la Direccion docXmlF.Save(Console.Out) Console.WriteLine("C:\XML\CTT + .xml is created") Console.ReadLine() Console.WriteLine("Mostrando que se ha modificado el XML...") MsgBox("Se genero Addenda Completa" & _ " en" & _ " C:\XML\CTT + Folio .xml is created XDXDXD...", MsgBoxStyle.OkOnly)
