diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index b0a843edf..00aed620b 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -397,8 +397,15 @@ Partial Class Bancos_ProveedoresAbonar
 
         Dim ObjMov As New ClsMovimientos
         If ObjMov.GetCxPProveedor(CveProveedor, FechaI, FechaF, CveUsuarioProgramo, CveUsuarioRegistro, CveUsuarioResponsable, CveClasificacionProveedor, tCveMoneda, CveEstatus, CveProveedorSucursal, CveAplicaNC, "-1", "-1", CodigoProgramacion, CveSubProyecto:=CveSubProyectoFiltro) Then
-            DtDatos = ObjMov.DtResultados.FiltraParametros("CveCompra > 0 AND Saldo > 0", "Fecha,SerieFolio")
+
+            If FiltrarCuentas = 1 Then
+                DtDatos = ObjMov.DtResultados.FiltraParametros("Tipo = 'Act' AND Saldo > 0", "Fecha,SerieFolio")
+            Else
+                DtDatos = ObjMov.DtResultados.FiltraParametros("CveCompra > 0 AND Saldo > 0", "Fecha,SerieFolio")
+            End If
+
             GvCxP.DataSource = DtDatos
+
             DtDatos.Columns.Add("Movimiento")
             If DtDatos.Rows.Count > 0 Then
                 DVBusqueda.Visible = True
@@ -473,7 +480,7 @@ Partial Class Bancos_ProveedoresAbonar
 
             e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format("FnSuma(this,{0},{1});", e.Row.FCTextBox("TxtAbonar").ClientID, e.Row.DBCampo("Saldo")))
 
-            If e.Row.RowIndex = 0 Then
+            If FiltrarCuentas = 1 AndAlso e.Row.RowIndex = 0 Then
                 e.Row.FCHyperLink("HplF").Text = (CType(GvCxP.DataSource, DataTable).Rows.Count - 1).ToString
                 e.Row.BackColor = Drawing.Color.LightGray
             End If