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.")