Clientes busqueda cuenta, correcion descarga documentos cat documentos, ajustes servicio domicilio

Ventas/PopUpBuscarClientes.aspx.vb

@@ -2,6 +2,8 @@
 Option Strict On
 
 Imports Extensiones
+Imports Microsoft.Owin.Security.Provider
+
 Partial Class PopUpBuscarClientes
     Inherits ClsPaginas
 
@@ -74,13 +76,17 @@ Partial Class PopUpBuscarClientes
             Dim ObjClientes As New ClsClientes()
             Dim CveUsuarioConsulta As Integer
 
+
+            Dim Cuenta As String = If(TxtCuenta.Text = "", "-1", TxtCuenta.Text)
+
             If UsuarioActual.TienePermisoProceso(322) Then
                 CveUsuarioConsulta = UsuarioActual.CveVendedor
             Else
                 CveUsuarioConsulta = -1
             End If
             If ObjClientes.GetClientes(-1, Nombre, Codigo, NombreCorto, RFC, Telefono, Mail, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa,
-                                   DdlEstatus.SelectedValue.ToEntero, TipoCliente:=TipoCliente, TopSelect:=100, CveUsuarioConsulta:=CveUsuarioConsulta) Then
+                                   DdlEstatus.SelectedValue.ToEntero, TipoCliente:=TipoCliente, TopSelect:=100, CveUsuarioConsulta:=CveUsuarioConsulta, Cuenta:=Cuenta) Then
+
                 If ObjClientes.DtResultados.Rows.Count > 0 Then
                     LtlTotalRegistros.Text = ObjClientes.DtResultados.Rows.Count.ToString.FormatoNumero(0)
                     GV.DataSource = ObjClientes.DtResultados
@@ -150,6 +156,7 @@ Partial Class PopUpBuscarClientes
         If TxtMail.Text.Trim <> String.Empty Then Return True
         If DdlSubProyecto.SelectedValue.ToEntero > 0 Then Return True
         If DdlEstatus.SelectedValue.ToEntero > 0 Then Return True
+        If TxtCuenta.Text.Trim.Length > 0 Then Return True
         Return False
     End Function