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

Ventas/PopUpBuscarClientes.aspx

@@ -73,6 +73,19 @@
                         </asp:DropDownList>
                     </td>
                 </tr>
+
+
+                 <tr align="left">
+                    <td class="text-right"><b>Cuenta:</b></td>
+                    <td>
+                          <asp:Textbox runat="server" ID="TxtCuenta" Width="200px" MaxLength="50"/>
+                    </td>
+                    <td class="text-right"><b></b></td>
+                    <td>
+                        
+                    </td>
+                </tr>
+
                 <tr>
                     <td style="text-align: center;" colspan="4">
                         <asp:Button ID="BtnBuscar" runat="server" Text="Buscar" class="btn btn-primary" /></td>

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