diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index 33007aedc..013fb3576 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -2057,8 +2057,8 @@ Partial Class Ventas_ClientesAbonar
         Dim dtt As DataTable = Nothing
         Dim Deudores As New ClsMovimientos
         If Deudores.GetDocumentosxPagarDetalle(CveCliente, tCveMoneda, 2, UsuarioActual.CveEmpresa) Then
-            DdlPrestamo.DataSource = Deudores.DtResultados '.FiltraParametros("CveCliente > 0 AND Saldo > 0 AND CveIE > 0")
-            dtt = Deudores.DtResultados
+            dtt = Deudores.DtResultados.FiltraParametros("CveProveedor > 0 AND Saldo > 0 AND CveIE > 0", "FechaDocumento")
+            DdlPrestamo.DataSource = dtt
         End If
         Deudores.Dispose()