fix syska

initATLASAufschubkonten/frmStartOptions.vb

@@ -8207,7 +8207,7 @@ repeatRequest:
         Dim DateString = " CONVERT(DATE, GETDATE())"
             Dim top As String = ""
             If InvoicesUntilYesterday Then
-                top = " top(500) "
+                top = " top(250) "
                 DateString = "CONVERT(DATE, DATEADD(DAY, -1, GETDATE()))"
         End If
 
@@ -8254,10 +8254,13 @@ repeatRequest:
         Dim arguments = Paramslist.GET_PARAMETER_VALUE("ZUGFeRD_Check_Pfad_CMD")
 
             Dim errorCounter = 0
-            Dim pathCounter = 0
+
+            Dim CounterRows = 0
 
             For Each row In dt.Rows
 
+
+
                 Dim rkObj As Object = row("RK_ID")
                 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
 
-                        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
 
@@ -8523,7 +8527,7 @@ repeatRequest:
                     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
 
-                        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
@@ -8575,7 +8579,7 @@ repeatRequest:
 
         End Select
 
-        checkZugferd(sendNotificationEmails, False)
+        checkZugferd(sendNotificationEmails, True)
     End Sub
 
     Private Sub LinkLabel54_LinkClicked_2(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel54.LinkClicked