14 lines
565 B
VB.net
14 lines
565 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 SQL_USER_RIGHTS_CHANGED = "SELECT T.GUID,T1.USERNAME + 'Reason: ' + T.COMMENT AS USER_COMMENT FROM TBPMO_USER_RIGHTS_JOBS T, TBDD_USER T1 WHERE T.USER_ID = T1.GUID AND T.WORKED = 0"
|
|
End Module
|