From bd03e5b92530132f4b656de13e13776f5678553e Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Tue, 28 Feb 2023 12:55:53 +0100 Subject: [PATCH] ZUGFeRDTest: fix error when file is zugferd10 --- GUIs.Test.ZUGFeRDTest/Form1.vb | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/GUIs.Test.ZUGFeRDTest/Form1.vb b/GUIs.Test.ZUGFeRDTest/Form1.vb index 0cb5925b..c1fc7aef 100644 --- a/GUIs.Test.ZUGFeRDTest/Form1.vb +++ b/GUIs.Test.ZUGFeRDTest/Form1.vb @@ -131,8 +131,14 @@ Public Class Form1 Dim oResult = _zugferd.SerializeZUGFeRDDocument(oDoc) Console.WriteLine() + Dim oSpecification = oResult.Specification + + If oSpecification = ZUGFeRDInterface.ZUGFERD_SPEC_10 Then + oSpecification = ZUGFeRDInterface.ZUGFERD_SPEC_DEFAULT + End If + Dim oPropertyMap = oArgs.PropertyMap. - Where(Function(kv) kv.Value.Specification = oResult.Specification). + Where(Function(kv) kv.Value.Specification = oSpecification). ToDictionary(Function(kv) kv.Key, Function(kv) kv.Value) Dim oResult2 = _zugferd.PropertyValues.CheckPropertyValues(oResult.SchemaObject, oPropertyMap, "test")