Sistemas/SessionesActivas.aspx

@@ -82,7 +82,7 @@
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Post">
                         <ItemTemplate>
-                            <asp:Literal ID="LtlPost" runat="server" Text='<%# Eval("LastPostback", "{0:dd/MM/yyyy HH:mm}")%>'></asp:Literal>
+                            <asp:Literal ID="LtlPost" runat="server" Text='<%# Eval("LastPostback")%>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField>

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)