diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index 498665467..e606c32b5 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -930,19 +930,23 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState Dim CveAlmacen = IfNull(context.Request("cvealmacen"), "-1").ToString.ToEntero Dim UsaGlobal As Boolean = True - Dim MostrarTodosAlmacenes As Boolean = False + Dim MostrarTodosAlmacenes As Boolean = True 'verifica existencias If Pagina.Contiene("ventas/ventas", "oc/oc", "inv/traspaso") AndAlso usuario.Empresa.Funcionalidad(141) = "1" Then UsaGlobal = False + If usuario.CveEmpresa = 119 Then MostrarTodosAlmacenes = False + 'If (usuario.Empresa.Funcionalidad(558) = "1") AndAlso Pagina.Contiene("ventas/ventas") Then + ' MostrarTodosAlmacenes = True + 'End If - If (usuario.Empresa.Funcionalidad(558) = "1") AndAlso Pagina.Contiene("ventas/ventas") Then - MostrarTodosAlmacenes = True - End If + 'If (usuario.Empresa.Funcionalidad(578) = "1") AndAlso Pagina.Contiene("ventas/ventas") Then 'sms + ' MostrarTodosAlmacenes = True + 'End If - If (usuario.Empresa.Funcionalidad(578) = "1") AndAlso Pagina.Contiene("ventas/ventas") Then 'sms - MostrarTodosAlmacenes = True - End If + 'If (usuario.Empresa.CveEmpresa.Contiene(189, 193, 195, 197)) AndAlso Pagina.Contiene("ventas/ventas") Then 'sms + ' MostrarTodosAlmacenes = True + 'End If Dim objInv As New ClsInventarios Try