-- cambios en manejo de GlobalDTs

GPS/UsuariosRastreo.aspx.vb

@@ -51,13 +51,14 @@ Partial Class GPS_UsuariosRastreo
     End Sub
 
     Public Sub CargaGlobal()
-        Dim ObjUsuarios As New ClsSisUsuarios
-        If ObjUsuarios.GetUsuariosEmpresas(-1) Then
-            GlobalDTUsuarios(-1) = ObjUsuarios.DtResultados
-        Else
-            GlobalDTUsuarios() = Nothing
-        End If
-        ObjUsuarios.Dispose()
+        GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
+        'Dim ObjUsuarios As New ClsSisUsuarios
+        'If ObjUsuarios.GetUsuariosEmpresas(-1) Then
+        '    GlobalDTUsuarios(-1) = ObjUsuarios.DtResultados
+        'Else
+        '    GlobalDTUsuarios() = Nothing
+        'End If
+        'ObjUsuarios.Dispose()
     End Sub
 
     Protected Sub GvUsuarios_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvUsuarios.RowDataBound