MS UserItemsReplace

app/RecordOrganizer_RightManager/frmCheckRightsEntity.vb

@@ -9,6 +9,7 @@ Public Class frmCheckRightsEntity
     Private CURR_DOCID As Integer
     Private CURR_DOCPATH As String
     Private ENTITY_ID As Integer
+    Private OverrideCount As Integer
     Dim righterrors As Boolean = False
     Private Sub frmCheckRightsEntity_Load(sender As Object, e As EventArgs) Handles Me.Load
         Try
@@ -26,6 +27,11 @@ Public Class frmCheckRightsEntity
     Private Sub btnCheckRights_Click(sender As Object, e As EventArgs) Handles btnCheckRights.Click
         If cmbentity.SelectedIndex <> -1 Then
             Try
+                If txtOverride.Text <> "" Then
+                    OverrideCount = CInt(txtOverride.Text)
+                Else
+                    OverrideCount = 0
+                End If
                 righterrors = False
                 CURR_DOCID = 0
                 ENTITY_ID = cmbentity.SelectedValue
@@ -34,8 +40,12 @@ Public Class frmCheckRightsEntity
                 BW_RightsEntity = New BackgroundWorker
                 BW_RightsEntity.WorkerReportsProgress = True
                 BW_RightsEntity.WorkerSupportsCancellation = True
-                Dim sqlfiles = String.Format("SELECT T.DocID,T.FULL_FILENAME,TRL.RECORD_ID,TR.FORM_ID AS [ENTITY_ID] FROM VWPMO_DOC_SEARCH T, TBPMO_DOC_RECORD_LINK TRL, TBPMO_RECORD TR where T.DocID = TRL.DOC_ID AND TRL.RECORD_ID = TR.GUID AND TR.FORM_ID = {0} ORDER BY DocID", ENTITY_ID)
-                DT_FILES = clsDatabase.Return_Datatable(sqlfiles)
+                Dim oSQL = $"SELECT TRL.DOC_ID AS DocID
+,'' as FULL_FILENAME --, [dbo].[FNPMO_GET_WINDREAM_FILE_PATH] (TRL.DOC_ID) as FULL_FILENAME,
+,TRL.RECORD_ID,TR.FORM_ID AS [ENTITY_ID] 
+FROM TBPMO_DOC_RECORD_LINK TRL, TBPMO_RECORD TR where TRL.RECORD_ID = TR.GUID AND TR.FORM_ID = {ENTITY_ID} ORDER BY DocID"
+                ' Dim sqlfiles = String.Format("SELECT T.DocID,T.FULL_FILENAME,TRL.RECORD_ID,TR.FORM_ID AS [ENTITY_ID] FROM VWPMO_DOC_SEARCH T, TBPMO_DOC_RECORD_LINK TRL, TBPMO_RECORD TR where T.DocID = TRL.DOC_ID AND TRL.RECORD_ID = TR.GUID AND TR.FORM_ID = {0} ORDER BY DocID", ENTITY_ID)
+                DT_FILES = clsDatabase.Return_Datatable(oSQL)
                 If DD_Rights.ClassWDRights.Init(chklogging.Checked, ClassDatabase.ConnectionStringRM) = False Then
                     MsgBox("Could not init rights management. " & vbNewLine & "Check logfile", MsgBoxStyle.Critical)
                     Exit Sub
@@ -73,6 +83,13 @@ Public Class frmCheckRightsEntity
         Dim i As Integer = 1
         'Jede Datei einzeln verarbeiten
         For Each row As DataRow In DT_FILES.Rows
+            If OverrideCount <> 0 Then
+                If WorkingFiles < OverrideCount Then
+                    WorkingFiles += 1
+                    i += 1
+                    Continue For
+                End If
+            End If
             If BW_RightsEntity.CancellationPending = True Then
                 MsgBox("Backgroundworker aborting - check log!", MsgBoxStyle.Critical)
                 e.Cancel = True
@@ -82,6 +99,10 @@ Public Class frmCheckRightsEntity
                 WorkingFiles += 1
                 CURR_DOCID = row.Item("DocID")
                 CURR_DOCPATH = row.Item("FULL_FILENAME")
+                If CURR_DOCPATH = String.Empty Then
+                    Dim oSQL = $"SELECT [dbo].[FNPMO_GET_WINDREAM_FILE_PATH] ({CURR_DOCID})"
+                    CURR_DOCPATH = clsDatabase.Execute_Scalar(oSQL)
+                End If
                 If DD_Rights.ClassWDRights.Doc_Renew_Rights(CURR_DOCID, CURR_DOCPATH, True) Then
                     If DD_Rights.ClassWDRights.MSG_RESULT <> "" Then
                         righterrors = True