Index: DOM/VKP/info/VerkoopPrijsInfo.cls.xml
===================================================================
diff -u -r29059 -r39413
--- DOM/VKP/info/VerkoopPrijsInfo.cls.xml	(.../VerkoopPrijsInfo.cls.xml)	(revision 29059)
+++ DOM/VKP/info/VerkoopPrijsInfo.cls.xml	(.../VerkoopPrijsInfo.cls.xml)	(revision 39413)
@@ -26,7 +26,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>LijstPrijs:%Decimal,VerkoopPrijs:%Decimal,VerkoopPrijsNaCommissie:%Decimal,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie</FormalSpec>
+<FormalSpec>LijstPrijs:%Decimal=0,VerkoopPrijs:%Decimal=0,VerkoopPrijsNaCommissie:%Decimal=0,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie=0</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
Index: APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml
===================================================================
diff -u -r36549 -r39413
--- APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 36549)
+++ APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 39413)
@@ -188,9 +188,13 @@
 	#dim Aantal As %Integer = ..GeefAantal()
 	#dim VerkoopPrijsInfo As DOM.VKP.info.VerkoopPrijsInfo = ..VerkoopPrijsBepaler.BepaalVerkoopPrijs(IngegevenKenmerken,Aantal,VanHoeckePersonalityID,LijstPrijsKlantID)
 	
-	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()
+	If $$$Not(IngegevenKenmerken.GeefVariant()["TBX"){	
+		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()
+	} Else {
+		Quit VerkoopPrijsInfo.GeefLijstPrijs()
+	}
 ]]></Implementation>
 </Method>
 
@@ -201,9 +205,16 @@
 	#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, ..Personality.GeefID(), ..KlantID)
-	#dim BerekeningsSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(Aantal, ..KlantID, ..Personality)	
-	#dim VerkoopPrijsInfoInclKorting As DOM.VKP.info.VerkoopPrijsInfo = ..VerwerkKorting(VerkoopPrijsInfo, IngegevenKenmerken, BerekeningsSpecificatie)
 	
+	#dim VerkoopPrijsInfoInclKorting As DOM.VKP.info.VerkoopPrijsInfo
+	
+	If $$$Not(IngegevenKenmerken.GeefVariant()["TBX"){	
+		#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 {
+		Set VerkoopPrijsInfoInclKorting = VerkoopPrijsInfo
+	}
+	
 	Quit VerkoopPrijsInfoInclKorting.GeefVerkoopPrijs()
 ]]></Implementation>
 </Method>