From f8c822a8689ac4547295d7c2f6d0b47e28658f96 Mon Sep 17 00:00:00 2001
From: Developer01 <developer01@didaloghe.onmicrosoft.com>
Date: Thu, 8 May 2025 15:49:54 +0200
Subject: [PATCH] Parameters Refresh

---
 app/TaskFlow/ClassParamRefresh.vb |  8 ++++----
 app/TaskFlow/frmFormDesigner.resx | 14 +++++++-------
 app/TaskFlow/frmValidator.vb      |  9 ++++++++-
 3 files changed, 19 insertions(+), 12 deletions(-)

diff --git a/app/TaskFlow/ClassParamRefresh.vb b/app/TaskFlow/ClassParamRefresh.vb
index 1b1b5b8..152fac5 100644
--- a/app/TaskFlow/ClassParamRefresh.vb
+++ b/app/TaskFlow/ClassParamRefresh.vb
@@ -62,7 +62,7 @@ Public Class ClassParamRefresh
                     LOGGER.Debug($"FORCE_LAYOUT_OVERVIEW [{FORCE_LAYOUT_OVERVIEW}]")
                 ElseIf oMode = "PM.NO_MASS_VALIDATOR" Then
                     SHOW_MASS_VALIDATOR = False
-                    LOGGER.Debug($"SHOW_MASS_VALIDATOR [{SHOW_MASS_VALIDATOR}]")
+                    LOGGER.Info($"SHOW_MASS_VALIDATOR [{SHOW_MASS_VALIDATOR}]")
                 ElseIf oMode = "PM.NO_CHARTS" Then
                     SHOW_CHARTS = False
                     LOGGER.Debug($"SHOW_CHARTS [{SHOW_CHARTS}]")
@@ -79,7 +79,7 @@ Public Class ClassParamRefresh
                     IDB_USES_WMFILESTORE = True
                 ElseIf oMode = "PM.NO_BASICCONF" Then
                     BASIC_CONF_VISIBLE = False
-                    LOGGER.Debug($"BASIC_CONF_VISIBLE [{BASIC_CONF_VISIBLE}]")
+                    LOGGER.Info($"BASIC_CONF_VISIBLE [{BASIC_CONF_VISIBLE}]")
                 ElseIf oMode = "PM.SYS_LOCKED_MAINTENANCE" Then
                     SYS_LOCKED_MAINTENANCE = True
                 ElseIf oMode.StartsWith("PM.IDB_CONID!") Then
@@ -104,13 +104,13 @@ Public Class ClassParamRefresh
                     End If
                 ElseIf oMode = "PM.EXCEL_OVERVIEW" Then
                     EXCEL_OVERVIEW = True
-                    LOGGER.Debug($"EXCEL_OVERVIEW [{EXCEL_OVERVIEW}]")
+                    LOGGER.Info($"EXCEL_OVERVIEW [{EXCEL_OVERVIEW}]")
                 ElseIf oMode = "PM.MONITORING" Then
                     MONITORING_ACTIVE = True
                     LOGGER.Debug($"MONITORING_ACTIVE [{MONITORING_ACTIVE}]")
                 ElseIf oMode = "PM.GHOSTMODE" Then
                     GHOSTMODE_ACTIVE = True
-                    LOGGER.Debug($"GHOSTMODE_ACTIVE [{GHOSTMODE_ACTIVE}]")
+                    LOGGER.Info($"GHOSTMODE_ACTIVE [{GHOSTMODE_ACTIVE}]")
                 ElseIf oMode.StartsWith("PM.COLORSCHEME") Then
                     Dim oColorScheme = oMode.Replace("PM.COLORSCHEME=", "")
                     RIBBON_COLOR_SCHEME = oColorScheme.ToUpper
diff --git a/app/TaskFlow/frmFormDesigner.resx b/app/TaskFlow/frmFormDesigner.resx
index 7852166..3cf4013 100644
--- a/app/TaskFlow/frmFormDesigner.resx
+++ b/app/TaskFlow/frmFormDesigner.resx
@@ -136,7 +136,7 @@
     <value>0, 0</value>
   </data>
   <data name="pnldesigner.Size" type="System.Drawing.Size, System.Drawing">
