Rechnungdrucks-Art: Mail+Kopie, VERAG Parkplatzkarte NEU

VERAG_PROG_ALLGEMEIN/Schnittstellen/Finanzonline/cFinanzOnlineWebService.vb

@@ -92,7 +92,9 @@ 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)
         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
@@ -126,6 +128,7 @@ Public Class cFinanzOnlineWebService
 
                     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
 
                         Dim UID_TMP As New VERAG_PROG_ALLGEMEIN.cUIDPruefung
@@ -164,6 +167,8 @@ Public Class cFinanzOnlineWebService
 
                         End If
                         Return UID_TMP
+                    Else
+                        If showErr Then MsgBox(GetCodeText(returnInt))
                     End If
                 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)
@@ -195,6 +200,83 @@ Public Class cFinanzOnlineWebService
         '   Call_Web_Service_MethodUID_Logout_NEU2020()
 
 
+        Return Nothing
+    End Function
+
+    Function Call_Web_Service_MethodUID_Abfrage_WO_KDNR(UID_Nr, Optional showErr = True, Optional Stufe = 1, Optional ByRef errorCode = 0) As VERAG_PROG_ALLGEMEIN.cUIDPruefung
+
+        Try
+            If UID_Nr.Length > 6 Then
+
+
+                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 = UID_Nr.Substring(0, 2)
+                Dim vatNumber As String = UID_Nr.Substring(2, uid.Length)
+
+                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 = 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
+
+                    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 = -1
+
+
+                    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_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.SAVE()
+                    If (returnInt = 0) Then 'OK 
+                    End If
+                    Return UID_TMP
+                End If
+            End If
+        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
+
+
+
         Return Nothing
     End Function
 
@@ -258,6 +340,8 @@ Public Class cFinanzOnlineWebService
                     Finanzamt."
             Case 105 : Return "Die UID-Nummer ist über FinanzOnline einzeln abzufragen."
             Case 1511 : Return "Der angegebene Mitgliedstaat ist derzeit nicht erreichbar"
+            Case 1512 : Return "Die UID-Abfrage ist auf Grund der hohen Anzahl an Abfragen derzeit nicht möglich."
+            Case 1513 : Return "Die UID-Abfrage für die angegebene UID-Nummer des Erwerbers wurde an diesem Tag bereits zweimal durchgeführt. Eine häufigere Abfrage mittels Webservice ist nicht möglich."
             Case Else : Return "Unbekannter Fehler:  " & rc
         End Select
     End Function