Version 2.3.7.13

SQL Connection cleanup
reorganize form designer & final index properties
2022-08-09 15:19:31 +02:00 · 2022-08-09 15:18:47 +02:00 · 2022-08-09 10:32:48 +02:00 · 2022-07-27 09:31:44 +02:00
17 changed files with 294 additions and 216 deletions
--- a/app/DD_PM_WINDREAM/ClassConstants.vb
+++ b/app/DD_PM_WINDREAM/ClassConstants.vb
@@ -2,4 +2,11 @@
    Public Const OpModeFS_PWM = "PURE_WM"
    Public Const OpModeFS_IDBWM = "IDB_WM"
    Public Const OpModeFS_ZF = "ZOOFLOW"
+
+    Public Const CAT_INFORMATION = "Information"
+    Public Const CAT_GENERAL = "Allgemein"
+    Public Const CAT_DISPLAY = "Anzeige"
+    Public Const CAT_BEHAVIOUR = "Verhalten"
+    Public Const CAT_DATA = "Daten"
+    Public Const CAT_VALIDATION = "Validierung"
 End Class
--- a/app/DD_PM_WINDREAM/ClassInit.vb
+++ b/app/DD_PM_WINDREAM/ClassInit.vb
@@ -117,21 +117,14 @@ Public Class ClassInit
            INDEX_DMS_ERSTELLT = CONFIG.Config.IndexDmsErstellt
            INDEX_DMS_ERSTELLT_ZEIT = CONFIG.Config.IndexDmsErstelltZeit

-            USER_MANAGER_PATH = CONFIG.Config.UserManagerPath
-
            USER_CONFIG_DEBUG = CONFIG.Config.DEBUG
            If USER_CONFIG_DEBUG = True Then
                DEBUG = True
                LOGCONFIG.Debug = True
            End If
-
-            TEST_MODE = CONFIG.Config.TestMode
        Catch ex As Exception
            LOGGER.Error(ex)
        End Try
-
-
-        'Settings_Load()
    End Sub

    Private Function DecryptConnectionString(EncryptedConnectionString As String) As String
--- a/app/DD_PM_WINDREAM/ClassRefreshHelper.vb
+++ b/app/DD_PM_WINDREAM/ClassRefreshHelper.vb
@@ -64,6 +64,11 @@ Public Class RefreshHelper
    Private Function FindParentRowHandle(pRowInfo As RowInfo, oRowHandle As Integer) As Integer
        Dim oParentRowHandle As Integer = _View.GetParentRowHandle(oRowHandle)

+        ' Fixes endless loop when parent row handle is below zero
+        If oParentRowHandle < 0 Then
+            Return oParentRowHandle
+        End If
+
        Do While _View.GetRowLevel(oParentRowHandle) <> pRowInfo.Level
            oParentRowHandle = _View.GetParentRowHandle(oParentRowHandle)
        Loop
--- a/app/DD_PM_WINDREAM/ClassSQLEditor.vb
+++ b/app/DD_PM_WINDREAM/ClassSQLEditor.vb
@@ -12,22 +12,27 @@ Public Class ClassSQLEditor
    End Function

    Public Overrides Function EditValue(context As ITypeDescriptorContext, provider As IServiceProvider, value As Object) As Object
-        Dim svc As IWindowsFormsEditorService = TryCast(provider.GetService(GetType(IWindowsFormsEditorService)), IWindowsFormsEditorService)
-        Dim SQLSTring As String = DirectCast(value, SQLValue).Value
+        Dim oService As IWindowsFormsEditorService = TryCast(provider.GetService(GetType(IWindowsFormsEditorService)), IWindowsFormsEditorService)

-        If svc IsNot Nothing AndAlso SQLSTring IsNot Nothing Then
+        Dim oValueObject = DirectCast(value, SQLValue)
+        Dim oSQLString As String = oValueObject.Value
+        Dim oSQLConnection As Integer = oValueObject.ConnectionId
+
+        If oService IsNot Nothing AndAlso oSQLString IsNot Nothing Then
            'CURRENT_DESIGN_TYPE = "INPUT_INDEX"
            Using oForm As New frmSQLEditor(LOGCONFIG, DatabaseECM)
-                oForm.SQLCommand = SQLSTring
+                oForm.SQLCommand = oSQLString
+                oForm.SQLConnection = oSQLConnection

                oForm.PlaceholdersManualPrefix = "CTRL"
                oForm.PlaceholdersManualTitle = "Controls"
-                oForm.PlaceholdersManual = CURRENT_CONTROL_NAME_LIST.ToDictionary(Function(name) name, Function(name) name)
+                oForm.PlaceholdersManual = CURRENT_CONTROL_NAME_LIST.
+                    ToDictionary(Function(name) name, Function(name) name)

-                If svc.ShowDialog(oForm) = DialogResult.OK Then
-                    Dim sql As New SQLValue(oForm.SQLCommand)
-                    CURRENT_SQL_CON = oForm.SQLConnection
-                    CURRENT_CONN_ID = oForm.SQLConnection
+                If oService.ShowDialog(oForm) = DialogResult.OK Then
+                    Dim sql As New SQLValue(oForm.SQLCommand, oForm.SQLConnection)
+                    ' CURRENT_CONN_ID_FINAL_INDEX = oForm.SQLConnection
+                    ' CURRENT_CONN_ID = oForm.SQLConnection
                    value = sql
                End If
            End Using
--- a/app/DD_PM_WINDREAM/ClassSQLValue.vb
+++ b/app/DD_PM_WINDREAM/ClassSQLValue.vb
@@ -7,12 +7,18 @@ Imports System.Drawing.Design
 <TypeConverter(GetType(SQLTypeConverter))>
 Public Class SQLValue
    Public Property Value As String
+    Public Property ConnectionId As Integer

    Public Sub New()
-        Me.Value = ""
+        Value = ""
    End Sub

    Public Sub New(value As String)
        Me.Value = value
    End Sub
+
+    Public Sub New(pValue As String, pConnectionId As Integer)
+        Value = pValue
+        ConnectionId = pConnectionId
+    End Sub
 End Class
--- a/app/DD_PM_WINDREAM/ModuleControlProperties.vb
+++ b/app/DD_PM_WINDREAM/ModuleControlProperties.vb
@@ -5,6 +5,7 @@ Imports System.Globalization
 Imports DigitalData.Modules.Language.Utils

 Public Module ModuleControlProperties
+
    Public Enum IndexTypes
        SimpleIndex = 0
        VectorIndex = 1
