keine Fehlermeldung bei Nichtveragbe von RechnungsNr bei Vorschau!

SDL/Fakturierung/cFakturierung.vb

@@ -2070,7 +2070,7 @@ Public Class cFakturierung
                     RG.SAVE()
 
 
-                    If Not RG.checkRechnungsNrIsSet() Then
+                    If Not RG.checkRechnungsNrIsSet() AndAlso Not vorschau Then
                         MsgBox("Rechnungsnummer wurde nicht in Datenbank eingetragen" & vbNewLine & "Vorgang wird abgebrochen")
                         Return False
                     Else

SDL/Fakturierung/frmFaktSammelRgDrucken.vb

@@ -260,10 +260,13 @@ Public Class frmFaktSammelRgDrucken
             '-------------- für PDF-Sammel-Rechnung -------------- 
 
             If Not RechnungsNrisSet Then
-                MsgBox("Rechnungsnummer wurde nicht in Datenbank eingetragen" & vbNewLine & "Vorgang wird abgebrochen")
+                initDGV()
+                Me.Enabled = True
+                Me.Cursor = Cursors.Default
                 Exit Sub
             End If
 
+
             If cbxZusammenfassen.Checked Then ' Gibt an, ob mehrere Sammelrechnung zusammengefasst werden sollten
 
                 Select Case ausgabeArt

SDL/kunden/frmKundenUebersichtZollRgDetails.vb

@@ -28,6 +28,7 @@ Public Class frmKundenUebersichtZollRgDetails
         lblOrt.Text = dt("RechnungsOrt").ToString
         lblUID.Text = dt("RechnungsUstIdKz").ToString & " " & dt("RechnungsUstIdNr").ToString
         lblSteuerbetrag.Text = CDbl(dt("ErgSteuerbetrag")).ToString("N2", CultureInfo.CurrentCulture)
+        lblAbfDat.Text = dt("Abfertigungsdatum").ToString
 
         lblAbfNr.Text = dt("FilialenNr").ToString & " " & dt("AbfertigungsNr").ToString
         filialeTmp = dt("FilialenNr").ToString