AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

revert readonly processing

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb
View File

@ -130,6 +130,7 @@ Module ModuleRuntimeVariables
Public Property CURRENT_DT_PROFILES As DataTable Public Property CURRENT_DT_PROFILES As DataTable
Public Property CURRENT_DT_PROFILE 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 Public CURRENT_INDEX_ARRAY(100, 250) As String

8
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -4410,10 +4410,10 @@ Public Class frmValidator
Dim oSQLCheckCommand As String = IIf(IsDBNull(oControlRow.Item("SQL_UEBERPRUEFUNG")), "", oControlRow.Item("SQL_UEBERPRUEFUNG")) Dim oSQLCheckCommand As String = IIf(IsDBNull(oControlRow.Item("SQL_UEBERPRUEFUNG")), "", oControlRow.Item("SQL_UEBERPRUEFUNG"))
Dim oIsReadOnly As Boolean = CBool(oControlRow.Item("READ_ONLY")) Dim oIsReadOnly As Boolean = CBool(oControlRow.Item("READ_ONLY"))
' WARUM HABEN SIE GEMACHT????!!!!!!einself11 ' Readonly felder werden über finale indexe gefüllt, nicht mit SetControlData
'If oIsReadOnly = True Then If oIsReadOnly = True Then
' Continue For Continue For
'End If End If
Dim oControlType As String = oControlRow.Item("CTRL_TYPE") Dim oControlType As String = oControlRow.Item("CTRL_TYPE")
Dim oIDBTyp As Integer Dim oIDBTyp As Integer