Fakt. Druckroutine, Ustva

SDL/Fakturierung/cFakturierung.vb

@@ -9,6 +9,7 @@ Imports GrapeCity.ActiveReports.SectionReportModel
 Imports GrapeCity.ActiveReports
 Imports System.ComponentModel
 Imports VERAG_PROG_ALLGEMEIN.TESTJSON
+Imports System.Web.UI.WebControls.Expressions
 
 Public Class cFakturierung
 
@@ -2960,7 +2961,10 @@ Public Class cFakturierung
 
             Dim Aktuelle_RgNr As Integer = -1
             If Not vorschau Then
-                Aktuelle_RgNr = getNewRgNr(Firma_ID, Buchungsjahr) 'Nimmt die aktuelle RgNr und zählt eine Pos. hoch.
+                If Not MDMRENrvoarhanden Then
+                    Aktuelle_RgNr = getNewRgNr(Firma_ID, Buchungsjahr) 'Nimmt die aktuelle RgNr und zählt eine Pos. hoch. nur wenn keine Vorschau oder keine Re.Nr vergeben!!!
+                End If
+
             End If
 
 
@@ -3027,10 +3031,10 @@ Public Class cFakturierung
                     Else
 
                         If SammelrechungArt = 6 Then
-                            If RechnungsdruckArt = 7 Then
+                            If RechnungsdruckArt = 7 Then 'RechnungsdruckArt = 7 ist die Erstellung per MDM-Sammelabrechnung!
                                 RG.[Status] = 2 'Bei MDM Abrechnung; Druck später!!
                             Else
-                                RG.[Status] = 4 ' Beim finalen Versenden der Sammelrechnung
+                                RG.[Status] = 4 ' Beim finalen Versenden der Sammelrechnung keine neue ReNr vergeben.
                                 If RG.RechnungsNr >= 0 Then Aktuelle_RgNr = RG.RechnungsNr
                             End If