Notfall Telefon Umleitungen, Service für automatische Umleitung, ...

Dokumentation/uscntr_Notruf.vb

@@ -24,6 +24,10 @@
         Dim pascom As New cPascom
         aktuellesWeiterleitungsziel = pascom.getredirect("555")
         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)
     End Function
 
     Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
@@ -52,4 +56,8 @@
         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
 End Class