From 433e5c287d007102d8e05d4888f0f9623ed95535 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 20 May 2023 08:34:35 -0700
Subject: [PATCH] - timer Econo

---
 App_Code/ClsPaginas.vb | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 7d3fefb52..1d2313014 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -4311,6 +4311,11 @@ Public Class ClsPaginas
                 '    Response.Redirect("/Sistemas/PopUpSeleccionarEmpresa.aspx")
                 '    'Alert(Request.ServerVariables("URL"))
                 'End If
+                ''codigo temporal
+                If EsProduccion Then
+                    If UsuarioActual.CveEmpresa.Contiene(141, 152, 159, 160, 161, 162, 166) Then System.Threading.Thread.Sleep(750)
+                End If
+
                 Dim i As Integer = Obt_ClavePagina(Request.ServerVariables("URL"))
                 Dim FailURL As String = $"{FormsAuthentication.DefaultUrl}?ADCod={Encripta($"CveModulo={i}")}"
                 'si es <0 la página es  sin restricciones