From fc3b03eeb91ade44877837aef55086eb2b1a888b Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 25 Aug 2022 19:56:50 -0700
Subject: [PATCH] =?UTF-8?q?--=20RSCO=20-=20un=20a=C3=B1o?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Inicio.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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