-    <value>820, 455</value>
+    <value>820, 453</value>
   </data>
   <data name="pnldesigner.TabIndex" type="System.Int32, mscorlib">
     <value>0</value>
@@ -440,7 +440,7 @@
     <value>Control - Breite (+/-)</value>
   </data>
   <data name="RibPGCtrlHeightreal.Text" xml:space="preserve">
-    <value>Control-Höhe (Strg + +/-)</value>
+    <value>Control-Höhe (ctrl &amp; +/-)</value>
   </data>
   <data name="RibbonPage1.Text" xml:space="preserve">
     <value>Start</value>
@@ -449,10 +449,10 @@
     <value>1199, 132</value>
   </data>
   <data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 587</value>
+    <value>0, 585</value>
   </data>
   <data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1199, 22</value>
+    <value>1199, 24</value>
   </data>
   <data name="&gt;&gt;RibbonStatusBar1.Name" xml:space="preserve">
     <value>RibbonStatusBar1</value>
@@ -479,7 +479,7 @@
     <value>3</value>
   </data>
   <data name="pgControlsNew.Size" type="System.Drawing.Size, System.Drawing">
-    <value>375, 455</value>
+    <value>375, 453</value>
   </data>
   <data name="pgControlsNew.TabIndex" type="System.Int32, mscorlib">
     <value>0</value>
@@ -506,7 +506,7 @@
     <value>3, 2, 3, 2</value>
   </data>
   <data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>375, 455</value>
+    <value>375, 453</value>
   </data>
   <data name="Panel1.TabIndex" type="System.Int32, mscorlib">
     <value>23</value>
@@ -536,7 +536,7 @@
     <value>1</value>
   </data>
   <data name="SplitContainerDesigner.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1199, 455</value>
+    <value>1199, 453</value>
   </data>
   <data name="SplitContainerDesigner.SplitterDistance" type="System.Int32, mscorlib">
     <value>820</value>
diff --git a/app/TaskFlow/frmValidator.vb b/app/TaskFlow/frmValidator.vb
index 2663909..9d9ba42 100644
--- a/app/TaskFlow/frmValidator.vb
+++ b/app/TaskFlow/frmValidator.vb
@@ -601,6 +601,7 @@ Public Class frmValidator
             Dim oConID = DT_FILTERED_PROFILE_SEARCHES_DOC.Rows(0).Item("CONN_ID")
             oDocResultCommand = DT_FILTERED_PROFILE_SEARCHES_DOC.Rows(0).Item("SQL_COMMAND")
             oDocResultCommand = clsPatterns.ReplaceAllValues(oDocResultCommand, PanelValidatorControl, True)
+            ValidatorLogger.Debug($"oDocResultCommand is: {oDocResultCommand}")
             oDatatableDocResult = DatabaseFallback.GetDatatableWithConnection(oDocResultCommand, oConID)
 
             Dim oDocResultsExist As Boolean = False
@@ -6178,9 +6179,15 @@ Public Class frmValidator
                 End If
             End If
 
+            ValidatorLogger.Info("Now exporting attached files ...")
             Dim oFileCount As Integer = 1
             If Not IsNothing(DT_AdditionalSearches_Resultset_Docs) Then
-                If DT_AdditionalSearches_Resultset_Docs.Rows.Count > 0 Then
+                If DT_AdditionalSearches_Resultset_Docs.Rows.Count >= 1 Then
+                    ValidatorLogger.Info("Now exporting attached files ...")
+
+                    For Each ocol As DataColumn In DT_AdditionalSearches_Resultset_Docs.Columns
+                        MsgBox("Columnname: " & ocol.Caption)
+                    Next
                     For Each oFileRecord As DataRow In DT_AdditionalSearches_Resultset_Docs.Rows
                         Dim oFromFilename = oFileRecord.Item("FULL_FILENAME")
                         Dim oDocID = oFileRecord.Item("DocID")