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

fix syska

Browse Source
This commit is contained in:
d.breimaier
2026-10-08 09:31:21 +02:00
parent e5b9ce0d44
commit 016e1ecb1f
1 changed files with 20 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -8207,7 +8207,7 @@ repeatRequest:
Dim DateString = " CONVERT(DATE, GETDATE())" Dim DateString = " CONVERT(DATE, GETDATE())"
Dim top As String = "" Dim top As String = ""
If InvoicesUntilYesterday Then If InvoicesUntilYesterday Then
top = " top(500) " top = " top(250) "
DateString = "CONVERT(DATE, DATEADD(DAY, -1, GETDATE()))" DateString = "CONVERT(DATE, DATEADD(DAY, -1, GETDATE()))"
End If End If
@@ -8254,10 +8254,13 @@ repeatRequest:
Dim arguments = Paramslist.GET_PARAMETER_VALUE("ZUGFeRD_Check_Pfad_CMD") Dim arguments = Paramslist.GET_PARAMETER_VALUE("ZUGFeRD_Check_Pfad_CMD")
Dim errorCounter = 0 Dim errorCounter = 0
Dim pathCounter = 0
Dim CounterRows = 0
For Each row In dt.Rows For Each row In dt.Rows
Dim rkObj As Object = row("RK_ID") Dim rkObj As Object = row("RK_ID")
Dim dsObj As Object = row("dsId") Dim dsObj As Object = row("dsId")
@@ -8268,11 +8271,12 @@ repeatRequest:
If Integer.TryParse(rkObj.ToString(), rkId) AndAlso Integer.TryParse(dsObj.ToString(), dsId) AndAlso dsId > 0 Then If Integer.TryParse(rkObj.ToString(), rkId) AndAlso Integer.TryParse(dsObj.ToString(), dsId) AndAlso dsId > 0 Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dsId)
Dim Path As String = DS.GET_TOP1_PATH()
If Path <> "" And System.IO.File.Exists(Path) Then
pathCounter += 1 Dim Path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dsId)
CounterRows += 1
If Path <> "" AndAlso System.IO.File.Exists(Path) Then
Try Try
@@ -8523,7 +8527,7 @@ repeatRequest:
sumInvalid_Total = sumInvalid_VERAG + sumInvalid_ATILLA + sumInvalid_AMBAR + sumInvalid_360 + sumInvalid_CS + sumInvalid_IMEX + sumInvalid_US sumInvalid_Total = sumInvalid_VERAG + sumInvalid_ATILLA + sumInvalid_AMBAR + sumInvalid_360 + sumInvalid_CS + sumInvalid_IMEX + sumInvalid_US
sumvalid_Total = sumvalid_VERAG + sumvalid_ATILLA + sumvalid_AMBAR + sumvalid_360 + sumvalid_CS + sumvalid_IMEX + sumvalid_US sumvalid_Total = sumvalid_VERAG + sumvalid_ATILLA + sumvalid_AMBAR + sumvalid_360 + sumvalid_CS + sumvalid_IMEX + sumvalid_US
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfanegerALL, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " ALL", createMailTextZugferd(sumTotal_Total, sumvalid_Total, sumInvalid_Total, "ALL", dt.Rows.Count & "/" & pathCounter), getAbsenderEmail(), True, False) VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfanegerALL, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " ALL", createMailTextZugferd(sumTotal_Total, sumvalid_Total, sumInvalid_Total, "ALL", dt.Rows.Count & "/" & CounterRows), getAbsenderEmail(), True, False)
End If End If
End If End If
@@ -8575,7 +8579,7 @@ repeatRequest:
End Select End Select
checkZugferd(sendNotificationEmails, False) checkZugferd(sendNotificationEmails, True)
End Sub End Sub
Private Sub LinkLabel54_LinkClicked_2(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel54.LinkClicked Private Sub LinkLabel54_LinkClicked_2(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel54.LinkClicked