Public Class frmAnkunftSetzen

    Public AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing
    Dim AvisoDAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL

    Sub New(AvisoId As Integer)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        AVISO = AvisoDAL.LesenAviso(AvisoId, "")
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub
    Sub New(ByRef Aviso As VERAG_PROG_ALLGEMEIN.cAviso)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        Me.AVISO = Aviso
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub

    Private Sub pnl_Paint(sender As Object, e As PaintEventArgs) Handles pnl.Paint

    End Sub

    Private Sub frmAnkunftSetzen_Load(sender As Object, e As EventArgs) Handles Me.Load

        btn.Focus()

        If AVISO IsNot Nothing Then
            lblFraechter.Text = AVISO.Frächter
            lblAvisierer.Text = AVISO.Auftraggeber
            txtFahrerHandy.Text = AVISO.FahrerHandy
            If txtFahrerHandy.Text = "" Then txtFahrerHandy.Focus()
        Else
            Me.Close()
        End If
    End Sub

    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
        AVISO.FahrerHandy = txtFahrerHandy.Text
        'If AvisoDAL.SpeichernAviso(AVISO) Then
        '    Me.DialogResult = DialogResult.OK
        'Else
        '    Me.DialogResult = DialogResult.None
        'End If
        Me.DialogResult = DialogResult.OK

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.DialogResult = DialogResult.Cancel
    End Sub

    Private Sub frmAnkunftSetzen_KeyDown(sender As Object, e As KeyEventArgs) Handles txtFahrerHandy.KeyDown
        If e.KeyCode = Keys.Return Then
            btn.PerformClick()
        End If
    End Sub

End Class