From 2d53cf92b98b16f5e648894725ebf57d77936135 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 23 Nov 2024 15:08:10 -0700
Subject: [PATCH] =?UTF-8?q?--=20aplica=20para=20la=20E119,=20todos=20los?=
 =?UTF-8?q?=20que=20tengan=20acceso=20al=20m=C3=B3dulo?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Compras/RepRembolsoComprobaciones.aspx.vb | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/Compras/RepRembolsoComprobaciones.aspx.vb b/Compras/RepRembolsoComprobaciones.aspx.vb
index 3f23be732..edd6c6050 100644
--- a/Compras/RepRembolsoComprobaciones.aspx.vb
+++ b/Compras/RepRembolsoComprobaciones.aspx.vb
@@ -284,11 +284,10 @@ Partial Class Compras_RepRembolsoComprobaciones
         LnkImprimir.Visible = True
         NumeroReembolso = TxtNumeroReembolso.Text
 
-        If UsuarioActual.CveEmpresa = 119 AndAlso UsuarioActual.CveRol = 1 Then
+        If UsuarioActual.CveEmpresa = 119 Then
             HLAgregarComprobante.Visible = True
         End If
 
-
         If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then
             If NumeroReembolso <> "" AndAlso CvePersonal > 0 AndAlso DtDatos.MAX("CvePrePolizaComprobacionSinBancos").ToEntero > 0 Then
                 DivVincularEgreso.Visible = True