Mitarbeiter, etc.

UID/Dienstplan/frmDiestAddMa.vb

@@ -1,4 +1,7 @@
 Imports System.Text.RegularExpressions
+Imports GrapeCity
+Imports VERAG_PROG_ALLGEMEIN
+Imports VERAG_PROG_ALLGEMEIN.TESTJSON
 
 Public Class frmDiestAddMa
 
@@ -60,6 +63,12 @@ Public Class frmDiestAddMa
         cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE", "DE"))
         cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB", "GB"))
 
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SESSIONS", Me) Then
+            btnSessions.Visible = True
+        Else
+            btnSessions.Visible = False
+        End If
+
 
 
 
@@ -759,4 +768,23 @@ Public Class frmDiestAddMa
         End Try
 
     End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnSessions.Click
+        Using frm As New Form
+
+            Dim mitarbeiter As New VERAG_PROG_ALLGEMEIN.cMitarbeiter(MA.dstma_mitId)
+            Dim usrcnlt As New usrcntlSessions(mitarbeiter)
+            frm.Text = "Sessions von " & mitarbeiter.mit_vname & " " & mitarbeiter.mit_nname
+            frm.Controls.Add(usrcnlt)
+
+            frm.ClientSize = usrcnlt.Size
+
+            frm.StartPosition = FormStartPosition.CenterScreen
+            frm.FormBorderStyle = FormBorderStyle.FixedDialog
+
+            frm.ShowDialog()
+
+        End Using
+
+    End Sub
 End Class