PV. mostrar solo clientes distribuidores

Ashx/SIGWeb.ashx

@@ -559,6 +559,8 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
             ColumnaNombre = "Nombre"
         End If
 
+        Dim EsDistribuidor As Integer = IfNull(context.Request("esdistribuidor"), "-1").ToString.ToEntero
+
         Dim usuario As Usuario = UsuarioActual(context)
         Dim CveEmpresa As String
         If IsNothing(usuario) Then
@@ -584,6 +586,10 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
 
             Dim dt As DataTable = DirectCast(context.Application(AppNombre), DataTable) '.FiltraParametros(String.Format("CveEmpresa = {0}", CveEmpresa))
             If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+                If EsDistribuidor <> -1 Then
+                    dt = dt.FiltraParametros(String.Format("EsDistribuidor = {0} ", CBool(EsDistribuidor)))
+                End If
+
                 DtRetorno = dt.FiltraParametros(String.Format("NombreComercial like '%{0}%' OR Nombre like  '%{0}%'  ", Name))
             End If
             dt.Dispose()

Scripts/custom.js

@@ -1201,7 +1201,8 @@ function setwebservice(idDdlWS, idhdValue, idhdText, btn) {
                         Pagina: (!(DdlWS.data('pagina')) || DdlWS.data('pagina') == '') ? '-2' : DdlWS.data('pagina'),
                         ColTexto: (!(DdlWS.data('coltexto')) || DdlWS.data('coltexto') == '') ? 'NC' : DdlWS.data('coltexto'),
                         aplicaparaventa: (!(DdlWS.data('aplicaparaventa')) || DdlWS.data('aplicaparaventa') == '') ? -1 : DdlWS.data('aplicaparaventa'),
-                        cvemarca: (!(DdlWS.data('cvemarca')) || DdlWS.data('cvemarca') == '') ? -1 : DdlWS.data('cvemarca')
+                        cvemarca: (!(DdlWS.data('cvemarca')) || DdlWS.data('cvemarca') == '') ? -1 : DdlWS.data('cvemarca'),
+                        esdistribuidor: (!(DdlWS.data('esdistribuidor')) || DdlWS.data('esdistribuidor') == '') ? -1 : DdlWS.data('esdistribuidor')
 
                         //Metodo: metodo
                     };

Ventas/PV.aspx.vb

@@ -6432,6 +6432,7 @@ Partial Class PV
         CreaDTmpDTRecepcionUsados()
         CreaDTmpDTPolizaVirtual()
         DdlDistribuidor.setEsWebService(True)
+        DdlDistribuidor.ddlWS.Attributes.Add("data-esdistribuidor", "1")
         DivChkAjuste.Visible = True
 
         UpAjuste.Update()