POS-Berechtigungen

SDL/kassenbuch/frmKassenbuch.vb

@@ -74,6 +74,12 @@ Public Class frmKassenbuch
             btnBelegLeihgeld.Enabled = False
             btnStorno.Enabled = False
         End If
+
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kassenbuch POS-Terminal einrichten", Me) Then
+            btnPosTerminal.Enabled = False
+        End If
+
+
     End Sub
     Sub init()
         Dim sqlstr = ""
@@ -1275,7 +1281,7 @@ Public Class frmKassenbuch
         print.Show()
     End Sub
 
-    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
+    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles btnPosTerminal.Click
         Label18.ForeColor = Color.Black
         If Not IsNumeric(cboKassen._value) Then
             Label18.ForeColor = Color.Red