Index: DOM/PM/Maatwerk/Calc/HF/impl/Wikkel/TAOR/WikkelBreedteBepaler.cls.xml
===================================================================
diff -u -r54610 -r54612
--- DOM/PM/Maatwerk/Calc/HF/impl/Wikkel/TAOR/WikkelBreedteBepaler.cls.xml	(.../WikkelBreedteBepaler.cls.xml)	(revision 54610)
+++ DOM/PM/Maatwerk/Calc/HF/impl/Wikkel/TAOR/WikkelBreedteBepaler.cls.xml	(.../WikkelBreedteBepaler.cls.xml)	(revision 54612)
@@ -18,6 +18,11 @@
 <Private>1</Private>
 </Property>
 
+<Parameter name="Factor">
+<Type>%Decimal</Type>
+<Default>1.1</Default>
+</Parameter>
+
 <Method name="%OnNew">
 <FormalSpec>TAORLadeUtils:DOM.PM.Maatwerk.Lade.LadeUtils.impl.TAORLadeUtils</FormalSpec>
 <Private>1</Private>
@@ -42,49 +47,53 @@
 
 <Method name="VerwerkBodem">
 <Private>1</Private>
-<Implementation><![CDATA[	Set ..WikkelBreedte = ..TAORKenmerken.InterneBreedte*1.1
+<Implementation><![CDATA[	Set ..WikkelBreedte = ..TAORKenmerken.InterneBreedte*..#Factor
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkBodemEnRug">
 <Private>1</Private>
-<Implementation><![CDATA[	Set ..WikkelBreedte = ..TAORKenmerken.InterneBreedte*1.1
+<Implementation><![CDATA[	Set ..WikkelBreedte = ..TAORKenmerken.InterneBreedte*..#Factor
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkFront">
 <Private>1</Private>
-<Implementation><![CDATA[	Set ..WikkelBreedte = ..TAORKenmerken.InterneBreedte*1.1
+<Implementation><![CDATA[	Set ..WikkelBreedte = ..TAORKenmerken.InterneBreedte*..#Factor
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkZijkantLinks">
 <Private>1</Private>
-<Implementation><![CDATA[	Set ..WikkelBreedte = ..TAORKenmerken.InterneBreedte*1.1
+<Implementation><![CDATA[
+	#dim LadeHoogteInMM As TECH.Integer = ..TAORLadeUtils.GeefFysiekeLadeHoogteMM(..TAORKenmerken.LadeHoogte, ..TAORKenmerken.IsBinnenlade)
+	Set ..WikkelBreedte = LadeHoogteInMM * ..#Factor
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkZijkantRechts">
 <Private>1</Private>
-<Implementation><![CDATA[	Set ..WikkelBreedte = ..TAORKenmerken.InterneBreedte*1.1
+<Implementation><![CDATA[
+	#dim LadeHoogteInMM As TECH.Integer = ..TAORLadeUtils.GeefFysiekeLadeHoogteMM(..TAORKenmerken.LadeHoogte, ..TAORKenmerken.IsBinnenlade)
+	Set ..WikkelBreedte = LadeHoogteInMM * ..#Factor
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkRug">
 <Private>1</Private>
-<Implementation><![CDATA[	Set ..WikkelBreedte = ..TAORKenmerken.InterneBreedte*1.1
+<Implementation><![CDATA[	Set ..WikkelBreedte = ..TAORKenmerken.InterneBreedte*..#Factor
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkRugMetHouders">
 <Private>1</Private>
-<Implementation><![CDATA[	Set ..WikkelBreedte = ..TAORKenmerken.InterneBreedte*1.1
+<Implementation><![CDATA[	Set ..WikkelBreedte = ..TAORKenmerken.InterneBreedte*..#Factor
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkVolledig">
 <Private>1</Private>
-<Implementation><![CDATA[	Set ..WikkelBreedte = ..TAORKenmerken.InterneBreedte*1.1
+<Implementation><![CDATA[	Set ..WikkelBreedte = ..TAORKenmerken.InterneBreedte*..#Factor
 ]]></Implementation>
 </Method>
 </Class>