DLL windream resultHandler Version 2.5

Service.exe 2.1

app/DDWDResultHandler/DDWDResultHandler.vb

@@ -48,11 +48,10 @@ Public Class DDWDResultHandler
             '        Logger.Warn("Achtung: Es konnte keine Verbindung zur Datenbank '" & My.Settings.SQLSERVER_CS_RH & "' hergestellt werden!")
             '    Else
 
-            If clsCURRENT.LOG_ERRORS_ONLY = False Then
-                MyLogger.Debug = True
-            Else
-                MyLogger.Debug = False
-            End If
+
+            MyLogger.Debug = clsCURRENT.DEBUG
+
+
             oFirstRun = True
             '        '#Thread für Durchlauf generieren
             DDWDResultHandler.threadResultHandler = New BackgroundWorker()
@@ -135,7 +134,7 @@ Public Class DDWDResultHandler
             _database = New clsDatabase(MyLogger)
 
             If My.Settings.SQLSERVER_CS_RH = "" Then
-                Logger.Debug("RESULT HANDLER ConString not configured... No Run")
+                Logger.Warn("RESULT HANDLER ConString not configured... No Run")
                 Exit Sub
             End If
 
@@ -154,10 +153,10 @@ Public Class DDWDResultHandler
                     If DT.Rows.Count = 1 Then
                         clsCURRENT.DT_TBWMRH_KONFIGURATION = DT
                         clsCURRENT.WDLAUFWERK = clsCURRENT.DT_TBWMRH_KONFIGURATION.Rows(0).Item("WD_LAUFWERK")
-                        DD_WMResulthandler.clsCURRENT.LOG_ERRORS_ONLY = DT.Rows(0).Item("LOG_ERRORS_ONLY")
-                        MyLogger.Debug = DT.Rows(0).Item("LOG_ERRORS_ONLY")
-                        If DD_WMResulthandler.clsCURRENT.LOG_ERRORS_ONLY = False Then
-                            Logger.Debug("Detaillog is ON!")
+                        DD_WMResulthandler.clsCURRENT.DEBUG = Not (DT.Rows(0).Item("LOG_ERRORS_ONLY"))
+                        MyLogger.Debug = Not (DT.Rows(0).Item("LOG_ERRORS_ONLY"))
+                        If DD_WMResulthandler.clsCURRENT.DEBUG = True Then
+                            Logger.Info("Detaillog is ON!")
                         End If
                         DD_WMResulthandler.clsCURRENT.WDLAUFWERK = DT.Rows(0).Item("WD_LAUFWERK")
                     End If
@@ -184,7 +183,7 @@ Public Class DDWDResultHandler
                             End If
                         Next
                     Else
-                        Logger.Info("Keine aktiven Profile für WMResulthandler vorhanden")
+                        Logger.Warn("Keine aktiven Profile für WMResulthandler vorhanden")
                         notcompleted = True
                     End If
                     'Try