20200108

SDL/Classes/cKassenbuch.vb

@@ -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 = IIf(Now.Month = 1, Now.Year - 1, Now.Year)
+    Property Geschäftsjahr As Integer = 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

SDL/Classes/cRKSV.vb

@@ -336,7 +336,32 @@ Public Class cRKSV
         Return BELEG
     End Function
     Shared Function getGJ(BelegDat As Date) As Integer
-        Return IIf(BelegDat.Month = 1, BelegDat.Year - 1, BelegDat.Year)
+        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            Case "IMEX", "FRONTOFFICE"
+                Return BelegDat.Year
+            Case Else
+                Return IIf(BelegDat.Month = 1, BelegDat.Year - 1, BelegDat.Year)
+        End Select
+
+    End Function
+
+
+    Shared Function getGJ_EndOfYear(GeschaerftsJahr As Integer) As Date
+        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            Case "IMEX", "FRONTOFFICE"
+                Return CDate("31.12." & GeschaerftsJahr)
+            Case Else
+                Return CDate("31.01." & (GeschaerftsJahr + 1))
+        End Select
+    End Function
+
+    Shared Function getGJ_BeginOfYear(GeschaerftsJahr As Integer) As Date
+        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            Case "IMEX", "FRONTOFFICE"
+                Return CDate("01.01." & GeschaerftsJahr)
+            Case Else
+                Return CDate("01.02." & GeschaerftsJahr)
+        End Select
     End Function
 
     Public Shared Function isforbiddenDate() As Boolean