diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index 93a3c4ef4..115d474bb 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -1609,7 +1609,7 @@ Partial Class RH_Personal
                     CargaUniformesPersonal()
                 End If
 
-                If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 153, 154) Then
+                If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 153, 154, 140) Then
 
                     LnkSurtir.Visible = True
                     DdlUniforme.Visible = False
@@ -5542,7 +5542,7 @@ Partial Class RH_Personal
 
     Private Sub CargaUniformesPersonal()
 
-        If Not UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 153, 154) Then
+        If Not UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 153, 154, 140) Then
 
             GvUniforme.Visible = True
             GvUniformesResguardo.Visible = False