Index: TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.vb
===================================================================
diff -u -r1649 -r1650
--- TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.vb	(.../FormSifonLade.vb)	(revision 1649)
+++ TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.vb	(.../FormSifonLade.vb)	(revision 1650)
@@ -102,8 +102,17 @@
         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 dubbele lade zoekfunctie
-            If SifonLadeController.GetInstance().ZoekSifonLade(LadeCodeTextBox.Text) Then
+            Dim gevonden As Boolean
+
+            If Not DubbelCheckBox.Checked Then
+                'Normale sifonlade.
+                gevonden = SifonLadeController.GetInstance().ZoekSifonLade(LadeCodeTextBox.Text)
+            Else
+                'Dubbele sifonlade.
+                gevonden = SifonLadeController.GetInstance().ZoekDubbeleSifonLade(LadeCodeTextBox.Text)
+            End If
+
+            If gevonden Then
                 'Informatie tonen met standaard waarden.
                 VerwerkGewijzigdeInformatie()
 
@@ -142,9 +151,9 @@
     Private Sub ToonOnderdelenEnBarcodes()
         Try
             'Label aantal updaten.
-            AantalLadenLabel.Text = SifonLadeController.GetInstance().GeefAantalLaden()
+            AantalLadenLabel.Text = SifonLadeController.GetInstance().GeefAantalSifonLaden()
             'Datagridview vullen met de onderdelen, dit gebeurt eenmalig bij het opzoeken van de lade.
-            For Each onderdeelEnBarcode As String() In SifonLadeController.GetInstance.GeefSpecialLadenOrigineleOnderdelenEnBarcodes()
+            For Each onderdeelEnBarcode As String() In SifonLadeController.GetInstance.GeefSifonLadenOrigineleOnderdelenEnBarcodes()
                 OnderdelenOplijstingDataGridView.Rows.Add(onderdeelEnBarcode.ToArray)
             Next
         Catch ex As Exception
@@ -171,7 +180,7 @@
         UpdateEnableStatusVelden(True)
 
         'Informatie updaten
-        VerwerkGewijzigdeInformatie()
+        ZoekSifonladeEnToonInformatie()
     End Sub
 
     'NumericUpDowns
@@ -206,16 +215,35 @@
         End If
 
         'DTO aanmaken, vullen en naar domein sturen.
-        'todo onderscheid maken tussen types dto: dubbel of niet
         Try
-            'DTO opvullen met enkel de waarden die kunnen wijzigen.
-            Dim sifonladeDTO = New SifonLadeDto With {
-                        .BreedteSifonuitsparingZ1 = BreedteUitsparingComboBox.Text,
-                        .DiepteSifonuitsparingU1 = DiepteUitsparingComboBox.Text,
-                        .PositieSifonuitsparingL = PositieUitsparingNumericUpDown.Value
-                    }
-            'Gewijzigde waarden doorgeven.
-            SifonLadeController.GetInstance().UpdateWaardenSifonLade(sifonladeDTO)
+            'Kiezen welke DTO moet gebruikt worden.
+            If Not DubbelCheckBox.Checked Then
+                'Normale sifonlade.
+                'DTO opvullen met enkel de waarden die kunnen wijzigen.
+                Dim sifonladeDto = New SifonLadeDto With {
+                            .BreedteSifonuitsparingZ1 = BreedteUitsparingComboBox.SelectedValue,
+                            .DiepteSifonuitsparingU1 = DiepteUitsparingComboBox.SelectedValue,
+                            .PositieSifonuitsparingL = PositieUitsparingNumericUpDown.Value
+                        }
+                'Gewijzigde waarden doorgeven.
+                SifonLadeController.GetInstance().UpdateWaardenSifonLade(sifonladeDto)
+            Else
+                'Dubbele sifonlade is geselecteerd.
+                'Waarden opvragen uit combobox of uit numeric up down.
+                Dim breedteSifonuitsparingZ2 = If(BreedteUitsparingDubbelComboBox.Enabled, BreedteUitsparingDubbelComboBox.SelectedValue, BreedteUitsparingDubbelOverschrijfNumericUpDown.Value)
+                Dim diepteSifonuitsparingU2 = If(DiepteUitsparingDubbelComboBox.Enabled, DiepteUitsparingDubbelComboBox.SelectedValue, DiepteUitsparingDubbelOverschrijfNumericUpDown.Value)
+                'DTO opvullen met enkel de waarden die kunnen wijzigen.
+                Dim sifonladeDto = New SifonLadeDubbelDto With {
+                        .BreedteSifonuitsparingZ1 = BreedteUitsparingComboBox.SelectedValue,
+                        .DiepteSifonuitsparingU1 = DiepteUitsparingComboBox.SelectedValue,
+                        .PositieSifonuitsparingL = PositieUitsparingNumericUpDown.Value,
+                        .BreedteSifonuitsparingZ2 = breedteSifonuitsparingZ2,
+                        .DiepteSifonuitsparingU2 = diepteSifonuitsparingU2,
+                        .BreedteMiddenstuk = BreedteMiddenstukNumericUpDown.Value
+                        }
+                'Gewijzigde waarden doorgeven.
+                SifonLadeController.GetInstance().UpdateWaardenDubbeleSifonLade(sifonladeDto)
+            End If
         Catch invalidCastException As InvalidCastException
             'Ongeldige waarde dat een getal zou moeten zijn is doorgegeven.
             MessageBox.Show($"Kan gewijzigde informatie van de sifonlade niet verwerken. Een van de opties bevat een ongeldige waarde.", "Er is een fout opgetreden...", MessageBoxButtons.OK, MessageBoxIcon.Error)
