Parkplatzabrechnung

SDL/frmMain.vb

@@ -82,6 +82,11 @@ Public Class frmMain
         Else
             mnueMDM.Enabled = False
         End If
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("MDM_Fakturierung", Me) = 0 Then
+            FakturierungToolStripMenuItem.Enabled = True
+        Else
+            FakturierungToolStripMenuItem.Enabled = False
+        End If
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("ZOLL_Hauptmenü", Me) = 0 Then
             mnueZoll.Enabled = True
         Else
@@ -1060,6 +1065,13 @@ Public Class frmMain
         Dim f As New frmEssensbestellungenAdministration()
         f.Show()
     End Sub
+
+    Private Sub FakturierungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FakturierungToolStripMenuItem.Click
+        Me.Cursor = Cursors.WaitCursor
+        Dim f As New SDL.frmAbrechnungsMaske
+        f.Show(Me)
+        Me.Cursor = Cursors.Default
+    End Sub
 End Class
 
 Public Class MyRenderer