neu

2019-11-06 16:33:03 +01:00
parent c5595a729a
commit 99ba5f4513
17 changed files with 521 additions and 92 deletions
--- a/SDL/kassenbuch/frmKassenbuch.vb
+++ b/SDL/kassenbuch/frmKassenbuch.vb
@@ -1069,7 +1069,7 @@ Public Class frmKassenbuch
        Dim reader = InputBox("Bitte ReaderNamen angeben:")

        If reader <> "" Then
-            Dim serial = cRKSV.getCardSerialInReader(reader)
+            Dim serial = cRKSV.getCardSerialInReader(cboKassen._value, reader)
            If serial <> "" Then MsgBox(serial) Else MsgBox("Karte nicht gefunden!")
        End If
    End Sub