Kunden, Zollauswertung, MDM, eRechnung (aktuell noch deaktiviert!)

VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb

@@ -7,6 +7,7 @@ Imports System.Text.RegularExpressions
 Imports System.Windows.Forms
 Imports iTextSharp.text.pdf
 Imports Spire.Pdf
+Imports Spire.Pdf.Attachments
 Imports Spire.Pdf.Print
 
 
@@ -2267,6 +2268,28 @@ Public Class DATENVERVER_OPTIONS
         Return ""
     End Function
 
+
+    Public Shared Function addAttachementToPDF(File As String, attPath As String) As String
+        Try
+
+            Dim pdf As New Spire.Pdf.PdfDocument()
+
+            Dim docPdf As Spire.Pdf.PdfDocument = New Spire.Pdf.PdfDocument()
+            docPdf.LoadFromFile(File)
+
+            Dim attachment As PdfAttachment = New PdfAttachment(attPath)
+
+            docPdf.Attachments.Add(attachment)
+            docPdf.SaveToFile(File)
+
+            Return File
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return ""
+    End Function
+
     Public Shared Function getFileExtensionFromBase64String(base64 As String) As String
 
         Dim list As List(Of KeyValuePair(Of String, String)) = New List(Of KeyValuePair(Of String, String))