-- cambios en manejo de GlobalDTs

Sistemas/CatSesiones.aspx.vb

@@ -300,30 +300,32 @@ Partial Class Sistemas_CatSesiones
     'Generales
     Private Sub CargaUsuarios()
         'Carga Usuarios
-        Dim ObjUsuarios As New ClsSisUsuarios
-        If ObjUsuarios.GetUsuariosEmpresas(-1) Then
-            Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
-            Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados
-        Else
-            Application("GlobalDTUsuarios") = Nothing
-        End If
+        'Dim ObjUsuarios As New ClsSisUsuarios
+        'If ObjUsuarios.GetUsuariosEmpresas(-1) Then
+        '    Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
+        '    Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados
+        'Else
+        '    Application("GlobalDTUsuarios") = Nothing
+        'End If
+        GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
         GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
         'If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
-        ObjUsuarios.Dispose()
+        'ObjUsuarios.Dispose()
         'Fin Carga Usuarios
     End Sub
 
     Private Sub CargaUsuariosResponsable()
         'Carga Usuarios
-        Dim ObjUsuarios As New ClsSisUsuarios
-        If ObjUsuarios.GetUsuariosEmpresas(-1) Then
-            Alert(ObjUsuarios.DtResultados.Rows.Count.ToString)
-            Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados
-        Else
-            Application("GlobalDTUsuarioResponsable") = Nothing
-        End If
-        ObjUsuarios.Dispose()
-        'Fin Carga Usuarios
+        GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa) = Nothing
+        'Dim ObjUsuarios As New ClsSisUsuarios
+        'If ObjUsuarios.GetUsuariosEmpresas(-1) Then
+        '    Alert(ObjUsuarios.DtResultados.Rows.Count.ToString)
+        '    Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados
+        'Else
+        '    Application("GlobalDTUsuarioResponsable") = Nothing
+        'End If
+        'ObjUsuarios.Dispose()
+        ''Fin Carga Usuarios
     End Sub
 
 

Sistemas/PopUpAddUsuario.aspx.vb

@@ -563,12 +563,14 @@ Partial Class Sistemas_PopUpAddUsuario
         GPS.Dispose()
     End Sub
     Private Sub RecargarGlobalUsuarios()
-        Dim ObjUsuarios As New ClsSisUsuarios
-        If ObjUsuarios.GetUsuariosEmpresas(-1) Then
-            Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
-            Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0")
-        End If
-        ObjUsuarios.Dispose()
+        GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
+        GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
+        'Dim ObjUsuarios As New ClsSisUsuarios
+        'If ObjUsuarios.GetUsuariosEmpresas(-1) Then
+        '    Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
+        '    Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0")
+        'End If
+        'ObjUsuarios.Dispose()
     End Sub
 
 #Region "MANDAR CORREOS"

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

Sistemas/UsuarioDetalle.aspx.vb

@@ -1383,13 +1383,15 @@ Partial Class Sistemas_UsuarioDetalle
 
         'RECARGA GLOBAL ALMACEN
         'If ObjUsuarios.GetAlmacen(-1, UsuarioActual.CveEmpresa) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
-        GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
-
-        'RECARGA GLOBAL EMPRESAS USUARIOS
-        If ObjUsuarios.GetUsuariosEmpresas(-1) Then
-            Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
-            Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0")
-        End If
+        GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
+
+        'RECARGA GLOBAL EMPRESAS USUARIOS
+        GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
+        GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa) = Nothing
+        'If ObjUsuarios.GetUsuariosEmpresas(-1, UsuarioActual.CveEmpresa) Then
+        '    Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
+        '    Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0")
+        'End If
     End Sub
     Private Sub EnviaCorreo()