Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/SifonLadenMapper.vb
===================================================================
diff -u -r1639 -r1645
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/SifonLadenMapper.vb	(.../SifonLadenMapper.vb)	(revision 1639)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/SifonLadenMapper.vb	(.../SifonLadenMapper.vb)	(revision 1645)
@@ -22,15 +22,38 @@
 
         'Aantal laden opvragen en loop starten.
         Dim aantalLaden = SpecialLadeMapperUtil.GeefAantalLaden(onderdelen, onderdelenAantalDictionary)
-        For i = 0 To aantalLaden -1
+        For i = 0 To aantalLaden - 1
+            'Onderdelen ophalen.
+            Dim zijkantL = SpecialLadeMapperUtil.GeefOnderdelenUitLade(Of Zijkant)(i, onderdelen, onderdelenAantalDictionary)(0)
+            Dim zijkantR = SpecialLadeMapperUtil.GeefOnderdelenUitLade(Of Zijkant)(i, onderdelen, onderdelenAantalDictionary)(1)
+            Dim bodem = SpecialLadeMapperUtil.GeefOnderdeelUitLade(Of Bodem)(i, onderdelen)
+            Dim rug = SpecialLadeMapperUtil.GeefOnderdeelUitLade(Of Rug)(i, onderdelen)
+            'Optioneel front.
+            Dim front = SpecialLadeMapperUtil.GeefOnderdeelUitLade(Of Front)(i, onderdelen)
+
+            'Initialisatie sifonlade.
+            Dim sifonLade As ISifonLade
+
             'Nieuwe sifonlade initialiseren met informatie.
-            Dim sifonLade As New SifonLadeV2( _ 
-                SpecialLadeMapperUtil.GeefOnderdelenUitLade(Of Zijkant)(i, onderdelen, onderdelenAantalDictionary)(0), _
-                SpecialLadeMapperUtil.GeefOnderdelenUitLade(Of Zijkant)(i, onderdelen, onderdelenAantalDictionary)(1), _ 
-                SpecialLadeMapperUtil.GeefOnderdeelUitLade(Of Front)(i, onderdelen), _ 
-                SpecialLadeMapperUtil.GeefOnderdeelUitLade(Of Bodem)(i, onderdelen), _ 
-                SpecialLadeMapperUtil.GeefOnderdeelUitLade(Of Rug)(i, onderdelen) _ 
-                )
+            If front Is Nothing Then
+                'Optioneel front is niet aanwezig.
+                sifonLade = New SifonLadeV2(
+                    zijkantL,
+                    zijkantR,
+                    bodem,
+                    rug
+                    )
+            Else
+                'Front is aanwezig.
+                sifonLade = New SifonLadeV2Compleet(
+                    zijkantL,
+                    zijkantR,
+                    bodem,
+                    rug,
+                    front
+                    )
+            End If
+
             'Toevoegen aan lijst.
             sifonLaden.Add(sifonLade)
         Next