DAtabase integriert
This commit is contained in:
@@ -35,9 +35,9 @@
|
||||
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)
|
||||
DT_RIGHTS_USER = MYDB_ECM.GetDatatable(sql)
|
||||
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)
|
||||
DT_RIGHTS_GROUP = MYDB_ECM.GetDatatable(sql)
|
||||
End If
|
||||
|
||||
'Definition der Rechte erfolgt über UserGroupstable......wenn gefüllt
|
||||
|
||||
Reference in New Issue
Block a user