Recibo de pago

Ejemplo en VB.NET

Imports System
 
Namespace Cfdi.Complemento.Pagos10
 
    Class Program
 
        Private Shared Sub Main(ByVal args As String())
            Dim pagos10 = New USLib.Complementos.Comprobante.Pagos10.FachadaCfdi33Pagos10()
            pagos10.P00Setup(cerFile:="D:\Dropbox\CSD Pruebas\CSD_Pruebas_CFDI_MAG041126GT8\CSD_Pruebas_CFDI_MAG041126GT8.cer", keyFile:="D:\Dropbox\CSD Pruebas\CSD_Pruebas_CFDI_MAG041126GT8\CSD_Pruebas_CFDI_MAG041126GT8.key", passwordKey:="12345678a")
            pagos10.P01Generales(serie:="A", folio:="2002", fecha:=DateTime.Now, lugarExpedicion:="85040")
            pagos10.P03Emisor(rfc:="MAG041126GT8", nombre:="EMCORSOFT SC", regimenFiscal:="601")
            pagos10.P04Receptor(rfc:="COMR850106QQA", nombre:="Roberto Corona", numRegIdTrib:="", residenciaFiscal:="")
            Dim idPago = pagos10.P05AgregarPago(fechaPago:=DateTime.Now.ToString("s"), formaPago:="03", moneda:="MXN", tipoCambioP:="", monto:="1000", numOperacion:="01", rfcEmisorCtaOrd:="", nomBancoOrdExt:="", ctaOrdenante:="", rfcEmisorCtaBen:="", ctaBeneficiario:="", tipoCadPago:="", certPagoBase64:="", cadPago:="", selloPagoBase64:="")
            pagos10.P06AgregarDoctoRelacionado(idPago:=idPago, idDocumento:="4CEDEC32-497D-4632-A0EF-723D8504AAB7", serie:="", folio:="", monedaDr:="MXN", tipoCambioDr:="", metodoPagoDr:="PUE", numParcialidad:="1", impSaldoAnt:="1000", impPagado:="1000", impSaldoInsoluto:="")
            Dim result = pagos10.P10TimbrarDocumento(esPrueba:=True, validacionPrevia:=False, key:="", referencia:="USlib")
            If result.OperacionExitosa Then
                Dim rfcProveedor = pagos10.ResumenCfdv33.TfdRfcProvCertif
                Dim uuid = pagos10.ResumenCfdv33.TfdUuid
                Dim fechaTimbrado = pagos10.ResumenCfdv33.TfdFechaTimbrado
                Dim selloSat = pagos10.ResumenCfdv33.TfdSelloSat
                Dim noCertificadoSat = pagos10.ResumenCfdv33.TfdNoCertificadoSat
                Dim noCertificadoEmisor = pagos10.CsdSerie
                Dim cadenaSat = pagos10.ResumenCfdv33.TfdCadenaOriginal
                System.IO.File.WriteAllBytes("C:\Wsdl\" & pagos10.ResumenCfdv33.TfdUuid & ".jpg", pagos10.ResumenCfdv33.QrImagen)
                Console.WriteLine("OK")
                System.IO.File.WriteAllBytes("C:\Wsdl\" & pagos10.ResumenCfdv33.TfdUuid & ".xml", result.XmlFile)
            Else
                System.IO.File.WriteAllBytes("C:\Wsdl\Error.xml", result.XmlFile)
                Console.WriteLine(result.MensajeError)
            End If
 
            Console.WriteLine("Fin")
            Console.ReadKey()
        End Sub
    End Class
End Namespace

Desarrollado porBetterDocs