From b4f812062bf833657cbadc023181ec61eef2676d Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 8 Jun 2026 16:22:59 +0200 Subject: [PATCH] sendungsdet, etc. --- Aviso/frmSendungsdetailsNEU.vb | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index 9953ebf..e5dddd3 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/Aviso/frmSendungsdetailsNEU.vb @@ -4990,15 +4990,22 @@ Public Class frmSendungsdetailsNEU Try Dim files As New List(Of String) ' Dim outputFile As String = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Merge.pdf", ".pdf", True,, "Merge") ' "result.pdf" + Dim counter As Integer = 0 For Each r As DataGridViewRow In dgvAnhang.SelectedRows - If r.Cells("anh_Typ").Value.ToString.ToLower = "pdf" Then files.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value)) + If r.Cells("anh_Typ").Value.ToString.ToLower = "pdf" Then + files.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value)) + counter += 1 + End If Next + VERAG_PROG_ALLGEMEIN.cFormularManager.mergePDFs(files, outputFile) - Process.Start(outputFile) + If outputFile <> "" AndAlso counter > 0 Then + Process.Start(outputFile) + End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)