53 lines
4.7 KiB
VB.net
53 lines
4.7 KiB
VB.net
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 = Windows.Forms.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
|