Index: TAOR-rework-bugfixing/TAOR rework/controllers/SifonLadeController.vb =================================================================== diff -u -r1650 -r1655 --- TAOR-rework-bugfixing/TAOR rework/controllers/SifonLadeController.vb (.../SifonLadeController.vb) (revision 1650) +++ TAOR-rework-bugfixing/TAOR rework/controllers/SifonLadeController.vb (.../SifonLadeController.vb) (revision 1655) @@ -18,15 +18,18 @@ End Function Public Sub New() + 'Rework tray slot engine. + dim reworkTrayEngine As New ReworkTrayEngine(new ReworkTraySlotRepository()) + 'Special lade engine initialiseren met de juiste mapper. Dim sifonLadeEngine = New SpecialLadeEngine(Of ISifonLade)(New SifonLadenMapper) 'Manager initialiseren met de engine. - _sifonladeManager = New SifonLadeManager(sifonLadeEngine) + _sifonladeManager = New SifonLadeManager(sifonLadeEngine, reworkTrayEngine) 'Dubbele special lade engine initialiseren met de juiste mapper. Dim sifonladeDubbelEngine = New SpecialLadeEngine(Of ISifonLadeDubbel)(New SifonLadenDubbelMapper) 'Manager initialiseren met de engine. - _sifonladeDubbelManager = New DubbeleSifonLadeManager(sifonladeDubbelEngine) + _sifonladeDubbelManager = New DubbeleSifonLadeManager(sifonladeDubbelEngine, reworkTrayEngine) End Sub #Region "Normale sifon lade" @@ -90,6 +93,13 @@ 'Manager aanroepen om te updaten. _sifonladeManager.UpdateAlleLaden(sifonlade) End Sub + + ''' + ''' Sifonlade bouwen en zijkanten verdelen over rework trays. + ''' + Public Sub VerdeelSifonLadenOverReworkTrays() + _sifonladeManager.BouwLaden + End Sub #End Region #Region "Dubbele sifon lade" @@ -155,18 +165,15 @@ _sifonladeDubbelManager.UpdateAlleLaden(sifonlade) End Sub -#End Region - - 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) + ''' + ''' Dubbele sifonlade bouwen en zijkanten verdelen over rework trays. + ''' + public Sub VerdeelDubbeleSifonLadenOverReworkTrays() + _sifonladeManager.BouwLaden End Sub +#End Region + Private Sub slaSifonLadenOp() 'todo Dim hoofdAansturingSifonLade As HoofdAansturingSpecialLade = New HoofdAansturingSifonLade(reworkTrayRep) 'hoofdAansturingSifonLade.verwerkenSpecialLadeMetTrays(_specialLadenRep.sifonLaden)