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()