' Comprobante
Dim cfdi As New Comprobante()
' CfdiRelacionados
cfdi.CfdiRelacionados("TipoRelacion") = "01"
cfdi.CfdiRelacionados.CfdiRelacionado(0)("UUID") = "9FB6ED1A-5F37-4FEF-980A-7F8C83B51894"
' Datos de la Factura
cfdi("Serie") = "F"
cfdi("Folio") = "123"
cfdi("Fecha") = DateTime.Now.ToString("s")
cfdi("FormaPago") = "01"
cfdi("CondicionesDePago") = "En una sola exhibición"
cfdi("SubTotal") = "123.45"
cfdi("Descuento") = "0.00"
cfdi("Moneda") = "MXN"
cfdi("TipoCambio") = "1.00"
cfdi("Total") = "123.45"
cfdi("TipoDeComprobante") = "I"
cfdi("MetodoPago") = "PUE"
cfdi("LugarExpedicion") = "01000"
cfdi("Confirmacion") = "12345"
' Emisor
cfdi.Emisor("Rfc") = "AAA010101AAA"
cfdi.Emisor("Nombre") = "ACCEM SERVICIOS EMPRESARIALES SC"
cfdi.Emisor("RegimenFiscal") = "601"
' Receptor
cfdi.Receptor("Rfc") = "XAXX010101000"
cfdi.Receptor("Nombre") = "Público en General"
cfdi.Receptor("UsoCFDI") = "G01"
' Concepto Normal
cfdi.Conceptos(0)("ClaveProdServ") = "01010101"
cfdi.Conceptos(0)("NoIdentificacion") = "COD01"
cfdi.Conceptos(0)("Cantidad") = "1.00"
cfdi.Conceptos(0)("ClaveUnidad") = "C81"
cfdi.Conceptos(0)("Unidad") = "Pieza"
cfdi.Conceptos(0)("Descripcion") = "Producto de prueba 1"
cfdi.Conceptos(0)("ValorUnitario") = "123.45"
cfdi.Conceptos(0)("Importe") = "123.45"
cfdi.Conceptos(0)("Descuento") = "0.00"
' Concpetos con Impuestos
cfdi.Conceptos(1)("ClaveProdServ") = "01010101"
cfdi.Conceptos(1)("NoIdentificacion") = "COD02"
cfdi.Conceptos(1)("Cantidad") = "1.00"
cfdi.Conceptos(1)("ClaveUnidad") = "C81"
cfdi.Conceptos(1)("Unidad") = "Pieza"
cfdi.Conceptos(1)("Descripcion") = "Producto de prueba 2"
cfdi.Conceptos(1)("ValorUnitario") = "100.00"
cfdi.Conceptos(1)("Importe") = "123.45"
cfdi.Conceptos(1)("Descuento") = "0.00"
cfdi.Conceptos(1).Impuestos.Traslados(0)("Base") = "1.00"
cfdi.Conceptos(1).Impuestos.Traslados(0)("Impuesto") = "IVA"
cfdi.Conceptos(1).Impuestos.Traslados(0)("TipoFactor") = "Tasa"
cfdi.Conceptos(1).Impuestos.Traslados(0)("TasaOCuota") = "0.000000"
cfdi.Conceptos(1).Impuestos.Traslados(0)("Importe") = "0.00"
cfdi.Conceptos(1).Impuestos.Retenciones(0)("Base") = "1.00"
cfdi.Conceptos(1).Impuestos.Retenciones(0)("Impuesto") = "IVA"
cfdi.Conceptos(1).Impuestos.Retenciones(0)("TipoFactor") = "Tasa"
cfdi.Conceptos(1).Impuestos.Retenciones(0)("TasaOCuota") = "0.000000"
cfdi.Conceptos(1).Impuestos.Retenciones(0)("Importe") = "0.00"
' Conceptos con Información Aduanera
cfdi.Conceptos(2)("ClaveProdServ") = "01010101"
cfdi.Conceptos(2)("NoIdentificacion") = "COD03"
cfdi.Conceptos(2)("Cantidad") = "1.00"
cfdi.Conceptos(2)("ClaveUnidad") = "C81"
cfdi.Conceptos(2)("Unidad") = "Pieza"
cfdi.Conceptos(2)("Descripcion") = "Producto de prueba 3"
cfdi.Conceptos(2)("ValorUnitario") = "100.00"
cfdi.Conceptos(2)("Importe") = "123.45"
cfdi.Conceptos(2)("Descuento") = "0.00"
cfdi.Conceptos(2).InformacionAduanera(0)("NumeroPedimento") = "0987654321"
cfdi.Conceptos(2).InformacionAduanera(1)("NumeroPedimento") = "7896541230"
' Conceptos con Cuenta Predial
cfdi.Conceptos(3)("ClaveProdServ") = "01010101"
cfdi.Conceptos(3)("NoIdentificacion") = "COD04"
cfdi.Conceptos(3)("Cantidad") = "1.00"
cfdi.Conceptos(3)("ClaveUnidad") = "C81"
cfdi.Conceptos(3)("Unidad") = "Pieza"
cfdi.Conceptos(3)("Descripcion") = "Producto de prueba 4"
cfdi.Conceptos(3)("ValorUnitario") = "100.00"
cfdi.Conceptos(3)("Importe") = "123.45"
cfdi.Conceptos(3)("Descuento") = "0.00"
cfdi.Conceptos(3).CuentaPredial("Numero") = "1234567890"
' Conceptos con Parte
cfdi.Conceptos(4)("ClaveProdServ") = "01010101"
cfdi.Conceptos(4)("NoIdentificacion") = "COD05"
cfdi.Conceptos(4)("Cantidad") = "1.00"
cfdi.Conceptos(4)("ClaveUnidad") = "C81"
cfdi.Conceptos(4)("Unidad") = "Pieza"
cfdi.Conceptos(4)("Descripcion") = "Producto de prueba 5"
cfdi.Conceptos(4)("ValorUnitario") = "100.00"
cfdi.Conceptos(4)("Importe") = "123.45"
cfdi.Conceptos(4)("Descuento") = "0.00"
cfdi.Conceptos(4).Parte(0)("ClaveProdServ") = "0101010101"
cfdi.Conceptos(4).Parte(0)("NoIdentificacion") = "COD05"
cfdi.Conceptos(4).Parte(0)("Cantidad") = "1.00"
cfdi.Conceptos(4).Parte(0)("Unidad") = "Pieza"
cfdi.Conceptos(4).Parte(0)("Descripcion") = "Parte 1"
cfdi.Conceptos(4).Parte(0)("ValorUnitario") = "100.00"
cfdi.Conceptos(4).Parte(0)("Importe") = "100.00"
cfdi.Conceptos(4).Parte(0).InformacionAduanera(0)("NumeroPedimento") = "1234567890"
' Se Lee el XML del complemento a Agregar
Dim complemento As New XmlDocument()
complemento.Load("ruta_xml_complemento.xml")
cfdi.Conceptos(5).AgregaComplemento(complemento)
' Impuestos
cfdi.Impuestos("TotalImpuestosRetenidos") = "0.00"
cfdi.Impuestos("TotalImpuestosTrasladados") = "16.00"
' Retenciones
cfdi.Impuestos.Retenciones(0)("Impuesto") = "ISR"
cfdi.Impuestos.Retenciones(0)("Importe") = "0.00"
' Traslados
cfdi.Impuestos.Traslados(0)("Impuesto") = "001"
cfdi.Impuestos.Traslados(0)("Importe") = "16.00"
cfdi.Impuestos.Traslados(0)("TasaOCuota") = "0.160000"
cfdi.Impuestos.Traslados(0)("TipoFactor") = "Tasa"
' Sellar XML
cfdi.Sellar("rutaXSLT", "Ruta archivo KEY", "Ruta archivo CER", "Clave Certificados")
' Se guarda el XML
cfdi.Documento.Save("cfdi33.xml")