UIDPrüfung

VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb

@@ -149,6 +149,10 @@ Public Class cUIDPruefung
             c.ColumnName = "Ergebnis"
             dt.Columns.Add(c)
 
+            Dim d As New DataColumn
+            d.ColumnName = "Error-Code"
+            dt.Columns.Add(d)
+
 
             '------------------------------------------------
             'ENTWEDER ÜBER EU-KOMISSION ODER FINANZONLINE::::
@@ -167,6 +171,7 @@ Public Class cUIDPruefung
                             End If
                         Else
                             r("Ergebnis") = "ERROR"
+
                         End If
                     Next
 
@@ -175,11 +180,15 @@ Public Class cUIDPruefung
                     Dim FO As New VERAG_PROG_ALLGEMEIN.cFinanzOnlineWebService
                     VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"
                     FO.initValues()
-
+                    Dim counter = 0
                     If FO.Call_Web_Service_MethodUID_Login_NEU2020() = 0 Then
 
                         For Each r As DataRow In dt.Rows
-                            Dim UID_TMP = FO.Call_Web_Service_MethodUID_Abfrage_NEU2020(r("KdNr"),, SaveErgInAdressen, showErr)
+
+                            counter += 1
+
+                            Dim errorCode = 0
+                            Dim UID_TMP = FO.Call_Web_Service_MethodUID_Abfrage_NEU2020(r("KdNr"),, SaveErgInAdressen, showErr,, errorCode)
                             If UID_TMP IsNot Nothing Then
                                 If UID_TMP.uid_valid Then
                                     r("Ergebnis") = "OK"
@@ -188,9 +197,15 @@ Public Class cUIDPruefung
                                 End If
                             Else
                                 r("Ergebnis") = "ERROR"
+                                r("Error-Code") = errorCode.ToString()
                             End If
-                        Next
 
+                            If counter Mod 100 = 0 Then
+                                FO.Call_Web_Service_MethodUID_Logout_NEU2020()
+                                FO.Call_Web_Service_MethodUID_Login_NEU2020()
+                            End If
+
+                        Next
 
                         FO.Call_Web_Service_MethodUID_Logout_NEU2020()