diff --git a/Compras/RepRembolsoComprobaciones.aspx.vb b/Compras/RepRembolsoComprobaciones.aspx.vb
index 9d8e27c6f..eed4a0f08 100644
--- a/Compras/RepRembolsoComprobaciones.aspx.vb
+++ b/Compras/RepRembolsoComprobaciones.aspx.vb
@@ -87,6 +87,7 @@ Partial Class Compras_RepRembolsoComprobaciones
 
             DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
             DdlPersonal.DataBind()
+            txtFechaI.Text = NowADS.AddYears(-1).ToShortDateString
 
         End If
     End Sub
@@ -141,7 +142,7 @@ Partial Class Compras_RepRembolsoComprobaciones
             e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Right
 
             If e.Row.DBCampo("Saldo").ToDouble < 0 Then e.Row.Cells(7).ForeColor = Drawing.Color.Red
-            If e.Row.DBCampo("DiasVencidos").ToDouble > 0 AndAlso CType(sender, GridView).ID = "GvCxP" Then e.Row.Cells(5).ForeColor = Drawing.Color.Red
+            'If e.Row.DBCampo("DiasVencidos").ToDouble > 0 AndAlso CType(sender, GridView).ID = "GvCxP" Then e.Row.Cells(5).ForeColor = Drawing.Color.Red
             If e.Row.DBCampo("Original").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlSaldoOriginal"), Literal).Text = ""
             If e.Row.DBCampo("Abonado").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlAbonado"), Literal).Text = ""
             If e.Row.DBCampo("Saldo").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlSaldo"), Literal).Text = ""