From 96248cb9bf56ee25c40be2e85c957f59a997f178 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 1 Feb 2023 13:23:05 -0700 Subject: [PATCH] =?UTF-8?q?--=20correcci=C3=B3n=20de=20datos.=20de=20globa?= =?UTF-8?q?l?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Planeacion/CatProyectos.aspx.vb | 22 ++++++++++------------ 1 file changed, 10 insertions(+), 12 deletions(-) diff --git a/Planeacion/CatProyectos.aspx.vb b/Planeacion/CatProyectos.aspx.vb index af4480faf..d413d762a 100644 --- a/Planeacion/CatProyectos.aspx.vb +++ b/Planeacion/CatProyectos.aspx.vb @@ -63,8 +63,7 @@ Partial Class CatProyectos Public Sub CargaDatos() Dim ObjProyectos As New ClsProyectos - If ObjProyectos.GetProyectos(1) Then - Application("GlobalDTProyectos") = ObjProyectos.DtResultados + If ObjProyectos.GetProyectos(UsuarioActual.CveEmpresa) Then GvDatos.DataSource = ObjProyectos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) GvDatos.DataBind() End If @@ -82,20 +81,19 @@ Partial Class CatProyectos End Sub Private Sub RecargaGlobal() - Dim ObjProyectos As New ClsProyectos - If ObjProyectos.GetProyectos(1) Then - GlobalDTProyectos(-1) = ObjProyectos.DtResultados - End If - ObjProyectos.Dispose() + + GlobalDTProyectos(UsuarioActual.CveEmpresa) = Nothing + End Sub Private Sub CargaSuproyectos() - Dim ObjSubProyectos As New ClsSubProyectos - If ObjSubProyectos.GetSubProyectos() Then - GlobalDTSubProyectos(-1) = ObjSubProyectos.DtResultados - End If + GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing + 'Dim ObjSubProyectos As New ClsSubProyectos + 'If ObjSubProyectos.GetSubProyectos(UsuarioActual.CveEmpresa) Then - ObjSubProyectos.Dispose() + 'End If + + 'ObjSubProyectos.Dispose() End Sub Protected Sub LbAgregar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles LbAgregar.Click