From a46809ae24375352915628ff4798cf3fd056be57 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Tue, 17 Mar 2020 17:05:41 +0100 Subject: [PATCH] ZUGFeRD Interface: Fix moving attachments to success folder instead of attachments --- Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb b/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb index 7b8f889f..5f12bfa8 100644 --- 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))