- timer Econo

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