ms

app/RecordOrganizer_RightManager/frmCheckRightsEntity.vb

@@ -6,6 +6,7 @@ Public Class frmCheckRightsEntity
     Private _error As Boolean = False
     Private countfiles As Integer = 0
     Private WorkingFiles As Integer = 0
+    Private CURR_DOCID As Integer
     Private ENTITY_ID As Integer
     Private Sub frmCheckRightsEntity_Load(sender As Object, e As EventArgs) Handles Me.Load
         Try
@@ -23,12 +24,16 @@ Public Class frmCheckRightsEntity
     Private Sub btnCheckRights_Click(sender As Object, e As EventArgs) Handles btnCheckRights.Click
         If cmbentity.SelectedIndex <> -1 Then
             Try
+                CURR_DOCID = 0
                 ENTITY_ID = cmbentity.SelectedValue
                 Me.ProgressBar1.Visible = True
                 'BackgroundWorker erstellen ...
                 BW_RightsEntity = New BackgroundWorker
                 BW_RightsEntity.WorkerReportsProgress = True
-                DT_FILES = ClassDatabase.Return_Datatable(String.Format("SELECT * FROM VWPMO_WD_DOC_SEARCH where ENTITY_ID = {0}", ENTITY_ID))
+                BW_RightsEntity.WorkerSupportsCancellation = True
+                Dim MAX_DOC_ID = ClassDatabase.Execute_Scalar("SELECT DOC_ID FROM TBPMO_KONFIGURATION WHERE GUID = 1", False)
+                Dim sqlfiles = String.Format("SELECT * FROM VWPMO_WD_DOC_SEARCH where ENTITY_ID = {0} AND DocID > {1} ORDER BY DocID", ENTITY_ID, MAX_DOC_ID)
+                DT_FILES = ClassDatabase.Return_Datatable(sqlfiles)
                 If DD_Rights.ClassRights.Init(ENTITY_ID, chklogging.Checked, DT_FILES.Rows.Count) = False Then
                     MsgBox("Could not init rights management. " & vbNewLine & "Check logfile", MsgBoxStyle.Critical)
                     Exit Sub
@@ -64,8 +69,9 @@ Public Class frmCheckRightsEntity
                 e.Cancel = True
                 Exit For
             Else
-                If DD_Rights.ClassRights.Collect_Users(row.Item("RECORD_ID")) = True Then
+                If DD_Rights.ClassRights.Collect_Users(row.Item("RECORD_ID"), row.Item("ENTITY_ID")) = True Then
                     WorkingFiles += 1
+                    CURR_DOCID = row.Item("DocID")
                     If DD_Rights.ClassRights.File_DeleteAndSetRight(row.Item("DocID"), row.Item("FULL_FILENAME"), True) Then
                         If DD_Rights.ClassRights.MSG_RESULT <> "" Then
                             MsgBox("Unexpected Errors in setting rights: " & vbNewLine & DD_Rights.ClassRights.MSG_RESULT, MsgBoxStyle.Exclamation)
@@ -87,6 +93,16 @@ Public Class frmCheckRightsEntity
     Private Sub btncancel_Click(sender As Object, e As EventArgs) Handles btncancel.Click
         ' Cancel the asynchronous operation.
         Me.BW_RightsEntity.CancelAsync()
+
+        Dim result As MsgBoxResult
+        result = MessageBox.Show("Would You like to save the DocID for the next run?", "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+        If result = MsgBoxResult.Yes Then
+            ClassDatabase.Execute_non_Query("UPDATE TBPMO_KONFIGURATION SET DOC_ID = " & CURR_DOCID & " WHERE GUID = 1", False)
+        End If
+      
+
+
+
     End Sub
 
     Private Sub BW_RightsEntity_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BW_RightsEntity.RunWorkerCompleted
@@ -100,6 +116,7 @@ Public Class frmCheckRightsEntity
                 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
+            ClassDatabase.Execute_non_Query("UPDATE TBPMO_KONFIGURATION SET DOC_ID = 0 WHERE GUID = 1", False)
         Catch ex As Exception
 
         End Try