MS

app/DD_PM_WINDREAM/ClassParamRefresh.vb

@@ -0,0 +1,33 @@
+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