Abrechnungsdatum

2026-01-07 13:55:17 +01:00
parent 4f8b7b541b
commit 94f9cbe572
1 changed files with 4 additions and 1 deletions
--- 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