MS Changes layout Force etc
This commit is contained in:
@@ -182,7 +182,17 @@ Public Class ClassInit
|
||||
USER_RIGHT_FILE_DELETE = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT_FILE_DEL")), False, DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT_FILE_DEL"))
|
||||
USER_DATE_FORMAT = DT_CHECKUSER_MODULE.Rows(0).Item("USER_DATE_FORMAT")
|
||||
USERCOUNT_LOGGED_IN = DT_CHECKUSER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN")
|
||||
Try
|
||||
FORCE_LAYOUT_OVERVIEW = DT_CHECKUSER_MODULE.Rows(0).Item("PM_FORCE_LAYOUT_OVERVIEW")
|
||||
Catch ex As Exception
|
||||
FORCE_LAYOUT_OVERVIEW = False
|
||||
End Try
|
||||
|
||||
Try
|
||||
WORKING_MODE = DT_CHECKUSER_MODULE.Rows(0).Item("WORKING_MODE")
|
||||
Catch ex As Exception
|
||||
WORKING_MODE = ""
|
||||
End Try
|
||||
LOGGER.Debug("User exists....")
|
||||
'Am System anmelden
|
||||
Refresh_Licence()
|
||||
|
||||
Reference in New Issue
Block a user