-- usuarios JM,RM,OI,JP,JC, que se cambie al Asistencia..

LogIn.aspx.vb

@@ -201,6 +201,14 @@ Partial Class LogIn
                 Usuario = Nothing
             End If
 
+            If Usuario IsNot Nothing Then '' consideración especial, para el Grupo Adsistemas
+                If Usuario.CveUsuario.Contiene(2, 93, 1537, 1538, 1360) Then 'JM,RM,OI,JP,JC cambia la cuenta por la de un admin
+                    Dim tUsuario As Usuario = ObjUsuario.GetUsuarioDetalle(100, Usuario.CveEmpresa) 'ObjUsuario.ValidaUsuario(txtUsuario.Text, Encripta(TxtContraseña.Text.Trim), GrupoEmpresa:=tGrupoEmpresa)
+                    tUsuario = ObjUsuario.ValidaUsuario(tUsuario.Usuario, tUsuario.Contraseña, GrupoEmpresa:=tGrupoEmpresa)
+                    If tUsuario IsNot Nothing Then Usuario = tUsuario
+                End If
+            End If
+
             ADSSessionConfig.sessionUser = Usuario
             ADSSessionConfig.sessionDpage = False
             ObjUsuario.Dispose()