fbpx

Solicita tu kit de integración

Ejemplo Constancia de Retención con Complemento de Dividendos

Updated on diciembre 30, 2020

Sub EjemploBasicoConstanciaRetencion()Dim retencion As New USLibCOM.FachadaRetencionesCall 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:CSDTestCSD_Pruebas_CFDI_MAG041126GT8.cer") Then'Error al leer certificadoMsgBox (retencion.MensajeError)Exit Sub 'Detener el flujoEnd If 'Complemento de dividendosCall 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 originaMsgBox (retencion.MensajeError)Exit Sub 'Detener el flujoEnd If If Not retencion.P09GenerarSelloDigital(rutaKey:="C:CSDTestCSD_Pruebas_CFDI_MAG041126GT8.key", passwordKey:="12345678a") Then'Error al generar sello digitalMsgBox (retencion.MensajeError)Exit Sub 'Detener el flujoEnd If If retencion.P10Timbrar(rutaGuardarXmlTimbrado:="C:WsdlRetencion_timbrada.xml", modoPrueba:=True) ThenMsgBox ("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:WsdlRetencion_timbrada_qr.gif")ElseMsgBox (retencion.MensajeError)Exit Sub 'Detener el flujoEnd If End Sub

Estamos cerca de ti, ¡síguenos!
Y entérate de nuestras promociones

© emcor software todos los derechos reservados 2020.

Solicita tu

Kit de integración

Ingresa tus datos


Recibe nuestro kit de integración!, solo tienes que solicitarlo por medio de este formulario.