From 7b4d5196914748ecfb131b1f17b59c810b247e07 Mon Sep 17 00:00:00 2001 From: pitzm Date: Mon, 7 Jul 2025 10:53:41 +0200 Subject: [PATCH] =?UTF-8?q?ZUGFeRD=20Service:=20Abfrage=20EN16931=5FID=20e?= =?UTF-8?q?rg=C3=A4nzt?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- GUIs.Test.ZUGFeRDTest/Form1.vb | 4 +++- Services.ZUGFeRDService/ThreadRunner.vb | 4 +++- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/GUIs.Test.ZUGFeRDTest/Form1.vb b/GUIs.Test.ZUGFeRDTest/Form1.vb index c0d2a1fc..939ce281 100644 --- a/GUIs.Test.ZUGFeRDTest/Form1.vb +++ b/GUIs.Test.ZUGFeRDTest/Form1.vb @@ -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 diff --git a/Services.ZUGFeRDService/ThreadRunner.vb b/Services.ZUGFeRDService/ThreadRunner.vb index f15c4625..47fa79f8 100644 --- a/Services.ZUGFeRDService/ThreadRunner.vb +++ b/Services.ZUGFeRDService/ThreadRunner.vb @@ -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