Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/MVX/MVXLadePersen/InfoBepaler/GeefInfo2/Test.cls.xml
===================================================================
diff -u -r67539 -r67554
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/MVX/MVXLadePersen/InfoBepaler/GeefInfo2/Test.cls.xml	(.../Test.cls.xml)	(revision 67539)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/MVX/MVXLadePersen/InfoBepaler/GeefInfo2/Test.cls.xml	(.../Test.cls.xml)	(revision 67554)
@@ -78,7 +78,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Info2 van lade met dwarsverdelingen geeft DWV:n">
+<Method name="Test: Info2 van lade met dwarsverdelingen bevat DWV:n">
 <Implementation><![CDATA[
 	#dim Info2 As %String
 	#dim MvxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken = ..GeefMvxKenmerkenStandaardLade()
@@ -92,7 +92,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Info2 van lade met mat geeft Mat:KorteNotatieMat">
+<Method name="Test: Info2 van lade met mat bevat Mat:KorteNotatieMat">
 <Implementation><![CDATA[
 	#dim Info2 As %String
 	#dim MatKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).%New()
@@ -111,7 +111,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Info2 van lade met ZijstabiliseringsStang geeft ZIJSTB">
+<Method name="Test: Info2 van lade met ZijstabiliseringsStang bevat ZIJSTB">
 <Implementation><![CDATA[
 	#dim Info2 As %String
 	#dim MvxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken = ..GeefMvxKenmerkenStandaardLade()
@@ -126,6 +126,40 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Info2 van binnenlade met Boxcap en productiewijze volledig bevat BCap">
+<Implementation><![CDATA[
+	#dim Info2 As %String
+	#dim MvxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken = ..GeefMvxKenmerkenStandaardLade()
+	Set MvxKenmerken.IsBinnenlade = $$$True
+	Set MvxKenmerken.ProductieWijze = ##class(DOM.PM.enu.MVXProductieWijze).Volledig()
+	Set MvxKenmerken.ZijwandType = ##class(DOM.PM.enu.MVXZijWandType).Boxcap()
+	#dim HalffabItemsBoom = ..GeefHalffabItemsBoomMetBoxcap()
+	Do ..ZetProductieSequentieItemStub(MvxKenmerken, HalffabItemsBoom)
+	
+	Set InfoBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.MVX.MVXLadePersen.InfoBepaler).%New()
+	Set Info2 = InfoBepaler.GeefInfo2(..ProductieSequentieItemStub)
+	
+	Do $$$AssertEquals(Info2, ..Prefix _ "Front; BCap")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Info2 van binnenlade met Boxcover en productiewijze volledig bevat BCov">
+<Implementation><![CDATA[
+	#dim Info2 As %String
+	#dim MvxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken = ..GeefMvxKenmerkenStandaardLade()
+	Set MvxKenmerken.IsBinnenlade = $$$True
+	Set MvxKenmerken.ProductieWijze = ##class(DOM.PM.enu.MVXProductieWijze).Volledig()
+	Set MvxKenmerken.ZijwandType = ##class(DOM.PM.enu.MVXZijWandType).Boxcover()
+	#dim HalffabItemsBoom = ..GeefHalffabItemsBoomMetBoxcover()
+	Do ..ZetProductieSequentieItemStub(MvxKenmerken, HalffabItemsBoom)
+	
+	Set InfoBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.MVX.MVXLadePersen.InfoBepaler).%New()
+	Set Info2 = InfoBepaler.GeefInfo2(..ProductieSequentieItemStub)
+	
+	Do $$$AssertEquals(Info2, ..Prefix _ "Front; BCov")
+]]></Implementation>
+</Method>
+
 <Method name="Test: Info2 van speciale lade geeft alle info">
 <Implementation><![CDATA[
 	#dim Info2 As %String
@@ -192,6 +226,42 @@
 	Quit HalffabItemsBoom
 ]]></Implementation>
 </Method>
+
+<Method name="GeefHalffabItemsBoomMetBoxcap">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductId As %String = "HetBesteProductId"
+	
+	#dim BoxcapStub As DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New()
+	Do BoxcapStub.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Boxcap())
+	
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+	Do HalffabItemsBoom.AddHalffabItem(BoxcapStub)
+	
+	Quit HalffabItemsBoom
+]]></Implementation>
+</Method>
+
+<Method name="GeefHalffabItemsBoomMetBoxcover">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductId As %String = "HetBesteProductId"
+	
+	#dim BoxcoverVoorStub As DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New()
+	Do BoxcoverVoorStub.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).BoxcoverVoor())
+	
+	#dim BoxcoverAchterStub As DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New()
+	Do BoxcoverAchterStub.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).BoxcoverAchter())
+	
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+	Do HalffabItemsBoom.AddHalffabItem(BoxcoverVoorStub)
+	Do HalffabItemsBoom.AddHalffabItem(BoxcoverAchterStub)
+	
+	Quit HalffabItemsBoom
+]]></Implementation>
+</Method>
 </Class>