Zahlungsmittel in Kassabuch

SDL/kassenbuch/frmBelegNeu.vb

@@ -39,6 +39,7 @@ Public Class frmBelegNeu
     Private posTerminal As cRKSV_POS
     Private dt As DataTable
     Private setBreak As Boolean = True
+    Private Zahlungsmittel As String
     Dim sourceCnTxt As Control = Nothing
 
 
@@ -168,7 +169,7 @@ Public Class frmBelegNeu
                 Case "SUA"
                     cboKassen.changeItem(5)
                 Case Else
-                    MsgBox("Fehler: Dem Benutzer ist noch keine RKSV-Kasse bze. keine Niederlassung zugeordnet!")
+                    MsgBox("Fehler: Dem Benutzer ist noch keine RKSV-Kasse bzw. keine Niederlassung zugeordnet!")
 
             End Select
         End If
@@ -239,6 +240,7 @@ Public Class frmBelegNeu
                 ' FlowLayoutPanel1.Enabled = False
                 Label17.Visible = True
                 btnPrint.Text = "Beleg Kopie" & vbNewLine & "drucken"
+
             End If
 
             If BELEG.Belegart = "1" Then
@@ -339,6 +341,8 @@ Public Class frmBelegNeu
         If BELEG.rksv_BelegId > 0 Then
             lblBelegNr.Text = BELEG.rksv_BelegId
         End If
+
+
         cboFiliale.changeItem(BELEG.FilialenNr)
         txtAbfertigungsNr.Text = IIf(BELEG.AbfertigungsNr <= 0, "", BELEG.AbfertigungsNr)
 
@@ -744,12 +748,12 @@ Public Class frmBelegNeu
 
 
     ' Dim RKSV_Service_Location = "\\192.168.0.106:8733/Design_Time_Addresses/RKSVCompleteServer/Service1/"
-    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click 'btnPOS.Click
-
+    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
+        Zahlungsmittel = "Bar"
         If Not printRoutine() Then
             Exit Sub
         End If
-        setRKSV()
+        setRKSV(sender)
 
     End Sub
 
@@ -1343,16 +1347,17 @@ Public Class frmBelegNeu
         Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True)
         Dim returnCode = CInt(ZVTKey.GetValue("Ergebnis"))
         Dim response As String = ZVTKey.GetValue("ErgebnisText")
+        Dim ZahlungsmittelCode As Integer = ZVTKey.GetValue("Kartentyp")
 
         ZVTKey.Close()
         MsgBox(response)
         If returnCode = 0 Then 'Zahlung wurde erfolgreich durchgeführt
-            setRKSV()
+            setRKSV(sender)
         End If
     End Sub
 
     Private Sub POSpayment(sender As Object, e As EventArgs) Handles btnPOS.Click
-
+        Zahlungsmittel = "EC-Karte"
         If cboKassen.SelectedItem.Text = "" Then
             MsgBox("Keine Kasse ausgewählt!")
             Exit Sub
@@ -1513,9 +1518,10 @@ Public Class frmBelegNeu
 
     End Function
 
-    Private Sub setRKSV()
+    Private Sub setRKSV(sender As System.Object)
 
         Try
+
             If Not BELEG.gebucht And Not BELEG.gebuchtStorno Then
 
                 Me.Cursor = Cursors.WaitCursor
@@ -1540,7 +1546,11 @@ Public Class frmBelegNeu
                 End If
                 ' MsgBox(BELEG.POS.Count)
                 Dim JournalNr = 0
-                If Not cRKSV.insertKB(PERSONAL, BELEG, KASSE.rksv_id, RKSV_Beleg_Id, KASSE.rksv_aktiv, JournalNr, KASSE.rksv_firma) Then
+
+
+                Zahlungsmittel = sender.Text
+
+                If Not cRKSV.insertKB(PERSONAL, BELEG, KASSE.rksv_id, RKSV_Beleg_Id, KASSE.rksv_aktiv, JournalNr, KASSE.rksv_firma, Zahlungsmittel) Then
                     KASSE.DECREASE_BELEG_UMSATZ(oldBelegZaehler, summeBRUTTO * -1)
                     MsgBox("Programmfehler bei Eintrag ins Kassenbuch.")
                     Me.Cursor = Cursors.Default : warnClose = False : Me.Close() : Exit Sub