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

ZUGFeRD: Exit early when there are no files to process

Browse Source
This commit is contained in:
Jonathan Jenne 2019-03-13 12:49:17 +01:00
parent edc6d38def
commit e4ba39f19c
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb
View File

@ -131,7 +131,6 @@ Public Class ImportZUGFeRDFiles
End Function
Private Function GroupFiles(Files As List(Of FileInfo)) As Dictionary(Of String, List(Of FileInfo))
Dim oRegex = New Regex("([\w\d]+)_.+")
Dim oGrouped As New Dictionary(Of String, List(Of FileInfo))
If Files.Count = 0 Then
@ -177,7 +176,12 @@ Public Class ImportZUGFeRDFiles
Dim oFileCount = oFiles.Count
Dim oCurrentFileCount = 0
If oFileCount = 0 Then
_logger.Info("No files to process.")
Continue For
Else
_logger.Info("Found {0} files", oFileCount)
End If
' Group files by messageId
Dim oGrouped As Dictionary(Of String, List(Of FileInfo)) = GroupFiles(oFiles)
@ -209,6 +213,7 @@ Public Class ImportZUGFeRDFiles
oMissingProperties = New List(Of String)
oCurrentFileCount += 1
' Only pdf files are allowed from here on
If Not oFile.Name.EndsWith(".pdf") Then
_logger.Debug("Skipping non-pdf file {0}", oFile.Name)
Continue For