MS .6 nach WISAG1

app/DD_PM_WINDREAM/ClassParamRefresh.vb

@@ -12,7 +12,11 @@
             Catch ex As Exception
                 WORKING_MODE = ""
             End Try
-
+            Try
+                ADDITIONAL_TITLE = DT_CHECKUSER.Rows(0).Item("ADDITIONAL_TITLE")
+            Catch ex As Exception
+                ADDITIONAL_TITLE = ""
+            End Try
 
             Dim oSplitWorkMode As String() = WORKING_MODE.Split("#")
 
@@ -48,6 +52,9 @@
                     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
                 Else
                     LOGGER.Info($"Wrong oMode: {oMode}")
                 End If