From b385f0dbfd520b9d77e02a5285606a39ce96a268 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 14 Jun 2022 20:11:19 -0700
Subject: [PATCH] - resguardo 140

---
 RH/Personal.aspx.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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