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

Improve ZUGFeRD Test

Browse Source
This commit is contained in:
Jonathan Jenne 2023-03-02 14:21:29 +01:00
parent d8bc87fd24
commit 573912ced5
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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