Index: APPS/PM/BulkActie/Acties/HerrekenProductViaIK.cls.xml
===================================================================
diff -u -r45962 -r46097
--- APPS/PM/BulkActie/Acties/HerrekenProductViaIK.cls.xml	(.../HerrekenProductViaIK.cls.xml)	(revision 45962)
+++ APPS/PM/BulkActie/Acties/HerrekenProductViaIK.cls.xml	(.../HerrekenProductViaIK.cls.xml)	(revision 46097)
@@ -18,16 +18,6 @@
 ]]></Implementation>
 </Method>
 
-<UDLText name="T">
-<Content><![CDATA[
-/*
-Set Herrekenaar = ##class(APPS.PM.BulkActie.Acties.HerrekenProductViaIK).%New(1,"Herreken vandaag")
-Set Herrekenaar.GebruikVandaagAlsHerberekenDatumIpvDatumVanBerekenSpecificatie=1
-Write Herrekenaar.Herreken(940935,0).IsSuccesvol
-*/
-]]></Content>
-</UDLText>
-
 <Property name="GebruikVandaagAlsHerberekenDatumIpvDatumVanBerekenSpecificatie">
 <Type>%Boolean</Type>
 <Transient>1</Transient>
@@ -74,6 +64,12 @@
 <Transient>1</Transient>
 </Property>
 
