diff --git a/Planeacion/CatProyectos.aspx.vb b/Planeacion/CatProyectos.aspx.vb
index af4480faf..d413d762a 100644
--- a/Planeacion/CatProyectos.aspx.vb
+++ b/Planeacion/CatProyectos.aspx.vb
@@ -63,8 +63,7 @@ Partial Class CatProyectos
 
     Public Sub CargaDatos()
         Dim ObjProyectos As New ClsProyectos
-        If ObjProyectos.GetProyectos(1) Then
-            Application("GlobalDTProyectos") = ObjProyectos.DtResultados
+        If ObjProyectos.GetProyectos(UsuarioActual.CveEmpresa) Then
             GvDatos.DataSource = ObjProyectos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
             GvDatos.DataBind()
         End If
@@ -82,20 +81,19 @@ Partial Class CatProyectos
     End Sub
 
     Private Sub RecargaGlobal()
-        Dim ObjProyectos As New ClsProyectos
-        If ObjProyectos.GetProyectos(1) Then
-            GlobalDTProyectos(-1) = ObjProyectos.DtResultados
-        End If
-        ObjProyectos.Dispose()
+
+        GlobalDTProyectos(UsuarioActual.CveEmpresa) = Nothing
+
     End Sub
 
     Private Sub CargaSuproyectos()
-        Dim ObjSubProyectos As New ClsSubProyectos
-        If ObjSubProyectos.GetSubProyectos() Then
-            GlobalDTSubProyectos(-1) = ObjSubProyectos.DtResultados
-        End If
+        GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
+        'Dim ObjSubProyectos As New ClsSubProyectos
+        'If ObjSubProyectos.GetSubProyectos(UsuarioActual.CveEmpresa) Then
 
-        ObjSubProyectos.Dispose()
+        'End If
+
+        'ObjSubProyectos.Dispose()
     End Sub
 
     Protected Sub LbAgregar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles LbAgregar.Click