AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

zugferdtest: fix test form

Browse Source
This commit is contained in:
Jonathan Jenne 2023-06-21 13:13:04 +02:00
parent 36326ba644
commit 374b1961e2
1 changed files with 32 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
GUIs.Test.ZUGFeRDTest/Form1.vb
View File

@ -126,10 +126,11 @@ Public Class Form1
Dim oArgs As New WorkerArgs()
oArgs = LoadPropertyMapFor(oArgs)
Try
If oDialogResult = DialogResult.OK Then
Dim oDoc = _zugferd.ValidateZUGFeRDFileWithGDPicture(OpenFileDialog1.FileName)
Dim oResult = _zugferd.SerializeZUGFeRDDocument(oDoc)
oResult = _zugferd.ValidateZUGFeRDDocument(oResult)
Dim oResult = _zugferd.ValidateZUGFeRDDocument(oDoc)
oResult = _zugferd.SerializeZUGFeRDDocument(oDoc)
WriteLog("Specification: " & oResult.Specification)
WriteLog("Embedded File Name: " & oResult.DataFileName)
@ -158,6 +159,10 @@ Public Class Form1
WriteLog("--------------------------------")
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click