Namespace Rework
    Public Class ReworkTrayRepository
        Private _reworkTrays As List(Of ReworkTray)
        Private _reworkTraysSpecialLade As List(Of ReworkTray)

        Public Sub New()
            _reworkTrays = New List(Of ReworkTray)
            _reworkTraysSpecialLade = New List(Of ReworkTray)
        End Sub

        Public ReadOnly Property reworkTrays As List(Of ReworkTray)
            Get
                Return New List(Of ReworkTray)(_reworkTrays)
            End Get
        End Property

        Public ReadOnly Property reworkTraysSpecialLaden As List(Of ReworkTray)
            Get
                Return New List(Of ReworkTray)(_reworkTraysSpecialLade)
            End Get
        End Property

        Public Sub addReworkTray(ByVal reworkTray As ReworkTray)
            _reworkTrays.Add(reworkTray)
        End Sub

        Public Sub addReworkTraySpecialLade(ByVal reworkTray As ReworkTray)
            _reworkTraysSpecialLade.Add(reworkTray)
        End Sub

        Public Sub verwijderReworkTrays()
            _reworkTrays = Nothing
            _reworkTrays = New List(Of ReworkTray)
        End Sub

        Public Sub verwijderReworkTraysSpecialLade()
            _reworkTraysSpecialLade = Nothing
            _reworkTraysSpecialLade = New List(Of ReworkTray)
        End Sub

        Public ReadOnly Property aantalReworkTrays()
            Get
                Return _reworkTrays.Count
            End Get
        End Property

        Public ReadOnly Property aantalReworkTraysSpecial()
            Get
                Return _reworkTraysSpecialLade.Count
            End Get
        End Property

        Public Function geefReworkTrayNummer(index As Integer) As String
            If _reworkTrays.Count > 0 Then
                Return _reworkTrays(index).nummer
            End If
            Throw New Exception("Er zijn geen rework trays aanwezig om het nummer bij op te vragen")
        End Function

        Public Function geefSpecialLadeReworkTrayNummer(index As Integer) As String
            If _reworkTraysSpecialLade.Count > 0 Then
                Return _reworkTraysSpecialLade(index).nummer
            End If
            Throw New Exception("Er zijn geen rework trays special lade aanwezig om het nummer bij op te vragen")
        End Function

        Public Function geefReworkTrayEnSlotNummerBijBarcode(barcode As String) As String()
            Dim trayEnSlotNummer As String() = Nothing
            For Each specialLadeTray As ReworkTray In reworkTraysSpecialLaden
                trayEnSlotNummer = specialLadeTray.geefReworkTrayEnSlotNummerBijBarcode(barcode)
                If Not trayEnSlotNummer Is Nothing Then
                    Return trayEnSlotNummer
                End If
            Next
            Return trayEnSlotNummer
        End Function

    End Class
End Namespace