From ac715d5378d3508c14eeedfddda4090ce7baf666 Mon Sep 17 00:00:00 2001 From: rrene Date: Sun, 2 Jul 2023 08:49:32 -0700 Subject: [PATCH] =?UTF-8?q?--=20activaci=C3=B3n=20para=20entre=20a=20la=20?= =?UTF-8?q?emrpesa=20seg=C3=BAn=20el=20dominio=20emd,econo,jam,citrus,kino?= =?UTF-8?q?,vsh,alatel,server,emd?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- LogIn.aspx.vb | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/LogIn.aspx.vb b/LogIn.aspx.vb index e997b3393..f3fbc92b5 100644 --- a/LogIn.aspx.vb +++ b/LogIn.aspx.vb @@ -223,6 +223,20 @@ Partial Class LogIn If Usuario IsNot Nothing Then If Not Usuario.AutorizadoxIP OrElse (HddAdsCodex.Text.Length > 0 AndAlso Usuario.CodigoAutorizado = HddAdsCodex.Text) Then + If Usuario.CveRol = 1 Then + Dim tcveEmpresa As Integer = Usuario.CveEmpresa + If Request.Url.Host.ToUpper().Contains("BDH".ToUpper()) Then tcveEmpresa = 140 + If Request.Url.Host.ToUpper().Contains("ECONOLLANTAS".ToUpper()) Then tcveEmpresa = 141 + If Request.Url.Host.ToUpper().Contains("JAM".ToUpper()) Then tcveEmpresa = 119 + If Request.Url.Host.ToUpper().Contains("CITRUS".ToUpper()) Then tcveEmpresa = 172 + If Request.Url.Host.ToUpper().Contains("KINO".ToUpper()) Then tcveEmpresa = 173 + If Request.Url.Host.ToUpper().Contains("VSH".ToUpper()) Then tcveEmpresa = 7 + If Request.Url.Host.ToUpper().Contains("AJAM".ToUpper()) Then tcveEmpresa = 158 + If Request.Url.Host.ToUpper().Contains("ALATEL".ToUpper()) Then tcveEmpresa = 183 + If Request.Url.Host.ToUpper().Contains("SERVEC".ToUpper()) Then tcveEmpresa = 153 + If Request.Url.Host.ToUpper().Contains("EMD".ToUpper()) Then tcveEmpresa = 13 + Usuario.CveEmpresa = tcveEmpresa + End If CreaObjetoEmpresa(Usuario) ADSSessionConfig.sessionUser.MultipleEmpresa = True