-- mejora en usar los alamcenes de consigna y avistas

2024-04-22 15:43:14 -07:00
parent 3d595882ba
commit ee88e288a4
2 changed files with 23 additions and 20 deletions
--- a/Ashx/SIGWeb.ashx
+++ b/Ashx/SIGWeb.ashx
@@ -940,6 +940,10 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
                    MostrarTodosAlmacenes = True
                End If

+                If (usuario.Empresa.Funcionalidad(578) = "1") AndAlso Pagina.Contiene("ventas/ventas") Then 'sms
+                    MostrarTodosAlmacenes = True
+                End If
+
                Dim objInv As New ClsInventarios
                Try
                    If objInv.GetExistenciasProductosLike(Name, CveClasificacion, CveSubProyecto, Estatus.ToEntero, AplicaParaVenta, CveEmpresa, CveMarca, MostrarTodosAlmacenes:=MostrarTodosAlmacenes, CveAlmacen:=CveAlmacen) Then