Personalakte und ComputerAppConfig Fehler
This commit is contained in:
@@ -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")
|
||||
|
||||
Reference in New Issue
Block a user