16 lines
953 B
VB.net
16 lines
953 B
VB.net
Module ModuleMySettings
|
|
Public USER_IS_ADMIN = False
|
|
Public USERS_LOGGED_IN = 0
|
|
Public USER_GUID = 0
|
|
Public USERID_FK_INT_ECM = 0
|
|
Public USER_LANGUAGE As String = "de-DE"
|
|
Public USER_DATE_FORMAT As String
|
|
Public USER_WAN As Boolean = False
|
|
Public DT_WORK_USER_RIGHTS As DataTable
|
|
Public DT_SUPERVISOR_ENTITY As DataTable
|
|
Public DT_WORK_USER_CONTROL_SUPERVISOR As DataTable
|
|
|
|
Public SQL_USER_RIGHTS_CHANGED = "SELECT T.GUID, T.USER_ID, T.COMMENT + ' - ' + T1.USERNAME AS USER_COMMENT FROM TBPMO_USER_RIGHTS_JOBS T, TBDD_USER T1 WHERE T.USER_ID = T1.GUID AND T.WORKED = 0 AND T.COMMENT IN ('USER DELETED FROM GROUP')"
|
|
Public SQL_USER_RIGHTS_SUPERVISOR_ADDED = "SELECT T.GUID, T.USER_ID, T.COMMENT + ' - ' + T1.USERNAME AS USER_COMMENT, T.ENTITY_ID FROM TBPMO_USER_RIGHTS_JOBS T, TBDD_USER T1 WHERE T.USER_ID = T1.GUID AND T.WORKED = 0 AND T.COMMENT IN('SUPERVISOR ADDED','SUPERVISOR DELETED')"
|
|
End Module
|