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()
 

VERAG_PROG_ALLGEMEIN/Schnittstellen/Finanzonline/cFinanzOnlineWebService.vb

@@ -89,7 +89,7 @@ Public Class cFinanzOnlineWebService
 
 
 
-    Function Call_Web_Service_MethodUID_Abfrage_NEU2020(ba_KundenNr, Optional AskIfDouble = False, Optional SaveErgInAdressen = True, Optional showErr = True, Optional Stufe = 1) As VERAG_PROG_ALLGEMEIN.cUIDPruefung
+    Function Call_Web_Service_MethodUID_Abfrage_NEU2020(ba_KundenNr, Optional AskIfDouble = False, Optional SaveErgInAdressen = True, Optional showErr = True, Optional Stufe = 1, Optional ByRef errorCode = 0) As VERAG_PROG_ALLGEMEIN.cUIDPruefung
         Dim AD As New cAdressen(ba_KundenNr)
         If AD IsNot Nothing Then
             If AD.UstIdKz IsNot Nothing AndAlso AD.UstIdNr IsNot Nothing Then
@@ -125,7 +125,7 @@ Public Class cFinanzOnlineWebService
                     End Select
 
                     Dim returnInt As Integer = CallWebService.uidAbfrage(tid, benid, SESSION_ID, uid, countryCode & vatNumber, StufeAbf, msg, name, adrz1, adrz2, adrz3, adrz4, adrz5, adrz6)
-
+                    errorCode = returnInt
                     If returnInt = 0 Or returnInt = 1 Then
 
                         Dim UID_TMP As New VERAG_PROG_ALLGEMEIN.cUIDPruefung

VERAG_PROG_ALLGEMEIN/cGesamtsicherheitsReferenz.vb

@@ -173,7 +173,7 @@ Public Class cGesamtsicherheitsReferenz
         Dim SaldoString As String =
             "select
 
-(select SUM( 
+                (select SUM( 
                     case 
     	                when gs_art = 'Open' then (gs_sicherheitsbetrag * -1)
     	                when gs_art = 'Close' then gs_sicherheitsbetrag