edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Compare commits

base: edv:be348b90023564c7942ff696994307bc70df2fe4
Branches Tags
edv:master edv:ADMIN
...
compare: edv:b8bf7915142123a5056973e53672cd1f9831834f
Branches Tags
edv:ADMIN edv:master

2 Commits
be348b9002 ... b8bf791514

Author SHA1 Message Date
d.breimaier
b8bf791514 Zugferd-Check 2026-05-05 13:14:59 +02:00
d.breimaier
fef3150a32 IDS 2026-05-05 10:47:12 +02:00
1 changed files with 8 additions and 12 deletions
Expand all files Collapse all files

20
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -413,7 +413,7 @@ Public Class frmStartOptions
'---------------------UTA---------------------- '---------------------UTA----------------------
importFileFromUTAMailAnhang(pfad, betreff) importFileFromUTAMailAnhang(pfad, betreff)
ElseIf von.Contains("ids.de@q8.com") Or von.Contains("@ibd.Q8.com") Or von.Contains("isselh@q8.com") Or von.Contains("d.breimaier@verag.ag") Or von.Contains("s.kriegner@verag.ag") Or von.Contains("q8truck.nl@q8.com") Or von.Contains("df@verag.ag") Then ElseIf von.Contains("@q8.com") Or von.Contains("d.breimaier@verag.ag") Or von.Contains("s.kriegner@verag.ag") Or von.Contains("q8truck.nl@q8.com") Or von.Contains("df@verag.ag") Or von.Contains("df@verag.ag") Then
'---------------------IDS---------------------- '---------------------IDS----------------------
importFileFromIDSMailAnhang(pfad, betreff, PARAM) importFileFromIDSMailAnhang(pfad, betreff, PARAM)
@@ -8152,7 +8152,7 @@ repeatRequest:
'aktuell verwendet Verag360 kein Zugferd und Sammelrechnung 6 geht aktuell noch nicht - 29.04.2026 Start der neuen Funktion! '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) between '29.04.2026' and 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_IMEX As Integer = 0
Dim sumTotal_VERAG As Integer = 0 Dim sumTotal_VERAG As Integer = 0
@@ -8190,7 +8190,9 @@ repeatRequest:
Dim dtATILLA As DataTable = dt.Clone() Dim dtATILLA As DataTable = dt.Clone()
Dim dt360 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 For Each row In dt.Rows
@@ -8213,21 +8215,15 @@ repeatRequest:
Try Try
Dim psi As New ProcessStartInfo() Dim psi As New ProcessStartInfo()
psi.FileName = fileName
psi.Arguments = arguments & Path
'Workstation Daniel 'Workstation Daniel
'psi.FileName = "C:\Program Files\Eclipse Adoptium\jre-11.0.28.6-hotspot\bin\java.exe" '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 & "" '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.RedirectStandardOutput = True
psi.RedirectStandardError = True psi.RedirectStandardError = True
psi.UseShellExecute = False psi.UseShellExecute = False