POS-Terminal

SDL/kassenbuch/frmBelegNeu.vb

@@ -294,10 +294,8 @@ 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
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("Kassenbuch POS-Terminalzahlungen", Me) = 0 Then
             btnPOS.Enabled = False
-        Else
-            btnPOS.Enabled = True
         End If
 
 
@@ -1560,6 +1558,7 @@ Public Class frmBelegNeu
         'Button_Gutschrift.Enabled = True
         ZVTKey.Close()
         MsgBox(response)
+        setBreak = False
     End Sub
 
     Private Sub POSpayment(sender As Object, e As EventArgs) Handles btnPOS.Click
@@ -1574,7 +1573,7 @@ Public Class frmBelegNeu
                 MsgBox("Für diese Kasse ist kein aktives POS-Terminal hinterlegt!")
                 Exit Sub
             Case 1
-                PosPAyment2()
+                SetRegEntries()
 
             Case Else
                 ContextMenuStrip1.Items.Clear()
@@ -1593,7 +1592,7 @@ Public Class frmBelegNeu
 
     End Sub
 
-    Private Sub PosPAyment2(Optional posid As Integer = -1)
+    Private Sub SetRegEntries(Optional posid As Integer = -1)
 
 
         If posid = -1 Then
@@ -1659,7 +1658,7 @@ Public Class frmBelegNeu
         ContextMenuStrip1.Hide() 'Sometimes the menu items can remain open.  May not be necessary for you.
         Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
         If item IsNot Nothing Then
-            PosPAyment2(item.Name)
+            SetRegEntries(item.Name)
         End If
     End Sub