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

MS Rework

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-07-20 13:03:41 +02:00
parent 2bdb7d1512
commit b081925128
39 changed files with 2747 additions and 1200 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -40,7 +40,7 @@
DT_RIGHTS_GROUP = ClassDatabase.Return_Datatable(Sql, True)
End If
' Definitiond er REchte erfolgt über UserRightstabel......wenn gefüllt
'Definition der Rechte erfolgt über UserGroupstable......wenn gefüllt
If DT_RIGHTS_GROUP.Rows.Count > 0 And DT_RIGHTS_USER.Rows.Count = 0 Then
For Each row As DataRow In DT_RIGHTS_GROUP.Rows
RIGHT_EDIT_R = CBool(DT_RIGHTS_GROUP.Rows(0).Item(0))
@@ -56,6 +56,7 @@
Next
Else
'Definition der Rechte erfolgt über UserRighttable
If DT_RIGHTS_USER.Rows.Count = 1 Then
RIGHT_EDIT_R = CBool(DT_RIGHTS_USER.Rows(0).Item("EDIT_REC"))
RIGHT_ADD_R = CBool(DT_RIGHTS_USER.Rows(0).Item("ADD_REC"))