MS

app/RecordOrganizer_RightManager/frmCheckRightsEntity.vb

@@ -46,6 +46,7 @@ Public Class frmCheckRightsEntity
         Dim worker As BackgroundWorker = CType(sender, BackgroundWorker)
         _error = False
         Dim i As Integer = 1
+        'Jede Datei einzeln verarbeiten
         For Each row As DataRow In DT_FILES.Rows
             If BW_RightsEntity.CancellationPending = True Then
                 e.Cancel = True
@@ -69,6 +70,7 @@ Public Class frmCheckRightsEntity
             i += 1
             End If
         Next
+        DD_Rights.ClassRights.Finalize_SettingRights()
     End Sub
 
     Private Sub btncancel_Click(sender As Object, e As EventArgs) Handles btncancel.Click
@@ -83,7 +85,8 @@ Public Class frmCheckRightsEntity
             If _error = False Then
                 MsgBox("All rights of files belonging to entity were checked and refreshed successfully!", MsgBoxStyle.Information)
             Else
-                MsgBox("Some errors occured while checking and setting the rights...please check the log!", MsgBoxStyle.Exclamation)
+                MsgBox("Some errors occured while checking and setting the rights...please check the log!" & vbNewLine & ">> " & ClassRights.COUNT_FILES.ToString & " files schould be worked." & _
+                       ">> " & ClassRights.WORKED_FILES.ToString & " were worked successfully.", MsgBoxStyle.Exclamation)
             End If
         Catch ex As Exception