martes, diciembre 28, 2010

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

3 comentarios:

  1. Anónimo5:57 p. m.

    Que se supone que me debe de generar esta DLL?

    ResponderEliminar
  2. ¿Qué hago en el código para seleccionar a mi proveedor de timbrado?

    ResponderEliminar
  3. Anónimo1:34 p. m.

    ¿Puedo usar tu código para enviarlo a un PAC vía webservice?

    ResponderEliminar