Facturación electrónica 2011. Codigo vb.net 2008

[MardanCorp]

'ARMAMOS EL EQUIS EME ELE

Dim W As New XmlTextWriter("D:\factura2.xml", Encoding.UTF8)

W.WriteStartDocument()

W.WriteStartElement("cfdi:Comprobante")

W.WriteStartAttribute("xmlns:cfdi")
W.WriteValue("http://www.sat.gob.mx/cfd/3")
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/3 http://www.sat.gob.mx/sitio_internet/cfd/3/cfdv3.xsd")
W.WriteEndAttribute()




W.WriteStartAttribute("version")
W.WriteValue("3.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(horaFecha)
W.WriteEndAttribute()

W.WriteStartAttribute("sello")
W.WriteValue(b64)
W.WriteEndAttribute()

W.WriteStartAttribute("formaDePago")
'Aqui esta lo de el tipo de pago (ya sabes cabron lo del chetsbots)
W.WriteValue("Pago en una sola exhibición")
W.WriteEndAttribute()

W.WriteStartAttribute("noCertificado")
W.WriteValue(NoCertificadoR)
W.WriteEndAttribute()

W.WriteStartAttribute("certificado")
W.WriteValue(RespCertificadoCadena)
W.WriteEndAttribute()

W.WriteStartAttribute("subTotal")
W.WriteValue("161.2100")
W.WriteEndAttribute()

W.WriteStartAttribute("Moneda")
W.WriteValue("MXN")
W.WriteEndAttribute()

W.WriteStartAttribute("total")
W.WriteValue("187.0000")
W.WriteEndAttribute()

W.WriteStartAttribute("metodoDePago")
W.WriteValue("Efectivo") 'Efectivo o Parcialidades
W.WriteEndAttribute()

W.WriteStartAttribute("tipoDeComprobante")
W.WriteValue("ingreso") 'ingreso o egreso
W.WriteEndAttribute()

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

W.WriteStartElement("cfdi:Emisor")

W.WriteStartAttribute("rfc")
W.WriteValue("DEMO000002FEL")
W.WriteEndAttribute()

W.WriteStartAttribute("nombre")
W.WriteValue("Demo2 FEL SA de CV")
W.WriteEndAttribute()



'subnodo Direccion emisor

W.WriteStartElement("cfdi: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

'subnodo ExpedidoEn

W.WriteStartElement("cfdi:ExpedidoEn")

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

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


W.WriteEndElement() 'finaliza expedido en

W.WriteEndElement() 'finaliza emisor

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

W.WriteStartElement("cfdi:Receptor")

W.WriteStartAttribute("rfc")
W.WriteValue("FJS9405196IA")
W.WriteEndAttribute()

W.WriteStartAttribute("nombre")
W.WriteValue("Razon Social Random")
W.WriteEndAttribute()



'subnodo direccion receptor


W.WriteStartElement("cfdi: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("municipio")
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

'nodo CONCEPTOS......................................... ...........

W.WriteStartElement("cfdi:Conceptos")

'Esto debe de ir en un Ciclo For o while...
'subNodo del la descripcion de los conceptos
W.WriteStartElement("cfdi:Concepto")

W.WriteStartAttribute("cantidad") 'Cantidad
W.WriteValue("1.0000")
W.WriteEndAttribute()
W.WriteStartAttribute("descripcion") 'Descripcion
W.WriteValue("Cosa para vender")
W.WriteEndAttribute()
W.WriteStartAttribute("valorUnitario") 'ValorUnitario
W.WriteValue("100.0000")
W.WriteEndAttribute()
W.WriteStartAttribute("importe") 'importe
W.WriteValue("100.0000")
W.WriteEndAttribute()

W.WriteEndElement() 'finaliza elemento conceptos este va antes de terminar el ciclo for o while

W.WriteEndElement() 'finaliza elemento conceptos (padre) este va fuera del ciclo for o while
'nodo IMPUESTOS......................................... ...........

W.WriteStartElement("cfdi:Impuestos")

W.WriteStartAttribute("totalImpuestosTrasladados") 'totalImpuestosTrasladados
W.WriteValue("25.7900")
W.WriteEndAttribute()

W.WriteStartElement("cfdi:Retenciones") 'Nodo Retenciones
W.WriteStartElement("cfdi:Retencion") 'Nodo Retencion
W.WriteStartAttribute("impuesto") 'totalImpuestosTrasladados
W.WriteValue("IVA")
W.WriteEndAttribute()
W.WriteStartAttribute("importe") 'totalImpuestosTrasladados
W.WriteValue("5.0000")
W.WriteEndAttribute()
W.WriteEndElement() 'finaliza elemento RETENCION
W.WriteEndElement() 'finaliza elemento RETENCIONES


W.WriteEndElement() 'finaliza elemento IMPUESTOS

'nodo COMPLEMENTO....................................... .............
W.WriteStartElement("cfdi:Complemento")

W.WriteEndElement() 'finaliza elemento comeplemento

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


W.Flush()
W.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
End Class