neu

Aviso/frmAnkunftSetzen.vb

@@ -0,0 +1,64 @@
+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 Me.KeyDown
+        If e.KeyCode = Keys.Return Then
+            btn.PerformClick()
+        End If
+    End Sub
+
+End Class