MS Administration ProfileGrid, Config Charts, LU Grid Add MEthod disappeared

app/DD_PM_WINDREAM/frmValidator.vb

@@ -1747,12 +1747,50 @@ Public Class frmValidator
             LOGGER.Error(ex)
         End Try
     End Sub
+    Private Sub Controls2B_EnDisabled_on_Load()
+        Try
+            Dim oFilteredDatatable As DataTable = DTCONTROLS.Clone()
+            Dim oExpression = $"LEN(SQL_ENABLE_ON_LOAD) > 0"
+            DTCONTROLS.Select(oExpression).CopyToDataTable(oFilteredDatatable, LoadOption.PreserveChanges)
+            If oFilteredDatatable.Rows.Count > 0 Then
+                LOGGER.Debug($"We got {oFilteredDatatable.Rows.Count} controls which need to be checked dis/enable on load!")
+            End If
+            For Each oRowEnablingControl As DataRow In oFilteredDatatable.Rows
+                Dim oENABLE_GUID = oRowEnablingControl.Item("GUID")
+                Dim oENABLE_CtrlName = oRowEnablingControl.Item("NAME")
+                For Each oControl As Control In pnldesigner.Controls
+                    If oENABLE_GUID = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid Then
+                        LOGGER.Debug($"Found the Control on panel which needs to be checked [{oENABLE_GUID}]...")
+                        Dim oSqlCommand = IIf(IsDBNull(oRowEnablingControl.Item("SQL_ENABLE_ON_LOAD")), "", oRowEnablingControl.Item("SQL_ENABLE_ON_LOAD"))
+                        Dim oConID = oRowEnablingControl.Item("SQL_ENABLE_ON_LOAD_CONID")
+                        If Not IsDBNull(oConID) Then
+                            oSqlCommand = clsPatterns.ReplaceAllValues(oSqlCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
+                            Dim oENABLERESULT As Boolean = ClassDatabase.Execute_Scalar_ConID(oSqlCommand, oRowEnablingControl.Item("SQL_ENABLE_ON_LOAD_CONID"))
+                            Try
+                                LOGGER.Debug($"oENABLERESULT [{oENABLERESULT}]...")
+                                oControl.Enabled = oENABLERESULT
+                            Catch ex As Exception
+                                LOGGER.Warn($"Error en/disabling control onLoad: [{ex.Message}]")
+                            End Try
+                        Else
+                            LOGGER.Warn($"Attention SQL_ENABLE_ON_LOAD_CONID seems to be null!")
+                        End If
+
+
+
+                    End If
+                Next
+            Next
+        Catch ex As Exception
+            LOGGER.Error(ex)
+        End Try
+    End Sub
     Private Sub Depending_Control_Set_Result(displayboxname As String, sqlCommand As String, sqlConnection As String)
         Try
             Dim resultDT As DataTable = ClassDatabase.Return_Datatable_ConStr(sqlCommand, sqlConnection)
             If Not IsNothing(resultDT) Then
                 'Ist das Control ein Control was mehrfachwerte enthalten kann
-                If displayboxname.StartsWith(ClassControlCreator.PREFIX_COMBOBOX) Or displayboxname.StartsWith(ClassControlCreator.PREFIX_DATAGRIDVIEW) Or displayboxname.StartsWith(ClassControlCreator.PREFIX_TABLE) Then
+                If displayboxname.StartsWith(ClassControlCreator.PREFIX_COMBOBOX) Or displayboxname.StartsWith(ClassControlCreator.PREFIX_LOOKUP) Or displayboxname.StartsWith(ClassControlCreator.PREFIX_TABLE) Then
                     If displayboxname.StartsWith(ClassControlCreator.PREFIX_COMBOBOX) Then
                         Dim cmbpanel As ComboBox = pnldesigner.Controls(displayboxname)
                         cmbpanel.DataSource = Nothing
@@ -1772,7 +1810,8 @@ Public Class frmValidator
                         End Using
                         cmbpanel.DropDownWidth = maxWith
 
-                    ElseIf displayboxname.StartsWith(ClassControlCreator.PREFIX_DATAGRIDVIEW) Or displayboxname.StartsWith(ClassControlCreator.PREFIX_TABLE) Then
+                    ElseIf displayboxname.StartsWith(ClassControlCreator.PREFIX_LOOKUP) Or displayboxname.StartsWith(ClassControlCreator.PREFIX_TABLE) Then
+                        LOGGER.Warn("Depending_Control_Set_Result PREFIX_LOOKUP NOT IMPLEMENTED")
                         'not implemented
                     End If
                 Else
@@ -3155,8 +3194,10 @@ Public Class frmValidator
     Private Sub frmValidation_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown
         '  Refresh_FileList()
         Load_Next_Document(True)
+        Controls2B_EnDisabled_on_Load()
         _dependingControl_in_action = False
         _dependingColumn_in_action = False
+
         Controls2beDisabled()
         BringToFront()
         FormLoaded = True
@@ -3342,7 +3383,7 @@ Public Class frmValidator
                                     Else
                                         If IDBData.SetVariableValue(oFinalIndexRow.Item("INDEXNAME"), oValue) = True Then
                                             oFIResult = True
-                                            LOGGER.Debug("Final index IDB '" & oFinalIndexRow.Item("INDEXNAME") & "' was updated.")
+                                            LOGGER.Debug($"Final index IDB '{oFinalIndexRow.Item("INDEXNAME")}' was updated with [{oValue.ToString}]")
                                         End If
                                     End If
                                     If oFIResult = False Then