diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 5da9e2bbf..db5ae4139 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -1013,10 +1013,10 @@ Public Class ClsPaginas
     End Property
     Property GlobalDTProyectosUsuarios(CveUsuario As Integer, CveProyecto As Integer, CveEmpresa As Integer, CveEstatus As Integer) As DataTable
         Get
-
-            If Application("GlobalDTProyectosUsuarios") Is Nothing AndAlso DirectCast(Application("GlobalDTProyectosUsuarios"), DataTable).Rows.Count = 0 Then
+            Dim AppNombre As String = String.Format("GlobalDTProyectosUsuarios-{0}", CveEmpresa)
+            If Application("GlobalDTProyectosUsuarios") Is Nothing Then
                 Dim ObjSubProyectos As New ClsSubProyectos()
-                If ObjSubProyectos.GetSubProyectosUsuarios Then Application("GlobalDTProyectosUsuarios") = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"}) Else Alert("Ocurrió un error al cargar los Proyectos. Por favor comuniquese con sistemas.", TipoMensaje.MsgError)
+                If ObjSubProyectos.GetSubProyectosUsuarios Then Application(AppNombre) = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"}) Else Alert("Ocurrió un error al cargar los Proyectos. Por favor comuniquese con sistemas.", TipoMensaje.MsgError)
                 ObjSubProyectos.Dispose()
                 GuardaLog("Se Cargo GlobalDTProyectosUsuarios")
             End If
@@ -1028,25 +1028,18 @@ Public Class ClsPaginas
                 If CveUsuario <> -1 Then StrSQL.AppendFormat(" AND CveUsuario = {0}", CveUsuario)
                 If CveEstatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatusProyecto = {0}", CveEstatus)
 
-                Dim Dv As New DataView(DirectCast(Application("GlobalDTProyectosUsuarios"), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows)
+                Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows)
                 GlobalDTProyectosUsuarios = Dv.ToTable
                 Dv.Dispose()
 
             Else
-                GlobalDTProyectosUsuarios = DirectCast(Application("GlobalDTProyectosUsuarios"), DataTable)
+                GlobalDTProyectosUsuarios = DirectCast(Application(AppNombre), DataTable)
             End If
 
         End Get
         Set(ByVal value As DataTable)
-            If value Is Nothing OrElse value.Rows.Count = 0 Then
-                Dim msg As String = "aqui no se carga proyectos"
-                If Request IsNot Nothing Then
-                    msg = msg & Request.ServerVariables("URL")
-                End If
-                msg.GuardaLog()
-
-            End If
-            Application("GlobalDTProyectosUsuarios") = value
+            Dim AppNombre As String = String.Format("GlobalDTSubProyectosUsuarios-{0}", CveEmpresa)
+            Application(AppNombre) = value
         End Set
     End Property
     Property GlobalDTPrecioListas(CveEmpresa As Integer) As DataTable
diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb
index dff5e3894..540ffbe91 100644
--- a/Sistemas/UsuarioDetalle.aspx.vb
+++ b/Sistemas/UsuarioDetalle.aspx.vb
@@ -1303,12 +1303,13 @@ Partial Class Sistemas_UsuarioDetalle
         End If
 
         If Not TieneError Then
-            If ObjSubProyectos.GetSubProyectosUsuarios Then
-                Application("GlobalDTProyectosUsuarios") = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"})
-            Else
-                Application("GlobalDTProyectosUsuarios") = Nothing
-                TieneError = True
-            End If
+            GlobalDTProyectosUsuarios(-1, -1, UsuarioActual.CveEmpresa, -1) = Nothing
+            'If ObjSubProyectos.GetSubProyectosUsuarios Then
+            '    Application("GlobalDTProyectosUsuarios") = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"})
+            'Else
+            '    Application("GlobalDTProyectosUsuarios") = Nothing
+            '    TieneError = True
+            'End If
         End If
 
         'RECARGA GLOBAL BANCOS
@@ -1322,7 +1323,8 @@ Partial Class Sistemas_UsuarioDetalle
 
 
         'RECARGA GLOBAL ALMACEN
-        If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
+        'If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
+        GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
 
         'RECARGA GLOBAL EMPRESAS USUARIOS
         If ObjUsuarios.GetUsuariosEmpresas(-1) Then