Index: TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb
===================================================================
diff -u -r1636 -r1644
--- TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb	(.../ArdisData.vb)	(revision 1636)
+++ TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb	(.../ArdisData.vb)	(revision 1644)
@@ -71,11 +71,11 @@
         Return geefKleurBinnen() & "-" & andereKant.geefKleurBinnen & "-" & geefKleurBinnen() & "-" & andereKant.geefKleurBinnen
     End Function
 
-    Public Function geefBatch() As String
+    Public Function GeefBatch() As String
         Return PartGroup.Substring(0, PartGroup.Length - 3)
     End Function
 
-    Public Function geefKleurBinnen() As String
+    Public Function GeefKleurBinnen() As String
         Return PartExt07
     End Function
 
@@ -263,7 +263,7 @@
         Return getal
     End Function
 
-    Function sifonLadeGeefLWBodem() As String
+    Function SifonLadeGeefLWBodem() As String
         Return PartL - 5 + 31
     End Function
 
Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLadeV2.vb
===================================================================
diff -u -r1642 -r1644
--- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLadeV2.vb	(.../SifonLadeV2.vb)	(revision 1642)
+++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLadeV2.vb	(.../SifonLadeV2.vb)	(revision 1644)
@@ -28,7 +28,7 @@
 
     Public ReadOnly Property PositieSifonuitsparingR As Double Implements ISifonLade.PositieSifonuitsparingR
         Get
-            Return LadeDiepte - PositieSifonuitsparingL - BreedteSifonuitsparing
+            Return KastBreedte - PositieSifonuitsparingL - BreedteSifonuitsparing
         End Get
     End Property
 
@@ -43,11 +43,14 @@
         Me.BuitenzijkantL = buitenzijkantL
         Me.BuitenzijkantR = buitenzijkantR
         Me.Front = front
-        Me.bodem = bodem
+        Me.Bodem = bodem
         Me.OrigineleRug = rug
         'Variabelen instellen.
         Me.Bestandsnaam = buitenzijkantL.ArdisDataL.Bestandsnaam
-        Me.Batch = buitenzijkantL.ArdisDataL.geefBatch()
+        Me.Batch = buitenzijkantL.ArdisDataL.GeefBatch()
+        Me.KastBreedte = bodem.ArdisData.SifonLadeGeefLWBodem()
+        Me.LadeDiepte = buitenzijkantL.ArdisDataL.PartL
+        Me.KleurBinnen = rug.ArdisData.GeefKleurBinnen()
     End Sub
 
     ''' <inheritdoc/>
@@ -61,4 +64,5 @@
             OrigineleRug
         }
     End Function
+
 End Class