ZUGFeRDTest: update

This commit is contained in:
Jonathan Jenne 2023-06-16 11:56:01 +02:00
parent a4e46d6817
commit ac336ce94d

View File

@ -129,6 +129,7 @@ Public Class Form1
If oDialogResult = DialogResult.OK Then If oDialogResult = DialogResult.OK Then
Dim oDoc = _zugferd.ValidateZUGFeRDFileWithGDPicture(OpenFileDialog1.FileName) Dim oDoc = _zugferd.ValidateZUGFeRDFileWithGDPicture(OpenFileDialog1.FileName)
Dim oResult = _zugferd.SerializeZUGFeRDDocument(oDoc) Dim oResult = _zugferd.SerializeZUGFeRDDocument(oDoc)
oResult = _zugferd.ValidateZUGFeRDDocument(oResult)
WriteLog("Specification: " & oResult.Specification) WriteLog("Specification: " & oResult.Specification)
WriteLog("Embedded File Name: " & oResult.DataFileName) WriteLog("Embedded File Name: " & oResult.DataFileName)