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")