Imports TA_OR_rework.Rework Public Class ReworkRedenenRepository Private _reworkOnderdelen As List(Of ReworkOnderdeel) Public Sub New() _reworkOnderdelen = ReworkRedenenMapperXML.getDataFromFile End Sub Public ReadOnly Property reworkOnderdelen Get Return New List(Of ReworkOnderdeel)(_reworkOnderdelen) End Get End Property Public Function geefReworkOnderdeel(ByVal onderdeelNaam As String) As ReworkOnderdeel For Each reworkOnderdeel As ReworkOnderdeel In _reworkOnderdelen If reworkOnderdeel.Label.ToLower.Equals(onderdeelNaam.ToLower) Then Return reworkOnderdeel End If Next Throw New Exception("Het reworkOnderdeel voor redenen bestaat niet") End Function Public Function geefMachine(ByVal onderdeelNaam As String, ByVal machineNaam As String) As Machine For Each machine As Machine In geefReworkOnderdeel(onderdeelNaam).Machines If machine.Label.ToLower.Equals(machineNaam.ToLower) Then Return machine End If Next Throw New Exception("De machinenaam voor redenen bestaat niet") End Function End Class