diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb
index be58e771b..00be9fcf2 100644
--- a/Ventas/RepVentas.aspx.vb
+++ b/Ventas/RepVentas.aspx.vb
@@ -111,14 +111,12 @@ Partial Class Ventas_RepVentas
                 Opcion = "-1"
             End If
 
-            If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso UsuarioActual.TienePermisoProceso(386) Then
+            If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso (UsuarioActual.TienePermisoProceso(386) OrElse UsuarioActual.CveUsuario.Contiene(4159)) Then
                 LiSabana.Visible = True
-
                 DdlProveedores.setEsWebService(True)
                 DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
                 DdlProveedores.SelectedText = "Todos"
                 DdlProveedores.SelectedValue = "-1"
-
             End If
 
             If UsuarioActual.CveEmpresa = 72 AndAlso UsuarioActual.CveUsuario.Contiene(100, 1614, 1517) Then