From 380faa016c77159ad1c039bdff7804a1c7f7a726 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Wed, 29 Mar 2023 08:20:02 +0200
Subject: [PATCH] CreditsafeAPI

---
 UID/Mitarbeiter/frmMitarbDetails.vb | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/UID/Mitarbeiter/frmMitarbDetails.vb b/UID/Mitarbeiter/frmMitarbDetails.vb
index 857be81..8d8bb64 100644
--- 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