@@ -14,27 +15,28 @@ Public Module ModuleControlProperties
        Private _size As Size
        Private _font As Font

-
-        <Category("Allgemein")>
+        <DisplayName("Changed At")>
+        <Category(ClassConstants.CAT_INFORMATION)>
        <[ReadOnly](True)>
        Public Property ChangedAt As Date

-        <Category("Allgemein")>
+        <DisplayName("Changed Who")>
+        <Category(ClassConstants.CAT_INFORMATION)>
        <[ReadOnly](True)>
        Public Property ChangedWho As String

-        <Category("Allgemein")>
+        <Category(ClassConstants.CAT_GENERAL)>
        <[ReadOnly](True)>
        Public Property ID() As Integer

-        <Category("Allgemein")>
+        <Category(ClassConstants.CAT_GENERAL)>
        Public Property Name() As String


-        <Category("Anzeige")>
+        <Category(ClassConstants.CAT_DISPLAY)>
        Public Property Location() As Point

-        <Category("Anzeige")>
+        <Category(ClassConstants.CAT_DISPLAY)>
        Public Property Size() As Size
            Get
                Return _size
@@ -52,7 +54,7 @@ Public Module ModuleControlProperties
            End Set
        End Property

-        <Category("Anzeige")>
+        <Category(ClassConstants.CAT_DISPLAY)>
        <TypeConverter(GetType(FontConverter))>
        Public Overridable Property Font As Font
            Get
@@ -63,7 +65,8 @@ Public Module ModuleControlProperties
            End Set
        End Property

-        <Category("Anzeige")>
+        <DisplayName("Font Color")>
+        <Category(ClassConstants.CAT_DISPLAY)>
        Public Property TextColor As Color

        Class FontConverter
@@ -81,19 +84,29 @@ Public Module ModuleControlProperties

        Private _index_type As String
        Private _sql_command As String
+        Friend _sql_connection As Integer = 0
        Private _Override_SQL As String
        Private _Enable_SQL As String
        Private _Enable_SQL_ONLOAD As String
-
        Private _default_value
-        <Category("Allgemein")> Public Property Active() As Boolean
+        Friend _set_control_data As String

+        <Category(ClassConstants.CAT_BEHAVIOUR)>
+        Public Property Active() As Boolean
+
+        <Category(ClassConstants.CAT_VALIDATION)>
        Public Property Required() As Boolean
-        <Category("Validierung")>
+
+        <DisplayName("Read Only")>
+        <Category(ClassConstants.CAT_VALIDATION)>
        Public Property [ReadOnly]() As Boolean
+
+        <DisplayName("Save Changes On Read Only")>
+        <Category(ClassConstants.CAT_BEHAVIOUR)>
        Public Property [SaveChangeOnReadOnly]() As Boolean
+
        <Browsable(False)>
-        <Category("Indexierung")>
+        <Category(ClassConstants.CAT_GENERAL)>
        Public Property IndexType() As IndexTypes
        ''' <summary>
        ''' Diese Eigenschaft enthält die auswählbaren Indicies, die für das Control verfügbar sind. Wird nicht direkt angezeigt.
