Index: APPS/PM/Maatwerk/impl/BerekeningServiceProduct.cls.xml
===================================================================
diff -u -r49769 -r54618
--- APPS/PM/Maatwerk/impl/BerekeningServiceProduct.cls.xml	(.../BerekeningServiceProduct.cls.xml)	(revision 49769)
+++ APPS/PM/Maatwerk/impl/BerekeningServiceProduct.cls.xml	(.../BerekeningServiceProduct.cls.xml)	(revision 54618)
@@ -99,24 +99,63 @@
 <Private>1</Private>
 <ReturnType>DOM.PM.MaatwerkProduct</ReturnType>
 <Implementation><![CDATA[
+	#dim ProductSpecificatie As DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie = ..GeefProductSpecificatie(IngegevenKenmerken)
+	#dim BerekeningsSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ..GeefBerekeningsSpecificatie(KlantID, Aantal)
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..GeefHalffabItemsBoom(IngegevenKenmerken, BerekeningsSpecificatie)
+	#dim KostItem As DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem = ..GeefKostItem(IngegevenKenmerken, BerekeningsSpecificatie, HalffabItemsBoom)
+	Quit ..MaakMaatwerkProductVanNietTbxKenmerken(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductSpecificatie">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie</ReturnType>
+<Implementation><![CDATA[
 	#dim Familie As DOM.PM.enu.Familie = IngegevenKenmerken.GeefFamilie()
 	#dim Variant As DOM.PM.enu.Variant = IngegevenKenmerken.GeefVariant()
 	
+	Quit ##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New(Familie, Variant, IngegevenKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBerekeningsSpecificatie">
+<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,Aantal:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie</ReturnType>
+<Implementation><![CDATA[
 	#dim Personality As DOM.common.impl.Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
-	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(Aantal,KlantID,Personality)
-	Set Context=##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(Familie,Variant,BerekeningsSpecificatie)
 	
-	Do Context.GeefHalffabSpec().BerekenHalffabDetails(Context,IngegevenKenmerken)
-	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Context.HalffabItemsBoom
+	Quit ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(Aantal, KlantID, Personality)
+]]></Implementation>
+</Method>
+
+<Method name="GeefHalffabItemsBoom">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</ReturnType>
+<Implementation><![CDATA[
+	#dim Familie As DOM.PM.enu.Familie = IngegevenKenmerken.GeefFamilie()
+	#dim Variant As DOM.PM.enu.Variant = IngegevenKenmerken.GeefVariant()
 	
-	Set KostContext = ##class(DOM.PM.Maatwerk.Calc.Kost.KostContext).%New(Familie, Variant, BerekeningsSpecificatie)
-	#dim KostItem As DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem = KostContext.GeefKostSpec().BerekenKostDetails(KostContext,HalffabItemsBoom,IngegevenKenmerken)
+	Set Context=##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(Familie, Variant, BerekeningsSpecificatie)
+	Do Context.GeefHalffabSpec().BerekenHalffabDetails(Context, IngegevenKenmerken)
 	
-	Set ProductSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New(Familie, Variant, IngegevenKenmerken)
+	Quit Context.HalffabItemsBoom
+]]></Implementation>
+</Method>
+
+<Method name="GeefKostItem">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem</ReturnType>
+<Implementation><![CDATA[
+	#dim Familie As DOM.PM.enu.Familie = IngegevenKenmerken.GeefFamilie()
+	#dim Variant As DOM.PM.enu.Variant = IngegevenKenmerken.GeefVariant()
 	
-	#dim Product As DOM.PM.MaatwerkProduct = ..ProductApi.MaakMaatwerkProduct(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
+	Set KostContext = ##class(DOM.PM.Maatwerk.Calc.Kost.KostContext).%New(Familie, Variant, BerekeningsSpecificatie)
 	
-	Quit Product
+	Quit KostContext.GeefKostSpec().BerekenKostDetails(KostContext, HalffabItemsBoom, IngegevenKenmerken)
 ]]></Implementation>
 </Method>
 
@@ -127,6 +166,14 @@
 <Implementation><![CDATA[	Quit ##class(APPS.PM.Maatwerk.impl.BerekeningServiceProduct.TbxHelper).%New().MaakProduct(IngegevenKenmerken.LegacyKenmerken, KlantID, Aantal)
 ]]></Implementation>
 </Method>
+
+<Method name="MaakMaatwerkProductVanNietTbxKenmerken">
+<FormalSpec>ProductSpecificatie:DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,KostItem:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.MaatwerkProduct</ReturnType>
+<Implementation><![CDATA[	Quit ..ProductApi.MaakMaatwerkProduct(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
+]]></Implementation>
+</Method>
 </Class>