Index: TAOR-rework-bugfixing/TAOR rework/controllers/SifonLadeController.vb
===================================================================
diff -u -r1655 -r1658
--- TAOR-rework-bugfixing/TAOR rework/controllers/SifonLadeController.vb	(.../SifonLadeController.vb)	(revision 1655)
+++ TAOR-rework-bugfixing/TAOR rework/controllers/SifonLadeController.vb	(.../SifonLadeController.vb)	(revision 1658)
@@ -5,6 +5,7 @@
 
     Private ReadOnly _sifonladeManager As MustInheritSifonLadeManager(Of ISifonLade)
     Private ReadOnly _sifonladeDubbelManager As MustInheritSifonLadeManager(Of ISifonLadeDubbel)
+    Private ReadOnly _reworkTrayRepository As ReworkTrayRepository
 
     ''' <summary>
     ''' Singleton instantie opvragen.
@@ -19,17 +20,20 @@
 
     Public Sub New()
         'Rework tray slot engine.
-        dim reworkTrayEngine As New ReworkTrayEngine(new ReworkTraySlotRepository())
+        Dim reworkTrayEngine As New ReworkTrayEngine(New ReworkTraySlotRepository())
 
+        'Rework tray repository
+        _reworkTrayRepository = New ReworkTrayRepository()
+
         '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, reworkTrayEngine)
+        _sifonladeManager = New SifonLadeManager(sifonLadeEngine, reworkTrayEngine, _reworkTrayRepository)
 
         '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, reworkTrayEngine)
+        _sifonladeDubbelManager = New DubbeleSifonLadeManager(sifonladeDubbelEngine, reworkTrayEngine, _reworkTrayRepository)
     End Sub
 
 #Region "Normale sifon lade"
@@ -98,8 +102,13 @@
     ''' Sifonlade bouwen en zijkanten verdelen over rework trays.
     ''' </summary>
     Public Sub VerdeelSifonLadenOverReworkTrays()
-        _sifonladeManager.BouwLaden
+        _sifonladeManager.BouwLaden()
     End Sub
+
+    Public Sub ProduceerSifonladen()
+        _sifonladeManager.Produceer()
+        _reworkTrayRepository.verwijderReworkTraysSpecialLade()
+    End Sub
 #End Region
 
 #Region "Dubbele sifon lade"
@@ -168,15 +177,68 @@
     ''' <summary>
     ''' Dubbele sifonlade bouwen en zijkanten verdelen over rework trays.
     ''' </summary>
-    public Sub VerdeelDubbeleSifonLadenOverReworkTrays()
-        _sifonladeManager.BouwLaden
+    Public Sub VerdeelDubbeleSifonLadenOverReworkTrays()
+        _sifonladeManager.BouwLaden()
     End Sub
 
+    Public Sub ProduceerDubbeleSifonladen()
+        _sifonladeDubbelManager.Produceer()
+        _reworkTrayRepository.verwijderReworkTraysSpecialLade()
+    End Sub
+
 #End Region
 
-    Private Sub slaSifonLadenOp()
-        'todo Dim hoofdAansturingSifonLade As HoofdAansturingSpecialLade = New HoofdAansturingSifonLade(reworkTrayRep)
-        'hoofdAansturingSifonLade.verwerkenSpecialLadeMetTrays(_specialLadenRep.sifonLaden)
-    End Sub
+    Public Function GeefAantalTrays() As Integer
+        Return _reworkTrayRepository.aantalReworkTraysSpecial
+    End Function
 
+    Public Function GeefSpecialLadeReworkTrayNummer(index As Integer) As String
+        Return _reworkTrayRepository.geefSpecialLadeReworkTrayNummer(index)
+    End Function
+
+    ''' <summary>
+    ''' inhoud van alle slots van een reworktray geven
+    ''' </summary>
+    ''' <param name="index"></param>
+    ''' <returns></returns>
+    Public Function GeefSlotsSpecialReworkTray(index As Integer) As List(Of List(Of String))
+        Dim trays As New List(Of List(Of String))
+        Try
+            For teller As Integer = 0 To _reworkTrayRepository.reworkTraysSpecialLaden(index).slots.Count - 1
+                Dim slot As Slot = _reworkTrayRepository.reworkTraysSpecialLaden(index).slots(teller)
+                Dim content As New List(Of String)
+                If Not (slot.zijkantenSpeciaal Is Nothing OrElse slot.zijkantenSpeciaal.Count <= 0) Then
+                    'voorraad
+                    content.Add(slot.nummer)
+                    content.Add(slot.zijkantenSpeciaal(0).PartCalc)
+                    content.Add(slot.zijkantenSpeciaal(0).GeefBatch)
+                    If slot.zijkantenSpeciaal.Count = 4 Then 'voorraad
+                        content.Add(slot.zijkantenSpeciaal(0).geefColorDubbelVoorraad(slot.zijkantenSpeciaal(1), slot.zijkantenSpeciaal(2), slot.zijkantenSpeciaal(3)))
+                    ElseIf slot.type = SlotType.enkel Then 'voorraad met 1 zijkant
+                        content.Add(slot.zijkantenSpeciaal(0).geefColorEnkel(slot.zijkantenSpeciaal(1)))
+                    Else
+                        content.Add(slot.zijkantenSpeciaal(0).geefColorDubbel(slot.zijkantenSpeciaal(1)))
+                    End If
+
+                    content.Add(slot.zijkantenSpeciaal(0).PartL)
+                    content.Add(slot.zijkantenSpeciaal(0).PartW)
+                Else 'leeg slot
+                    'de cijfers wel, maar gewoon geen andere informatie meegeven
+                    content.Add(teller + 1)
+                    content.Add("")
+                    content.Add("")
+                    content.Add("")
+                    content.Add("")
+                    content.Add("")
+                End If
+
+                trays.Add(content)
+            Next
+            Return trays
+        Catch ex As Exception
+            MessageBox.Show("Er is een fout opgetreden bij het opvragen van een special lade reworktray" & ex.Message, "Er is een fout opgetreden...", MessageBoxButtons.OK, MessageBoxIcon.Error)
+            Return Nothing
+        End Try
+    End Function
+
 End Class