Index: vhUnitTest/DOM/PM/Maatwerk/LadeInfo/impl/LadeOnderdeel/MassaDichtheidBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/LadeInfo/impl/LadeOnderdeel/MassaDichtheidBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/LadeInfo/impl/LadeOnderdeel/MassaDichtheidBepaler/Test.cls.xml	(revision 36737)
@@ -0,0 +1,114 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.LadeInfo.impl.LadeOnderdeel.MassaDichtheidBepaler.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="DummyMassaDichtheid">
+<Type>TECH.Decimal</Type>
+<Private>1</Private>
+<Parameter name="SCALE" value="5"/>
+</Property>
+
+<Property name="DummyProductId">
+<Type>TECH.String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DummyLadeOnderdeel">
+<Type>TECH.String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DummyKenmerkGroepNaam">
+<Type>TECH.String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..DummyMassaDichtheid = 0.00123
+	Set ..DummyProductId = "DummyProductId"
+	Set ..DummyLadeOnderdeel = "DummyLadeOnderdeel"
+	Set ..DummyKenmerkGroepNaam = "TAOR_PPS_" _ ..DummyLadeOnderdeel _ "Plaat"
+]]></Implementation>
+</Method>
+
+<Method name="Test: KenmerkenService wordt opgeroepen">
+<Implementation><![CDATA[
+	#dim KenmerkenSet As APPS.PM.dto.Kenm.ProductKenmerkenSet = ##class(APPS.PM.dto.Kenm.ProductKenmerkenSet).%New()
+	Do KenmerkenSet.Kenmerken.Insert(..GeefProductKenmerk("Massadichtheid", ..DummyMassaDichtheid))
+	
+	#dim KenmerkenServiceMock As vhTest.Mock.APPS.PM.Kenmerk.KenmerkenService = ##class(vhTest.Mock.APPS.PM.Kenmerk.KenmerkenService).%New()
+	Do KenmerkenServiceMock.VerwachtMethodCall("GeefProductKenmerkenForUnID", ..DummyProductId, ..DummyKenmerkGroepNaam).DanReturn(KenmerkenSet)
+	
+	#dim MassaDichtheidBepaler As DOM.PM.Maatwerk.LadeInfo.impl.LadeOnderdeel.MassaDichtheidBepaler = ##class(DOM.PM.Maatwerk.LadeInfo.impl.LadeOnderdeel.MassaDichtheidBepaler).%New(KenmerkenServiceMock)
+	Do MassaDichtheidBepaler.GeefMassaDichtheid(..DummyProductId, ..DummyLadeOnderdeel)
+	
+	Do KenmerkenServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Waarde van Kenmerk &apos;Massadichtheid&apos; worden teruggegeven">
+<Implementation><![CDATA[
+	#dim KenmerkenSet As APPS.PM.dto.Kenm.ProductKenmerkenSet = ##class(APPS.PM.dto.Kenm.ProductKenmerkenSet).%New()
+	Do KenmerkenSet.Kenmerken.Insert(..GeefProductKenmerk("Massadichtheid", ..DummyMassaDichtheid))
+	
+	#dim KenmerkenServiceStub As vhTest.Mock.APPS.PM.Kenmerk.KenmerkenService = ##class(vhTest.Mock.APPS.PM.Kenmerk.KenmerkenService).%New()
+	Do KenmerkenServiceStub.IndienMethodCall("GeefProductKenmerkenForUnID", ..DummyProductId, ..DummyKenmerkGroepNaam).DanReturn(KenmerkenSet)
+	
+	#dim MassaDichtheidBepaler As DOM.PM.Maatwerk.LadeInfo.impl.LadeOnderdeel.MassaDichtheidBepaler = ##class(DOM.PM.Maatwerk.LadeInfo.impl.LadeOnderdeel.MassaDichtheidBepaler).%New(KenmerkenServiceStub)
+	#dim MassaDichtheid As TECH.Decimal = MassaDichtheidBepaler.GeefMassaDichtheid(..DummyProductId, ..DummyLadeOnderdeel)
+	
+	Do $$$AssertEquals(MassaDichtheid, ..DummyMassaDichtheid)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Exceptie wordt geraised indien geen Kenmerk &apos;Massadichtheid&apos; gevonden">
+<Implementation><![CDATA[
+	#dim KenmerkenSet As APPS.PM.dto.Kenm.ProductKenmerkenSet = ##class(APPS.PM.dto.Kenm.ProductKenmerkenSet).%New()
+	#dim KenmerkenServiceStub As vhTest.Mock.APPS.PM.Kenmerk.KenmerkenService = ##class(vhTest.Mock.APPS.PM.Kenmerk.KenmerkenService).%New()
+	Do KenmerkenServiceStub.IndienMethodCall("GeefProductKenmerkenForUnID", ..DummyProductId, ..DummyKenmerkGroepNaam).DanReturn(KenmerkenSet)
+	
+	#dim Omschrijvingen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen massadichtheid gevonden voor", ..DummyLadeOnderdeel, "product:", ..DummyProductId)	
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.DataNotFoundException", Omschrijvingen))
+	
+	#dim MassaDichtheidBepaler As DOM.PM.Maatwerk.LadeInfo.impl.LadeOnderdeel.MassaDichtheidBepaler = ##class(DOM.PM.Maatwerk.LadeInfo.impl.LadeOnderdeel.MassaDichtheidBepaler).%New(KenmerkenServiceStub)
+	#dim MassaDichtheid As TECH.Decimal = MassaDichtheidBepaler.GeefMassaDichtheid(..DummyProductId, ..DummyLadeOnderdeel)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Exceptie wordt geraised indien waarde voor Kenmerk &apos;Massadichtheid&apos; leeg of 0 is">
+<Implementation><![CDATA[
+	#dim KenmerkenSet As APPS.PM.dto.Kenm.ProductKenmerkenSet = ##class(APPS.PM.dto.Kenm.ProductKenmerkenSet).%New()
+	Do KenmerkenSet.Kenmerken.Insert(..GeefProductKenmerk("Massadichtheid", 0))
+	
+	#dim KenmerkenServiceStub As vhTest.Mock.APPS.PM.Kenmerk.KenmerkenService = ##class(vhTest.Mock.APPS.PM.Kenmerk.KenmerkenService).%New()
+	Do KenmerkenServiceStub.IndienMethodCall("GeefProductKenmerkenForUnID", ..DummyProductId, ..DummyKenmerkGroepNaam).DanReturn(KenmerkenSet)
+	
+	#dim Omschrijvingen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen massadichtheid gevonden voor", ..DummyLadeOnderdeel, "product:", ..DummyProductId)	
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.DataNotFoundException", Omschrijvingen))
+	
+	#dim MassaDichtheidBepaler As DOM.PM.Maatwerk.LadeInfo.impl.LadeOnderdeel.MassaDichtheidBepaler = ##class(DOM.PM.Maatwerk.LadeInfo.impl.LadeOnderdeel.MassaDichtheidBepaler).%New(KenmerkenServiceStub)
+	#dim MassaDichtheid As TECH.Decimal = MassaDichtheidBepaler.GeefMassaDichtheid(..DummyProductId, ..DummyLadeOnderdeel)
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductKenmerk">
+<FormalSpec>Naam:TECH.String,Waarde:TECH.Decimal</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.PM.dto.Kenm.ProductKenmerk</ReturnType>
+<Implementation><![CDATA[
+	#dim Kenmerk As APPS.PM.dto.Kenm.ProductKenmerk = ##class(APPS.PM.dto.Kenm.ProductKenmerk).%New()
+	
+	Set Kenmerk.Naam = Naam
+	Set Kenmerk.Waarden = ##class(TECH.ListUtils).CreateListOfDataTypes(Waarde)
+	
+	Quit Kenmerk
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/DOM/PM/Maatwerk/LadeInfo/impl/LadeOnderdeel/MassaDichtheidBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Fake/DOM/PM/Maatwerk/LadeInfo/impl/LadeOnderdeel/MassaDichtheidBepaler.cls.xml	(revision 0)
+++ vhTest/Fake/DOM/PM/Maatwerk/LadeInfo/impl/LadeOnderdeel/MassaDichtheidBepaler.cls.xml	(revision 36737)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.DOM.PM.Maatwerk.LadeInfo.impl.LadeOnderdeel.MassaDichtheidBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Maatwerk.LadeInfo.impl.LadeOnderdeel.MassaDichtheidBepaler</Super>
+
+<Method name="GeefMassaDichtheid">
+<FormalSpec>ProductId:TECH.String,Rol:DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel</FormalSpec>
+<ReturnType>TECH.Decimal</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/LadeInfo/impl/LadeOnderdeel/MassaDichtheidBepaler.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/LadeInfo/impl/LadeOnderdeel/MassaDichtheidBepaler.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/LadeInfo/impl/LadeOnderdeel/MassaDichtheidBepaler.cls.xml	(revision 36737)
@@ -0,0 +1,52 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.LadeInfo.impl.LadeOnderdeel.MassaDichtheidBepaler">
+<Super>TECH.Mockable</Super>
+
+<Property name="KenmerkenService">
+<Type>APPS.PM.Kenmerk.KenmerkenService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>KenmerkenService:APPS.PM.Kenmerk.KenmerkenService</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..KenmerkenService = $$$Inject(KenmerkenService, ##class(APPS.PM.Kenmerk.impl.KenmerkenService).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefMassaDichtheid">
+<FormalSpec>ProductId:TECH.String,Rol:DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel</FormalSpec>
+<ReturnType>TECH.Decimal</ReturnType>
+<Implementation><![CDATA[
+	#dim MassaDichtheid As TECH.Decimal = 0
+	#dim KenmerkNaam As TECH.String = "Massadichtheid"
+	#dim KenmerkGroepNaam As TECH.String = "TAOR_PPS_" _ Rol _ "Plaat"
+	#dim ProductKenmerkenSet As APPS.PM.dto.Kenm.ProductKenmerkenSet = ..KenmerkenService.GeefProductKenmerkenForUnID(ProductId, KenmerkGroepNaam)
+	#dim KenmerkenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(ProductKenmerkenSet.Kenmerken)
+	
+	While (KenmerkenIterator.HasNext()) {
+		#dim Kenmerk As APPS.PM.dto.Kenm.ProductKenmerk = KenmerkenIterator.Next()
+			
+		If ((Kenmerk.Naam = KenmerkNaam) && (Kenmerk.Waarden.Count() > 0)) {
+			Set MassaDichtheid = Kenmerk.Waarden.GetAt(1)
+		}
+	}
+	
+	If (MassaDichtheid = 0) {
+		Do ##class(TECH.Exceptions.DataNotFoundException).Throw("Geen massadichtheid gevonden voor " _ Rol _ "Plaat (product:" _ ProductId _ ")")
+	}
+
+	Quit MassaDichtheid
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/DOM/PM/Maatwerk/LadeInfo/impl/LadeOnderdeel/MassaDichtheidBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Mock/DOM/PM/Maatwerk/LadeInfo/impl/LadeOnderdeel/MassaDichtheidBepaler.cls.xml	(revision 0)
+++ vhTest/Mock/DOM/PM/Maatwerk/LadeInfo/impl/LadeOnderdeel/MassaDichtheidBepaler.cls.xml	(revision 36737)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.impl.LadeOnderdeel.MassaDichtheidBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Maatwerk.LadeInfo.impl.LadeOnderdeel.MassaDichtheidBepaler,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefMassaDichtheid">
+<FormalSpec>ProductId:TECH.String,Rol:DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel</FormalSpec>
+<ReturnType>TECH.Decimal</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefMassaDichtheid",ProductId,Rol)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>