fix Sammelrechnung

2026-09-22 08:10:35 +02:00
parent 118b5a17ae
commit dbd4995387
1 changed files with 9 additions and 1 deletions
--- 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.")