AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Version auf 3.2.0.0 aktualisiert, Logik optimiert

Browse Source 
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.
This commit is contained in:
Developer01
2026-08-05 13:45:12 +02:00
parent b838d664fc
commit bbef9ee886
2 changed files with 12 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
app/TaskFlow/My Project/AssemblyInfo.vb
View File

@@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.1.0.0")> <Assembly: AssemblyVersion("3.2.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguage("")> <Assembly: NeutralResourcesLanguage("")>

17
app/TaskFlow/frmMain.vb
View File

@@ -4642,11 +4642,6 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_G
Exit Function Exit Function
End If 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 RibbonPageGroup7.Visible = False
FRONTEND_ACTION = NAVBAR_CLICKED 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 COCKPIT_PROFILE_SQL = String.Empty
Dim oTypeIdInt As Integer = CInt(oTypeId) 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 Case 0
LOGGER.Debug("TreeList_Cockpit: Loading overview") LOGGER.Debug("TreeList_Cockpit: Loading overview")