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
 
@@ -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)