@@ -103,44 +116,72 @@ Public Module ModuleControlProperties
        ''' <summary>
        ''' Diese Eigenschaft enthält des ausgewählten Index
        ''' </summary>
-        <Category("Indexierung")>
+        <Category(ClassConstants.CAT_GENERAL)>
        <TypeConverter(GetType(IndexListConverter))>
        Public Property Index() As String
-        <Category("Daten")>
+
+        <DisplayName("SQL Command")>
+        <Category(ClassConstants.CAT_DATA)>
        Public Property SQLCommand() As SQLValue
            Get
-                Return New SQLValue(NotNull(_sql_command, ""))
+                Return New SQLValue(NotNull(_sql_command, ""), _sql_connection)
            End Get
            Set(ByVal value As SQLValue)
                _sql_command = value.Value
-            End Set
-        End Property
-        Public Property Override_SQL() As SQLValue
-            Get
-                Return New SQLValue(NotNull(_Override_SQL, ""))
-            End Get
-            Set(ByVal value As SQLValue)
-                _Override_SQL = value.Value
-            End Set
-        End Property
-        Public Property Enable_SQL() As SQLValue
-            Get
-                Return New SQLValue(NotNull(_Enable_SQL, ""))
-            End Get
-            Set(ByVal value As SQLValue)
-                _Enable_SQL = value.Value
-            End Set
-        End Property
-        Public Property Enable_SQL_OnLoad() As SQLValue
-            Get
-                Return New SQLValue(NotNull(_Enable_SQL_ONLOAD, ""))
-            End Get
-            Set(ByVal value As SQLValue)
-                _Enable_SQL_ONLOAD = value.Value
+                SQLConnection = value.ConnectionId
            End Set
        End Property

-        <Category("Daten")>
+        <DisplayName("SQL Connection")>
+        <Category(ClassConstants.CAT_INFORMATION)>
+        <[ReadOnly](True)>
+        Public Property SQLConnection() As Integer
+            Get
+                Return _sql_connection
+            End Get
+            Set(value As Integer)
+                _sql_connection = value
+            End Set
+        End Property
+
+        <DisplayName("Completion Override SQL")>
+        <Category(ClassConstants.CAT_VALIDATION)>
+        Public Property Override_SQL() As SQLValue
+            Get
+                Return New SQLValue(NotNull(_Override_SQL, ""), _sql_connection)
+            End Get
+            Set(ByVal value As SQLValue)
+                _Override_SQL = value.Value
+                SQLConnection = value.ConnectionId
+            End Set
+        End Property
+
+        <DisplayName("Enable On Change SQL")>
+        <Category(ClassConstants.CAT_BEHAVIOUR)>
+        Public Property Enable_SQL() As SQLValue
+            Get
+                Return New SQLValue(NotNull(_Enable_SQL, ""), _sql_connection)
+            End Get
+            Set(ByVal value As SQLValue)
+                _Enable_SQL = value.Value
+                SQLConnection = value.ConnectionId
+            End Set
+        End Property
+
+        <DisplayName("Enable On Load SQL")>
+        <Category(ClassConstants.CAT_BEHAVIOUR)>
+        Public Property Enable_SQL_OnLoad() As SQLValue
+            Get
+                Return New SQLValue(NotNull(_Enable_SQL_ONLOAD, ""), _sql_connection)
+            End Get
+            Set(ByVal value As SQLValue)
+                _Enable_SQL_ONLOAD = value.Value
+                SQLConnection = value.ConnectionId
+            End Set
+        End Property
+
+        <DisplayName("Default Value")>
+        <Category(ClassConstants.CAT_DATA)>
        Public Property DefaultValue() As String
            Get
                Return _default_value
@@ -151,15 +192,32 @@ Public Module ModuleControlProperties
        End Property
    End Class

-    Public Class TextboxProperties
+    Public Class InputPropertiesWithControlData
        Inherits InputProperties
-        <Category("Sonstiges")>
+
+        <DisplayName("Set Control Data SQL")>
+        <Category(ClassConstants.CAT_BEHAVIOUR)>
        Public Property SetControlData As SQLValue
-        <Category("Validierung")>
+            Get
+                Return New SQLValue(_set_control_data, _sql_connection)
+            End Get
+            Set(value As SQLValue)
+                _set_control_data = value.Value
+                SQLConnection = value.ConnectionId
+            End Set
+        End Property
+    End Class
+
+    Public Class TextboxProperties
+        Inherits InputPropertiesWithControlData
+
+        <DisplayName("Regex Pattern")>
+        <Category(ClassConstants.CAT_VALIDATION)>
        <Editor(GetType(ClassRegexEditor), GetType(UITypeEditor))>
        Public Property Regex As String

-        <Category("Validierung")>
+        <DisplayName("Regex Failure Message")>
+        <Category(ClassConstants.CAT_VALIDATION)>
        <Editor(GetType(MultilineStringEditor), GetType(UITypeEditor))>
        Public Property RegexMessage As String
    End Class
@@ -167,34 +225,34 @@ Public Module ModuleControlProperties
    Public Class LabelProperties
        Inherits BaseProperties

-        <Category("Allgemein")>
+        <Category(ClassConstants.CAT_DISPLAY)>
        Public Property Text() As String
    End Class

    Public Class CheckboxProperties
-        Inherits InputProperties
+        Inherits InputPropertiesWithControlData

-        <Category("Allgemein")>
+        <Category(ClassConstants.CAT_DISPLAY)>
        Public Property Text() As String
-        <Category("Sonstiges")>
-        Public Property SetControlData As SQLValue
+
    End Class

    Public Class ComboboxProperties
-        Inherits InputProperties
+        Inherits InputPropertiesWithControlData

-        <Category("Allgemein")>
+        <Category(ClassConstants.CAT_DISPLAY)>
        Public Property Text() As String
-        <Category("Sonstiges")>
-        Public Property SetControlData As SQLValue

        <Browsable(False)>
        Public Property ChoiceLists() As List(Of String)

-        <Category("Daten")>
+        <DisplayName("Static Choice List")>
+        <Category(ClassConstants.CAT_DATA)>
        <TypeConverter(GetType(ChoiceListConverter))>
        Public Property ChoiceList() As String
-        <Category("SpecialBehaviour")>
+
+        <DisplayName("Display As Lookup Control")>
+        <Category(ClassConstants.CAT_BEHAVIOUR)>
        Public Property DisplayAsLookUpControl As Boolean

        Public Class ChoiceListConverter
@@ -231,19 +289,22 @@ Public Module ModuleControlProperties
    Public Class GridControlProperties
        Inherits InputProperties

-        <Category("Einstellungen")>
+        <DisplayName("Allow Adding New Values")>
+        <Category(ClassConstants.CAT_BEHAVIOUR)>
        Public Property AllowAddNewValues As Boolean
    End Class
+
    Public Class ButtonProperties
        Inherits InputProperties

        Private _image_Value As String


-        <Category("Allgemein")>
+        <Category(ClassConstants.CAT_DISPLAY)>
        Public Property Text() As String

-        <Category("Image")>
+        <DisplayName("Image")>
+        <Category(ClassConstants.CAT_DISPLAY)>
        Public Property CtrlImage() As ImageValue
            Get
                Return New ImageValue(NotNull(_image_Value, ""))
@@ -253,21 +314,29 @@ Public Module ModuleControlProperties
            End Set
        End Property
    End Class
+
    Public Class LookupControlProperties
-        Inherits InputProperties
+        Inherits InputPropertiesWithControlData

-        <Category("Einstellungen")>
+        <DisplayName("Multi Select")>
+        <Category(ClassConstants.CAT_BEHAVIOUR)>
        Public Property MultiSelect As Boolean
-        <Category("Einstellungen")>
-        Public Property AllowAddNewValues As Boolean
-        <Category("Einstellungen")>
-        Public Property PreventDuplicates As Boolean
-        Public Property ChoiceList() As String
-        <Category("SpecialBehaviour")>
-        Public Property DisplayAsComboBox As Boolean
-        <Category("Sonstiges")>
-        Public Property SetControlData As SQLValue

+        <DisplayName("Allow Adding New Values")>
+        <Category(ClassConstants.CAT_BEHAVIOUR)>
+        Public Property AllowAddNewValues As Boolean
+
+        <DisplayName("Prevent Duplicates")>
+        <Category(ClassConstants.CAT_BEHAVIOUR)>
+        Public Property PreventDuplicates As Boolean
+
+        <DisplayName("Static Choice List")>
+        <Category(ClassConstants.CAT_DATA)>
+        Public Property ChoiceList() As String
+
+        <DisplayName("Display As Combobox Control")>
+        <Category(ClassConstants.CAT_BEHAVIOUR)>
+        Public Property DisplayAsComboBox As Boolean
    End Class

    Public Class LineLabelProperties
--- a/app/DD_PM_WINDREAM/ModuleFinalIndexProperties.vb
+++ b/app/DD_PM_WINDREAM/ModuleFinalIndexProperties.vb
@@ -6,73 +6,85 @@ Imports FormsUtils
 Module ModuleFinalIndexProperties
    <TypeConverter(GetType(PropertiesDeluxeTypeConverter))>
    Public Class FinalIndexProperties
-        <Category("Information")>
+        <DisplayName("ID")>
+        <Category(ClassConstants.CAT_GENERAL)>
        <[ReadOnly](True)>
        Public Property GUID As Integer
-        <Category("Information")>
+
+        <DisplayName("Connection ID")>
+        <Category(ClassConstants.CAT_INFORMATION)>
        <[ReadOnly](True)>
        Public Property ConnectionId As Integer

-        <Category("Sonstiges")>
+        <Category(ClassConstants.CAT_GENERAL)>
        Public Property Description As String
-        <Category("Sonstiges")>
+
+        <Category(ClassConstants.CAT_BEHAVIOUR)>
        Public Property Active As Boolean
-        <Category("Sonstiges")>
+
+        <Category(ClassConstants.CAT_BEHAVIOUR)>
        Public Property Sequence As Integer = 0
-        <Category("Sonstiges")>
+
+        <DisplayName("Continue On Indifferent State")>
+        <Category(ClassConstants.CAT_BEHAVIOUR)>
        Public Property ContinueOnIndifferentState As Boolean
+
        ''' <summary>
        ''' Eigenschaft, die den SQL Editor anzeigt
        ''' </summary>
