Merge branch 'master' of http://192.168.10.111:8383/SIG

Sistemas/UsuarioDetalle.aspx.vb

@@ -4772,6 +4772,55 @@ Partial Class Sistemas_UsuarioDetalle
     End Sub
     Protected Sub BtnCerrarSession_Click(sender As Object, e As EventArgs)
 
-        ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CerrarSession, CveUsuario:=CveUsuario)
-    End Sub
+        'ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CerrarSession, CveUsuario:=CveUsuario)
+        Dim objlist As List(Of ADSSession.ADSSessionObj) = DirectCast(ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.getListasession, CveUsuario:=CveUsuario), List(Of ADSSession.ADSSessionObj))
+
+        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 cookie As String = String.Format("ASP.NET_SessionId={0};.ASPXSIG={1}", tsessionID, taspsig)
+                sendURL(url, cookie)
+            End If
+        Next
+        Alert("Sessión Cerrada")
+    End Sub
+
+    Private Shared Function sendURL(ByVal URL As String, ByVal Optional Cookie As String = "", ByVal Optional maxTimeMilliseconds As Integer = 120000) As String
+        Dim resultado As String = ""
+
+        Try
+
+            Dim request As Net.HttpWebRequest = CType(Net.HttpWebRequest.Create(URL), Net.HttpWebRequest)
+            request.Timeout = maxTimeMilliseconds
+            request.Method = "POST"
+            request.ContentType = "text/xml; charset=utf-8"
+
+            If Not String.IsNullOrEmpty(Cookie) Then
+                request.Headers.Add("Cookie", Cookie)
+            End If
+
+            Using stream As IO.Stream = request.GetRequestStream()
+
+                Using stmw As IO.StreamWriter = New IO.StreamWriter(stream)
+                    stmw.Write("")
+                End Using
+            End Using
+
+            Using response As Net.WebResponse = CType(request.GetResponse(), Net.WebResponse)
+                Using sr As IO.StreamReader = New IO.StreamReader(response.GetResponseStream())
+
+                    resultado = sr.ReadToEnd()
+                    sr.Close()
+                End Using
+
+            End Using
+            request = Nothing
+        Catch ex As Exception
+            'Extenciones.ApplicationParameter.GuardaLogEx(ex, $"SOAPAction : {SOAPAction} XML : {xml}")
+        End Try
+
+        Return resultado
+    End Function
 End Class