diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb
index 971d81b2e..dd2069a47 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.AddYears(1), 1, UsuarioActual.CveEmpresa, -1, UsuarioActual.CveUsuario, True) Then
+        If ObjInventarios.RepCompuestosVigencia(-1, -1, MinFecha, Now.AddMonths(1), 1, UsuarioActual.CveEmpresa, -1, UsuarioActual.CveUsuario, True) Then
 
             If ObjInventarios.DtResultados.Rows.Count > 0 Then
                 GvModalRSCOPorCaducar.DataSource = ObjInventarios.DtResultados