Add MSSQL Functions to ZUGFeRD Service

ZUGFeRDTest/Form1.Designer.vb

@@ -26,6 +26,7 @@ Partial Class Form1
         Me.Button1 = New System.Windows.Forms.Button()
         Me.ListBox1 = New System.Windows.Forms.ListBox()
         Me.Button2 = New System.Windows.Forms.Button()
+        Me.Button3 = New System.Windows.Forms.Button()
         Me.SuspendLayout()
         '
         'OpenFileDialog1
@@ -58,11 +59,21 @@ Partial Class Form1
         Me.Button2.Text = "Validate Single File"
         Me.Button2.UseVisualStyleBackColor = True
         '
+        'Button3
+        '
+        Me.Button3.Location = New System.Drawing.Point(12, 70)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(221, 23)
+        Me.Button3.TabIndex = 3
+        Me.Button3.Text = "Load Single File"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
         'Form1
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(916, 435)
+        Me.Controls.Add(Me.Button3)
         Me.Controls.Add(Me.Button2)
         Me.Controls.Add(Me.ListBox1)
         Me.Controls.Add(Me.Button1)
@@ -76,4 +87,5 @@ Partial Class Form1
     Friend WithEvents Button1 As Button
     Friend WithEvents ListBox1 As ListBox
     Friend WithEvents Button2 As Button
+    Friend WithEvents Button3 As Button
 End Class

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