Ver Mensaje Individual
  #11 (permalink)  
Antiguo 15/06/2010, 13:08
Oscargf
 
Fecha de Ingreso: junio-2010
Mensajes: 23
Antigüedad: 14 años
Puntos: 1
Respuesta: Factura electroncia sat mexico

Estoy en eso para poder hacer pruebas con los sellos generados.

Parece que esta bien tu código, solo falta completarlo con los nodos y subnodos requeridos.


¿como le vas a pasar los datos? yo pensaba crear tres clases para ello: emisor, receptor y factura, asi el dato nombre del receptor estará en receptor.nombre
....

saludos
Oscar

Código:
        Dim W As New XmlTextWriter("C:\1\factura2.xml", Encoding.UTF8)

        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("xsi:schemaLocation")
        W.WriteValue("http://www.sat.gob.mx/cfd/2 http://www.sat.gob.mx/sitio_internet/cfd/2/cfdv2.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()



         'nodo emisor......................................................

        W.WriteStartElement("emisor")

        W.WriteStartAttribute("nombre")
        W.WriteValue("Pepito grillo S.A. de C.V.")
        W.WriteEndAttribute()


        W.WriteStartAttribute("RFC")
        W.WriteValue("PGR991223SDF")
        W.WriteEndAttribute()

        'subnodo Direccion emisor

        W.WriteStartElement("DomicilioFiscal")

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

        W.WriteStartAttribute("noExterior")
        W.WriteValue("45")
        W.WriteEndAttribute()

        W.WriteStartAttribute("Colonia")
        W.WriteValue("San Federico")
        W.WriteEndAttribute()

        W.WriteStartAttribute("Municipio")
        W.WriteValue("Benito Juarez")
        W.WriteEndAttribute()

        W.WriteStartAttribute("estado")
        W.WriteValue("DF")
        W.WriteEndAttribute()

        W.WriteStartAttribute("pais")
        W.WriteValue("Mexico")
        W.WriteEndAttribute()

        W.WriteStartAttribute("codigoPostal")
        W.WriteValue("51200")
        W.WriteEndAttribute()

        W.WriteEndElement()  'finaliza direccion

        W.WriteEndElement()  'finaliza emisor

        'nodo receptor....................................................

        W.WriteStartElement("receptor")

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

        W.WriteStartAttribute("RFC")
        W.WriteValue("RFCRec")
        W.WriteEndAttribute()

        'subnodo direccion receptor


        W.WriteStartElement("Domicilio")

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

        W.WriteStartAttribute("noExterior")
        W.WriteValue("122")
        W.WriteEndAttribute()

        W.WriteStartAttribute("noInterior")
        W.WriteValue("3-X")
        W.WriteEndAttribute()

        W.WriteStartAttribute("Colonia")
        W.WriteValue("San Simon")
        W.WriteEndAttribute()

        W.WriteStartAttribute("Localidad")
        W.WriteValue("G.A.M")
        W.WriteEndAttribute()

        W.WriteStartAttribute("Referencia")
        W.WriteValue("Tultitlan")
        W.WriteEndAttribute()

        W.WriteStartAttribute("estado")
        W.WriteValue("Distrito Federal")
        W.WriteEndAttribute()

        W.WriteStartAttribute("pais")
        W.WriteValue("Mexico")
        W.WriteEndAttribute()

        W.WriteStartAttribute("codigoPostal")
        W.WriteValue("52100")
        W.WriteEndAttribute()


        W.WriteEndElement() 'finaliza direccion receptor
        W.WriteEndElement()  'finaliza receptor


          '.................................................................
          'aqui van los otros nodos y subnodos
          '................................................................. 


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


        W.Flush()
        W.Close()