From 70134c898a983e6375cba1912ab62cd171fd9029 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 28 Jan 2025 18:27:54 +0100 Subject: [PATCH] Fakt MDM --- SDL/seriendruck/usrCntlFakturierung.vb | 24 +++++++++++++++--------- 1 file changed, 15 insertions(+), 9 deletions(-) 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