Fehlerhandling

SDL/kassenbuch/frmBelegNeu.vb

@@ -1352,7 +1352,13 @@ Public Class frmBelegNeu
 
     Private Sub POSpayment(sender As Object, e As EventArgs) Handles btnPOS.Click
 
-        If cboKassen.SelectedItem.Text = "" Or Betrag <= 0 Then
+        If cboKassen.SelectedItem.Text = "" Then
+            MsgBox("Keine Kasse ausgewählt!")
+            Exit Sub
+        End If
+
+        If Betrag <= 0 Then
+            MsgBox("Es können nur positive Beträge über das POS-Terminal bezahlt werden!")
             Exit Sub
         End If