usuarios(cerrar session, macaddres), se corrrigio doble click en login, actualizacion signalR

Sistemas/UsuarioDetalle.aspx.vb

@@ -546,6 +546,9 @@ Partial Class Sistemas_UsuarioDetalle
                 DdlRol.SelectedValue = ObjUsuario.CveRol.ToString
                 TxtCorreo.Text = ObjUsuario.Correo
 
+
+                Dim autoip As String = ObjUsuario.DtResultados.Rows(0)("AutorizadoxIP").ToString().ToUpper()
+                'chkSessionxEquipo.Checked = (autoip = "1" OrElse autoip = "TRUE")
                 'DdlSupervisa.SelectedValue = ObjUsuario.CveSupervisa.ToString
                 'DdlAutoriza.SelectedValue = ObjUsuario.CveAutoriza.ToString
 
@@ -586,6 +589,7 @@ Partial Class Sistemas_UsuarioDetalle
 
     End Sub
     Public Sub CargaDatosAsignadosAUsuario()
+
         If CveUsuario < 0 Then Exit Sub
 
         If DtAsignacionesMultiEmpresa IsNot Nothing AndAlso DtAsignacionesMultiEmpresa.FiltraParametros(String.Format("CveEmpresa = {0}", DdlEmpresaAsignaciones.SelectedValue.ToEntero)).Rows.Count > 0 Then
@@ -1098,7 +1102,7 @@ Partial Class Sistemas_UsuarioDetalle
                 End If
             Next
         End If
-
+        ObjUsuarios.UsuariosRestriccioneXMacUpdate(CveUsuario)
         'CLONAR USUARIO
         If Not TieneError Then
             If EsNuevoUsuario Then
@@ -4750,4 +4754,18 @@ Partial Class Sistemas_UsuarioDetalle
 
 #End Region
 
+    Protected Sub LnkAutorizarEquipo_Click(sender As Object, e As EventArgs)
+        'CveUsuario
+        Dim AdsCodex As String = Encripta(String.Format("{0}_{1}_{2}", CveUsuario, DateTime.Now.Ticks, UsuarioActual.CveUsuario))
+        Using objuser As New ClsSisUsuarios()
+            If objuser.UsuariosGetTokenXEquipo(CveUsuario, UsuarioActual.CveUsuario, AdsCodex) Then
+                RegistraScript(String.Format("localStorage.setItem('AdsCodex', '{0}');", AdsCodex), "adstokenx")
+            End If
+        End Using
+        Alert("El usuario se ha autorizado en el equipo")
+    End Sub
+    Protected Sub BtnCerrarSession_Click(sender As Object, e As EventArgs)
+
+        ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CerrarSession, CveUsuario:=CveUsuario)
+    End Sub
 End Class