AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

last postaback en usuarios

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2020-03-17 18:17:43 -07:00
parent c602c4145f
commit b7256ba33b
4 changed files with 34 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Sistemas/SessionesActivas.aspx.vb
View File

@@ -33,6 +33,8 @@ Partial Class SessionesActivas
Dim dtU As DataTable = objUsuarios.DtResultados
dtU.Columns.Add("FechaSLogin", System.Type.GetType("System.DateTime"))
dtU.Columns.Add("RemoteIpAddres", System.Type.GetType("System.String"))
dtU.Columns.Add("LastPostback", System.Type.GetType("System.DateTime"))
dtU.Columns.Add("Modulo", System.Type.GetType("System.String"))
Dim dtF As DataTable = dtU.Clone
Dim objlist As List(Of ADSSession.ADSSessionObj) = ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.getListasession)
@@ -41,6 +43,8 @@ Partial Class SessionesActivas
If Not IsNothing(row) Then
row("FechaSLogin") = user.FechaLogin
row("RemoteIpAddres") = user.IpAddres
row("LastPostback") = user.LastPostback
row("Modulo") = user.Modulo
dtF.Rows.Add(row.ItemArray())
End If
Next