FishEye: Tag 1635 refers to a dead (removed) revision in file `TAOR-rework-bugfixing/TAOR rework/nieuwdomein/dto/DtoConverter.vb'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 1635 refers to a dead (removed) revision in file `TAOR-rework-bugfixing/TAOR rework/nieuwdomein/IHeeftStemasCData.vb'.
FishEye: No comparison available.  Pass `N' to diff?
Index: TAOR-rework-bugfixing/TAOR rework/TAOR rework.vbproj
===================================================================
diff -u -r1629 -r1635
--- TAOR-rework-bugfixing/TAOR rework/TAOR rework.vbproj	(.../TAOR rework.vbproj)	(revision 1629)
+++ TAOR-rework-bugfixing/TAOR rework/TAOR rework.vbproj	(.../TAOR rework.vbproj)	(revision 1635)
@@ -162,15 +162,23 @@
     <Compile Include="laden\special laden\HogereZijkant\HoofdAansturingSpecialLadeHogereZijkant.vb" />
     <Compile Include="laden\special laden\HogereZijkant\SpecialLadeHogereZijkant.vb" />
     <Compile Include="laden\special laden\HoofdAansturingSpecialLade.vb" />
+    <Compile Include="nieuwdomein\engines\ISpecialLadeEngine.vb" />
+    <Compile Include="nieuwdomein\engines\SpecialLadeEngine.vb" />
+    <Compile Include="nieuwdomein\mappers\SifonLadenMapper.vb" />
+    <Compile Include="nieuwdomein\mappers\ISpecialLadeMapper.vb" />
+    <Compile Include="nieuwdomein\onderdelen\special laden onderdelen\ISpecialLadenOnderdelen.vb" />
+    <Compile Include="laden\special laden\LadeManager.vb" />
     <Compile Include="laden\special laden\NieuweKleur\HoofdAansturingSpecialLadeNieuweKleur.vb" />
     <Compile Include="laden\special laden\NieuweKleur\SpecialLadeNieuweKleur.vb" />
     <Compile Include="laden\special laden\Sifonladen\HoofdAansturingSifonLade.vb" />
     <Compile Include="laden\special laden\Sifonladen\SifonLadeDto.vb" />
+    <Compile Include="laden\special laden\Sifonladen\SifonLadeManager.vb" />
     <Compile Include="laden\special laden\Sifonladen\SifonLadeV2.vb" />
-    <Compile Include="nieuwdomein\dto\DtoConverter.vb" />
+    <Compile Include="nieuwdomein\onderdelen\special laden onderdelen\SpecialLadenOnderdelenNieuw.vb" />
+    <Compile Include="nieuwdomein\dto\MustInheritDtoConverter.vb" />
     <Compile Include="nieuwdomein\dto\SifonLadeDtoConverter.vb" />
-    <Compile Include="nieuwdomein\IHeeftDubbeleArdisData.vb" />
-    <Compile Include="nieuwdomein\IHeeftEnkeleArdisdata.vb" />
+    <Compile Include="nieuwdomein\onderdelen\IHeeftDubbeleArdisData.vb" />
+    <Compile Include="nieuwdomein\onderdelen\IHeeftEnkeleArdisdata.vb" />
     <Compile Include="laden\special laden\Sifonladen\ISifonLade.vb" />
     <Compile Include="laden\special laden\SpecialLade.vb" />
     <Compile Include="laden\special laden\Spoelbakladen\HoofdAansturingSpoelbakLade.vb" />
@@ -213,13 +221,17 @@
     </Compile>
     <Compile Include="databases\Kantenband\KantenbandData.vb" />
     <Compile Include="databases\Kantenband\KantenbandMapper.vb" />
-    <Compile Include="nieuwdomein\IHeeftEnkeleKantenbandData.vb" />
-    <Compile Include="nieuwdomein\IHeeftStemasCData.vb" />
-    <Compile Include="nieuwdomein\IHeeftZijkamerFreesProductieData.vb" />
-    <Compile Include="nieuwdomein\onderdelen\Bodem.vb" />
-    <Compile Include="nieuwdomein\onderdelen\Front.vb" />
-    <Compile Include="nieuwdomein\onderdelen\Rug.vb" />
-    <Compile Include="nieuwdomein\onderdelen\Zijkant.vb" />
+    <Compile Include="nieuwdomein\onderdelen\IHeeftKantenbandData.vb" />
+    <Compile Include="nieuwdomein\onderdelen\IHeeftStemasCData.vb" />
+    <Compile Include="nieuwdomein\onderdelen\IHeeftZijkamerFreesProductieData.vb" />
+    <Compile Include="nieuwdomein\mappers\IMapper.vb" />
+    <Compile Include="nieuwdomein\mappers\IOnderdelenMapper.vb" />
+    <Compile Include="nieuwdomein\mappers\ArdisdataOnderdelenMapper.vb" />
+    <Compile Include="nieuwdomein\onderdelen\implementaties\Bodem.vb" />
+    <Compile Include="nieuwdomein\onderdelen\implementaties\Front.vb" />
+    <Compile Include="nieuwdomein\onderdelen\IOnderdeel.vb" />
+    <Compile Include="nieuwdomein\onderdelen\implementaties\Rug.vb" />
+    <Compile Include="nieuwdomein\onderdelen\implementaties\Zijkant.vb" />
     <Compile Include="rework\HoofdAansturingRework.vb" />
     <Compile Include="formulieren\FormSelectID.vb">
       <SubType>Form</SubType>
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/IHeeftDubbeleArdisData.vb
===================================================================
diff -u
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/IHeeftDubbeleArdisData.vb	(revision 0)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/IHeeftDubbeleArdisData.vb	(revision 1635)
@@ -0,0 +1,7 @@
+''' <summary>
+''' Bevat twee Ardis datas, een linkse en een rechtse.
+''' </summary>
+Public Interface IHeeftDubbeleArdisData
+    property ArdisDataL As ArdisData
+    Property ArdisDataR As ArdisData
+End Interface
FishEye: Tag 1635 refers to a dead (removed) revision in file `TAOR-rework-bugfixing/TAOR rework/laden/special laden/IResource.vb'.
FishEye: No comparison available.  Pass `N' to diff?
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/IHeeftKantenbandData.vb
===================================================================
diff -u
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/IHeeftKantenbandData.vb	(revision 0)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/IHeeftKantenbandData.vb	(revision 1635)
@@ -0,0 +1,6 @@
+''' <summary>
+''' Bevat enkele kantenband data.
+''' </summary>
+Public Interface IHeeftKantenbandData
+    Property KantenbandData As KantenbandData
+End Interface
FishEye: Tag 1635 refers to a dead (removed) revision in file `TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/Rug.vb'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 1635 refers to a dead (removed) revision in file `TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/Bodem.vb'.
FishEye: No comparison available.  Pass `N' to diff?
Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/LadeManager.vb
===================================================================
diff -u -r1634 -r1635
--- TAOR-rework-bugfixing/TAOR rework/laden/special laden/LadeManager.vb	(.../LadeManager.vb)	(revision 1634)
+++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/LadeManager.vb	(.../LadeManager.vb)	(revision 1635)
@@ -1,32 +1,58 @@
-Public MustInherit Class LadeManager(Of T)
+Public MustInherit Class LadeManager(Of TLadeType)
 
-    Protected Laden As List(Of T)
+    Protected Laden As List(Of TLadeType)
 
     ''' <summary>
-    ''' Geen constructor zonder parameters.
+    ''' Eerste lade opvragen of Nothing retourneren. (FirstOrDefault)
     ''' </summary>
-    Private Sub New()
-    End Sub
+    ''' <returns>Eerste lade of Nothing</returns>
+    Public Function EersteOfStandaard() As TLadeType
+        Return Laden.FirstOrDefault()
+    End Function
 
     ''' <summary>
-    ''' Initialiseren met lijst van laden.
+    ''' De lade(n) inladen aan de hand van een parameter.
     ''' </summary>
-    ''' <param name="laden">De laden</param>
-    Public Sub New(laden As List(Of T))
-        Me.Laden = laden
-    End Sub
+    ''' <param name="identificatie">Identificatie van de lade(n)</param>
+    ''' <returns>True als er minstens 1 laden met de identificatie gevonden werd.</returns>
+    Public Function ZoekEnLaadLaden(identificatie As String) As Boolean
+        'Laden opzoeken aan de hand van de hook met de identificatie.
+        Dim ingeladenLaden = LaadLadenData(identificatie)
+        'Controleren dat de ingeladen laden niet leeg zijn.
+        If ingeladenLaden IsNot Nothing AndAlso ingeladenLaden.Count <> 0 
+            'Ingeladen laden bijhouden.
+            Laden = ingeladenLaden
+            'True retourneren, 1 of meer laden werden gevonden.
+            Return True
+        End If
+        'Geen Laden werden gevonden.
+        Return False
+    End Function
 
     ''' <summary>
-    ''' Eerste lade opvragen of Nothing retourneren. (FirstOrDefault)
+    ''' De lade(n) inladen aan de hand van een parameter.
     ''' </summary>
-    ''' <returns>Eerste lade of Nothing</returns>
-    Public Function EersteOfStandaard() As T
-        Return Laden.FirstOrDefault()
-    End Function
+    ''' <param name="identificatie">Identificatie van de lade(n)</param>
+    ''' <returns>Lijst van data</returns>
+    Protected MustOverride Function LaadLadenData(identificatie As String) As List(Of TLadeType)
 
     ''' <summary>
     ''' Alle laden updaten met waarden uit andere lade.
     ''' </summary>
     ''' <param name="gewijzigdeLade">De andere lade</param>
-    Public MustOverride Sub UpdateAlle(gewijzigdeLade As T)
+    Public Sub UpdateAlleLaden(gewijzigdeLade As TLadeType)
+        'Controleer of lijst niet leeg is.
+        If Laden IsNot Nothing AndAlso Laden.Count <> 0 Then
+            'Lijst is niet leeg, hook aanroepen.
+            UpdateLaden(gewijzigdeLade)
+        End If
+        'Lijst van laden is leeg, update kan niet uitgevoerd worden.
+        Throw New Exception("Kon special laden niet updaten aan de hand van een gewijzigde lade. Geen laden aanwezig.")
+    End Sub
+
+    ''' <summary>
+    ''' Hook voor alle laden te updaten met waarden uit andere lade.
+    ''' </summary>
+    ''' <param name="gewijzigdeLade">De andere lade</param>
+    Protected MustOverride Sub UpdateLaden(gewijzigdeLade As TLadeType)
 End Class
FishEye: Tag 1635 refers to a dead (removed) revision in file `TAOR-rework-bugfixing/TAOR rework/nieuwdomein/IHeeftDubbeleArdisData.vb'.
FishEye: No comparison available.  Pass `N' to diff?
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/IHeeftStemasCData.vb
===================================================================
diff -u
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/IHeeftStemasCData.vb	(revision 0)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/IHeeftStemasCData.vb	(revision 1635)
@@ -0,0 +1,6 @@
+''' <summary>
+''' Bevat StemasC data.
+''' </summary>
+Public Interface IHeeftStemasCData
+    Property StemasData As StemasData
+End Interface
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
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/special laden onderdelen/ISpecialLadenOnderdelen.vb
===================================================================
diff -u
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/special laden onderdelen/ISpecialLadenOnderdelen.vb	(revision 0)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/special laden onderdelen/ISpecialLadenOnderdelen.vb	(revision 1635)
@@ -0,0 +1,5 @@
+Public Interface ISpecialLadenOnderdelen
+    ReadOnly Property BestandsNaam() As String
+    
+
+End Interface
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/dto/SifonLadeDtoConverter.vb
===================================================================
diff -u -r1634 -r1635
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/dto/SifonLadeDtoConverter.vb	(.../SifonLadeDtoConverter.vb)	(revision 1634)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/dto/SifonLadeDtoConverter.vb	(.../SifonLadeDtoConverter.vb)	(revision 1635)
@@ -1,5 +1,5 @@
 Public Class SifonLadeDtoConverter
-    Inherits DtoConverter(Of ISifonLade, SifonLadeDto)
+    Inherits MustInheritDtoConverter(Of ISifonLade, SifonLadeDto)
 
     ''' <inheritdoc/>
     Public Overrides Function FromDto(dto As SifonLadeDto) As ISifonLade
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/SifonLadenMapper.vb
===================================================================
diff -u
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/SifonLadenMapper.vb	(revision 0)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/SifonLadenMapper.vb	(revision 1635)
@@ -0,0 +1,10 @@
+Public Class SifonLadenMapper
+    Implements ISpecialLadeMapper(Of ISifonLade)
+
+    ''' <inheritdoc/>
+    Public Function GeefAlle(waarde As ISpecialLadenOnderdelen) As List(Of ISifonLade) Implements IMapper(Of ISpecialLadenOnderdelen,ISifonLade).GeefAlle
+        'todo Throw New NotImplementedException
+        Return new List(Of ISifonLade)
+    End Function
+
+End Class
FishEye: Tag 1635 refers to a dead (removed) revision in file `TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/Zijkant.vb'.
FishEye: No comparison available.  Pass `N' to diff?
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/IOnderdelenMapper.vb
===================================================================
diff -u
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/IOnderdelenMapper.vb	(revision 0)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/IOnderdelenMapper.vb	(revision 1635)
@@ -0,0 +1,3 @@
+Public Interface IOnderdelenMapper(of T)
+    Inherits IMapper(Of List(Of T), ISpecialLadenOnderdelen)
+End Interface
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/implementaties/Rug.vb
===================================================================
diff -u
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/implementaties/Rug.vb	(revision 0)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/implementaties/Rug.vb	(revision 1635)
@@ -0,0 +1,6 @@
+Public Class Rug
+    Implements IOnderdeel, IHeeftEnkeleArdisdata, IHeeftKantenbandData
+
+    Public Property ArdisData As ArdisData Implements IHeeftEnkeleArdisdata.ArdisData
+    Public Property KantenbandData As KantenbandData Implements IHeeftKantenbandData.KantenbandData
+End Class
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/ArdisdataOnderdelenMapper.vb
===================================================================
diff -u
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/ArdisdataOnderdelenMapper.vb	(revision 0)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/ArdisdataOnderdelenMapper.vb	(revision 1635)
@@ -0,0 +1,11 @@
+Imports TA_OR_rework
+
+Public Class ArdisdataOnderdelenMapper
+    Implements IOnderdelenMapper(Of ArdisData)
+
+    ''' <inheritdoc/>
+    Public Function GeefAlle(waarde As List(Of ArdisData)) As List(Of ISpecialLadenOnderdelen) Implements IMapper(Of List(Of ArdisData), ISpecialLadenOnderdelen).GeefAlle
+        'todo implementeren
+        Return New List(Of ISpecialLadenOnderdelen) 
+    End Function
+End Class
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/IMapper.vb
===================================================================
diff -u -r1634 -r1635
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/IMapper.vb	(.../IMapper.vb)	(revision 1634)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/IMapper.vb	(.../IMapper.vb)	(revision 1635)
@@ -1,3 +1,8 @@
-Public Interface IMapper(of TGesrialiseerd, TGedeserialiseerd)
-
+Public Interface IMapper(of TWaarde, TReturn)
+    ''' <summary>
+    ''' Opvragen van alle geconverteerde waarden afkomstig van een input.
+    ''' </summary>
+    ''' <param name="waarde">De input</param>
+    ''' <returns>Lijst van geconverteerde waarden</returns>
+    Function GeefAlle(waarde As TWaarde) As List(Of TReturn)
 End Interface
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/implementaties/Bodem.vb
===================================================================
diff -u
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/implementaties/Bodem.vb	(revision 0)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/implementaties/Bodem.vb	(revision 1635)
@@ -0,0 +1,6 @@
+Public Class Bodem
+    Implements IOnderdeel, IHeeftEnkeleArdisdata, IHeeftStemasCData
+
+    Public Property ArdisData As ArdisData Implements IHeeftEnkeleArdisdata.ArdisData
+    Public Property StemasData As StemasData Implements IHeeftStemasCData.StemasData
+End Class
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/special laden onderdelen/SpecialLadenOnderdelenNieuw.vb
===================================================================
diff -u
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/special laden onderdelen/SpecialLadenOnderdelenNieuw.vb	(revision 0)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/special laden onderdelen/SpecialLadenOnderdelenNieuw.vb	(revision 1635)
@@ -0,0 +1,5 @@
+Public Class SpecialLadenOnderdelenNieuw
+    Implements ISpecialLadenOnderdelen
+
+    Public ReadOnly Property BestandsNaam As String Implements ISpecialLadenOnderdelen.BestandsNaam
+End Class
FishEye: Tag 1635 refers to a dead (removed) revision in file `TAOR-rework-bugfixing/TAOR rework/nieuwdomein/IHeeftZijkamerFreesProductieData.vb'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 1635 refers to a dead (removed) revision in file `TAOR-rework-bugfixing/TAOR rework/nieuwdomein/IHeeftKantenbandData.vb'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 1635 refers to a dead (removed) revision in file `TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/Front.vb'.
FishEye: No comparison available.  Pass `N' to diff?
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/dto/MustInheritDtoConverter.vb
===================================================================
diff -u
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/dto/MustInheritDtoConverter.vb	(revision 0)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/dto/MustInheritDtoConverter.vb	(revision 1635)
@@ -0,0 +1,19 @@
+''' <summary>
+''' Converteren van een entiteit naar een DTO en omgekeerd.
+''' </summary>
+''' <typeparam name="TEntity">Type van de entiteit</typeparam>
+''' <typeparam name="TDto">Type van de DTO</typeparam>
+Public MustInherit Class MustInheritDtoConverter(Of TEntity, TDto)
+    ''' <summary>
+    ''' Converteer van een DTO naar een entiteit.
+    ''' </summary>
+    ''' <param name="dto">De DTO</param>
+    ''' <returns></returns>
+    Public MustOverride Function FromDto(dto As TDto) As TEntity
+    ''' <summary>
+    ''' Converteer van een entiteit naar een DTO.
+    ''' </summary>
+    ''' <param name="entity">De entiteit</param>
+    ''' <returns></returns>
+    Public MustOverride Function ToDto(entity As TEntity) As TDto
+End Class
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/IHeeftZijkamerFreesProductieData.vb
===================================================================
diff -u
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/IHeeftZijkamerFreesProductieData.vb	(revision 0)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/IHeeftZijkamerFreesProductieData.vb	(revision 1635)
@@ -0,0 +1,6 @@
+''' <summary>
+''' Bevat productie data voor automilling.
+''' </summary>
+Public Interface IHeeftZijkamerFreesProductieData
+    Property ZijkamerFreesProductieData As ZijkamerFreesProductieData
+End Interface
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/engines/ISpecialLadeEngine.vb
===================================================================
diff -u
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/engines/ISpecialLadeEngine.vb	(revision 0)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/engines/ISpecialLadeEngine.vb	(revision 1635)
@@ -0,0 +1,16 @@
+Public Interface ISpecialLadeEngine(Of TLadeType)
+
+    ''' <summary>
+    ''' Lijst van laden retourneren, opgehaald aan de hand van een ladecode.
+    ''' </summary>
+    ''' <param name="ladeCode">De ladecode</param>
+    ''' <returns>De laden. Een lege lijst als er geen resultaten waren.</returns>
+    Function GeefLadenMetLadeCode(ladeCode As String) As List(Of TLadeType)
+
+    ''' <summary>
+    ''' Lijst van laden retourneren, opgehaald aan de hand van een batch nummer.
+    ''' </summary>
+    ''' <param name="batch">De batch nummer</param>
+    ''' <returns>De laden. Een lege lijst als er geen resultaten waren.</returns>
+    Function GeefLadenMetBatch(batch As String) As List(Of TLadeType)
+End Interface
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/engines/SpecialLadeEngine.vb
===================================================================
diff -u
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/engines/SpecialLadeEngine.vb	(revision 0)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/engines/SpecialLadeEngine.vb	(revision 1635)
@@ -0,0 +1,50 @@
+Imports TA_OR_rework
+
+Public Class SpecialLadeEngine(Of TLadeType)
+    Implements ISpecialLadeEngine(of TLadeType)
+    Private ReadOnly _onderdelenMapper As IOnderdelenMapper(Of ArdisData)
+    Private ReadOnly _specialLadenMapper As ISpecialLadeMapper(Of TLadeType)
+
+    ''' <summary>
+    ''' Initialiseren met special laden mapper.
+    ''' </summary>
+    ''' <param name="specialLadenMapper"></param>
+    Public Sub New(specialLadenMapper As ISpecialLadeMapper(Of TLadeType))
+        'Initialiseren met onderdelen mapper voor ArdisData, want ArdisData zelf is niet generiek, net als de mapper.
+        _onderdelenMapper = New ArdisdataOnderdelenMapper
+        _specialLadenMapper = specialLadenMapper
+    End Sub
+
+    ''' <inheritdoc/>
+    public Function GeefLadenMetLadeCode(ladeCode As String) As List(Of TLadeType) Implements ISpecialLadeEngine(Of TLadeType).GeefLadenMetLadeCode
+        'todo ardisdata opvragen met ladecode
+        Dim ardisDatas As List(Of ArdisData)
+        'De data converteren en retourneren.
+        Return ArdisDatasConverteren(ardisDatas)
+    End Function
+
+    ''' <inheritdoc/>
+    public Function GeefLadenMetBatch(batch As String) As List(Of TLadeType) Implements ISpecialLadeEngine(Of TLadeType).GeefLadenMetBatch
+        'todo ardisdata opvragen met batch
+        Dim ardisDatas As List(Of ArdisData)
+        'De data converteren en retourneren.
+        Return ArdisDatasConverteren(ardisDatas)
+    End Function
+
+    ''' <summary>
+    ''' De lijst van ardis data eerst converteren naar special laden onderdelen en dan naar het huiste type van lade.
+    ''' </summary>
+    ''' <param name="ardisDatas"></param>
+    ''' <returns></returns>
+    Private Function ArdisDatasConverteren(ardisDatas As List(Of ArdisData))
+        'Controleren of ArdisData niet leeg is.
+        If ardisDatas Is Nothing OrElse ardisDatas.Count = 0
+            'Geen resultaten gevonden, lege lijst retourneren.
+            Return New List(Of TLadeType)
+        End If
+        'Resultaten converteren naar 'special laden onderdelen'.
+        Dim specialLadenOnderdelen = _onderdelenMapper.GeefAlle(ardisDatas)
+        ''Special laden onderdelen' converteren naar lijst van laden.
+        Return _specialLadenMapper.GeefAlle(specialLadenOnderdelen)
+    End Function
+End Class
FishEye: Tag 1635 refers to a dead (removed) revision in file `TAOR-rework-bugfixing/TAOR rework/nieuwdomein/IHeeftEnkeleArdisdata.vb'.
FishEye: No comparison available.  Pass `N' to diff?
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/IOnderdeel.vb
===================================================================
diff -u
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/IOnderdeel.vb	(revision 0)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/IOnderdeel.vb	(revision 1635)
@@ -0,0 +1,3 @@
+Public Interface IOnderdeel
+
+End Interface
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/ISpecialLadeMapper.vb
===================================================================
diff -u
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/ISpecialLadeMapper.vb	(revision 0)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/ISpecialLadeMapper.vb	(revision 1635)
@@ -0,0 +1,3 @@
+Public Interface ISpecialLadeMapper(of T)
+    inherits IMapper(Of ISpecialLadenOnderdelen, T)
+End Interface
Index: TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.vb
===================================================================
diff -u -r1634 -r1635
--- TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.vb	(.../FormSifonLade.vb)	(revision 1634)
+++ TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.vb	(.../FormSifonLade.vb)	(revision 1635)
@@ -5,6 +5,9 @@
 
     Private Sub FormSpecialLade_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
         Try
+            'Zorgen dat events van de controls genegeerd worden.
+            _updatingInformatie = True
+
             'Verwerk status controleren.
             If Not Configs.geefVerwerkStatus Then
                 'Er wordt niet verwerkt.
@@ -19,6 +22,9 @@
             BreedteUitsparingComboBox.DataSource = Configs.sifonLadeBreedteUitsparing
             DiepteUitsparingComboBox.DataSource = Configs.dieptes
 
+            'Zorgen dat events van de controls niet meer genegeerd worden.
+            _updatingInformatie = False
+
         Catch ex As Exception
             MessageBox.Show(ex.Message, "Er is een fout opgetreden...", MessageBoxButtons.OK, MessageBoxIcon.Error)
             Application.Exit()
@@ -92,8 +98,26 @@
         Try
             'De special lade selecteren aan de hand van de ladecode en het type.
             'Afhankelijk van het type zal de dubbele lade geselecteerd worden.
-            'todo vervangen door sifonlade controller
-            Domeincontroller.getInstance.kiesSpecialLaden(LadeCodeTextBox.Text, If(DubbelCheckBox.Checked, ItemType.Sifonlade, ItemType.DubbeleSifonlade))
+            'todo dubbele lade zoekfunctie
+            If SifonLadeController.GetInstance().ZoekLade(LadeCodeTextBox.Text) Then
+                'Informatie tonen met standaard waarden.
+                VerwerkGewijzigdeInformatie()
+
+                'Onderdelen en barcodes tonen in data grid view.
+                ToonOnderdelenEnBarcodes()
+            Else
+                'Geen resultaten gevonden.
+                'Melding tonen.
+                FoutmeldingOpzoekenLabel.Text = "Geen resultaten gevonden ¯\_(ツ)_/¯"
+
+                'Tekst in input selecteren.
+                LadeCodeTextBox.SelectAll()
+                LadeCodeTextBox.Focus()
+            End If
+
+            'Zoekbutton enablen.
+            ZoekButton.Enabled = True
+
         Catch ex As Exception
             'Foutmelding tonen.
             FoutmeldingOpzoekenLabel.Text = ex.Message
@@ -108,22 +132,22 @@
             'Functie verlaten.
             Exit Sub
         End Try
+    End Sub
 
-        'Zoekbutton enablen.
-        ZoekButton.Enabled = True
-
+    ''' <summary>
+    ''' Data grid vullen met barcodes en onderdeelnamen.
+    ''' </summary>
+    Private Sub ToonOnderdelenEnBarcodes()
         Try
             'Datagridview vullen met de onderdelen, dit gebeurt eenmalig bij het opzoeken van de lade.
