Index: vhTest/Spy/DOM/VKP/impl/VerkoopPrijsAPI.cls.xml
===================================================================
diff -u
--- vhTest/Spy/DOM/VKP/impl/VerkoopPrijsAPI.cls.xml	(revision 0)
+++ vhTest/Spy/DOM/VKP/impl/VerkoopPrijsAPI.cls.xml	(revision 30491)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Spy.DOM.VKP.impl.VerkoopPrijsAPI">
+<ClassType/>
+<IncludeCode>BL.Derde.KlantSpecifiek</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.VKP.impl.VerkoopPrijsAPIimpl</Super>
+<Inheritance>right</Inheritance>
+
+<Property name="BerekeningSpecificatie">
+<Type>DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie</Type>
+</Property>
+
+<Method name="GeefVerkoopPrijsInfo">
+<FormalSpec>ProductID:%String,BasisPrijs:%Float,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie</FormalSpec>
+<ReturnType>DOM.VKP.info.VerkoopPrijsInfo</ReturnType>
+<Implementation><![CDATA[
+	set ..BerekeningSpecificatie = BerekeningsSpecificatie
+	
+	quit ##super(ProductID, BasisPrijs, BerekeningsSpecificatie)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/DOM/PM/ProductAPI.cls.xml
===================================================================
diff -u -r29059 -r30491
--- vhTest/Mock/DOM/PM/ProductAPI.cls.xml	(.../ProductAPI.cls.xml)	(revision 29059)
+++ vhTest/Mock/DOM/PM/ProductAPI.cls.xml	(.../ProductAPI.cls.xml)	(revision 30491)
@@ -131,6 +131,12 @@
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("MaakMaatwerkProduct",ProductSpecificatie,BerekeningsSpecificatie,HalffabItemsBoom,KostItem)
 ]]></Implementation>
 </Method>
