This commit is contained in:
SchreiberM
2016-10-05 17:00:35 +02:00
parent e16e64a77c
commit fedad4b50d
11 changed files with 124 additions and 48 deletions

View File

@@ -73,7 +73,7 @@ Public Class frmCheckRightsEntity
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.TransferRights2Service(row.Item("DocID"), row.Item("FULL_FILENAME")) Then
If DD_Rights.ClassRights.TransferRights2Service(row.Item("DocID"), row.Item("FULL_FILENAME"), 1) Then
If DD_Rights.ClassRights.MSG_RESULT <> "" Then
righterrors = True
End If