From bbba47da95d30331d96ae95c96f9629cf04dd68a Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 23 May 2025 10:45:35 -0700
Subject: [PATCH] -- usuarios JM,RM,OI,JP,JC, que se cambie al Asistencia..

---
 LogIn.aspx.vb | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/LogIn.aspx.vb b/LogIn.aspx.vb
index 373b95ad4..9668b363a 100644
--- a/LogIn.aspx.vb
+++ b/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()