AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ZUGFeRD Service: Abfrage EN16931_ID ergänzt

Browse Source
This commit is contained in:
PitzM 2025-07-07 10:53:41 +02:00
parent aed71268de
commit 7b4d519691
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
GUIs.Test.ZUGFeRDTest/Form1.vb
View File

@ -49,6 +49,7 @@ Public Class Form1
Dim groupScope = oRow.Item("GROUP_SCOPE")
Dim specification = oRow.Item("SPECIFICATION")
Dim oItemType = oRow.Item("ITEM_TYPE")
Dim oEN16931_ID = oRow.Item("EN16931_ID")
Args.PropertyMap.Add(xmlPath, New XmlItemProperty() With {
.Description = description,
@ -58,7 +59,8 @@ Public Class Form1
.IsGrouped = isGrouped,
.GroupScope = groupScope,
.Specification = specification,
.ItemType = oItemType',.XMLPath = xmlPath.Replace(".Value", "")
.ItemType = oItemType,
.EN16931_ID = oEN16931_ID
})
Next

4
Services.ZUGFeRDService/ThreadRunner.vb
View File

@ -185,6 +185,7 @@ Public Class ThreadRunner
Dim oGroupScope = oRow.Item("GROUP_SCOPE")
Dim oSpecification = oRow.Item("SPECIFICATION")
Dim oItemType = oRow.Item("ITEM_TYPE")
Dim oEN16931Value = oRow.Item("EN16931_ID")
pArgs.PropertyMap.Add(oXmlPath, New XmlItemProperty() With {
.Description = oDescription,
@ -195,7 +196,8 @@ Public Class ThreadRunner
.GroupScope = oGroupScope,
.Specification = oSpecification,
.XMLPath = oXmlPath.Replace(".Value", ""),
.ItemType = oItemType
.ItemType = oItemType,
.EN16931_ID = oEN16931Value
})
Next