diff --git a/Acumuladores/RepRecolecciones.aspx.vb b/Acumuladores/RepRecolecciones.aspx.vb
index 92fbef024..44e8fccab 100644
--- a/Acumuladores/RepRecolecciones.aspx.vb
+++ b/Acumuladores/RepRecolecciones.aspx.vb
@@ -60,8 +60,8 @@ Partial Class Acumuladores_RepRecolecciones
 
     Private Sub InicializaCombos()
         CargaPS()
-        TxtFechaI.Text = NowADS().AddDays(-1).ToShortDateString
-        TxtFechaF.Text = NowADS().AddDays(3).ToShortDateString
+        TxtFechaI.Text = NowADS().AddMonths(-1).ToShortDateString
+        TxtFechaF.Text = NowADS().AddMonths(1).ToShortDateString
         CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
         DdlAlmacenOrigen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (4)")
         DdlAlmacenOrigen.DataBind()
@@ -73,7 +73,7 @@ Partial Class Acumuladores_RepRecolecciones
     Private Sub CargaDatos()
 
         Dim ObjGeneral As New ClsGenerales
-        If (ObjGeneral.GetInvEntregaAlmacenRuta(-1, Now.AddMonths(-1), Now.AddMonths(1), UsuarioActual.CveEmpresa, 2, -1)) Then
+        If (ObjGeneral.GetInvEntregaAlmacenRuta(-1, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, 2, -1)) Then
             GvR.DataSource = ObjGeneral.DtResultados
         End If
         ObjGeneral.Dispose()