Index: DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml
===================================================================
diff -u -r2686 -r2691
--- DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml	(.../TBXLadeImpl.cls.xml)	(revision 2686)
+++ DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml	(.../TBXLadeImpl.cls.xml)	(revision 2691)
@@ -193,6 +193,40 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BevatInTeKortenBodem">
+<Implementation><![CDATA[
+	Set Bodem=..GeefBodem()
+	Set InTeKorten=0
+	If $isObject(Bodem)
+	{ 
+		If Bodem.%Extends("DOM.PM.TBXProduct.TBXBodemStrook")
+		{
+			Set InTeKorten=1
+		}
+		Else
+		{
+		 	Set InTeKorten=Bodem.GeefBreedteVanLade()=..GeefInbouwBreedte()
+		}
+	}
+	Quit InTeKorten
+]]></Implementation>
+</Method>
+
+<Method name="BevatInTeKortenRug">
+<Implementation><![CDATA[
+	Set Rug=..GeefRug()
+	Set InTeKorten=0
+	If $isObject(Rug)
+	{ 
+		If Rug.%Extends("DOM.PM.TBXProduct.TBXRugStrook")
+		{
+			Set InTeKorten=1
+		}
+	}
+	Quit InTeKorten
+]]></Implementation>
+</Method>
+
 <Method name="BevatVoorgezaagdeBodem">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit ..BevatBodem() && (..GeefPlaatMateriaal()?1(1"HA",1"HZ",1"KZ",1"KA"))
@@ -277,40 +311,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="IsBodemInTeKorten">
-<Implementation><![CDATA[
-	Set Bodem=..GeefRug()
-	Set InTeKorten=0
-	If $isObject(Bodem)
-	{ 
-		If Bodem.%Extends("DOM.PM.TBXProduct.TBXBodemStrook")
-		{
-			Set InTeKorten=1
-		}
-		Else
-		{
-		 	Set InTeKorten=Bodem.GeefBreedteVanLade()=..InternBreedte()
-		}
-	}
-	Quit InTeKorten
-]]></Implementation>
-</Method>
-
-<Method name="IsRugInTeKorten">
-<Implementation><![CDATA[
-	Set Rug=..GeefRug()
-	Set InTeKorten=0
-	If $isObject(Rug)
-	{ 
-		If Rug.%Extends("DOM.PM.TBXProduct.TBXRugStrook")
-		{
-			Set InTeKorten=1
-		}
-	}
-	Quit InTeKorten
-]]></Implementation>
-</Method>
-
 <Method name="GeefBodem">
 <ReturnType>DOM.PM.TBXProduct.TBXBodem</ReturnType>
 <Implementation><![CDATA[