Creditsafe, Datenserver, Bonit., Kundenuebersicht, etc.

VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb

@@ -2283,7 +2283,7 @@ Public Class DATENVERVER_OPTIONS
     End Function
 
 
-    Public Shared Function addAttachementToPDF(File As String, attPath As String) As String
+    Public Shared Function addAttachementToPDF(File As String, attPath As String, Optional renameFile As String = "") As String
         Try
 
             Dim pdf As New Spire.Pdf.PdfDocument()
@@ -2295,6 +2295,8 @@ Public Class DATENVERVER_OPTIONS
 
                 Dim attachment As PdfAttachment = New PdfAttachment(attPath)
 
+                If renameFile <> "" Then attachment.FileName = renameFile
+
                 docPdf.Attachments.Add(attachment)
                 docPdf.SaveToFile(File)
             End If