revert readonly processing

This commit is contained in:
Jonathan Jenne
2022-07-14 16:23:43 +02:00
parent a3a0a02b6e
commit 8664500877
2 changed files with 5 additions and 4 deletions

View File

@@ -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