Fehlermeldung FinanzOnline, Ueberstunden, Feiertags

VERAG_PROG_ALLGEMEIN/Schnittstellen/Finanzonline/cFinanzOnlineWebService.vb

@@ -129,8 +129,15 @@ Public Class cFinanzOnlineWebService
                             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
+                    Dim returnInt As Integer
+                    Try
+
+                        returnInt = CallWebService.uidAbfrage(tid, benid, SESSION_ID, uid, countryCode & vatNumber, StufeAbf, msg, name, adrz1, adrz2, adrz3, adrz4, adrz5, adrz6)
+                        errorCode = returnInt
+                    Catch ex As Exception
+                        MsgBox("Fehler im externen Webservice '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+                        Exit Function
+                    End Try
 
                     If returnInt = 0 Or returnInt = 1 Then