From 974a6ac2e2233cd9ba5f835383b51431f4f9414d Mon Sep 17 00:00:00 2001 From: Developer01 Date: Thu, 13 Aug 2026 11:48:17 +0200 Subject: [PATCH] =?UTF-8?q?=C3=9Cberarbeitung=20von=20Indexpr=C3=BCfungsfu?= =?UTF-8?q?nktionen?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 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 | 20 ++++++++++++++++---- 1 file changed, 16 insertions(+), 4 deletions(-) diff --git a/app/TaskFlow/frmFormDesigner.vb b/app/TaskFlow/frmFormDesigner.vb index 9fac217..39e155a 100644 --- a/app/TaskFlow/frmFormDesigner.vb +++ b/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