Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/ProductService/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/ProductService/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/ProductService/Test.cls.xml	(revision 35888)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.ProductService.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: ProductRolAPI wordt opgeroepen door GeefProduct-method">
+<Implementation><![CDATA[
+	#dim ProductId As %Integer = $$$DummyInteger
+	#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.Halffab).%New(ProductId)
+	#dim Context As vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.HalffabContext = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New("", "", "")
+	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(Context, "Rol", Halffab)
+	
+	#dim ProductRolAPIMock As vhTest.Mock.DOM.PM.ProductRolAPI = ##class(vhTest.Mock.DOM.PM.ProductRolAPI).MockInstance()
+	Do ProductRolAPIMock.VerwachtMethodCall("GeefAdministratiefProduct", ProductId)
+	
+	#dim ProductService As DOM.PM.Maatwerk.Calc.HF.ProductService = ##class(DOM.PM.Maatwerk.Calc.HF.ProductService).%New()
+	Do ProductService.GeefProduct(HalffabItem)
+	
+	Do ProductRolAPIMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/Calc/HF/ProductService.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/HF/ProductService.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/HF/ProductService.cls.xml	(revision 35888)
@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Calc.HF.ProductService">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ProductRolAPI">
+<Type>DOM.PM.ProductRolAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProductRolAPI = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI()
+	
+	;Do ##class(Tools.Wlip).%New(42).String("------>" _ ..ProductRolAPI)
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefProduct">
+<FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem</FormalSpec>
+<ReturnType>DOM.PM.AdministratiefProduct</ReturnType>
+<Implementation><![CDATA[
+	;Do ##class(Tools.Wlip).%New(42).String(..ProductRolAPI)
+	;Do ##class(Tools.Wlip).%New(42).String(HalffabItem)
+	Quit ..ProductRolAPI.GeefAdministratiefProduct(..GeefProductId(HalffabItem))
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductId">
+<FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	;Do ##class(Tools.Wlip).%New(42).String(HalffabItem)
+	;Do ##class(Tools.Wlip).%New(42).String("===>" _ HalffabItem.GeefHalffab())
+	Quit HalffabItem.GeefHalffab().GeefProductID()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>