From 881f4a80b343e5c7ff136c9d909ba3d20d789c6b Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 2 Apr 2024 13:28:36 -0700 Subject: [PATCH] =?UTF-8?q?--actvac=C3=B3n=20para=20visualza=20cuenta=20de?= =?UTF-8?q?=20caja=20chica,=20cuando=20tiene=20funcionaldad=20de=20cobro?= =?UTF-8?q?=20en=20caja.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/IE.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 836808ff2..7a7dfdde6 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -1637,7 +1637,7 @@ Partial Class Bancos_IE DdlCuenta.Items.Clear() Dim dt As DataTable - If UsuarioActual.Empresa.Funcionalidad(127) = "1" Then + If UsuarioActual.Empresa.Funcionalidad(127) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(109) = "1" Then dt = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) Else dt = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveTipoCuenta <> 1") ' quito las cajas chicas