From 94f9cbe572029bc508b496951e2e215874d6393c Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Wed, 7 Jan 2026 13:55:17 +0100
Subject: [PATCH] Abrechnungsdatum

---
 Parkzeit/frmMain.vb | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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