edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

UID-Prüfung (Mehrfachabfragen derselben UID wird nun unterbunden).

Browse Source
This commit is contained in:
d.breimaier
2023-06-12 13:52:10 +02:00
parent 090b81ffb5
commit cd0e9a21f6
1 changed files with 36 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb
View File

@@ -1,6 +1,7 @@
 
Imports System.Data.SqlClient Imports System.Data.SqlClient
Imports System.Reflection Imports System.Reflection
Imports System.Threading
Imports VERAG_PROG_ALLGEMEIN.UIDPruefung Imports VERAG_PROG_ALLGEMEIN.UIDPruefung
'Imports SDL.eu.europa.ec 'Imports SDL.eu.europa.ec
@@ -183,6 +184,10 @@ Public Class cUIDPruefung
d.ColumnName = "Error-Code" d.ColumnName = "Error-Code"
dt.Columns.Add(d) dt.Columns.Add(d)
Dim e As New DataColumn
e.ColumnName = "Error-Text"
dt.Columns.Add(e)
'------------------------------------------------ '------------------------------------------------
'ENTWEDER ÜBER EU-KOMISSION ODER FINANZONLINE:::: 'ENTWEDER ÜBER EU-KOMISSION ODER FINANZONLINE::::
@@ -215,26 +220,47 @@ Public Class cUIDPruefung
For Each r As DataRow In dt.Rows For Each r As DataRow In dt.Rows
counter += 1 If IsDBNull(r("Ergebnis")) Then
Dim errorCode = -99 counter += 1
Dim UID_TMP = FO.Call_Web_Service_MethodUID_Abfrage_NEU2020(r("KdNr"),, SaveErgInAdressen, showErr,, errorCode) Dim errorCode = -99
If UID_TMP IsNot Nothing Then Dim UID_TMP = FO.Call_Web_Service_MethodUID_Abfrage_NEU2020(r("KdNr"),, SaveErgInAdressen, showErr,, errorCode)
If UID_TMP.uid_valid Then If UID_TMP IsNot Nothing Then
r("Ergebnis") = "OK" 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 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 End If
Else
r("Ergebnis") = "ERROR"
r("Error-Code") = errorCode.ToString()
End If End If
If counter Mod 100 = 0 Then If counter Mod 100 = 0 Then
FO.Call_Web_Service_MethodUID_Logout_NEU2020() FO.Call_Web_Service_MethodUID_Logout_NEU2020()
Thread.Sleep(2000)
FO.Call_Web_Service_MethodUID_Login_NEU2020() FO.Call_Web_Service_MethodUID_Login_NEU2020()
End If End If
Next Next
FO.Call_Web_Service_MethodUID_Logout_NEU2020() FO.Call_Web_Service_MethodUID_Logout_NEU2020()