Index: APPS/EC/Winkelkar/impl/ProductDesignCodeBepaler.cls.xml
===================================================================
diff -u -r46101 -r61354
--- APPS/EC/Winkelkar/impl/ProductDesignCodeBepaler.cls.xml	(.../ProductDesignCodeBepaler.cls.xml)	(revision 46101)
+++ APPS/EC/Winkelkar/impl/ProductDesignCodeBepaler.cls.xml	(.../ProductDesignCodeBepaler.cls.xml)	(revision 61354)
@@ -5,35 +5,56 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerkenVisitor</Super>
 
+<Property name="Personality">
+<Type>DOM.common.enu.Personality</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="DesignCode">
 <Type>%String</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="GeefDesignCode">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Personality:DOM.common.enu.Personality=""</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+	Set ..Personality = Personality
 	Do IngegevenKenmerken.Accept($this)
 	Quit ..DesignCode
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkLBXKenmerken">
 <FormalSpec>LBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</FormalSpec>
-<Implementation><![CDATA[	Set ..DesignCode = "LBX_" _ $S(LBXKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Free():"Free", 1:"Pure")
+<Implementation><![CDATA[
+	if ..Personality = ##class(DOM.common.enu.Personality).HaefeleDE() {
+		Set ..DesignCode = "LEGRABOX"
+	} else {
+		Set ..DesignCode = "LBX_" _ $S(LBXKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Free():"Free", 1:"Pure")
+	}
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkTAORKenmerken">
 <FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
-<Implementation><![CDATA[	Set ..DesignCode = "TAOR"
+<Implementation><![CDATA[
+	if ..Personality = ##class(DOM.common.enu.Personality).HaefeleDE() {
+		Set ..DesignCode = "TA'OR BOX"
+	} else {
+	Set ..DesignCode = "TAOR"
+	}
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkTBXKenmerken">
 <FormalSpec>TBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</FormalSpec>
-<Implementation><![CDATA[	Set ..DesignCode = "TBX_" _ "Antaro"
+<Implementation><![CDATA[
+	if ..Personality = ##class(DOM.common.enu.Personality).HaefeleDE() {
+		Set ..DesignCode = "TANDEMBOX"
+	} else {
+		Set ..DesignCode = "TBX_" _ "Antaro"
+	}
 ]]></Implementation>
 </Method>
 </Class>