diff --git a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb b/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb
index 407cd92..cbd8c7c 100644
--- a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb
+++ b/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb
@@ -130,6 +130,7 @@ 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 CURRENT_INDEX_ARRAY(100, 250) As String
 
diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb
index 488eea3..d89f346 100644
--- a/app/DD_PM_WINDREAM/frmValidator.vb
+++ b/app/DD_PM_WINDREAM/frmValidator.vb
@@ -4410,10 +4410,10 @@ Public Class frmValidator
                     Dim oSQLCheckCommand As String = IIf(IsDBNull(oControlRow.Item("SQL_UEBERPRUEFUNG")), "", oControlRow.Item("SQL_UEBERPRUEFUNG"))
                     Dim oIsReadOnly As Boolean = CBool(oControlRow.Item("READ_ONLY"))
 
-                    ' WARUM HABEN SIE GEMACHT????!!!!!!einself11
-                    'If oIsReadOnly = True Then
-                    '    Continue For
-                    'End If
+                    ' Readonly felder werden über finale indexe gefüllt, nicht mit SetControlData
+                    If oIsReadOnly = True Then
+                        Continue For
+                    End If
 
                     Dim oControlType As String = oControlRow.Item("CTRL_TYPE")
                     Dim oIDBTyp As Integer