MS Use without WM

App/CONFIG_APP/frmMain.vb

@@ -35,11 +35,14 @@ Public Class frmMain
         Try
             MyLogger = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"), Nothing, My.Application.Info.CompanyName, My.Application.Info.ProductName)
             Logger = MyLogger.GetLogger()
-            MyLogger.Debug = True
+            MyLogger.Debug = My.Settings.DEBUG
             InitDatabase()
             ToolStripProgressBar1.Visible = False
             Logger.Debug($"AppConfig is located at: [{AppDomain.CurrentDomain.SetupInformation.ConfigurationFile}]")
-            _windream = New clsWindream_allgemein(MyLogger)
+            If My.Settings.USE_WM Then
+                _windream = New clsWindream_allgemein(MyLogger)
+            End If
+
             _email = New clsEmail(MyLogger)
             _emailIMAP = New clsEmailIMAP(MyLogger, _SQLServerConString)
         Catch ex As Exception
@@ -53,7 +56,10 @@ Public Class frmMain
             Check_Steps()
             Active_Color()
         End If
-        ObjektTypenEintragen()
+        If My.Settings.USE_WM Then
+            ObjektTypenEintragen()
+        End If
+
         _Encryption = New clsEncryption("!35452didalog=", MyLogger)
     End Sub
     Private Function Set_ConnectionStrings()
@@ -277,7 +283,7 @@ Public Class frmMain
     Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
         If _RunwithLocalemail = False Then
             MyLogger.Debug = True
-            Dim _work As New clsWorker(MyLogger, _SQLServerConString, GUIDTextBox.Text, My.Settings.FB_DATASOURCE, My.Settings.FB_DATABASE, My.Settings.FB_USER, My.Settings.FB_PW)
+            Dim _work As New clsWorker(MyLogger, _SQLServerConString, GUIDTextBox.Text, My.Settings.FB_DATASOURCE, My.Settings.FB_DATABASE, My.Settings.FB_USER, My.Settings.FB_PW, My.Settings.USE_WM)
             _work.Start_WorkingProfiles()
 
         Else
@@ -408,7 +414,10 @@ Public Class frmMain
     End Sub
 
     Private Sub WM_OBJEKTTYPEComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles WM_OBJEKTTYPEComboBox.SelectedIndexChanged
-        Load_Indexdata()
+        If My.Settings.USE_WM Then
+            Load_Indexdata()
+        End If
+
     End Sub
     Sub Load_Indexdata()
         Try
@@ -538,7 +547,10 @@ Public Class frmMain
         Select Case XtraTabControl1.SelectedTabPageIndex
             Case 0
                 Check_Steps()
-                Load_Indexdata()
+                If My.Settings.USE_WM Then
+                    Load_Indexdata()
+                End If
+
             Case 1
                 Check_IndexingSteps()
             Case 2
@@ -547,7 +559,10 @@ Public Class frmMain
     End Sub
 
     Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown
-        Load_Indexdata()
+        If My.Settings.USE_WM Then
+            Load_Indexdata()
+        End If
+
     End Sub
 
     Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
@@ -610,6 +625,8 @@ Public Class frmMain
 
     Private Sub LOG_ERRORS_ONLYCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles LOG_ERRORS_ONLYCheckBox.CheckedChanged
         If _LoadInProgress = True Then Exit Sub
+        MyLogger.Debug = LOG_ERRORS_ONLYCheckBox.Checked
+        My.Settings.Save()
         Dim upd = $"UPDATE TBEMLP_CONFIG SET CHANGED_WHO = '{Environment.UserName}',LOG_ERRORS_ONLY = '{LOG_ERRORS_ONLYCheckBox.Checked}' WHERE GUID = 1"
         _database.Execute_non_Query(upd)
         Load_Config()