From bf6fe8a1c8fbb89807c640f90b958353203f6db1 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Fri, 14 Nov 2025 08:48:29 +0100
Subject: [PATCH] rksv - Leihgeld

---
 SDL/Classes/cRKSV.vb | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/SDL/Classes/cRKSV.vb b/SDL/Classes/cRKSV.vb
index d10a4ad4..78cd3f75 100644
--- a/SDL/Classes/cRKSV.vb
+++ b/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)