From 432355d051587f7b9a533dabd86f9aa4ae23548f Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 1 Mar 2023 16:40:42 +0100 Subject: [PATCH] POS-Berechtigungen --- SDL/kassenbuch/frmBelegNeu.Designer.vb | 2 +- SDL/kassenbuch/frmBelegNeu.vb | 8 ++++++ SDL/kassenbuch/frmKassenbuch.Designer.vb | 33 ++++++++++++------------ SDL/kassenbuch/frmKassenbuch.vb | 8 +++++- 4 files changed, 33 insertions(+), 18 deletions(-) diff --git a/SDL/kassenbuch/frmBelegNeu.Designer.vb b/SDL/kassenbuch/frmBelegNeu.Designer.vb index 531599b5..9d9ea07f 100644 --- a/SDL/kassenbuch/frmBelegNeu.Designer.vb +++ b/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 ' diff --git a/SDL/kassenbuch/frmBelegNeu.vb b/SDL/kassenbuch/frmBelegNeu.vb index f6e8d818..3d36fa32 100644 --- a/SDL/kassenbuch/frmBelegNeu.vb +++ b/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 diff --git a/SDL/kassenbuch/frmKassenbuch.Designer.vb b/SDL/kassenbuch/frmKassenbuch.Designer.vb index 2f3b12b6..7ca319fa 100644 --- a/SDL/kassenbuch/frmKassenbuch.Designer.vb +++ b/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 diff --git a/SDL/kassenbuch/frmKassenbuch.vb b/SDL/kassenbuch/frmKassenbuch.vb index 18bc0978..8fde45c2 100644 --- a/SDL/kassenbuch/frmKassenbuch.vb +++ b/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