From b151767a78f28d56f236640ed532180c6596e0cd Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Fri, 14 Nov 2025 08:45:33 +0100
Subject: [PATCH] =?UTF-8?q?Erl=C3=B6skonto=20gesetzt.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 SDL/Classes/cRKSV.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/SDL/Classes/cRKSV.vb b/SDL/Classes/cRKSV.vb
index c2084ef0..d10a4ad4 100644
--- a/SDL/Classes/cRKSV.vb
+++ b/SDL/Classes/cRKSV.vb
@@ -2427,7 +2427,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 +2474,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)