Prüfung bei Rechnungsdruck ob ReNr in DB gespeichert wurde, ansonsten abbruch!

SDL/Fakturierung/cFakturierung.vb

@@ -1315,7 +1315,7 @@ Public Class cFakturierung
                             Return False
                         End If
                     Else
-                        MsgBox("Fehler: Kein Rechnugsempfänger gefunden!")
+                        MsgBox("Fehler: Kein Rechnungsempfänger gefunden!")
                         Return False
                     End If
                 Else
@@ -1325,6 +1325,10 @@ Public Class cFakturierung
                     End If
                 End If
 
+                If Not RECHNUNG.checkRechnungsNrIsSet() Then
+                    MsgBox("Rechnungsnummer wurde nicht in Datenbank eingetragen" & vbNewLine & "Vorgang wird abgebrochen")
+                    Return False
+                End If
 
                 'Rechnugnsdruck  =  Individuell für deise Rechnung, wird optional mitgegeben
                 ' Dim RG_Bezeichnung = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "_Rechnung_" & If(RECHNUNG.RechnungsNr, "") & ".pdf"
@@ -1450,7 +1454,7 @@ Public Class cFakturierung
                             End If
 
                         Catch ex As Exception
-                            MsgBox("Fehler bim Öffnen des Mail-Programmes. PDF wird geladen!")
+                            MsgBox("Fehler beim Öffnen des Mail-Programmes. PDF wird geladen!")
                             Process.Start(tmpPath)
                         End Try
                         rpt.Dispose()
@@ -2065,7 +2069,14 @@ Public Class cFakturierung
                     End If
                     RG.SAVE()
 
-                    found = True
+
+                    If Not RG.checkRechnungsNrIsSet() Then
+                        MsgBox("Rechnungsnummer wurde nicht in Datenbank eingetragen" & vbNewLine & "Vorgang wird abgebrochen")
+                        Return False
+                    Else
+                        found = True
+                    End If
+
                 End If
             Next
 
@@ -2076,6 +2087,7 @@ Public Class cFakturierung
                 If path <> "" Then listPDFs.Add(path)
             End If
             lastAktuelle_RgNr = Aktuelle_RgNr
+
         Catch ex As Exception
             MsgBox(ex.Message & ex.StackTrace)
         End Try