Written by:
15/08/2011 09:10 p.m. 

Para timbrar un documento xml usando el servicio de BuzonFiscal utilizando la version 2.6 o superior de las librerias CFDI.NET,

        'crea el motor CFDI 
        Dim oMotor As New CFDI.MotorCFDI(archivoCER, archivoKEY, contrasenaArchivoKEY, directorioDestino)

        'crea la factura
        Dim mifactura As New CFDI.Comprobante(Now, "A", 1, CFDI.ComprobanteTipoDeComprobante.ingreso, "contado", "efectivo", 0, "")
        With mifactura

            'es importante truncar los decimales para evitar errores de "sello invalido" en BuzonFiscal
            .TruncarDecimales = True
            .TruncarDecimalesLongitud = 2

            .AgregaDatosEmisor("DEMO101010A1A", "EMPRESA DEMO SA DE CV", "CALLE", 2010, "", "COLONIA", 64000, "MONTERREY", "NUEVO LEON", "NUEVO LEON", "MEXICO", "", True)
            .AgregaDatosReceptor("DEMO101010A1A", "CLIENTE DEMO", "CALLE CONOCIDA", 123, "", "CENTRO", 64000, "MONTERREY", "NUEVO LEON", "NUEVO LEON", "MEXICO", "")
            .AgregaConcepto(1, "PZA", "PROD1", "PRODUCTO 1", 10)
            .AgregaImpuesto(CFDI.ComprobanteImpuestosTrasladoImpuesto.IVA, 16)
            .AgregaImpuestoRetenido(CFDI.ComprobanteImpuestosRetencionImpuesto.IVA, 0)
        End With

        'agrega la factura al motor
        oMotor.Comprobantes.Add(mifactura)

        'genera los archivos necesarios para el PAC (xml sellado)
        Dim r As CFDI.ResultadoProceso = oMotor.GenerarArchivosPAC(True, False)

        If Not r.Errores Then
            'ubicacion del archivo PFX provisto por BuzonFiscal
            Dim archivoPFX As String = "C:\Ejemplos\DEMO1010A1A.pfx"
            'contrasena del archivo PFX provisto por BuzonFiscal
            Dim contrasenaArchivoPFX As String = "12341234"
            'url del servicio a utilizar en BuzonFiscal
            Dim urlServicioBuzonFiscal As String = "https://demotf.buzonfiscal.com/timbrado?wsdl"

            'por cada comprobante generado por el motor...
            For Each c As CFDI.Comprobante In r.ComprobantesGenerados
                'el archivo que se envia a BuzonFiscal es el que el motor sello
                archivoXML = c.ArchivoXMLSellado
                'envia el archivo sellado a BuzonFiscal para que sea complementado con el timbre digital
                CFDI.PAC.BuzonFiscal.TimbrarArchivo(archivoXML, archivoPFX, contrasenaArchivoPFX, urlServicioBuzonFiscal)
            Next
        End If

Trackback Print

Tags:

Categories:

Location: Blogs Gooru MX Facturacion Electronica

Your name:
Your email:
	(Optional) Email used only to show Gravatar.
Your website:
Title:
Comment:
Add Comment   Cancelar