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

MSKW37

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2017-09-19 12:52:35 +02:00
parent 96c08ada63
commit 3a175d04e5
19 changed files with 3463 additions and 3039 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -31,6 +31,14 @@
End If
End If
Else
If DT_RIGHTS_USER Is Nothing Or DT_RIGHTS_GROUP Is Nothing Then
Dim Sql As String
Sql = String.Format("select * from TBPMO_RIGHT_USER WHERE USER_ID = {0} AND ENTITY_ID = {1}", USER_GUID, ENTITY_ID)
DT_RIGHTS_USER = ClassDatabase.Return_Datatable(Sql, True)
Sql = String.Format("SELECT DISTINCT EDIT_REC,ADD_REC,DELETE_REC,ADD_DOC,VIEW_DOC,DELETE_DOC FROM TBPMO_RIGHT_GROUP WHERE ENTITY_ID = {0} AND GROUP_ID IN (SELECT GROUP_ID FROM TBDD_GROUPS_USER WHERE USER_ID = {1})", ENTITY_ID, USER_GUID)
DT_RIGHTS_GROUP = ClassDatabase.Return_Datatable(Sql, True)
End If
' Definitiond er REchte erfolgt über UserRightstabel......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