diff --git a/UID/My Project/AssemblyInfo.vb b/UID/My Project/AssemblyInfo.vb index f7b4824..9e7d614 100644 --- a/UID/My Project/AssemblyInfo.vb +++ b/UID/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index f84e622..436110c 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -931,6 +931,13 @@ Public Class frmStartOptions UploadCompaniesToCreditsafe(sync) closeMe() + Case "ZUGFERD_CHECK_DAILY" + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + Dim sendNotificationEmails As Boolean = True + checkZugferd(sendNotificationEmails) + closeMe() + + Case Else 'Nur bei manuellem Start wird der fehler ausgegeben VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW @@ -8143,9 +8150,9 @@ repeatRequest: Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - 'aktuell verwendet Verag360 kein Zugferd und Sammelrechnung 6 geht aktuell noch nicht... + 'aktuell verwendet Verag360 kein Zugferd und Sammelrechnung 6 geht aktuell noch nicht - 29.04.2026 Start der neuen Funktion! - Dim dt As DataTable = SQL.loadDgvBySql("SELECT RK_ID, dsId, Firma_ID, RechnungsNr FROM [Rechnungsausgang] where [zugferdcheck_daid] is null and [zugferdcheck_datetime] is null and dsId is not null and cast(RechnungsDatum as Date) = CONVERT(DATE, GETDATE()) and Sammelrechnung <> 6 and Firma_ID <> 19 ", "FMZOLL", 100, False) + Dim dt As DataTable = SQL.loadDgvBySql("SELECT RK_ID, dsId, Firma_ID, RechnungsNr FROM [Rechnungsausgang] where [zugferdcheck_daid] is null and [zugferdcheck_datetime] is null and dsId is not null and cast(RechnungsDatum as Date) between '29.04.2026' and CONVERT(DATE, GETDATE()) and Sammelrechnung <> 6 and Firma_ID <> 19 ", "FMZOLL", 100, False) Dim sumTotal_IMEX As Integer = 0 Dim sumTotal_VERAG As Integer = 0 @@ -8208,18 +8215,19 @@ repeatRequest: Dim psi As New ProcessStartInfo() + '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.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 & "" - - psi.RedirectStandardOutput = True psi.RedirectStandardError = True psi.UseShellExecute = False