From ffd8d2c46026fc215e64e0360063d2cdcc18c85c Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 21 Jun 2025 13:43:20 -0700
Subject: [PATCH] -- codigo para bloquear

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

diff --git a/LogIn.aspx.vb b/LogIn.aspx.vb
index 9668b363a..27f68ba2f 100644
--- a/LogIn.aspx.vb
+++ b/LogIn.aspx.vb
@@ -201,6 +201,12 @@ Partial Class LogIn
                 Usuario = Nothing
             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.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)