Modules.Jobs: Version 2.9.6.0

Jobs/My Project/AssemblyInfo.vb

@@ -13,7 +13,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyCompany("Digital Data")>
 <Assembly: AssemblyProduct("Modules.Jobs")>
 <Assembly: AssemblyCopyright("Copyright © 2025")>
-<Assembly: AssemblyTrademark("2.9.5.0")>
+<Assembly: AssemblyTrademark("2.9.6.0")>
 
 <Assembly: ComVisible(False)>
 
@@ -30,5 +30,5 @@ Imports System.Runtime.InteropServices
 ' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern 
 ' übernehmen, indem Sie "*" eingeben:
 
-<Assembly: AssemblyVersion("2.9.5.0")>
+<Assembly: AssemblyVersion("2.9.6.0")>
-<Assembly: AssemblyFileVersion("2.9.5.0")>
+<Assembly: AssemblyFileVersion("2.9.6.0")>

Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb

@@ -778,23 +778,26 @@ Public Class ImportZUGFeRDFiles
 
             Dim oMimeTypeProperty As ValidProperty = GetIndexProperty(embAttachmentList, groupIndex, "ATTACHMENT_FILE_MIMECODE")
 
-            If oMimeTypeProperty IsNot Nothing AndAlso oMimeTypeProperty.Value IsNot Nothing Then
+            If oMimeTypeProperty IsNot Nothing AndAlso oMimeTypeProperty.Value.IsNotNullOrEmpty() Then
                 oMimeCodeString = oMimeTypeProperty.Value.ToLower()
             Else
-                _logger.Info("Empty MIME-Code! File can not be stored!")
+                _logger.Debug("Empty MIME-Code! File can not be stored!")
                 Continue For
             End If
 
             Dim oFilenameProperty As ValidProperty = GetIndexProperty(embAttachmentList, groupIndex, "ATTACHMENT_FILE_FILENAME")
-            If oFilenameProperty IsNot Nothing Then
+            If oFilenameProperty IsNot Nothing AndAlso oFilenameProperty.Value.IsNotNullOrEmpty() Then
                 oOrgFilename = oFilenameProperty.Value
+            Else
+                _logger.Debug("Empty Filename! File can not be stored!")
+                Continue For
             End If
 
             Dim oBase64ValueProperty As ValidProperty = GetIndexProperty(embAttachmentList, groupIndex, "ATTACHMENT_FILE_VALUE")
-            If oBase64ValueProperty IsNot Nothing Then
+            If oBase64ValueProperty IsNot Nothing AndAlso oBase64ValueProperty.Value.IsNotNullOrEmpty() Then
                 oBase64String = oBase64ValueProperty.Value
             Else
-                _logger.Warn("Empty base64 String")
+                _logger.Error("Empty base64 String! File can not be stored!")
                 Continue For
             End If
 
@@ -803,6 +806,9 @@ Public Class ImportZUGFeRDFiles
             Dim oFileExtension = GetEmbeddedFileExtension(oMimeTypeProperty.Value)
             If oFileExtension.IsNotNullOrEmpty() Then
                 newAttachmentFilename += "." + oFileExtension
+            Else
+                _logger.Warn("No extension found! File can not be stored!")
+                Continue For
             End If
 
             Dim embeddedFilePath = Path.Combine(oOutputPath, newAttachmentFilename)