Inicio PS por caducar y RSCO Por Vencer, Avance descarga Ingresos

Inicio.aspx.vb

@@ -205,6 +205,11 @@ Partial Class Inicio
             If UsuarioActual.TienePermisoProceso(271) Then MuestraVentasPUE()
             If UsuarioActual.TienePermisoProceso(270) Then MuestraComprasPUE()
 
+
+            If UsuarioActual.TienePermisoProceso(343) Then MuestraPsProximosAVencer()
+            If UsuarioActual.TienePermisoProceso(344) Then MuestraRSCOProximosAVencer()
+
+
             Dim EsDEV = Not UsuarioActual.Empresa.FacturaProduccion
             If Not EsDEV Then
                 If UsuarioActual.CveUsuario.Contiene(93, 1425, 2, 1606, 1472, 100, 1918) Then MuestraInconsistencias() '100
@@ -329,6 +334,58 @@ Partial Class Inicio
         GvVentasEmail.DataBind()
     End Sub
 
+    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.DtResultados.Rows.Count > 0 Then
+                GvModalPSPorCaducar.DataSource = ObjInventarios.DtResultados
+                RegistraScript("$('#DVModalPSPorCaducar').modal('show');")
+            Else
+                GvModalPSPorCaducar.DataSource = Nothing
+            End If
+
+        Else
+            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.DtResultados.Rows.Count > 0 Then
+                GvModalRSCOPorCaducar.DataSource = ObjInventarios.DtResultados
+                RegistraScript("$('#DVModalRSCOPorCaducar').modal('show');")
+            Else
+                GvModalRSCOPorCaducar.DataSource = Nothing
+            End If
+
+        Else
+            GvModalRSCOPorCaducar.DataSource = Nothing
+        End If
+
+        ObjInventarios.Dispose()
+        GvModalRSCOPorCaducar.DataBind()
+
+    End Sub
+
+
+
+
     Private Sub CargaSubProyectos()
         DdlSubproyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
         DdlSubproyectos.DataBind()