
17/03/2005, 09:19
|
| | Fecha de Ingreso: mayo-2004 Ubicación: Managua, Nicaragua
Mensajes: 281
Antigüedad: 20 años, 10 meses Puntos: 0 | |
Aqui tenes un ejemplo para agregar Nodos a tu XML.
Dim objParser = Server.CreateObject("Microsoft.XMLDOM")
Dim Node = Server.CreateObject("Microsoft.XMLDOM")
Dim Fila = Server.CreateObject("Microsoft.XMLDOM")
Sub XML(ByVal Id As String, Optional ByVal Cad As String = "")
Fila = objParser.createElement("Fila") 'Se crea el Nodo Fila
Fila.setAttribute("Id", Id)
Fila.appendChild(objParser.createElement("TipoLine a"))
Fila.childNodes.Item(0).text = Request.Form("cmboTipLin" & Request.Form("NFila"))
Fila.appendChild(objParser.createElement("Cantidad "))
Fila.childNodes.Item(1).text = "0"
Fila.appendChild(objParser.createElement("ValorDet alle"))
Fila.childNodes.Item(2).text = "0"
Fila.appendChild(objParser.createElement("Impuesto "))
Fila.childNodes.Item(3).text = "0"
End Sub
O Para crearlos:
Imports System.IO
Imports System.Xml
Sub Xml(ByVal Fecha$, ByVal BsTc$)
Dim path$ = Session("FullPathXMLU")
Dim ArchivoXML As XmlTextWriter = New XmlTextWriter(path, Nothing)
With ArchivoXML
.Formatting = System.Xml.Formatting.Indented
.WriteStartDocument(False)
.WriteStartElement("MovimientoCXP") 'Encabezado del formulario Detalles
.WriteStartElement("Cabecera") 'Descripción de Cabecera
.WriteAttributeString("Id", Session("Usr")) 'Poner Nombre del Usuario que crea el archivo
.WriteElementString("TTrans", Request.QueryString("tTran")) 'Hijo de Cabecera
.WriteElementString("Detalles", "")
.WriteEndElement()
.WriteEndElement()
.Flush()
.Close()
End With
End Sub
__________________ Julio Hernández |