From cd0e9a21f6dcfbe7473e2d040c6eee3a4de9f4db Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Mon, 12 Jun 2023 13:52:10 +0200
Subject: [PATCH] =?UTF-8?q?UID-Pr=C3=BCfung=20(Mehrfachabfragen=20derselbe?=
 =?UTF-8?q?n=20UID=20wird=20nun=20unterbunden).?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb | 46 +++++++++++++++-----
 1 file changed, 36 insertions(+), 10 deletions(-)

diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb b/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb
index 448aa28c..99d01004 100644
--- a/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb
@@ -1,6 +1,7 @@
 
 Imports System.Data.SqlClient
 Imports System.Reflection
+Imports System.Threading
 Imports VERAG_PROG_ALLGEMEIN.UIDPruefung
 'Imports SDL.eu.europa.ec
 
@@ -183,6 +184,10 @@ Public Class cUIDPruefung
             d.ColumnName = "Error-Code"
             dt.Columns.Add(d)
 
+            Dim e As New DataColumn
+            e.ColumnName = "Error-Text"
+            dt.Columns.Add(e)
+
 
             '------------------------------------------------
             'ENTWEDER ÜBER EU-KOMISSION ODER FINANZONLINE::::
@@ -215,26 +220,47 @@ Public Class cUIDPruefung
 
                         For Each r As DataRow In dt.Rows
 
-                            counter += 1
+                            If IsDBNull(r("Ergebnis")) Then
 
-                            Dim errorCode = -99
-                            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"
+                                counter += 1
+                                Dim errorCode = -99
+                                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"
+
+                                        For Each row As DataRow In dt.Select("UstIdnr = '" & r("UstIdnr") & "'")
+                                            row("Ergebnis") = r("Ergebnis")
+                                        Next
+
+                                    Else
+                                        r("Ergebnis") = "UNGÜLTIG"
+                                        For Each row As DataRow In dt.Select("UstIdnr = '" & r("UstIdnr") & "'")
+                                            row("Ergebnis") = r("Ergebnis")
+                                        Next
+                                    End If
                                 Else
-                                    r("Ergebnis") = "UNGÜLTIG"
+                                    r("Ergebnis") = "ERROR"
+                                    r("Error-Code") = errorCode.ToString()
+                                    r("Error-Text") = FO.GetCodeText(errorCode)
+
+                                    For Each row As DataRow In dt.Select("UstIdnr = '" & r("UstIdnr") & "'")
+                                        row("Ergebnis") = r("Ergebnis")
+                                        row("Error-Code") = r("Error-Code")
+                                        row("Error-Text") = r("Error-Text")
+                                    Next
+
                                 End If
-                            Else
-                                r("Ergebnis") = "ERROR"
-                                r("Error-Code") = errorCode.ToString()
+
                             End If
 
                             If counter Mod 100 = 0 Then
                                 FO.Call_Web_Service_MethodUID_Logout_NEU2020()
+                                Thread.Sleep(2000)
                                 FO.Call_Web_Service_MethodUID_Login_NEU2020()
                             End If
 
+
                         Next
 
                         FO.Call_Web_Service_MethodUID_Logout_NEU2020()