diff --git a/DDZUGFeRDService/My Project/AssemblyInfo.vb b/DDZUGFeRDService/My Project/AssemblyInfo.vb index aeefacd3..301b5af9 100644 --- a/DDZUGFeRDService/My Project/AssemblyInfo.vb +++ b/DDZUGFeRDService/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + diff --git a/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb b/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb index 50218135..edb5c686 100644 --- a/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb +++ b/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb @@ -770,8 +770,11 @@ Public Class ImportZUGFeRDFiles End Try End If + ' Filter out Attachments from `Files` + Dim oInvoiceFiles As List(Of FileInfo) = Files.Except(AttachmentFiles).ToList() + ' Move PDF/A Files - For Each oFile In Files + For Each oFile In oInvoiceFiles Try Dim oFileName = _filesystem.GetVersionedFilename(Path.Combine(oFinalMoveDirectory, oFile.Name))