RH/Personal.aspx.vb

@@ -714,6 +714,33 @@ Partial Class RH_Personal
 #End Region
 
 
+    Public Property GlobalDTSubProyectosUsuariosB(CveUsuario As Integer, CveProyecto As Integer, CveEmpresa As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEstatus As Integer = -1) As DataTable
+        Get
+            Dim AppNombre As String = $"GlobalDTSubProyectosUsuarios-{CveEmpresa}"
+            HttpContext.Current.Application(AppNombre) = Nothing
+            If HttpContext.Current.Application(AppNombre) Is Nothing OrElse DirectCast(HttpContext.Current.Application(AppNombre), DataTable).Rows.Count = 0 Then
+                Dim ObjSubProyectos As New ClsSubProyectos()
+                If ObjSubProyectos.GetSubProyectosUsuarios(CveEmpresa:=CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjSubProyectos.DtResultados
+                ObjSubProyectos.Dispose()
+            End If
+            Dim filtros As New List(Of String)
+            If CveProyecto <> -1 Then filtros.Add($"CveProyecto = {CveProyecto}")
+            If CveSubProyecto <> -1 Then filtros.Add($"CveSubProyecto = {CveSubProyecto}")
+            If CveUsuario <> -1 Then filtros.Add($"CveUsuario = {CveUsuario}")
+            If CveEstatus <> -1 Then filtros.Add($"CveEstatus = {CveEstatus}")
+            If filtros.Count > 0 Then
+                Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), String.Join(" AND ", filtros), "", DataViewRowState.CurrentRows)
+                GlobalDTSubProyectosUsuariosB = Dv.ToTable
+                Dv.Dispose()
+            Else
+                GlobalDTSubProyectosUsuariosB = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
+            End If
+        End Get
+        Set(ByVal value As DataTable)
+            Dim AppNombre As String = $"GlobalDTSubProyectosUsuarios-{CveEmpresa}"
+            HttpContext.Current.Application(AppNombre) = value
+        End Set
+    End Property
     Private Shared Function sendURL(ByVal URL As String, Optional Methodo As String = "POST", Optional Cookie As String = "", Optional maxTimeMilliseconds As Integer = 120000) As String
         Dim resultado As String = ""
 
@@ -856,6 +883,7 @@ Partial Class RH_Personal
     'Configuración
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
+            Dim dt = GlobalDTSubProyectosUsuariosB(1360, -1, 172, -1, -1)
             If UsuarioActual.CveEmpresa = 72 OrElse UsuarioActual.CveEmpresa = 80 Then
                 pnlSalarioIMSS.Visible = False
             End If