Index: TAOR-rework-bugfixing/TAOR rework/TAOR rework.vbproj
===================================================================
diff -u -r1639 -r1642
--- TAOR-rework-bugfixing/TAOR rework/TAOR rework.vbproj	(.../TAOR rework.vbproj)	(revision 1639)
+++ TAOR-rework-bugfixing/TAOR rework/TAOR rework.vbproj	(.../TAOR rework.vbproj)	(revision 1642)
@@ -162,20 +162,19 @@
     <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="laden\special laden\ISpecialLade.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\mappers\SpecialLadeMapperUtil.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\onderdelen\special laden onderdelen\SpecialLadenOnderdelenNieuw.vb" />
     <Compile Include="nieuwdomein\dto\MustInheritDtoConverter.vb" />
     <Compile Include="nieuwdomein\dto\SifonLadeDtoConverter.vb" />
     <Compile Include="nieuwdomein\onderdelen\IHeeftDubbeleArdisData.vb" />
Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/LadeManager.vb
===================================================================
diff -u -r1635 -r1642
--- TAOR-rework-bugfixing/TAOR rework/laden/special laden/LadeManager.vb	(.../LadeManager.vb)	(revision 1635)
+++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/LadeManager.vb	(.../LadeManager.vb)	(revision 1642)
@@ -1,4 +1,4 @@
-Public MustInherit Class LadeManager(Of TLadeType)
+Public MustInherit Class LadeManager(Of TLadeType As ISpecialLade)
 
     Protected Laden As List(Of TLadeType)
 
@@ -11,6 +11,14 @@
     End Function
 
     ''' <summary>
+    ''' Aantal laden opvragen.
+    ''' </summary>
+    ''' <returns>Het aantal laden</returns>
+    public Function AantalLaden As Integer
+        Return Laden.Count
+    End Function
+
+    ''' <summary>
     ''' De lade(n) inladen aan de hand van een parameter.
     ''' </summary>
     ''' <param name="identificatie">Identificatie van de lade(n)</param>
@@ -19,7 +27,7 @@
         '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 
+        If ingeladenLaden IsNot Nothing AndAlso ingeladenLaden.Count <> 0 Then
             'Ingeladen laden bijhouden.
             Laden = ingeladenLaden
             'True retourneren, 1 of meer laden werden gevonden.
