--FIX compilacion, subproyectos usuarios

App_Code/ClsPaginas.vb

@@ -1601,7 +1601,7 @@ Public Class ClsPaginas
     Public Shared Property GlobalDTSubProyectosUsuarios(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}"
-            If HttpContext.Current.Application(AppNombre) Is Nothing Then
+            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()