diff --git a/SDL/Classes/cRKSV.vb b/SDL/Classes/cRKSV.vb index 280c766a..5fef969e 100644 --- a/SDL/Classes/cRKSV.vb +++ b/SDL/Classes/cRKSV.vb @@ -2157,7 +2157,7 @@ Public Class cRKSV Return GJ.INCREASE_JOURNAL() 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 If BELEG.POS.Count = 0 Then 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 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)) @@ -2608,7 +2608,7 @@ Public Class cRKSV 'If periode = 1 Then FIBU_YEAR = FIBU_YEAR - 1 BelegNrUID &= FIBU_YEAR.ToString.Substring(2, 2) BelegNrUID &= i_beleg_refid.ToString("D5") - + BelegUID = BelegNrUID 'insert perioden-salden!!