34 lines
944 B
VB.net
34 lines
944 B
VB.net
Public Class ClassParamRefresh
|
|
Public Shared Sub Refresh_Params(DT_CHECKUSER As DataTable)
|
|
FORCE_LAYOUT_OVERVIEW = False
|
|
SHOW_CHARTS = True
|
|
USER_DEBUG_LOG = False
|
|
|
|
|
|
If DT_CHECKUSER.Rows.Count = 1 Then
|
|
USERCOUNT_LOGGED_IN = DT_CHECKUSER.Rows(0).Item("USERCOUNT_LOGGED_IN")
|
|
Try
|
|
WORKING_MODE = DT_CHECKUSER.Rows(0).Item("WORKING_MODE")
|
|
Catch ex As Exception
|
|
WORKING_MODE = ""
|
|
End Try
|
|
|
|
If WORKING_MODE.Contains("PM#FORCE_LAYOUT_OVERVIEW") Then
|
|
FORCE_LAYOUT_OVERVIEW = True
|
|
End If
|
|
|
|
If WORKING_MODE.Contains("PM#NO_CHARTS") Then
|
|
SHOW_CHARTS = False
|
|
End If
|
|
|
|
If WORKING_MODE.Contains("PM#DEBUG_LOG") Then
|
|
USER_DEBUG_LOG = True
|
|
LOGCONFIG.Debug = True
|
|
|
|
End If
|
|
|
|
End If
|
|
|
|
End Sub
|
|
End Class
|