Index: APPS/EC/Winkelkar/impl/ProductDesignCodeBepaler.cls.xml
===================================================================
diff -u -r61354 -r61407
--- APPS/EC/Winkelkar/impl/ProductDesignCodeBepaler.cls.xml	(.../ProductDesignCodeBepaler.cls.xml)	(revision 61354)
+++ APPS/EC/Winkelkar/impl/ProductDesignCodeBepaler.cls.xml	(.../ProductDesignCodeBepaler.cls.xml)	(revision 61407)
@@ -5,56 +5,35 @@
 <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,Personality:DOM.common.enu.Personality=""</FormalSpec>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</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[
-	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><![CDATA[	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[
-	if ..Personality = ##class(DOM.common.enu.Personality).HaefeleDE() {
-		Set ..DesignCode = "TA'OR BOX"
-	} else {
-	Set ..DesignCode = "TAOR"
-	}
+<Implementation><![CDATA[	Set ..DesignCode = "TAOR"
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkTBXKenmerken">
 <FormalSpec>TBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</FormalSpec>
-<Implementation><![CDATA[
-	if ..Personality = ##class(DOM.common.enu.Personality).HaefeleDE() {
-		Set ..DesignCode = "TANDEMBOX"
-	} else {
-		Set ..DesignCode = "TBX_" _ "Antaro"
-	}
+<Implementation><![CDATA[	Set ..DesignCode = "TBX_" _ "Antaro"
 ]]></Implementation>
 </Method>
 </Class>