From 78f23748437a03d69fd9c9e2798bf5393bcaed24 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 14 Aug 2024 11:53:38 -0700 Subject: [PATCH] -- RNC578, solo mostrar los productos con existencia --- Ashx/SIGWeb.ashx | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index dde388876..d8d838d35 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -811,6 +811,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState Dim retorno As String = "" Dim DtRetorno As DataTable = Nothing + Dim Estatus = IfNull(context.Request("estatus"), "-1").ToString.ToEntero Dim filtro As String = "" @@ -823,7 +824,6 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState filtro = " Estatus = 'Inactivo' " End If - Dim usuario As Usuario = UsuarioActual(context) Dim CveEmpresa As Integer If IsNothing(usuario) Then @@ -998,6 +998,12 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState End If + If usuario.Empresa.Funcionalidad(578) = "1" AndAlso DtPSRetorno IsNot Nothing Then + 'solo muestar productos con existencia. + DtPSRetorno = DtPSRetorno.FiltraParametros("ExistenciaTotal > 0") + End If + If DtPSRetorno.Columns("ExistenciaTotal") IsNot Nothing Then DtPSRetorno.Columns.Remove("ExistenciaTotal") + If UsaGlobal Then 'se recarga el global, y el clspaginas, son los unicos 2 lugares 'Dim AppNombre As String = String.Format("GlobalDTPSSimplificado-{0}", CveEmpresa)