Index: APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml
===================================================================
diff -u -r38665 -r38672
--- APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml	(.../KenmerkConvertor.cls.xml)	(revision 38665)
+++ APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml	(.../KenmerkConvertor.cls.xml)	(revision 38672)
@@ -3,7 +3,7 @@
 <Class name="APPS.PM.Maatwerk.TBX.Conversie.KenmerkConvertor">
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Method name="Converteer">
 <FormalSpec><![CDATA[Product:DOM.PM.Product,&ErrorLijst:%ListOfDataTypes,&TBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken=""]]></FormalSpec>
@@ -229,6 +229,18 @@
 		Do ..Controleer(TBXKenmerken.OpvullijstKleur,Product.OpvullijstKleur(),"OpvullijstKleur", ErrorLijst)
 		Do ..IsValid(TBXKenmerken.OpvullijstKleur,"DOM.PM.enu.TBXOpvullijstKleur", ErrorLijst)
 	}
+
+	Set TBXKenmerken.InterneBreedte = Product.GeefInbouwBreedte()
+	Do ..Controleer(TBXKenmerken.InterneBreedte,Product.GeefInbouwBreedte(),"Inbouwbreedte", ErrorLijst)
+
+	Set TBXKenmerken.GUIKenmerken.CorpusBreedte = Product.GeefInbouwBreedte() + Product.GeefWandDikte()
+	Do ..Controleer(TBXKenmerken.GUIKenmerken.CorpusBreedte,Product.GeefInbouwBreedte() + Product.GeefWandDikte(),"CorpusBinnenbreedte", ErrorLijst)
+
+	Set TBXKenmerken.GUIKenmerken.CorpusWandDikte = Product.GeefWandDikte()
+	Do ..Controleer(TBXKenmerken.GUIKenmerken.CorpusWandDikte,Product.GeefWandDikte(),"WandDikte", ErrorLijst)
+
+	Set TBXKenmerken.GUIKenmerken.IsBinnenbreedte = $$$If($$$HasLength(Product.GeefWandDikte()),$$$True,$$$False)
+	Do ..Controleer(TBXKenmerken.GUIKenmerken.IsBinnenbreedte,$$$If($$$HasLength(Product.GeefWandDikte()),$$$True,$$$False),"IsBinnenbreedte", ErrorLijst)
 	
 	Quit TBXKenmerken
 ]]></Implementation>