fechas vencimientos

Inicio.aspx.vb

@@ -336,10 +336,8 @@ Partial Class Inicio
 
     Private Sub MuestraPsProximosAVencer()
 
-
-
         Dim ObjInventarios = New ClsInventarios
-        If ObjInventarios.GetProductosCaducidad(-1, Now, Now.AddDays(30), -1, -1, -1, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Opcion:=2, CveCompuesto:=-1) Then
+        If ObjInventarios.GetProductosCaducidad(-1, MinFecha, Now.AddDays(30), -1, -1, -1, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Opcion:=2, CveCompuesto:=-1) Then
 
             If ObjInventarios.DtResultados.Rows.Count > 0 Then
                 GvModalPSPorCaducar.DataSource = ObjInventarios.DtResultados
@@ -352,20 +350,16 @@ Partial Class Inicio
             GvModalPSPorCaducar.DataSource = Nothing
         End If
 
-
-
         ObjInventarios.Dispose()
         GvModalPSPorCaducar.DataBind()
 
-
     End Sub
 
-
     Private Sub MuestraRSCOProximosAVencer()
 
         Dim ObjInventarios As New ClsInventarios
 
-        If ObjInventarios.RepCompuestosVigencia(-1, -1, Now, Now.AddDays(30), 1, UsuarioActual.CveEmpresa, True) Then
+        If ObjInventarios.RepCompuestosVigencia(-1, -1, MinFecha, Now.AddDays(30), 1, UsuarioActual.CveEmpresa, True) Then
 
             If ObjInventarios.DtResultados.Rows.Count > 0 Then
                 GvModalRSCOPorCaducar.DataSource = ObjInventarios.DtResultados
@@ -383,9 +377,6 @@ Partial Class Inicio
 
     End Sub
 
-
-
-
     Private Sub CargaSubProyectos()
         DdlSubproyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
         DdlSubproyectos.DataBind()