VBD Versand TC, Mail sender

UID/frmMain.vb

@@ -28,16 +28,27 @@ Public Class frmMain
         btnSchulungen.Enabled = False
         btnDienstplan.Enabled = False
         Button1.Enabled = False
+        btnAuditFlow.Enabled = False
         btnHomepage.Enabled = False
         Button6.Enabled = False
+        btnAPIZugang.Enabled = False
         btnAPI.Enabled = False
         btnFehler.Enabled = False
+        btnDatenarchiv.Enabled = False
+        btnMailroutine.Enabled = False
         lblVersion.Text = "V " & Application.ProductVersion 'My.Resources.Version2
 
-        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmDienstplan", Me) Then
-            btnDienstplan.Enabled = True
-            btnDienstplan.PerformClick()
+        Dim uniqueberechtigungDP = True
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AUDITFLOW", "ADMIN") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AUDITFLOW", "SDL") Then
+            btnAuditFlow.Enabled = True
+            uniqueberechtigungDP = False
         End If
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SCHULUNG", "ADMIN") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SCHULUNG", "SDL") Then
+            btnSchulungen.Enabled = True
+            uniqueberechtigungDP = False
+        End If
+
+
 
         ' Me.berechtigung = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("ADMINFUNCTIONS", 1)
         ' If Me.berechtigung = 99 Then Me.Close() : Exit Sub
@@ -46,14 +57,23 @@ Public Class frmMain
             btnMitarbeiter.Enabled = True
             btnProgramme.Enabled = True
             btnSchulungen.Enabled = True
+            btnMailroutine.Enabled = True
             btnDienstplan.Enabled = True
             Button1.Enabled = True
+            btnAuditFlow.Enabled = True
+            btnAPIZugang.Enabled = True
             btnAPI.Enabled = True
             btnFehler.Enabled = True
             btnHomepage.Enabled = True
             Button6.Enabled = True
+            btnDatenarchiv.Enabled = True
+            uniqueberechtigungDP = False
         End If
 
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmDienstplan", Me) Then
+            btnDienstplan.Enabled = True
+            If uniqueberechtigungDP Then btnDienstplan.PerformClick()
+        End If
         '  If frmLogin.USRBER >= 5 Then
         'btnDienstplan.Enabled = True
         '   End If
@@ -238,7 +258,7 @@ Public Class frmMain
         button_Click(sender)
     End Sub
 
-    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnAuditFlow.Click
         Dim f As New frmAuditFlow
         f.Show(Me)
     End Sub