AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- codigo para bloquear

Browse Source
This commit is contained in:
rrene
2025-06-21 13:43:20 -07:00
parent 1897cae7ad
commit ffd8d2c460
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
LogIn.aspx.vb
View File

@@ -201,6 +201,12 @@ Partial Class LogIn
Usuario = Nothing Usuario = Nothing
End If End If
''código temporal para bloquear accesos a empresas.
'If Usuario IsNot Nothing AndAlso Usuario.CveEmpresa.Contiene(13, 83, 199, 201) Then
' Alert(" this site can't be reached <br/><br/>refused to connect.<br/><br/>ERR_CONNECTION_REFUSED<br/><br/>", TipoMensaje.MsgError)
' Usuario = Nothing
' End If
If Usuario IsNot Nothing Then '' consideración especial, para el Grupo Adsistemas 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 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) Dim tUsuario As Usuario = ObjUsuario.GetUsuarioDetalle(100, Usuario.CveEmpresa) 'ObjUsuario.ValidaUsuario(txtUsuario.Text, Encripta(TxtContraseña.Text.Trim), GrupoEmpresa:=tGrupoEmpresa)