DLL windream resultHandler Version 2.5

Service.exe 2.1

app/ResultHandler_Konfig/frmMain.vb

@@ -30,11 +30,16 @@ Public Class frmMain
         '        DB_Path()
         '    End If
         'End If
-        MyLogger = New LogConfig(LogConfig.PathType.AppData, Nothing, "Log")
+        MyLogger = New LogConfig(LogConfig.PathType.CustomPath,
+                                       Application.LocalUserAppDataPath & "\Log",
+                                        Nothing,
+                                        My.Application.Info.CompanyName,
+                                        My.Application.Info.ProductName)
+        MyLogger.Debug = True
         Logger = MyLogger.GetLogger()
         Load_Constring()
         _database = New clsDatabase(MyLogger)
-        Logger.Info("Konfig started: " & Now.ToString)
+        Logger.Info("WMKonfig started: " & Now.ToString)
         Try
             ' Windream instanziieren
             _windream = New clsWindream_allgemein(MyLogger)
@@ -502,8 +507,10 @@ Public Class frmMain
                 lblString4.Visible = True
                 STRING3TextBox.Visible = False
                 STRING3TextBox1.Visible = True
-
                 STRING4TextBox.Visible = True
+                STRING5TextBox.Visible = True
+                lblString5.Text = "Benennung Datei:"
+                lblString5.Visible = True
             Case "BNS json Download".ToUpper 'json BNS
                 lblString1.Text = "User Kunde:"
                 STRING1TextBox.Visible = True
@@ -675,7 +682,7 @@ Public Class frmMain
                     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")
+                    'MyLogger.Debug = DT.Rows(0).Item("LOG_ERRORS_ONLY")
                     If DD_WMResulthandler.clsCURRENT.LOG_ERRORS_ONLY = False Then
                         Logger.Debug("Detaillog is ON!")
                     End If
@@ -740,7 +747,7 @@ Public Class frmMain
 
     End Sub
 
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+    Private Sub Button1_Click(sender As Object, e As EventArgs)
         Try
             Process.Start(MyLogger.LogFile)
         Catch ex As Exception
@@ -985,7 +992,8 @@ Public Class frmMain
     End Sub
 
     Private Sub LOG_ERRORS_ONLYCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles LOG_ERRORS_ONLYCheckBox.CheckedChanged
-
+        My.Settings.Debug_Active = LOG_ERRORS_ONLYCheckBox.Checked
+        My.Settings.Save()
     End Sub
 
     Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click