@@ -37,17 +45,48 @@
     Protected MustOverride Function LaadLadenData(identificatie As String) As List(Of TLadeType)
 
     ''' <summary>
+    ''' Opvragen van de onderdelen en hun barcodes.
+    ''' </summary>
+    ''' <returns>Lijst van String arrays met {naam onderdeel, barcode}</returns>
+    Public Function GeefOrigineleOnderdelenEnBarcodes() As List(Of String())
+        Dim onderdelenEnBarcodes As New List(Of String())
+        For Each lade In Laden
+            'Onderdelen opvragen en itereren.
+            For Each onderdeel In lade.GeefOrigineleOnderdelen()
+                'Kijken of het 1 of 2 ardis data's bevat.
+                If TypeOf onderdeel Is IHeeftEnkeleArdisdata Then
+                    'Enkele Ardis data.
+                    'Casten.
+                    Dim enkeleArdisData = CType(onderdeel, IHeeftEnkeleArdisdata).ArdisData
+                    'Toevoegen.
+                    onderdelenEnBarcodes.Add(New String() {enkeleArdisData.PartRef, enkeleArdisData.PartCalc})
+                ElseIf TypeOf onderdeel Is IHeeftDubbeleArdisData Then
+                    'Dubbel Ardis data.
+                    'Casten.
+                    Dim dubbeleArdisData1 = CType(onderdeel, IHeeftDubbeleArdisData).ArdisData1
+                    Dim dubbeleArdisData2 = CType(onderdeel, IHeeftDubbeleArdisData).ArdisData2
+                    'Toevoegen.
+                    onderdelenEnBarcodes.Add(New String() {dubbeleArdisData1.PartRef, dubbeleArdisData1.PartCalc})
+                    onderdelenEnBarcodes.Add(New String() {dubbeleArdisData2.PartRef, dubbeleArdisData2.PartCalc})
+                End If
+            Next
+        Next
+        'Lijst van onderdelen en barcodes retourneren.
+        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 niet leeg is.
-        If Laden IsNot Nothing AndAlso Laden.Count <> 0 Then
-            'Lijst is niet leeg, hook aanroepen.
-            UpdateLaden(gewijzigdeLade)
+        'Controleer of lijst leeg is.
+        If Laden Is Nothing OrElse Laden.Count = 0 Then
+            '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 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.")
+        'Lijst is niet leeg, hook aanroepen.
+        UpdateLaden(gewijzigdeLade)
     End Sub
 
     ''' <summary>
Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLadeV2.vb
===================================================================
diff -u -r1639 -r1642
--- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLadeV2.vb	(.../SifonLadeV2.vb)	(revision 1639)
+++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLadeV2.vb	(.../SifonLadeV2.vb)	(revision 1642)
@@ -9,11 +9,12 @@
 
 #Region "Onderdelen"
     Public Property BuitenzijkantL As Zijkant Implements ISifonLade.BuitenzijkantL
-    Public Property BuitenzijkanttR As Zijkant Implements ISifonLade.BuitenzijkanttR
+    Public Property BuitenzijkantR As Zijkant Implements ISifonLade.BuitenzijkantR
     Public Property BinnenzijkantL1 As Zijkant Implements ISifonLade.BinnenzijkantL1
     Public Property BinnenzijkantR1 As Zijkant Implements ISifonLade.BinnenzijkantR1
     Public Property Front As Front Implements ISifonLade.Front
     Public Property Bodem As Bodem Implements ISifonLade.Bodem
+    Public Property OrigineleRug As Rug Implements ISifonLade.OrigineleRug
     Public Property RugL As Rug Implements ISifonLade.RugL
     Public Property RugR As Rug Implements ISifonLade.RugR
 
@@ -25,7 +26,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 ReadOnly Property PositieSifonuitsparingR As Double Implements ISifonLade.PositieSifonuitsparingR
         Get
             Return LadeDiepte - PositieSifonuitsparingL - BreedteSifonuitsparing
         End Get
@@ -35,19 +36,29 @@
     Public Property DiepteSifonuitsparing As Double Implements ISifonLade.DiepteSifonuitsparing
 #End Region
 
-    Public Sub New ()
+    Public Sub New()
     End Sub
 
-    Public Sub New(buitenzijkantL As Zijkant, buitenzijkanttR As Zijkant, front As Front, bodem As Bodem, rug As Rug)
-        BuitenzijkantL = buitenzijkantL
-        BuitenzijkanttR = buitenzijkanttR
-        Front = front
-        Bodem = bodem
-        RugL = rug
+    Public Sub New(buitenzijkantL As Zijkant, buitenzijkantR As Zijkant, front As Front, bodem As Bodem, rug As Rug)
+        Me.BuitenzijkantL = buitenzijkantL
+        Me.BuitenzijkantR = buitenzijkantR
+        Me.Front = front
+        Me.bodem = bodem
+        Me.OrigineleRug = rug
         'Variabelen instellen.
-        Bestandsnaam=buitenzijkantL.ArdisDataL.Bestandsnaam
-        Batch = buitenzijkantL.ArdisDataL.geefBatch()
+        Me.Bestandsnaam = buitenzijkantL.ArdisDataL.Bestandsnaam
+        Me.Batch = buitenzijkantL.ArdisDataL.geefBatch()
     End Sub
-    
 
+    ''' <inheritdoc/>
+    Private Function GeefOrigineleOnderdelen() As IEnumerable(Of IOnderdeel) Implements ISpecialLade.GeefOrigineleOnderdelen
+        'Lijst initialiseren met onderdelen en retourneren.
+        Return New List(Of IOnderdeel) From {
+            BuitenzijkantL,
+            BuitenzijkantR,
+            Front,
+            Bodem,
+            OrigineleRug
+        }
+    End Function
 End Class
Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLadeManager.vb
===================================================================
diff -u -r1635 -r1642
--- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLadeManager.vb	(.../SifonLadeManager.vb)	(revision 1635)
+++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLadeManager.vb	(.../SifonLadeManager.vb)	(revision 1642)
@@ -1,15 +1,15 @@
 Imports TA_OR_rework
 
 Public Class SifonLadeManager
