Überarbeitung von Indexprüfungsfunktionen

Die Funktionen `IsNotBooleanIndex`, `IsNotDateIndex`, `IsNotVectorBooleanIndex` und `IsNotVectorDateIndex` in `frmFormDesigner` wurden angepasst:
- Die auskommentierte Initialisierung der Variablen `oType` wurde entfernt und durch eine neue Deklaration ersetzt.
- Ein neuer Codeblock wurde hinzugefügt, der bei `IndexName = "@@DISPLAY_ONLY"` direkt `0` zurückgibt.
- Die bestehende Logik zur Bestimmung des Index-Typs bleibt unverändert.
- Die Rückgabewerte der Funktionen wurden nicht verändert.

app/TaskFlow/frmFormDesigner.vb

@@ -186,7 +186,10 @@ Public Class frmFormDesigner
     End Function
 
     Private Function IsNotBooleanIndex(IndexName As String) As Boolean
-        Dim oType As Integer '= WINDREAM_MOD.GetIndexType(IndexName)
+        Dim oType As Integer
+        If IndexName = "@@DISPLAY_ONLY" Then
+            Return 0
+        End If
         If IDB_ACTIVE = False Then
             oType = WINDREAM_MOD.GetIndexType(IndexName)
         Else
@@ -196,7 +199,10 @@ Public Class frmFormDesigner
     End Function
 
     Private Function IsNotDateIndex(IndexName As String) As Boolean
-        Dim oType As Integer '= WINDREAM_MOD.GetIndexType(IndexName)
+        Dim oType As Integer
+        If IndexName = "@@DISPLAY_ONLY" Then
+            Return 0
+        End If
         If IDB_ACTIVE = False Then
             oType = WINDREAM_MOD.GetIndexType(IndexName)
         Else
@@ -206,7 +212,10 @@ Public Class frmFormDesigner
     End Function
 
     Private Function IsNotVectorBooleanIndex(IndexName As String) As Boolean
-        Dim oType As Integer '= WINDREAM_MOD.GetIndexType(IndexName)
+        Dim oType As Integer
+        If IndexName = "@@DISPLAY_ONLY" Then
+            Return 0
+        End If
         If IDB_ACTIVE = False Then
             oType = WINDREAM_MOD.GetIndexType(IndexName)
         Else
@@ -216,7 +225,10 @@ Public Class frmFormDesigner
     End Function
 
     Private Function IsNotVectorDateIndex(IndexName As String) As Boolean
-        Dim oType As Integer '= WINDREAM_MOD.GetIndexType(IndexName)
+        Dim oType As Integer
+        If IndexName = "@@DISPLAY_ONLY" Then
+            Return 0
+        End If
         If IDB_ACTIVE = False Then
             oType = WINDREAM_MOD.GetIndexType(IndexName)
         Else