diff --git a/tsNotificacionesClient.vb b/tsNotificacionesClient.vb
index 68f08a1..45398f2 100644
--- a/tsNotificacionesClient.vb
+++ b/tsNotificacionesClient.vb
@@ -43,7 +43,7 @@ Public Class TsNotificacionesClient
' ============================================================
' MÉTODO PRINCIPAL: REGISTRAR NOTIFICACIÓN
' ============================================================
- Public Shared Async Function RegistrarAsync(titulo As String, descripcion As String, TipoNotificacion As TipoNotificacionEnum, Optional Fichero As Byte() = Nothing, Optional IncluirMensajeEnLogDelSistema As Boolean = True) As Task
+ Public Shared Async Function RegistrarAsync(titulo As String, descripcion As String, Tipo As TipoNotificacionEnum, Optional Fichero As Byte() = Nothing, Optional IncluirMensajeEnLogDelSistema As Boolean = True) As Task
Try
Dim logger = LogProvider.CreateLogger(Of TsNotificacionesClient)()
@@ -74,7 +74,7 @@ Public Class TsNotificacionesClient
Dim ele As EventLogEntryType
- Select Case TipoNotificacion
+ Select Case Tipo
Case TipoNotificacionEnum.INFO
ele = EventLogEntryType.Information
Case TipoNotificacionEnum.ADVERTENCIA
@@ -87,7 +87,7 @@ Public Class TsNotificacionesClient
Else
' --- LINUX: ILogger → journald ---
- Select Case TipoNotificacion
+ Select Case Tipo
Case TipoNotificacionEnum.INFO
logger.LogInformation($"{titulo} {descripcion}")
Case TipoNotificacionEnum.ADVERTENCIA
@@ -103,7 +103,7 @@ Public Class TsNotificacionesClient
' ============================================================
Dim http = New HttpClient() With {.BaseAddress = New Uri(apiUrl)}
- Dim Tipo = CInt(TipoNotificacion)
+ Dim tipoNotificacion As Integer = CInt(Tipo)
Dim request = New HttpRequestMessage(HttpMethod.Post, "/api/alertas/registrar")
request.Headers.Add("X-Api-Key", apiKey)
@@ -115,7 +115,7 @@ Public Class TsNotificacionesClient
ipServidor,
titulo,
descripcion,
- Tipo
+ tipoNotificacion
})
Dim response = Await http.SendAsync(request)
diff --git a/tsUtilidades.vbproj b/tsUtilidades.vbproj
index f1b5b2f..61f6d67 100644
--- a/tsUtilidades.vbproj
+++ b/tsUtilidades.vbproj
@@ -16,12 +16,12 @@
net8.0
tsUtilidades
net8.0, libreria
- 1.1.12
+ 1.1.13
Manuel
Tecnosis S.A
Utilidades Varias
- - 2026-04-10 1.1.12 Se corrige tsNotificacionesClient
+ - 2026-04-10 1.1.13 Se corrige tsNotificacionesClient
- 2026-04-28 1.1.11 Se añade log del sistema a tsNotificacionesClient
- 2026-04-10 1.1.10 Se corrige tsNotificacionesClient
- 2026-04-10 1.1.9 Se corrige tsNotificacionesClient