Index: vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator/Test.cls.xml
===================================================================
diff -u -r61102 -r61354
--- vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator/Test.cls.xml	(.../Test.cls.xml)	(revision 61102)
+++ vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator/Test.cls.xml	(.../Test.cls.xml)	(revision 61354)
@@ -203,6 +203,8 @@
 	Set OfferteLijnenIterator = ##class(TECH.ListIterator).%New(OfferteDto.Lijnen)
 	Do $$$AssertEquals(OfferteLijnenIterator.HasNext(), $$$True)
 	#dim Lijn AS APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteLijn002 = OfferteLijnenIterator.Next() 
+	
+	Do $$$AssertEquals(Lijn.DesignCode,"TA'OR BOX")
 	Do $$$AssertEquals(Lijn.SchadeTijdensTransportOfVoormontage, $$$True)
 	Do $$$AssertEquals(OfferteLijnenIterator.HasNext(), $$$True)
 	Set Lijn = OfferteLijnenIterator.Next() 
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>
Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml
===================================================================
diff -u -r61102 -r61354
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml	(.../OfferteGenerator.cls.xml)	(revision 61102)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml	(.../OfferteGenerator.cls.xml)	(revision 61354)
@@ -69,7 +69,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>WinkelkarService:APPS.EC.Winkelkar.WinkelkarService="",WinkelkarRepository:DOM.EC.Winkelkar.impl.WinkelkarRepository="",UrlBepaler:APPS.EC.Webshop.impl.OfferteUrlBepaler="",TotaalEnPrijsBerekenaar:APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekenaar="",KlantDataBepaler:DOM.VKP.KlantDataBepaler</FormalSpec>
+<FormalSpec>WinkelkarService:APPS.EC.Winkelkar.WinkelkarService="",WinkelkarRepository:DOM.EC.Winkelkar.impl.WinkelkarRepository="",UrlBepaler:APPS.EC.Webshop.impl.OfferteUrlBepaler="",TotaalEnPrijsBerekenaar:APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekenaar="",KlantDataBepaler:DOM.VKP.KlantDataBepaler=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -303,12 +303,14 @@
 		
 		If $$$Not(MaatwerkLijn.GeefIngegevenKenmerken().GeefVariant() = ##class(DOM.PM.enu.LadeVariant).TBXAntaro()) {
 			Set OfferteLijn.LadeCode = MaatwerkLijn.GeefIngegevenKenmerken().GeefLadeCode()
-			Set OfferteLijn.DesignCode = ..GeefDesignCode(MaatwerkLijn)
 		} Else {
 			Set OfferteLijn.LadeCode = MaatwerkLijn.GeefIngegevenKenmerken().LegacyKenmerken.ItemLT
-			Set OfferteLijn.DesignCode = ##class(DOM.PM.enu.LadeVariant).TBXAntaro()
 		}
