Vor Ändeurng LoogUpControl

app/TaskFlow/frmMain.vb

@@ -2266,6 +2266,13 @@ Public Class frmMain
                     Exit Function
                 End If
 
+
+                If oIds.Count > 1000 Then
+                    Dim omsg = String.Format("You chose more than 1000 Workflows. Please select fewer items.", vbNewLine)
+                    FormHelper.ShowInfoMessage(omsg, omsgTitleAttention)
+                    Exit Function
+                End If
+
                 ' ========== DB-OPERATIONEN ==========
                 LOGGER.Debug("Cleaning up queued DocIds..")
                 Dim oDelete = $"DELETE FROM TBPM_VALIDATION_PROFILE_GROUP_USER WHERE UserID = {USER_ID}"
@@ -3432,11 +3439,26 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_G
     End Sub
 
     Private Sub bwBasicData_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles bwBasicData.RunWorkerCompleted
-        If USER_IS_ADMIN Then
-            'bsiDebug.Caption = $"{ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("LicenseCountCaption")}: {USERCOUNT_LOGGED_IN}"
-            bsiDebug.Caption = String.Format(S.Anzahl_Lizenzen___0_, USERCOUNT_LOGGED_IN)
-        End If
-        BarEditItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+        Try
+            If e.Error IsNot Nothing Then
+                LOGGER.Error(e.Error)
+                LOGGER.Warn($"bwBasicData completed with error: {e.Error.Message}")
+            End If
+
+            If USER_IS_ADMIN Then
+                bsiDebug.Caption = String.Format(S.Anzahl_Lizenzen___0_, USERCOUNT_LOGGED_IN)
+            End If
+        Catch ex As Exception
+            LOGGER.Error(ex)
+        Finally
+            BarEditItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+            ' Caption zurücksetzen, falls sie noch auf "busy" steht
+            If bsiMessage.Caption = "bwBasicData is busy - no Refreshing" Then
+                bsiMessage.Caption = ""
+                bsiMessage.ItemAppearance.Normal.BackColor = Color.Transparent
+                bsiMessage.ItemAppearance.Normal.ForeColor = Color.Empty
+            End If
+        End Try
     End Sub
 
     Private Sub bwBasicData_ProgressChanged(sender As Object, e As ProgressChangedEventArgs) Handles bwBasicData.ProgressChanged