-- limpieza de globalDT

Sistemas/CatSesiones.aspx.vb

@@ -364,13 +364,14 @@ Partial Class Sistemas_CatSesiones
 
     Private Sub CargaProyectos()
         'Carga Proyectos
-        Dim ObjProyectos As New ClsProyectos
-        If ObjProyectos.GetProyectos Then
-            Application("GlobalDTProyectos") = ObjProyectos.DtResultados
-        Else
-            Application("GlobalDTProyectos") = Nothing
-        End If
-        ObjProyectos.Dispose()
+        'Dim ObjProyectos As New ClsProyectos
+        'If ObjProyectos.GetProyectos(UsuarioActual.CveEmpresa) Then
+        '    Application("GlobalDTProyectos") = ObjProyectos.DtResultados
+        'Else
+        '    Application("GlobalDTProyectos") = Nothing
+        'End If
+        'ObjProyectos.Dispose()
+        GlobalDTProyectos(UsuarioActual.CveEmpresa) = Nothing
         'Fin Carga Proyectos
     End Sub