Public Class usrCntlEintragAvisoAtilla

    Private Sub usrCntlEintragAvisoAtilla_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        sbDurchgangszollstelle1.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
        sbDurchgangszollstelle2.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
        sbDurchgangszollstelle3.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
        sbDurchgangszollstelle4.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
        sbDurchgangszollstelle5.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
        sbDurchgangszollstelle6.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})

    End Sub

    Private Sub txtTransporttemp_TextChanged(sender As Object, e As EventArgs) Handles txtTransporttemp.TextChanged
        cbxTemperatur.Checked = txtTransporttemp.Text <> ""
    End Sub

    Private Sub txtZugmaschine_TextChanged(sender As Object, e As EventArgs) Handles txtZugmaschine.TextChanged
        cbxZugmaschine.Checked = txtZugmaschine.Text <> ""
    End Sub


    Private Sub txtGewicht_TextChanged(sender As Object, e As EventArgs) Handles txtGewicht.Leave
        If IsNumeric(txtGewicht.Text) Then
            txtGewicht.Text = CDbl(txtGewicht.Text).ToString("N0")
        End If
    End Sub

    Private Sub txtColli_TextChanged(sender As Object, e As EventArgs) Handles txtColli.Leave
        If IsNumeric(txtColli.Text) Then
            txtColli.Text = CDbl(txtColli.Text).ToString("N0")
        End If
    End Sub

    Private Sub dtpAvisoEingangZeit_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles sbDurchgangszollstelle1.PreviewKeyDown, sbDurchgangszollstelle2.PreviewKeyDown, sbDurchgangszollstelle3.PreviewKeyDown, sbDurchgangszollstelle4.PreviewKeyDown, sbDurchgangszollstelle5.PreviewKeyDown, sbDurchgangszollstelle6.PreviewKeyDown

        If e.KeyCode = Keys.Return Then
            e.IsInputKey = True ': Me.DialogResult = DialogResult.None
            If sender Is sbDurchgangszollstelle1 Then sbDurchgangszollstelle1.FireReturn() : e.IsInputKey = True
            If sender Is sbDurchgangszollstelle2 Then sbDurchgangszollstelle2.FireReturn() : e.IsInputKey = True
            If sender Is sbDurchgangszollstelle3 Then sbDurchgangszollstelle3.FireReturn() : e.IsInputKey = True
            If sender Is sbDurchgangszollstelle4 Then sbDurchgangszollstelle4.FireReturn() : e.IsInputKey = True
            If sender Is sbDurchgangszollstelle5 Then sbDurchgangszollstelle5.FireReturn() : e.IsInputKey = True
            If sender Is sbDurchgangszollstelle6 Then sbDurchgangszollstelle6.FireReturn() : e.IsInputKey = True
            e.IsInputKey = True
        End If
    End Sub


    Private Sub txtAusgangszstAndere_TextChanged(sender As Object, e As EventArgs) Handles txtAusgangszstAndere.TextChanged
        rbtnAndere.Checked = (txtAusgangszstAndere.Text <> "")
    End Sub
End Class