2026-05-19 1.1.16 Corrección multiplataforma tsNotificacionesClient

tsNotificacionesClient.vb

@@ -1,12 +1,13 @@
 Imports System.Configuration
+Imports System.Diagnostics
 Imports System.IO
 Imports System.Net
 Imports System.Net.Http
 Imports System.Net.Http.Headers
 Imports System.Net.Http.Json
+Imports System.Runtime.InteropServices
 Imports Microsoft.Extensions.Configuration
 Imports Microsoft.Extensions.Logging
-Imports System.Diagnostics
 
 Public Class TsNotificacionesClient
 
@@ -16,8 +17,11 @@ Public Class TsNotificacionesClient
     Private NotInheritable Class LogProvider
         Private Shared ReadOnly _factory As ILoggerFactory = LoggerFactory.Create(
         Sub(builder)
-                builder.AddConsole()   ' Linux → journald
-                builder.AddEventLog()  ' Windows → Event Viewer
+            builder.AddConsole()   ' Linux → OK
+
+            If OperatingSystem.IsWindows() Then
+                builder.AddEventLog()  ' Solo Windows
+            End If
         End Sub)
 
         Public Shared Function CreateLogger(Of T)() As ILogger(Of T)
@@ -25,6 +29,7 @@ Public Class TsNotificacionesClient
         End Function
     End Class
 
+
     ' ============================================================
     '   CAMPOS DE INSTANCIA
     ' ============================================================
@@ -61,17 +66,10 @@ Public Class TsNotificacionesClient
             Dim apiKey = If(config("TsNotificaciones:ApiKey"), String.Empty)
             Dim nombreServidor = If(config("TsNotificaciones:NombreServidor"), Environment.MachineName)
 
-            Dim EsWindows = OperatingSystem.IsWindows()
 
-            If IncluirMensajeEnLogDelSistema Then
+            If IncluirMensajeEnLogDelSistema AndAlso RuntimeInformation.IsOSPlatform(OSPlatform.Windows) Then
 
-                ' ============================================================
-                '   LOGGING MULTIPLATAFORMA
-                ' ============================================================
-                If EsWindows Then
                 ' --- WINDOWS: Event Viewer ---
-
-
                 Dim ele As EventLogEntryType
                 Select Case Tipo
                     Case TipoNotificacionEnum.INFO
@@ -84,7 +82,7 @@ Public Class TsNotificacionesClient
 
                 EventLog.WriteEntry(".NET Runtime", $"{Aplicacion} {titulo} {descripcion}", ele, 1000)
 
-                Else
+            ElseIf IncluirMensajeEnLogDelSistema Then
                 ' --- LINUX: ILogger → journald ---
                 Select Case Tipo
                     Case TipoNotificacionEnum.INFO
@@ -95,7 +93,6 @@ Public Class TsNotificacionesClient
                         logger.LogError($"{titulo} {descripcion}")
                 End Select
             End If
-            End If
 
             ' ============================================================
             '   LLAMADA A LA API

tsUtilidades.vbproj

@@ -16,11 +16,12 @@
 		<TargetFramework>net8.0</TargetFramework>
 		<PackageId>tsUtilidades</PackageId>
 		<PackageTags>net8.0, libreria</PackageTags>
-		<Version>1.1.15</Version>
+		<Version>1.1.16</Version>
 		<Authors>Manuel</Authors>
 		<Company>Tecnosis S.A</Company>
 		<Description>Utilidades Varias</Description>
 		<PackageReleaseNotes>
+			- 2026-05-19 1.1.16 Corrección multiplataforma tsNotificacionesClient
 			- 2026-05-12 1.1.15 Se corrige tsNotificacionesClient
 			- 2026-04-10 1.1.14 Se corrige tsNotificacionesClient
 			- 2026-04-10 1.1.13 Se corrige tsNotificacionesClient