diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index 6204291..a67dda8 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -1941,6 +1941,11 @@ Public Class frmValidator End Sub Private Sub Controls2beEnabled(pControlName As String) Try + ' 18.10.2021: ENABLE_SQL nicht beim Form Load verarbeiten + If FormLoaded = False Then + Exit Sub + End If + Dim oFilteredDatatable As DataTable = DT_CONTROLS.Clone() Dim oExpression = $"SQL_ENABLE like '%#CTRL#{pControlName}%'" DT_CONTROLS.Select(oExpression).CopyToDataTable(oFilteredDatatable, LoadOption.PreserveChanges) @@ -3503,11 +3508,14 @@ 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() + ' 18.10.2021: Brauchen Sie das Überhaupt?? + 'Controls2beDisabled() + BringToFront() If bbtniRefreshSearches.Visibility = DevExpress.XtraBars.BarItemVisibility.Always Then _frmValidatorSearch?.BringToFront()