Fakt MDM

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