Constancia de retención con complemento de dividendos

Ejemplo VB.NET

DimfachadaRetenciones = New USLib.Retenciones.FachadaRetenciones()
        fachadaRetenciones.P01DatosGenerales(folioInt:="1", fechaExp:=DateTime.Now, cveRetenc:="01", descRetenc:="")
        fachadaRetenciones.P02Emisor(rfcEmisor:="MAG041126GT8", nomDenRazSocE:="EMCORSOFT SC", cURPE:="")
        fachadaRetenciones.P03ReceptorNacional(rfcRecep:="COMR850106QQA", nomDenRazSocR:="ROBERTO CORONA", cURPR:="COMR850106HSRRXB09")
        fachadaRetenciones.P04Periodo(mesIni:=6, mesFin:=7, ejerc:=2017)
        fachadaRetenciones.P05Totales(montoTotOperacion:=100, montoTotGrav:=100, montoTotExent:=0, montoTotRet:=100)
        fachadaRetenciones.P07DatosGenerales(rutaCertificado:="D:\Dropbox\CSD Pruebas\CSD_Pruebas_CFDI_MAG041126GT8\CSD_Pruebas_CFDI_MAG041126GT8.cer")
 
        'Complemento Dividendos
        Dim dividendos = New USLib.Retenciones.Complementos.Dividendos.FachadaDividendos()
        dividendos.DividOUtil(cveTipDivOUtil:="01", montISRAcredRetMexico:=100, montISRAcredRetExtranjero:=0, montRetExtDivExt:=0, tipoSocDistrDiv:="Sociedad Nacional", montISRAcredNal:=0, montDivAcumNal:=0, montDivAcumExt:=0)
        dividendos.Remanente(proporcionRem:=0)
        dividendos.Cerrar(retencion:=fachadaRetenciones.Retenciones)
        'Fin del complemento dividendos
 
        if NotfachadaRetenciones.P08GenerarCadenaOriginal() then
            Console.WriteLine(fachadaRetenciones.MensajeError)
            Exit Sub'Detener el flujo de la aplicación
        End If
 
        If NotfachadaRetenciones.P09GenerarSelloDigital(rutaKey:="D:\Dropbox\CSD Pruebas\CSD_Pruebas_CFDI_MAG041126GT8\CSD_Pruebas_CFDI_MAG041126GT8.key", passwordKey:="12345678a") Then
            Console.WriteLine(fachadaRetenciones.MensajeError)
            Exit Sub'Detener el flujo de la aplicación
        End If
 
        If fachadaRetenciones.P10Timbrar(rutaGuardarXmlTimbrado:="C:\Wsdl\Retencion_timbrada.xml", modoPrueba:=True) Then
            Console.WriteLine("Correcto")
        Else
            Console.WriteLine("Mensaje de error: " & fachadaRetenciones.MensajeError)
        End If
 
        Dim generadorQr = new USLib.Utilerias.CBB.GeneradorCbb()
        Dim qrBytes = generadorQr.GenerarCbbImagenBytes(totalFactura := 100, rfcEmisor :=  "EMC160315TX7", rfcReceptor := "COMR850106QQA", uuid := "CAC771D0-4057-AAAA-AAAA-526444336600")
 
        System.IO.File.WriteAllBytes("C:\Qr_CAC771D0-4057-AAAA-AAAA-526444336600.jpg", qrBytes)
 
        Console.WriteLine("Fin")
        Console.ReadKey()

Desarrollado porBetterDocs