-    Inherits LadeManager(of ISifonLade)
+    Inherits LadeManager(Of ISifonLade)
 
-    Private ReadOnly _specialLadenEngine As ISpecialLadeEngine(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))
+    Public Sub New(specialLadenEngine As ISpecialLadeEngine(Of ISifonLade))
         _specialLadenEngine = specialLadenEngine
     End Sub
 
@@ -20,13 +20,13 @@
     End Function
 
     ''' <inheritdoc/>
-    protected overrides sub UpdateLaden(gewijzigdeLade As ISifonLade)
+    Protected Overrides Sub UpdateLaden(gewijzigdeLade As ISifonLade)
         'Alle sifon laden overlopen.
-        for each sifonLade In Laden
+        For Each sifonLade In Laden
             'Updaten met wijzigbare waarden.
             sifonLade.BreedteSifonuitsparing = gewijzigdeLade.BreedteSifonuitsparing
             sifonLade.DiepteSifonuitsparing = gewijzigdeLade.DiepteSifonuitsparing
             sifonLade.PositieSifonuitsparingL = gewijzigdeLade.PositieSifonuitsparingL
         Next
-    End sub
+    End Sub
 End Class
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/implementaties/Zijkant.vb
===================================================================
diff -u -r1635 -r1642
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/implementaties/Zijkant.vb	(.../Zijkant.vb)	(revision 1635)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/implementaties/Zijkant.vb	(.../Zijkant.vb)	(revision 1642)
@@ -1,8 +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 ArdisDataL As ArdisData Implements IHeeftDubbeleArdisData.ArdisData1
+    Public Property ArdisDataR As ArdisData Implements IHeeftDubbeleArdisData.ArdisData2
     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/IHeeftDubbeleArdisData.vb
===================================================================
diff -u -r1635 -r1642
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/IHeeftDubbeleArdisData.vb	(.../IHeeftDubbeleArdisData.vb)	(revision 1635)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/IHeeftDubbeleArdisData.vb	(.../IHeeftDubbeleArdisData.vb)	(revision 1642)
@@ -2,6 +2,6 @@
 ''' Bevat twee Ardis datas, een linkse en een rechtse.
 ''' </summary>
 Public Interface IHeeftDubbeleArdisData
-    property ArdisDataL As ArdisData
-    Property ArdisDataR As ArdisData
+    property ArdisData1 As ArdisData
+    Property ArdisData2 As ArdisData
 End Interface
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)
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/SpecialLadeMapperUtil.vb
===================================================================
diff -u -r1639 -r1642
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/SpecialLadeMapperUtil.vb	(.../SpecialLadeMapperUtil.vb)	(revision 1639)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/SpecialLadeMapperUtil.vb	(.../SpecialLadeMapperUtil.vb)	(revision 1642)
@@ -122,13 +122,13 @@
                 'Type controleren.
                 If TypeName(onderdeel).Equals(GetType(T).Name) Then
                     'Type komt overeen.
-                    'Index verhogen.
-                    onderdeelIndex += 1
                     'Index onderdeel vergelijken met ladeIndex.
                     If onderdeelIndex = ladeIndex Then
                         'Onderdeel retourneren, cast gebeurd automatisch, maar is sowieso correct.
                         Return onderdeel
                     End If
+                    'Index verhogen.
+                    onderdeelIndex += 1
                 End If
             Next
             Return Nothing
Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/ISpecialLade.vb
===================================================================
diff -u
--- TAOR-rework-bugfixing/TAOR rework/laden/special laden/ISpecialLade.vb	(revision 0)
+++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/ISpecialLade.vb	(revision 1642)
@@ -0,0 +1,7 @@
+Public Interface ISpecialLade
+    ''' <summary>
+    ''' Kunnen itereren over de onderdelen.
+    ''' </summary>
+    ''' <returns>De iterator</returns>
+   Function GeefOrigineleOnderdelen As IEnumerable(Of IOnderdeel)
+End Interface
Index: TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.Designer.vb
===================================================================
diff -u -r1634 -r1642
--- TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.Designer.vb	(.../FormSifonLade.Designer.vb)	(revision 1634)
+++ TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.Designer.vb	(.../FormSifonLade.Designer.vb)	(revision 1642)
@@ -48,7 +48,7 @@
         Me.onderdeel = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.barcode = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.Label9 = New System.Windows.Forms.Label()
-        Me.LblAantal = New System.Windows.Forms.Label()
+        Me.AantalLadenLabel = New System.Windows.Forms.Label()
         Me.Label10 = New System.Windows.Forms.Label()
         Me.BatchTextBox = New System.Windows.Forms.TextBox()
         Me.PositieUitsparingNumericUpDown = New System.Windows.Forms.NumericUpDown()
@@ -339,14 +339,14 @@
         Me.Label9.TabIndex = 43
         Me.Label9.Text = "Aantal: "
         '
-        'LblAantal
+        'AantalLadenLabel
         '
-        Me.LblAantal.AutoSize = true
-        Me.LblAantal.Font = New System.Drawing.Font("Microsoft Sans Serif", 20!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
-        Me.LblAantal.Location = New System.Drawing.Point(1385, 151)
-        Me.LblAantal.Name = "LblAantal"
-        Me.LblAantal.Size = New System.Drawing.Size(0, 31)
-        Me.LblAantal.TabIndex = 44
+        Me.AantalLadenLabel.AutoSize = true
+        Me.AantalLadenLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 20!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
+        Me.AantalLadenLabel.Location = New System.Drawing.Point(1385, 151)
+        Me.AantalLadenLabel.Name = "AantalLadenLabel"
+        Me.AantalLadenLabel.Size = New System.Drawing.Size(0, 31)
+        Me.AantalLadenLabel.TabIndex = 44
         '
         'Label10
         '
@@ -606,7 +606,7 @@
         Me.Controls.Add(Me.PositieUitsparingNumericUpDown)
         Me.Controls.Add(Me.Label10)
         Me.Controls.Add(Me.BatchTextBox)
-        Me.Controls.Add(Me.LblAantal)
+        Me.Controls.Add(Me.AantalLadenLabel)
         Me.Controls.Add(Me.Label9)
         Me.Controls.Add(Me.OnderdelenOplijstingDataGridView)
         Me.Controls.Add(Me.FoutmeldingOpzoekenLabel)
@@ -664,7 +664,7 @@
     Friend WithEvents onderdeel As System.Windows.Forms.DataGridViewTextBoxColumn
     Friend WithEvents barcode As System.Windows.Forms.DataGridViewTextBoxColumn
     Friend WithEvents Label9 As System.Windows.Forms.Label
-    Friend WithEvents LblAantal As System.Windows.Forms.Label
+    Friend WithEvents AantalLadenLabel As System.Windows.Forms.Label
     Friend WithEvents Label10 As System.Windows.Forms.Label
     Friend WithEvents BatchTextBox As System.Windows.Forms.TextBox
     Friend WithEvents PositieUitsparingNumericUpDown As System.Windows.Forms.NumericUpDown
Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/ISifonLade.vb
===================================================================
diff -u -r1634 -r1642
--- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/ISifonLade.vb	(.../ISifonLade.vb)	(revision 1634)
+++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/ISifonLade.vb	(.../ISifonLade.vb)	(revision 1642)
@@ -1,15 +1,17 @@
 Public Interface ISifonLade
+    inherits ISpecialLade
     'Properties
     Property Bestandsnaam As String
     Property Batch As String
 
     'Onderdelen
     Property BuitenzijkantL As Zijkant
-    Property BuitenzijkanttR As Zijkant
+    Property BuitenzijkantR As Zijkant
     Property BinnenzijkantL1 As Zijkant
     Property BinnenzijkantR1 As Zijkant
     property Front As Front
     Property Bodem As Bodem
+    Property OrigineleRug As Rug
     Property RugL As Rug
     Property RugR As Rug
 
Index: TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.vb
===================================================================
diff -u -r1637 -r1642
--- TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.vb	(.../FormSifonLade.vb)	(revision 1637)
+++ TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.vb	(.../FormSifonLade.vb)	(revision 1642)
@@ -44,7 +44,7 @@
     'Als de gebruiker op het form klikt de focus uit alle elementen halen en gewoon op een random label zetten (zodat ze niet blijven typen in bijvoorbeeld een textbox).
     Private Sub FormSpecialLade_Click(sender As System.Object, e As System.EventArgs) Handles MyBase.Click
         'Focus random label.
-        LblAantal.Focus()
+        AantalLadenLabel.Focus()
     End Sub
 
     'Selectie van cellen in datagridview disablen.
@@ -99,7 +99,7 @@
             '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().ZoekLade(LadeCodeTextBox.Text) Then
+            If SifonLadeController.GetInstance().ZoekSifonLade(LadeCodeTextBox.Text) Then
                 'Informatie tonen met standaard waarden.
                 VerwerkGewijzigdeInformatie()
 
@@ -131,10 +131,10 @@
     ''' </summary>
     Private Sub ToonOnderdelenEnBarcodes()
         Try
