MDM

VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb

@@ -984,13 +984,16 @@ Public Class cFormularManager
             Dim fi As New IO.DirectoryInfo(path_src)
             Dim destPath = DATENVERVER_OPTIONS.getTMPPath(fi.Name, fi.Extension, True, False)
             Dim pdf As iTextSharp.text.pdf.PdfReader = New iTextSharp.text.pdf.PdfReader(path_src)
+
+            pdf.unethicalreading = True
+
             Using fw As New FileStream(destPath, FileMode.OpenOrCreate)
 
                 Dim stamper = New PdfStamper(pdf, fw)
 
                 Try
                     Dim f = stamper.AcroFields
-                    If f IsNot Nothing Then
+                    If f IsNot Nothing AndAlso f.Fields.Count > 0 Then
                         f.GenerateAppearances = True
                         For Each r In f.Fields
                             Dim key = r.Key.ToString
@@ -1001,7 +1004,7 @@ Public Class cFormularManager
 
                         Next
                     Else
-                        MsgBox("In der Vorlage wurden sind keine ausfühlbaren Felder vorhanden!")
+                        'MsgBox("In der Vorlage wurden sind keine ausfühlbaren Felder vorhanden!")
                     End If