-- cambio en GlobalDT Usuarios

Ventas/Clientes.aspx.vb

@@ -875,7 +875,7 @@ Partial Class Clientes
                 End If
                 'CargaCuentasyConceptos()
 
-                If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso UsuarioActual.TienePermisoProceso(353) Then
                     DVLnkCambiarVendedor.Visible = True
                 End If
 
@@ -6505,11 +6505,12 @@ Partial Class Clientes
     End Sub
 
     Public Sub CargaGlobal()
-        Dim ObjUsuarios As New ClsSisUsuarios
-        If ObjUsuarios.GetUsuariosEmpresas(-1) Then
-            Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
-        End If
-        ObjUsuarios.Dispose()
+        GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
+        'Dim ObjUsuarios As New ClsSisUsuarios
+        'If ObjUsuarios.GetUsuariosEmpresas(-1) Then
+        '    Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
+        'End If
+        'ObjUsuarios.Dispose()
     End Sub
 
     Protected Sub GvUsuarios_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvUsuarios.RowDataBound