Chilkat, Telefone, Zoll Notruf

Dokumentation/uscntr_Telefon.vb

@@ -0,0 +1,86 @@
+Public Class uscntr_Telefon
+
+    Dim ds As New DataSet
+    Dim WeiterleitungsZiel As String = ""
+    Dim aktuellesWeiterleitungsziel As String = ""
+
+    Private Sub uscntr_Notruf_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        refreshDisplay() : refreshds()
+        Class1.AutocompleteCombo(ComboBox1, "Name", "TbL_NotfallKontakte")
+
+    End Sub
+
+    Function refreshds()
+        cSQL.SQL2DS("select name, Telefonnummer,notruf from TbL_NotfallKontakte", ds)
+    End Function
+
+    Function refreshDisplay()
+        '############################# IT
+        Dim tmp As New DataSet
+        cSQL.SQL2DS("select name, Telefonnummer from TbL_NotfallKontakte where Notruf = 1", tmp)
+        If tmp.Tables(0).Rows.Count > 0 Then
+            Label3.Text = tmp.Tables(0).Rows(0).Item(0).ToString
+            WeiterleitungsZiel = tmp.Tables(0).Rows(0).Item(1).ToString
+        End If
+        Dim pascom As New cPascom
+        aktuellesWeiterleitungsziel = pascom.getredirect("199")
+        Label1.Text = aktuellesWeiterleitungsziel
+
+        Dim tmp2 As New DataSet
+        cSQL.SQL2DS("select Aktiv from TbL_Dienste where Name = 'IT_Notruf_Auto'", tmp2)
+        CheckBox1.Checked = tmp2.Tables(0).Rows(0).Item(0)
+
+
+        '############################# Zoll
+        lbl_Zoll_Pascom.Text = pascom.getredirect("123")
+
+        Dim zdb As New DataSet
+        cSQL.SQL2DS("select Aktiv, Parameter from TbL_Dienste where Name = 'Zoll_Notruf_Enabled'", zdb)
+        If zdb.Tables(0).Rows.Count > 0 Then
+            lbl_Zoll_Datenbank.Text = zdb.Tables(0).Rows(0).Item(1).ToString
+        End If
+        tb_Zoll_Notrufnummer.Text = lbl_Zoll_Pascom.Text.Replace("""", "")
+    End Function
+
+    Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
+        cSQL.UpdateSQL("TbL_NotfallKontakte", "Notruf = 0", "Notruf = 1")
+        cSQL.UpdateSQL("TbL_NotfallKontakte", "Notruf = 1", "name = " & "'" & ComboBox1.SelectedValue & "'")
+        refreshDisplay()
+        refreshds()
+
+
+    End Sub
+
+    Private Sub FlatButton2_Click(sender As Object, e As EventArgs) Handles btn_IT_Start_Weiterleitung.Click
+        Dim pascom As New cPascom
+        pascom.Weiterleitung("199", WeiterleitungsZiel, aktuellesWeiterleitungsziel)
+        refreshDisplay()
+
+    End Sub
+
+    Private Sub FlatButton3_Click(sender As Object, e As EventArgs) Handles btn_IT_Stop_Weiterleitung.Click 'beenden
+        Dim pascom As New cPascom
+        pascom.Weiterleitung("199", "", aktuellesWeiterleitungsziel)
+        refreshDisplay()
+    End Sub
+
+    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click, lbl_Zoll_Pascom.Click
+        refreshDisplay()
+
+    End Sub
+
+    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
+        cSQL.UpdateSQL("TbL_Dienste", "Aktiv = '" & CheckBox1.Checked & "'", "Name = 'IT_Notruf_Auto'")
+    End Sub
+
+    Private Sub FlatButton6_Click(sender As Object, e As EventArgs) Handles btn_Zoll_weiter_setzen.Click
+        If tb_Zoll_Notrufnummer.Text.Length > 2 Then
+            cSQL.UpdateSQL("TbL_Dienste", "Aktiv = 'True'", "Name= 'Zoll_Notruf_Enabled'")
+            cSQL.UpdateSQL("TbL_Dienste", "Parameter = " & "'" & tb_Zoll_Notrufnummer.Text & "'", "Name='Zoll_Notruf_Enabled'")
+
+            Dim pascom As New cPascom
+            pascom.Weiterleitung("123", tb_Zoll_Notrufnummer.Text)
+        End If
+        refreshDisplay()
+    End Sub
+End Class