SignFlow: Bei Initialisierung prüfen, ob es überhaupt ein USER-Object gibt

EnvelopeGenerator.Form/frmSplashScreen.vb

@@ -90,7 +90,9 @@ Public Class frmSplashScreen
         Thread.Sleep(300)
 
         ' This checks for module access and admin rights
-        oUserModel.CheckUserLogin(oUser)
+        If oUser IsNot Nothing Then
+            oUserModel.CheckUserLogin(oUser)
+        End If
 
         Worker.ReportProgress(100, "Starting Application")
         Thread.Sleep(300)
@@ -113,6 +115,10 @@ Public Class frmSplashScreen
 
             Dim oState As State = DirectCast(e.Result, State)
 
+            If oState.User Is Nothing Or oState.UserId = 0 Then
+                Throw New ApplicationException($"User {Environment.UserName} is unknown. Please contact your administrator. Application will close!")
+            End If
+
             Dim oCultureInfo As CultureInfo
             oCultureInfo = New CultureInfo(oState.User.Language)
             Thread.CurrentThread.CurrentCulture = oCultureInfo
@@ -143,7 +149,4 @@ Public Class frmSplashScreen
         End Try
     End Sub
 
-
-
-
 End Class