Personalakte und ComputerAppConfig Fehler

This commit is contained in:
Developer01
2025-06-05 15:36:50 +02:00
parent b4631d8af8
commit 0159fa79c4
18 changed files with 356 additions and 368 deletions

View File

@@ -11,24 +11,29 @@ Public Class ClassInit
Public Sub InitLoggerANDConfig()
Try
Dim oLocalUserAppDataPath As String = Application.LocalUserAppDataPath
LOGCONFIG = New LogConfig(LogConfig.PathType.AppData, oLocalUserAppDataPath & "\Log", Nothing,
LOGCONFIG = New LogConfig(LogConfig.PathType.AppData,
oLocalUserAppDataPath & "\Log", Nothing,
My.Application.Info.CompanyName,
My.Application.Info.ProductName)
LOGGER = LOGCONFIG.GetLogger()
LOGGER.Info("orgFLOW started")
Dim oUserAppDataPath As String = Application.UserAppDataPath
Dim oLegacyAppDataPath As String = Application.UserAppDataPath
Dim oCommonAppDataPath = Application.CommonAppDataPath
LOGGER.Debug($"oCommonAppDataPath: {oCommonAppDataPath}")
Dim oStartupPath = Application.StartupPath
' If AppConfig from Startup Path should be forced, rewrite the common app data path
If My.Settings.UseAppConfigConString = True Then
If My.Settings.UseAppConfig = True Then
oCommonAppDataPath = oStartupPath
LOGGER.Info($"Achtung: Anstatt ComputerConfig wird AppConfig-/Startup-Path ({oCommonAppDataPath}) benutzt! (UseAppConfig in Appdata)")
End If
CONFIG = New ConfigManager(Of ClassConfig)(LOGCONFIG, oUserAppDataPath, oCommonAppDataPath, oStartupPath)
LOGGER.Info("Config loaded")
LOGGER.Debug("Config loaded")
LOGGER.Debug($"oUserAppDataPath: {oUserAppDataPath}")
LOGGER.Debug($"oCommonAppDataPath: {oCommonAppDataPath}")
Try
If CONFIG.Config.ConnectionString <> String.Empty Then
LOGGER.Debug("Connection String loaded")