+<Property name="ProductTypeApi">
+<Type>DOM.PM.ProductTypeAPI</Type>
+<Private>1</Private>
+<Transient>1</Transient>
+</Property>
+
 <Method name="DateTimeAPIGet">
 <Implementation><![CDATA[
 	set i%DateTimeAPI = $$$LazyLoad( i%DateTimeAPI, ##class(TECH.Context).Instance().GeefDateTimeAPI() )
@@ -92,7 +88,7 @@
 </Parameter>
 
 <Method name="%OnNew">
-<FormalSpec>BulkFactor:%String,Omschrijving:%String,BerekeningService:APPS.PM.Maatwerk.impl.BerekeningServiceProduct="",BouwsteenKostBepaler:APPS.PM.BulkActie.Acties.HerrekenProductViaIK.BouwsteenKostBepaler=""</FormalSpec>
+<FormalSpec>BulkFactor:%String,Omschrijving:%String,ProductTypeApi:DOM.PM.ProductTypeAPI,BerekeningService:APPS.PM.Maatwerk.impl.BerekeningServiceProduct="",BouwsteenKostBepaler:APPS.PM.BulkActie.Acties.HerrekenProductViaIK.BouwsteenKostBepaler=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -102,11 +98,23 @@
 	
 	Set ..BerekeningService = BerekeningService
 	Set ..BouwsteenKostBepaler = BouwsteenKostBepaler
+	Set ..ProductTypeApi = $$$Inject(ProductTypeApi, ##class(DOM.PM.impl.ProductTypeAPIimpl).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="%OnOpen">
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProductTypeApi = ##class(DOM.PM.impl.ProductTypeAPIimpl).%New()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="KuisOpProductVariabelen">
 <Implementation><![CDATA[
 	Set ..HalffabItemsBoom = ""
@@ -163,10 +171,9 @@
 	Do ..KuisOpProductVariabelen()
 	
 	#dim Resultaat As APPS.PM.BulkActie.dto.ActieResultaat = ##class(APPS.PM.BulkActie.dto.ActieResultaat).%New()
-	#dim Product As DOM.PM.Product = ..ProductAPI.GeefProduct(ProductID)
 	
-	If (Product.%Extends("DOM.PM.MaatwerkProduct")) {
-		Set ..MaatwerkProduct = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI().GeefMaatwerkProduct(ProductID)
+	If (..ProductTypeApi.IsMaatwerkProduct(ProductID)) {
+		Set ..MaatwerkProduct = ..ProductTypeApi.GeefMaatwerkProduct(ProductID)
 		Set ..BouwsteenKostBepaler = $$$LazyLoad(..BouwsteenKostBepaler, ##class(APPS.PM.BulkActie.Acties.HerrekenProductViaIK.BouwsteenKostBepaler).%New())
 		
 		Do ..BerekenHalffabEnKostItemsBomen()
Index: vhUnitTest/APPS/PM/BulkActie/Acties/HerrekenProductViaIK/Test.cls.xml
===================================================================
diff -u -r45962 -r46097
--- vhUnitTest/APPS/PM/BulkActie/Acties/HerrekenProductViaIK/Test.cls.xml	(.../Test.cls.xml)	(revision 45962)
+++ vhUnitTest/APPS/PM/BulkActie/Acties/HerrekenProductViaIK/Test.cls.xml	(.../Test.cls.xml)	(revision 46097)
@@ -8,12 +8,11 @@
 	#dim RandomProductId As %String = "RandomProductId"
 	#dim ActieParameters As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("vandaag")
 	
-	#dim NietMaatwerkProduct As DOM.PM.Product = ##class(DOM.PM.impl.ProductImpl).%New()
-	#dim ProductApiStub As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).MockInstance()
-	Do ProductApiStub.IndienMethodCall("GeefProduct", RandomProductId).DanReturn(NietMaatwerkProduct)
+	#dim ProductTypeApiStub As vhTest.Mock.DOM.PM.ProductTypeAPI = ##class(vhTest.Mock.DOM.PM.ProductTypeAPI).%New()
+	Do ProductTypeApiStub.IndienMethodCall("IsMaatwerkProduct", RandomProductId).DanReturn($$$False)
 	
-	#dim BulkActie As APPS.PM.BulkActie.Acties.HerrekenProductViaIK = ##class(APPS.PM.BulkActie.Acties.HerrekenProductViaIK).%New(50, "Herrekenen product via ingegeven kenmerken.")
-	#dim Resultaat As APPS.PM.BulkActie.dto.ActieResultaat = BulkActie.Valideer(RandomProductId, ActieParameters) // BewaarMaatwerkAanpassingOpProduct.Valideer(1000,Parameters)
+	#dim BulkActie As APPS.PM.BulkActie.Acties.HerrekenProductViaIK = ##class(APPS.PM.BulkActie.Acties.HerrekenProductViaIK).%New($$$DummyInteger, $$$DummyString, ProductTypeApiStub)
+	#dim Resultaat As APPS.PM.BulkActie.dto.ActieResultaat = BulkActie.Valideer(RandomProductId, ActieParameters)
 	
 	Do $$$AssertFalse(Resultaat.IsSuccesvol)
 	Do $$$AssertEquals(Resultaat.Opmerking, "Dit product 'RandomProductId' is geen maatwerk product.")
@@ -31,17 +30,16 @@
 	#dim BerekeningsSpecificatieDummy As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New("", "", "", "", "", "")
 	#dim MatKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).StandaardLade()
 	#dim ProductSpecificatieDummy As DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New("", "", MatKenmerken)
+	
 	#dim MaatwerkProductStub As vhTest.Mock.DOM.PM.MaatwerkProduct = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
 	Do MaatwerkProductStub.IndienMethodCall("GeefBerekeningsSpecificatie").DanReturn(BerekeningsSpecificatieDummy)
 	Do MaatwerkProductStub.IndienMethodCall("GeefProductSpecificatie").DanReturn(ProductSpecificatieDummy)
 	Do MaatwerkProductStub.IndienMethodCall("GeefID").DanReturn(RandomProductId)
-	
-	#dim ProductApiStub As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).MockInstance()
-	Do ProductApiStub.IndienMethodCall("GeefProduct", RandomProductId).DanReturn(MaatwerkProductStub)
-	
-	#dim ProductTypeApiStub As vhTest.Mock.DOM.PM.ProductTypeAPI = ##class(vhTest.Mock.DOM.PM.ProductTypeAPI).MockInstance()
+
+	#dim ProductTypeApiStub As vhTest.Mock.DOM.PM.ProductTypeAPI = ##class(vhTest.Mock.DOM.PM.ProductTypeAPI).%New()
+	Do ProductTypeApiStub.IndienMethodCall("IsMaatwerkProduct", RandomProductId).DanReturn($$$True)
 	Do ProductTypeApiStub.IndienMethodCall("GeefMaatwerkProduct", RandomProductId).DanReturn(MaatwerkProductStub)
-	
+
 	#dim KostItemDummy As vhTest.Mock.DOM.PM.Maatwerk.Calc.Kost.KostItem = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.Kost.KostItem).%New(RandomKostNaam, RandomKost, "Details")
 	
 	#dim BerekeningServiceStub As vhTest.Mock.APPS.PM.Maatwerk.impl.BerekeningServiceProduct = ##class(vhTest.Mock.APPS.PM.Maatwerk.impl.BerekeningServiceProduct).%New()
@@ -51,8 +49,8 @@
 	#dim BouwsteenKostBepalerStub As vhTest.Mock.APPS.PM.BulkActie.Acties.HerrekenProductViaIK.BouwsteenKostBepaler = ##class(vhTest.Mock.APPS.PM.BulkActie.Acties.HerrekenProductViaIK.BouwsteenKostBepaler).%New()
 	Do BouwsteenKostBepalerStub.IndienMethodCall("GeefBouwsteenKost", RandomProductId).DanReturn(RandomBouwsteenKost)
 	
-	#dim BulkActie As APPS.PM.BulkActie.Acties.HerrekenProductViaIK = ##class(APPS.PM.BulkActie.Acties.HerrekenProductViaIK).%New(50, "Herrekenen product via ingegeven kenmerken.", BerekeningServiceStub, BouwsteenKostBepalerStub)
-	#dim Resultaat As APPS.PM.BulkActie.dto.ActieResultaat = BulkActie.Valideer(RandomProductId, ActieParameters) // BewaarMaatwerkAanpassingOpProduct.Valideer(1000,Parameters)
+	#dim BulkActie As APPS.PM.BulkActie.Acties.HerrekenProductViaIK = ##class(APPS.PM.BulkActie.Acties.HerrekenProductViaIK).%New($$$DummyInteger, $$$DummyString, ProductTypeApiStub, BerekeningServiceStub, BouwsteenKostBepalerStub)
+	#dim Resultaat As APPS.PM.BulkActie.dto.ActieResultaat = BulkActie.Valideer(RandomProductId, ActieParameters)
 	
 	Do $$$AssertTrue(Resultaat.IsSuccesvol)
 	Do $$$AssertEquals(Resultaat.Opmerking, "PPL=" _ RandomKost _ ", Bouwsteen kost=" _ RandomBouwsteenKost _ ".")