Admin

UID/frmMain.vb

@@ -36,6 +36,8 @@ Public Class frmMain
         btnFehler.Enabled = False
         btnDatenarchiv.Enabled = False
         btnMailroutine.Enabled = False
+        btnFirm.Enabled = False
+        btnInterneBenachrichtigungen.Enabled = False
         lblVersion.Text = "V " & Application.ProductVersion 'My.Resources.Version2
 
         Dim uniqueberechtigungDP = True
@@ -68,6 +70,8 @@ Public Class frmMain
             Button6.Enabled = True
             btnDatenarchiv.Enabled = True
             uniqueberechtigungDP = False
+            btnInterneBenachrichtigungen.Enabled = True
+            btnFirm.Enabled = True
         End If
 
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmDienstplan", Me) Then
@@ -270,7 +274,7 @@ Public Class frmMain
         f.Show(Me)
     End Sub
 
-    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
+    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles btnFirm.Click
 
         Dim frm As New frmFirmenuebersicht
         frm.Show(Me)