From dbd49953876be40e5de5234b16493519455c14de Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Tue, 22 Sep 2026 08:10:35 +0200
Subject: [PATCH] fix Sammelrechnung

---
 SDL/seriendruck/usrCntlFakturierung.vb | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/SDL/seriendruck/usrCntlFakturierung.vb b/SDL/seriendruck/usrCntlFakturierung.vb
index 5851d7d7..2c97dc2b 100644
--- a/SDL/seriendruck/usrCntlFakturierung.vb
+++ b/SDL/seriendruck/usrCntlFakturierung.vb
@@ -1128,7 +1128,15 @@ Public Class usrcntlFakturierung
                 Return False
             End If
 
-            Dim dtSammelRechnugen_EZB = dtSammelRechnugen.Select("FilialenNr = 8001 and OffertenNr = 95").CopyToDataTable()
+            Dim dtSammelRechnugen_EZB As DataTable
+
+            Dim rows = dtSammelRechnugen.Select("FilialenNr = 8001 AND OffertenNr = 95")
+
+            If rows.Length > 0 Then
+                dtSammelRechnugen_EZB = rows.CopyToDataTable()
+            Else
+                dtSammelRechnugen_EZB = dtSammelRechnugen.Clone()
+            End If
 
             If dtSammelRechnugen_EZB.Rows.Count = 0 Then
                 MsgBox("Keine Rechnungen der Filiale 8001 für die Anlage der ZNB-Berichte gefunden!" & vbNewLine & "Vorgang wird abgebrochen.")