Public Class ReworkTraySlotRepository
    Private ReadOnly _slots As List(Of Slot)

    Public Sub New()
        _slots = ReworkTraySlotMapperXML.getDataFromFile()
    End Sub

    ''' <summary>
    ''' Unieke sloten opvragen als lijst.
    ''' </summary>
    ''' <returns></returns>
    Public Function Slots() As List(Of Slot)
        Dim tempList As New List(Of Slot)
        For Each huidigSlot As Slot In _slots
            'Nieuw slot aanmaken en waarden invullen.
            Dim nieuwSlot As New Slot With {
                .nummer = huidigSlot.nummer,
                .type = huidigSlot.type
            }
            tempList.Add(nieuwSlot)
        Next
        Return tempList
    End Function

End Class