-

Ventas/Clientes.aspx.vb

@@ -1894,22 +1894,22 @@ Partial Class Clientes
 
     Protected Sub BtnVerMasBancos_Click(sender As Object, e As EventArgs)
         If BtnVerMasBancos.Text = "Ver Más" Then
-            CargaBancos(-1)
+            CargaBancos(1000000)
             BtnVerMasBancos.Text = "Ver Menos"
         Else
-            CargaBancos(11)
+            CargaBancos(51)
             BtnVerMasBancos.Text = "Ver Más"
         End If
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "B A N C O S"
-    'CuentasxCobrar Activas (Pagos Recibidos)
-    Private Sub CargaBancos(Optional SelectTop As Integer = 11, Optional CveClienteSucursal As Integer = -1)
+    'CuentasxCobrar Activas (Pagos Recibidos)
+    Private Sub CargaBancos(Optional SelectTop As Integer = 51, Optional CveClienteSucursal As Integer = -1)
         Dim ObjMovtos As New ClsMovimientos()
         'CxC Activas
-        If ObjMovtos.GetClienteAbonos(CveCliente, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) AndAlso ObjMovtos.DtResultados.Rows.Count > 0 Then
+        If ObjMovtos.GetClienteAbonos(CveCliente, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero, SelectTop:=SelectTop) AndAlso ObjMovtos.DtResultados.Rows.Count > 0 Then
             GvBancos.DataSource = ObjMovtos.DtResultados
             DTCobrosRealizados = ObjMovtos.DtResultados
             DTCobrosRealizados.Rows.Remove(DTCobrosRealizados.Rows(0))