diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb
index 2d0ad96bd..915212911 100644
--- a/Sistemas/CatSesiones.aspx.vb
+++ b/Sistemas/CatSesiones.aspx.vb
@@ -433,21 +433,22 @@ Partial Class Sistemas_CatSesiones
 
     Private Sub CargaSubProyectos()
         'Carga SubProyectos
-        GlobalDTSubProyectos(UsuarioActual.CveEmpresa) = Nothing
-        Dim ObjSubProyectos As New ClsSubProyectos
+        GlobalDTSubProyectos(UsuarioActual.CveEmpresa) = Nothing
+        GlobalDTSubProyectosUsuarios(-1, -1, UsuarioActual.CveEmpresa) = Nothing
+        'Dim ObjSubProyectos As New ClsSubProyectos
         'If ObjSubProyectos.GetSubProyectos Then
         '    Application("GlobalDTSubProyectos") = ObjSubProyectos.DtResultados
         'Else
         '    Application("GlobalDTSubProyectos") = Nothing
         'End If
-        If ObjSubProyectos.GetSubProyectosUsuarios Then
-            Application("GlobalDTProyectosUsuarios") = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"})
-            Application("GlobalDTSubProyectosUsuarios") = ObjSubProyectos.DtResultados
-        Else
-            Application("GlobalDTProyectosUsuarios") = Nothing
-            Application("GlobalDTSubProyectosUsuarios") = Nothing
-        End If
-        ObjSubProyectos.Dispose()
+        'If ObjSubProyectos.GetSubProyectosUsuarios Then
+        '    Application("GlobalDTProyectosUsuarios") = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"})
+        '    Application("GlobalDTSubProyectosUsuarios") = ObjSubProyectos.DtResultados
+        'Else
+        '    Application("GlobalDTProyectosUsuarios") = Nothing
+        '    Application("GlobalDTSubProyectosUsuarios") = Nothing
+        'End If
+        'ObjSubProyectos.Dispose()
         'Fin Carga Proyectos
     End Sub
 
@@ -591,7 +592,7 @@ Partial Class Sistemas_CatSesiones
             Case ""
                 dt = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
             Case Else
-                dt = DirectCast(HttpContext.Current.Application(DdlVariable.SelectedValue & "-" & UsuarioActual.CveEmpresa), DataTable)
+                dt = DirectCast(Application(DdlVariable.SelectedValue & "-" & UsuarioActual.CveEmpresa), DataTable)
         End Select
 
         Gv.DataSource = dt