From d3d669cf3ad64ac3ed345d90797195f0152d931d Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Mon, 17 Jun 2019 14:54:41 +0200 Subject: [PATCH] fix numbering of group counts --- Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb b/Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb index 96da49a9..cce1a012 100644 --- a/Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb +++ b/Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb @@ -238,6 +238,9 @@ Public Class ImportZUGFeRDFiles For Each oFile In oFileGroupFiles Dim oDocument As CrossIndustryDocumentType + ' Start a global group counter for each file + Dim oGlobalGroupCounter = 0 + ' Clear missing properties for the new file oMissingProperties = New List(Of String) oCurrentFileCount += 1 @@ -372,7 +375,7 @@ Public Class ImportZUGFeRDFiles Dim oTableName As String = oColumn.Key.TableName Dim oPropertyDescription As String = oColumn.Key.Description Dim oPropertyValue = oColumn.Value.Item(oRowIndex) - Dim oRowCounter = oRowIndex + 1 + Dim oRowCounter = oRowIndex + oGlobalGroupCounter + 1 _logger.Debug("Processing property {0}.", oPropertyDescription) @@ -414,6 +417,8 @@ Public Class ImportZUGFeRDFiles _firebird.ExecuteNonQueryWithConnection(oCommand, oConnection, Firebird.TransactionMode.ExternalTransaction, oTransaction) Next Next + + oGlobalGroupCounter += oRowCount Next ' Iterate through default properties