-- filtrando solo los doc x pagar, con saldo

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()