Mailvorlagen erweiterete Berechitungen

This commit is contained in:
2024-05-02 10:42:43 +02:00
parent e44cd63d74
commit 059bcb9b20
2 changed files with 4 additions and 4 deletions

View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.9.8.7")>
<Assembly: AssemblyFileVersion("3.9.8.7")>
<Assembly: AssemblyVersion("3.9.8.9")>
<Assembly: AssemblyFileVersion("3.9.8.9")>

View File

@@ -379,7 +379,7 @@ Public Class frmHauptfenster
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("RECHNUNGSSUCHE", "SDL") Then
btnRg.Visible = True
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MAILVORLAGEN", "SDL") Then
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MAILVORLAGEN", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MAILVORLAGEN_ALLE", "SDL") Then
MailvorlagenToolStripMenuItem.Visible = True
End If
@@ -4594,7 +4594,7 @@ Public Class frmHauptfenster
End Sub
Private Sub MailvorlagenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MailvorlagenToolStripMenuItem.Click
Dim f As New SDL.frmdynMailvorlage(VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "SDL"))
Dim f As New SDL.frmdynMailvorlage(VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MAILVORLAGEN_ALLE", "SDL"))
f.ShowDialog(Me)
End Sub
End Class