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

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

@@ -91,10 +91,13 @@ Public Class cFinanzOnlineWebService
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 multiUID = False
If AD IsNot Nothing Then
If AD.UstIdKz IsNot Nothing AndAlso AD.UstIdNr IsNot Nothing Then
Try
If AskIfDouble Then
If IsDate(AD.UstIdGeprüft) AndAlso CDate(AD.UstIdGeprüft).ToShortDateString = Now.ToShortDateString Then
@@ -131,6 +134,8 @@ Public Class cFinanzOnlineWebService
If returnInt = 0 Or returnInt = 1 Then
If Stufe = 1 AndAlso returnInt = 0 Then multiUID = AD.getUIDMehrfachverwendung() 'nur bei Stufe 1 und bei gültigen Prüfungen!!!
Dim UID_TMP As New VERAG_PROG_ALLGEMEIN.cUIDPruefung
UID_TMP.uid_Datum = Now
@@ -140,7 +145,6 @@ Public Class cFinanzOnlineWebService
UID_TMP.uid_valid = (returnInt = 0)
UID_TMP.uid_KundenNr = ba_KundenNr
UID_TMP.uid_UstIdKz = countryCode
UID_TMP.uid_UstIdNr = vatNumber
@@ -159,7 +163,56 @@ Public Class cFinanzOnlineWebService
UID_TMP.uid_stufe = Stufe
UID_TMP.SAVE()
If (returnInt = 0) Then 'OK
If multiUID Then
Dim dt_multiUID As DataTable = AD.getDTUIDMehrfachverwendung(AD.AdressenNr)
If dt_multiUID.Rows.Count > 0 Then
For Each adresse As DataRow In dt_multiUID.Rows
Dim UID_TMP_new As New VERAG_PROG_ALLGEMEIN.cUIDPruefung
Dim AD_new As New cAdressen(adresse.Item("KundenNr"))
UID_TMP_new.uid_Datum = Now
UID_TMP_new.uid_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
If If(UID_TMP_new.uid_Sachbearbeiter, "") = "" Then UID_TMP_new.uid_Sachbearbeiter = "AUTO"
UID_TMP_new.uid_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
UID_TMP_new.uid_valid = (returnInt = 0)
UID_TMP_new.uid_KundenNr = AD_new.AdressenNr
UID_TMP_new.uid_UstIdKz = countryCode
UID_TMP_new.uid_UstIdNr = vatNumber
UID_TMP_new.Firma = If(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, "VERAG")
UID_TMP_new.uid_abfrageUid = uid
UID_TMP_new.uid_sessionId = tmp_SESSION_ID
UID_TMP_new.uid_firma = name
UID_TMP_new.uid_adr1 = adrz1
UID_TMP_new.uid_adr2 = adrz2
UID_TMP_new.uid_adr3 = adrz3
UID_TMP_new.uid_adr4 = adrz4
UID_TMP_new.uid_adr5 = adrz5
UID_TMP_new.uid_adr6 = adrz6
UID_TMP_new.uid_stufe = Stufe
UID_TMP_new.SAVE()
If (UID_TMP.uid_valid) Then 'OK
If SaveErgInAdressen Then
AD_new.UstIdGeprüft = Now.ToShortDateString
AD_new.SAVE()
End If
End If
Next
End If
End If
If (returnInt = 0) Then 'OK
If SaveErgInAdressen Then
AD.UstIdGeprüft = Now.ToShortDateString
AD.SAVE()