Sistemas/SessionesActivas.aspx.vb

@@ -14,9 +14,46 @@ Partial Class SessionesActivas
             ViewState("RCveUsuario") = value
         End Set
     End Property
+
+    ReadOnly Property UsuarioActual() As Usuario
+        Get
+            Try
+                'UsuarioActual = DirectCast(Session("UsuarioSIG"), Usuario)
+                UsuarioActual = CType(Context.Session("UsuarioSIG"), Usuario)
+            Catch ex As Exception
+                Usuario.CerrarSession()
+                Return Nothing
+            End Try
+        End Get
+    End Property
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
+            If Not User.Identity.IsAuthenticated OrElse UsuarioActual Is Nothing Then
 
+                Dim AuthorizeRequest As Boolean = False
+                Dim HuboError = False
+                Dim statusCode = 401
+                AuthorizeRequest = False
+
+                Response.StatusCode = statusCode
+                If Not AuthorizeRequest Then
+                    Usuario.CerrarSession()
+                    Response.End()
+                End If
+            End If
+            If UsuarioActual.CveRol <> 1 Then
+
+                Dim AuthorizeRequest As Boolean = False
+                Dim HuboError = False
+                Dim statusCode = 401
+                AuthorizeRequest = False
+
+                Response.StatusCode = statusCode
+                If Not AuthorizeRequest Then
+                    Usuario.CerrarSession()
+                    Response.End()
+                End If
+            End If
             '         Dim listacve As New List(Of String)
             '         listacve.Add("1815")
             '         Notificaciones.AlertaVentana("notificacion", listacve, timeoutseconds:=0)