diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index bc1945a..a5859ac 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -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")