From b1a481d56eec768fcc7d103094d727c13b84e69c Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Fri, 13 Oct 2023 13:59:29 +0200
Subject: [PATCH] keine Fehlermeldung bei Nichtveragbe von RechnungsNr bei
 Vorschau!

---
 SDL/Fakturierung/cFakturierung.vb              | 2 +-
 SDL/Fakturierung/frmFaktSammelRgDrucken.vb     | 5 ++++-
 SDL/kunden/frmKundenUebersichtZollRgDetails.vb | 1 +
 3 files changed, 6 insertions(+), 2 deletions(-)

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