AppStd/EnvelopeGenerator
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
PitzM 2024-02-12 10:24:55 +01:00
parent 02a197e535
commit dd55e2a2d9
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
EnvelopeGenerator.Form/frmSplashScreen.vb
View File

@ -90,7 +90,9 @@ Public Class frmSplashScreen
Thread.Sleep(300) Thread.Sleep(300)
' This checks for module access and admin rights ' This checks for module access and admin rights
If oUser IsNot Nothing Then
oUserModel.CheckUserLogin(oUser) oUserModel.CheckUserLogin(oUser)
End If
Worker.ReportProgress(100, "Starting Application") Worker.ReportProgress(100, "Starting Application")
Thread.Sleep(300) Thread.Sleep(300)
@ -113,6 +115,10 @@ Public Class frmSplashScreen
Dim oState As State = DirectCast(e.Result, State) 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 Dim oCultureInfo As CultureInfo
oCultureInfo = New CultureInfo(oState.User.Language) oCultureInfo = New CultureInfo(oState.User.Language)
Thread.CurrentThread.CurrentCulture = oCultureInfo Thread.CurrentThread.CurrentCulture = oCultureInfo
@ -143,7 +149,4 @@ Public Class frmSplashScreen
End Try End Try
End Sub End Sub
End Class End Class