LogIn.aspx.vb

@@ -204,8 +204,13 @@ Partial Class LogIn
             ADSSessionConfig.sessionUser = Usuario
             ADSSessionConfig.sessionDpage = False
             ObjUsuario.Dispose()
-
-            If Usuario IsNot Nothing Then
+            Dim isgps = Request.Url.Host.ToUpper().Contains("SIGNALSGPS".ToUpper())
+            If Usuario IsNot Nothing AndAlso (
+                 Usuario.CveRol = 1 OrElse (
+                (isgps AndAlso (Usuario.CvePlataforma = 3 OrElse Usuario.CveRol = 1200)) OrElse
+                ((Not isgps) AndAlso (Usuario.CvePlataforma <> 3 AndAlso Usuario.CveRol <> 1200))
+                )
+                ) Then
                 If Not Usuario.AutorizadoxIP OrElse (HddAdsCodex.Text.Length > 0 AndAlso Usuario.CodigoAutorizado = HddAdsCodex.Text) Then
 
                     CreaObjetoEmpresa(Usuario)
@@ -265,7 +270,6 @@ Partial Class LogIn
             End If
         End If
     End Sub
-
     Private Sub CreaObjetoEmpresa(ByRef UsuarioActual As Usuario)
 
         Dim ObjEmpresa As New ClsSisEmpresas()