MS weitere KonfigurationenÜbersicht

app/DD_PM_WINDREAM/ClassInit.vb

@@ -132,10 +132,15 @@ Public Class ClassInit
         oStopWatch.done
     End Sub
     <STAThread()>
-    Public Sub InitUserLogin()
+    Public Sub InitUserLogin(Optional pUSRNAME As String = "")
         Dim oStopWatch As New RefreshHelper.SW("InitUserLogin")
         Try
-            USER_USERNAME = Environment.UserName
+            If pUSRNAME <> String.Empty Then
+                USER_USERNAME = pUSRNAME
+            Else
+                USER_USERNAME = Environment.UserName
+            End If
+
             Try
                 Dim oSQLSW As New RefreshHelper.SW("VWDD_USER_CLIENT")
                 Dim oSQL = $"SELECT * FROM VWDD_USER_CLIENT WHERE UPPER(USERNAME) = UPPER('{USER_USERNAME}')"