ZUGFeRD Interface: Fix moving attachments to success folder instead of attachments

2020-03-17 17:05:41 +01:00 · 2020-03-17 17:05:41 +01:00 · a46809ae24
commit a46809ae24
parent efade78579
1 changed files with 4 additions and 1 deletions
--- a/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb
+++ b/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb
@ -778,8 +778,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))