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

ZUGFerdTest: Validate Files with new gdpicture

Browse Source
This commit is contained in:
Jonathan Jenne
2021-03-08 15:34:39 +01:00
parent 504199adc6
commit 526c9c349a
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -100,7 +100,7 @@ Public Class Form1
Dim oResult = OpenFileDialog1.ShowDialog() Dim oResult = OpenFileDialog1.ShowDialog()
If oResult = DialogResult.OK Then If oResult = DialogResult.OK Then
_zugferd.ValidateZUGFeRDFile(OpenFileDialog1.FileName) _zugferd.ValidateZUGFeRDFileWithGDPicture(OpenFileDialog1.FileName)
End If End If
End Sub End Sub
@@ -150,7 +150,7 @@ Public Class Form1
Dim oResult = OpenFileDialog1.ShowDialog() Dim oResult = OpenFileDialog1.ShowDialog()
If oResult = DialogResult.OK Then If oResult = DialogResult.OK Then
Dim oDoc = _zugferd.ValidateZUGFeRDFile(OpenFileDialog1.FileName) Dim oDoc = _zugferd.ValidateZUGFeRDFileWithGDPicture(OpenFileDialog1.FileName)
Dim oZUGFERD As CrossIndustryDocumentType = _zugferd.SerializeZUGFeRDDocument(oDoc) Dim oZUGFERD As CrossIndustryDocumentType = _zugferd.SerializeZUGFeRDDocument(oDoc)
Dim oPropName As String = txtPropName.Text Dim oPropName As String = txtPropName.Text