+            'todo label aantal updaten.
             'todo ophalen uit sifonladecontroller
             For Each onderdeelEnBarcode As String() In Domeincontroller.getInstance.geefSpecialLadenOnderdelenEnBarcodes
                 OnderdelenOplijstingDataGridView.Rows.Add(onderdeelEnBarcode.ToArray)
             Next
         Catch ex As Exception
             MessageBox.Show($"Kon onderdelen van de sifonlade niet weergeven. {vbNewLine}{ex.Message}", "Er is een fout opgetreden...", MessageBoxButtons.OK, MessageBoxIcon.Error)
         End Try
-
-        'Informatie tonen met standaard waarden.
-        VerwerkGewijzigdeInformatie()
     End Sub
 
 #Region "Update triggers"
@@ -177,7 +201,7 @@
         End If
 
         'DTO aanmaken, vullen en naar domein sturen.
-        'todo onderscheid maken tussen types dto
+        'todo onderscheid maken tussen types dto: dubbel of niet
         Try
             'DTO opvullen met enkel de waarden die kunnen wijzigen.
             Dim sifonladeDTO = New SifonLadeDto With {
FishEye: Tag 1635 refers to a dead (removed) revision in file `TAOR-rework-bugfixing/TAOR rework/laden/special laden/ISpecialLadenOnderdelen.vb'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 1635 refers to a dead (removed) revision in file `TAOR-rework-bugfixing/TAOR rework/laden/SpecialLadenOnderdelenNieuw.vb'.
FishEye: No comparison available.  Pass `N' to diff?
Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLadeManager.vb
===================================================================
diff -u -r1634 -r1635
--- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLadeManager.vb	(.../SifonLadeManager.vb)	(revision 1634)
+++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLadeManager.vb	(.../SifonLadeManager.vb)	(revision 1635)
@@ -3,13 +3,24 @@
 Public Class SifonLadeManager
     Inherits LadeManager(of ISifonLade)
 
+    Private ReadOnly _specialLadenEngine As ISpecialLadeEngine(of ISifonLade)
+
+    ''' <summary>
+    ''' Initialiseren met een special laden engine.
+    ''' </summary>
+    ''' <param name="specialLadenEngine">De special laden engine</param>
+    Public Sub New(specialLadenEngine As ISpecialLadeEngine(of ISifonLade))
+        _specialLadenEngine = specialLadenEngine
+    End Sub
+
     ''' <inheritdoc/>
-    public sub New(laden As List(Of ISifonLade))
-        MyBase.New(laden)
-    End sub
+    Protected Overrides Function LaadLadenData(identificatie As String) As List(Of ISifonLade)
+        'Laden opvragen met lade code en dan retourneren. 
+        Return _specialLadenEngine.GeefLadenMetLadeCode(identificatie)
+    End Function
 
     ''' <inheritdoc/>
-    public overrides sub UpdateAlle(gewijzigdeLade As ISifonLade)
+    protected overrides sub UpdateLaden(gewijzigdeLade As ISifonLade)
         'Alle sifon laden overlopen.
         for each sifonLade In Laden
             'Updaten met wijzigbare waarden.
@@ -18,5 +29,4 @@
             sifonLade.PositieSifonuitsparingL = gewijzigdeLade.PositieSifonuitsparingL
         Next
     End sub
-
 End Class
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/implementaties/Zijkant.vb
===================================================================
diff -u
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/implementaties/Zijkant.vb	(revision 0)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/implementaties/Zijkant.vb	(revision 1635)
@@ -0,0 +1,8 @@
+Public Class Zijkant
+    Implements IOnderdeel, IHeeftDubbeleArdisData, IHeeftZijkamerFreesProductieData, IHeeftKantenbandData
+
+    Public Property ArdisDataL As ArdisData Implements IHeeftDubbeleArdisData.ArdisDataL
+    Public Property ArdisDataR As ArdisData Implements IHeeftDubbeleArdisData.ArdisDataR
+    Public Property ZijkamerFreesProductieData As ZijkamerFreesProductieData Implements IHeeftZijkamerFreesProductieData.ZijkamerFreesProductieData
+    Public Property KantenbandData As KantenbandData Implements IHeeftKantenbandData.KantenbandData
+End Class
\ No newline at end of file
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/implementaties/Front.vb
===================================================================
diff -u
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/implementaties/Front.vb	(revision 0)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/implementaties/Front.vb	(revision 1635)
@@ -0,0 +1,5 @@
+Public Class Front
+    Implements IOnderdeel, IHeeftEnkeleArdisdata
+
+    Public Property ArdisData As ArdisData Implements IHeeftEnkeleArdisdata.ArdisData
+End Class
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/IHeeftEnkeleArdisdata.vb
===================================================================
diff -u
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/IHeeftEnkeleArdisdata.vb	(revision 0)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/IHeeftEnkeleArdisdata.vb	(revision 1635)
@@ -0,0 +1,6 @@
+''' <summary>
+''' Bevat Ardis data.
+''' </summary>
+Public Interface IHeeftEnkeleArdisdata
+    Property ArdisData As ArdisData
+End Interface
FishEye: Tag 1635 refers to a dead (removed) revision in file `TAOR-rework-bugfixing/TAOR rework/laden/special laden/SifonLadeResource.vb'.
FishEye: No comparison available.  Pass `N' to diff?