diff --git a/GUIs.Test.ZUGFeRDTest/Form1.vb b/GUIs.Test.ZUGFeRDTest/Form1.vb index dab5e055..29c79637 100644 --- a/GUIs.Test.ZUGFeRDTest/Form1.vb +++ b/GUIs.Test.ZUGFeRDTest/Form1.vb @@ -109,11 +109,17 @@ Public Class Form1 Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Dim oResult = OpenFileDialog1.ShowDialog() + Dim oArgs As New WorkerArgs() + oArgs = LoadPropertyMapFor(oArgs, "DEFAULT") If oResult = DialogResult.OK Then Dim oDoc = _zugferd.ValidateZUGFeRDFileWithGDPicture(OpenFileDialog1.FileName) Dim oZUGFERD = _zugferd.SerializeZUGFeRDDocument(oDoc) Console.WriteLine() + + Dim oResult2 = _zugferd.PropertyValues.CheckPropertyValues(oZUGFERD, oArgs.PropertyMap, "test") + + Console.WriteLine() End If End Sub