diff --git a/Planeacion/CatSubProyectos.aspx.vb b/Planeacion/CatSubProyectos.aspx.vb
index 959ac61db..05ada195f 100644
--- a/Planeacion/CatSubProyectos.aspx.vb
+++ b/Planeacion/CatSubProyectos.aspx.vb
@@ -102,7 +102,7 @@ Partial Class CatSubProyectos
 
     Private Sub RecargaGlobal()
         GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
-        GlobalDTSubProyectosUsuarios(-1, -1, UsuarioActual.CveEmpresa) = Nothing
+        GlobalDTSubProyectosUsuarios(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
         GlobalDTOCEstatusUsuarios(UsuarioActual.CveEmpresa) = Nothing
 
     End Sub