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

StartOpt.

Browse Source
This commit is contained in:
d.breimaier
2025-10-02 09:18:17 +02:00
parent 3071728208
commit 9a80117562
4 changed files with 9 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -6444,7 +6444,7 @@ repeatRequestDaily:
If APIText.Contains("Invalid token") Then
If Not cs.authenticate() = 200 Then
API_Start_Daily.UPDTAE_ERR("ERROR", APIText, "importCreditsafeEvents")
API_Start_Daily.UPDTAE_ERR("ERROR", APIText, "dailyImportCreditsafeEvents")
Exit Sub
Else
Thread.Sleep(4000)
@@ -6470,10 +6470,11 @@ repeatRequestDailyPages:
End If
API_Start_Daily.UPDTAE_OK(,, "dailyImportCreditsafeEvents" & " Seiten:" & totalPages & "/" & page)
Exit Sub
Exit Sub
End If
End If
Dim dtRechnungen As DataTable = (New SQL).loadDgvBySql("select distinct(RechnungsKundenNr) from Rechnungsausgang where cast(RechnungsDatum as Date) >= ' " & Today().AddYears(-1) & "' ", "FMZOLL")