UID Pruef 1x/Min, Aviso Anhänge markierte drucken

VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb

@@ -15,6 +15,7 @@ Public Class cAvisoAnhaenge
     Property anh_markiert As Boolean = False
     Property anh_size As Double
     Property anh_cmrId As Integer
+    Property anh_MarkierungDruck As Boolean = False
 
 
     Public hasEntry As Boolean = False
@@ -66,6 +67,7 @@ Public Class cAvisoAnhaenge
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_markiert", anh_markiert))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_size", anh_size))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_cmrId", anh_cmrId))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_MarkierungDruck", anh_MarkierungDruck))
 
         Return list
     End Function
@@ -191,4 +193,9 @@ Public Class cAvisoAnhaenge
         Return (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(sqlstr, "AVISO")
     End Function
 
+    Public Shared Function toggleMarkiereDruck(id As Integer) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
+        Dim sqlstr = " UPDATE [tblAvisoAnhaenge]  SET [anh_MarkierungDruck] = 1 - [anh_MarkierungDruck] WHERE anh_id=" & id
+        Return (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(sqlstr, "AVISO")
+    End Function
+
 End Class

VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb

@@ -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