edv/Parkzeit
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Abrechnungsdatum

Browse Source
This commit is contained in:
d.breimaier
2026-01-07 13:55:17 +01:00
parent 4f8b7b541b
commit 94f9cbe572
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Parkzeit/frmMain.vb
View File

@@ -503,8 +503,11 @@ Public Class frmMain
Dim OffertenNr = OFFERETNNR_PARKEN Dim OffertenNr = OFFERETNNR_PARKEN
Dim Abfertigungsart = 10 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.FilialenNr = 4819
SPEDBUCH.AbfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(SPEDBUCH.FilialenNr, Now.Year)
SPEDBUCH.NewUNTER_NR() SPEDBUCH.NewUNTER_NR()
SPEDBUCH.Vermittler = AD.Ordnungsbegriff.ToString SPEDBUCH.Vermittler = AD.Ordnungsbegriff.ToString