Add MSSQL Functions to ZUGFeRD Service

2019-04-05 15:51:42 +02:00
parent caad7eda42
commit 720618f29b
10 changed files with 122 additions and 43 deletions
--- a/ZUGFeRDTest/Form1.vb
+++ b/ZUGFeRDTest/Form1.vb
@@ -90,4 +90,14 @@ Public Class Form1
            _zugferd.ValidateZUGFeRDFile(OpenFileDialog1.FileName)
        End If
    End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        Dim oResult = OpenFileDialog1.ShowDialog()
+
+        If oResult = DialogResult.OK Then
+            Dim oDoc = _zugferd.ValidateZUGFeRDFile(OpenFileDialog1.FileName)
+            Dim oZUGFERD = _zugferd.SerializeZUGFeRDDocument(oDoc)
+            Console.WriteLine()
+        End If
+    End Sub
 End Class