From 1881a63b46140a67357085f6fb9b091875cc8e8a Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Wed, 21 Oct 2020 12:37:04 +0200 Subject: [PATCH] Add machine name to db log --- app/DD_PM_WINDREAM/ApplicationEvents.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/app/DD_PM_WINDREAM/ApplicationEvents.vb b/app/DD_PM_WINDREAM/ApplicationEvents.vb index bfbcb0d..7e8971b 100644 --- a/app/DD_PM_WINDREAM/ApplicationEvents.vb +++ b/app/DD_PM_WINDREAM/ApplicationEvents.vb @@ -19,7 +19,7 @@ Namespace My If USER_DEBUG_LOG = True Then Dim oLogMessage = LOGCONFIG.Logs.Last() Dim oLogSplit As String() = oLogMessage.Split("|") - Dim oDBMessage = PrepareLogMessage(oLogMessage) + Dim oDBMessage = PrepareLogMessage(oLogMessage) & $" [Machinename: {Environment.MachineName}]" Dim oSQL = $"INSERT INTO [dbo].[TBPM_LOG_DEBUG] ([USERID], [LOGMSG], [ADDED_WHEN], DATE_STR) VALUES({USER_ID},'{oDBMessage}',GETDATE(),'{Now}')" ClassDatabase.Execute_non_Query(oSQL)