diff --git a/Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb b/Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb index edae954d..be7cc309 100644 --- a/Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb +++ b/Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb @@ -548,7 +548,7 @@ Public Class ImportZUGFeRDFiles 'Next ' DataTable vorbereiten - Dim oDataTable As DataTable = FillDataTable(pMessageId, oCheckResult, oDocument.Specification) + Dim oDataTable As DataTable = FillDataTable(pMessageId, oCheckResult, oDocument.Specification, oDocument.UsedXMLSchema) ' ColumnList initialisieren Dim oColumnNames As List(Of String) = New List(Of String) From { @@ -578,7 +578,7 @@ Public Class ImportZUGFeRDFiles End Function - Private Function FillDataTable(pMessageId As String, pCheckResult As PropertyValues.CheckPropertyValuesResult, pSpecification As String) As DataTable + Private Function FillDataTable(pMessageId As String, pCheckResult As PropertyValues.CheckPropertyValuesResult, pSpecification As String, pUsedXMLSchema As String) As DataTable Dim oDataTable As DataTable = New DataTable() oDataTable.Columns.Add(New DataColumn("REFERENCE_GUID", GetType(String))) @@ -600,6 +600,17 @@ Public Class ImportZUGFeRDFiles _logger.Debug("Mapping Property [ZUGFERD_SPECIFICATION] with value [{0}]", pSpecification) oDataTable.Rows.Add(oFirstRow) + ' Zweite Zeile enthält das verwendete XML Schema + Dim oSecondRow As DataRow = oDataTable.NewRow() + oSecondRow("REFERENCE_GUID") = pMessageId + oSecondRow("ITEM_DESCRIPTION") = "ZUGFeRDXMLSchema" + oSecondRow("ITEM_VALUE") = pUsedXMLSchema + oSecondRow("GROUP_COUNTER") = 0 + oSecondRow("SPEC_NAME") = "ZUGFERD_XML_SCHEMA" + oSecondRow("IS_REQUIRED") = False + + _logger.Debug("Mapping Property [ZUGFERD_XML_SCHEMA] with value [{0}]", pUsedXMLSchema) + oDataTable.Rows.Add(oSecondRow) For Each oProperty In pCheckResult.ValidProperties