Index: DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml
===================================================================
diff -u -r44154 -r55601
--- DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml	(.../TBXKenmerken.cls.xml)	(revision 44154)
+++ DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml	(.../TBXKenmerken.cls.xml)	(revision 55601)
@@ -247,6 +247,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VulInGUIKenmerken">
+<FormalSpec>ProductId:%String</FormalSpec>
+<Implementation><![CDATA[
+	If ..GUIKenmerken.CorpusWandDikte = "" {
+		#dim CorpusWandDikte As %Numeric = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",ProductId,"WD"),1)
+		Set ..GUIKenmerken.CorpusWandDikte = CorpusWandDikte
+		Set ..GUIKenmerken.IsBinnenbreedte = $$$Not(CorpusWandDikte > 0)
+	}
+]]></Implementation>
+</Method>
+
 <UDLText name="T">
 <Content><![CDATA[
 /***  * /