Public Class uscntr_Notruf

    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()
        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("555")
        Label1.Text = aktuellesWeiterleitungsziel
    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 FlatButton2.Click
        Dim pascom As New cPascom
        pascom.Weiterleitung("555", WeiterleitungsZiel, aktuellesWeiterleitungsziel)
        refreshDisplay()

    End Sub

    Private Sub FlatButton3_Click(sender As Object, e As EventArgs) Handles FlatButton3.Click
        Dim pascom As New cPascom
        pascom.Weiterleitung("555", "199", aktuellesWeiterleitungsziel)
        refreshDisplay()
    End Sub

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
        refreshDisplay()

    End Sub
End Class