Index: TAOR-rework-bugfixing/TAOR rework/controllers/SifonLadeController.vb
===================================================================
diff -u -r1634 -r1635
--- TAOR-rework-bugfixing/TAOR rework/controllers/SifonLadeController.vb	(.../SifonLadeController.vb)	(revision 1634)
+++ TAOR-rework-bugfixing/TAOR rework/controllers/SifonLadeController.vb	(.../SifonLadeController.vb)	(revision 1635)
@@ -1,7 +1,6 @@
 Public Class SifonLadeController
     Private Shared _instance As SifonLadeController
 
-    Private ReadOnly _specialLadenRep As SpecialLadenRepository
     Private ReadOnly _sifonladeManager As LadeManager(Of ISifonLade)
 
     ''' <summary>
@@ -16,16 +15,19 @@
     End Function
 
     Public Sub New()
-        'Repository
-        _specialLadenRep = New SpecialLadenRepository
+        'Special lade engine initialiseren met de juiste mapper.
+        dim specialLadeEngine = new SpecialLadeEngine(Of ISifonLade)( New SifonLadenMapper)
+        'Manager initialiseren met de engine.
+        _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
-
+        'Manager aanroepen en resultaat retourneren. True als de lade is gevonden.
+        Return _sifonladeManager.ZoekEnLaadLaden(ladeCode)
     End Function
 
     ''' <summary>
@@ -34,7 +36,14 @@
     ''' <returns>DTO met informatie</returns>
     Public Function GeefInformatieSifonLade() As SifonLadeDto
         'De eerste sifonlade opvragen.
-        Dim sifonLade As ISifonLade = _specialLadenRep.geefSifonLade(0)
+        Dim sifonLade As ISifonLade = _sifonladeManager.EersteOfStandaard()
+
+        'Controleren of de sifonLade niet leeg is.
+        If sifonLade Is Nothing
+            'Zo ja, retourneer Nothing.
+            Return Nothing
+        End If
+
         'De DTO converter aanmaken.
         Dim dtoConverter = New SifonLadeDtoConverter
         'Sifonlade converteren en retourneren als DTO.
@@ -55,10 +64,10 @@
 
     Private Sub verdeelSifonLadenOverReworkTrays()
         Dim zijkanten As New List(Of ArdisData)
-        For Each sifonLade In _specialLadenRep.sifonLaden
+        'For Each sifonLade In _specialLadenRep.sifonLaden
             'zijkanten
-            zijkanten.AddRange(sifonLade.zijkanten)
-        Next
+           ' zijkanten.AddRange(sifonLade.zijkanten)
+        'Next
         'special rework trays laten verwerken
         'todo voegReworkTraysSpecialLadeToe(zijkanten)
     End Sub
@@ -68,26 +77,4 @@
         'hoofdAansturingSifonLade.verwerkenSpecialLadeMetTrays(_specialLadenRep.sifonLaden)
     End Sub
 
-    'verplaatsen van de sifon laden uit het bestand naar de directory meegegeven in het config bestand en de niet verwerkte in het bestand terug zetten
-    Public Sub verplaatsVerwerkteSifonLaden()
-        Try
-            Dim bestandsNaam As String = _specialLadenRep.bestandsNaam
-
-            For Each sifonLade In _specialLadenRep.sifonLaden
-                'alle onderdelen afgaan
-                'zijkanten
-                For Each zijkant As ArdisData In sifonLade.zijkanten
-                    ArdisTextMapper.opslaanSifonLadeVoorVerwerking(zijkant, bestandsNaam)
-                Next
-                'rug
-                ArdisTextMapper.opslaanSifonLadeVoorVerwerking(sifonLade.rug, bestandsNaam)
-                'bodem
-                ArdisTextMapper.opslaanSifonLadeVoorVerwerking(sifonLade.bodem, bestandsNaam)
-            Next
-            ArdisTextMapper.stopArdisTextOpslag()
-        Catch ex As Exception
-            Throw New Exception("Er is iets foutgelopen bij het verplaatsen van het uitgelezen sifonLade bestand naar een andere folder" & vbNewLine & ex.Message)
-        End Try
-    End Sub
-
 End Class