diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index 9fea22034..8a24e0da2 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -439,7 +439,9 @@ Partial Class Ventas_ClientesAbonar
             TmpCxCAux = Mov.DtResultados.FiltraParametros("Saldo > 0", "Fecha,SerieFolio")
             SumDescuentoProntoPago = TmpCxCAux.SUM("DescuentoProntoPago")
 
-            GvCxC.DataSource = Mov.DtResultados.FiltraParametros("Saldo > 0", "Fecha,SerieFolio")
+            If UsuarioActual.CveEmpresa = 186 Then TmpCxCAux = TmpCxCAux.AsEnumerable.Take(200).CopyToDataTable() 'Limitar a 100 registros para evitar problemas de rendimiento
+
+            GvCxC.DataSource = TmpCxCAux.FiltraParametros("Saldo > 0", "Fecha,SerieFolio")
             CveMoneda = pCveMoneda
 
         End If
@@ -698,20 +700,21 @@ Partial Class Ventas_ClientesAbonar
 
 
     Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click
+        GenerarPago()
         'VERIFICA SI HAY CORTE ANTES DE HACER EL PAGO
-        If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso CveCorte <= 0 Then
-            Dim ObjPVenta As New ClsPuntoVenta
-            If ObjPVenta.GetVta_Cortes(TxtFechaDocumento.Text, TxtFechaDocumento.Text, -1, -1, UsuarioActual.CveEmpresa, -1) Then
-                DdlCorteCaja.DataSource = ObjPVenta.DtResultados.FiltraParametros($"CveSubProyecto={CveSubProyecto}")
-                DdlCorteCaja.DataBind()
-            End If
-            ObjPVenta.Dispose()
-            DdlCorteCaja.Items.Insert(0, New ListItem("Seleccione", "-1"))
-            UpModalCorte.Update()
-            RegistraScript("$('#ModalCorte').modal({backdrop: 'static', keyboard: false}, 'show')")
-        Else
-            GenerarPago()
-        End If
+        'If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso CveCorte <= 0 Then
+        '    Dim ObjPVenta As New ClsPuntoVenta
+        '    If ObjPVenta.GetVta_Cortes(TxtFechaDocumento.Text, TxtFechaDocumento.Text, -1, -1, UsuarioActual.CveEmpresa, -1) Then
+        '        DdlCorteCaja.DataSource = ObjPVenta.DtResultados.FiltraParametros($"CveSubProyecto={CveSubProyecto}")
+        '        DdlCorteCaja.DataBind()
+        '    End If
+        '    ObjPVenta.Dispose()
+        '    DdlCorteCaja.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        '    UpModalCorte.Update()
+        '    RegistraScript("$('#ModalCorte').modal({backdrop: 'static', keyboard: false}, 'show')")
+        'Else
+        '    GenerarPago()
+        'End If
     End Sub
 
     Protected Sub BtnGenerarPago_Click(sender As Object, e As EventArgs) Handles BtnGenerarPago.Click