USTV Anpassungen, Fatkurierung-Fix: doppelte RgNr Vergabe

VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb

@@ -72,6 +72,14 @@ Public Class cRechnungsnummern
         Return LfdRechnungsNr
     End Function
 
+    Public Function DECREASE_RGNR() As Integer
+        If LfdRechnungsNr > 0 Then
+            LfdRechnungsNr -= 1
+        End If
+        SAVE()
+        Return LfdRechnungsNr
+    End Function
+
 
     Public Function CHECK_RGNR() As Integer ' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr.
         Dim increased = False