fbpx
Categorías

Ejemplo Constancia de Retención con Complemento de Dividendos

Estás aquí:
< Todos los temas
 
Sub EjemploBasicoConstanciaRetencion()
   Dim retencion As New USLibCOM.FachadaRetenciones
Call retencion.P01DatosGenerales(folioInt:="1", fechaExp:="2018-09-26T07:42:59", cveRetenc:="01", descRetenc:="")
Call retencion.P02Emisor(rfcEmisor:="MAG041126GT8", nomDenRazSocE:="EMCORSOFT SC", cURPE:="")
Call retencion.P03ReceptorNacional(rfcRecep:="COMR850106QQA", nomDenRazSocR:="ROBERTO CORONA", cURPR:="COMR850106HSRRXB09")
Call retencion.P04Periodo(mesIni:="6", mesFin:="7", ejerc:="2017")
Call retencion.P05Totales(montoTotOperacion:="100.00", montoTotGrav:="100.00", montoTotExent:="0.00", montoTotRet:="100.00")
If Not retencion.P07DatosGenerales(rutaCertificado:="C:\CSDTest\CSD_Pruebas_CFDI_MAG041126GT8.cer") Then
    'Error al leer certificado
    MsgBox (retencion.MensajeError)
    Exit Sub 'Detener el flujo
End If
 
'Complemento de dividendos
Call retencion.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
 
If Not retencion.P08GenerarCadenaOriginal Then
    'Error al generar cadena origina
    MsgBox (retencion.MensajeError)
    Exit Sub 'Detener el flujo
End If
 
If Not 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
End If
 
If retencion.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
End If
 
End Sub
Anterior Ejemplo Cfdi 3.3 – Complemento de recepción de pagos
Siguiente Generar un Cfdi 3.3
Tabla de contenidos