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 @@
0, 0
- 820, 455
+ 820, 453
0
@@ -440,7 +440,7 @@
Control - Breite (+/-)
- Control-Höhe (Strg + +/-)
+ Control-Höhe (ctrl & +/-)
Start
@@ -449,10 +449,10 @@
1199, 132
- 0, 587
+ 0, 585
- 1199, 22
+ 1199, 24
RibbonStatusBar1
@@ -479,7 +479,7 @@
3
- 375, 455
+ 375, 453
0
@@ -506,7 +506,7 @@
3, 2, 3, 2
- 375, 455
+ 375, 453
23
@@ -536,7 +536,7 @@
1
- 1199, 455
+ 1199, 453
820
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")