Public Class frmAvisoBenachrichtigungReminderBestaetigen

    Dim AB As VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen = Nothing

    Sub New(AB As VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        Me.AB = AB
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub

    Sub New(ABId)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        Me.AB = New VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen(ABId)
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub


    Private Sub frmAvisoWeiterleitenBestaetigen_Load(sender As Object, e As EventArgs) Handles Me.Load
        If AB IsNot Nothing Then

            rtbVermerk.Text = AB.ab_Beschreibung
            '    lblName.Text = AB.ab_Mitarbeiter
            lblDatUhrzeit.Text = AB.ab_Datum.ToShortDateString & "  " & AB.ab_Datum.ToShortTimeString

            If AB.ab_Art = "A" Then lblArt.Text = "LKW"



        End If

    End Sub



    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click

        Me.DialogResult = DialogResult.Yes
        Me.Close()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
        Dim cVermerkeDAL As New VERAG_PROG_ALLGEMEIN.cVermerkeDAL
        Dim myVermerk As VERAG_PROG_ALLGEMEIN.cVermerk = cVermerkeDAL.LesenVermerk(AB.ab_ReminderVermerkID, "")

        myVermerk.VermerkID = 0 'zurücksetzen
        myVermerk.Datum = Now
        myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
        myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID

        Select Case AB.ab_ReminderVermerkCode
            Case 13
                myVermerk.VermerkCodeId = 14
                myVermerk.Hinweis_Vermerk = SQL.getValueTxtBySql("SELECT [Bezeichnung] FROM [VermerkeCodes] where VermerkCodeId='" & myVermerk.VermerkCodeId & "'", "AVISO")
            Case Else
                MsgBox("Vermerk konnte nicht quittiert werden - bitte manuell durchführen!")
        End Select

        Dim IdTmp = cVermerkeDAL.SpeichernVermerk(myVermerk)
        cVermerkeDAL.SpeichernVermerkIDAufgehoben(AB.ab_ReminderVermerkID, IdTmp)

        Me.DialogResult = DialogResult.OK
        Me.Close()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.DialogResult = DialogResult.Cancel
        Me.Close()
    End Sub
End Class