FaktEmail, MDM Fakturierung, etc.

SDL/frmMain.vb

@@ -1124,6 +1124,17 @@ Public Class frmMain
         f.ShowDialog(Me)
     End Sub
 
+    Private Sub mneFakturierung_Click(sender As Object, e As EventArgs) Handles mneFakturierung.Click
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("MDM_Fakturierung", Me) = 0 Then
+            clrPnlMain()
+            Dim usrCntl As New usrcntlFakturierung
+            usrCntl.Dock = System.Windows.Forms.DockStyle.Fill
+            pnlMain.Controls.Add(usrCntl)
+        Else
+            setInfo("err", "Berichte sind noch nicht freigegeben!", 3)
+        End If
+    End Sub
+
 
 End Class