Zugferd

2025-01-10 15:23:56 +01:00
parent f7099586dd
commit d5a89899d3
4 changed files with 257 additions and 349 deletions
--- a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb
+++ b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb
@@ -2277,10 +2277,14 @@ Public Class DATENVERVER_OPTIONS
            Dim docPdf As Spire.Pdf.PdfDocument = New Spire.Pdf.PdfDocument()
            docPdf.LoadFromFile(File)

-            Dim attachment As PdfAttachment = New PdfAttachment(attPath)
+            If attPath <> "" Then
+
+                Dim attachment As PdfAttachment = New PdfAttachment(attPath)
+
+                docPdf.Attachments.Add(attachment)
+                docPdf.SaveToFile(File)
+            End If

-            docPdf.Attachments.Add(attachment)
-            docPdf.SaveToFile(File)

            Return File