MS Jobrunner only start when job exists

This commit is contained in:
Developer01
2024-10-11 08:40:00 +02:00
parent b81ac40139
commit 8a208993d9
7 changed files with 34 additions and 31 deletions

View File

@@ -23,7 +23,7 @@ Public Class Form1
_logger = _logConfig.GetLogger()
_mssql = New MSSQLServer(_logConfig, My.Settings.MSSQL_CONNECTIONSTRING)
_zugferd = New ZUGFeRDInterface(_logConfig, "21182889975216572111813147150675976632", New ZUGFeRDInterface.ZugferdOptions)
_zugferd = New ZUGFeRDInterface(_logConfig, "ZuiJA6OdjNXB7Fj_kVP7eoRF9zkM8frhIUa_-Pow6nUY2K1MrYaL0jF9_ppuVSVHuSIXQ201E7gGtpDxV21nByMTgW8VH9qp2w3Ziz2nib048QjknObNOZlx5t7CrhR1BmTVJfvDPQiLcGnRfqQnO03OfVPnIIjHWPs471dZWg79tB-VysgIvH-RmkWVKUPfkn9u5GfKfJ0ybGnQ7v4bKOWFwEnzxmWWouVv3XmUEZRh2lmubbHN9Qb752c486ndLHzjPRPFH2QcevziOcQ3_bEWCnIdqh8y6gpbRFTnXPZqCxlMuLPK-aJLm6ViF2M7EHWDSuThI2FId4zyuTf6-3K0hTw3ntPDCsd0dZW5CKSy0dpH6cDw9tUv_AxMp3UOkx_yo_GQCB273I9zLJae5Z0m5fUrqh3kfQ8pHCU5uDkLVo26NbQdOdX95LKX_RMsmtRYF8FSlj500TMcOMc3dPpqrh6-FA2LMpu86JHzZ2p_80MQ0kxa5chuCDA2z1Lx3CGMa9CAIEJgpCoI-wzSfmAcyeCnWoacV7k_klGci3l-dWbNIr_CPU6yrENhQaBfkqQoIYl5wECbL-WvsuBfRDvHDF0yyw_VoxUJ3hpH_q3mSlMrFuVKQtJcMnz8H81KoYwJn2zbNlCbyg6FH1VMl39UVhB2rB5W4S7llmbqEk4XJbx7Z7Ag5p-bktuwri7Exweq0DWOw85e-kv8T0d8prj2BRMOsDD7_Hjgz7iTgkU5_cS-5qGSWCjDpPRen5rL", New ZUGFeRDInterface.ZugferdOptions)
End Sub
Private Function LoadPropertyMapFor(Args As WorkerArgs)
@@ -48,8 +48,7 @@ Public Class Form1
.IsRequired = isRequired,
.IsGrouped = isGrouped,
.GroupScope = groupScope,
.Specification = specification,
.XMLPath = xmlPath.Replace(".Value", "")
.Specification = specification',.XMLPath = xmlPath.Replace(".Value", "")
})
Next
@@ -130,7 +129,7 @@ Public Class Form1
oResult = _zugferd.SerializeZUGFeRDDocument(oDoc)
WriteLog("Specification: " & oResult.Specification)
WriteLog("XML-Schema: " & oResult.UsedXMLSchema)
'WriteLog("XML-Schema: " & oResult.UsedXMLSchema)
WriteLog("Embedded File Name: " & oResult.DataFileName)
Dim oSpecification = oResult.Specification
@@ -152,7 +151,7 @@ Public Class Form1
WriteLog("Missing Properties: [{0}]", oResult2.MissingProperties.Count)
For Each Prop In oResult2.MissingProperties
WriteLog("Missing Property: [{0}]", Prop.Description)
WriteLog("Missing Property: [{0}]", Prop.ToString) ''Prop.Description
Next
WriteLog("--------------------------------")