-        <Category("Daten - SQL")>
+        <DisplayName("SQL Command")>
+        <Category(ClassConstants.CAT_DATA)>
        Public Property SQLCommand As SQLValue

        ' Eigenschaften für die verschiedenen Index-Typen
        <DisplayName("Value")>
-        <Category("Daten - Fester Wert")>
+        <Category(ClassConstants.CAT_DATA)>
        <PropertyAttributesProvider("IndexTypeStringProvider")>
        Public Property StringValue As String

        <DisplayName("Value")>
-        <Category("Daten - Fester Wert")>
+        <Category(ClassConstants.CAT_DATA)>
        <PropertyAttributesProvider("IndexTypeBooleanProvider")>
        Public Property BoolValue As Boolean

        <DisplayName("Value")>
-        <Category("Daten - Fester Wert")>
+        <Category(ClassConstants.CAT_DATA)>
        <PropertyAttributesProvider("IndexTypeFloatProvider")>
        Public Property FloatValue As Double

        <DisplayName("Value")>
-        <Category("Daten - Fester Wert")>
+        <Category(ClassConstants.CAT_DATA)>
        <PropertyAttributesProvider("IndexTypeDateProvider")>
        Public Property DateValue As Date

        <DisplayName("Value")>
-        <Category("Daten - Fester Wert")>
+        <Category(ClassConstants.CAT_DATA)>
        <PropertyAttributesProvider("IndexTypeIntegerProvider")>
        Public Property IntegerValue As Integer

-        <Category("Index")>
+        <DisplayName("Index")>
+        <Category(ClassConstants.CAT_GENERAL)>
        <TypeConverter(GetType(IndexListConverter))>
        Public Property IndexName As String

-        <Category("Index")>
+        <DisplayName("Vector Index")>
+        <Category(ClassConstants.CAT_INFORMATION)>
        <[ReadOnly](True)>
        Public Property VectorIndex As Boolean

-        <Category("Index")>
+        <Category(ClassConstants.CAT_BEHAVIOUR)>
        <DisplayName("Allow Multivalues")>
        <PropertyAttributesProvider("VectorIndexBooleanProvider")>
        Public Property AllowAddNewValues As Boolean

-        <Category("Index")>
-        <DisplayName("IndexBehaviour")>
+        <Category(ClassConstants.CAT_BEHAVIOUR)>
+        <DisplayName("Index Behaviour")>
        <TypeConverter(GetType(ClassVectorBehaviourListConverter))>
        <PropertyAttributesProvider("VectorIndexOnlyProvider")>
        Public Property VectorBehaviour As String

-        <Category("Index")>
+        <DisplayName("Prevent Duplicates")>
+        <Category(ClassConstants.CAT_BEHAVIOUR)>
        <PropertyAttributesProvider("VectorIndexBooleanProvider")>
        Public Property PreventDuplicates As Boolean

--- a/app/DD_PM_WINDREAM/ModuleMySettings.vb
+++ b/app/DD_PM_WINDREAM/ModuleMySettings.vb
@@ -1,37 +1,25 @@
 Module ModuleMySettings
    ' Connection String
-    Public SOURCE_INIT As Boolean = False
-    Public CONNECTION_STRING_ECM As String = ""
-    Public CONNECTION_STRING_IDB As String = ""
-    Public IDB_ACTIVE As Boolean = False
-    Public EDMIAppServerActive As Boolean = False
+    Public Property SOURCE_INIT As Boolean = False
+    Public Property CONNECTION_STRING_ECM As String = ""
+    Public Property CONNECTION_STRING_IDB As String = ""
+    Public Property IDB_ACTIVE As Boolean = False
+    Public Property EDMIAppServerActive As Boolean = False

-    Public OPERATION_MODE_FS As String = "PURE_WM"
-    Public IDB_USES_WMFILESTORE As Boolean = False
-    Public BASIC_CONF_VISIBLE As Boolean = True
-    Public IDB_DOC_DATA_SQL As String
-    Public IDB_DT_DOC_DATA As DataTable
-    Public TEST_MODE As String = False
-    Public NO_DETAIL_PROFILES As Boolean = False
-    Public DT_CONNECTIONS As DataTable
+    Public Property OPERATION_MODE_FS As String = "PURE_WM"
+    Public Property IDB_USES_WMFILESTORE As Boolean = False
+    Public Property BASIC_CONF_VISIBLE As Boolean = True
+    Public Property IDB_DOC_DATA_SQL As String
+    Public Property IDB_DT_DOC_DATA As DataTable
+    Public Property NO_DETAIL_PROFILES As Boolean = False
    ' Debug Settings
-    Public DEBUG As Boolean = False
+    Public Property DEBUG As Boolean = False

-    ' Viewer Settings
-    'Public VIEWER_UNIVERSAL As String = ""
-
-    'Public VIEWER_XCHANGE As String = ""
-    'Public VIEWER_SUMATRA As String = ""
-    'Public VIEWER_ZOOM_LEVEL As Integer = 3
-    'Public VIEWER_PDF As String = "internal"
-    'Public VIEWER_ALL As String = "docview"
-
-    Public INDEX_DMS_ERSTELLT = "DMS erstellt"
-    Public INDEX_DMS_ERSTELLT_ZEIT = "DMS erstellt (Zeit)"
-    Public USER_MANAGER_PATH = ""
+    Public Property INDEX_DMS_ERSTELLT = "DMS erstellt"
+    Public Property INDEX_DMS_ERSTELLT_ZEIT = "DMS erstellt (Zeit)"

    ' These settings are loaded from the database
-    Public VERSION_DELIMITER As String = "~"
-    Public FILE_DELIMITER As String = "_"
-    Public WMSESSION_STARTSTOP_STARTUP As Boolean = False
+    Public Property VERSION_DELIMITER As String = "~"
+    Public Property FILE_DELIMITER As String = "_"
+    Public Property WMSESSION_STARTSTOP_STARTUP As Boolean = False
 End Module
