AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Jonathan Jenne 2020-03-17 17:05:41 +01:00
parent efade78579
commit a46809ae24
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb
View File

@ -778,8 +778,11 @@ Public Class ImportZUGFeRDFiles
End Try End Try
End If End If
' Filter out Attachments from `Files`
Dim oInvoiceFiles As List(Of FileInfo) = Files.Except(AttachmentFiles).ToList()
' Move PDF/A Files ' Move PDF/A Files
For Each oFile In Files For Each oFile In oInvoiceFiles
Try Try
Dim oFileName = _filesystem.GetVersionedFilename(Path.Combine(oFinalMoveDirectory, oFile.Name)) Dim oFileName = _filesystem.GetVersionedFilename(Path.Combine(oFinalMoveDirectory, oFile.Name))