diff --git a/Parkzeit/frmMain.vb b/Parkzeit/frmMain.vb
index 278fbd0..5fc4ad6 100644
--- a/Parkzeit/frmMain.vb
+++ b/Parkzeit/frmMain.vb
@@ -503,8 +503,11 @@ Public Class frmMain
             Dim OffertenNr = OFFERETNNR_PARKEN
             Dim Abfertigungsart = 10
 
+            Dim GJ = Now.Year
+            If IsDate(bis) Then GJ = getGJ(CDate(SPEDBUCH.Abfertigungsdatum), 19)
+
+            SPEDBUCH.AbfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(SPEDBUCH.FilialenNr, GJ)
             SPEDBUCH.FilialenNr = 4819
-            SPEDBUCH.AbfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(SPEDBUCH.FilialenNr, Now.Year)
             SPEDBUCH.NewUNTER_NR()
 
             SPEDBUCH.Vermittler = AD.Ordnungsbegriff.ToString