This commit is contained in:
2025-10-02 09:14:03 +02:00
parent c402a240c6
commit 610008089b

View File

@@ -6487,7 +6487,7 @@ repeatRequestDaily:
End If
If totalPages > 1 Then
For i = 2 To totalPages
For i = 2 To totalPages
repeatRequestDailyPages:
APIText = cs.getCompanyEvents(companyDummy, dtMonitoredRequest, False, totalPages, checkDate, upateKunden, False,, setzeKundenbesonderheiten, True,, i)
If APIText.Contains("Invalid token") Then
@@ -6501,15 +6501,15 @@ repeatRequestDailyPages:
End If
Next
End If
Exit Sub
End If
Exit Sub
End If
Dim dtRechnungen As DataTable = (New SQL).loadDgvBySql("select distinct(RechnungsKundenNr) from Rechnungsausgang where cast(RechnungsDatum as Date) >= ' " & Today().AddYears(-1) & "' ", "FMZOLL")
Dim dtCreditsafe As DataTable = (New SQL).loadDgvBySql(creditsave, "FMZOLL")