Link zur neuen ZE-Login, USTVA

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb

@@ -516,8 +516,17 @@ Public Class frmMitarbeitersuche
     End Sub
 
     Private Sub Button1_Click_2(sender As Object, e As EventArgs) Handles Button1.Click
-        Dim webAddress As String = "https://zeit.verag.ag/webterminal/"
-        Process.Start(webAddress)
+
+        Dim Paramslist As New cParameterList(VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID)
+        Dim webAddress As String = Paramslist.GET_PARAMETER_VALUE("TIMAS-LOGIN")
+
+        If webAddress <> "" Then
+            Process.Start(webAddress)
+        Else
+            Process.Start("https://zeit.verag.ag/webterminal/") 'fallback
+
+        End If
+
     End Sub
 
     Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click