This commit is contained in:
2020-05-04 15:19:24 +02:00
parent 61602f42d5
commit 5097c2d595
9 changed files with 109 additions and 172 deletions

View File

@@ -5,7 +5,7 @@
End Sub
Sub Load_Users_GS()
Dim Sql = String.Format("SELECT T.* FROM TBDD_USER T INNER JOIN TBDD_USER_MODULES T1 ON T.GUID = T1.USER_ID INNER JOIN TBDD_MODULES T2 ON T1.MODULE_ID = T2.GUID
WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_USER_GLOBAL_SEARCH) ORDER BY USERNAME ORDER BY T.USERNAME")
WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_USER_GLOBAL_SEARCH) ORDER BY T.USERNAME")
Dim DT_USER = ClassDatabase.Return_Datatable(Sql)
Sql = String.Format("SELECT * FROM TBDD_USER WHERE GUID IN (SELECT USER_ID FROM TBPMO_USER_GLOBAL_SEARCH) ORDER BY USERNAME")
Dim DT_USERS_CONFIGURED = ClassDatabase.Return_Datatable(Sql)