diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb
index 90e21f9fc..971d81b2e 100644
--- a/Inicio.aspx.vb
+++ b/Inicio.aspx.vb
@@ -357,7 +357,7 @@ Partial Class Inicio
 
         Dim ObjInventarios As New ClsInventarios
 
-        If ObjInventarios.RepCompuestosVigencia(-1, -1, MinFecha, Now.AddDays(30), 1, UsuarioActual.CveEmpresa, -1, UsuarioActual.CveUsuario, True) Then
+        If ObjInventarios.RepCompuestosVigencia(-1, -1, MinFecha, Now.AddYears(1), 1, UsuarioActual.CveEmpresa, -1, UsuarioActual.CveUsuario, True) Then
 
             If ObjInventarios.DtResultados.Rows.Count > 0 Then
                 GvModalRSCOPorCaducar.DataSource = ObjInventarios.DtResultados