AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS

Browse Source
This commit is contained in:
SchreiberM
2016-08-25 17:08:41 +02:00
parent c02e5e235c
commit 23612edc88
12 changed files with 2303 additions and 3120 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
app/RecordOrganizer_RightManager/frmSupervisorEntity.vb
View File

@@ -131,14 +131,14 @@ Public Class frmSupervisorEntity
MsgBox("Unexpected Errors in setting rights: " & vbNewLine & DD_Rights.ClassRights.MSG_RESULT, MsgBoxStyle.Exclamation)
_error = True
Else
If DD_Rights.ClassRights.Collect_MainUsers(row.Item("ENTITY_ID"), USER_ID, row.Item("RECORD_ID")) Then
If ClassRights.DT_USER_RIGHTS.Rows.Count > 0 Then
If DD_Rights.ClassRights.Collect_MainUsers(row.Item("ENTITY_ID"), USER_ID, row.Item("RECORD_ID"), True) Then
If ClassRights.DT_USER_RIGHT.Rows.Count > 0 Then
clsLogger.Add(">> User owns rights for File/Record - right will be set!", False)
If ClassRights.File_DeleteAndSetRight(row.Item("DocID"), row.Item("FULL_FILENAME"), False) Then
End If
End If
End If
End If
Else