UID Pruef 1x/Min, Aviso Anhänge markierte drucken
This commit is contained in:
@@ -148,7 +148,7 @@ Public Class cUIDPruefung
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Function doUIDPruefungALL(Optional datum As Object = Nothing, Optional SaveErgInAdressen As Boolean = True, Optional Sciherheitsabfrage As Boolean = True, Optional MaxEintraege As Integer = -1, Optional showErr As Boolean = True, Optional finanzOnline As Boolean = True) As DataTable
|
||||
Public Shared Function doUIDPruefungALL(Optional datum As Object = Nothing, Optional SaveErgInAdressen As Boolean = True, Optional Sciherheitsabfrage As Boolean = True, Optional MaxEintraege As Integer = -1, Optional showErr As Boolean = True, Optional finanzOnline As Boolean = True, Optional veroegerungMs As Integer = 1000) As DataTable
|
||||
Dim dt As DataTable = Nothing
|
||||
If datum = Nothing Then datum = CDate("15." & Now.ToString("MM.yyyy")).AddMonths(-1)
|
||||
|
||||
@@ -268,6 +268,9 @@ Public Class cUIDPruefung
|
||||
FO.Call_Web_Service_MethodUID_Login_NEU2020()
|
||||
End If
|
||||
|
||||
If veroegerungMs > 0 Then
|
||||
Thread.Sleep(veroegerungMs) 'Bei Verögeung soll zwischen jeder Abfrage eine Pause gemacht werden! (Wegen Sperre bei zu vielen Abfragen)
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
|
||||
Reference in New Issue
Block a user