Test

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