From bbef9ee886e93f85bc5fa9e2641f8e68dca781a7 Mon Sep 17 00:00:00 2001 From: Developer01 Date: Wed, 5 Aug 2026 13:45:12 +0200 Subject: [PATCH] Version auf 3.2.0.0 aktualisiert, Logik optimiert MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Die Assembly-Version in `AssemblyInfo.vb` wurde von 3.1.0.0 auf 3.2.0.0 aktualisiert. In `frmMain.vb` wurde die Logik zur Verarbeitung von `oTypeId` angepasst. Die Überprüfung, ob ein `frmValidator`-Formular geöffnet ist, erfolgt nun nur, wenn `oTypeIdInt` den Wert 0 oder 1 hat. Die `Select Case`-Logik wurde entsprechend angepasst, um die Bedingung zu berücksichtigen. --- app/TaskFlow/My Project/AssemblyInfo.vb | 2 +- app/TaskFlow/frmMain.vb | 17 +++++++++++------ 2 files changed, 12 insertions(+), 7 deletions(-) diff --git a/app/TaskFlow/My Project/AssemblyInfo.vb b/app/TaskFlow/My Project/AssemblyInfo.vb index 8035686..ac13e64 100644 --- a/app/TaskFlow/My Project/AssemblyInfo.vb +++ b/app/TaskFlow/My Project/AssemblyInfo.vb @@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + diff --git a/app/TaskFlow/frmMain.vb b/app/TaskFlow/frmMain.vb index d35cf86..50f0d59 100644 --- a/app/TaskFlow/frmMain.vb +++ b/app/TaskFlow/frmMain.vb @@ -4642,11 +4642,6 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_G Exit Function End If - If Application.OpenForms().OfType(Of frmValidator).Any Then - FormHelper.ShowInfoMessage(S.Bitte_schließen_Sie_den_offenen_Workflow_, omsgTitleWarning) - Exit Function - End If - RibbonPageGroup7.Visible = False FRONTEND_ACTION = NAVBAR_CLICKED @@ -4655,7 +4650,17 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_G COCKPIT_PROFILE_SQL = String.Empty Dim oTypeIdInt As Integer = CInt(oTypeId) - Select Case oTypeIdInt + If oTypeIdInt = 0 Or oTypeId = 1 Then + If Application.OpenForms().OfType(Of frmValidator).Any Then + FormHelper.ShowInfoMessage(S.Bitte_schließen_Sie_den_offenen_Workflow_, omsgTitleWarning) + Exit Function + End If + End If + + + + + Select Case oTypeIdInt Case 0 LOGGER.Debug("TreeList_Cockpit: Loading overview")