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

Parkplatz Abrechnung, Fakt div, etc

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-01-12 14:00:27 +01:00
parent 5e26c9cf22
commit 6b58e32397
12 changed files with 737 additions and 308 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb
View File

@@ -15,34 +15,41 @@ Public Class cRechnungsnummern
Me.SpeditionsbuchNr = SpeditionsbuchNr
Me.Buchungsjahr = Buchungsjahr
Dim BJ_short = Right(Buchungsjahr, 2)
Select Case SpeditionsbuchNr
Case 1, 3, 4, 7, 11, 15, 19
If Now < CDate("01.02.204") Then BJ_short = Now.ToString("yy") ' Bisher wurde das aktuelle Jahr als Angabe für die RgNr verwendet, zukünftig soll es das BJ sein
End Select
'Default-Werte:
'-------------------------------------
Select Case SpeditionsbuchNr
Case 1
VonRechnungsNr = Now.ToString("yy") & "100001"
BisRechnungsNr = Now.ToString("yy") & "199999"
VonRechnungsNr = BJ_short & "100001"
BisRechnungsNr = BJ_short & "199999"
Case 3
VonRechnungsNr = Now.ToString("yy") & "300001"
BisRechnungsNr = Now.ToString("yy") & "399999"
VonRechnungsNr = BJ_short & "300001"
BisRechnungsNr = BJ_short & "399999"
Case 4 'VERAG AG (DE)
VonRechnungsNr = Now.ToString("yy") & "800001"
BisRechnungsNr = Now.ToString("yy") & "899999"
VonRechnungsNr = BJ_short & "800001"
BisRechnungsNr = BJ_short & "899999"
Case 7
VonRechnungsNr = Now.ToString("yy") & "700001"
BisRechnungsNr = Now.ToString("yy") & "799999"
VonRechnungsNr = BJ_short & "700001"
BisRechnungsNr = BJ_short & "799999"
Case 11
VonRechnungsNr = Now.ToString("yy") & "900001"
BisRechnungsNr = Now.ToString("yy") & "999999"
VonRechnungsNr = BJ_short & "900001"
BisRechnungsNr = BJ_short & "999999"
Case 15, 19 'VERAG 360
VonRechnungsNr = Now.ToString("yy") & "200001"
BisRechnungsNr = Now.ToString("yy") & "299999"
VonRechnungsNr = BJ_short & "200001"
BisRechnungsNr = BJ_short & "299999"
Case 20
VonRechnungsNr = Now.ToString("yy") & "400001"
BisRechnungsNr = Now.ToString("yy") & "499999"
VonRechnungsNr = BJ_short & "400001"
BisRechnungsNr = BJ_short & "499999"
Case 17 'FrontOffice
VonRechnungsNr = Now.ToString("yy") & "500001"
BisRechnungsNr = Now.ToString("yy") & "599999"
VonRechnungsNr = BJ_short & "500001"
BisRechnungsNr = BJ_short & "599999"
Case 21 ' UNISPED AT
VonRechnungsNr = "7000000"
@@ -57,8 +64,8 @@ Public Class cRechnungsnummern
VonRechnungsNr = "0000001"
BisRechnungsNr = "9999999"
Case 26 ' VERAG-UNISPED
VonRechnungsNr = Now.ToString("yy") & "0000001"
BisRechnungsNr = Now.ToString("yy") & "9999999"
VonRechnungsNr = BJ_short & "0000001"
BisRechnungsNr = BJ_short & "9999999"
End Select
LfdRechnungsNr = VonRechnungsNr
'-------------------------------------