edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Mailvorlagen erweiterete Berechitungen

Browse Source
This commit is contained in:
d.breimaier
2024-05-02 10:42:43 +02:00
parent e44cd63d74
commit 059bcb9b20
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/My Project/AssemblyInfo.vb
View File

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

4
Aviso/frmHauptfenster.vb
View File

@@ -379,7 +379,7 @@ Public Class frmHauptfenster
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("RECHNUNGSSUCHE", "SDL") Then If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("RECHNUNGSSUCHE", "SDL") Then
btnRg.Visible = True btnRg.Visible = True
End If 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 MailvorlagenToolStripMenuItem.Visible = True
End If End If
@@ -4594,7 +4594,7 @@ Public Class frmHauptfenster
End Sub End Sub
Private Sub MailvorlagenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MailvorlagenToolStripMenuItem.Click 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) f.ShowDialog(Me)
End Sub End Sub
End Class End Class