POS-Berechtigungen

SDL/kassenbuch/frmBelegNeu.Designer.vb

@@ -1666,7 +1666,7 @@ Partial Class frmBelegNeu
         'ContextMenuStrip1
         '
         Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(181, 26)
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
         '
         'frmBelegNeu
         '

SDL/kassenbuch/frmBelegNeu.vb

@@ -294,6 +294,14 @@ Public Class frmBelegNeu
         AddHandler EasyZVT_Worker.DoWork, New ComponentModel.DoWorkEventHandler(AddressOf EasyZVT_Async)
         AddHandler EasyZVT_Worker.RunWorkerCompleted, New System.ComponentModel.RunWorkerCompletedEventHandler(AddressOf EasyZVT_OnCompleted)
 
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("Kassenbuch POS-Terminalzahlungen", Me) = 0 Then
+            btnPOS.Enabled = False
+        Else
+            btnPOS.Enabled = True
+        End If
+
+
+
     End Sub
 
 

SDL/kassenbuch/frmKassenbuch.Designer.vb

@@ -69,6 +69,7 @@ Partial Class frmKassenbuch
         Me.Button10 = New System.Windows.Forms.Button()
         Me.btnBelegGSKunde = New System.Windows.Forms.Button()
         Me.pnl = New System.Windows.Forms.Panel()
+        Me.btnPosTerminal = New System.Windows.Forms.Button()
         Me.Button7 = New System.Windows.Forms.Button()
         Me.Button9 = New System.Windows.Forms.Button()
         Me.Button8 = New System.Windows.Forms.Button()
@@ -78,7 +79,6 @@ Partial Class frmKassenbuch
         Me.btnBelegLeihgeld = New System.Windows.Forms.Button()
         Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
         Me.Button1 = New System.Windows.Forms.Button()
-        Me.Button11 = New System.Windows.Forms.Button()
         CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.pnlTop.SuspendLayout()
@@ -660,7 +660,7 @@ Partial Class frmKassenbuch
         '
         'pnl
         '
-        Me.pnl.Controls.Add(Me.Button11)
+        Me.pnl.Controls.Add(Me.btnPosTerminal)
         Me.pnl.Controls.Add(Me.Button7)
         Me.pnl.Controls.Add(Me.Label11)
         Me.pnl.Controls.Add(Me.Label12)
@@ -675,6 +675,20 @@ Partial Class frmKassenbuch
         Me.pnl.TabIndex = 430
         Me.pnl.Visible = False
         '
+        'btnPosTerminal
+        '
+        Me.btnPosTerminal.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnPosTerminal.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.btnPosTerminal.ForeColor = System.Drawing.Color.Black
+        Me.btnPosTerminal.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnPosTerminal.Location = New System.Drawing.Point(147, 193)
+        Me.btnPosTerminal.Name = "btnPosTerminal"
+        Me.btnPosTerminal.Size = New System.Drawing.Size(129, 30)
+        Me.btnPosTerminal.TabIndex = 430
+        Me.btnPosTerminal.Text = "POS Terminal"
+        Me.btnPosTerminal.UseVisualStyleBackColor = True
+        Me.btnPosTerminal.Visible = False
+        '
         'Button7
         '
         Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -794,19 +808,6 @@ Partial Class frmKassenbuch
         Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.Button1.UseVisualStyleBackColor = True
         '
-        'Button11
-        '
-        Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button11.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.Button11.ForeColor = System.Drawing.Color.Black
-        Me.Button11.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button11.Location = New System.Drawing.Point(147, 193)
-        Me.Button11.Name = "Button11"
-        Me.Button11.Size = New System.Drawing.Size(129, 30)
-        Me.Button11.TabIndex = 430
-        Me.Button11.Text = "POS Terminal"
-        Me.Button11.UseVisualStyleBackColor = True
-        '
         'frmKassenbuch
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -890,5 +891,5 @@ Partial Class frmKassenbuch
     Friend WithEvents Button1 As System.Windows.Forms.Button
     Friend WithEvents Button7 As System.Windows.Forms.Button
     Friend WithEvents Button10 As Button
-    Friend WithEvents Button11 As Button
+    Friend WithEvents btnPosTerminal As Button
 End Class

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