-- cambios en manejo de GlobalDTs

2023-02-01 10:55:36 -07:00
parent 438abc98cf
commit 8465bda048
16 changed files with 68 additions and 63 deletions
--- a/Sistemas/PopUpPerfil.aspx.vb
+++ b/Sistemas/PopUpPerfil.aspx.vb
@@ -126,10 +126,11 @@ Partial Class Sistemas_PopUpPerfil
        CargaGlobal()
    End Sub
    Private Sub CargaGlobal()
-        Dim ObjUsuarios As New ClsSisUsuarios
-        If ObjUsuarios.GetUsuariosEmpresas(-1) Then
-            Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
-        End If
-        ObjUsuarios.Dispose()
+        GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
+        'Dim ObjUsuarios As New ClsSisUsuarios
+        'If ObjUsuarios.GetUsuariosEmpresas(-1) Then
+        '    Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
+        'End If
+        'ObjUsuarios.Dispose()
    End Sub
 End Class