2.8.4 Beta IDB replace Hochkomma bei Delete, Währungskonvertierung

app/TaskFlow/frmMain.vb

@@ -1977,6 +1977,8 @@ Public Class frmMain
         Dim useWaitCursorApplied As Boolean = False
         Dim previousMessage As String = bsiMessage.Caption
         Dim messageApplied As Boolean = False
+        Dim oHandle As Object = Nothing
+        Dim overlayStartedHere As Boolean = False
 
         If LOG_HOTSPOTS Then
             perfStart = DateTime.Now
@@ -1987,6 +1989,14 @@ Public Class frmMain
             CURRENT_ProfilGUID = pProfilID
             WM_AHWF_docPath = String.Empty
 
+            ' ========== OVERLAY ANZEIGEN ==========
+            If Not _overlayActive Then
+                oHandle = SplashScreenManager.ShowOverlayForm(Me)
+                _overlayActive = True
+                overlayStartedHere = True
+            End If
+
+
             ' ========== UI-VORBEREITUNG ==========
             Me.UseWaitCursor = True
             useWaitCursorApplied = True
@@ -2091,6 +2101,13 @@ Public Class frmMain
             MsgBox("Unexpected error in Load_Profil_from_Grid: " & ex.Message & vbNewLine & ADDITIONAL_TITLE & " will try to reload the overview - Please try again!", MsgBoxStyle.Information, ADDITIONAL_TITLE)
             Dim task = Decide_Load(False, True)
         Finally
+            ' ========== OVERLAY SCHLIESSEN (FALLBACK) ==========
+            If overlayStartedHere AndAlso _overlayActive Then
+                SplashScreenManager.CloseOverlayForm(oHandle)
+                LOGGER.Debug("Overlay closed in Load_Profil_from_Grid")
+                _overlayActive = False
+            End If
+
             ' ========== UI AUFRÄUMEN ==========
             If useWaitCursorApplied Then
                 Me.UseWaitCursor = False