Index: vhUnitTest/APPS/PM/Maatwerk/impl/NaarObjectConverterTAX/Converteer/Test.cls.xml
===================================================================
diff -u -r30219 -r30227
--- vhUnitTest/APPS/PM/Maatwerk/impl/NaarObjectConverterTAX/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 30219)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/NaarObjectConverterTAX/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 30227)
@@ -13,11 +13,17 @@
 <Private>1</Private>
 </Property>
 
+<Property name="InbouwBreedteBerekenaarMock">
+<Type>vhTest.Mock.APPS.PM.Maatwerk.Lade.impl.InbouwBreedteBerekenaar</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
 	do ##super()
 	
-	set ..Converter = ##class(APPS.PM.Maatwerk.impl.NaarObjectConverterTAX).%New()
+	set ..InbouwBreedteBerekenaarMock = ##class(vhTest.Mock.APPS.PM.Maatwerk.Lade.impl.InbouwBreedteBerekenaar).%New()
+	set ..Converter = ##class(APPS.PM.Maatwerk.impl.NaarObjectConverterTAX).%New(..InbouwBreedteBerekenaarMock)
 ]]></Implementation>
 </Method>
 
@@ -123,6 +129,39 @@
 	do $$$AssertEquals(GeconverteerdeKenmerken.ProductieWijze, "")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: InbouwBreedteBerekenaar wordt opgeroepen bij het converteren van de CorpusBinnenbreedte">
