- 2026-04-10 1.1.12 Se corrige tsNotificacionesClient

2026-04-28 15:28:36 +02:00
parent 4b476081f5
commit a7f2bd5622
2 changed files with 4 additions and 5 deletions
--- a/tsNotificacionesClient.vb
+++ b/tsNotificacionesClient.vb
@@ -71,9 +71,7 @@ Public Class TsNotificacionesClient
                ' ============================================================
                If EsWindows Then
                    ' --- WINDOWS: Event Viewer ---
-                    If Not EventLog.SourceExists(Origen) Then
-                        EventLog.CreateEventSource(Origen, Aplicacion)
-                    End If
+

                    Dim ele As EventLogEntryType
                    Select Case TipoNotificacion
@@ -85,7 +83,7 @@ Public Class TsNotificacionesClient
                            ele = EventLogEntryType.Error
                    End Select

-                    EventLog.WriteEntry(Origen, $"{titulo} {descripcion}", ele)
+                    EventLog.WriteEntry(".NET Runtime", $"{Origen} {Aplicacion} {titulo} {descripcion}", ele, 1000)

                Else
                    ' --- LINUX: ILogger → journald ---