From 011b78472b4b172d45bad72b8f0e45b6649c3e6a Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Thu, 12 Oct 2023 13:29:51 +0200 Subject: [PATCH] einmal mit profis --- Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb b/Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb index 83f89f44..762ff3ec 100644 --- a/Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb +++ b/Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb @@ -168,7 +168,7 @@ Public Class ImportZUGFeRDFiles For Each oFile In oFileGroupFiles Dim oResult As ProcessFileResult = ProcessFile(oMessageId, oEmailDataBase, oZUGFeRDCount, oFile, oConnections, oArgs) - If oResult.ZugferdFileFound = False Then + If oResult.ZugferdFileFound = True Then _logger.Debug("Zugferd File found") oMD5CheckSum = oResult.MD5Checksum oZUGFeRDCount = oResult.ZugferdFileCount @@ -478,6 +478,7 @@ Public Class ImportZUGFeRDFiles ' Since extraction went well, increase the amount of ZUGFeRD files pZugferdFiles += 1 + _logger.Info("Zugferd file found. Increasing counter.") ' Extract all attachments with the extensions specified in `AllowedExtensions`. ' If you need to extract and use embedded xml files, you need to filter out the zugferd-invoice.xml yourself. @@ -533,7 +534,7 @@ Public Class ImportZUGFeRDFiles oResult.ZugferdFileFound = True oResult.MD5Checksum = oMD5Checksum - oResult.ZugferdFileCount = pZugferdFiles + 1 + oResult.ZugferdFileCount = pZugferdFiles Return oResult