--FIX carga global.

--FIX validacion de vigencia sat
2024-08-29 19:22:00 -07:00
parent 0fd4a78a8b
commit 61e1f608f1
2 changed files with 27 additions and 7 deletions
--- a/Planeacion/CatProyectos.aspx.vb
+++ b/Planeacion/CatProyectos.aspx.vb
@@ -83,11 +83,13 @@ Partial Class CatProyectos
    Private Sub RecargaGlobal()

        GlobalDTProyectos(UsuarioActual.CveEmpresa) = Nothing
+        GlobalDTProyectosUsuarios(-1, -1, UsuarioActual.CveEmpresa, -1) = Nothing

    End Sub

    Private Sub CargaSuproyectos()
        GlobalDTSubProyectos(UsuarioActual.CveEmpresa) = Nothing
+        GlobalDTProyectosUsuarios(-1, -1, UsuarioActual.CveEmpresa, -1) = Nothing
        'Dim ObjSubProyectos As New ClsSubProyectos
        'If ObjSubProyectos.GetSubProyectos(UsuarioActual.CveEmpresa) Then