From 574c13c9abeb9baccc830f74a58aa067f0144228 Mon Sep 17 00:00:00 2001 From: Developer01 Date: Thu, 13 Aug 2026 11:45:31 +0200 Subject: [PATCH] =?UTF-8?q?Index-Typ-=C3=9Cberpr=C3=BCfung=20in=20frmFormD?= =?UTF-8?q?esigner=20angepasst?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Mehrere Funktionen zur Überprüfung von Index-Typen wurden geändert: - Die Initialisierung der Variablen `oType` wurde vereinfacht. - Eine neue Bedingung für `IndexName = "@@DISPLAY_ONLY"` wurde hinzugefügt, die die Funktion frühzeitig mit `0` beendet. - Die bestehende Logik zur Bestimmung des Index-Typs bleibt unverändert. --- app/TaskFlow/frmFormDesigner.vb | 25 ++++++++++++++++++++----- 1 file changed, 20 insertions(+), 5 deletions(-) diff --git a/app/TaskFlow/frmFormDesigner.vb b/app/TaskFlow/frmFormDesigner.vb index e4306f8..1b8ab46 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 @@ -226,7 +238,10 @@ Public Class frmFormDesigner End Function Private Function IsNotVectorDatetimeIndex(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