Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/ProductieVoorbereidingZaag/Utils/TestGeefRugWandHouderInfo.cls.xml
===================================================================
diff -u -r70442 -r72882
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/ProductieVoorbereidingZaag/Utils/TestGeefRugWandHouderInfo.cls.xml	(.../TestGeefRugWandHouderInfo.cls.xml)	(revision 70442)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/ProductieVoorbereidingZaag/Utils/TestGeefRugWandHouderInfo.cls.xml	(.../TestGeefRugWandHouderInfo.cls.xml)	(revision 72882)
@@ -31,7 +31,7 @@
 	
 	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..GeefLBXKenmerken(##class(DOM.PM.enu.LBXRugWandMateriaal).Hout())
 	
-	Do $$$AssertEquals(..Utils.GeefRugWandHouderInfo(LBXKenmerken,..MRugWandHouderID), "RWH: OG M")
+	Do $$$AssertEquals(..Utils.GeefRugWandHouderInfo(LBXKenmerken, ..GeefRugwandHouder()), "RWH: OG M")
 ]]></Implementation>
 </Method>
 
@@ -42,7 +42,7 @@
 	
 	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..GeefLBXKenmerken(##class(DOM.PM.enu.LBXRugWandMateriaal).Hout())
 		
-	Do $$$AssertEquals(..Utils.GeefRugWandHouderInfo(LBXKenmerken, ..MRugWandHouderID), "RWH: OG M-M")
+	Do $$$AssertEquals(..Utils.GeefRugWandHouderInfo(LBXKenmerken, ..GeefRugwandHouder()), "RWH: OG M-M")
 ]]></Implementation>
 </Method>
 
@@ -70,6 +70,23 @@
 	Quit LBXKenmerken
 ]]></Implementation>
 </Method>
+
+<Method name="GeefRugwandHouder">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.Halffab.Encoway</ReturnType>
+<Implementation><![CDATA[
+	#dim RugwandHouder As DOM.PM.Maatwerk.Calc.HF.Halffab.Encoway = ##class(DOM.PM.Maatwerk.Calc.HF.Halffab.Encoway).%New(..MRugWandHouderID)
+	
+	#dim PpsKenmerken As %ArrayOfDataTypes = ##class(%ArrayOfDataTypes).%New()
+	Do PpsKenmerken.SetAt("M", "RugKantHoogte")
+	Do PpsKenmerken.SetAt("M", "ZijkantHoogte")
+	Set RugwandHouder.PpsKenmerken = PpsKenmerken
+	
+	Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New("", "RugwandHouder", RugwandHouder)
+	
+	Quit HalffabItem
+]]></Implementation>
+</Method>
 </Class>