rksv - Leihgeld

SDL/Classes/cRKSV.vb

@@ -2408,6 +2408,7 @@ Public Class cRKSV
 
             If beleg.Beleg_TYP = "L" Then
 
+                'INFO -> Leihgeld ist immer 0% MWSt
 
                 Dim VERAG_SQL As New VERAG_PROG_ALLGEMEIN.SQL
 
@@ -2427,7 +2428,7 @@ Public Class cRKSV
                 Dim Personenkonto As Integer = 0
                 Dim kontenzaehler As Integer = 0
 
-                Dim Bestandskonto As Integer = 0
+                Dim Bestandskonto As Integer = Kassenkonto
                 Dim Erlöskonto As Integer = 0
                 Dim Sachkonto As Integer = 0
 
@@ -2474,7 +2475,7 @@ Public Class cRKSV
                     Dim R3 As DataRow = dt_Verbuchungskonten.NewRow
                     R3("Nr") = 1
                     R3("Konto") = r.Konto
-                    Bestandskonto = r.Konto
+                    Erlöskonto = r.Konto
                     R3("Soll") = r.Soll
                     R3("Haben") = r.Haben
                     dt_Verbuchungskonten.Rows.Add(R3)
@@ -2687,12 +2688,6 @@ Public Class cRKSV
                         ckennsoll2 = "DB"
                         SollHabenKZ = "H"
 
-
-                        sollkonto2 = Forderungskonto
-                        Habenkonto2 = 0
-                        ckennsoll2 = "DB"
-                        SollHabenKZ = "S"
-
                         Dim rows() As DataRow = dt_Verbuchungskonten.Select("Konto = '" & sollkonto2 & "'")
                         If rows.Length > 0 Then
                             Dim row As DataRow = rows(0)