From c6e10363537b5d54a2160e01204a1493c8fc0fa4 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 11 Jan 2024 06:00:49 -0700
Subject: [PATCH] -- option explicit

---
 App_Code/Usuario.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/App_Code/Usuario.vb b/App_Code/Usuario.vb
index a0adb072c..465e618e6 100644
--- a/App_Code/Usuario.vb
+++ b/App_Code/Usuario.vb
@@ -227,12 +227,12 @@ Namespace ADSSession
                         Case OpcionSession.getListasession
                             retorno = _dicSessionobj.Values.ToList()
                         Case OpcionSession.CerrarSession
-                            Dim objlist = _dicSessionobj.Values.ToList()
+                            Dim objlist As List(Of ADSSessionObj) = _dicSessionobj.Values.ToList()
                             For Each user As ADSSession.ADSSessionObj In objlist
                                 If CveUsuario = user.CveUsuario Then 'AndAlso (CveEmpresa = -1 OrElse CveEmpresa = user.CveEmpresa) Then
                                     Dim taspsig As String = user.ASPSIG '"94C6AC57E8599390A4B7B8AB41FEABEF466D9B31120BE06D78110E66265F1ACC5616297BF3B88EDCEE71EBCFE35484308F62C8017EAC29FB3F0FB45CEC09E8F03DFBB4A4DD890D45755B7A30185C6D01F20AEFA74BE3A25FD12D536B20DCB8D9940A3D95"
                                     Dim tsessionID As String = user.SessionID
-                                    Dim url = System.Configuration.ConfigurationManager.AppSettings("urlcerrarSession").ToString()
+                                    Dim url As String = System.Configuration.ConfigurationManager.AppSettings("urlcerrarSession").ToString()
                                     Dim cookie As String = String.Format("ASP.NET_SessionId={0};.ASPXSIG={1}", tsessionID, taspsig)
                                     sendURL(url, cookie)
                                 End If