Compras Emp 13,83 validación registro de compra sin xml, OC solo mosrtar Proveedores activos, clientes Abonar correción tamaños txt fecha de emisión Grupo Díaz

Ashx/SIGWeb.ashx

@@ -811,6 +811,19 @@ 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 = ""
+
+        If Estatus = 1 Then
+            filtro = " Estatus = 'Activo' "
+        End If
+
+        If Estatus = 0 Then
+            filtro = " Estatus = 'Inactivo' "
+        End If
+
+
         Dim usuario As Usuario = UsuarioActual(context)
         Dim CveEmpresa As Integer
         If IsNothing(usuario) Then
@@ -819,7 +832,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
             CveEmpresa = usuario.CveEmpresa
             Dim Name = IfNull(context.Request("Name"), "-1").ToString
 
-            Dim dt As DataTable = ClsPaginas.GlobalDTCompProveedores(CveEmpresa)
+            Dim dt As DataTable = ClsPaginas.GlobalDTCompProveedores(CveEmpresa).FiltraParametros(filtro)
             If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
                 DtRetorno = dt.FiltraParametros(String.Format("NombreCortoProveedor like  '%{0}%'", Name))
             End If