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

ZUGFeRDService: Neues DB-Feld ItemType hinzugefügt

Browse Source
This commit is contained in:
PitzM
2025-01-28 14:37:20 +01:00
parent 45f71e06be
commit 9832dd0381
2 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

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

4
Services.ZUGFeRDService/ThreadRunner.vb
View File

@@ -184,6 +184,7 @@ Public Class ThreadRunner
Dim oIsGrouped = oRow.Item("IS_GROUPED") Dim oIsGrouped = oRow.Item("IS_GROUPED")
Dim oGroupScope = oRow.Item("GROUP_SCOPE") Dim oGroupScope = oRow.Item("GROUP_SCOPE")
Dim oSpecification = oRow.Item("SPECIFICATION") Dim oSpecification = oRow.Item("SPECIFICATION")
Dim oItemType = oRow.Item("ITEM_TYPE")
pArgs.PropertyMap.Add(oXmlPath, New XmlItemProperty() With { pArgs.PropertyMap.Add(oXmlPath, New XmlItemProperty() With {
.Description = oDescription, .Description = oDescription,
@@ -193,7 +194,8 @@ Public Class ThreadRunner
.IsGrouped = oIsGrouped, .IsGrouped = oIsGrouped,
.GroupScope = oGroupScope, .GroupScope = oGroupScope,
.Specification = oSpecification, .Specification = oSpecification,
.XMLPath = oXmlPath.Replace(".Value", "") .XMLPath = oXmlPath.Replace(".Value", ""),
.ItemType = oItemType
}) })
Next Next