jj: ZUGFeRD

ZUGFeRDTest/Form1.vb

@@ -0,0 +1,23 @@
+Imports System.Xml
+Imports DigitalData.Modules.Interfaces
+Imports DigitalData.Modules.Logging
+
+Public Class Form1
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Dim logConfig As New LogConfig(LogConfig.PathType.CurrentDirectory)
+        Dim logger = logConfig.GetLogger()
+
+        OpenFileDialog1.Filter = "pdf Dateien|*.pdf"
+        OpenFileDialog1.Multiselect = False
+
+        Dim oFDialogResult As DialogResult = OpenFileDialog1.ShowDialog()
+        Dim zugferd As ZUGFeRDInterface = New ZUGFeRDInterface(logConfig)
+
+        If oFDialogResult = DialogResult.OK Then
+            Dim xml As XmlDocument = zugferd.ExtractXMLFile(OpenFileDialog1.FileName)
+
+            MsgBox("YAY!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!")
+        End If
+
+    End Sub
+End Class