From 52fba2c52b0905d646dd2459956c7f7005d2b730 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Fri, 30 Jul 2021 12:56:31 +0200 Subject: [PATCH] Jobs/ZUGFeRD: Improve Logging --- Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb b/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb index 9141fd73..9ddec0da 100644 --- a/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb +++ b/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb @@ -269,10 +269,16 @@ Public Class ImportZUGFeRDFiles ' - a List of missing properties Dim oCheckResult = _zugferd.PropertyValues.CheckPropertyValues(oDocument, oArgs.PropertyMap, oMessageId) + _logger.Info("Properties checked: [{0}] missing properties / [{1}] valid properties found.", oCheckResult.MissingProperties.Count, oCheckResult.ValidProperties.Count) + If oCheckResult.MissingProperties.Count > 0 Then + _logger.Warn("[{0}] missing properties found. Exiting.", oCheckResult.MissingProperties.Count) oMissingProperties = oCheckResult.MissingProperties Throw New MissingValueException(oFile) End If + + _logger.Debug("No missing properties found. Continuing.") + Dim oDelSQL = $"DELETE FROM TBEDMI_ITEM_VALUE where REFERENCE_GUID = '{oMessageId}'" Dim oStep As String