RKSV-Leihgeldkassa!

SDL/kassenbuch/frmBelegNeu.vb

@@ -1578,8 +1578,13 @@ Public Class frmBelegNeu
 
                 Me.Cursor = Cursors.WaitCursor
 
+                Dim isLeihgeldeinzahlung As Boolean = False
+
                 Dim summeNETTO As Double = 0
-                For Each p In BELEG.POS : summeNETTO += p.Betrag : Next
+                For Each p In BELEG.POS
+                    summeNETTO += p.Betrag
+                    If p.LeistungsNr = 111 AndAlso p.LeistungsBez = "Rückzahlung Leihgeld" AndAlso BELEG.POS.Count = 1 Then isLeihgeldeinzahlung = True 'nur bei 1 POS und Leihgeld-Einzahlung!
+                Next
 
                 Dim summeBRUTTO = summeNETTO
                 Dim steuersatz As Double = SQL.getValueTxtBySql("SELECT isnull(tblSteuersätze.Steuersatz,0) FROM tblSteuersätze WHERE tblSteuersätze.Nr='" & BELEG.Steuerschlüssel & "' ", "FMZOLL")
@@ -1600,7 +1605,7 @@ Public Class frmBelegNeu
                 Dim JournalNr = 0
 
 
-                If Not cRKSV.insertKB(PERSONAL, BELEG, KASSE.rksv_id, RKSV_Beleg_Id, KASSE.rksv_aktiv, JournalNr, KASSE.rksv_firma, POSFIBU, Zahlungsmittel) Then
+                If Not cRKSV.insertKB(PERSONAL, BELEG, KASSE.rksv_id, RKSV_Beleg_Id, KASSE.rksv_aktiv, JournalNr, KASSE.rksv_firma, POSFIBU, Zahlungsmittel, isLeihgeldeinzahlung) Then
                     KASSE.DECREASE_BELEG_UMSATZ(oldBelegZaehler, summeBRUTTO * -1)
                     MsgBox("Programmfehler bei Eintrag ins Kassenbuch.")
                     Me.Cursor = Cursors.Default : warnClose = False : Me.Close() : Exit Sub