MS_2911

app/RecordOrganizer_RightManager/frmUsersReworkRights.vb

@@ -4,7 +4,7 @@ Imports System.ComponentModel
 Public Class frmUsersReworkRights
     Private _error As Boolean = False
     Private Sub frmCheckRightsEntity_Load(sender As Object, e As EventArgs) Handles Me.Load
-        lblstate.Visible = False
+        'lblstate.Visible = False
         Refresh_Users()
     End Sub
     Sub Refresh_Users()
@@ -55,21 +55,25 @@ Public Class frmUsersReworkRights
                 ''BackgroundWorker erstellen ...
                 BW_RightsEntity = New BackgroundWorker
                 BW_RightsEntity.WorkerReportsProgress = True
-                ProgressBar1.Maximum = Count + 1
-                lblstate.Visible = True
-                lblstate.Text = "Background Worker started...."
+                'ProgressBar1.Maximum = Count + 1
+                'lblstate.Visible = True
+                'lblstate.Text = "Background Worker started...."
                 ProgressPanel1.Description = "Preparing Right-Collector...."
-                Me.ProgressBar1.Visible = True
+                '  Me.ProgressBar1.Visible = True
                 ProgressPanel1.Visible = True
                 btnCheckRights.Enabled = False
                 btncancel.Visible = True
-                AddHandler BW_RightsEntity.DoWork, AddressOf bw_DoWork
-                BW_RightsEntity.ReportProgress(1)
+                System.Threading.Thread.Sleep(500)
+                Application.DoEvents()
+                DO_Work()
+                BW_RightsEntity_RunWorkerCompleted()
+                'AddHandler BW_RightsEntity.DoWork, AddressOf bw_DoWork
+                'BW_RightsEntity.ReportProgress(1)
                 '.. und starten
-                BW_RightsEntity.RunWorkerAsync()
+                'BW_RightsEntity.RunWorkerAsync()
             Catch ex As Exception
                 MsgBox("Unexpected error in starting backgroundworker: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-                Me.ProgressBar1.Visible = False
+                'Me.ProgressBar1.Visible = False
             End Try
         End If
         Me.Cursor = Cursors.Default
@@ -77,7 +81,7 @@ Public Class frmUsersReworkRights
     End Sub
 
     Private Sub BW_RightsEntity_ProgressChanged(sender As Object, e As ProgressChangedEventArgs) Handles BW_RightsEntity.ProgressChanged
-        Me.ProgressBar1.Value = e.ProgressPercentage
+        '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)
@@ -101,17 +105,35 @@ Public Class frmUsersReworkRights
             BW_RightsEntity.ReportProgress(+1)
         Next
     End Sub
+    Sub DO_Work()
 
+        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")
+                Application.DoEvents()
+                ' 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, 240) = False Then
+                    MsgBox("Unexpected Error in Executing rightprocedure - Check the log!", MsgBoxStyle.Critical)
+                    _error = True
+                    Exit For
+                Else
+                    Dim del = String.Format("DELETE FROM TBPMO_USER_RIGHTS_JOBS WHERE USER_ID = {0}", row.Item(5))
+                    ClassDatabase.Execute_non_Query(del)
+                End If
+            End If
+        Next
+    End Sub
     Private Sub btncancel_Click(sender As Object, e As EventArgs) Handles btncancel.Click
         ' Cancel the asynchronous operation.
         Me.BW_RightsEntity.CancelAsync()
     End Sub
 
-    Private Sub BW_RightsEntity_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BW_RightsEntity.RunWorkerCompleted
+    Private Sub BW_RightsEntity_RunWorkerCompleted() '(sender As Object, e As RunWorkerCompletedEventArgs) 'Handles BW_RightsEntity.RunWorkerCompleted
         Try
             btncancel.Visible = False
-            ProgressBar1.Visible = False
-            lblstate.Visible = False
+            'ProgressBar1.Visible = False
+            'lblstate.Visible = False
             btnCheckRights.Enabled = True
             btncancel.Visible = False
             ProgressPanel1.Visible = False
@@ -120,7 +142,7 @@ Public Class frmUsersReworkRights
             Else
                 MsgBox("Some errors occured while checking and transmitting the rights...please check the log!", MsgBoxStyle.Exclamation)
             End If
-         
+
         Catch ex As Exception
             btnCheckRights.Enabled = True
             btncancel.Visible = False