--- a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb
+++ b/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb
@@ -7,7 +7,6 @@ Imports DigitalData.Modules.ZooFlow

 Module ModuleRuntimeVariables

-    Public Property Database As DatabaseWithFallback
    Public Property DatabaseECM As MSSQLServer
    Public Property DatabaseIDB As MSSQLServer
    Public Property EDMIService As New State.ServiceState
@@ -29,7 +28,6 @@ Module ModuleRuntimeVariables
    Public Property CURRENT_ProfilGUID As Integer
    Public Property CURRENT_ProfilName As String
    Public Property CURRENT_PROFILE_LOG_INDEX As String
-    Public Property CURRENT_HTML_DOC As String

    Public Property CURRENT_DOC_GUID As Integer
    Public Property CURRENT_DOC_ID As Integer
@@ -38,8 +36,6 @@ Module ModuleRuntimeVariables

    Public Property CURRENT_CONVERSATION_NEW As Long

-    Public Property CURRENT_CONN_ID As Integer
-
    Public Property CURRENT_JUMP_DOC_GUID As Integer
    Public Property CURRENT_WMFILE As WMObject

@@ -47,7 +43,6 @@ Module ModuleRuntimeVariables
    Public Property ERROR_STATE = ""

    Public Property USER_USERNAME As String
-    Public Property DT_USER2MODULE As DataTable

    Public Property CHANGES_FORM_DESIGN As Boolean = False

@@ -107,9 +102,6 @@ Module ModuleRuntimeVariables
    Public Property CURRENT_INDEX_ID As Integer
    Public Property CURRENT_OBJECTTYPE As String
    Public Property CURRENT_DESIGN_TYPE As String = "FINAL_INDEX"
-    Public Property CURRENT_SQL_CON As Integer
-    Public Property CURRENT_SQL_COMAMND As String
-    Public Property CURRENT_DT_SQL_CONFIG_TABLE As DataTable

    Public Property CURRENT_CLICKED_PROFILE_ID As Integer = 0
    Public Property CURRENT_CLICKED_PROFILE_TITLE As String
@@ -130,12 +122,8 @@ Module ModuleRuntimeVariables
    Public Property CURRENT_DT_PROFILES As DataTable
    Public Property CURRENT_DT_PROFILE As DataTable

-    Public Property CURRENT_CONTROL_LIST As New List(Of Control)
    Public Property CURRENT_CONTROL_NAME_LIST As New List(Of String)

-    Public CURRENT_INDEX_ARRAY(100, 250) As String
-
-

    Public Property DTVWCONTROLS_INDEX As DataTable
    Public Property DTVWCONTROL_INDEX As DataTable
--- a/Project/AssemblyInfo.vb
+++ b/Project/AssemblyInfo.vb
@@ -13,7 +13,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyCompany("Digital Data")>
 <Assembly: AssemblyProduct("TaskFlow")>
 <Assembly: AssemblyCopyright("Copyright © Digital Data 2022")>
-<Assembly: AssemblyTrademark("2.3.7.11")>
+<Assembly: AssemblyTrademark("2.3.7.13")>

 <Assembly: ComVisible(False)>

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 

-<Assembly: AssemblyVersion("2.3.7.11")>
+<Assembly: AssemblyVersion("2.3.7.13")>
 <Assembly: AssemblyFileVersion("1.0.0.0")> 
--- a/app/DD_PM_WINDREAM/frmAdministration.resx
+++ b/app/DD_PM_WINDREAM/frmAdministration.resx
@@ -247,7 +247,7 @@
    <value>58</value>
  </data>
  <data name="gridAssignedUsers.Size" type="System.Drawing.Size, System.Drawing">
-    <value>740, 221</value>
+    <value>740, 220</value>
  </data>
  <data name="gridAssignedUsers.TabIndex" type="System.Int32, mscorlib">
    <value>3</value>
@@ -415,7 +415,7 @@
    <value>58</value>
  </data>
  <data name="gridAvailableUsers.Size" type="System.Drawing.Size, System.Drawing">
-    <value>740, 196</value>
+    <value>740, 197</value>
  </data>
  <data name="gridAvailableUsers.TabIndex" type="System.Int32, mscorlib">
    <value>5</value>
@@ -502,7 +502,7 @@
    <value>740, 471</value>
  </data>
  <data name="SplitContainer_Profilzuordnung2.SplitterDistance" type="System.Int32, mscorlib">
-    <value>246</value>
+    <value>245</value>
  </data>
  <data name="SplitContainer_Profilzuordnung2.TabIndex" type="System.Int32, mscorlib">
    <value>0</value>
@@ -565,7 +565,7 @@
    <value>58</value>
  </data>
  <data name="gridAssignedGroups.Size" type="System.Drawing.Size, System.Drawing">
-    <value>740, 192</value>
+    <value>740, 191</value>
  </data>
  <data name="gridAssignedGroups.TabIndex" type="System.Int32, mscorlib">
    <value>3</value>
@@ -688,7 +688,7 @@
    <value>58</value>
  </data>
  <data name="gridAvailableGroups.Size" type="System.Drawing.Size, System.Drawing">
-    <value>740, 225</value>
+    <value>740, 226</value>
  </data>
  <data name="gridAvailableGroups.TabIndex" type="System.Int32, mscorlib">
    <value>0</value>
@@ -778,7 +778,7 @@
    <value>740, 471</value>
  </data>
  <data name="SplitContainer1.SplitterDistance" type="System.Int32, mscorlib">
-    <value>217</value>
+    <value>216</value>
  </data>
  <data name="SplitContainer1.TabIndex" type="System.Int32, mscorlib">
    <value>1</value>
--- a/app/DD_PM_WINDREAM/frmAdministration.vb
+++ b/app/DD_PM_WINDREAM/frmAdministration.vb
@@ -229,8 +229,13 @@ Public Class frmAdministration
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles btnWMSuche.Click
        If IDB_ACTIVE = True Then
            CURRENT_DESIGN_TYPE = "IDB_SEARCH"
-            Dim oForm As New frmSQLEditor(LOGCONFIG, DatabaseECM) With {.SQLCommand = Me.WD_SEARCHTextBox.Text, .SQLConnection = 1}
+            Dim oForm As New frmSQLEditor(LOGCONFIG, DatabaseECM) With {
+                .SQLCommand = Me.WD_SEARCHTextBox.Text,
+                .SQLConnection = 1,
+                .AllowSQLConnectionSelection = False
+            }
            oForm.ShowDialog()
