div. Änderungen
This commit is contained in:
@@ -255,26 +255,128 @@ Public Class cFinanzOnlineWebService
|
||||
End If
|
||||
|
||||
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
'If returnInt = 0 Then
|
||||
' Firma = name & vbNewLine & adrz1
|
||||
' If adrz2 <> "" Then Firma = Firma & vbNewLine & adrz2
|
||||
' If adrz3 <> "" Then Firma = Firma & vbNewLine & adrz3
|
||||
' If adrz4 <> "" Then Firma = Firma & vbNewLine & adrz4
|
||||
' If adrz5 <> "" Then Firma = Firma & vbNewLine & adrz5
|
||||
' If adrz6 <> "" Then Firma = Firma & vbNewLine & adrz6
|
||||
|
||||
' ' frmUIDCheck.firmaUIDFinanzOnline = firma
|
||||
' ' frmUIDCheck.firmaUIDProgramm = txtFirma
|
||||
' ' frmUIDCheck.uidnr = txtUid
|
||||
' ' frmUIDCheck.Show()
|
||||
Function Call_Web_Service_MethodUID_Abfrage_NEU2020_UIDVeranlagungskunden(kdnr, UstIdKz, UstIdNr, UstIdGeprüft, Optional AskIfDouble = False, Optional SaveErgInAdressen = True, Optional showErr = True, Optional Stufe = 1, Optional ByRef errorCode = 0, Optional ByRef errorMsg = "") As VERAG_PROG_ALLGEMEIN.cUIDPruefung
|
||||
|
||||
|
||||
'Else
|
||||
' MsgBox(GetCodeText(returnInt))
|
||||
'End If
|
||||
' msgErgebnis = msg
|
||||
' Call_Web_Service_MethodUID_Logout_NEU2020()
|
||||
If UstIdKz IsNot Nothing AndAlso UstIdNr IsNot Nothing Then
|
||||
|
||||
Try
|
||||
If AskIfDouble Then
|
||||
If IsDate(UstIdGeprüft) AndAlso CDate(UstIdGeprüft).ToShortDateString = Now.ToShortDateString Then
|
||||
If vbYes <> MsgBox("Die UID-Nummer wurde heute bereits geprüft. Soll die Prüfung nochmal durchgeführt werden?", vbYesNoCancel) Then
|
||||
Return Nothing
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim tmp_SESSION_ID = SESSION_ID
|
||||
Dim CallWebService As New VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.uidAbfrageService
|
||||
|
||||
Dim msg As String = ""
|
||||
Dim name As String = ""
|
||||
Dim adrz1 As String = ""
|
||||
Dim adrz2 As String = ""
|
||||
Dim adrz3 As String = ""
|
||||
Dim adrz4 As String = ""
|
||||
Dim adrz5 As String = ""
|
||||
Dim adrz6 As String = ""
|
||||
Dim countryCode As String = UstIdKz
|
||||
Dim vatNumber As String = UstIdNr
|
||||
|
||||
Dim StufeAbf = VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.uidAbfrageServiceRequestStufe.Item1
|
||||
Select Case Stufe
|
||||
Case 1
|
||||
StufeAbf = VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.uidAbfrageServiceRequestStufe.Item1
|
||||
Case 2
|
||||
StufeAbf = VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.uidAbfrageServiceRequestStufe.Item2
|
||||
End Select
|
||||
|
||||
Dim returnInt As Integer
|
||||
|
||||
Try
|
||||
|
||||
returnInt = CallWebService.uidAbfrage(tid, benid, SESSION_ID, uid, countryCode & vatNumber, StufeAbf, msg, name, adrz1, adrz2, adrz3, adrz4, adrz5, adrz6)
|
||||
If msg <> "" Then errorMsg = " " & msg
|
||||
errorCode = returnInt
|
||||
Catch ex As Exception
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, "Fehler im externen Webservice " & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & " Daten: TID: " & tid & vbNewLine & " BENID: " & benid & vbNewLine & " SessionID: " & SESSION_ID & vbNewLine & " UID: " & uid & vbNewLine & " COUNTRY-CODE/VAT: " & countryCode & vatNumber & vbNewLine & " Stufe: " & StufeAbf & vbNewLine & " MSG: " & msg & vbNewLine & " Name: " & name & vbNewLine & " Adr1: " & adrz1 & vbNewLine & " Adr2: " & adrz2 & vbNewLine & " Adr3: " & adrz3 & vbNewLine & " Adr4: " & adrz4 & vbNewLine & " Adr5: " & adrz5 & vbNewLine & " Adr6: " & adrz6, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
|
||||
|
||||
If ex.Message.Contains("Wegen Wartungsarbeiten") AndAlso ex.Message.Contains("Verf??gung") Then
|
||||
Dim startIndex As Integer = ex.Message.IndexOf("Wegen Wartungsarbeiten")
|
||||
Dim endIndex As Integer = ex.Message.IndexOf("Verf??gung", startIndex)
|
||||
Dim messageError As String = ex.Message.Substring(startIndex, endIndex - startIndex + "Verf??gung".Length)
|
||||
If messageError <> "" Then errorMsg = messageError
|
||||
errorCode = -99
|
||||
|
||||
End If
|
||||
|
||||
Exit Function
|
||||
End Try
|
||||
|
||||
If returnInt = 0 Or returnInt = 1 Then
|
||||
|
||||
Dim UID_TMP As New VERAG_PROG_ALLGEMEIN.cUIDPruefung
|
||||
|
||||
UID_TMP.uid_Datum = Now
|
||||
UID_TMP.uid_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
If If(UID_TMP.uid_Sachbearbeiter, "") = "" Then UID_TMP.uid_Sachbearbeiter = "AUTO"
|
||||
UID_TMP.uid_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
UID_TMP.uid_valid = (returnInt = 0)
|
||||
UID_TMP.uid_KundenNr = kdnr
|
||||
|
||||
UID_TMP.uid_UstIdKz = countryCode
|
||||
UID_TMP.uid_UstIdNr = vatNumber
|
||||
|
||||
UID_TMP.Firma = If(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, "VERAG")
|
||||
UID_TMP.uid_abfrageUid = uid
|
||||
UID_TMP.uid_sessionId = tmp_SESSION_ID
|
||||
UID_TMP.uid_typ = "VAK"
|
||||
|
||||
UID_TMP.uid_firma = name
|
||||
UID_TMP.uid_adr1 = adrz1
|
||||
UID_TMP.uid_adr2 = adrz2
|
||||
UID_TMP.uid_adr3 = adrz3
|
||||
UID_TMP.uid_adr4 = adrz4
|
||||
UID_TMP.uid_adr5 = adrz5
|
||||
UID_TMP.uid_adr6 = adrz6
|
||||
|
||||
UID_TMP.uid_stufe = Stufe
|
||||
|
||||
UID_TMP.uid_pruefungstool = "FINANZONLINE"
|
||||
|
||||
UID_TMP.SAVE()
|
||||
|
||||
|
||||
|
||||
If (returnInt = 0) Then 'OK
|
||||
If SaveErgInAdressen Then
|
||||
|
||||
Dim UID_KUNDE As New cKundenveranlagungUID(kdnr, UstIdKz)
|
||||
UID_KUNDE.UstIdGeprüft = Now.ToShortDateString
|
||||
UID_KUNDE.SAVE()
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Return UID_TMP
|
||||
|
||||
End If
|
||||
|
||||
If showErr Then MsgBox(GetCodeText(returnInt))
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
If showErr Then MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
' Call_Web_Service_MethodUID_Logout_NEU2020()
|
||||
End Try
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Return Nothing
|
||||
@@ -336,6 +438,7 @@ Public Class cFinanzOnlineWebService
|
||||
UID_TMP.uid_adr4 = adrz4
|
||||
UID_TMP.uid_adr5 = adrz5
|
||||
UID_TMP.uid_adr6 = adrz6
|
||||
UID_TMP.uid_typ = "UID"
|
||||
|
||||
UID_TMP.uid_stufe = Stufe
|
||||
|
||||
|
||||
Reference in New Issue
Block a user