Crear XML para factura electronica

Oscargf · #1 (**permalink**) 09/12/2010, 19:50

Tengo algo de problemas para crear el archivo .xml desde 0 con xmlDocument,
por eso abro este tema.

Estaba creando el archivo xml con xmltextwriter de forma que se crea y guarda en el disco un archivo xml, pero ahora intento crear el xml en memoria, con la clase xmlDocument para poder hacer modificaciones (añadirle el sello ...) y al final gurdarla.

Con xmltextwriter me estaba funcionando bien. El codigo es este:

Código:

Dim Nombre As String = "c:/1/prueba.xml"
Dim W As New XmlTextWriter(nombre, Encoding.UTF8)



        ' NODO PRINCIPAL: COMPROBANTE

        W.WriteStartDocument()

        W.WriteStartElement("Comprobante")
        W.WriteStartAttribute("xmlns")
        W.WriteValue("http://www.sat.gob.mx/cfd/2")
        W.WriteEndAttribute()

        W.WriteStartAttribute("xmlns:xsi")
        W.WriteValue("http://www.w3.org/2001/XMLSchema-instance")
        W.WriteEndAttribute()

        W.WriteStartAttribute("xmlns:implocal")
        W.WriteValue("http://www.sat.gob.mx/implocal")
        W.WriteEndAttribute()


        W.WriteStartAttribute("xsi:schemaLocation")
        W.WriteValue("http://www.sat.gob.mx/cfd/2 http://www.sat.gob.mx/sitio_internet/cfd/2/cfdv2.xsd http://www.sat.gob.mx/implocal http://www.sat.gob.mx/sitio_internet/cfd/implocal/implocal.xsd")
        W.WriteEndAttribute()

        W.WriteStartAttribute("version")
        W.WriteValue("2.0")
        W.WriteEndAttribute()

        W.WriteStartAttribute("serie") ' opcional
        W.WriteValue("E123456789")
        W.WriteEndAttribute()

        W.WriteStartAttribute("folio")
        W.WriteValue("1234567890")
        W.WriteEndAttribute()

        W.WriteStartAttribute("fecha")
        W.WriteValue("2010-06-07T18:20:50")
        W.WriteEndAttribute()

        W.WriteStartAttribute("sello")
        W.WriteValue("aqui va el sello")
        W.WriteEndAttribute()

        W.WriteStartAttribute("noAprobacion")
        W.WriteValue("12345678")
        W.WriteEndAttribute()

        W.WriteStartAttribute("anoAprobacion")
        W.WriteValue("2010")
        W.WriteEndAttribute()

		'poner los demas atributos: formaDePago, noCertificado, certificado, condiciones de pago, subtotal etc etc)

         


        '.................................................NODO  EMISOR
        W.WriteStartElement("emisor")

        W.WriteStartAttribute("RFC")
        W.WriteValue(emisor1.rfc)
        W.WriteEndAttribute()

        W.WriteStartAttribute("nombre")
        W.WriteValue(emisor1.nombre)
        W.WriteEndAttribute()


        'subnodo Direccion emisor

        W.WriteStartElement("DomicilioFiscal")

        W.WriteStartAttribute("calle")
        W.WriteValue(emisor1.calle)
        W.WriteEndAttribute()

        W.WriteStartAttribute("noExterior")     ' opcional
        W.WriteValue(emisor1.noExterior)
        W.WriteEndAttribute()

        W.WriteStartAttribute("Colonia")          ' opcional
        W.WriteValue(emisor1.colonia)
        W.WriteEndAttribute()

        W.WriteStartAttribute("Municipio")
        W.WriteValue(emisor1.municipio)
        W.WriteEndAttribute()

        '.....continuar con lo que falta: estado, pais, codigoPostal

       

        W.WriteEndElement()  'finaliza direccion

        W.WriteEndElement()

        '...........................................finaliza EMISOR

	   W.WriteEndDocument()      '.............finaliza documento 


        W.Flush()
        W.Close()

donde emisor1 es un objeto de la clase emisor, con todos los datos del emisor

el resultado seria:

Código:

<?xml version="1.0" encoding="utf-8" ?> 
- <Comprobante xmlns="http://www.sat.gob.mx/cfd/2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:implocal="http://www.sat.gob.mx/implocal" xsi:schemaLocation="http://www.sat.gob.mx/cfd/2 http://www.sat.gob.mx/sitio_internet/cfd/2/cfdv2.xsd http://www.sat.gob.mx/implocal http://www.sat.gob.mx/sitio_internet/cfd/implocal/implocal.xsd" version="2.0" serie="E123456789" folio="1234567890" fecha="2010-06-07T18:20:50" sello="aqui va el sello" noAprobacion="12345678" anoAprobacion="2010">
- <emisor RFC="HAZ9903238SDF" nombre="HOTEL AZO S.A. DE C.V.">
   <DomicilioFiscal calle="GUSTAVO BAZ" noExterior="806" Colonia="SAN AMARO"   Municipio="NAUCALPAN" /> 
  </emisor>
  </Comprobante>

