Zugferd-Check

This commit is contained in:
2026-05-05 13:14:59 +02:00
parent fef3150a32
commit b8bf791514

View File

@@ -8190,7 +8190,9 @@ repeatRequest:
Dim dtATILLA As DataTable = dt.Clone()
Dim dt360 As DataTable = dt.Clone()
Dim Paramslist As New cParameterList(VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID)
Dim fileName = Paramslist.GET_PARAMETER_VALUE("ZUGFeRD_Check_Pfad_JAVA")
Dim arguments = Paramslist.GET_PARAMETER_VALUE("ZUGFeRD_Check_Pfad_CMD")
For Each row In dt.Rows
@@ -8213,21 +8215,15 @@ repeatRequest:
Try
Dim psi As New ProcessStartInfo()
psi.FileName = fileName
psi.Arguments = arguments & Path
'Workstation Daniel
'psi.FileName = "C:\Program Files\Eclipse Adoptium\jre-11.0.28.6-hotspot\bin\java.exe"
'psi.Arguments = "-jar ""C:\Users\d.breimaier\Downloads\Mustang-CLI-2.21.0.jar"" --no-notices --action validate --source " & Path & ""
'Server - DEVELOPER
'psi.FileName = "C:\Program Files (x86)\Java\jre1.8.0_491\bin\java.exe"
'psi.Arguments = "-jar ""C:\Verag\Mustang-CLI-2.21.0.jar"" --no-notices --action validate --source " & Path & ""
Dim Paramslist As New cParameterList(VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID)
psi.FileName = Paramslist.GET_PARAMETER_VALUE("ZUGFeRD_Check_Pfad_JAVA")
psi.Arguments = Paramslist.GET_PARAMETER_VALUE("ZUGFeRD_Check_Pfad_CMD") & Path
psi.RedirectStandardOutput = True
psi.RedirectStandardError = True
psi.UseShellExecute = False