From 850f8fa88dcc7732bb2d29742138f23844102a03 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 10 Apr 2024 19:16:20 -0700
Subject: [PATCH] -

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

diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb
index 472b87af2..324acba28 100644
--- a/Bancos/RepCortes.aspx.vb
+++ b/Bancos/RepCortes.aspx.vb
@@ -180,7 +180,7 @@ Partial Class Bancos_RepCortes
             End If
         End If
 
-        If Vn.GetCortesDetalleDepositosCaja(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+        If UsuarioActual.CveEmpresa.contiene(140, 141) AndAlso Vn.GetCortesDetalleDepositosCaja(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
             GvDep.DataSource = Vn.DtResultados
             If Vn.DtResultados.Rows.Count > 0 Then
                 DivDep.Visible = True
@@ -210,7 +210,7 @@ Partial Class Bancos_RepCortes
         GvDep.DataBind()
         GvPorIVA.DataBind()
 
-        If UsuarioActual.CveEmpresa = 193 AndAlso UsuarioActual.CveRol = 1 Then
+        If UsuarioActual.CveEmpresa = 193 Then
             DivAnexo.Visible = True
 
             Dim CveCuenta As Integer = 186367