sin embargo, con xmlDocument, no consigo crear los atributos del nodo raiz:
el xmlns:xsi=... xsi:schemalocation=...

¿hay alguien que sepa como se hace ?

Oscargf · #2 (**permalink**) 09/12/2010, 20:10

Por ejemplo: con este codigo

Código:

Dim doc As XmlDocument = New XmlDocument()
    Dim Nodo As XmlNode
    Const NemspaceUri As String = "http://www.w3.org/2001/XMLSchema-instance"

        Dim version As System.Xml.XmlDeclaration
        version = doc.CreateXmlDeclaration("1.0", "utf-8", "")
        version.Encoding = "utf-8"
        doc.PreserveWhitespace = True
        doc.AppendChild(version)

        Nodo = doc.CreateNode(XmlNodeType.Element, "comprobante", "http://www.sat.gob.mx/cfd/2")

        Dim Atributo1 As XmlAttribute = doc.CreateAttribute("xsi", "comprobante", NemspaceUri)
        Atributo1.Value = NemspaceUri
        Nodo.Attributes.SetNamedItem(Atributo1)

        doc.AppendChild(Nodo)

me sale esto:

Código:

<?xml version="1.0" encoding="utf-8" ?> 
<comprobante xsi:comprobante="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://www.sat.gob.mx/cfd/2" /> 

'

como pueden ver:

1: xmlns="http//..." aparece al final en lugar de al principio
2: aparece una linea: xsi:comprobante="http://...." que no se de donde sale

wwwmaster · #3 (**permalink**) 10/12/2010, 00:48

Yo coloque el Schemalocation con esto:

Dim atributo_xmlnsxsi As XmlAttribute = Doc.CreateAttribute("xmlns:xsi")
atributo_xmlnsxsi.Value = "http://www.w3.org/2001/XMLSchema-instance"

Dim atributo_schemaLocation As XmlAttribute = Doc.CreateAttribute("xsi:schemaLocation", "http://www.w3.org/2001/XMLSchema-instance")
atributo_schemaLocation.Value = "http://www.sat.gob.mx/cfd/2 http://www.sat.gob.mx/sitio_internet/cfd/2/cfdv2.xsd"

Oscargf · #4 (**permalink**) 10/12/2010, 11:46

Cita:

Iniciado por wwwmaster

Yo coloque el Schemalocation con esto:

Dim atributo_xmlnsxsi As XmlAttribute = Doc.CreateAttribute("xmlns:xsi")
atributo_xmlnsxsi.Value = "http://www.w3.org/2001/XMLSchema-instance"

Dim atributo_schemaLocation As XmlAttribute = Doc.CreateAttribute("xsi:schemaLocation", "http://www.w3.org/2001/XMLSchema-instance")
atributo_schemaLocation.Value = "http://www.sat.gob.mx/cfd/2 http://www.sat.gob.mx/sitio_internet/cfd/2/cfdv2.xsd"

Muy bien, gracias wwwmaster, ya vamos mucho mejor:

con el codigo

Código:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim version As System.Xml.XmlDeclaration
        version = doc.CreateXmlDeclaration("1.0", "utf-8", "")
        version.Encoding = "utf-8"
        doc.PreserveWhitespace = True
        doc.AppendChild(version)

        Nodo = doc.CreateNode(XmlNodeType.Element, "comprobante", "http://www.sat.gob.mx/cfd/2")

        Dim atributo_xmlnsxsi As XmlAttribute = doc.CreateAttribute("xmlns:xsi")
        atributo_xmlnsxsi.Value = "http://www.w3.org/2001/XMLSchema-instance"

        Dim atributo_implocal As XmlAttribute = doc.CreateAttribute("xmlns:implocal")
        atributo_implocal.Value = "http://www.sat.gob.mx/implocal"


        Dim atributo_schemaLocation As XmlAttribute = doc.CreateAttribute("xsi:schemaLocation")
        atributo_schemaLocation.Value = "http://www.sat.gob.mx/cfd/2 http://www.sat.gob.mx/sitio_internet/cfd/2/cfdv2.xsd http://www.sat.gob.mx/implocal http://www.sat.gob.mx/sitio_internet/cfd/implocal/implocal.xsd"

        Dim atributo_serie As XmlAttribute = doc.CreateAttribute("serie")
        atributo_serie.Value = "serieNo 123456789"

        doc.AppendChild(Nodo)
        doc.DocumentElement.SetAttributeNode(atributo_xmlnsxsi)

        doc.DocumentElement.SetAttributeNode(atributo_implocal)

        doc.DocumentElement.SetAttributeNode(atributo_schemaLocation)
        doc.DocumentElement.SetAttributeNode(atributo_serie)

