From e2f8607592f90cc3565513ec724a42842888ce49 Mon Sep 17 00:00:00 2001
From: Developer01 <developer01@didaloghe.onmicrosoft.com>
Date: Thu, 5 Jun 2025 14:09:27 +0200
Subject: [PATCH] UseAppConfig integriert wie in taskFLOW

---
 Global_Indexer/App.config                      |  7 ++++++-
 Global_Indexer/ClassInit.vb                    |  9 +++++++--
 Global_Indexer/My Project/Settings.Designer.vb | 11 ++++++++++-
 Global_Indexer/My Project/Settings.settings    |  3 +++
 4 files changed, 26 insertions(+), 4 deletions(-)

diff --git a/Global_Indexer/App.config b/Global_Indexer/App.config
index 8b342be..b312fe7 100644
--- a/Global_Indexer/App.config
+++ b/Global_Indexer/App.config
@@ -13,6 +13,9 @@
       <setting name="GDPICTURE_VERSION" serializeAs="String">
         <value>11.2024</value>
       </setting>
+      <setting name="UseAppConfig" serializeAs="String">
+        <value>False</value>
+      </setting>
     </Global_Indexer.My.MySettings>
     <DevExpress.LookAndFeel.Design.AppSettings>
       <setting name="DefaultAppSkin" serializeAs="String">
@@ -63,7 +66,9 @@
     </DevExpress.LookAndFeel.Design.AppSettings>
   </applicationSettings>
   <connectionStrings>
-    <add name="Global_Indexer.My.MySettings.DD_ECMConnectionString" connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd" providerName="System.Data.SqlClient" />
+    <add name="Global_Indexer.My.MySettings.DD_ECMConnectionString"
+      connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd"
+      providerName="System.Data.SqlClient" />
   </connectionStrings>
   <startup>
     <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.2" />
diff --git a/Global_Indexer/ClassInit.vb b/Global_Indexer/ClassInit.vb
index 37742c5..1635a88 100644
--- a/Global_Indexer/ClassInit.vb
+++ b/Global_Indexer/ClassInit.vb
@@ -25,8 +25,13 @@ Public Class ClassInit
         Dim oUtils = New ConfigUtils(LOGCONFIG)
         oUtils.MigrateUserAppDataConfig(Application.UserAppDataPath, Application.ProductName, "fileFLOW")
         oUtils.MigrateCommonAppDataConfig(Application.CommonAppDataPath, Application.ProductName, "fileFLOW")
-
-        CONFIG = New ConfigManager(Of ClassConfig)(LOGCONFIG, Application.UserAppDataPath, Application.CommonAppDataPath, Application.StartupPath)
+        Dim oCommonAppDataPath = Application.CommonAppDataPath
+        Dim oStartupPath = Application.StartupPath
+        If My.Settings.UseAppConfig = True Then
+            LOGGER.Info("Achtung: Anstatt ComputerConfig wird AppConfig benutzt! (UseAppConfig in Appdata)")
+            oCommonAppDataPath = oStartupPath
+        End If
+        CONFIG = New ConfigManager(Of ClassConfig)(LOGCONFIG, Application.UserAppDataPath, oCommonAppDataPath, Application.StartupPath)
 
         LOGCONFIG.Debug = CONFIG.Config.LogDEBUG
         LOGGER.Info("Debug log set to: [{0}]", LOGCONFIG.Debug)
diff --git a/Global_Indexer/My Project/Settings.Designer.vb b/Global_Indexer/My Project/Settings.Designer.vb
index f6fc7ee..55dab50 100644
--- a/Global_Indexer/My Project/Settings.Designer.vb	
+++ b/Global_Indexer/My Project/Settings.Designer.vb	
@@ -15,7 +15,7 @@ Option Explicit On
 Namespace My
     
     <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.9.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.14.0.0"),  _
      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
     Partial Friend NotInheritable Class MySettings
         Inherits Global.System.Configuration.ApplicationSettingsBase
@@ -73,6 +73,15 @@ Namespace My
                 Return CType(Me("GDPICTURE_VERSION"),String)
             End Get
         End Property
+        
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("False")>  _
+        Public ReadOnly Property UseAppConfig() As Boolean
+            Get
+                Return CType(Me("UseAppConfig"),Boolean)
+            End Get
+        End Property
     End Class
 End Namespace
 
diff --git a/Global_Indexer/My Project/Settings.settings b/Global_Indexer/My Project/Settings.settings
index c2daed8..e4e966a 100644
--- a/Global_Indexer/My Project/Settings.settings	
+++ b/Global_Indexer/My Project/Settings.settings	
@@ -13,5 +13,8 @@
     <Setting Name="GDPICTURE_VERSION" Type="System.String" Scope="Application">
       <Value Profile="(Default)">11.2024</Value>
     </Setting>
+    <Setting Name="UseAppConfig" Type="System.Boolean" Scope="Application">
+      <Value Profile="(Default)">False</Value>
+    </Setting>
   </Settings>
 </SettingsFile>
\ No newline at end of file