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

Leihgeld

Browse Source
This commit is contained in:
d.breimaier
2026-02-02 16:56:31 +01:00
parent ea31a0d75a
commit 0a94fc3431
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
SDL/Classes/cRKSV.vb
View File

@@ -2157,7 +2157,7 @@ Public Class cRKSV
Return GJ.INCREASE_JOURNAL() Return GJ.INCREASE_JOURNAL()
End Function End Function
Public Shared Function insertKB(PERSONAL As cPersonal, BELEG As EABeleg, RKSV_id As Integer, RKSV_Beleg_Id As Integer, RKSV_aktiv As Integer, ByRef JournalNr As Integer, Firma As String, POSFIBU As Integer, BelegNrFIBU As String, Optional Finanzwege As String = "Bar", Optional BelegSofortInFIBUverbuchten As Boolean = False) Public Shared Function insertKB(PERSONAL As cPersonal, BELEG As EABeleg, RKSV_id As Integer, RKSV_Beleg_Id As Integer, RKSV_aktiv As Integer, ByRef JournalNr As Integer, Firma As String, POSFIBU As Integer, ByRef BelegNrFIBU As String, Optional Finanzwege As String = "Bar", Optional BelegSofortInFIBUverbuchten As Boolean = False)
Try Try
If BELEG.POS.Count = 0 Then If BELEG.POS.Count = 0 Then
MsgBox("Keine Positionen gefunden") MsgBox("Keine Positionen gefunden")
@@ -2538,7 +2538,7 @@ Public Class cRKSV
Public Shared Property DefaultMandant As Integer = IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, 9, 7) Public Shared Property DefaultMandant As Integer = IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, 9, 7)
Public Shared Property DefaultKassenkonto As Integer = 2700 Public Shared Property DefaultKassenkonto As Integer = 2700
Public Shared Function CreateSyskaBuchung(RKSV_id As Integer, beleg As EABeleg, KBEntry_list As List(Of cKassenbuch), KBEntryGB_list As List(Of cKassenbuch), KBEntryST_list As List(Of cKassenbuch), typ As String, BelegUID As String) As Boolean Public Shared Function CreateSyskaBuchung(RKSV_id As Integer, beleg As EABeleg, KBEntry_list As List(Of cKassenbuch), KBEntryGB_list As List(Of cKassenbuch), KBEntryST_list As List(Of cKassenbuch), typ As String, ByRef BelegUID As String) As Boolean
If beleg Is Nothing Then Throw New ArgumentNullException(NameOf(beleg)) If beleg Is Nothing Then Throw New ArgumentNullException(NameOf(beleg))
@@ -2608,7 +2608,7 @@ Public Class cRKSV
'If periode = 1 Then FIBU_YEAR = FIBU_YEAR - 1 'If periode = 1 Then FIBU_YEAR = FIBU_YEAR - 1
BelegNrUID &= FIBU_YEAR.ToString.Substring(2, 2) BelegNrUID &= FIBU_YEAR.ToString.Substring(2, 2)
BelegNrUID &= i_beleg_refid.ToString("D5") BelegNrUID &= i_beleg_refid.ToString("D5")
BelegUID = BelegNrUID
'insert perioden-salden!! 'insert perioden-salden!!