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

UIDPrüfung

Browse Source
This commit is contained in:
d.breimaier
2022-10-31 11:51:00 +01:00
parent ab22b659af
commit 328c278bf6
4 changed files with 23 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.2.2.5")> <Assembly: AssemblyVersion("1.2.2.6")>
<Assembly: AssemblyFileVersion("1.2.2.5")> <Assembly: AssemblyFileVersion("1.2.2.6")>

21
VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb
View File

@@ -149,6 +149,10 @@ Public Class cUIDPruefung
c.ColumnName = "Ergebnis" c.ColumnName = "Ergebnis"
dt.Columns.Add(c) dt.Columns.Add(c)
Dim d As New DataColumn
d.ColumnName = "Error-Code"
dt.Columns.Add(d)
'------------------------------------------------ '------------------------------------------------
'ENTWEDER ÜBER EU-KOMISSION ODER FINANZONLINE:::: 'ENTWEDER ÜBER EU-KOMISSION ODER FINANZONLINE::::
@@ -167,6 +171,7 @@ Public Class cUIDPruefung
End If End If
Else Else
r("Ergebnis") = "ERROR" r("Ergebnis") = "ERROR"
End If End If
Next Next
@@ -175,11 +180,15 @@ Public Class cUIDPruefung
Dim FO As New VERAG_PROG_ALLGEMEIN.cFinanzOnlineWebService Dim FO As New VERAG_PROG_ALLGEMEIN.cFinanzOnlineWebService
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"
FO.initValues() FO.initValues()
Dim counter = 0
If FO.Call_Web_Service_MethodUID_Login_NEU2020() = 0 Then If FO.Call_Web_Service_MethodUID_Login_NEU2020() = 0 Then
For Each r As DataRow In dt.Rows 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 IsNot Nothing Then
If UID_TMP.uid_valid Then If UID_TMP.uid_valid Then
r("Ergebnis") = "OK" r("Ergebnis") = "OK"
@@ -188,9 +197,15 @@ Public Class cUIDPruefung
End If End If
Else Else
r("Ergebnis") = "ERROR" r("Ergebnis") = "ERROR"
r("Error-Code") = errorCode.ToString()
End If 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() FO.Call_Web_Service_MethodUID_Logout_NEU2020()

4
VERAG_PROG_ALLGEMEIN/Schnittstellen/Finanzonline/cFinanzOnlineWebService.vb
View File

@@ -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) Dim AD As New cAdressen(ba_KundenNr)
If AD IsNot Nothing Then If AD IsNot Nothing Then
If AD.UstIdKz IsNot Nothing AndAlso AD.UstIdNr IsNot Nothing Then If AD.UstIdKz IsNot Nothing AndAlso AD.UstIdNr IsNot Nothing Then
@@ -125,7 +125,7 @@ Public Class cFinanzOnlineWebService
End Select End Select
Dim returnInt As Integer = CallWebService.uidAbfrage(tid, benid, SESSION_ID, uid, countryCode & vatNumber, StufeAbf, msg, name, adrz1, adrz2, adrz3, adrz4, adrz5, adrz6) 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 If returnInt = 0 Or returnInt = 1 Then
Dim UID_TMP As New VERAG_PROG_ALLGEMEIN.cUIDPruefung Dim UID_TMP As New VERAG_PROG_ALLGEMEIN.cUIDPruefung

2
VERAG_PROG_ALLGEMEIN/cGesamtsicherheitsReferenz.vb
View File

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