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