From dd55e2a2d99feca05ffb8166dd0f242c9b9924ab Mon Sep 17 00:00:00 2001 From: pitzm Date: Mon, 12 Feb 2024 10:24:55 +0100 Subject: [PATCH] =?UTF-8?q?SignFlow:=20Bei=20Initialisierung=20pr=C3=BCfen?= =?UTF-8?q?,=20ob=20es=20=C3=BCberhaupt=20ein=20USER-Object=20gibt?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- EnvelopeGenerator.Form/frmSplashScreen.vb | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/EnvelopeGenerator.Form/frmSplashScreen.vb b/EnvelopeGenerator.Form/frmSplashScreen.vb index bfaeb7da..4bdd816b 100644 --- a/EnvelopeGenerator.Form/frmSplashScreen.vb +++ b/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 \ No newline at end of file