Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFKantenBandFrontv000.cls.xml
===================================================================
diff -u -r67163 -r67184
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFKantenBandFrontv000.cls.xml	(.../HFKantenBandFrontv000.cls.xml)	(revision 67163)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFKantenBandFrontv000.cls.xml	(.../HFKantenBandFrontv000.cls.xml)	(revision 67184)
@@ -19,41 +19,23 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefBewerkteDimensies">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
-<Private>1</Private>
-<ReturnType>%ListOfDataTypes</ReturnType>
-<Implementation><![CDATA[
-	Set BewerkteDimensies = ##class(%ListOfDataTypes).%New()
-	Do BewerkteDimensies.Insert("Lengte")
-	
-	#dim IsLadeKleurWalnutMediumBrown As %Boolean = (IngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).WalnutMediumBrown())
-	If IsLadeKleurWalnutMediumBrown {
-		Do BewerkteDimensies.Insert("Breedte")
-	}
-	
-	Quit BewerkteDimensies
-]]></Implementation>
-</Method>
-
 <Method name="GeefTeBekomenAfmetingPerBewerkteDimensie">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
 <Private>1</Private>
 <ReturnType>%ArrayOfDataTypes</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="%Decimal"</ReturnTypeParams>
 <Implementation><![CDATA[
 	#dim AfmetingPerBewerkteDimensie As array of %Decimal = ##class(%ArrayOfDataTypes).%New()
-	
+	#dim IsLadeKleurWalnutMediumBrown As %Boolean = (IngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).WalnutMediumBrown())
 	#dim Lengte As %Decimal = (2 * IngegevenKenmerken.InterneBreedte)
-	Do AfmetingPerBewerkteDimensie.SetAt(Lengte, "Lengte")
 	
-	#dim IsLadeKleurWalnutMediumBrown As %Boolean = (IngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).WalnutMediumBrown())
 	If IsLadeKleurWalnutMediumBrown {
 		#dim LadeHoogteInMM As TECH.Integer = ..TAORLadeUtils.GeefFysiekeLadeHoogteMM(IngegevenKenmerken.LadeHoogte, IngegevenKenmerken.IsBinnenlade)
-		#dim Hoogte As %Decimal = (2 * LadeHoogteInMM)
-		Do AfmetingPerBewerkteDimensie.SetAt(Hoogte, "Breedte")
+		Set Lengte = Lengte + (2 * LadeHoogteInMM)
 	}
 	
+	Do AfmetingPerBewerkteDimensie.SetAt(Lengte, "Lengte")
+	
 	Quit AfmetingPerBewerkteDimensie
 ]]></Implementation>
 </Method>