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

MS

Browse Source
This commit is contained in:
SchreiberM
2020-01-13 10:24:29 +01:00
parent 9ad1fe7709
commit 9582091c6d
4 changed files with 16 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
app/DD-Record-Organizer/ClassRightManagement.vb
View File

@@ -2,14 +2,14 @@
Public Shared Sub Check_Set_Rights(RECORD_ID As Integer, ENTITY_ID As Integer)
Try
Dim sw = New SW("Check_Set_Rights")
RIGHT_EDIT_R = True
RIGHT_ADD_R = True
RIGHT_DELETE_R = True
RIGHT_EDIT_R = False
RIGHT_ADD_R = False
RIGHT_DELETE_R = False
RIGHT_RECORD_AND_FILE_READ_ONLY = False
RIGHT_ADD_DOC = True
RIGHT_ADD_DOC = False
RIGHT_VIEW_DOC = True
RIGHT_DELETE_DOC = True
RIGHT_DELETE_DOC = False
RIGHT_READ_ONLY_DOC = False
' Wenn Rechte pro Record defineirt wurden!!!
If SQL_RECORD_AND_FILE_READ_ONLY <> "" Or SQL_DOC_READ_ONLY <> "" Then