Index: APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml
===================================================================
diff -u -r39527 -r39536
--- APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml	(.../MaatwerkLijnBuilder.cls.xml)	(revision 39527)
+++ APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml	(.../MaatwerkLijnBuilder.cls.xml)	(revision 39536)
@@ -43,6 +43,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="IngegevenKenmerkenTypeAPI">
+<Type>DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>VerpakkingService:APPS.PM.Maatwerk.impl.VerpakkingService</FormalSpec>
 <Private>1</Private>
@@ -56,6 +61,7 @@
 	Set ..MaatwerkCalcAPI = ##class(DOM.PM.impl.MaatwerkCalcAPI).%New()
 	Set ..VerpakteAfmetingBerekenaarFactory = ##class(APPS.EC.Winkelkar.impl.VerpakteAfmetingBerekenaarFactory).%New()
 	Set ..VerpakkingService = $$$Inject(VerpakkingService, ##class(APPS.PM.Maatwerk.impl.VerpakkingService).%New())
+	Set ..IngegevenKenmerkenTypeAPI = ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New()
 
 	quit $$$OK
 ]]></Implementation>
@@ -244,7 +250,7 @@
 <Method name="BerekenMaatwerkLijnGewicht">
 <FormalSpec>Lijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
 <Implementation><![CDATA[
-	Quit:Lijn.GeefIngegevenKenmerken().GeefVariant()["TBX"
+	Quit:(..IngegevenKenmerkenTypeAPI.IsTandemboxLade(Lijn.GeefIngegevenKenmerken()))
 	
 	#dim BerekenTotaalGewichtOpdracht As APPS.EC.Winkelkar.impl.MaatwerkLijnGewichtOpdracht = ##class(APPS.EC.Winkelkar.impl.MaatwerkLijnGewichtOpdracht).%New()
 	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..MaatwerkCalcAPI.GeefHalffabItemsBoom(Lijn.GeefIngegevenKenmerken()) 
@@ -257,7 +263,7 @@
 <Method name="ZetVerpakteAfmeting">
 <FormalSpec>Lijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
 <Implementation><![CDATA[
-	Quit:Lijn.GeefIngegevenKenmerken().GeefVariant()["TBX"
+	Quit:(..IngegevenKenmerkenTypeAPI.IsTandemboxLade(Lijn.GeefIngegevenKenmerken()))
 	
 	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..MaatwerkCalcAPI.GeefHalffabItemsBoom(Lijn.GeefIngegevenKenmerken()) 
 	#dim VerpakteAfmetingBerekenaar	As APPS.EC.Winkelkar.VerpakteAfmetingBerekenaar
@@ -271,7 +277,7 @@
 <Method name="ZetVolumeAandeel">
 <FormalSpec>Lijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
 <Implementation><![CDATA[
-	Quit:Lijn.GeefIngegevenKenmerken().GeefVariant()["TBX"
+	Quit:(..IngegevenKenmerkenTypeAPI.IsTandemboxLade(Lijn.GeefIngegevenKenmerken()))
 	
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = Lijn.GeefIngegevenKenmerken()
 	#dim IsFamilieLade As %Boolean = (IngegevenKenmerken.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade())
@@ -297,7 +303,7 @@
 <Method name="BewaarLijn">
 <FormalSpec>Lijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
 <Implementation><![CDATA[
-	Quit:Lijn.GeefIngegevenKenmerken().GeefVariant()["TBX"
+	Quit:(..IngegevenKenmerkenTypeAPI.IsTandemboxLade(Lijn.GeefIngegevenKenmerken()))
 	Do Lijn.Save()
 ]]></Implementation>
 </Method>
Index: APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml
===================================================================
diff -u -r39413 -r39536
--- APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 39413)
+++ APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 39536)
@@ -48,6 +48,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="IngegevenKenmerkenTypeAPI">
+<Type>DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>VerkoopPrijsBepaler:DOM.PM.VerkoopPrijsBepaler,PrijsFactorBepalerFactory:APPS.EC.Winkelkar.WinkelkarService.PrijsFactorBepalerFactory,KortingBepaler:APPS.EC.Winkelkar.WinkelkarService.KortingBepaler</FormalSpec>
 <Private>1</Private>
@@ -58,6 +63,7 @@
 	Set ..VerkoopPrijsBepaler = $$$Inject(VerkoopPrijsBepaler, ##class(DOM.PM.impl.VerkoopPrijsBepaler).%New())
 	Set ..PrijsFactorBepalerFactory = $$$Inject(PrijsFactorBepalerFactory, ##class(APPS.EC.Winkelkar.WinkelkarService.impl.PrijsFactorBepalerFactory).%New())
 	Set ..KortingBepaler = $$$Inject(KortingBepaler, ##class(APPS.EC.Winkelkar.WinkelkarService.impl.KortingBepaler).%New())
+	Set ..IngegevenKenmerkenTypeAPI = ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -184,11 +190,11 @@
 <Implementation><![CDATA[
 	#dim VanHoeckePersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).VanHoecke()
 	#dim LijstPrijsKlantID As DOM.VKP.VanHoeckeKlantID = ##class(DOM.VKP.enu.Klant).LijstPrijsKlant()	
-	#dim IngegevenKenmerken = ..MaatwerkLijn.GeefIngegevenKenmerken()
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..MaatwerkLijn.GeefIngegevenKenmerken()
 	#dim Aantal As %Integer = ..GeefAantal()
 	#dim VerkoopPrijsInfo As DOM.VKP.info.VerkoopPrijsInfo = ..VerkoopPrijsBepaler.BepaalVerkoopPrijs(IngegevenKenmerken,Aantal,VanHoeckePersonalityID,LijstPrijsKlantID)
 	
-	If $$$Not(IngegevenKenmerken.GeefVariant()["TBX"){	
+	If $$$Not(..IngegevenKenmerkenTypeAPI.IsTandemboxLade(IngegevenKenmerken)){	
 		Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(Aantal,..KlantID,..Personality)	
 		#dim VerkoopPrijsInfoInclKorting As DOM.VKP.info.VerkoopPrijsInfo = ..VerwerkKorting(VerkoopPrijsInfo,IngegevenKenmerken,BerekeningsSpecificatie)
 		quit VerkoopPrijsInfoInclKorting.GeefLijstPrijs()
@@ -208,7 +214,7 @@
 	
 	#dim VerkoopPrijsInfoInclKorting As DOM.VKP.info.VerkoopPrijsInfo
 	
-	If $$$Not(IngegevenKenmerken.GeefVariant()["TBX"){	
+	If $$$Not(..IngegevenKenmerkenTypeAPI.IsTandemboxLade(IngegevenKenmerken)){
 		#dim BerekeningsSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(Aantal, ..KlantID, ..Personality)	
 		Set VerkoopPrijsInfoInclKorting = ..VerwerkKorting(VerkoopPrijsInfo, IngegevenKenmerken, BerekeningsSpecificatie)
 	} Else {
Index: vhTest/Fake/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml
===================================================================
diff -u -r36334 -r39536
--- vhTest/Fake/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 36334)
+++ vhTest/Fake/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 39536)
@@ -23,8 +23,7 @@
 
 <Method name="VerwerkHein">
 <FormalSpec>HeinPersonality:DOM.common.HeinPersonality</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="VerwerkDaro">
Index: APPS/PM/Maatwerk/impl/KenmerkNaarDtoVisitor.cls.xml
===================================================================
diff -u -r39416 -r39536
--- APPS/PM/Maatwerk/impl/KenmerkNaarDtoVisitor.cls.xml	(.../KenmerkNaarDtoVisitor.cls.xml)	(revision 39416)
+++ APPS/PM/Maatwerk/impl/KenmerkNaarDtoVisitor.cls.xml	(.../KenmerkNaarDtoVisitor.cls.xml)	(revision 39536)
@@ -10,6 +10,24 @@
 <Private>1</Private>
 </Property>
 
+<Property name="IngegevenKenmerkenTypeAPI">
+<Type>DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..IngegevenKenmerkenTypeAPI = ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefIngegevenKenmerken">
 <FormalSpec>IngegevenKenmerkenObject:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
@@ -79,7 +97,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	
-	Quit:Kenmerken.GeefVariant()["TBX"
+	Quit:(..IngegevenKenmerkenTypeAPI.IsTandemboxLade(Kenmerken))
 	
 	Set Iterator = ##class(TECH.ListIterator).%New(Kenmerken.ExplicietGekozenKenmerken)
 	While (Iterator.HasNext()) {