2 Commits

Author SHA1 Message Date
Jonathan Jenne
8aa16e7677 Version 2.3.7.9 2022-07-08 11:17:01 +02:00
Jonathan Jenne
92ef2464c2 remove continue for for readonly controls 2022-07-08 11:16:34 +02:00
2 changed files with 6 additions and 5 deletions

View File

@@ -13,7 +13,7 @@ Imports System.Runtime.InteropServices
<Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("TaskFlow")>
<Assembly: AssemblyCopyright("Copyright © Digital Data 2022")>
<Assembly: AssemblyTrademark("2.3.7.8")>
<Assembly: AssemblyTrademark("2.3.7.9")>
<Assembly: ComVisible(False)>
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.3.7.8")>
<Assembly: AssemblyVersion("2.3.7.9")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

View File

@@ -4410,10 +4410,11 @@ 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"))
If oIsReadOnly = True Then
' WARUM HABEN SIE GEMACHT????!!!!!!einself11
'If oIsReadOnly = True Then
' Continue For
'End If
Continue For
End If
Dim oControlType As String = oControlRow.Item("CTRL_TYPE")
Dim oIDBTyp As Integer
If IDB_ACTIVE Then