Constancia de retención con enajenación de acciones

Ejemplo en VB.NET

Dim fachadaRetenciones = 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 Enajenación de Acciones
Dim acciones = New USLib.Retenciones.Complementos.EnajenacionDeAcciones.FachadaEnajenacionAcciones()
acciones.P01Generales(contratoIntermediacion:="123455", ganancia:=100, perdida:=50)
acciones.Cerrar(fachadaRetenciones.Retenciones)
'Fin del 'Complemento Enajenación de Acciones
 
If Not fachadaRetenciones.P08GenerarCadenaOriginal() Then
    Console.WriteLine(fachadaRetenciones.MensajeError)
    Exit Sub 'Detener el flujo de la aplicación
End If
 
If Not fachadaRetenciones.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