@@ -239,15 +267,32 @@
     Private Sub LaadInformatie()
         Try
             'Ophalen van de informatie.
-            Dim info = SifonLadeController.GetInstance().GeefInformatieSifonLade()
-            'Informatie bovenaan
-            BestandsnaamTextBox.Text = info.Bestandsnaam
-            BatchTextBox.Text = info.Batch
-            'Andere informatie
-            LWTextBox.Text = info.KastBreedte
-            NLTextBox.Text = info.LadeDiepte
-            KleurBinnenTextBox.Text = info.KleurBinnen
-            RestPositieUitsparingTextBox.Text = info.PositieSifonuitsparingR
+
+            'Kijken welk type geladen moet worden.
+            If not DubbelCheckBox.Checked Then
+                'Normale sifonlade.
+                Dim info = SifonLadeController.GetInstance().GeefInformatieSifonLade()
+                'Informatie bovenaan
+                BestandsnaamTextBox.Text = info.Bestandsnaam
+                BatchTextBox.Text = info.Batch
+                'Andere informatie
+                LWTextBox.Text = info.KastBreedte
+                NLTextBox.Text = info.LadeDiepte
+                KleurBinnenTextBox.Text = info.KleurBinnen
+                RestPositieUitsparingTextBox.Text = info.PositieSifonuitsparingR
+            Else
+                'Dubbele sifonlade.
+                Dim info = SifonLadeController.GetInstance().GeefInformatieDubbeleSifonLade()
+                'Informatie bovenaan
+                BestandsnaamTextBox.Text = info.Bestandsnaam
+                BatchTextBox.Text = info.Batch
+                'Andere informatie
+                LWTextBox.Text = info.KastBreedte
+                NLTextBox.Text = info.LadeDiepte
+                KleurBinnenTextBox.Text = info.KleurBinnen
+                RestPositieUitsparingTextBox.Text = info.PositieSifonuitsparingR
+            End If
+
         Catch ex As Exception
             MessageBox.Show($"Kon informatie van de sifonlade niet opvragen. {vbNewLine}{ex.Message}", "Er is een fout opgetreden...", MessageBoxButtons.OK, MessageBoxIcon.Error)
         End Try
@@ -375,7 +420,7 @@
     Private Sub UpdateEnableStatusDubbeleLadeVelden(Optional status As Boolean = True)
         'Status updaten afhankelijk van of de informatie wordt aangepast. False blijft false, true kan false worden.
         'Als informatie wordt aangepast moeten de velden niet enabled worden, anders flashen ze bij het resetten van alles.
-         status = not _updatingInformatie And status
+        status = Not _updatingInformatie And status
 
         'Status controleren.
         If Not status Then
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/dto/SifonLadeDubbelDtoConverter.vb
===================================================================
diff -u -r1649 -r1650
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/dto/SifonLadeDubbelDtoConverter.vb	(.../SifonLadeDubbelDtoConverter.vb)	(revision 1649)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/dto/SifonLadeDubbelDtoConverter.vb	(.../SifonLadeDubbelDtoConverter.vb)	(revision 1650)
@@ -29,14 +29,8 @@
                 .KastBreedte = entity.KastBreedte,
                 .LadeDiepte = entity.LadeDiepte,
                 .KleurBinnen = entity.KleurBinnen,
