Version 2.4.4.1

EnvelopeGenerator.Form/My Project/AssemblyInfo.vb

@@ -11,7 +11,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyCompany("Digital Data")>
 <Assembly: AssemblyProduct("Envelope Generator")>
 <Assembly: AssemblyCopyright("Copyright © 2024")>
-<Assembly: AssemblyTrademark("2.4.4.0")>
+<Assembly: AssemblyTrademark("2.4.4.1")>
 <Assembly: AssemblyCulture("")>
 
 ' Setting ComVisible to false makes the types in this assembly not visible 
@@ -32,5 +32,5 @@ Imports System.Runtime.InteropServices
 ' You can specify all the values or you can default the Build and Revision Numbers 
 ' by using the '*' as shown below:
 ' [assembly: AssemblyVersion("1.0.*")]
-<Assembly: AssemblyVersion("2.4.4.0")>
+<Assembly: AssemblyVersion("2.4.4.1")>
 <Assembly: AssemblyFileVersion("1.0.0.0")>

EnvelopeGenerator.Form/frmSplashScreen.vb

@@ -106,37 +106,41 @@ Public Class frmSplashScreen
     End Sub
 
     Private Sub Worker_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles Worker.RunWorkerCompleted
-        If e.Error IsNot Nothing Then
-            Logger.Error(e.Error)
-            MsgBox("Fehler beim Initialisieren: " & e.Error.Message & vbNewLine & vbNewLine & e.Error.StackTrace, MsgBoxStyle.Critical, Text)
+        Try
+            If e.Error IsNot Nothing Then
+                Throw e.Error
+            End If
+
+            Dim oState As State = DirectCast(e.Result, State)
+
+            Dim oCultureInfo As CultureInfo
+            oCultureInfo = New CultureInfo(oState.User.Language)
+            Thread.CurrentThread.CurrentCulture = oCultureInfo
+            Thread.CurrentThread.CurrentUICulture = oCultureInfo
+            CultureInfo.DefaultThreadCurrentCulture = oCultureInfo
+            CultureInfo.DefaultThreadCurrentUICulture = oCultureInfo
+
+            If oState.User.HasAccess = False Then
+                Throw New ApplicationException("User is not activated for this module. Please contact your administrator. Application will close!")
+            End If
+
+            If Not String.IsNullOrEmpty(oState.DbConfig.ExternalProgramName) Then
+                Text = oState.DbConfig.ExternalProgramName
+            End If
+
+            ' Hide splashscreen
+            Hide()
+
+            Dim oForm As New frmMain(oState)
+            oForm.ShowDialog()
+
+            ' Close this form after frmMain is closed
+            Close()
+        Catch ex As Exception
+            Logger.Error(ex)
+            MsgBox("Fehler beim Initialisieren: " & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, MsgBoxStyle.Critical, Text)
             Application.Exit()
-        End If
-
-        Dim oState As State = DirectCast(e.Result, State)
-
-        Dim oCultureInfo As CultureInfo
-        oCultureInfo = New CultureInfo(oState.user.Language)
-        Thread.CurrentThread.CurrentCulture = oCultureInfo
-        Thread.CurrentThread.CurrentUICulture = oCultureInfo
-        CultureInfo.DefaultThreadCurrentCulture = oCultureInfo
-        CultureInfo.DefaultThreadCurrentUICulture = oCultureInfo
-
-        If oState.User.HasAccess = False Then
-            Throw New ApplicationException("User is not activated for this module. Please contact your administrator. Application will close!")
-        End If
-
-        If Not String.IsNullOrEmpty(oState.DbConfig.ExternalProgramName) Then
-            Text = oState.DbConfig.ExternalProgramName
-        End If
-
-        ' Hide splashscreen
-        Hide()
-
-        Dim oForm As New frmMain(oState)
-        oForm.ShowDialog()
-
-        ' Close this form after frmMain is closed
-        Close()
+        End Try
     End Sub