MS Validation Messages, GhostMode Rechte

app/TaskFlow/ClassInit.vb

@@ -284,13 +284,13 @@ Public Class ClassInit
         oStopWatch.Done()
     End Sub
     <STAThread()>
-    Public Sub InitUserLogin(Optional pUSRNAME As String = "")
+    Public Sub InitUserLogin()
         Dim oStopWatch As New RefreshHelper.SW("InitUserLogin")
         Dim oSQL As String
         Try
-            If pUSRNAME <> String.Empty Then
-                LOGGER.Info($"InitUserLogin with GhostUser [{pUSRNAME}]")
-                USER_USERNAME = pUSRNAME
+            If USER_GHOST_MODE_USRNAME <> String.Empty Then
+                LOGGER.Info($"InitUserLogin with GhostUser [{USER_GHOST_MODE_USRNAME}]")
+                USER_USERNAME = USER_GHOST_MODE_USRNAME
             Else
                 USER_USERNAME = Environment.UserName
             End If