From a57f0c6b9bfcb55ef601e6504f1b3a185c7da716 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Fri, 28 Jun 2019 10:54:25 +0200 Subject: [PATCH] ZUGFeRDImporter: Fix index out of range error --- Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb b/Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb index 1942f890..5c594898 100644 --- a/Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb +++ b/Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb @@ -345,9 +345,11 @@ Public Class ImportZUGFeRDFiles For Each oColumn As KeyValuePair(Of XmlItemProperty, List(Of Object)) In oPropertyList Dim oTableName As String = oColumn.Key.TableName Dim oPropertyDescription As String = oColumn.Key.Description - Dim oPropertyValue = oColumn.Value.Item(oRowIndex) Dim oRowCounter = oRowIndex + oGlobalGroupCounter + 1 + ' Returns nothing if oColumn.Value contains an empty list + Dim oPropertyValue = oColumn.Value.ElementAtOrDefault(oRowIndex) + _logger.Debug("Processing property {0}.", oPropertyDescription) If IsNothing(oPropertyValue) OrElse String.IsNullOrEmpty(oPropertyValue) Then