revert readonly processing

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
 

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