div. Änderungen

SDL/Formulare/KDFormulare/frmFormulare.vb

@@ -6678,21 +6678,32 @@ Public Class FormularManagerNEU
             Dim reader As PdfReader = Nothing
 
 
+
             reader.unethicalreading = True ' Damit geschützte PDFs gelesen werden können... ' PdfReader not opened with owner password
 
+
+            Dim hasPages As Boolean = False
+
             Try
-                document.Open()
+
                 For Each file As String In fileNames
+                    hasPages = False
                     If file.ToUpper.EndsWith(".PDF") Then
                         reader = New PdfReader(file)
 
-                        addAttachmentToCurrentPDF(reader, pdf)
+                        If reader.NumberOfPages > 0 Then
+                            document.Open()
+                            addAttachmentToCurrentPDF(reader, pdf)
 
-                        pdf.AddDocument(reader)
-                        reader.Close()
+                            pdf.AddDocument(reader)
+                            reader.Close()
+                            hasPages = True
+                        End If
 
                     End If
                 Next
+
+
             Catch __unusedException1__ As Exception
                 MsgBox(__unusedException1__.Message & __unusedException1__.StackTrace)
                 merged = False
@@ -6702,8 +6713,13 @@ Public Class FormularManagerNEU
 
             Finally
                 If document IsNot Nothing Then
-                    document.Close()
+                    If hasPages Then
+                        document.Close()
+                    Else
+                        document.Dispose()
+                    End If
                 End If
+
             End Try
         End Using