Hola
Tengo que realizar una addenda para Qualitas y me piden el ultmio apartado con el siguiente formato
<Personalizados>
<campoString name=" Solicitante"></campoString>
<campoString name="NomSolicitante "></campoString>
<campoString name="oficinaEntregaFactura">064</campoString>
<campoString name="folioElectronico">000954264</campoString>
<campoString name="Default1">string</campoString>
<campoString name="Default2">string</campoString>
</Personalizados>
Estoy programando en VB6, pero ya me quebre la cabeza y no logro crear ese formato, alguien puede ayudarme?
DESCARGA SOFTWARE PARA FACTURA ELECTRONICA DE AQUI.
Facturacion, Validacion, Addendas, Librerias de programacion, etc.
ECODEX TIENE ESTOS NUEVOS DATOS DE CONTACTO :
Comercializacion y Ventas - Evelia Vicke evicke@ecodex.com.mx 33-16-03-03-48
Soporte - Humberto Guerrero soporte@ecodex.com.mx 33-34-90-46-03
FORMATO DE NODOS EN ADDENDA
-
- Mensajes: 3
- Registrado: Mar Mar 29, 2011 12:27 pm
FORMATO DE NODOS EN ADDENDA
Quiero aumentar ma informacion, utilizo este codigo:
Set QuaPersonali_element = Parent_node.ownerDocument.createElement("Personalizados")
QuaEcfd_element.appendChild QuaPersonali_element
Set CampoString1_element = QuaPersonali_element.appendChild(QuaPersonali_element.ownerDocument.createElement("CampoString"))
QuaPersonali_element.appendChild CampoString1_element
Set CampoString1_element = Parent_node.ownerDocument.createElement("CampoString")
QuaPersonali_element.appendChild CampoString1_element
CampoString1_element.setAttribute "name", "Solicitante"
NodoHijo 4, QuaPersonali_element, "campoString", rsDoc!Nombre1
NodoHijo 4, QuaPersonali_element, "campoString", rsDoc!Nombre2
NodoHijo 4, QuaPersonali_element, "campoString", rsDoc!Nombre3
NodoHijo 4, QuaPersonali_element, "campoString", rsDoc!Nombre4
If IsNull(rsDoc!cargo2) = False Then
NodoHijo 4, QuaPersonali_element, "campoString", rsDoc!cargo2
End If
If IsNull(rsDoc!cargo3) = False Then
NodoHijo 4, QuaPersonali_element, "campoString", rsDoc!cargo3
End If
en donde nodohijo es
Private Sub NodoHijo(ByVal indent As Integer, ByVal parent As IXMLDOMNode, ByVal node_name As String, ByVal node_value As String)
Dim new_node As IXMLDOMNode
parent.appendChild parent.ownerDocument.createTextNode(Space$(indent))
Set new_node = parent.ownerDocument.createElement(node_name)
new_node.Text = node_value
parent.appendChild new_node
End Sub
Y el Resultado es el Siguiente:
- <Personalizados>
<CampoString />
<CampoString name="Solicitante" />
<campoString>5</campoString>
<campoString>5</campoString>
<campoString>5</campoString>
<campoString>5</campoString>
<campoString>5</campoString>
<campoString />
</Personalizados>
Espero que esto sirva para aclarar mi solicitud
Set QuaPersonali_element = Parent_node.ownerDocument.createElement("Personalizados")
QuaEcfd_element.appendChild QuaPersonali_element
Set CampoString1_element = QuaPersonali_element.appendChild(QuaPersonali_element.ownerDocument.createElement("CampoString"))
QuaPersonali_element.appendChild CampoString1_element
Set CampoString1_element = Parent_node.ownerDocument.createElement("CampoString")
QuaPersonali_element.appendChild CampoString1_element
CampoString1_element.setAttribute "name", "Solicitante"
NodoHijo 4, QuaPersonali_element, "campoString", rsDoc!Nombre1
NodoHijo 4, QuaPersonali_element, "campoString", rsDoc!Nombre2
NodoHijo 4, QuaPersonali_element, "campoString", rsDoc!Nombre3
NodoHijo 4, QuaPersonali_element, "campoString", rsDoc!Nombre4
If IsNull(rsDoc!cargo2) = False Then
NodoHijo 4, QuaPersonali_element, "campoString", rsDoc!cargo2
End If
If IsNull(rsDoc!cargo3) = False Then
NodoHijo 4, QuaPersonali_element, "campoString", rsDoc!cargo3
End If
en donde nodohijo es
Private Sub NodoHijo(ByVal indent As Integer, ByVal parent As IXMLDOMNode, ByVal node_name As String, ByVal node_value As String)
Dim new_node As IXMLDOMNode
parent.appendChild parent.ownerDocument.createTextNode(Space$(indent))
Set new_node = parent.ownerDocument.createElement(node_name)
new_node.Text = node_value
parent.appendChild new_node
End Sub
Y el Resultado es el Siguiente:
- <Personalizados>
<CampoString />
<CampoString name="Solicitante" />
<campoString>5</campoString>
<campoString>5</campoString>
<campoString>5</campoString>
<campoString>5</campoString>
<campoString>5</campoString>
<campoString />
</Personalizados>
Espero que esto sirva para aclarar mi solicitud
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 7 invitados