add new test function for nodepaths

GUIs.Test.ZUGFeRDTest/Form1.vb

@@ -109,7 +109,11 @@ Public Class Form1
     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
         My.Settings.Save()
         Dim result = checkMD5(txtMD5Checksum.Text)
-        MsgBox("Done")
+        If IsNothing(result) Then
+            MsgBox("Could not calculate MD5 Checksum")
+        Else
+            txtMD5Checksum.Text = result
+        End If
     End Sub
     Public Function checkMD5(ByVal filename As String) As String
         Try
@@ -128,10 +132,29 @@ Public Class Form1
         Catch ex As Exception
             Return Nothing
         End Try
-
     End Function
 
     Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
         Process.Start("\\dd-sto01\DD-STO01-A2\SharedObjects\Public\Projekte\Test\Import\ZUGFerD\Email_in")
     End Sub
+
+    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
+        Dim oResult = OpenFileDialog1.ShowDialog()
+
+        If oResult = DialogResult.OK Then
+            Dim oDoc = _zugferd.ValidateZUGFeRDFile(OpenFileDialog1.FileName)
+            Dim oZUGFERD As CrossIndustryDocumentType = _zugferd.SerializeZUGFeRDDocument(oDoc)
+            Dim oPropName As String = txtPropName.Text
+
+            Try
+                Dim oExtractor = New PropertyValues(_logConfig)
+                Dim oValue As List(Of Object) = oExtractor.GetPropValue(oZUGFERD, oPropName)
+                Dim oFinalValue As List(Of Object) = oExtractor.GetFinalPropValue(oValue)
+                Console.WriteLine()
+
+            Catch ex As Exception
+                MsgBox(ex.Message)
+            End Try
+        End If
+    End Sub
 End Class