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)