+
            If oForm.DialogResult = DialogResult.OK Then
                Me.WD_SEARCHTextBox.Text = oForm.SQLCommand
            End If
@@ -960,20 +965,20 @@ Public Class frmAdministration
            Dim oSequence As Int16 = NotNull(focusedRow.Item("SEQUENCE"), 0)
            Dim oIndetermined As Boolean = NotNull(focusedRow.Item("CONTINUE_INDETERMINED"), False)
            CURRENT_INDEX_ID = guid
-            CURRENT_SQL_CON = connectionId

-            Dim obj As New FinalIndexProperties()
-            obj.GUID = guid
-            obj.IndexName = index
-            obj.SQLCommand = New SQLValue(sqlCommand)
-            obj.ConnectionId = connectionId
-            obj.Description = description
-            obj.Active = active
-            obj.AllowAddNewValues = allowNewValues
-            obj.PreventDuplicates = preventDuplicates
-            obj.VectorBehaviour = VectorBehaviour
-            obj.Sequence = oSequence
-            obj.ContinueOnIndifferentState = oIndetermined
+            Dim obj As New FinalIndexProperties With {
+                .GUID = guid,
+                .IndexName = index,
+                .SQLCommand = New SQLValue(sqlCommand, connectionId),
+                .ConnectionId = connectionId,
+                .Description = description,
+                .Active = active,
+                .AllowAddNewValues = allowNewValues,
+                .PreventDuplicates = preventDuplicates,
+                .VectorBehaviour = VectorBehaviour,
+                .Sequence = oSequence,
+                .ContinueOnIndifferentState = oIndetermined
+            }
            ' Wenn eine neue Zeile hinzugefügt wird, auf StringValue setzen
            If e.FocusedRowHandle <> GridControl.NewItemRowHandle Then
                obj = FINALINDICES.SetValue(value, obj, index, MyIndicies, MyIndicies_Types)
@@ -992,7 +997,7 @@ Public Class frmAdministration
                "Overwrite"
            }

-            If Not index Is Nothing Then
+            If index IsNot Nothing Then
                Dim indexType As Integer = FINALINDICES.GetIndexType(index, MyIndicies, MyIndicies_Types)
                obj.VectorIndex = FINALINDICES.IsVectorIndex(indexType)
            End If
@@ -1018,8 +1023,10 @@ Public Class frmAdministration
            Dim value As SQLValue = e.ChangedItem.Value

            If value.Value <> String.Empty Then
-                obj.ConnectionId = CURRENT_SQL_CON
+                'obj.ConnectionId = CURRENT_CONN_ID_FINAL_INDEX
                obj.StringValue = "SQL-Command"
+                obj.ConnectionId = value.ConnectionId
+
                'obj.FloatValue = 0
                ' obj.IntegerValue = 0
            End If
@@ -1268,8 +1275,11 @@ Public Class frmAdministration

                Dim guid = obj.GUID
                Dim oProfileId As Integer = PROFILGUIDTextBox.Text
-                Dim connectionId As Integer = obj.ConnectionId
+
+                'Dim connectionId As Integer = obj.ConnectionId
+                Dim connectionId As Integer = NotNull(obj.SQLCommand.ConnectionId, 1)
                Dim sqlCommand As String = NotNull(obj.SQLCommand.Value, String.Empty).Replace("'", "''")
+
                Dim indexName As String = NotNull(obj.IndexName, String.Empty)
                Dim isVectorIndex As Boolean = obj.VectorIndex
                Dim addedWho As String = USER_USERNAME
--- a/app/DD_PM_WINDREAM/frmFormDesigner.vb
+++ b/app/DD_PM_WINDREAM/frmFormDesigner.vb
@@ -6,6 +6,7 @@ Imports DevExpress.XtraGrid.Views.Grid
 Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
 Imports DigitalData.Controls.LookupGrid
 Imports DigitalData.Modules.Language.Utils
+Imports DigitalData.Modules.Language
 Imports System.Drawing
 Imports DigitalData.GUIs.Common

@@ -292,8 +293,6 @@ Public Class frmFormDesigner
                        SetMovementHandlers(oButton)
                End Select
            Next
