From 06c60f1d9a7ad662f405eb44c61fdc2ac601ce34 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Tue, 19 Jan 2021 17:01:01 +0100
Subject: [PATCH] Jobs/ZUGFeRD: Actually add missing properties to email body

---
 Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb b/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb
index 8415f56f..0ebc0d69 100644
--- a/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb
+++ b/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb
@@ -269,6 +269,7 @@ Public Class ImportZUGFeRDFiles
                                 Dim oCheckResult = _zugferd.PropertyValues.CheckPropertyValues(oDocument, oArgs.PropertyMap, oMessageId)
 
                                 If oCheckResult.MissingProperties.Count > 0 Then
+                                    oMissingProperties = oCheckResult.MissingProperties
                                     Throw New MissingValueException(oFile)
                                 End If
                                 Dim oDelSQL = $"DELETE FROM TBEDMI_ITEM_VALUE where REFERENCE_GUID = '{oMessageId}'"