diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb
index 8904d736..3be9c4b8 100644
--- a/SDL/My Project/AssemblyInfo.vb	
+++ b/SDL/My Project/AssemblyInfo.vb	
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.2.2.5")>
-<Assembly: AssemblyFileVersion("1.2.2.5")>
+<Assembly: AssemblyVersion("1.2.2.6")>
+<Assembly: AssemblyFileVersion("1.2.2.6")>
diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb b/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb
index 0dc2e3b8..18720d4d 100644
--- a/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb
+++ b/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()
 
diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/Finanzonline/cFinanzOnlineWebService.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/Finanzonline/cFinanzOnlineWebService.vb
index 3b7efb2d..2f8990cd 100644
--- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/Finanzonline/cFinanzOnlineWebService.vb
+++ b/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
diff --git a/VERAG_PROG_ALLGEMEIN/cGesamtsicherheitsReferenz.vb b/VERAG_PROG_ALLGEMEIN/cGesamtsicherheitsReferenz.vb
index f7336964..ec6eb017 100644
--- a/VERAG_PROG_ALLGEMEIN/cGesamtsicherheitsReferenz.vb
+++ b/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