AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fix numbering of group counts

Browse Source
This commit is contained in:
Jonathan Jenne 2019-06-17 14:54:41 +02:00
parent 0878c02ace
commit d3d669cf3a
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb
View File

@ -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