+<Implementation><![CDATA[
+	do ..InbouwBreedteBerekenaarMock.VerwachtMethodCall("BerekenInbouwBreedte", ..TAORKenmerken).ExactAantalKeer(1)
+	
+	#dim GeconverteerdeKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..Converter.Converteer(..TAORKenmerken)
+	
+	do ..InbouwBreedteBerekenaarMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Per opvullijst wordt 25mm bijgeteld voor de CorpusBinnenbreedte">
+<Implementation><![CDATA[
+	#dim GeconverteerdeKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken
+	#dim DummyCorpusBinnenbreedte As %Double = 500
+	
+	set ..TAORKenmerken.HeeftOpvullijstLinks = $$$False
+	set ..TAORKenmerken.HeeftOpvullijstRechts = $$$False
+	
+	do ..InbouwBreedteBerekenaarMock.IndienMethodCall("BerekenInbouwBreedte", ..TAORKenmerken).DanReturn(DummyCorpusBinnenbreedte)
+	
+	set GeconverteerdeKenmerken = ..Converter.Converteer(..TAORKenmerken)
+	
+	do $$$AssertEquals(GeconverteerdeKenmerken.CorpusBinnenbreedte, DummyCorpusBinnenbreedte)
+	
+	set ..TAORKenmerken.HeeftOpvullijstLinks = $$$True
+	set ..TAORKenmerken.HeeftOpvullijstRechts = $$$True
+	
+	set GeconverteerdeKenmerken = ..Converter.Converteer(..TAORKenmerken)
+	
+	do $$$AssertEquals(GeconverteerdeKenmerken.CorpusBinnenbreedte, DummyCorpusBinnenbreedte + 50)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml
===================================================================
diff -u -r30217 -r30227
--- APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml	(.../DtoNaarKenmerkVisitor.cls.xml)	(revision 30217)
+++ APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml	(.../DtoNaarKenmerkVisitor.cls.xml)	(revision 30227)
@@ -43,59 +43,19 @@
 <FormalSpec>TAORKenmerken:APPS.PM.Maatwerk.dto.TAORKenmerken</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
-	set ..IngegevenKenmerken = IngegevenKenmerken
-			
-	Try {
-		Set ..IngegevenKenmerken.CorpusBinnenbreedte = ..InbouwBreedteBerekenaar.BerekenInbouwBreedte(TAORKenmerken)
-		Set ..IngegevenKenmerken.CorpusBinnenbreedte = ..IngegevenKenmerken.CorpusBinnenbreedte + (TAORKenmerken.HeeftOpvullijstLinks*25) + (TAORKenmerken.HeeftOpvullijstRechts*25)
-	} catch {
-		#dim Exception As TECH.Exceptions.GeneralErrorException = ##class(TECH.ExceptionHandler).Catch()
-	}
-	
-	Set IngegevenKenmerken.Draagkracht = TAORKenmerken.Draagkracht
-	Set IngegevenKenmerken.IsBinnenlade = TAORKenmerken.IsBinnenlade
-	Set IngegevenKenmerken.LadeDiepte = TAORKenmerken.LadeDiepte
-	Set IngegevenKenmerken.LadeHoogte = TAORKenmerken.LadeHoogte
-	Set IngegevenKenmerken.LadeKleur = TAORKenmerken.LadeKleur
-	Set IngegevenKenmerken.HeeftOpvullijstLinks = TAORKenmerken.HeeftOpvullijstLinks
-	Set IngegevenKenmerken.HeeftOpvullijstRechts = TAORKenmerken.HeeftOpvullijstRechts
-	Set IngegevenKenmerken.HeeftTipon = TAORKenmerken.HeeftTipon
-	Set IngegevenKenmerken.HeeftZijstabilisering = TAORKenmerken.HeeftZijstabilisering
-	Set IngegevenKenmerken.HeeftDiepteVerstelling = TAORKenmerken.HeeftDiepteVerstelling
-	Set IngegevenKenmerken.GlijderType = TAORKenmerken.GlijderType
-	Set IngegevenKenmerken.Uittrekbaarheid = TAORKenmerken.Uittrekbaarheid
-	Set IngegevenKenmerken.VerpakkingType = TAORKenmerken.VerpakkingType
-	Set IngegevenKenmerken.OpvullijstKleur = TAORKenmerken.OpvullijstKleur
-	Set IngegevenKenmerken.AfdekkapBovenKleur = TAORKenmerken.FrontEindkapKleur
-	Set IngegevenKenmerken.FrontEindkapKleur = TAORKenmerken.FrontEindkapKleur
-	Set IngegevenKenmerken.ProductieWijze = ""
-	Set:(IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).LosseComponentenInBulk()) IngegevenKenmerken.ProductieWijze = TAORKenmerken.LosseComponent
-	Set:$$$Not(IngegevenKenmerken.IsBinnenlade) IngegevenKenmerken.FrontEindkapKleur = ""	
-
-	Set IngegevenKenmerken.BodemKleur = TAORKenmerken.BodemKleur
-	Set IngegevenKenmerken.KoppelingType = TAORKenmerken.KoppelingType
-
-	If (TAORKenmerken.IsBinnenlade) {
-		Set IngegevenKenmerken.FrontBevestiging = ##class(DOM.PM.enu.TAORFrontBevestiging).Schroef()
-	} Else {
-		Set IngegevenKenmerken.FrontBevestiging = TAORKenmerken.FrontBevestiging
-	}
-	
-	Set IngegevenKenmerken.GUIKenmerken.IsBinnenbreedte = TAORKenmerken.IsBinnenbreedte
-	Set IngegevenKenmerken.GUIKenmerken.WandDikte = TAORKenmerken.CorpusWandDikte
+	set ..IngegevenKenmerken = ##class(APPS.PM.Maatwerk.impl.NaarObjectConverterTAX).%New(..InbouwBreedteBerekenaar).Converteer(TAORKenmerken)
 		
-	#Dim Rol As DOM.PM.Maatwerk.Calc.HF.enu.TAORRol.AutoComplete = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol.AutoComplete).%New()
-	#Dim TiponSynchronisatieStangEnTandwiel As TECH.String = Rol.TiponSynchronisatieStang _ Rol.TiponSynchronisatieTandwiel
+	#dim Rol As DOM.PM.Maatwerk.Calc.HF.enu.TAORRol.AutoComplete = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol.AutoComplete).%New()
+	#dim TiponSynchronisatieStangEnTandwiel As TECH.String = Rol.TiponSynchronisatieStang _ Rol.TiponSynchronisatieTandwiel
 	
-	If (##class(TECH.ListUtils).Contains(TAORKenmerken.NietMeeleveren, TiponSynchronisatieStangEnTandwiel)) {
-		Do TAORKenmerken.NietMeeleveren.Insert(Rol.TiponSynchronisatieStang)
-		Do TAORKenmerken.NietMeeleveren.Insert(Rol.TiponSynchronisatieTandwiel)
+	if (##class(TECH.ListUtils).Contains(TAORKenmerken.NietMeeleveren, TiponSynchronisatieStangEnTandwiel)) {
+		do TAORKenmerken.NietMeeleveren.Insert(Rol.TiponSynchronisatieStang)
+		do TAORKenmerken.NietMeeleveren.Insert(Rol.TiponSynchronisatieTandwiel)
 		
-		Do ##class(TECH.ListUtils).RemoveItemFromList(Rol.TiponSynchronisatieStang _ Rol.TiponSynchronisatieTandwiel,TAORKenmerken.NietMeeleveren)
+		do ##class(TECH.ListUtils).RemoveItemFromList(Rol.TiponSynchronisatieStang _ Rol.TiponSynchronisatieTandwiel, TAORKenmerken.NietMeeleveren)
 	}
 	
-	Quit $$$OK
+	quit $$$OK
 ]]></Implementation>
 </Method>
 
Index: APPS/PM/Maatwerk/impl/NaarObjectConverterTAX.cls.xml
===================================================================
diff -u -r30219 -r30227
--- APPS/PM/Maatwerk/impl/NaarObjectConverterTAX.cls.xml	(.../NaarObjectConverterTAX.cls.xml)	(revision 30219)
+++ APPS/PM/Maatwerk/impl/NaarObjectConverterTAX.cls.xml	(.../NaarObjectConverterTAX.cls.xml)	(revision 30227)
@@ -66,7 +66,7 @@
 <Private>1</Private>
 <ReturnType>TECH.Numeric</ReturnType>
 <Implementation><![CDATA[
-	#dim CorpusBinnenbreedte As TECH.Numeric = ""
+	#dim CorpusBinnenbreedte As TECH.Numeric = 0
 	
 	try {
 		set CorpusBinnenbreedte = ..InbouwBreedteBerekenaar.BerekenInbouwBreedte(TAORKenmerken)