MS ZSG
This commit is contained in:
@@ -4,7 +4,8 @@
|
||||
Load_Users_GS()
|
||||
End Sub
|
||||
Sub Load_Users_GS()
|
||||
Dim Sql = String.Format("SELECT * FROM TBDD_USER WHERE MODULE_RECORD_ORG = 1 AND GUID NOT IN (SELECT USER_ID FROM TBPMO_USER_GLOBAL_SEARCH) ORDER BY USERNAME")
|
||||
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")
|
||||
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)
|
||||
|
||||
Reference in New Issue
Block a user