Constancia de retención con complemento de dividendos

Ejemplo VBA/VB6

SubEjemploBasicoConstanciaRetencion()
   Dim retencion As NewUSLibCOM.FachadaRetenciones
Callretencion.P01DatosGenerales(folioInt:="1", fechaExp:="2018-09-26T07:42:59", cveRetenc:="01", descRetenc:="")
Callretencion.P02Emisor(rfcEmisor:="MAG041126GT8", nomDenRazSocE:="EMCORSOFT SC", cURPE:="")
Callretencion.P03ReceptorNacional(rfcRecep:="COMR850106QQA", nomDenRazSocR:="ROBERTO CORONA", cURPR:="COMR850106HSRRXB09")
Callretencion.P04Periodo(mesIni:="6", mesFin:="7", ejerc:="2017")
Callretencion.P05Totales(montoTotOperacion:="100.00", montoTotGrav:="100.00", montoTotExent:="0.00", montoTotRet:="100.00")
IfNot retencion.P07DatosGenerales(rutaCertificado:="C:\CSDTest\CSD_Pruebas_CFDI_MAG041126GT8.cer") Then
    'Error al leer certificado
    MsgBox (retencion.MensajeError)
    Exit Sub'Detener el flujo
EndIf
 
'Complemento de dividendos
Callretencion.ComplementoDividendos(cveTipDivOUtil:="01", montISRAcredRetMexico:="100.00", montISRAcredRetExtranjero:="0.00", montRetExtDivExt:="0.00", tipoSocDistrDiv:="Sociedad Nacional", montISRAcredNal:="0.00", montDivAcumNal:="0.00", montDivAcumExt:="0.00", proporcionRemanente:="0.00")
'Fin del complemento de dividendos
 
IfNot retencion.P08GenerarCadenaOriginal Then
    'Error al generar cadena origina
    MsgBox (retencion.MensajeError)
    Exit Sub'Detener el flujo
EndIf
 
IfNot retencion.P09GenerarSelloDigital(rutaKey:="C:\CSDTest\CSD_Pruebas_CFDI_MAG041126GT8.key", passwordKey:="12345678a") Then
    'Error al generar sello digital
    MsgBox (retencion.MensajeError)
    Exit Sub'Detener el flujo
EndIf
 
Ifretencion.P10Timbrar(rutaGuardarXmlTimbrado:="C:\Wsdl\Retencion_timbrada.xml", modoPrueba:=True) Then
   MsgBox ("Correcto")
   MsgBox (retencion.NoCertificadoEmisor)
   MsgBox (retencion.Sello)
   MsgBox (retencion.TfdCadenaOriginal)
   MsgBox (retencion.TfdFechaTimbrado)
   MsgBox (retencion.TfdNoCertificadoSat)
   MsgBox (retencion.TfdSelloSat)
   MsgBox (retencion.TfdUuid)
    
   Call retencion.P11GuardarQr(rutaCompleta:="C:\Wsdl\Retencion_timbrada_qr.gif")
Else
    MsgBox (retencion.MensajeError)
    Exit Sub'Detener el flujo
EndIf
 
EndSub

Desarrollado porBetterDocs