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

MsgBox with German Text replaced with ShowInfoMessage, which used the Resource-Strings

Browse Source
This commit is contained in:
PitzM
2023-04-24 15:22:06 +02:00
parent 14c99e7961
commit eb668a7304
2 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
app/TaskFlow/TaskFlow.vbproj
View File

@@ -701,7 +701,9 @@
<SubType>Designer</SubType> <SubType>Designer</SubType>
<LastGenOutput>Resources.Designer.vb</LastGenOutput> <LastGenOutput>Resources.Designer.vb</LastGenOutput>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="Translations\frmMain_Strings.en.resx" /> <EmbeddedResource Include="Translations\frmMain_Strings.en.resx">
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Translations\frmMain_Strings.fr.resx"> <EmbeddedResource Include="Translations\frmMain_Strings.fr.resx">
<SubType>Designer</SubType> <SubType>Designer</SubType>
</EmbeddedResource> </EmbeddedResource>

4
app/TaskFlow/frmMain.vb
View File

@@ -1579,7 +1579,9 @@ Public Class frmMain
' ----------------------------- ' -----------------------------
If oIds.Count = 0 Then 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 Exit Sub
End If End If
Dim oDelete = $"DELETE FROM TBPM_VALIDATION_PROFILE_GROUP_USER WHERE UserID = {USER_ID}" Dim oDelete = $"DELETE FROM TBPM_VALIDATION_PROFILE_GROUP_USER WHERE UserID = {USER_ID}"