Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/MVX/MVXLadePersen/InfoBepaler/GeefInfo1/Test.cls.xml
===================================================================
diff -u -r70286 -r70395
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/MVX/MVXLadePersen/InfoBepaler/GeefInfo1/Test.cls.xml	(.../Test.cls.xml)	(revision 70286)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/MVX/MVXLadePersen/InfoBepaler/GeefInfo1/Test.cls.xml	(.../Test.cls.xml)	(revision 70395)
@@ -77,12 +77,12 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Info1 van smalle lade met TOB bevat TOBS MONT">
+<Method name="Test: Info1 van lade met TOB eenheid bevat TOBS MONT">
 <Implementation><![CDATA[
 	#dim Info1 As %String
 	#dim MvxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken = ..GeefMvxKenmerkenStandaardLade()
-	Set MvxKenmerken.InterneBreedte = 300
-	Do ..ZetProductieSequentieItemStub(MvxKenmerken)
+	#dim HalffabItemsBoom = ..GeefHalffabItemsBoomMetTOBEeenheid()
+	Do ..ZetProductieSequentieItemStub(MvxKenmerken, HalffabItemsBoom)
 	
 	Set InfoBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.MVX.MVXLadePersen.InfoBepaler).%New()
 	Set Info1 = InfoBepaler.GeefInfo1(..ProductieSequentieItemStub)
@@ -128,7 +128,8 @@
 	Set MvxKenmerken.Toepassing = ##class(DOM.PM.enu.MVXToepassing).Sifon()
 	Set MvxKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.MVXGeleiderTechnologie).TIPONBLUMOTION()
 	Set MvxKenmerken.InterneBreedte = 5
-	Do ..ZetProductieSequentieItemStub(MvxKenmerken)
+	#dim HalffabItemsBoom = ..GeefHalffabItemsBoomMetTOBEeenheid()
+	Do ..ZetProductieSequentieItemStub(MvxKenmerken, HalffabItemsBoom)
 	
 	Set InfoBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.MVX.MVXLadePersen.InfoBepaler).%New()
 	Set Info1 = InfoBepaler.GeefInfo1(..ProductieSequentieItemStub)
@@ -207,6 +208,22 @@
 	Quit HalffabItemsBoom
 ]]></Implementation>
 </Method>
+
+<Method name="GeefHalffabItemsBoomMetTOBEeenheid">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductId As %String = "HetBesteProductId"
+	
+	#dim TOBEenheidItemStub As DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New()
+	Do TOBEenheidItemStub.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).TiponBlumotionEenheid())
+	
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+	Do HalffabItemsBoom.AddHalffabItem(TOBEenheidItemStub)
+	
+	Quit HalffabItemsBoom
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/PPS/Activiteit/impl/MVX/MVXLadePersen/InfoBepaler.cls.xml
===================================================================
diff -u -r70310 -r70395
--- APPS/Halux/PPS/Activiteit/impl/MVX/MVXLadePersen/InfoBepaler.cls.xml	(.../InfoBepaler.cls.xml)	(revision 70310)
+++ APPS/Halux/PPS/Activiteit/impl/MVX/MVXLadePersen/InfoBepaler.cls.xml	(.../InfoBepaler.cls.xml)	(revision 70395)
@@ -67,7 +67,7 @@
 	}
 	if ..MoetInfoSynchronisatiestangVermelden(IngegevenKenmerken, HalffabItemsBoom) {
 		Set Info = ..GeefInfoMetMelding(Info,"SYNCST")
-	} ElseIf ..MoetInfoTiponBlumotionVoorSmalleLadesVermelden(IngegevenKenmerken) {
+	} ElseIf ..MoetInfoTiponBlumotionVermelden(HalffabItemsBoom) {
 		Set Info = ..GeefInfoMetMelding(Info,"TOBS MONT")
 	}
 	Quit Info
@@ -154,14 +154,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="MoetInfoTiponBlumotionVoorSmalleLadesVermelden">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken</FormalSpec>
+<Method name="MoetInfoTiponBlumotionVermelden">
+<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	#dim MoetInfoVermelden As %Boolean = (IngegevenKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.MVXGeleiderTechnologie).TIPONBLUMOTION())
-	Set MoetInfoVermelden = (MoetInfoVermelden && (IngegevenKenmerken.InterneBreedte < 360))
-	Quit MoetInfoVermelden
+<Implementation><![CDATA[	Quit HalffabItemsBoom.BevatRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).TiponBlumotionEenheid())
 ]]></Implementation>
 </Method>