-- option strict on

This commit is contained in:
2023-08-25 07:35:45 -07:00
parent 7789b60482
commit 6ac06a9649
21 changed files with 76 additions and 76 deletions

View File

@@ -74,7 +74,7 @@ Partial Class SessionesActivas
dtU.Columns.Add("Modulo", System.Type.GetType("System.String"))
dtU.Columns.Add("SessionID", System.Type.GetType("System.String"))
Dim dtF As DataTable = dtU.Clone
Dim objlist As List(Of ADSSession.ADSSessionObj) = ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.getListasession)
Dim objlist As List(Of ADSSession.ADSSessionObj) = CType(ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.getListasession), List(Of ADSSession.ADSSessionObj))
For Each user As ADSSession.ADSSessionObj In objlist
Dim row As DataRow = dtU.FiltroPrimero($"CveUsuario={user.CveUsuario} AND CveEmpresa={user.CveEmpresa}")