Admin

UID/frmMain.Designer.vb

@@ -52,7 +52,7 @@ Partial Class frmMain
         Me.btnMitarbeiter = New System.Windows.Forms.Button()
         Me.Panel2 = New System.Windows.Forms.Panel()
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
-        Me.Button2 = New System.Windows.Forms.Button()
+        Me.btnFirm = New System.Windows.Forms.Button()
         Me.Panel3.SuspendLayout()
         Me.Panel2.SuspendLayout()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -113,7 +113,7 @@ Partial Class frmMain
         'Panel3
         '
         Me.Panel3.BackColor = System.Drawing.Color.White
-        Me.Panel3.Controls.Add(Me.Button2)
+        Me.Panel3.Controls.Add(Me.btnFirm)
         Me.Panel3.Controls.Add(Me.btnInterneBenachrichtigungen)
         Me.Panel3.Controls.Add(Me.lblVersion)
         Me.Panel3.Controls.Add(Me.btnAuditFlow)
@@ -358,17 +358,17 @@ Partial Class frmMain
         Me.PictureBox1.TabIndex = 31
         Me.PictureBox1.TabStop = False
         '
-        'Button2
+        'btnFirm
         '
-        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button2.Location = New System.Drawing.Point(12, 76)
-        Me.Button2.Name = "Button2"
-        Me.Button2.Size = New System.Drawing.Size(94, 33)
-        Me.Button2.TabIndex = 47
-        Me.Button2.Text = "Firmen"
-        Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button2.UseVisualStyleBackColor = True
+        Me.btnFirm.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnFirm.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnFirm.Location = New System.Drawing.Point(12, 76)
+        Me.btnFirm.Name = "btnFirm"
+        Me.btnFirm.Size = New System.Drawing.Size(94, 33)
+        Me.btnFirm.TabIndex = 47
+        Me.btnFirm.Text = "Firmen"
+        Me.btnFirm.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnFirm.UseVisualStyleBackColor = True
         '
         'frmMain
         '
@@ -418,5 +418,5 @@ Partial Class frmMain
     Friend WithEvents btnAuditFlow As Button
     Friend WithEvents lblVersion As Label
     Friend WithEvents btnInterneBenachrichtigungen As Button
-    Friend WithEvents Button2 As Button
+    Friend WithEvents btnFirm As Button
 End Class

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)