Index: TAOR-rework-bugfixing/TAOR rework/controllers/SifonLadeController.vb
===================================================================
diff -u -r1648 -r1650
--- TAOR-rework-bugfixing/TAOR rework/controllers/SifonLadeController.vb	(.../SifonLadeController.vb)	(revision 1648)
+++ TAOR-rework-bugfixing/TAOR rework/controllers/SifonLadeController.vb	(.../SifonLadeController.vb)	(revision 1650)
@@ -1,7 +1,10 @@
-Public Class SifonLadeController
+Imports DubbeleSifonLadeManager = TA_OR_rework.DubbeleSifonLadeManager
+
+Public Class SifonLadeController
     Private Shared _instance As SifonLadeController
 
-    Private ReadOnly _sifonladeManager As LadeManager(Of ISifonLade)
+    Private ReadOnly _sifonladeManager As MustInheritSifonLadeManager(Of ISifonLade)
+    Private ReadOnly _sifonladeDubbelManager As MustInheritSifonLadeManager(Of ISifonLadeDubbel)
 
     ''' <summary>
     ''' Singleton instantie opvragen.
@@ -16,13 +19,20 @@
 
     Public Sub New()
         'Special lade engine initialiseren met de juiste mapper.
-        Dim specialLadeEngine = New SpecialLadeEngine(Of ISifonLade)(New SifonLadenMapper)
+        Dim sifonLadeEngine = New SpecialLadeEngine(Of ISifonLade)(New SifonLadenMapper)
         'Manager initialiseren met de engine.
-        _sifonladeManager = New SifonLadeManager(specialLadeEngine)
+        _sifonladeManager = New SifonLadeManager(sifonLadeEngine)
+
+        '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)
     End Sub
 
+#Region "Normale sifon lade"
+
     ''' <summary>
-    ''' Zoek de lade aan de hand van de lade code.
+    ''' Zoek de sifonlade aan de hand van de lade code.
     ''' </summary>
     ''' <returns></returns>
     Public Function ZoekSifonLade(ladeCode As String) As Boolean
@@ -31,8 +41,6 @@
     End Function
 
 #Region "Informatie"
-
-#Region "Normale sifon lade"
     ''' <summary>
     ''' Informatie opvragen over de sifonLade als DTO.
     ''' </summary>
@@ -54,6 +62,23 @@
     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 sifonlade met de bijhorende barcodes
+    ''' </summary>
+    ''' <returns></returns>
+    Public Function GeefSifonLadenOrigineleOnderdelenEnBarcodes() 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>
@@ -67,23 +92,71 @@
     End Sub
 #End Region
 
+#Region "Dubbele sifon lade"
+
     ''' <summary>
-    ''' Opvragen van aantal laden.
+    ''' Zoek de dubbele sifonlade aan de hand van de lade code.
     ''' </summary>
+    ''' <returns></returns>
+    Public Function ZoekDubbeleSifonLade(ladeCode As String) As Boolean
+        'Manager aanroepen en resultaat retourneren. True als de lade is gevonden.
+        Return _sifonladeDubbelManager.ZoekEnLaadLaden(ladeCode)
+    End Function
+
+#Region "Informatie"
+
+    ''' <summary>
+    ''' Informatie opvragen over de dubbele sifonLade als DTO.
+    ''' </summary>
+    ''' <returns>DTO met informatie</returns>
+    Public Function GeefInformatieDubbeleSifonLade() As SifonLadeDubbelDto
+        'De eerste sifonlade opvragen.
+        Dim sifonLade As ISifonLade = _sifonladeDubbelManager.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 SifonLadeDubbelDtoConverter
+        'Sifonlade converteren en retourneren als DTO.
+        Return dtoConverter.ToDto(sifonLade)
+    End Function
+
+    ''' <summary>
+    ''' Opvragen van aantal dubbele sifonladen.
+    ''' </summary>
     ''' <returns>Het aantal sifonladen</returns>
-    Public Function GeefAantalLaden() As Integer
-        Return _sifonladeManager.AantalLaden()
+    Public Function GeefAantalDubbeleSifonLaden() As Integer
+        Return _sifonladeDubbelManager.AantalLaden()
     End Function
 
     ''' <summary>
-    ''' Opvragen van de namen van alle onderdelen van een special lade met de bijhorende barcodes
+    ''' Opvragen van de namen van alle onderdelen van een dubbele sifonlade met de bijhorende barcodes
     ''' </summary>
     ''' <returns></returns>
-    Public Function GeefSpecialLadenOrigineleOnderdelenEnBarcodes() As List(Of String())
-        Return _sifonladeManager.GeefOrigineleOnderdelenEnBarcodes()
+    Public Function GeefDubbeleSifonLadenOrigineleOnderdelenEnBarcodes() As List(Of String())
+        Return _sifonladeDubbelManager.GeefOrigineleOnderdelenEnBarcodes()
     End Function
 #End Region
 
+    ''' <summary>
+    ''' Gewijzigde waarden van de sifonlade updaten.
+    ''' </summary>
+    ''' <param name="sifonLadeDubbelDto">De DTO van de dubbele sifonlade</param>
+    Public Sub UpdateWaardenDubbeleSifonLade(sifonLadeDubbelDto As SifonLadeDubbelDto)
+        'De DTO converter aanmaken.
+        Dim dtoConverter = New SifonLadeDubbelDtoConverter
+        'Dto converteren naar sifon lade.
+        Dim sifonlade = dtoConverter.FromDto(sifonLadeDubbelDto)
+        'Manager aanroepen om te updaten.
+        _sifonladeDubbelManager.UpdateAlleLaden(sifonlade)
+    End Sub
+
+#End Region
+
     Private Sub verdeelSifonLadenOverReworkTrays()
         Dim zijkanten As New List(Of ArdisData)
         'For Each sifonLade In _specialLadenRep.sifonLaden