Public Class usrCntlAviso_Vorpapiere


    Sub setVorpapiere(ByRef myAviso As VERAG_PROG_ALLGEMEIN.cAviso)
        'Vorpapier laden
        dgvVorpapier.Rows.Clear()
        myAviso.LOAD_Vorpapiere()
        For Each VP In myAviso.VORPAPIERE
            dgvVorpapier.Rows.Add({VP.vp_Art, VP.vp_Nr})
        Next
    End Sub

    Function checkDouble()
        For Each r As DataGridViewRow In dgvVorpapier.Rows

            For Each r2 As DataGridViewRow In dgvVorpapier.Rows
                If r.Index <> r2.Index Then
                    If r.Cells("clmnMRN").Value = r2.Cells("clmnMRN").Value Then
                        Return True
                    End If
                End If
            Next
        Next
        Return False
    End Function

    Sub getVorpapiere(ByRef myAviso As VERAG_PROG_ALLGEMEIN.cAviso)
        'VORPAPIERE
        myAviso.VORPAPIERE.Clear()
        For Each r As DataGridViewRow In dgvVorpapier.Rows
            If r.Cells("clmnMRN").Value IsNot Nothing AndAlso r.Cells("clmnMRN").Value <> "" Then
                Dim VP As New VERAG_PROG_ALLGEMEIN.cAvisoVorpapier
                VP.vp_AvisoId = myAviso.AvisoID
                VP.vp_Nr = r.Cells("clmnMRN").Value
                VP.vp_Art = "T1" 'r.Cells("clmnMRN").Value
                myAviso.VORPAPIERE.Add(VP)
            End If
        Next
    End Sub
End Class