Public Class ClassParamRefresh
    Public Shared Sub Refresh_Params(DT_CHECKUSER As DataTable)
        Dim oStopwatch As New RefreshHelper.SW("Refresh_Params")
        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
            Try
                ADDITIONAL_TITLE = DT_CHECKUSER.Rows(0).Item("ADDITIONAL_TITLE")
                If ADDITIONAL_TITLE = String.Empty Then
                    ADDITIONAL_TITLE = My.Application.Info.ProductName
                End If
            Catch ex As Exception
                ADDITIONAL_TITLE = My.Application.Info.ProductName
            End Try

            Dim oSplitWorkMode As String() = WORKING_MODE.Split("#")

            ' Use For Each loop over words and display them.
            Dim oMode As String
            For Each oMode In oSplitWorkMode
                LOGGER.Debug($"oWorkingMode Parameter: {oMode}")
                If oMode = "PM.FORCE_LAYOUT_OVERVIEW" Then
                    FORCE_LAYOUT_OVERVIEW = True
                ElseIf oMode = "PM.NO_MASS_VALIDATOR" Then
                    SHOW_MASS_VALIDATOR = False
                ElseIf oMode = "PM.NO_CHARTS" Then
                    SHOW_CHARTS = False
                ElseIf oMode = "PM.DEBUG_LOG" Then
                    USER_DEBUG_LOG = True
                    LOGCONFIG.Debug = True
                ElseIf oMode = "PM.IDBWITHWMFS" Then
                    IDB_USES_WMFILESTORE = True
                ElseIf oMode = "PM.NO_BASICCONF" Then
                    BASIC_CONF_VISIBLE = False
                ElseIf oMode.StartsWith("PM.IDB_CONID!") Then
                    Dim CON_ID = oMode.Replace("PM.IDB_CONID!", "")
                    Dim oConString = ClassDatabase.Get_ConnectionString(CON_ID)
                    CONNECTION_STRING_IDB = oConString
                    Dim oSQL = $"SELECT * FROM TBIDB_ATTRIBUTE"
                    Dim oDT As DataTable = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB)
                    If Not IsNothing(oDT) Then
                        If oDT.Rows.Count > 0 Then
                            IDB_ACTIVE = True
                        Else
                            LOGGER.Warn($"Got an IDB-ConnID [{CON_ID}] but check DTAttribute.Row.Count is [{oDT.Rows.Count}]!!")
                        End If
                    Else
                        LOGGER.Warn($"Got an IDB-ConnID [{CON_ID}] but check DT Attribute is Nothing!!")
                    End If
                ElseIf oMode = "PM.MONITORING" Then
                    MONITORING_ACTIVE = True
                ElseIf oMode.StartsWith("PM.COLORSCHEME") Then
                    Dim oColorScheme = oMode.Replace("PM.COLORSCHEME=", "")
                    RIBBON_COLOR_SCHEME = oColorScheme.ToUpper
                ElseIf oMode.StartsWith("PM.NO_DETAIL_PROFILES") Then
                    NO_DETAIL_PROFILES = True
                ElseIf oMode.StartsWith("PM.CONV_IDENTIFICATION") Then
                    Dim oIdent = oMode.Replace("PM.CONV_IDENTIFICATION=", "")
                    CONV_IDENTIFICATION = oIdent
                Else
                    LOGGER.Info($"Wrong oMode: {oMode}")
                End If
            Next

        End If
        oStopwatch.Done()
    End Sub
End Class