Index: TAOR-rework-bugfixing/TAOR rework/controllers/SifonLadeController.vb
===================================================================
diff -u -r1635 -r1642
--- TAOR-rework-bugfixing/TAOR rework/controllers/SifonLadeController.vb	(.../SifonLadeController.vb)	(revision 1635)
+++ TAOR-rework-bugfixing/TAOR rework/controllers/SifonLadeController.vb	(.../SifonLadeController.vb)	(revision 1642)
@@ -16,20 +16,21 @@
 
     Public Sub New()
         'Special lade engine initialiseren met de juiste mapper.
-        dim specialLadeEngine = new SpecialLadeEngine(Of ISifonLade)( New SifonLadenMapper)
+        Dim specialLadeEngine = New SpecialLadeEngine(Of ISifonLade)(New SifonLadenMapper)
         'Manager initialiseren met de engine.
-        _sifonladeManager = new SifonLadeManager(specialLadeEngine)
+        _sifonladeManager = New SifonLadeManager(specialLadeEngine)
     End Sub
 
     ''' <summary>
     ''' Zoek de lade aan de hand van de lade code.
     ''' </summary>
     ''' <returns></returns>
-    Public Function ZoekLade(ladeCode As String) As Boolean
+    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>
@@ -39,7 +40,7 @@
         Dim sifonLade As ISifonLade = _sifonladeManager.EersteOfStandaard()
 
         'Controleren of de sifonLade niet leeg is.
-        If sifonLade Is Nothing
+        If sifonLade Is Nothing Then
             'Zo ja, retourneer Nothing.
             Return Nothing
         End If
@@ -51,22 +52,40 @@
     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.
-        dtoConverter.FromDto(sifonLadeDto)
-
+        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)
+        'zijkanten
+        ' zijkanten.AddRange(sifonLade.zijkanten)
         'Next
         'special rework trays laten verwerken
         'todo voegReworkTraysSpecialLadeToe(zijkanten)