From a6048e855ad837b1b45185439cc6a7944848dc5e Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Mon, 10 Feb 2020 10:45:51 -0700
Subject: [PATCH] se actualizo la manera en la que se recarga el global de
 subproyectos

---
 Planeacion/CatSubProyectos.aspx.vb | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/Planeacion/CatSubProyectos.aspx.vb b/Planeacion/CatSubProyectos.aspx.vb
index 217c9a811..f2d679fd2 100644
--- a/Planeacion/CatSubProyectos.aspx.vb
+++ b/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