diff --git a/app/TaskFlow/My Project/AssemblyInfo.vb b/app/TaskFlow/My Project/AssemblyInfo.vb index 8d29d42..6f54763 100644 --- a/app/TaskFlow/My Project/AssemblyInfo.vb +++ b/app/TaskFlow/My Project/AssemblyInfo.vb @@ -9,11 +9,11 @@ Imports System.Runtime.InteropServices ' Die Werte der Assemblyattribute überprüfen - + - + @@ -32,4 +32,4 @@ Imports System.Runtime.InteropServices ' - + diff --git a/app/TaskFlow/TaskFlow.vbproj b/app/TaskFlow/TaskFlow.vbproj index c3ed922..0a2e427 100644 --- a/app/TaskFlow/TaskFlow.vbproj +++ b/app/TaskFlow/TaskFlow.vbproj @@ -701,7 +701,9 @@ Designer Resources.Designer.vb - + + Designer + Designer diff --git a/app/TaskFlow/frmMain.vb b/app/TaskFlow/frmMain.vb index b3ac48d..08b6417 100644 --- a/app/TaskFlow/frmMain.vb +++ b/app/TaskFlow/frmMain.vb @@ -1578,7 +1578,9 @@ Public Class frmMain ' ----------------------------- If oIds.Count = 0 Then - MsgBox("System konnte die Profilworkflows nicht auswerten!" & vbNewLine & "Bitte wählen Sie ein Profil durch Klicken auf einen Beleg oder eine Überschrift!", MsgBoxStyle.Information, ADDITIONAL_TITLE) + Dim omsg = String.Format(S.System_konnte_die_Profilworkflows_nicht_auswerten_, vbNewLine) + FormHelper.ShowInfoMessage(omsg, omsgTitleAttention) + 'MsgBox("System konnte die Profilworkflows nicht auswerten!" & vbNewLine & "Bitte wählen Sie ein Profil durch Klicken auf einen Beleg oder eine Überschrift!", MsgBoxStyle.Information, ADDITIONAL_TITLE) Exit Sub End If Dim oDelete = $"DELETE FROM TBPM_VALIDATION_PROFILE_GROUP_USER WHERE UserID = {USER_ID}"