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

USTV Anpassungen, Fatkurierung-Fix: doppelte RgNr Vergabe

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-10-11 22:17:22 +02:00
parent 9944bfc50a
commit c60b1ef498
11 changed files with 2097 additions and 726 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
SDL/Fakturierung/cFakturierung.vb
View File

@@ -1635,12 +1635,14 @@ Public Class cFakturierung
Dim RG_NR As New VERAG_PROG_ALLGEMEIN.cRechnungsnummern(RECHNUNG.Firma_ID, RECHNUNG.Buchungsjahr)
' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr. (sollte EÜGENTLICH nicht vorkommen)
RG_NR.CHECK_RGNR()
' Nächste Rechnungsnummer speichern.
RECHNUNG.[RechnungsNr] = RG_NR.LfdRechnungsNr
' Nächste Rechnungsnummer speichern.
RG_NR.INCREASE_RGNR() ' SOFORT Speichern, Sonst gibt es wieder eine Doppelvergabe!
'RECHNUNG.[LfdRechnungsNr] = RG_NR.LfdRechnungsNr
If RECHNUNG.SAVE Then
RG_NR.INCREASE_RGNR()
Else
RG_NR.DECREASE_RGNR() ' Bei Fehler --> LfdRgNr um eins mindern.
Return False
End If