-
-            CURRENT_CONTROL_LIST = pnldesigner.Controls.Cast(Of Control).ToList()
        Catch ex As Exception
            LOGGER.Error(ex)
            MsgBox("Fehler bei LoadControls " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
@@ -786,7 +785,11 @@ Public Class frmFormDesigner
        obj.Active = StrToBool(row.Item("CONTROL_ACTIVE"))
        obj.Index = NotNull(row.Item("INDEX_NAME"), "")
        obj.DefaultValue = NotNull(row.Item("DEFAULT_VALUE"), Nothing)
-        obj.SQLCommand = New SQLValue(row.Item("SQL_UEBERPRUEFUNG"))
+
+        ' Default value for ConnectionID
+        Dim oConnectionId = row.ItemEx("CONNECTION_ID", 0)
+        obj.SQLCommand = New SQLValue(row.Item("SQL_UEBERPRUEFUNG"), oConnectionId)
+        obj.SQLConnection = oConnectionId
        Return obj
    End Function

@@ -936,7 +939,10 @@ Public Class frmFormDesigner
    Private Sub pgControls_PropertyValueChanged(s As Object, e As PropertyValueChangedEventArgs) Handles pgControls.PropertyValueChanged
        Dim oldValue As Object = e.OldValue
        Dim newValue = e.ChangedItem.Value
-        Dim prop As String = e.ChangedItem.Label
+
+        'Dim prop As String = e.ChangedItem.Label
+        Dim prop As String = e.ChangedItem.PropertyDescriptor.Name
+

        Select Case prop
            Case "DisplayAsLookUpControl"
@@ -1016,29 +1022,27 @@ Public Class frmFormDesigner
                CurrentControl.ForeColor = color
            Case "SQLCommand"
                UpdateSingleValue("SQL_UEBERPRUEFUNG", newValue)
-                UpdateSingleValue("CONNECTION_ID", CURRENT_CONN_ID)
                UpdateSingleValue("CHOICE_LIST", "")

            Case "Enable_SQL"
                UpdateSingleValue("SQL_ENABLE", newValue)
-                UpdateSingleValue("CONNECTION_ID", CURRENT_CONN_ID)
                UpdateSingleValue("CHOICE_LIST", "")
+
            Case "Enable_SQL_OnLoad"
                UpdateSingleValue("SQL_ENABLE_ON_LOAD", newValue)
-                UpdateSingleValue("SQL_ENABLE_ON_LOAD_CONID", CURRENT_CONN_ID)
                UpdateSingleValue("CHOICE_LIST", "")
+
            Case "Override_SQL"
                UpdateSingleValue("SQL2", newValue)
-                UpdateSingleValue("CONNECTION_ID", CURRENT_CONN_ID)
                UpdateSingleValue("CHOICE_LIST", "")
+
            Case "SetControlData"
                UpdateSingleValue("SET_CONTROL_DATA", newValue)
-                UpdateSingleValue("CONNECTION_ID", CURRENT_CONN_ID)
                UpdateSingleValue("CHOICE_LIST", "")
+
            Case "ChoiceList"
                UpdateSingleValue("CHOICE_LIST", newValue)
                UpdateSingleValue("SQL_UEBERPRUEFUNG", "")
-                UpdateSingleValue("CONNECTION_ID", "NULL")

            Case "MultiSelect"
                UpdateSingleValue("MULTISELECT", IIf(newValue = True, 1, 0))
@@ -1103,6 +1107,8 @@ Public Class frmFormDesigner
        ElseIf TypeOf value Is SQLValue Then
            Dim v As SQLValue = value
            escapedValue = $"'{v.Value.Replace("'", "''")}'"
+
+            UpdateSingleValue("CONNECTION_ID", v.ConnectionId)
        End If

        Try
--- a/app/DD_PM_WINDREAM/frmMain.resx
+++ b/app/DD_PM_WINDREAM/frmMain.resx
@@ -125,7 +125,7 @@
        AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
        LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
        ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
-        CAAAAk1TRnQBSQFMAgEBAgEAARQBCQEUAQkBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        CAAAAk1TRnQBSQFMAgEBAgEAASQBCQEkAQkBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
        AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
        AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
        AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
--- a/app/DD_PM_WINDREAM/frmMain.vb
+++ b/app/DD_PM_WINDREAM/frmMain.vb
@@ -671,7 +671,9 @@ Public Class frmMain

                End Try
                Try
-                    GridViewWFItems.Columns.Item("ROW_COLOR").Visible = False
+                    If GridViewWFItems.Columns.ColumnByFieldName("ROW_COLOR") IsNot Nothing Then
+                        GridViewWFItems.Columns.Item("ROW_COLOR").Visible = False
+                    End If
                Catch ex As Exception

                End Try
@@ -1753,9 +1755,21 @@ Public Class frmMain
            Dim oindex As Integer = 0
            If Not IsNothing(BASEDATA_DTGRID_GROUPS) Then
                For Each oGridGroup As DataRow In BASEDATA_DTGRID_GROUPS.Rows
-                    LOGGER.Debug($"Adding group [{oGridGroup.Item("GROUPNAME")}] for Grid...")
+
+                    Dim oGroupName = oGridGroup.Item("GROUPNAME")
+
+                    LOGGER.Debug($"Adding group [{oGroupName}] for Grid...")
                    Try
-                        GridViewWFItems.Columns.Item(oGridGroup.Item("GROUPNAME")).GroupIndex = oindex
+                        Dim oGroupColumn As GridColumn = GridViewWFItems.Columns.Item(oGroupName)
+
+                        If oGroupColumn IsNot Nothing Then
+                            oGroupColumn.GroupIndex = oindex
+                            oGroupColumn.Group()
+                            oGroupColumn.OptionsColumn.AllowGroup = DefaultBoolean.False
+                            oGroupColumn.OptionsColumn.AllowMove = DefaultBoolean.False
+                            oGroupColumn.OptionsColumn.AllowShowHide = DefaultBoolean.False
+                            oGroupColumn.Visible = False
+                        End If
                    Catch ex As Exception

                    End Try
@@ -2072,9 +2086,7 @@ Public Class frmMain
        End If
    End Sub

-
-
-    Private Async Sub GridLayout_Reset()
+    Private Async Function GridLayout_Reset() As Tasks.Task
        FRONTEND_ACTION = "RESET_LAYOUT"
        Await Reset_GridLayout(False)
        Await Decide_Load(False, True)
@@ -2082,7 +2094,8 @@ Public Class frmMain
        GridBuilder.WithFontSizeDelta(CONFIG.Config.GridFontSizeDelta)
        If GridControl_Docs.Visible = True And FormOpenClose = False Then RefreshHelper.LoadViewInfo()
        FRONTEND_ACTION = FA_NONE
-    End Sub
+    End Function
+
    Async Function Reset_GridLayout(FormLoad As Boolean) As Tasks.Task

        If GridControl_Docs.Visible = True And FormOpenClose = False Then
@@ -2875,9 +2888,9 @@ Public Class frmMain
        FRONTEND_ACTION = FA_NONE
    End Sub

-    Private Sub BarButtonItem3_ItemClick_2(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
-        GridLayout_Reset()
-    End Sub
+    Private Async Function BarButtonItem3_ItemClick_2(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) As Tasks.Task Handles BarButtonItem3.ItemClick
+        Await GridLayout_Reset()
+    End Function

    Private Sub BarButtonItem5_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemExportExcel.ItemClick
        Grid_Export()
--- a/app/DD_PM_WINDREAM/frmMassValidator.vb
+++ b/app/DD_PM_WINDREAM/frmMassValidator.vb
@@ -700,7 +700,6 @@ Public Class frmMassValidator
                                    Dim oArrlist As New List(Of String)
                                    oArrlist.Add(oWindreamValue.ToString)
                                    oLookup.Properties.SelectedValues = oArrlist
-                                    '_CURRENT_INDEX_ARRAY(oCount, 1) = oWindreamValue.ToString
                                End If
                            Else
                                If Not IsNothing(oLookup.Properties.SelectedValues) Then
--- a/app/DD_PM_WINDREAM/frmValidator.vb
+++ b/app/DD_PM_WINDREAM/frmValidator.vb
@@ -73,7 +73,6 @@ Public Class frmValidator
    Private Property _Indexe_Loaded As Boolean = False

    Public Shared Property idxerr_message As String = ""
-    Private _CURRENT_INDEX_ARRAY(100, 250) As String

    Private Property _frmValidatorSearch As frmValidatorSearch 'You need a reference to Form1
    Private Property _dependingControl_in_action As Boolean = False
@@ -2495,7 +2494,6 @@ Public Class frmValidator
        WMDocPathWindows = ""
        WMDocFileString = ""

-        CURRENT_HTML_DOC = ""

        'Me.lblerror.Visible = False
        _Indexe_Loaded = False
@@ -3028,7 +3026,6 @@ Public Class frmValidator


                    LOGGER.Debug("INDEX: " & oSourceIndexName & " - CONTROLNAME: " & oControl.Name & " - LOAD IDXVALUES: " & oLoadIndex.ToString)
-                    _CURRENT_INDEX_ARRAY(oCount, 0) = oSourceIndexName
                    Select Case oType
                        Case "System.Windows.Forms.TextBox"
                            Try
@@ -3041,7 +3038,6 @@ Public Class frmValidator
                                    If oLoadIndex = False Or oSourceIndexName = "DD PM-ONLY FOR DISPLAY" Then
                                        ' Wenn kein Index exisitiert, defaultValue laden
                                        oControl.Text = oDefaultValue
-                                        _CURRENT_INDEX_ARRAY(oCount, 1) = oDefaultValue
                                        LOGGER.Debug("Indexwert soll nicht geladen werden.")
                                        Exit Select
                                    End If
@@ -3082,11 +3078,9 @@ Public Class frmValidator
                                        ClassControlCreator.GridTables_HandleControlValueChange(PanelValidatorControl, DT_COLUMNS_GRID_WITH_SQL_WITH_CTRL_PLACEHOLDER)


-                                        _CURRENT_INDEX_ARRAY(oCount, 1) = NotNull(oValueFromSource, oDefaultValue)
                                    Catch ex As Exception
                                        LOGGER.Info("ERROR while converting defaultValue [" & oDefaultValue & "]: " & ex.Message)
                                        oControl.Text = ""
-                                        _CURRENT_INDEX_ARRAY(oCount, 1) = ""
                                    End Try


@@ -3116,7 +3110,6 @@ Public Class frmValidator
                                            oMyCombobox.SelectedIndex = -1
                                        Else
                                            oMyCombobox.Text = oDefaultValue
-                                            _CURRENT_INDEX_ARRAY(oCount, 1) = oDefaultValue
                                        End If
                                        LOGGER.Debug($" oMyComboBox {oMyCombobox.Name}: Indexwert soll nicht geladen werden.")
                                        Exit Select
@@ -3137,7 +3130,6 @@ Public Class frmValidator
                                        Else
                                            LOGGER.Debug($"oMyComboBox {oMyCombobox.Name}-defaultValue wird geladen")
                                            oMyCombobox.Text = oDefaultValue
-                                            _CURRENT_INDEX_ARRAY(oCount, 1) = oDefaultValue
                                            'cmb.SelectedIndex = cmb.FindStringExact(defaultValue)
                                        End If
                                    Else
@@ -3161,8 +3153,6 @@ Public Class frmValidator
                                        LOGGER.Debug($"Indexwert from Index {oSourceIndexName}: {oValueFromSource}")
                                        LOGGER.Debug($"Items in Combobox: {oMyCombobox.Items.Count}")

-                                        _CURRENT_INDEX_ARRAY(oCount, 1) = oValueFromSource
-                                        LOGGER.Debug($"_CURRENT_INDEX_ARRAY set...")
                                        If oMyCombobox.Items.Count = 0 Then
                                            '    If LogErrorsOnly = False Then LOGGER.Info($"Index Wert wurde gesetzt")
                                            oMyCombobox.Text = oValueFromSource
@@ -3396,7 +3386,6 @@ Public Class frmValidator
                                    LOGGER.Info(">> Zurückgegebener Wert des Wertes für Checkbox mit Indexname '" & oIndexName & "' ist nothing. Checking defaultvalue")
                                    LOGGER.Debug(">> Zurückgegebener Wert des Wertes für Checkbox mit Indexname '" & oIndexName & "' ist nothing. Checking defaultvalue")
                                    If oDefaultValue <> String.Empty Then
-                                        _CURRENT_INDEX_ARRAY(oCount, 1) = oDefaultValue
                                        LOGGER.Info($"Using Default value [{oDefaultValue}]")
                                        LOGGER.Debug($"Using Default value [{oDefaultValue}]")
                                        myCheckBox.Checked = CBool(oDefaultValue)
@@ -3409,7 +3398,6 @@ Public Class frmValidator

                                Else
                                    LOGGER.Debug("oValueFromSource: " & oValueFromSource.ToString)
-                                    _CURRENT_INDEX_ARRAY(oCount, 1) = oValueFromSource.ToString
                                    If oValueFromSource.ToString = "" Then
                                        LOGGER.Info(">> Versuch, default Value zu laden")
                                        If oDefaultValue <> String.Empty Then
@@ -3496,12 +3484,10 @@ Public Class frmValidator
                                        End If

                                        oLookup.Properties.SelectedValues = oArrlist
-                                        _CURRENT_INDEX_ARRAY(oCount, 1) = oValueFromSource.ToString
                                    Else
                                        Dim oArrlist As New List(Of String)
                                        oArrlist.Add(oValueFromSource.ToString)
                                        oLookup.Properties.SelectedValues = oArrlist
-                                        _CURRENT_INDEX_ARRAY(oCount, 1) = oValueFromSource.ToString
                                    End If
                                Else
                                    If Not IsNothing(oLookup.Properties.SelectedValues) Then
@@ -3555,9 +3541,6 @@ Public Class frmValidator
                                        ValueDTP = tempdate
                                        DTP.Text = tempdate
                                    End If
-                                    _CURRENT_INDEX_ARRAY(oCount, 1) = oValueFromSource.ToString
-
-
                                Catch ex As Exception
                                    LOGGER.Error(ex)
                                    errormessage = "Unvorhergesehener Fehler bei DTP: " & vbNewLine & ex.Message
@@ -3566,13 +3549,7 @@ Public Class frmValidator
                                    frmError.ShowDialog()
                                    LOGGER.Info("Unexpected error in FillIndex DTP: " & ex.Message, True)
                                End Try
-
-
-
-
                            End If
-                            'Case Else
-                            '    MsgBox(Type)
                    End Select
                    oCount += 1
                Next
Author	SHA1	Message	Date
Jonathan Jenne	0fcffb2589	Version 2.3.7.13	2022-08-09 15:19:31 +02:00
Jonathan Jenne	7c9160a270	SQL Connection cleanup	2022-08-09 15:18:47 +02:00
Jonathan Jenne	8c76b53273	reorganize form designer & final index properties	2022-08-09 10:32:48 +02:00
Jonathan Jenne	6e9b190f00	Fix endless loop/crash after resetting layout	2022-07-27 09:31:44 +02:00