MS

app/RecordOrganizer_RightManager/frmUsersReworkRights.vb

@@ -58,7 +58,9 @@ Public Class frmUsersReworkRights
                 ProgressBar1.Maximum = Count + 1
                 lblstate.Visible = True
                 lblstate.Text = "Background Worker started...."
+                ProgressPanel1.Description = "Preparing Right-Collector...."
                 Me.ProgressBar1.Visible = True
+                ProgressPanel1.Visible = True
                 btnCheckRights.Enabled = False
                 btncancel.Visible = True
                 AddHandler BW_RightsEntity.DoWork, AddressOf bw_DoWork
@@ -76,6 +78,7 @@ Public Class frmUsersReworkRights
 
     Private Sub BW_RightsEntity_ProgressChanged(sender As Object, e As ProgressChangedEventArgs) Handles BW_RightsEntity.ProgressChanged
         Me.ProgressBar1.Value = e.ProgressPercentage
+        ProgressPanel1.Description = "Collecting rights for user...."
     End Sub
     Private Sub bw_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs)
         Dim worker As BackgroundWorker = CType(sender, BackgroundWorker)
@@ -83,6 +86,7 @@ Public Class frmUsersReworkRights
         Dim i As Integer = 1
         For Each row As DataRow In MyDataset.TBAD_Users.Rows
             If row.Item(0) = CBool(True) Then
+                ' ProgressPanel1.Description = "Collecting rights for user: " & row.Item("USERNAME")
                 Dim proc = String.Format("EXEC PRPMO_RIGHTS_SERVICE_CHECK_USER {0}, '{1}'", row.Item(5), Environment.UserName)
                 If ClassDatabase.Execute_non_Query(proc) = False Then
                     MsgBox("Unexpected Error in Executing rightprocedure - Check the log!", MsgBoxStyle.Critical)
@@ -108,16 +112,19 @@ Public Class frmUsersReworkRights
             btncancel.Visible = False
             ProgressBar1.Visible = False
             lblstate.Visible = False
+            btnCheckRights.Enabled = True
+            btncancel.Visible = False
+            ProgressPanel1.Visible = False
             If _error = False Then
                 MsgBox("All rights of files belonging to User were checked and transmitted to the server!" & vbNewLine & "The setting of the rights might take up to 10 minutes!", MsgBoxStyle.Information)
             Else
                 MsgBox("Some errors occured while checking and transmitting the rights...please check the log!", MsgBoxStyle.Exclamation)
             End If
-            btnCheckRights.Enabled = True
-            btncancel.Visible = False
+         
         Catch ex As Exception
             btnCheckRights.Enabled = True
             btncancel.Visible = False
+            ProgressPanel1.Visible = False
         End Try
     End Sub
 End Class