update ZUGFERD Test

This commit is contained in:
Jonathan Jenne 2023-10-13 09:45:09 +02:00
parent 76ab452b3f
commit e86d2cde44

View File

@ -27,7 +27,7 @@ Public Class Form1
_logger = _logConfig.GetLogger()
_mssql = New MSSQLServer(_logConfig, My.Settings.MSSQL_CONNECTIONSTRING)
_zugferd = New ZUGFeRDInterface(_logConfig, "21182889975216572111813147150675976632")
_zugferd = New ZUGFeRDInterface(_logConfig, "21182889975216572111813147150675976632", New ZUGFeRDInterface.ZugferdOptions)
End Sub
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
Dim oDialogResult = OpenFileDialog1.ShowDialog()
Dim oArgs As New WorkerArgs()
Dim oArgs As New WorkerArgs() With {
.AllowFacturX = False,
.AllowXRechnung = False
}
oArgs = LoadPropertyMapFor(oArgs)
Try