Index: DOM/PM/Maatwerk/LadeInfo/Plaat.cls.xml
===================================================================
diff -u -r36904 -r37093
--- DOM/PM/Maatwerk/LadeInfo/Plaat.cls.xml	(.../Plaat.cls.xml)	(revision 36904)
+++ DOM/PM/Maatwerk/LadeInfo/Plaat.cls.xml	(.../Plaat.cls.xml)	(revision 37093)
@@ -44,14 +44,12 @@
 </Method>
 
 <Method name="GeefRol">
-<Abstract>1</Abstract>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[	Quit ..HalffabItem.GeefRol()
 ]]></Implementation>
 </Method>
 
 <Method name="GeefProductId">
-<Abstract>1</Abstract>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[	Quit ..HalffabItem.GeefHalffab().GeefProductID()
 ]]></Implementation>
Index: vhUnitTest/DOM/PM/Maatwerk/LadeInfo/Plaat/Test.cls.xml
===================================================================
diff -u -r36904 -r37093
--- vhUnitTest/DOM/PM/Maatwerk/LadeInfo/Plaat/Test.cls.xml	(.../Test.cls.xml)	(revision 36904)
+++ vhUnitTest/DOM/PM/Maatwerk/LadeInfo/Plaat/Test.cls.xml	(.../Test.cls.xml)	(revision 37093)
@@ -16,6 +16,28 @@
 	Do GewichtBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: GeefProductId geeft productId van Halffab terug">
+<Implementation><![CDATA[
+	#dim DummyProductId As TECH.String = "DummyProductId"
+	#dim DummyRol AS TECH.String = "DummyRol"
+	#dim DummyHalffab As vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.Halffab = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.Halffab).%New(DummyProductId)
+	#dim DummyHalffabItem As vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%New(, DummyRol, DummyHalffab)
+	#dim Plaat As DOM.PM.Maatwerk.LadeInfo.Plaat = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.BodemPlaat).%New("", DummyHalffabItem, "")
+	
+	Do $$$AssertEquals(Plaat.GeefProductId(), DummyProductId)
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefRol geeft rol van HalffabItem terug">
+<Implementation><![CDATA[
+	#dim DummyRol AS TECH.String = "DummyRol"
+	#dim DummyHalffabItem As vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%New(, DummyRol, "")
+	#dim Plaat As DOM.PM.Maatwerk.LadeInfo.Plaat = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.BodemPlaat).%New("", DummyHalffabItem, "")
+	
+	Do $$$AssertEquals(Plaat.GeefRol(), DummyRol)
+]]></Implementation>
+</Method>
 </Class>