Imports VERAG_PROG_ALLGEMEIN

Public Class frmTv
    Public avisoID = -1
    Dim AVISO As New cAvisoDAL
    Private Sub pnl_Paint(sender As Object, e As PaintEventArgs) Handles pnl.Paint

    End Sub

    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
        lblAndererText.ForeColor = Color.Black
        If txt.Text = "" Then lblAndererText.ForeColor = Color.Red : Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub
        If avisoID > 0 Then
            AVISO.UpdateAvisoTVHinweis(avisoID, txt.Text)
        End If
    End Sub

    Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
        If avisoID > 0 Then
            AVISO.UpdateAvisoTVHinweis(avisoID, "URGENT")
            insertVermerk("TV-Hinweis: 'URGENT'", 48)
            Me.Close()
        End If
    End Sub
    Private Sub FlatButton4_Click(sender As Object, e As EventArgs) Handles FlatButton4.Click
        If avisoID > 0 Then
            AVISO.UpdateAvisoTVHinweis(avisoID, "DOKUMENT")
            insertVermerk("TV-Hinweis: 'DOKUMENT'", 48)
            Me.Close()
        End If
    End Sub
    Private Sub FlatButton2_Click(sender As Object, e As EventArgs) Handles FlatButton2.Click
        If avisoID > 0 Then
            AVISO.UpdateAvisoTVHinweis(avisoID, "PASSPORT")
            insertVermerk("TV-Hinweis: 'PASSPORT'", 48)
            Me.Close()
        End If
    End Sub

    Private Sub FlatButton3_Click(sender As Object, e As EventArgs) Handles FlatButton3.Click
        If avisoID > 0 Then
            AVISO.UpdateAvisoTVHinweis(avisoID, "")
            insertVermerk("TV-Hinweis gelöscht", 48)
            Me.Close()
        End If
    End Sub

    Private Sub frmTv_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim cADMIN As New cADMIN
        txt.Text = cADMIN.getValueTxtBySql("SELECT TOP 1 AvisoTVHinweis FROM Aviso WHERE AvisoID=" & avisoID, "AVISO")
    End Sub

    Dim VermerkeDAL As New cVermerkeDAL

    Sub insertVermerk(Text As String, VermerkCodeId As Integer, Optional Beschreibung As String = "")
        'Daten zuweisen und speichern
        Dim myVermerk As New cVermerk
        myVermerk.VermerkID = 0
        myVermerk.AvisoID = avisoID
        myVermerk.Datum = Now
        myVermerk.Mitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter
        myVermerk.MitarbeiterId = cGlobal.AktiverMitarbeiter.MitarbeiterID
        myVermerk.Hinweis_Vermerk = Text
        myVermerk.VermerkCodeId = VermerkCodeId

        VermerkeDAL.SpeichernVermerk(myVermerk)

    End Sub
End Class