Cambiar la forma de recargar el global de subproyectos

Planeacion/CatSubProyectos.aspx.vb

@@ -81,12 +81,8 @@ Partial Class CatSubProyectos
         End If
     End Sub
 
-    Private Sub RecargaGlobal()
+    Private Sub RecargaGlobal()
-        Dim ObjSubProyectos As New ClsSubProyectos
+        GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
-        If ObjSubProyectos.GetSubProyectos(UsuarioActual.CveEmpresa) Then
-            GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = ObjSubProyectos.DtResultados
-        End If
-        ObjSubProyectos.Dispose()
     End Sub
 
 #Region "O R D E N A M I E N T O"