This commit is contained in:
2021-01-19 20:27:19 +01:00
parent 1c8b5afac9
commit 595851ec3c
37 changed files with 1293 additions and 479 deletions

View File

@@ -338,7 +338,7 @@ Public Class cRKSV
Shared Function getGJ(BelegDat As Date, Optional FIRMA As String = "") As Integer
If FIRMA = "" Then FIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Select Case FIRMA
Case "IMEX", "FRONTOFFICE"
Case "IMEX", "FRONTOFFICE", "UNISPED", "AMBAR"
Return BelegDat.Year
Case Else
Return IIf(BelegDat.Month = 1, BelegDat.Year - 1, BelegDat.Year)