CFDI : Version Beta

Acabo de integrar a la ultima version de las librerias, la DLL que genera los archivos XML correspondientes al CFDI, un ejemplo de codigo es el siguiente:

Sub Main()

        'licencia para el RFC del demo de SAT

        CFDI.Licenciamiento.AgregaLicencia("ckW2u05Nn5vSmlxpwURi995TfVMStrXgpAVD028yQR0=")

        'crea un nuevo comprobante CFDI

        Dim micomprobante As New CFDI.Comprobante

        With micomprobante

            .TruncarDecimales = True

            .TruncarDecimalesLongitud = 2

            .AgregaDatosEmisor("PPL961114GZ1", "PHARMA PLUS SA DE CV", _

                               "AV. RIO MIXCOAC", "No.140", "", _

                               "ACACIAS", "03240", "BENITO JUAREZ", _

                               "MEXICO, D.F.", "", "Mexico", "")

            .AgregaDatosExpedidoEn("AV. UNIVERSIDAD", 1858, "", _

                                   "OXTOPULCO", "03910", "", _

                                   "DISTRITO FEDERAL", "", "Mexico", "")

            .AgregaDatosReceptor("PEPJ8001019Q8", "JUAN PEREZ PEREZ", _

                                 "AV UNIVERSIDAD", "16 EDF 3", _

                                 "DPTO 101", "COPILCO UNIVERSIDAD", _

                                 "04360", "COYOACAN", "DISTRITO FEDERAL", _

                                 "", "Mexico", "")

            .formaDePago = "PAGO EN UNA SOLA EXHIBICION"

            .fecha = New Date(2010, 3, 6, 20, 38, 12)

            .tipoDeComprobante = CFDI.ComprobanteTipoDeComprobante.ingreso

            .AgregaConcepto(1, "CAPSULAS", "", "VIBRAMICINA 100MG 10", 244)

            .AgregaConcepto(1, "BOTELLA", "", "CLORUTO 500M", 137.93)

            .AgregaConcepto(1, "TABLETAS", "", "SEDEPRON 250MG 10", 84.5)

            .AgregaImpuesto(CFDI.ComprobanteImpuestosTrasladoImpuesto.IVA, 0, 0)

            .AgregaImpuesto(CFDI.ComprobanteImpuestosTrasladoImpuesto.IVA, 16, 22.07)

            .subTotal = "488.50"

            .total = "488.50"

            .folio = 1

            .serie = ""

        End With

        'crea el motor usando los certificados del demo del SAT

        Dim mCFDI As New CFDI.MotorCFDI( _

                                        "D:\FE\Certif_PACyEmisor\emisor.cer", _

                                        "D:\FE\Certif_PACyEmisor\emisor.key", _

                                        "a0123456789", "D:\FE\Test\CFDI")

        'agrega el comprobante al motor

        mCFDI.Comprobantes.Add(micomprobante)

        'revisa el resultado del procesamiento de comprobantes

        Dim resultado As CFDI.ResultadoProceso = mCFDI.ProcesarComprobantes(True, False)

        If resultado.Errores Then

            For Each c1 As CFDI.Comprobante In resultado.ComprobantesNoGenerados

                Console.WriteLine(c1.ErrorGeneracion)

            Next

            Console.ReadLine()

        Else

            Process.Start(mCFDI.DirectorioDestino)

            Console.WriteLine("termino")

        End If

End Sub

Los archivos CER y KEY los puedes descargar de http://www.sat.gob.mx/sitio_internet/asistencia_contribuyente/principiantes/comprobantes_fiscales/66_19430.html

y el validador para los archivos CFDI esta en : https://www.consulta.sat.gob.mx/sicofi_web/moduloECFD_plus/ValidadorCFDI/Validador%20cfdi.html