ZUGFeRDTest: Add direct validation

ZUGFeRDTest/Form1.vb

@@ -11,6 +11,7 @@ Imports DigitalData.Modules.Logging
 Public Class Form1
     Private _logConfig As LogConfig
     Private _firebird As Firebird
+    Private _zugferd As ZUGFeRDInterface
 
     Private PropertyMap As New Dictionary(Of String, XmlItemProperty)
 
@@ -19,6 +20,8 @@ Public Class Form1
         _logConfig = New LogConfig(LogConfig.PathType.CurrentDirectory)
         _logConfig.Debug = True
         _firebird = New Firebird(_logConfig, My.Settings.FB_DATASOURCE, My.Settings.FB_DATABASE, My.Settings.FB_USER, My.Settings.FB_PASS)
+
+        _zugferd = New ZUGFeRDInterface(_logConfig)
     End Sub
 
     Private Function LoadFolderConfig(args As WorkerArgs)
@@ -78,4 +81,12 @@ Public Class Form1
 
         job.Start(args)
     End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Dim oResult = OpenFileDialog1.ShowDialog()
+
+        If oResult = DialogResult.OK Then
+            _zugferd.ValidateZUGFeRDFile(OpenFileDialog1.FileName)
+        End If
+    End Sub
 End Class