Public Class SifonLadeController
    Private Shared _instance As SifonLadeController

    Private ReadOnly _sifonladeManager As LadeManager(Of ISifonLade)

    ''' <summary>
    ''' Singleton instantie opvragen.
    ''' </summary>
    ''' <returns>Instantie</returns>
    Public Shared Function GetInstance() As SifonLadeController
        If _instance Is Nothing Then
            _instance = New SifonLadeController
        End If
        Return _instance
    End Function

    Public Sub New()
        'Special lade engine initialiseren met de juiste mapper.
        Dim specialLadeEngine = New SpecialLadeEngine(Of ISifonLade)(New SifonLadenMapper)
        'Manager initialiseren met de engine.
        _sifonladeManager = New SifonLadeManager(specialLadeEngine)
    End Sub

    ''' <summary>
    ''' Zoek de lade aan de hand van de lade code.
    ''' </summary>
    ''' <returns></returns>
    Public Function ZoekSifonLade(ladeCode As String) As Boolean
        'Manager aanroepen en resultaat retourneren. True als de lade is gevonden.
        Return _sifonladeManager.ZoekEnLaadLaden(ladeCode)
    End Function

#Region "Opvragen informatie"
    ''' <summary>
    ''' Informatie opvragen over de sifonLade als DTO.
    ''' </summary>
    ''' <returns>DTO met informatie</returns>
    Public Function GeefInformatieSifonLade() As SifonLadeDto
        'De eerste sifonlade opvragen.
        Dim sifonLade As ISifonLade = _sifonladeManager.EersteOfStandaard()

        'Controleren of de sifonLade niet leeg is.
        If sifonLade Is Nothing Then
            'Zo ja, retourneer Nothing.
            Return Nothing
        End If

        'De DTO converter aanmaken.
        Dim dtoConverter = New SifonLadeDtoConverter
        'Sifonlade converteren en retourneren als DTO.
        Return dtoConverter.ToDto(sifonLade)
    End Function

    ''' <summary>
    ''' Opvragen van aantal sifonladen.
    ''' </summary>
    ''' <returns>Het aantal sifonladen</returns>
    Public Function GeefAantalSifonLaden() As Integer
        Return _sifonladeManager.AantalLaden()
    End Function

    ''' <summary>
    ''' Opvragen van de namen van alle onderdelen van een special lade met de bijhorende barcodes
    ''' </summary>
    ''' <returns></returns>
    Public Function GeefSpecialLadenOrigineleOnderdelenEnBarcodes() As List(Of String())
        Return _sifonladeManager.GeefOrigineleOnderdelenEnBarcodes()
    End Function
#End Region

    ''' <summary>
    ''' Gewijzigde waarden van de sifon lade updaten.
    ''' </summary>
    ''' <param name="sifonLadeDto">De DTO van de sifon lade</param>
    Public Sub UpdateWaardenSifonLade(sifonLadeDto As SifonLadeDto)
        'De DTO converter aanmaken.
        Dim dtoConverter = New SifonLadeDtoConverter
        'Dto converteren naar sifon lade.
        Dim sifonlade = dtoConverter.FromDto(sifonLadeDto)
        'Manager aanroepen om te updaten.
        _sifonladeManager.UpdateAlleLaden(sifonlade)
    End Sub

    Private Sub verdeelSifonLadenOverReworkTrays()
        Dim zijkanten As New List(Of ArdisData)
        'For Each sifonLade In _specialLadenRep.sifonLaden
        'zijkanten
        ' zijkanten.AddRange(sifonLade.zijkanten)
        'Next
        'special rework trays laten verwerken
        'todo voegReworkTraysSpecialLadeToe(zijkanten)
    End Sub

    Private Sub slaSifonLadenOp()
        'todo Dim hoofdAansturingSifonLade As HoofdAansturingSpecialLade = New HoofdAansturingSifonLade(reworkTrayRep)
        'hoofdAansturingSifonLade.verwerkenSpecialLadeMetTrays(_specialLadenRep.sifonLaden)
    End Sub

End Class