Public Class frmAvisoWeiterleitenBestaetigen

    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_Vermerk
            lblName.Text = AB.ab_Mitarbeiter
            lblDatUhrzeit.Text = AB.ab_Datum.ToShortDateString & "  " & AB.ab_Datum.ToShortTimeString

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

            If AB.ab_collAnhId <> "" Then
                Dim split = AB.ab_collAnhId.ToString.Split(";")
                For Each s In split
                    Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(s)
                    If ANH IsNot Nothing Then
                        dgvAnmhaenge.Rows.Add({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.anh_docId), ANH.anh_Name})
                    End If

                Next
            End If
        End If
        dgvAnmhaenge.ClearSelection()

    End Sub

    Private Sub dgvAnmhaenge_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAnmhaenge.CellContentDoubleClick, dgvAnmhaenge.CellDoubleClick
        If dgvAnmhaenge.SelectedRows.Count > 0 Then
            'Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(ANH.anh_docId)
            'DS.GET_TOP1_PATH()
            Try
                Process.Start(dgvAnmhaenge.SelectedRows(0).Cells(0).Value)
            Catch ex As Exception
                MsgBox(ex.Message & ex.StackTrace)
            End Try
        End If
    End Sub

    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
        Me.Close()
    End Sub
End Class