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

Asfinag, UID-Pruefung

Browse Source
This commit is contained in:
d.breimaier
2023-12-13 17:02:49 +01:00
parent 91628e047c
commit fd7942711c
12 changed files with 2026 additions and 170 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb
View File

@@ -229,13 +229,13 @@ Public Class cUIDPruefung
If UID_TMP.uid_valid Then
r("Ergebnis") = "OK"
For Each row As DataRow In dt.Select("UstIdnr = '" & r("UstIdnr") & "'")
For Each row As DataRow In dt.Select("UstIdnr = '" & r("UstIdnr") & "' AND UstIdKz ='" & r("UstIdKz") & "'")
row("Ergebnis") = r("Ergebnis")
Next
Else
r("Ergebnis") = "UNGÜLTIG"
For Each row As DataRow In dt.Select("UstIdnr = '" & r("UstIdnr") & "'")
For Each row As DataRow In dt.Select("UstIdnr = '" & r("UstIdnr") & "' AND UstIdKz ='" & r("UstIdKz") & "'")
row("Ergebnis") = r("Ergebnis")
Next
End If
@@ -244,7 +244,7 @@ Public Class cUIDPruefung
r("Error-Code") = errorCode.ToString()
r("Error-Text") = FO.GetCodeText(errorCode)
For Each row As DataRow In dt.Select("UstIdnr = '" & r("UstIdnr") & "'")
For Each row As DataRow In dt.Select("UstIdnr = '" & r("UstIdnr") & "' AND UstIdKz ='" & r("UstIdKz") & "'")
row("Ergebnis") = r("Ergebnis")
row("Error-Code") = r("Error-Code")
row("Error-Text") = r("Error-Text")