diff --git a/SDL/seriendruck/usrCntlFakturierung.vb b/SDL/seriendruck/usrCntlFakturierung.vb index c7cb0d9e..10fe0543 100644 --- a/SDL/seriendruck/usrCntlFakturierung.vb +++ b/SDL/seriendruck/usrCntlFakturierung.vb @@ -1017,21 +1017,27 @@ Public Class usrcntlFakturierung Dim pathPDF = listPDFs(0).ToString - If listPDFs.Count > 1 Then - Dim pathPDFMerge = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("MDM_Sammelrechnung.pdf", ".pdf", False, False) - If Not FormularManagerNEU.MergePdfFiles(listPDFs, pathPDFMerge) Then - Exit Sub - MsgBox("Fehler beim Zusammenführen der PDFs.") - End If - + If listPDFs.Count > 1 Then + Dim pathPDFMerge = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("MDM_Sammelrechnung.pdf", ".pdf", False, False) + If Not FormularManagerNEU.MergePdfFiles(listPDFs, pathPDFMerge) Then + Exit Sub + MsgBox("Fehler beim Zusammenführen der PDFs.") + Else + Process.Start(pathPDFMerge) End If + Else + Process.Start(pathPDF) + + End If + pbPloseAnh_Proz.Value = 100 txtPloseAnh_Einarbeitung.Text = dtSelectedSammelrechnungen.Rows.Count & " / " & dtSelectedSammelrechnungen.Rows.Count lblPloseAnh_Proz.Text = "100.00 %" - Process.Start(pathPDF) - Else + + + Else MsgBox("Datei von " & rechnungsdatum.ToShortDateString & " konnte nicht erstellt werden!") End If