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)