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()