diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb
index 570085ae2..6d5359273 100644
--- a/Inicio.aspx.vb
+++ b/Inicio.aspx.vb
@@ -143,12 +143,12 @@ Partial Class Inicio
             If UsuarioActual.TienePermisoProceso(344) Then MuestraRSCOProximosAVencer()
 
             If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso
-                     (UsuarioActual.CveUsuario.Contiene(3964, 3984) OrElse UsuarioActual.CveRol.Contiene(1639, 1577, 1578, 1582)) Then
+                     (UsuarioActual.CveUsuario.Contiene(3964, 3984, 4165) OrElse UsuarioActual.CveRol.Contiene(1639, 1577, 1578, 1582)) Then
 
                 divsms1.Visible = True
                 txtFechaInicioSMS.Text = Now.FirstDayOfMonth.ToString
                 txtFechaFinSMS.Text = Now.LastDayOfMonth.ToString
-                If UsuarioActual.CveUsuario = 3964 Then 'diego de la concha
+                If UsuarioActual.CveUsuario.Contiene(3964, 4165) Then 'diego de la concha
                     DdlSMSOpciones.SelectedValue = "2"
                     DdlSMSVendedores.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveEstatus=1 ")
                     DdlSMSVendedores.DataBind()