me sale:

Código:

<?xml version="1.0" encoding="utf-8" ?> 
<comprobante xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:implocal="http://www.sat.gob.mx/implocal" schemaLocation="http://www.sat.gob.mx/cfd/2 http://www.sat.gob.mx/sitio_internet/cfd/2/cfdv2.xsd http://www.sat.gob.mx/implocal http://www.sat.gob.mx/sitio_internet/cfd/implocal/implocal.xsd" serie="serieNo 123456789" xmlns="http://www.sat.gob.mx/cfd/2" /> 
'

Lo que no consigo es poner el atributo xmlns="http://www.sat.gob.mx/cfd/2" en primer lugar, como aparece en las especificaciones del SAT, Con el xmltextwriter me salia bien, al principio. ¿alguien sabe porqué?

Oscargf · #5 (**permalink**) 10/12/2010, 15:25

Bueno, ya encontre como:

despues de crear el nodo principal (comprobante) hay que crear manualmente el atributo xmlns, asi:

Código:

 Nodo = doc.CreateNode(XmlNodeType.Element, "comprobante", "http://www.sat.gob.mx/cfd/2")
        doc.AppendChild(Nodo)


        Dim atributo_xmlns As XmlAttribute = doc.CreateAttribute("xmlns")
        atributo_xmlns.Value = "http://www.sat.gob.mx/cfd/2"
        doc.DocumentElement.SetAttributeNode(atributo_xmlns)

        Dim atributo_xmlnsxsi As XmlAttribute = doc.CreateAttribute("xmlns:xsi")
        atributo_xmlnsxsi.Value = "http://www.w3.org/2001/XMLSchema-instance"
        doc.DocumentElement.SetAttributeNode(atributo_xmlnsxsi)

de esta forma, ya aparece en primer lugar.

gerloxxx · #6 (**permalink**) 12/04/2011, 16:02

Cita:

Iniciado por Oscargf

Muy bien, gracias wwwmaster, ya vamos mucho mejor:

con el codigo

Código:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim version As System.Xml.XmlDeclaration
        version = doc.CreateXmlDeclaration("1.0", "utf-8", "")
        version.Encoding = "utf-8"
        doc.PreserveWhitespace = True
        doc.AppendChild(version)

        Nodo = doc.CreateNode(XmlNodeType.Element, "comprobante", "http://www.sat.gob.mx/cfd/2")

        Dim atributo_xmlnsxsi As XmlAttribute = doc.CreateAttribute("xmlns:xsi")
        atributo_xmlnsxsi.Value = "http://www.w3.org/2001/XMLSchema-instance"

        Dim atributo_implocal As XmlAttribute = doc.CreateAttribute("xmlns:implocal")
        atributo_implocal.Value = "http://www.sat.gob.mx/implocal"


        Dim atributo_schemaLocation As XmlAttribute = doc.CreateAttribute("xsi:schemaLocation")
        atributo_schemaLocation.Value = "http://www.sat.gob.mx/cfd/2 http://www.sat.gob.mx/sitio_internet/cfd/2/cfdv2.xsd http://www.sat.gob.mx/implocal http://www.sat.gob.mx/sitio_internet/cfd/implocal/implocal.xsd"

        Dim atributo_serie As XmlAttribute = doc.CreateAttribute("serie")
        atributo_serie.Value = "serieNo 123456789"

        doc.AppendChild(Nodo)
        doc.DocumentElement.SetAttributeNode(atributo_xmlnsxsi)

        doc.DocumentElement.SetAttributeNode(atributo_implocal)

        doc.DocumentElement.SetAttributeNode(atributo_schemaLocation)
        doc.DocumentElement.SetAttributeNode(atributo_serie)

me sale:

Código:

