AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- RNC578, solo mostrar los productos con existencia

Browse Source
This commit is contained in:
rrene
2024-08-14 11:53:38 -07:00
parent 5e0fba66a9
commit 78f2374843
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Ashx/SIGWeb.ashx
View File

@@ -811,6 +811,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
Dim retorno As String = "" Dim retorno As String = ""
Dim DtRetorno As DataTable = Nothing Dim DtRetorno As DataTable = Nothing
Dim Estatus = IfNull(context.Request("estatus"), "-1").ToString.ToEntero Dim Estatus = IfNull(context.Request("estatus"), "-1").ToString.ToEntero
Dim filtro As String = "" Dim filtro As String = ""
@@ -823,7 +824,6 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
filtro = " Estatus = 'Inactivo' " filtro = " Estatus = 'Inactivo' "
End If End If
Dim usuario As Usuario = UsuarioActual(context) Dim usuario As Usuario = UsuarioActual(context)
Dim CveEmpresa As Integer Dim CveEmpresa As Integer
If IsNothing(usuario) Then If IsNothing(usuario) Then
@@ -998,6 +998,12 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
End If 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 If UsaGlobal Then
'se recarga el global, y el clspaginas, son los unicos 2 lugares 'se recarga el global, y el clspaginas, son los unicos 2 lugares
'Dim AppNombre As String = String.Format("GlobalDTPSSimplificado-{0}", CveEmpresa) 'Dim AppNombre As String = String.Format("GlobalDTPSSimplificado-{0}", CveEmpresa)