-                .PositieSifonuitsparingL = entity.PositieSifonuitsparingL,
-                .PositieSifonuitsparingR = entity.PositieSifonuitsparingR,
-                .BreedteSifonuitsparingZ1 = entity.BreedteSifonuitsparingZ1,
-                .DiepteSifonuitsparingU1 = entity.DiepteSifonuitsparingU1,
-                .BreedteSifonuitsparingZ2 = entity.BreedteSifonuitsparingZ2,
-                .DiepteSifonuitsparingU2 = entity.DiepteSifonuitsparingU2,
-                .BreedteMiddenstuk = entity.BreedteMiddenstuk
-                }
+                .PositieSifonuitsparingR = entity.PositieSifonuitsparingR
+                                }
         Catch ex As InvalidCastException
             'Type van property van DTO komt niet overeen met property van klasse.
             Throw New Exception($"Kon niet converteren van dubbele sifonlade naar DTO. Converter: '{Me.GetType().Name}'. {vbNewLine}Error: {ex.Message}")
Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/LadeManager.vb
===================================================================
diff -u -r1646 -r1650
--- TAOR-rework-bugfixing/TAOR rework/laden/special laden/LadeManager.vb	(.../LadeManager.vb)	(revision 1646)
+++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/LadeManager.vb	(.../LadeManager.vb)	(revision 1650)
@@ -75,28 +75,4 @@
         Return onderdelenEnBarcodes
     End Function
 
