Ventas Empresa llantera Solo mostrar ps con existencias, meses sin intereses, contado otros pagos

Ashx/SIGWeb.ashx

@@ -1,5 +1,5 @@
-<%@ WebHandler Language="VB" Class="SIGWeb" %>
-
+<%@ WebHandler Language="VB" Class="SIGWeb" %>
+
 Imports System
 Imports System.Web
 Imports System.Data
@@ -79,10 +79,10 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
             End If
 
         End If
-    End Sub
-
+    End Sub
+
 #Region "File"
-
+
     Private Sub Downfile(ByVal context As HttpContext)
         Dim savepath As String = ""
         Dim tempPath As String = ""
@@ -133,9 +133,9 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
         End If
         context.Response.Write(tick)
         context.Response.StatusCode = 200
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "Get Cliente"
     Private Function GetClientes(ByVal context As HttpContext) As String
         Dim retorno As String = ""
@@ -164,9 +164,9 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
         End If
 
         Return retorno
-    End Function
+    End Function
 #End Region
-
+
 #Region "Get Proveedor"
     Private Function GetProveedores(ByVal context As HttpContext) As String
         Dim retorno As String = ""
@@ -195,10 +195,10 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
         End If
 
         Return retorno
-    End Function
+    End Function
 #End Region
-
-
+
+
 #Region "  GET PS  "
     Private Function getpsalmacen(ByVal context As HttpContext) As String
 
@@ -285,19 +285,28 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
                 If objInv.GetExistenciasProductosLike(Name, CveClasificacion, CveSubProyecto, Estatus.ToEntero, AplicaParaVenta, CveEmpresa) Then
 
                     ' limpio los almacenes donde no tiene ningun producto existencia
-                    For i = objInv.DtResultados.Columns.Count - 1 To 1 Step -1
-
+                    For i = objInv.DtResultados.Columns.Count - 1 To 1 Step -1
+
                         If Not objInv.DtResultados.Columns(i).ColumnName.Contiene("CvePS", "PSCodigo", "PSCodigoClasificacion") AndAlso objInv.DtResultados.SUM(String.Format("[{0}]", objInv.DtResultados.Columns(i).ColumnName)) = 0 Then
                             objInv.DtResultados.Columns.RemoveAt(i)
                         End If
-                    Next
-
-                    DtPSRetorno = objInv.DtResultados
+                    Next
+
+                    DtPSRetorno = objInv.DtResultados
+
                 End If
 
-
                 objInv.Dispose()
 
+            End If
+
+            If usuario.Empresa.Funcionalidad(558) = 1 Then
+                Try
+                    Dim NobreFiltroColumna As String = DtPSRetorno.Columns(3).ColumnName
+                    DtPSRetorno = DtPSRetorno.FiltraParametros($"{NobreFiltroColumna} > 0")
+                Catch ex As Exception
+                End Try
+
             End If
 
             If UsaGlobal Then
@@ -386,19 +395,19 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
         End If
 
         Return retorno
-    End Function
+    End Function
 #End Region
-
-
-
+
+
+
     Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
         Get
             Return False
         End Get
-    End Property
-
-
-
+    End Property
+
+
+
 #Region "Funciones"
     Public Function GetJson(ByVal dt As DataTable) As String
 
@@ -419,10 +428,10 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
         Get
             UsuarioActual = DirectCast(context.Session("UsuarioSIG"), Usuario)
         End Get
-    End Property
+    End Property
 #End Region
-
-
+
+
 #Region "  GET PS SAT  "
     Private Function GETPSSAT(ByVal context As HttpContext) As String
         Dim retorno As String = ""
@@ -448,10 +457,10 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
         End If
         DtPSRetorno.Dispose()
         Return retorno
-    End Function
+    End Function
 #End Region
-
-
+
+
 #Region "  GET UM SAT  "
     Private Function GETUMSAT(ByVal context As HttpContext) As String
         Dim retorno As String = ""
@@ -476,9 +485,9 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
             context.Response.Write("[]")
         End If
         Return retorno
-    End Function
+    End Function
 #End Region
-
+
 #Region "  GET FRACCION ARANCELARIA  "
     Private Function GetFraccionArancelaria(ByVal context As HttpContext) As String
         Dim retorno As String = ""
@@ -504,12 +513,12 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
         End If
         DtRetorno.Dispose()
         Return retorno
-    End Function
+    End Function
 #End Region
-
-
+
+
 #Region "USADOS"
-
+
     Private Function GETPSUSADOS(ByVal context As HttpContext) As String
         Dim retorno As String = ""
         Dim DtPSRetorno As DataTable = Nothing
@@ -599,9 +608,9 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
         End If
 
         Return retorno
-    End Function
-
-
+    End Function
+
+
 #End Region
-
+
 End Class