CreditsafeAPI

2023-03-29 08:20:02 +02:00
parent 3729f5edcb
commit 380faa016c
1 changed files with 9 additions and 1 deletions
--- a/UID/Mitarbeiter/frmMitarbDetails.vb
+++ b/UID/Mitarbeiter/frmMitarbDetails.vb
@@ -864,7 +864,15 @@ Public Class frmMitarbDetails
        End If

        Dim cs = New cCreditSafeAPI
-        lblCheckconnection.Text = cs.authenticate(txtCSUser.Text, txtCSPW.Text)
+        Dim statuscode = cs.authenticate(txtCSUser.Text, txtCSPW.Text)
+        Select Case statuscode
+
+            Case 200 : lblCheckconnection.Text = "Zugangsdaten OK"
+
+            Case Else
+                lblCheckconnection.Text = "User konnte nicht authentifiziert werden (" & statuscode & ")"
+
+        End Select

    End Sub