ATEZ, Timas, ASFINAG

2023-10-04 12:48:39 +02:00
parent 4fea6e3470
commit 28c8fe05cc
3 changed files with 4 additions and 3 deletions
--- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb
+++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb
@@ -534,7 +534,7 @@ Public Class cTimasAPI

                If (rest.ResponseStatusCode <> 201) Then
                    Debug.WriteLine(rest.ResponseHeader)
-                    MsgBox(rest.ResponseStatusCode & " " & rest.ResponseStatusText)
+                    MsgBox(rest.ResponseStatusCode & " " & rest.ResponseStatusText & vbNewLine & sbResponseBody.ToString)
                    Return Nothing
                End If