Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/MVX/MVXLadePersen/InfoBepaler/GeefInfo1/Test.cls.xml
===================================================================
diff -u -r67521 -r67524
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/MVX/MVXLadePersen/InfoBepaler/GeefInfo1/Test.cls.xml	(.../Test.cls.xml)	(revision 67521)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/MVX/MVXLadePersen/InfoBepaler/GeefInfo1/Test.cls.xml	(.../Test.cls.xml)	(revision 67524)
@@ -35,6 +35,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Info1 van lade met stalen rug bevat Stalen rug">
+<Implementation><![CDATA[
+	#dim Info1 As %String
+	#dim HalffabItemsBoom = ..GeefHalffabItemsBoomMetStalenRug()
+	Do ..ZetProductieSequentieItemStub(,HalffabItemsBoom)
+	
+	Set InfoBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.MVX.MVXLadePersen.InfoBepaler).%New()
+	Set Info1 = InfoBepaler.GeefInfo1(..ProductieSequentieItemStub)
+	
+	Do $$$AssertEquals(Info1, ..Prefix _ " Stalen rug")
+]]></Implementation>
+</Method>
+
 <Method name="Test: Info1 van standaard spoelbaklade bevat SPOELBAK">
 <Implementation><![CDATA[
 	#dim Info1 As %String
@@ -125,6 +138,29 @@
 	Quit MvxKenmerken
 ]]></Implementation>
 </Method>
+
+<Method name="GeefHalffabItemsBoomMetStalenRug">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductId As %String = "HetBesteProductId"
+	#dim HalffabRug As DOM.PM.Maatwerk.Calc.HF.impl.MVX.Halffab.HalffabRug = ##class(DOM.PM.Maatwerk.Calc.HF.impl.MVX.Halffab.HalffabRug).%New(ProductId)
+	Set HalffabRug.RugWandMateriaal = ##class(DOM.PM.enu.MVXRugWandMateriaal).Staal()
+	
+	#dim RugXItemStub As DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New()
+	Do RugXItemStub.IndienMethodCall("GeefRol").DanReturn("X")
+	Do RugXItemStub.IndienMethodCall("GeefHalffab").DanReturn(HalffabRug)
+	
+	#dim RugItemStub As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New()
+	Do RugItemStub.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Rug())
+	Do RugItemStub.IndienMethodCall("GeefHalffabItem", $$$ElkeWaarde).DanReturn(RugXItemStub)
+	
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+	Do HalffabItemsBoom.AddHalffabItem(RugItemStub)
+	
+	Quit HalffabItemsBoom
+]]></Implementation>
+</Method>
 </Class>