neu

AVISO_CHECKIN/usrCntlFound.vb

@@ -0,0 +1,85 @@
+Public Class usrCntlFound
+
+    Dim MAIN As frmCheckIn
+    Dim AVISO As VERAG_PROG_ALLGEMEIN.cAviso
+    Dim FTYP As eFahrzeugtyp = eFahrzeugtyp.None
+
+    Sub New(MAIN, AVISO)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.MAIN = MAIN
+        Me.AVISO = AVISO
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub usrCntlFound_Load(sender As Object, e As EventArgs) Handles Me.Load
+        txtFahrername.Focus()
+
+        MAIN.TRANSLATE(Me)
+        If AVISO IsNot Nothing Then
+            lblKennzeichen.Text = AVISO.LKW_Nr
+            lblFraechter.Text = AVISO.Frächter
+            lblAvisierer.Text = AVISO.Auftraggeber
+            'txtFahrername.Text = AVISO.FahrerHandy
+            txtHandy.Text = AVISO.FahrerHandy
+
+        Else
+            MAIN.SET_WELCOME()
+        End If
+
+
+    End Sub
+
+    Private Sub cbxHandyKeineAngabe_CheckedChanged(sender As Object, e As EventArgs) Handles cbxHandyKeineAngabe.CheckedChanged
+        txtHandy.Enabled = Not cbxHandyKeineAngabe.Checked
+    End Sub
+
+    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
+        lblErrName.Visible = False
+        lblErrHandy.Visible = False
+        lblErrFahrzeugtyp.Visible = False
+
+        If txtFahrername.Text.Trim = "" Then
+            lblErrName.Visible = True
+            txtFahrername.Focus()
+            Exit Sub
+        End If
+        If Not cbxHandyKeineAngabe.Checked AndAlso txtHandy.Text.Trim = "" Then
+            lblErrHandy.Visible = True
+            txtHandy.Focus()
+            Exit Sub
+        End If
+        If FTYP = eFahrzeugtyp.None Then
+            lblErrFahrzeugtyp.Visible = True : Exit Sub
+        End If
+        MAIN.SET_FINISH(AVISO)
+    End Sub
+
+
+    Enum eFahrzeugtyp
+        None = 0
+        LKW_Auflieger = 1
+        LKW = 2
+        Sprinter = 3
+    End Enum
+
+    Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click, PictureBox1.Click, PictureBox2.Click
+        pic.BackColor = Color.White
+        PictureBox1.BackColor = Color.White
+        PictureBox2.BackColor = Color.White
+        pic.BorderStyle = BorderStyle.None
+        PictureBox1.BorderStyle = BorderStyle.None
+        PictureBox2.BorderStyle = BorderStyle.None
+
+        If sender Is pic Then FTYP = 1 : pic.BorderStyle = BorderStyle.FixedSingle
+        If sender Is PictureBox1 Then FTYP = 2 : PictureBox1.BorderStyle = BorderStyle.FixedSingle
+        If sender Is PictureBox2 Then FTYP = 3 : PictureBox2.BorderStyle = BorderStyle.FixedSingle
+
+        sender.BackColor = Color.PapayaWhip
+
+    End Sub
+
+
+End Class