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

MS Diverses Customizing

Browse Source
This commit is contained in:
Developer01
2024-07-31 11:10:21 +02:00
parent 2039b614c1
commit c15a0ee5a0
36 changed files with 1140 additions and 1612 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
app/DD-Record-Organizer/Classes/ClassRightManagement.vb
View File

@@ -11,9 +11,10 @@
RIGHT_VIEW_DOC = True
RIGHT_DELETE_DOC = False
RIGHT_READ_ONLY_DOC = False
' Wenn Rechte pro Record defineirt wurden!!!
' Wenn Rechte pro Record definiert wurden!!!
If SQL_RECORD_AND_FILE_READ_ONLY <> "" Or SQL_DOC_READ_ONLY <> "" Then
If SQL_RECORD_AND_FILE_READ_ONLY <> "" Then
LOGGER.Debug("ClassRightManagement...SQL_RECORD_AND_FILE_READ_ONLY EXISTING.")
RIGHT_RECORD_AND_FILE_READ_ONLY = ClassHelper.Check_Record_Read_only(RECORD_ID, ENTITY_ID)
If RIGHT_RECORD_AND_FILE_READ_ONLY = True Then
RIGHT_EDIT_R = False
@@ -22,6 +23,7 @@
End If
End If
If SQL_DOC_READ_ONLY <> "" Then
LOGGER.Debug("ClassRightManagement...SQL_DOC_READ_ONLY EXISTING.")
RIGHT_READ_ONLY_DOC = ClassHelper.Check_File_Read_only(RECORD_ID, ENTITY_ID)
If RIGHT_READ_ONLY_DOC = True Then
RIGHT_ADD_DOC = False
@@ -42,6 +44,7 @@
'Definition der Rechte erfolgt über UserGroupstable......wenn gefüllt
If DT_RIGHTS_GROUP.Rows.Count > 0 And DT_RIGHTS_USER.Rows.Count = 0 Then
LOGGER.Debug("ClassRightManagement...DEFINTION FOR DT_RIGHTS_GROUP!")
For Each row As DataRow In DT_RIGHTS_GROUP.Rows
RIGHT_EDIT_R = CBool(DT_RIGHTS_GROUP.Rows(0).Item(0))
RIGHT_ADD_R = CBool(DT_RIGHTS_GROUP.Rows(0).Item(1))
@@ -58,6 +61,7 @@
Else
'Definition der Rechte erfolgt über UserRighttable
If DT_RIGHTS_USER.Rows.Count = 1 Then
LOGGER.Debug("ClassRightManagement...DEFINTION FOR DT_RIGHTS_USER!")
RIGHT_EDIT_R = CBool(DT_RIGHTS_USER.Rows(0).Item("EDIT_REC"))
RIGHT_ADD_R = CBool(DT_RIGHTS_USER.Rows(0).Item("ADD_REC"))
RIGHT_DELETE_R = CBool(DT_RIGHTS_USER.Rows(0).Item("DELETE_REC"))
@@ -66,17 +70,19 @@
RIGHT_VIEW_DOC = CBool(DT_RIGHTS_USER.Rows(0).Item("FILES_VISIBLE"))
RIGHT_DELETE_DOC = CBool(DT_RIGHTS_USER.Rows(0).Item("DELETE_DOC"))
RIGHT_READ_ONLY_DOC = CBool(DT_RIGHTS_USER.Rows(0).Item("READ_ONLY_DOC"))
Else
LOGGER.Info("ClassRightManagement...NO DEFINTION FOR GROUP- OR USER-RIGHT!")
End If
End If
End If
LOGGER.Debug("RIGHT_EDIT_R: " & RIGHT_EDIT_R.ToString)
LOGGER.Debug("RIGHT_ADD_R: " & RIGHT_ADD_R.ToString)
LOGGER.Debug("RIGHT_DELETE_R: " & RIGHT_DELETE_R.ToString)
LOGGER.Debug("RIGHT_ADD_DOC: " & RIGHT_ADD_DOC.ToString)
LOGGER.Debug("RIGHT_VIEW_DOC: " & RIGHT_VIEW_DOC.ToString)
LOGGER.Debug("RIGHT_DELETE_DOC: " & RIGHT_DELETE_DOC.ToString)
LOGGER.Debug("RIGHT_READ_ONLY_DOC: " & RIGHT_READ_ONLY_DOC.ToString)
LOGGER.Debug("ClassRightManagement-RIGHT_EDIT_R: " & RIGHT_EDIT_R.ToString)
LOGGER.Debug("ClassRightManagement-RIGHT_ADD_R: " & RIGHT_ADD_R.ToString)
LOGGER.Debug("ClassRightManagement-RIGHT_DELETE_R: " & RIGHT_DELETE_R.ToString)
LOGGER.Debug("ClassRightManagement-RIGHT_ADD_DOC: " & RIGHT_ADD_DOC.ToString)
LOGGER.Debug("ClassRightManagement-RIGHT_VIEW_DOC: " & RIGHT_VIEW_DOC.ToString)
LOGGER.Debug("ClassRightManagement-RIGHT_DELETE_DOC: " & RIGHT_DELETE_DOC.ToString)
LOGGER.Debug("ClassRightManagement-RIGHT_READ_ONLY_DOC: " & RIGHT_READ_ONLY_DOC.ToString)
sw.Done()
Catch ex As Exception