IDB Conform Step1

app/DD_PM_WINDREAM/ClassParamRefresh.vb

@@ -13,19 +13,37 @@
                 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
+            Dim oSplitWorkMode As String() = WORKING_MODE.Split("#")
 
-            If WORKING_MODE.Contains("PM#DEBUG_LOG") Then
-                USER_DEBUG_LOG = True
-                LOGCONFIG.Debug = True
-
-            End If
+            ' 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.StartsWith("PM.IDBCS!") Then
+                    CONNECTION_STRING_IDB = oMode.Replace("PM.IDBCS!", "")
+                    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
+                        End If
+                    End If
+                Else
+                    LOGGER.Info($"Wrong oMode: {oMode}")
+                End If
+            Next
 
         End If