-    ''' <summary>
-    ''' Alle laden updaten met waarden uit andere lade.
-    ''' </summary>
-    ''' <param name="gewijzigdeLade">De andere lade</param>
-    Public Sub UpdateAlleLaden(gewijzigdeLade As TLadeType)
-        'Controleer of lijst met laden leeg is.
-        If Laden Is Nothing OrElse Laden.Count = 0 Then
-            'Lijst 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 If
-        'Lijst is niet leeg, hook aanroepen.
-        UpdateLaden(gewijzigdeLade)
-    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)
-
-    ''' <summary>
-    ''' De laden in een afgewerkte staat brengen.
-    ''' </summary>
-    public MustOverride sub BouwLaden()
 End Class
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/engines/ISpecialLadeEngine.vb
===================================================================
diff -u -r1636 -r1650
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/engines/ISpecialLadeEngine.vb	(.../ISpecialLadeEngine.vb)	(revision 1636)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/engines/ISpecialLadeEngine.vb	(.../ISpecialLadeEngine.vb)	(revision 1650)
@@ -1,4 +1,4 @@
-Public Interface ISpecialLadeEngine(Of TLadeType)
+Public Interface ISpecialLadeEngine(Of TLadeType As ISpecialLade)
 
     ''' <summary>
     ''' Lijst van laden retourneren, opgehaald aan de hand van een ladecode.
Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/ISifonLadeDubbelCompleet.vb
===================================================================
diff -u -r1649 -r1650
--- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/ISifonLadeDubbelCompleet.vb	(.../ISifonLadeDubbelCompleet.vb)	(revision 1649)
+++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/ISifonLadeDubbelCompleet.vb	(.../ISifonLadeDubbelCompleet.vb)	(revision 1650)
@@ -2,4 +2,5 @@
 ''' 'Alle onderdelen die optioneel zijn in de <see cref="ISifonLadeDubbel"/> worden hier toegevoegd als verplicht./>
 ''' </summary>
 Public Interface ISifonLadeDubbelCompleet
+    Inherits ISifonLadeDubbel, ISifonLadeCompleet
 End Interface
FishEye: Tag 1650 refers to a dead (removed) revision in file `TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLadeManager.vb'.
FishEye: No comparison available.  Pass `N' to diff?
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/SifonLadenDubbelMapper.vb
===================================================================
diff -u
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/SifonLadenDubbelMapper.vb	(revision 0)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/SifonLadenDubbelMapper.vb	(revision 1650)
@@ -0,0 +1,52 @@
+Imports TA_OR_rework
+
+Public Class SifonLadenDubbelMapper
+    Inherits MustInheritSpecialLadeMapper(Of ISifonLadeDubbel)
+
+    Protected Overrides Function GeefOnderdelenAantalDictionary() As Dictionary(Of Type, Integer)
+        'Onderdelen en hun aantal registreren.
+        'Positief betekent verplicht aantal, negatief betekent optioneel, maar indien aanwezig, wel het juiste aantal.
+        Return New Dictionary(Of Type, Integer) From {
+            {GetType(Zijkant), 2},
+            {GetType(Front), -1},
+            {GetType(Bodem), 1},
+            {GetType(Rug), 1}
+            }
+    End Function
+
+    Protected Overrides Function ConverteerLade(ladeIndex As Integer, aantalLaden As Integer, onderdelen As List(Of IOnderdeel), onderdelenAantalDictionary As Dictionary(Of Type, Integer)) As ISifonLadeDubbel
+        'Onderdelen ophalen.
+        Dim zijkantL = SpecialLadeMapperUtil.GeefOnderdelenUitLade(Of Zijkant)(ladeIndex, onderdelen, onderdelenAantalDictionary)(0)
+        Dim zijkantR = SpecialLadeMapperUtil.GeefOnderdelenUitLade(Of Zijkant)(ladeIndex, onderdelen, onderdelenAantalDictionary)(1)
+        Dim bodem = SpecialLadeMapperUtil.GeefOnderdeelUitLade(Of Bodem)(ladeIndex, onderdelen)
+        Dim rug = SpecialLadeMapperUtil.GeefOnderdeelUitLade(Of Rug)(ladeIndex, onderdelen)
+        'Optioneel front.
+        Dim front = SpecialLadeMapperUtil.GeefOnderdeelUitLade(Of Front)(ladeIndex, onderdelen)
+
+        'Initialisatie sifonlade.
+        Dim sifonLade As ISifonLade
+
+        'Nieuwe sifonlade initialiseren met informatie.
+        If front Is Nothing Then
+            'Optioneel front is niet aanwezig.
+            sifonLade = New SifonLadeDubbel(
+                zijkantL,
+                zijkantR,
+                bodem,
+                rug
+                )
+        Else
+            'Front is aanwezig.
+            sifonLade = New SifonLadeDubbelCompleet(
+                zijkantL,
+                zijkantR,
+                bodem,
+                rug,
+                front
+                )
+        End If
+
+        'Waarde retourneren.
+        Return sifonLade
+    End Function
+End Class
Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/MustInheritSifonLadeManager.vb
===================================================================
diff -u
--- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/MustInheritSifonLadeManager.vb	(revision 0)
+++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/MustInheritSifonLadeManager.vb	(revision 1650)
@@ -0,0 +1,47 @@
+Imports TA_OR_rework
+
+Public MustInherit Class MustInheritSifonLadeManager(of TLadeType As ISifonLade)
+    Inherits LadeManager(Of TLadeType)
+
+    Private ReadOnly _specialLadenEngine As ISpecialLadeEngine(Of TLadeType)
+
+    ''' <summary>
+    ''' Initialiseren met een special laden engine.
+    ''' </summary>
+    ''' <param name="specialLadenEngine">De special laden engine</param>
+    Public Sub New(specialLadenEngine As ISpecialLadeEngine(Of TLadeType))
+        _specialLadenEngine = specialLadenEngine
+    End Sub
+
+    ''' <inheritdoc/>
+    Protected Overrides Function LaadLadenData(identificatie As String) As List(Of TLadeType)
+        'Laden opvragen met lade code en dan retourneren. 
+        Return _specialLadenEngine.GeefLadenMetLadeCode(identificatie)
+    End Function
+
+    ''' <summary>
+    ''' Alle laden updaten met waarden uit andere lade.
+    ''' </summary>
+    ''' <param name="gewijzigdeLade">De andere lade</param>
+    Public Sub UpdateAlleLaden(gewijzigdeLade As TLadeType)
+        'Controleer of lijst met laden leeg is.
+        If Laden Is Nothing OrElse Laden.Count = 0 Then
+            'Lijst 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 If
+        'Lijst is niet leeg, hook aanroepen.
+        UpdateLaden(gewijzigdeLade)
+    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)
+
+    ''' <summary>
+    ''' De laden in een afgewerkte staat brengen.
+    ''' </summary>
+    public MustOverride sub BouwLaden()
+
+End Class
Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeV2.vb
===================================================================
diff -u -r1649 -r1650
--- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeV2.vb	(.../SifonLadeV2.vb)	(revision 1649)
+++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeV2.vb	(.../SifonLadeV2.vb)	(revision 1650)
@@ -23,7 +23,7 @@
     Public Property KleurBinnen As String Implements ISifonLade.KleurBinnen
     Public Property PositieSifonuitsparingL As Double Implements ISifonLade.PositieSifonuitsparingL
 
-    Public ReadOnly Property PositieSifonuitsparingR As Double Implements ISifonLade.PositieSifonuitsparingR
+    Public Overridable ReadOnly Property PositieSifonuitsparingR As Double Implements ISifonLade.PositieSifonuitsparingR
         Get
             Return (KastBreedte - 31) - PositieSifonuitsparingL - BreedteSifonuitsparingZ1
         End Get
Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeDubbel.vb
===================================================================
diff -u -r1649 -r1650
--- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeDubbel.vb	(.../SifonLadeDubbel.vb)	(revision 1649)
+++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeDubbel.vb	(.../SifonLadeDubbel.vb)	(revision 1650)
@@ -12,7 +12,7 @@
     Public Property BreedteSifonuitsparingZ2 As Double Implements ISifonLadeDubbel.BreedteSifonuitsparingZ2
     Public Property DiepteSifonuitsparingU2 As Double Implements ISifonLadeDubbel.DiepteSifonuitsparingU2
     Public Property BreedteMiddenstuk As Double Implements ISifonLadeDubbel.BreedteMiddenstuk
-    Public Overloads ReadOnly Property PositieSifonuitsparingR As Double Implements ISifonLade.PositieSifonuitsparingR
+    Public Overrides ReadOnly Property PositieSifonuitsparingR As Double
         Get
             'Maakt gebruik van de berekening van de parent en trekt extra waarden af.
             Return MyBase.PositieSifonuitsparingR - BreedteMiddenstuk - BreedteSifonuitsparingZ2
Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeManager.vb
===================================================================
diff -u
--- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeManager.vb	(revision 0)
+++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeManager.vb	(revision 1650)
@@ -0,0 +1,28 @@
+Public Class SifonLadeManager
+    inherits MustInheritSifonLadeManager(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))
+        MyBase.new(specialLadenEngine)
+    End Sub
+
+    ''' <inheritdoc/>
+    Protected Overrides Sub UpdateLaden(gewijzigdeLade As ISifonLade)
+        'Alle sifon laden overlopen.
+        For Each sifonLade In Laden
+            'Updaten met wijzigbare waarden.
+            sifonLade.BreedteSifonuitsparingZ1 = gewijzigdeLade.BreedteSifonuitsparingZ1
+            sifonLade.DiepteSifonuitsparingU1 = gewijzigdeLade.DiepteSifonuitsparingU1
+            sifonLade.PositieSifonuitsparingL = gewijzigdeLade.PositieSifonuitsparingL
+        Next
+    End Sub
+
+    ''' <inheritdoc/>
+    Public Overrides Sub BouwLaden()
+        Throw New NotImplementedException
+    End Sub
+
+End Class
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/engines/SpecialLadeEngine.vb
===================================================================
diff -u -r1639 -r1650
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/engines/SpecialLadeEngine.vb	(.../SpecialLadeEngine.vb)	(revision 1639)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/engines/SpecialLadeEngine.vb	(.../SpecialLadeEngine.vb)	(revision 1650)
@@ -1,6 +1,6 @@
 Imports TA_OR_rework
 
-Public Class SpecialLadeEngine(Of TLadeType)
+Public Class SpecialLadeEngine(Of TLadeType as ISpecialLade)
     Implements ISpecialLadeEngine(of TLadeType)
     Private ReadOnly _onderdelenMapper As IOnderdelenMapper(Of ArdisData)
     Private ReadOnly _specialLadenMapper As ISpecialLadeMapper(Of TLadeType)
Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/DubbeleSifonLadeManager.vb
===================================================================
diff -u
--- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/DubbeleSifonLadeManager.vb	(revision 0)
+++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/DubbeleSifonLadeManager.vb	(revision 1650)
@@ -0,0 +1,32 @@
+Public Class DubbeleSifonLadeManager
+    inherits MustInheritSifonLadeManager(Of ISifonLadeDubbel)
+
+    ''' <summary>
+    ''' Initialiseren met een special laden engine.
+    ''' </summary>
+    ''' <param name="specialLadenEngine">De special laden engine</param>
+    Public Sub New(specialLadenEngine As ISpecialLadeEngine(Of ISifonLadeDubbel))
+        MyBase.new(specialLadenEngine)
+    End Sub
+
+    ''' <inheritdoc/>
+    Protected Overrides Sub UpdateLaden(gewijzigdeLade As ISifonLadeDubbel)
+        'Alle sifon laden overlopen.
+        For Each sifonLade In Laden
+            'Updaten met wijzigbare waarden.
+            sifonLade.BreedteSifonuitsparingZ1 = gewijzigdeLade.BreedteSifonuitsparingZ1
+            sifonLade.DiepteSifonuitsparingU1 = gewijzigdeLade.DiepteSifonuitsparingU1
+            sifonLade.PositieSifonuitsparingL = gewijzigdeLade.PositieSifonuitsparingL
+            'Dubbele sifonlade
+            sifonLade.BreedteSifonuitsparingZ2 = gewijzigdeLade.BreedteSifonuitsparingZ2
+            sifonLade.DiepteSifonuitsparingU2 = gewijzigdeLade.DiepteSifonuitsparingU2
+            sifonLade.BreedteMiddenstuk = gewijzigdeLade.BreedteMiddenstuk
+        Next
+    End Sub
+
+    ''' <inheritdoc/>
+    Public Overrides Sub BouwLaden()
+        Throw New NotImplementedException
+    End Sub
+
+End Class
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
Index: TAOR-rework-bugfixing/TAOR rework/TAOR rework.vbproj
===================================================================
diff -u -r1649 -r1650
--- TAOR-rework-bugfixing/TAOR rework/TAOR rework.vbproj	(.../TAOR rework.vbproj)	(revision 1649)
+++ TAOR-rework-bugfixing/TAOR rework/TAOR rework.vbproj	(.../TAOR rework.vbproj)	(revision 1650)
@@ -174,6 +174,7 @@
     <Compile Include="nieuwdomein\dto\SifonLadeDubbelDtoConverter.vb" />
     <Compile Include="nieuwdomein\engines\ISpecialLadeEngine.vb" />
     <Compile Include="nieuwdomein\engines\SpecialLadeEngine.vb" />
+    <Compile Include="nieuwdomein\mappers\SifonLadenDubbelMapper.vb" />
     <Compile Include="nieuwdomein\mappers\MustInheritSpecialLadeMapper.vb" />
     <Compile Include="nieuwdomein\mappers\SifonLadenMapper.vb" />
     <Compile Include="nieuwdomein\mappers\ISpecialLadeMapper.vb" />
FishEye: Tag 1650 refers to a dead (removed) revision in file `TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/IDubbeleSifonLade.vb'.
FishEye: No comparison available.  Pass `N' to diff?
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/dto/SifonLadeDtoConverter.vb
===================================================================
diff -u -r1649 -r1650
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/dto/SifonLadeDtoConverter.vb	(.../SifonLadeDtoConverter.vb)	(revision 1649)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/dto/SifonLadeDtoConverter.vb	(.../SifonLadeDtoConverter.vb)	(revision 1650)
@@ -5,7 +5,7 @@
     Public Overrides Function FromDto(dto As SifonLadeDto) As ISifonLade
         Try
             'Instantie aanmaken en vullen met de belangrijke waarden uit DTO.
-            Return New SifonLadeV2() With{
+            Return New SifonLadeV2() With {
                 .PositieSifonuitsparingL = dto.PositieSifonuitsparingL,
                 .BreedteSifonuitsparingZ1 = dto.BreedteSifonuitsparingZ1,
                 .DiepteSifonuitsparingU1 = dto.DiepteSifonuitsparingU1
@@ -26,11 +26,8 @@
                 .KastBreedte = entity.KastBreedte,
                 .LadeDiepte = entity.LadeDiepte,
                 .KleurBinnen = entity.KleurBinnen,
-                .PositieSifonuitsparingL = entity.PositieSifonuitsparingL,
-                .PositieSifonuitsparingR = entity.PositieSifonuitsparingR,
-                .BreedteSifonuitsparingZ1 = entity.BreedteSifonuitsparingZ1,
-                .DiepteSifonuitsparingU1 = entity.DiepteSifonuitsparingU1
-                }
+                .PositieSifonuitsparingR = entity.PositieSifonuitsparingR
+                                }
         Catch ex As InvalidCastException
             'Type van property van DTO komt niet overeen met property van klasse.
             Throw New Exception($"Kon niet converteren van SifonLade naar DTO. Converter: '{Me.GetType().Name}'. {vbNewLine}Error: {ex.Message}")