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