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

diverse Baustellen

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-01-02 15:52:10 +01:00
parent 644f8ce128
commit e2d88b47e1
13 changed files with 176 additions and 127 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/Classes/cKassenbuch.vb
View File

@@ -4,7 +4,7 @@ Public Class cKassenbuch
Property Mandant As String = "VERA"
Property Niederlassung As String = "SUB"
Property Benutzer As Integer = -1
Property Geschäftsjahr As Integer = cRKSV.getGJ(Now) ' IIf(Now.Month = 1, Now.Year - 1, Now.Year)
Property Geschäftsjahr As Integer = cRKSV.getGJ_FIRMA(Now, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) ' cRKSV.getGJ(Now) ' IIf(Now.Month = 1, Now.Year - 1, Now.Year)
Property JournalNr As Integer = -1
Property Buchungsdatum As Object = Nothing
Property BelegDat As Object = Nothing

2
SDL/Classes/cRKSV.vb
View File

@@ -1014,7 +1014,7 @@ Public Class cRKSV
End Function
Shared Function getGJ(BelegDat As Date, Optional FIRMA_ID As Integer = -1) As Integer
Shared Function getGJ(BelegDat As Date, FIRMA_ID As Integer) As Integer
'If FIRMA = "" Then FIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Select Case FIRMA_ID
Case -1, 1, 3, 11, 7, 15 'Abweichendes WJ