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

RKSV, Kassenbucht, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-02-17 10:35:20 +01:00
parent a9bca96996
commit 13bbf904f7
5 changed files with 50 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
SDL/Classes/cRKSV.vb
View File

@@ -2353,7 +2353,12 @@ Public Class cRKSV
KBEntryEC.Konto = PERSONAL.KassenbuchNr
End If
KBEntryEC.Buchungstext = "Umb. BK/KASSA"
Dim Buchungstext As String = "Umb.BK / KASSA"
if BELEG.ECZahlungsNr IsNot Nothing AndAlso BELEG.ECZahlungsNr <> "" Then
Buchungstext &= " " & BELEG.ECZahlungsNr
End If
KBEntryEC.Buchungstext = Buchungstext
KBEntryEC.Buchungsdatum = Now.ToShortDateString
KBEntryEC.BelegDat = BELEG.BelegDat.ToShortDateString
@@ -2473,7 +2478,7 @@ Public Class cRKSV
End If
End Sub
End Sub
Private Shared Sub getDEBDaten(ByRef Mandant As String, ByRef DebKonto As Integer, ByRef c_sprache As String, ByRef c_ustidnr As String, ByRef c_zahlziel As String, ByRef si_tage As Integer, ByRef dec_skonto As Integer, ByRef si_ntage As Integer, ByRef SkontoDatum As Date, ByRef Nettodatum As Date)