diff --git a/tsNotificacionesClient.vb b/tsNotificacionesClient.vb
index ea3b4d3..bcba859 100644
--- a/tsNotificacionesClient.vb
+++ b/tsNotificacionesClient.vb
@@ -1,8 +1,10 @@
Imports System.Configuration
+Imports System.IO
Imports System.Net
Imports System.Net.Http
Imports System.Net.Http.Headers
Imports System.Net.Http.Json
+Imports Microsoft.Extensions.Configuration
Public Class TsNotificacionesClient
@@ -21,25 +23,26 @@ Public Class TsNotificacionesClient
Try
ServicePointManager.ServerCertificateValidationCallback = Function(s, c, ch, e) True
ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12 Or SecurityProtocolType.Tls11
- Dim baseUrl = ConfigurationManager.AppSettings("TsNotificaciones:ApiUrl")
- Dim idAplicacion = Integer.Parse(ConfigurationManager.AppSettings("TsNotificaciones:IdAplicacion"))
- Dim apiKey = ConfigurationManager.AppSettings("TsNotificaciones:ApiKey")
- Dim http = New HttpClient() With {.BaseAddress = New Uri(baseUrl)}
- Dim NombreServidor = ConfigurationManager.AppSettings("TsNotificaciones:ApiKey")
- If NombreServidor = "" Then NombreServidor = System.Environment.MachineName
- 'Dim json As String = String.Format(
- ' "{{""idAplicacion"":{0},""nombreServidor"":""{1}"",""ipServidor"":""{2}""," &
- ' """titulo"":""{3}"",""stacktrace"":""{4}"",""nivelSeveridad"":{5}}}",
- ' idAplicacion, EscaparJson(Environment.MachineName), ObtenerIp(),
- ' EscaparJson(titulo), EscaparJson(descripcion), CInt(TipoNotificacion))
- 'Await http.PostAsync("/api/alertas/registrar",
- ' New StringContent(json, Encoding.UTF8, "application/json"))
+ 'Dim baseUrl = ConfigurationManager.AppSettings("TsNotificaciones:ApiUrl")
+ 'Dim idAplicacion = Integer.Parse(ConfigurationManager.AppSettings("TsNotificaciones:IdAplicacion"))
+ 'Dim apiKey = ConfigurationManager.AppSettings("TsNotificaciones:ApiKey")
+ 'Dim http = New HttpClient() With {.BaseAddress = New Uri(baseUrl)}
+ 'Dim NombreServidor = ConfigurationManager.AppSettings("TsNotificaciones:ApiKey")
+ 'If NombreServidor = "" Then NombreServidor = System.Environment.MachineName
+
+ Dim config = New ConfigurationBuilder().SetBasePath(Directory.GetCurrentDirectory()).AddJsonFile("appsettings.json", [optional]:=False).Build()
+ Dim apiUrl = If(config("TsNotificaciones:ApiUrl"), "http://localhost:7159")
+ Dim idAplicacion = Integer.Parse(If(config("TsNotificaciones:IdAplicacion"), "1"))
+ Dim apiKey = If(config("TsNotificaciones:ApiKey"), String.Empty)
+ Dim nombreServidor = If(config("TsNotificaciones:NombreServidor"), Environment.MachineName)
+ Dim http = New HttpClient() With {.BaseAddress = New Uri(apiUrl)}
Dim Tipo = CInt(TipoNotificacion)
Dim request = New HttpRequestMessage(HttpMethod.Post, "/api/alertas/registrar")
request.Headers.Add("X-Api-Key", apiKey)
- request.Content = JsonContent.Create(New With {idAplicacion, NombreServidor, ObtenerIp(), titulo, descripcion, Tipo})
+ Dim ipServidor As String = ObtenerIp()
+ request.Content = JsonContent.Create(New With {idAplicacion, nombreServidor, ipServidor, titulo, descripcion, Tipo})
Dim response = Await http.SendAsync(request)
Dim body As System.Text.Json.JsonElement = Await response.Content.ReadFromJsonAsync(Of System.Text.Json.JsonElement)()
Dim id = body.GetProperty("id").GetInt32()
diff --git a/tsUtilidades.vbproj b/tsUtilidades.vbproj
index 1e6bafd..17a21f1 100644
--- a/tsUtilidades.vbproj
+++ b/tsUtilidades.vbproj
@@ -16,11 +16,13 @@
net8.0
tsUtilidades
net8.0, libreria
- 1.1.8
+ 1.1.10
Manuel
Tecnosis S.A
Utilidades Varias
+ - 2026-04-10 1.1.10 Se corrige tsNotificacionesClient
+ - 2026-04-10 1.1.9 Se corrige tsNotificacionesClient
- 2026-04-09 1.1.8 Se añade la clase tsNotificacionesClient
- 2026-04-09 1.1.7 Se añade la clase Excel
- 2026-03-05 1.1.6 Correccion rutina EjeMySqlHex