From 8bc2fbf87388d6d2173fda7cd200c6e2f58aae5a Mon Sep 17 00:00:00 2001
From: ms <ms@verag.ag>
Date: Tue, 25 Apr 2023 13:08:08 +0200
Subject: [PATCH] Test

---
 TSAnmeldung/cPascom.vb | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/TSAnmeldung/cPascom.vb b/TSAnmeldung/cPascom.vb
index 1dd4c89..5c86869 100644
--- a/TSAnmeldung/cPascom.vb
+++ b/TSAnmeldung/cPascom.vb
@@ -7,6 +7,16 @@ Public Class cPascom
 
     Dim API_USER_AUTHORIZATION = "bW9ieTpnWlhTSVprTnhmaUQxOEU="
     Dim Arbeitsplatz As String = ""
+    Dim TelUrl As String = ""
+
+    Sub New()
+        Dim ds As New DataSet
+        cSQL.SQL2DS("SELECT Parameter FROM [Doku].[dbo].[TbL_Dienste] where name = 'TelefonanlageURL'", ds)
+        If ds.Tables(0).Rows.Count > 0 Then
+            TelUrl = ds.Tables(0).Rows(0).Item(0).ToString
+        End If
+
+    End Sub
 
     Public Function Anmelden() As Boolean
         If GetTelArbeitsplatz4Host() Then