MS Changes layout Force etc

This commit is contained in:
2019-10-17 14:18:15 +02:00
parent 38e056ffe7
commit d82eb5cc2a
14 changed files with 792 additions and 342 deletions

View File

@@ -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()