neu

SDL/frmMain.vb

@@ -112,6 +112,13 @@ Public Class frmMain
             mnueAdministration.Visible = True
         End If
 
+
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("PARKPLATZ_Parkzeit", Me) Then
+            ParkzeitWaberersEtcToolStripMenuItem.Visible = True
+        End If
+
+
+
         If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me) Then
             Button7.Visible = False
         End If
@@ -776,6 +783,17 @@ Public Class frmMain
             MsgBox("Passwort geändert!", vbInformation)
         End If
     End Sub
+
+    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
+        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Telefonliste")
+        'MsgBox(DS.da_id)
+        DS.OPEN_SINGLE()
+    End Sub
+
+    Private Sub ParkzeitWaberersEtcToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ParkzeitWaberersEtcToolStripMenuItem.Click
+        Dim f As New Parkzeit.frmMain
+        f.Show()
+    End Sub
 End Class
 
 Public Class MyRenderer