Imports VERAG_PROG_ALLGEMEIN

Public Class frmInsertVermerkFachIMEX
    Dim AvisoID As Integer = -1
    Sub New(id As Integer)
        InitializeComponent()
        Me.AvisoID = id
    End Sub
    Private Sub frmInsertVermerkFach_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        TextBoxOrt.Focus()
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        If TextBoxOrt.Text <> "" Then
            vermerk(TextBoxOrt.Text)
        Else
            lblErr.Visible = True
        End If
    End Sub


    Sub vermerk(t As String)
        Dim VermerkeDAL As New cVermerkeDAL
        Dim myVermerk As New cVermerk
        myVermerk.AvisoID = AvisoID
        myVermerk.Datum = Now
        myVermerk.Mitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter : myVermerk.MitarbeiterId = cGlobal.AktiverMitarbeiter.MitarbeiterID
        myVermerk.Hinweis_Vermerk = "Akt liegt im Fach '" & t & "'" : myVermerk.VermerkCodeId = 35
        VermerkeDAL.SpeichernVermerk(myVermerk)
        Me.Close()
    End Sub


    Private Sub TextBoxOrt_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBoxOrt.KeyDown
        If e.KeyCode = Keys.Return Then
            If TextBoxOrt.Text <> "" Then
                vermerk(TextBoxOrt.Text)
            Else
                lblErr.Visible = True
            End If
        End If
    End Sub

    Private Sub btnTan_Click(sender As Object, e As EventArgs) Handles btnIsd.Click
        vermerk("ISD")
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnSunlog.Click
        vermerk("SUNLOG")
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnKita.Click
        vermerk("KITA")
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnSAMMELAKTE.Click
        vermerk("SAMMELAKTE")
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnEINZELAKTE.Click
        vermerk("EINZELAKTE")
    End Sub

    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles btnEvolog.Click
        vermerk("EVOLOG")
    End Sub

    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles btnZeus.Click
        vermerk("ZEUS")
    End Sub

    Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
        vermerk("TTS")
    End Sub

    Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click
        vermerk("UNIVERSAL/ASDEN")
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        vermerk("ELS")
    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        vermerk("IGL")
    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        vermerk("BOSFOR")
    End Sub
End Class