<?xml version="1.0" encoding="utf-8" ?> 
<comprobante xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:implocal="http://www.sat.gob.mx/implocal" schemaLocation="http://www.sat.gob.mx/cfd/2 http://www.sat.gob.mx/sitio_internet/cfd/2/cfdv2.xsd http://www.sat.gob.mx/implocal http://www.sat.gob.mx/sitio_internet/cfd/implocal/implocal.xsd" serie="serieNo 123456789" xmlns="http://www.sat.gob.mx/cfd/2" /> 
'

Lo que no consigo es poner el atributo xmlns="http://www.sat.gob.mx/cfd/2" en primer lugar, como aparece en las especificaciones del SAT, Con el xmltextwriter me salia bien, al principio. ¿alguien sabe porqué?

hola me surgio el siguiente problema, cuando creo el atributo xsi:schemaLocation, con el siguiente codigo:

XmlAttribute xsischemalocation = xmlDoc.CreateAttribute("xsi:schemaLocation");
xsischemalocation.Value = xsi_schemalocation;
xmlDoc.DocumentElement.SetAttributeNode(xsischemal ocation);

solo crea el atributo asi schemaLocation, sin el xsi:, a que se puede deber este problema? :(

ya habia preguntado esto por otro lado, pero veo que a ti te lo guarda igual y me preguntaba si lo resolviste?

saludos

HalconDivino · #7 (**permalink**) 14/05/2011, 14:01

Cita:

Iniciado por gerloxxx

hola me surgio el siguiente problema, cuando creo el atributo xsi:schemaLocation, con el siguiente codigo:

XmlAttribute xsischemalocation = xmlDoc.CreateAttribute("xsi:schemaLocation");
xsischemalocation.Value = xsi_schemalocation;
xmlDoc.DocumentElement.SetAttributeNode(xsischemal ocation);

solo crea el atributo asi schemaLocation, sin el xsi:, a que se puede deber este problema? :(

ya habia preguntado esto por otro lado, pero veo que a ti te lo guarda igual y me preguntaba si lo resolviste?

saludos

A mi me pasa exactamente lo mismo
Aún con la falta de este prefijo xsi pude mandar a timbrar varios xml

Pudieron resolver el problema del prefijo xsi que no aparece en el atributo schemaLocation ?????

Les agradecería su ayuda

Saludos
Halcón Divino.
Monterrey Nuevo Léon
México

NetFcruz · #8 (**permalink**) 07/04/2014, 16:43

Cita:

Iniciado por HalconDivino

A mi me pasa exactamente lo mismo
Aún con la falta de este prefijo xsi pude mandar a timbrar varios xml

Pudieron resolver el problema del prefijo xsi que no aparece en el atributo schemaLocation ?????

Les agradecería su ayuda

Saludos
Halcón Divino.
Monterrey Nuevo Léon
México

Que tal amigo ya resolviste este detalle, tengo el modod de como general el xml pero no de sellar /timbrar por sat.
Saludos.

wwwmaster · #9 (**permalink**) 07/04/2014, 21:04

Public xmlnsxsi As String
Public xsischemaLocation As String

Dim atributo_schemaLocation As XmlAttribute = Doc.CreateAttribute("xsi:schemaLocation", "http://www.w3.org/2001/XMLSchema-instance")

atributo_schemaLocation.Value = "http://www.sat.gob.mx/cfd/3 http://www.sat.gob.mx/sitio_internet/cfd/3/cfdv32.xsd http://www.sat.gob.mx/implocal http://www.sat.gob.mx/sitio_internet/cfd/implocal/implocal.xsd"

NdCom.Attributes.Append(atributo_schemaLocation)

o con:
agregaAtributo("S", "C", Doc, NdCom, "xmlns:xsi", "http://www.w3.org/2001/XMLSchema-instance")

Private Sub agregaAtributo(ByVal obligatorio As String, ByVal tipo As String, ByRef ccxml As XmlDocument, ByRef nodo As XmlNode, ByVal atributo As String, ByVal valor As String)
'RUTINA PARA AGREGAR ATRIBUTOS AL XML, LLAMA A SU VEZ A OTRAS 2 FUNCIONES
' la ultima variable indicador viene mayormente en blanco (quitar para version ASP)
log("cComprobante.agregaAtributo obligatorio=" & obligatorio & " tipo=" & tipo & " atributo=" & atributo & " valor=" & valor)
Dim nTemporal As XmlAttribute
If tipo = "$" Then valor = String.Format("{0:0.00}", Convert.ToDouble(valor))

valor = quitarCaracteresInvalidos(valor)
If (agregar(obligatorio, tipo, valor)) = "SI" Then

nTemporal = ccxml.CreateAttribute(atributo)
nTemporal.Value = valor
nodo.Attributes.Append(nTemporal)
End If
End Sub