se actualizo la manera en la que se recarga el global de subproyectos

Planeacion/CatSubProyectos.aspx.vb

@@ -83,8 +83,8 @@ Partial Class CatSubProyectos
 
     Private Sub RecargaGlobal()
         Dim ObjSubProyectos As New ClsSubProyectos
-        If ObjSubProyectos.GetSubProyectos() Then
-            GlobalDTSubProyectos(-1) = ObjSubProyectos.DtResultados
+        If ObjSubProyectos.GetSubProyectos(UsuarioActual.CveEmpresa) Then
+            GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = ObjSubProyectos.DtResultados
         End If
         ObjSubProyectos.Dispose()
     End Sub
@@ -400,6 +400,7 @@ Partial Class CatSubProyectos
             RecargaGlobal()
         Else
             ObjSubproyectos.RollBack()
+            RecargaGlobal()
         End If
 
         'se regeneran los subproyectos