Por favor i alguien tiene conocimientos sobre lo mencionado podria auxiliarme, es buenisimo compartir code y muchisimas ideas, pondre el code como lo tengo:
Le pondre el code que lee mi XML Cargado timbrado, leyendolo en un texbox.
Código:
Sub SubLeerArchivoXml()
'Declaro variable para leer archivo Xml
Dim reader As XmlTextReader = New XmlTextReader("c:\Addenda\Archivos\addenda.xml")
'Ciclo de lectura
Do While (reader.Read())
Select Case reader.NodeType
Case XmlNodeType.Element 'Mostrar comienzo del elemento.
txtContenido.Text += "<" + reader.Name
If reader.HasAttributes Then 'If attributes exist
While reader.MoveToNextAttribute()
'Mostrar nombre y valor del atributo.
txtContenido.Text += Space(1) + reader.Name + "=" + reader.Value
End While
End If
txtContenido.Text += ">" + vbCrLf
Case XmlNodeType.Text 'Mostrar el texto de cada elemento.
txtContenido.Text += reader.Value
Case XmlNodeType.EndElement 'Mostrar final del elemento.
txtContenido.Text += " txtContenido.Text += ">" + vbCrLf
End Select
Loop
'Cierra el Archivo
reader.Close()
End Sub
Esto es para crear la addenda mediante un formulario:
Código:
'Declaro Subrutinas globales
Sub SubCrearArchivoXml()
'Declaro variable array para los libros
Dim objLibros As New ArrayList
Dim objLibro As New stcLibro
Dim objAddenda As New stcAddenda
Dim objAddendas As New ArrayList
'Variable para el Archivo Xlml
Dim myXmlTextWriter As XmlTextWriter = New XmlTextWriter("c:\Addenda\Archivos\addenda2.xml", System.Text.Encoding.UTF8)
'Anado objAddenda
'Anado unas caracteristicas de Addenda
objAddenda.TipoAddenda = CBOTADENDA.Text
objAddenda.Concepto = CBOCONCEPTO.Text
objAddenda.NumTienda = TXTUNEG.Text
objAddenda.NumProveedor = TXTNPROV.Text
objAddenda.FolioRef = TXTFOREF.Text
'AGREGO ADDENDA A COLECCION
objAddendas.Add(objAddenda)
'Añado algunos libros
objLibro.strTitulo = "Don Quijote de la Mancha"
objLibro.strAutor.strNombre = "Miguel"
objLibro.strAutor.strApellido = "de Cervantes Saavedra"
objLibro.sinPrecio = 34.5
'Agrego a la Colección
'objLibros.Add(objLibro)
objLibro.strTitulo = "Los de Abajo"
objLibro.strAutor.strNombre = "Mariano"
objLibro.strAutor.strApellido = "Azuela"
objLibro.sinPrecio = 28.5
'Agrego a la Colección
'objLibros.Add(objLibro)
objLibro.strTitulo = "Como agua para chocolate"
objLibro.strAutor.strNombre = "Laura"
objLibro.strAutor.strApellido = "Esquivel"
objLibro.sinPrecio = 34.5
'Agrego a la Colección
'objLibros.Add(objLibro)
'Formatea indentado el archivo
myXmlTextWriter.Formatting = System.Xml.Formatting.Indented
'Si escribe la inicializacion del Archivo
myXmlTextWriter.WriteStartDocument(True)
'Escribe un Comentario
' myXmlTextWriter.WriteComment("Esto es Fragmento de Addenda")
'Crear el elemento principal del documento
myXmlTextWriter.WriteStartElement("Complemento")
myXmlTextWriter.WriteAttributeString("id", "identificador")
'---------------------------ADDENDA-------------------------------
'Ciclo para incluir los elementos de la colección
For Each oAddenda As stcAddenda In objAddendas
'Escribe el inicio del elemento cfdi: Addenda
myXmlTextWriter.WriteStartElement("Addenda")
'Crear un elemento llamado 'TipoAddenda' con un nodo de texto
myXmlTextWriter.WriteStartElement("TipoAddenda")
'Escribe el Titulo
' myXmlTextWriter.WriteString(oAddenda.TipoAddenda)
'Crear un elemento llamado 'cfdi:Concepto' con un nodo de texto
' y cerrarlo en una línea.
myXmlTextWriter.WriteElementString("TipoAddenda", oAddenda.TipoAddenda)
'Cierra el elemento.
myXmlTextWriter.WriteEndElement()
'Crear un elemento llamado 'Concepto'.
myXmlTextWriter.WriteStartElement("Concepto")
'Crear un elemento llamado 'cfdi:Concepto' con un nodo de texto
' y cerrarlo en una línea.
myXmlTextWriter.WriteElementString("Concepto", oAddenda.Concepto)
'Crear un elemento llamado 'last-name' con un nodo de texto.
'myXmlTextWriter.WriteElementString("cfdi:Concepto", oAddenda.Concepto)
'Crear un elemento llamado 'UProveedor'.
myXmlTextWriter.WriteStartElement("NumProveedor")
'Crear un elemento llamado 'cfdi:Concepto' con un nodo de texto
' y cerrarlo en una línea.
myXmlTextWriter.WriteElementString("NumProveedor", oAddenda.NumProveedor)
'Crear un elemento llamado 'UProveedor'.
myXmlTextWriter.WriteStartElement("NumTienda")
'Crear un elemento llamado 'cfdi:NumTienda' con un nodo de texto
' y cerrarlo en una línea.
myXmlTextWriter.WriteElementString("NumTienda", oAddenda.NumTienda)
'Crear un elemento llamado 'UProveedor'.
myXmlTextWriter.WriteStartElement("FolioRef")
'Crear un elemento llamado 'cfdi:Concepto' con un nodo de texto
' y cerrarlo en una línea.
myXmlTextWriter.WriteElementString("FolioRef", oAddenda.FolioRef)
'Cerrar el elemento primario.
myXmlTextWriter.WriteEndElement()
'Cerrar el elemento primario.
myXmlTextWriter.WriteEndElement()
'Cerra el 3
myXmlTextWriter.WriteEndElement()
'Cerrar el 4
myXmlTextWriter.WriteEndElement()
'Cerrar el 5
' myXmlTextWriter.WriteEndElement()
Next
'Forza grabación a Disco
myXmlTextWriter.Flush()
'Cierra el Archivo
myXmlTextWriter.Close()
End Sub
Y para Leer el xml addenda es igual al de el primero de el xml cargado
Entonces si ya tengo creado el nodo en un xml como hago una vez creado antes de crearse a xml se agrege al xml leido.
Podrian auxiliarme?
Eh leido ke mediante dataset pero es cuando eh creado el XML yo, pero en este caso es uno generado de otro lado y yo lo leo y en este quiero agregarle el nodo que creo <Addenda>.
