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

update ZUGFERD Test

Browse Source
This commit is contained in:
Jonathan Jenne 2023-10-13 09:45:09 +02:00
parent 76ab452b3f
commit e86d2cde44
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -27,7 +27,7 @@ Public Class Form1
_logger = _logConfig.GetLogger() _logger = _logConfig.GetLogger()
_mssql = New MSSQLServer(_logConfig, My.Settings.MSSQL_CONNECTIONSTRING) _mssql = New MSSQLServer(_logConfig, My.Settings.MSSQL_CONNECTIONSTRING)
_zugferd = New ZUGFeRDInterface(_logConfig, "21182889975216572111813147150675976632") _zugferd = New ZUGFeRDInterface(_logConfig, "21182889975216572111813147150675976632", New ZUGFeRDInterface.ZugferdOptions)
End Sub End Sub
Private Function LoadPropertyMapFor(Args As WorkerArgs) Private Function LoadPropertyMapFor(Args As WorkerArgs)
@ -102,7 +102,10 @@ Public Class Form1
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim oDialogResult = OpenFileDialog1.ShowDialog() Dim oDialogResult = OpenFileDialog1.ShowDialog()
Dim oArgs As New WorkerArgs() Dim oArgs As New WorkerArgs() With {
.AllowFacturX = False,
.AllowXRechnung = False
}
oArgs = LoadPropertyMapFor(oArgs) oArgs = LoadPropertyMapFor(oArgs)
Try Try