edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

rksv - Leihgeld

Browse Source
This commit is contained in:
d.breimaier
2025-11-14 08:48:29 +01:00
parent b151767a78
commit bf6fe8a1c8
1 changed files with 1 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
SDL/Classes/cRKSV.vb
View File

@@ -2408,6 +2408,7 @@ Public Class cRKSV
If beleg.Beleg_TYP = "L" Then If beleg.Beleg_TYP = "L" Then
'INFO -> Leihgeld ist immer 0% MWSt
Dim VERAG_SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim VERAG_SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -2687,12 +2688,6 @@ Public Class cRKSV
ckennsoll2 = "DB" ckennsoll2 = "DB"
SollHabenKZ = "H" SollHabenKZ = "H"
sollkonto2 = Forderungskonto
Habenkonto2 = 0
ckennsoll2 = "DB"
SollHabenKZ = "S"
Dim rows() As DataRow = dt_Verbuchungskonten.Select("Konto = '" & sollkonto2 & "'") Dim rows() As DataRow = dt_Verbuchungskonten.Select("Konto = '" & sollkonto2 & "'")
If rows.Length > 0 Then If rows.Length > 0 Then
Dim row As DataRow = rows(0) Dim row As DataRow = rows(0)