From 4c4c353d3a1dab072907ac69d6de011b9f3bfb1c Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Wed, 5 Nov 2025 11:53:54 +0100
Subject: [PATCH] RKSV, Leihgeldkasse

---
 SDL/Classes/cRKSV.vb                       |  8 ++---
 SDL/kassenbuch/frmNacherfassungLeihgeld.vb | 38 ----------------------
 2 files changed, 4 insertions(+), 42 deletions(-)

diff --git a/SDL/Classes/cRKSV.vb b/SDL/Classes/cRKSV.vb
index 65e857bf..fddb9da6 100644
--- a/SDL/Classes/cRKSV.vb
+++ b/SDL/Classes/cRKSV.vb
@@ -2372,11 +2372,11 @@ Public Class cRKSV
                     ' Buchung im EABeleg eintragen.
                     '################
 
-                    If BelegSofortInFIBUverbuchten AndAlso BELEG.Beleg_TYP = "L" Then
-                        Dim stapelbuchung As Boolean = True
-                        'createSyskaBuchung(RKSV_id, BELEG, stapelbuchung, KBEntry_List, KBEntryGB_List, KBEntryST_List)
+                    'If BelegSofortInFIBUverbuchten AndAlso BELEG.Beleg_TYP = "L" Then
+                    '    Dim stapelbuchung As Boolean = True
+                    '    'createSyskaBuchung(RKSV_id, BELEG, stapelbuchung, KBEntry_List, KBEntryGB_List, KBEntryST_List)
 
-                    End If
+                    'End If
 
                     BELEG.gebucht = True
                     BELEG.SAVE()
diff --git a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb
index 9545bf5a..ecbedca5 100644
--- a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb
+++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb
@@ -428,15 +428,6 @@ Public Class frmNacherfassungLeihgeld
                 End If
 
 
-                'If cbxOP_sofort_buchen.Checked Then
-
-                '    If Not createSyskaBuchung(PERSONAL_LG, BELEG, True) Then
-                '        MsgBox("Fehler beim Erzeugen der Buchung in der FIBU")
-                '    End If
-
-                'End If
-
-
                 Me.Close()
                 Me.DialogResult = Windows.Forms.DialogResult.OK
                 Me.Cursor = Cursors.Default
@@ -810,33 +801,4 @@ Public Class frmNacherfassungLeihgeld
         txtAuftrProvision.Enabled = sender.checked
     End Sub
 
-    Private Function getSachkonto(pos As EABelegPositionen)
-
-        '    Dim SQL = New VERAG_PROG_ALLGEMEIN.SQL
-        '    Dim RE As New cRechnungsausgang(pos.RK_ID)
-
-        '    If RE.RechnungsLandKz Is Nothing OrElse RE.RechnungsLandKz Is DBNull.Value OrElse RE.RechnungsLandKz.trim = "" _
-        '                         OrElse RE.RechnungsLandKz = "A" _
-        '                         OrElse RE.RechnungsLandKz = "AT" Then
-        '        If CBool(pos.Steuerpflichtig) Then
-        '            getSachkonto = If(SQL.DLookup("[SachkontoInlandSteuerpflichtig]", "Leistungen", "[LeistungsNr]=" & pos.LeistungsNr, "FMZOLL"), "")
-
-        '        Else
-        '            getSachkonto = If(SQL.DLookup("[SachkontoInlandSteuerfrei]", "Leistungen", "[LeistungsNr]=" & pos.LeistungsNr, "FMZOLL"), "")
-        '        End If
-        '    Else
-        '        If SQL.DLookup("[MitgliedslandEU]", "[Währungstabelle]", "[LandKz]='" & RE.RechnungsLandKz & "'", "FMZOLL", False) Then
-        '            If pos.LeistungsNr Then
-        '                getSachkonto = If(SQL.DLookup("[SachkontoEUSteuerpflichtig]", "Leistungen", "[LeistungsNr]=" & pos.LeistungsNr, "FMZOLL"), "")
-        '            Else
-        '                getSachkonto = If(SQL.DLookup("[SachkontoEUSteuerfrei]", "Leistungen", "[LeistungsNr]=" & pos.LeistungsNr, "FMZOLL"), "")
-        '            End If
-        '        Else
-        '            getSachkonto = If(SQL.DLookup("[Sachkonto3Land]", "Leistungen", "[LeistungsNr]=" & pos.LeistungsNr, "FMZOLL"), "")
-        '        End If
-        '    End If
-        '    If getSachkonto = "" Then getSachkonto = "4000" 'DEFAULT!
-
-    End Function
-
 End Class
\ No newline at end of file