+            'Label aantal updaten.
+            AantalLadenLabel.Text = SifonLadeController.GetInstance().GeefAantalSifonLaden()
             '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
+            For Each onderdeelEnBarcode As String() In SifonLadeController.GetInstance.GeefSpecialLadenOrigineleOnderdelenEnBarcodes()
                 OnderdelenOplijstingDataGridView.Rows.Add(onderdeelEnBarcode.ToArray)
             Next
         Catch ex As Exception
@@ -245,40 +245,50 @@
     ''' TextBoxen: leegmaken. ComboBoxen: eerste waarde selecteren. NumericUpDowns: minimum waarde selecteren. 
     ''' </summary>
     Private Sub ResetVeldenInhoud()
+        'Zorgen dat events van de controls genegeerd worden.
+        _updatingInformatie = True
+
         'Informatie bovenaan.
         BestandsnaamTextBox.Text = String.Empty
         BatchTextBox.Text = String.Empty
         'Normale sifon lade.
+
         LWTextBox.Text = String.Empty
         NLTextBox.Text = String.Empty
         KleurBinnenTextBox.Text = String.Empty
+        'Eerste item van comboboxen selecteren indien er items zijn.
         If BreedteUitsparingComboBox.Items.Count > 0 Then
             BreedteUitsparingComboBox.SelectedIndex = 0
         End If
         If DiepteUitsparingComboBox.Items.Count > 0 Then
             DiepteUitsparingComboBox.SelectedIndex = 0
         End If
