Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/Bodem.vb
===================================================================
diff -u
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/Bodem.vb	(revision 0)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/Bodem.vb	(revision 1627)
@@ -0,0 +1,6 @@
+Public Class Bodem
+    Implements 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/Front.vb
===================================================================
diff -u
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/Front.vb	(revision 0)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/Front.vb	(revision 1627)
@@ -0,0 +1,5 @@
+Public Class Front
+    Implements IHeeftEnkeleArdisdata
+
+    Public Property ArdisData As ArdisData Implements IHeeftEnkeleArdisdata.ArdisData
+End Class
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/IHeeftDubbeleKantenbandData.vb
===================================================================
diff -u
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/IHeeftDubbeleKantenbandData.vb	(revision 0)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/IHeeftDubbeleKantenbandData.vb	(revision 1627)
@@ -0,0 +1,7 @@
+''' <summary>
+''' Bevat twee kantenband datas, een linkse en een rechtse.
+''' </summary>
+Public Interface IHeeftDubbeleKantenbandData
+    Property KantenbandDataL As KantenbandData
+    Property KantenbandDataR As KantenbandData
+End Interface
\ No newline at end of file
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/dto/SifonLadeDtoConverter.vb
===================================================================
diff -u
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/dto/SifonLadeDtoConverter.vb	(revision 0)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/dto/SifonLadeDtoConverter.vb	(revision 1627)
@@ -0,0 +1,41 @@
+Public Class SifonLadeDtoConverter
+    Inherits DtoConverter(Of ISifonLade, SifonLadeDto)
+
+    ''' <inheritdoc/>
+    Public Overrides Function FromDto(dto As SifonLadeDto) As ISifonLade
+        Try
+            'Instantie aanmaken en vullen met waarden uit DTO.
+        Return New SifonLadeV2 With {
+            .KastBreedte = dto.KastBreedte,
+            .LadeDiepte = dto.LadeDiepte,
+            .KleurBinnen = dto.KleurBinnen,
+            .PositieSifonuitsparingL = dto.PositieSifonuitsparingL,
+            .PositieSifonuitsparingR = dto.PositieSifonuitsparingR,
+            .BreedteSifonuitsparing = dto.BreedteSifonuitsparing,
+            .DiepteSifonuitsparing = dto.DiepteSifonuitsparing
+        }
+        Catch ex As InvalidCastException
+            'Type van property van DTO komt niet overeen met property van klasse.
+            Throw New Exception($"Kon niet converteren van DTO naar SifonLade. Converter: '{Me.GetType().Name}'. {vbNewLine}Error: {ex.Message}")
+        End Try
+    End Function
+
+    ''' <inheritdoc/>
+    Public Overrides Function ToDto(entity As ISifonLade) As SifonLadeDto
+        Try
+            'DTO aanmaken en vullen met waarden uit klasse (entiteit).
+            Return New SifonLadeDto With {
+                .KastBreedte = entity.KastBreedte,
+                .LadeDiepte = entity.LadeDiepte,
+                .KleurBinnen = entity.KleurBinnen,
+                .PositieSifonuitsparingL = entity.PositieSifonuitsparingL,
+                .PositieSifonuitsparingR = entity.PositieSifonuitsparingR,
+                .BreedteSifonuitsparing = entity.BreedteSifonuitsparing,
+                .DiepteSifonuitsparing = entity.DiepteSifonuitsparing
+                }
+        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}")
+        End Try
+    End Function
+End Class
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/IHeeftEnkeleKantenbandData.vb
===================================================================
diff -u
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/IHeeftEnkeleKantenbandData.vb	(revision 0)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/IHeeftEnkeleKantenbandData.vb	(revision 1627)
@@ -0,0 +1,6 @@
+''' <summary>
+''' Bevat enkele kantenband data.
+''' </summary>
+Public Interface IHeeftEnkeleKantenbandData
+    Property KantenbandData As KantenbandData
+End Interface
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/IHeeftZijkamerFreesProductieData.vb
===================================================================
diff -u
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/IHeeftZijkamerFreesProductieData.vb	(revision 0)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/IHeeftZijkamerFreesProductieData.vb	(revision 1627)
@@ -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/IHeeftEnkeleArdisdata.vb
===================================================================
diff -u
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/IHeeftEnkeleArdisdata.vb	(revision 0)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/IHeeftEnkeleArdisdata.vb	(revision 1627)
@@ -0,0 +1,6 @@
+''' <summary>
+''' Bevat Ardis data.
+''' </summary>
+Public Interface IHeeftEnkeleArdisdata
+    Property ArdisData As ArdisData
+End Interface
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/IHeeftDubbeleArdisData.vb
===================================================================
diff -u
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/IHeeftDubbeleArdisData.vb	(revision 0)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/IHeeftDubbeleArdisData.vb	(revision 1627)
@@ -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
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/Zijkant.vb
===================================================================
diff -u
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/Zijkant.vb	(revision 0)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/Zijkant.vb	(revision 1627)
@@ -0,0 +1,9 @@
+Public Class Zijkant
+    Implements IHeeftDubbeleArdisData, IHeeftZijkamerFreesProductieData, IHeeftDubbeleKantenbandData
+
+    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 KantenbandDataL As KantenbandData Implements IHeeftDubbeleKantenbandData.KantenbandDataL
+    Public Property KantenbandDataR As KantenbandData Implements IHeeftDubbeleKantenbandData.KantenbandDataR
+End Class
\ No newline at end of file
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/Rug.vb
===================================================================
diff -u
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/Rug.vb	(revision 0)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/Rug.vb	(revision 1627)
@@ -0,0 +1,6 @@
+Public Class Rug
+    Implements IHeeftEnkeleArdisdata, IHeeftEnkeleKantenbandData
+
+    Public Property ArdisData As ArdisData Implements IHeeftEnkeleArdisdata.ArdisData
+    Public Property KantenbandData As KantenbandData Implements IHeeftEnkeleKantenbandData.KantenbandData
+End Class
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/IHeeftStemasCData.vb
===================================================================
diff -u
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/IHeeftStemasCData.vb	(revision 0)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/IHeeftStemasCData.vb	(revision 1627)
@@ -0,0 +1,6 @@
+''' <summary>
+''' Bevat StemasC data.
+''' </summary>
+Public Interface IHeeftStemasCData
+    Property StemasData As StemasData
+End Interface
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/dto/DtoConverter.vb
===================================================================
diff -u
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/dto/DtoConverter.vb	(revision 0)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/dto/DtoConverter.vb	(revision 1627)
@@ -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 DtoConverter(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