+
+<Method name="VerwijderProduct">
+<FormalSpec>Product:DOM.PM.Product</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwijderProduct",Product)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: EXTERN/PM/Maatwerk/MaatwerkService.cls.xml
===================================================================
diff -u -r30463 -r30491
--- EXTERN/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 30463)
+++ EXTERN/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 30491)
@@ -34,21 +34,35 @@
 <FormalSpec>KlantNummer:%String,IngegevenKenmerkenKlasseNaam:%String,OorspronkelijkeKenmerkNamen:%String,OorspronkelijkeKenmerkWaarden:%String,AfwijkendeKenmerkNamen:%String,AfwijkendeKenmerkWaarden:%String,NietMeeleverenLijst:%String="",OorspronkelijkProductID:%String=""</FormalSpec>
 <ReturnType>EXTERN.PM.Maatwerk.dto.PrijsResultaat</ReturnType>
 <Implementation><![CDATA[
-	set Result = ##class(EXTERN.PM.Maatwerk.dto.PrijsResultaat).%New()
+	#dim Result As EXTERN.PM.Maatwerk.dto.PrijsResultaat = ##class(EXTERN.PM.Maatwerk.dto.PrijsResultaat).%New()
 	set Result.IsFout = 1
 	
 	try {
+		#dim Aantal As TECH.Integer = 1
 		#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..MaakIngegevenKenmerkenUitOorspronkelijkeKenmerken(IngegevenKenmerkenKlasseNaam, OorspronkelijkProductID, OorspronkelijkeKenmerkNamen, OorspronkelijkeKenmerkWaarden, AfwijkendeKenmerkNamen, AfwijkendeKenmerkWaarden, NietMeeleverenLijst)
+		
+		#dim IsFamilieLade As %Boolean = (IngegevenKenmerken.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade())
+		#dim IsVariantTAOR As %Boolean = (IngegevenKenmerken.GeefVariant() = ##class(DOM.PM.enu.Variant).Taorbox())	
+	
+		if (IsFamilieLade && IsVariantTAOR) {
+			#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = IngegevenKenmerken
+			#dim VerpakkingType As DOM.PM.enu.TAORVerpakkingType.AutoComplete = ##class(DOM.PM.enu.TAORVerpakkingType.AutoComplete).%New()
+			
+			if ((TAORKenmerken.VerpakkingType = VerpakkingType.LosseComponentenInBulk) || (TAORKenmerken.VerpakkingType = VerpakkingType.BulkPerOnderdeelGegroepeerd)) {
+				set Aantal = 10
+			}
+		}
+		
 		#dim MaatwerkService As APPS.PM.Maatwerk.MaatwerkService = ##class(APPS.PM.Maatwerk.MaatwerkService).%New()
-		#dim MaatwerkDetails As APPS.PM.Maatwerk.dto.MaatwerkDetails = MaatwerkService.GeefMaatwerkDetailsVoorDomeinKenmerken(IngegevenKenmerken, "", KlantNummer)
+		#dim MaatwerkDetails As APPS.PM.Maatwerk.dto.MaatwerkDetails = MaatwerkService.GeefMaatwerkDetailsVoorDomeinKenmerken(IngegevenKenmerken, "", KlantNummer, Aantal)
 		#dim KostItem As DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem = MaatwerkDetails.Kosten
 		
 		set Result.Mededeling = MaatwerkDetails.ProbleemRapport
 		
 		if $$$Not(KostItem = "") {
 			#dim PartijID As DOM.common.PartijID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KlantNummer)
 			#dim Personality As DOM.common.Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
-			#dim BerekeningSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1, PartijID, Personality)
+			#dim BerekeningSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(Aantal, PartijID, Personality)
 			#dim Bepaler As DOM.PM.Maatwerk.GenerischProductBepaler = ##class(DOM.PM.Maatwerk.GenerischProductBepaler).%New()
 			#dim VerkoopPrijsAPI As DOM.VKP.VerkoopPrijsAPI = ##class(DOM.DomeinContext).Instance().GeefVerkoopPrijsAPI()
 			#dim VerkoopPrijsInfo As DOM.VKP.info.VerkoopPrijsInfo = VerkoopPrijsAPI.GeefVerkoopPrijsInfo(Bepaler.GeefGenerischProductID(IngegevenKenmerken), KostItem.Kost, BerekeningSpecificatie)
Index: vhUnitTest/EXTERN/PM/Maatwerk/MaatwerkService/GeefPrijs/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/EXTERN/PM/Maatwerk/MaatwerkService/GeefPrijs/Test.cls.xml	(revision 0)
+++ vhUnitTest/EXTERN/PM/Maatwerk/MaatwerkService/GeefPrijs/Test.cls.xml	(revision 30491)
@@ -0,0 +1,104 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.EXTERN.PM.Maatwerk.MaatwerkService.GeefPrijs.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="TAORKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerkoopPrijsAPI">
+<Type>vhTest.Spy.DOM.VKP.impl.VerkoopPrijsAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerpakkingType">
+<Type>DOM.PM.enu.TAORVerpakkingType.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	do ##class(DOM.DomeinContext).Instance().PushVerkoopPrijsAPIClassName("vhTest.Spy.DOM.VKP.impl.VerkoopPrijsAPI")
+	
+	set ..TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	set ..VerkoopPrijsAPI = ##class(DOM.DomeinContext).Instance().GeefVerkoopPrijsAPI()
+]]></Implementation>
+</Method>
+
+<Method name="Test: TAORKenmerken met VerpakkingType V1 heeft aantal 1 voor prijsberekening">
+<Implementation><![CDATA[	do ..AssertAantal(..VerpakkingType.V1, 1)
+]]></Implementation>
+</Method>
+
+<Method name="Test: TAORKenmerken met VerpakkingType Probox heeft aantal 1 voor prijsberekening">
+<Implementation><![CDATA[	do ..AssertAantal(..VerpakkingType.Probox, 1)
+]]></Implementation>
+</Method>
+
+<Method name="Test: TAORKenmerken met VerpakkingType BulkPerOnderdeelGegroepeerd heeft aantal 10 voor prijsberekening">
+<Implementation><![CDATA[	do ..AssertAantal(..VerpakkingType.BulkPerOnderdeelGegroepeerd, 10)
+]]></Implementation>
+</Method>
+
+<Method name="Test: TAORKenmerken met VerpakkingType LosseComponentenInBulk heeft aantal 10 voor prijsberekening">
+<Implementation><![CDATA[	do ..AssertAantal(..VerpakkingType.LosseComponentenInBulk, 10)
+]]></Implementation>
+</Method>
+
+<Method name="AssertAantal">
+<FormalSpec>VerpakkingType:DOM.PM.enu.TAORVerpakkingType,VerwachtAantal:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	set ..TAORKenmerken.VerpakkingType = VerpakkingType
+	
+	#dim KlasseNaam As TECH.String = ..TAORKenmerken.%ClassName($$$True)
+	#dim Properties As %ListOfDataTypes = ..GeefProperties(KlasseNaam)
+	#dim Values As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim AfwijkendeKenmerkNamen As TECH.String = ""
+	#dim AfwijkendeKenmerkWaarden As TECH.String = ""
+	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Properties)
+	
+	while (Iterator.HasNext()) {
+		do Values.Insert($Property(..TAORKenmerken, Iterator.Next()))
+		
+		set AfwijkendeKenmerkNamen = AfwijkendeKenmerkNamen _ "-"
+		
+		if (Iterator.HasNext()) {
+			set AfwijkendeKenmerkNamen = AfwijkendeKenmerkNamen _ "\"
+			set AfwijkendeKenmerkWaarden = AfwijkendeKenmerkWaarden _ "\"	
+		}
+	}
+
+	#dim OorspronkelijkeKenmerkNamen As TECH.String = ##class(TECH.ListUtils).ListToPieces(Properties)
+	#dim OorspronkelijkeKenmerkWaarden As TECH.String = ##class(TECH.ListUtils).ListToPieces(Values)
+	
+	set $Extract(AfwijkendeKenmerkNamen, 1) = ##class(DOM.PM.enu.TAORKenmerkNaam).AfdekkapBovenKleur()
+	set $Extract(AfwijkendeKenmerkWaarden, 1) = ##class(DOM.PM.enu.TAORAfdekkapBovenKleur).AluminiumLook()
+
+	do ##class(EXTERN.PM.Maatwerk.MaatwerkService).GeefPrijs("1000", KlasseNaam, OorspronkelijkeKenmerkNamen, OorspronkelijkeKenmerkWaarden, AfwijkendeKenmerkNamen, AfwijkendeKenmerkWaarden)
+	do $$$AssertEquals(..VerkoopPrijsAPI.BerekeningSpecificatie.Hoeveelheid, VerwachtAantal)
+]]></Implementation>
+</Method>
+
+<Method name="GeefProperties">
+<FormalSpec>KlasseNaam:TECH.String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim PropertyFilter As TECH.ClassUtils.PropertyFilter = ##class(TECH.ClassUtils.PropertyFilter).%New()
+	
+	set PropertyFilter.SkipPrivate = $$$True
+	set PropertyFilter.SkipReadOnly = $$$True
+	set PropertyFilter.SkipSystem = $$$True
+	
+	quit ##class(TECH.ClassUtils).GeefProperties(KlasseNaam, PropertyFilter)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/ProductAPI.cls.xml
===================================================================
diff -u -r29059 -r30491
--- DOM/PM/ProductAPI.cls.xml	(.../ProductAPI.cls.xml)	(revision 29059)
+++ DOM/PM/ProductAPI.cls.xml	(.../ProductAPI.cls.xml)	(revision 30491)
@@ -79,6 +79,11 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwijderProduct">
+<Abstract>1</Abstract>
+<FormalSpec>Product:DOM.PM.Product</FormalSpec>
+</Method>
+
 <Method name="GeefOrgaluxProductIterator">
 <Abstract>1</Abstract>
 <ReturnType>TECH.Iterator</ReturnType>