+        'Minimum en waarde instellen numeric up down.
         PositieUitsparingNumericUpDown.Value = PositieUitsparingNumericUpDown.Minimum
         RestPositieUitsparingTextBox.Text = String.Empty
 
         'Controleren of dubbele sifon lade is aangeduid.
         If DubbelCheckBox.Checked Then
             'Dubbele sifon lade.
-            'Breedte uitsparing
+
+            'Breedte uitsparing dubbele lade.
             If BreedteUitsparingDubbelComboBox.Items.Count > 0 Then
                 BreedteUitsparingDubbelComboBox.SelectedIndex = 0
             End If
             BreedteUitsparingDubbelOverschrijfNumericUpDown.Value = BreedteUitsparingDubbelOverschrijfNumericUpDown.Minimum
             BreedteUitsparingDubbelResetButton.Enabled = False
-            'Diepte uitsparing
+            'Diepte uitsparing dubbele lade.
             If DiepteUitsparingDubbelComboBox.Items.Count > 0 Then
                 DiepteUitsparingDubbelComboBox.SelectedIndex = 0
             End If
             DiepteUitsparingDubbelOverschrijfNumericUpDown.Value = DiepteUitsparingDubbelOverschrijfNumericUpDown.Minimum
             DiepteUitsparingDubbelResetButton.Enabled = False
-            'Breedte middenstuk
+            'Breedte middenstuk dubbele lade.
             BreedteMiddenstukNumericUpDown.Value = BreedteMiddenstukNumericUpDown.Minimum
         End If
+
+        'Zorgen dat events van de controls niet meer genegeerd worden.
+        _updatingInformatie = False
     End Sub
 
     'todo functie voor enable state van velden te updaten