Chilkat, Telefone, Zoll Notruf

Dokumentation/Classes/cPascom.vb

@@ -1,12 +1,21 @@
 Imports System.Reflection
 Imports Chilkat
-Imports VERAG_PROG_ALLGEMEIN.cCreditSafeAPI
 
 Public Class cPascom
 
     Dim API_USER_AUTHORIZATION = "bW9ieTpnWlhTSVprTnhmaUQxOEU="
     Property Arbeitsplatz As String = ""
     Property Username 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 Arbeitsplatz.Length > 0 And Username.Length > 0 Then
@@ -19,7 +28,7 @@ Public Class cPascom
                 'BASIC Auth String: 		bW9ieTpYZ0RzRm1NU3V0YU1MQTE =
 
                 cChilkat_Helper.UnlockCilkat()
-                Dim API_STRING = "pbx3.flashnet.at"
+                Dim API_STRING = TelUrl
 
                 Dim rest As New Chilkat.Rest
                 Dim success As Boolean
@@ -101,7 +110,7 @@ Public Class cPascom
         Try
 
             cChilkat_Helper.UnlockCilkat()
-            Dim API_STRING = "pbx3.flashnet.at"
+            Dim API_STRING = TelUrl
 
             Dim rest As New Chilkat.Rest
             Dim success As Boolean
@@ -182,7 +191,7 @@ Public Class cPascom
         Try
 
             cChilkat_Helper.UnlockCilkat()
-            Dim API_STRING = "pbx3.flashnet.at"
+            Dim API_STRING = TelUrl
 
             Dim rest As New Chilkat.Rest
             Dim success As Boolean