edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix Sammelrechnung

Browse Source
This commit is contained in:
d.breimaier
2026-09-22 08:10:35 +02:00
parent 118b5a17ae
commit dbd4995387
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
SDL/seriendruck/usrCntlFakturierung.vb
View File

@@ -1128,7 +1128,15 @@ Public Class usrcntlFakturierung
Return False Return False
End If 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 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.") MsgBox("Keine Rechnungen der Filiale 8001 für die Anlage der ZNB-Berichte gefunden!" & vbNewLine & "Vorgang wird abgebrochen.")