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