-		Set OfferteLijn.DesignCodeOmschrijving = ..GeefDesignCodeOmschrijving(OfferteLijn.DesignCode)
+		
+		Set OfferteLijn.DesignCode = ..GeefDesignCode(MaatwerkLijn)
+		
+		Set OfferteLijn.DesignCodeOmschrijving = ..GeefDesignCodeOmschrijving(MaatwerkLijn,OfferteLijn.DesignCode)
+
 		Do ..ZetOmschrijvingen(OfferteLijn,MaatwerkLijn)
 	}
 	Else {
@@ -367,15 +369,15 @@
 <FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ##class(APPS.EC.Winkelkar.impl.ProductDesignCodeBepaler).%New().GeefDesignCode(MaatwerkLijn.GeefIngegevenKenmerken())
+<Implementation><![CDATA[	Quit ##class(APPS.EC.Winkelkar.impl.ProductDesignCodeBepaler).%New().GeefDesignCode(MaatwerkLijn.GeefIngegevenKenmerken(),..Winkelkar.GeefPersonalityID())
 ]]></Implementation>
 </Method>
 
 <Method name="GeefDesignCodeOmschrijving">
-<FormalSpec>DesignCode:%String</FormalSpec>
+<FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn,DefaultOmschrijving:%String=""</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit $Case(DesignCode, "LBX_Pure":"LEGRABOX pure", "LBX_Free":"LEGRABOX free", "TAOR":"TA'OR BOX", "TBX_Antaro":"TANDEMBOX antaro", :DesignCode)
+<Implementation><![CDATA[	Quit ##class(APPS.EC.Winkelkar.impl.ProductDesignCodeOmschrijvingBepaler).%New().GeefDesignCodeOmschrijving(MaatwerkLijn.GeefIngegevenKenmerken(),DefaultOmschrijving)
 ]]></Implementation>
 </Method>
 
Index: APPS/EC/Winkelkar/impl/ProductDesignCodeOmschrijvingBepaler.cls.xml
===================================================================
diff -u
--- APPS/EC/Winkelkar/impl/ProductDesignCodeOmschrijvingBepaler.cls.xml	(revision 0)
+++ APPS/EC/Winkelkar/impl/ProductDesignCodeOmschrijvingBepaler.cls.xml	(revision 61354)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.Winkelkar.impl.ProductDesignCodeOmschrijvingBepaler">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerkenVisitor</Super>
+
+<Property name="Omschrijving">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GeefDesignCodeOmschrijving">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,DefaultWaarde:%String=""</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set ..Omschrijving = DefaultWaarde
+	Do IngegevenKenmerken.Accept($this)
+	Quit ..Omschrijving
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLBXKenmerken">
+<FormalSpec>LBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</FormalSpec>
+<Implementation><![CDATA[	Set ..Omschrijving = "LEGRABOX " _ $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 ..Omschrijving = "TA'OR BOX"
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkTBXKenmerken">
+<FormalSpec>TBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</FormalSpec>
+<Implementation><![CDATA[	Set ..Omschrijving = "TANDEMBOX Antaro"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder.cls.xml
===================================================================
diff -u -r61070 -r61354
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder.cls.xml	(.../BesteldeOfferteMelder.cls.xml)	(revision 61070)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder.cls.xml	(.../BesteldeOfferteMelder.cls.xml)	(revision 61354)
@@ -204,7 +204,7 @@
 <Method name="VerwerkHaefeleDE">
 <FormalSpec>HaefeleDEPersonality:DOM.common.HaefeleDEPersonality</FormalSpec>
 <Implementation><![CDATA[
-	Do ..MailVerzenderHandel.Rapporteer(..Offerte)
+	;Do ..MailVerzenderHandel.Rapporteer(..Offerte)
 	Do ..HttpZenderHaefele.Verzend(..Offerte)
 ]]></Implementation>
 </Method>
Index: vhTest/Mock/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml
===================================================================
diff -u -r55194 -r61354
--- vhTest/Mock/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml	(.../OfferteGenerator.cls.xml)	(revision 55194)
+++ vhTest/Mock/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml	(.../OfferteGenerator.cls.xml)	(revision 61354)
@@ -9,7 +9,7 @@
 <Inheritance>right</Inheritance>
 
 <Method name="%OnNew">
-<FormalSpec>WinkelkarService:APPS.EC.Winkelkar.WinkelkarService="",WinkelkarRepository:DOM.EC.Winkelkar.impl.WinkelkarRepository="",UrlBepaler:APPS.EC.Webshop.impl.OfferteUrlBepaler="",TotaalEnPrijsBerekenaar:APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekenaar="",KlantDataBepaler:DOM.VKP.KlantDataBepaler</FormalSpec>
+<FormalSpec>WinkelkarService:APPS.EC.Winkelkar.WinkelkarService="",WinkelkarRepository:DOM.EC.Winkelkar.impl.WinkelkarRepository="",UrlBepaler:APPS.EC.Webshop.impl.OfferteUrlBepaler="",TotaalEnPrijsBerekenaar:APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekenaar="",KlantDataBepaler:DOM.VKP.KlantDataBepaler=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>