diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb
index ed68c55d..af07dc0a 100644
--- a/SDL/Fakturierung/cFakturierung.vb
+++ b/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
diff --git a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb
index cddba5e7..520be41a 100644
--- a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb
+++ b/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
diff --git a/SDL/kunden/frmKundenUebersichtZollRgDetails.vb b/SDL/kunden/frmKundenUebersichtZollRgDetails.vb
index 22908110..80f25461 100644
--- a/SDL/kunden/frmKundenUebersichtZollRgDetails.vb
+++ b/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