Umstellung auf neuen Webservice bei PDF-Anzeige von UID-Prüfung

SDL/Classes/cEORIWebService.vb

@@ -176,6 +176,52 @@ Public Class cEORIWebService
     End Function
 
 
+    Shared Function genEORI_FormularWithoutSaving(ByVal txtEORI As String, Optional AvisoId As Integer = -1, Optional SendungsId As Integer = -1, Optional ByRef EORI_ERGInt As Integer = -1) As String 'SESSION_ID wir nur zurückgegeben
+        Try
+
+            Dim msgErgebnis = ""
+            Dim tmp_SESSION_ID = ""
+            Dim Firma = ""
+
+            Dim EORI_ERG = ValidateEoriNumber(txtEORI)
+
+
+            If EORI_ERG.Result.Count > 0 Then
+
+                If EORI_ERG.Result(0).Status = 0 Or EORI_ERG.Result(0).Status = 1 Then
+
+                    Firma = EORI_ERG.Result(0).Name & vbNewLine
+                    Firma &= EORI_ERG.Result(0).Street & vbNewLine
+                    Firma &= EORI_ERG.Result(0).Country & " " & EORI_ERG.Result(0).PostalCode & " " & EORI_ERG.Result(0).City
+                    Firma = Firma.Trim
+
+                    EORI_ERGInt = EORI_ERG.Result(0).Status
+                    Select Case EORI_ERG.Result(0).Status
+                        Case 0 : msgErgebnis = "EORI-Nr. GÜLTIG   -   OK"
+                        Case 1 : msgErgebnis = "EORI-Nr. UNGÜLTIG"
+                    End Select
+
+                    Dim PdfTmp = SDL.FormularManagerNEU.EORI_PRUEFUNG(msgErgebnis, Firma, tmp_SESSION_ID, txtEORI, AvisoId, SendungsId)
+
+                    Return PdfTmp
+
+                End If
+            Else
+                MsgBox("Fehler bei der Prüfung der EORI-Nummer. WebService evtl. nicht verfügbar.")
+            End If
+            Return ""
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+
+        Return ""
+
+    End Function
+
+
+
+
     Shared Function ValidateEoriNumber(ByVal number As String) As EoriResponseModel
         If number Is Nothing Then
             Return Nothing

SDL/Classes/cFinanzOnlineWebService.vb

@@ -198,6 +198,37 @@ Public Class cFinanzOnlineWebService
     End Function
 
 
+    Shared Function genUID_FormularWithoutSaving(ByVal txtUid As String, Optional AvisoId As Integer = -1, Optional SendungsId As Integer = -1, Optional ByRef UID_ERG As Integer = -1) As String 'SESSION_ID wir nur zurückgegeben
+        Try
+
+            Dim msgErgebnis = ""
+            Dim tmp_SESSION_ID = ""
+            Dim Firma = ""
+
+            UID_ERG = Call_Web_Service_MethodUID_Abfrage_NEU2020(txtUid, Firma, tmp_SESSION_ID, msgErgebnis)
+
+            If UID_ERG = 0 Or UID_ERG = 1 Then
+                Select Case UID_ERG
+                    Case 0 : msgErgebnis = "UID-Nr. GÜLTIG   -   OK"
+                    Case 1 : msgErgebnis = "UID-Nr. UNGÜLTIG"
+                End Select
+
+                Dim PdfTmp = SDL.FormularManagerNEU.UID_PRUEFUNG(msgErgebnis, Firma, tmp_SESSION_ID, uid, txtUid, tid, AvisoId, SendungsId)
+                Return PdfTmp
+            Else
+                MsgBox(msgErgebnis)
+            End If
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+
+        Return ""
+
+    End Function
+
+
+
     Shared Function Call_Web_Service_MethodUID_Abfrage_NEU2020(ByVal txtUid As String, Optional ByRef Firma As String = "", Optional ByRef tmp_SESSION_ID As String = "", Optional ByRef msgErgebnis As String = "", Optional SaveErgInAdressenKdNr As Integer = -1) As String 'SESSION_ID wir nur zurückgegeben
         initValues()