ZUGFeRD Service: Version 2.3.3.0

GUIs.Test.ZUGFeRDTest/Form1.vb

@@ -129,7 +129,9 @@ Public Class Form1
         If oDialogResult = DialogResult.OK Then
             Dim oDoc = _zugferd.ValidateZUGFeRDFileWithGDPicture(OpenFileDialog1.FileName)
             Dim oResult = _zugferd.SerializeZUGFeRDDocument(oDoc)
-            Console.WriteLine()
+
+            WriteLog("Specification: " & oResult.Specification)
+            WriteLog("Embedded File Name: " & oResult.DataFileName)
 
             Dim oSpecification = oResult.Specification
 
@@ -143,11 +145,17 @@ Public Class Form1
 
             Dim oResult2 = _zugferd.PropertyValues.CheckPropertyValues(oResult.SchemaObject, oPropertyMap, "test")
 
+            WriteLog("Valid Properties: [{0}]", oResult2.ValidProperties.Count)
+            For Each Prop In oResult2.ValidProperties
+                WriteLog("Property: [{0}] = [{1}]", Prop.Description, Prop.Value)
+            Next
+
+            WriteLog("Missing Properties: [{0}]", oResult2.MissingProperties.Count)
             For Each Prop In oResult2.MissingProperties
                 WriteLog("Missing Property: [{0}]", Prop)
             Next
 
-            Console.WriteLine()
+            WriteLog("--------------------------------")
         End If
     End Sub
 

Services.ZUGFeRDService/My Project/AssemblyInfo.vb

@@ -13,7 +13,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyCompany("Digital Data")>
 <Assembly: AssemblyProduct("DDZUGFeRDService")>
 <Assembly: AssemblyCopyright("Copyright © 2023")>
-<Assembly: AssemblyTrademark("2.3.2.0")>
+<Assembly: AssemblyTrademark("2.3.3.0")>
 
 <Assembly: ComVisible(False)>
 
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("2.3.2.0")>
-<Assembly: AssemblyFileVersion("2.3.2.0")>
+<Assembly: AssemblyVersion("2.3.3.0")>
+<Assembly: AssemblyFileVersion("2.3.3.0")>