Merge branch 'master' into ZugferdService-Redesign

This commit is contained in:
Jonathan Jenne
2020-03-18 10:19:21 +01:00
2 changed files with 5 additions and 2 deletions

View File

@@ -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))