Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AlgemeneInfoOptiesGenerator.cls.xml
===================================================================
diff -u -r74347 -r74644
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AlgemeneInfoOptiesGenerator.cls.xml	(.../AlgemeneInfoOptiesGenerator.cls.xml)	(revision 74347)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AlgemeneInfoOptiesGenerator.cls.xml	(.../AlgemeneInfoOptiesGenerator.cls.xml)	(revision 74644)
@@ -13,6 +13,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="CorpusBreedteBepaler">
+<Type>DOM.PM.Maatwerk.Lade.impl.CorpusBreedteBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>ProductApi:DOM.PM.ProductAPI="",IngegevenKenmerkenTypeApi:DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI=""</FormalSpec>
 <Private>1</Private>
@@ -22,6 +27,7 @@
 <Implementation><![CDATA[
 	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.PM.impl.ProductAPI).%New())
 	Set ..IngegevenKenmerkenTypeApi = $$$Inject(IngegevenKenmerkenTypeApi, ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New())
+	Set ..CorpusBreedteBepaler = ##class(DOM.PM.Maatwerk.Lade.impl.CorpusBreedteBepaler).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -123,7 +129,8 @@
 				Set ToeleveringProductInfoObjective.AantalSifonLades = ToeleveringProductInfoObjective.AantalSifonLades + Aantal
 			}
 			
-			If ..IngegevenKenmerkenTypeApi.IsSmalleLade(IngegevenKenmerken) {
+			//Dit moet een andere implementatie zijn dan de smalleLadeBepaler gezien dit geen invloed mag hebben op BOMBOL
+			If (..IsSmalleLade(IngegevenKenmerken)) {
 				Set ToeleveringProductInfoObjective.AantalSmalleLades = ToeleveringProductInfoObjective.AantalSmalleLades + Aantal
 			}
 		}		
@@ -152,6 +159,33 @@
 	Set ToeleveringProductInfoObjective.Variant = Variant
 ]]></Implementation>
 </Method>
+
+<Method name="IsSmalleLade">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim InterneBreedte As %Decimal = ..CorpusBreedteBepaler.GeefInbouwBreedte(IngegevenKenmerken)
+	#dim IsSmalleLade As %Boolean = $$$False
+	
+	If (##class(TECH.StringUtils).Equals(IngegevenKenmerken.GeefVariant(), ##class(DOM.PM.enu.Variant).TandemboxAntaro(), ##class(DOM.PM.enu.Variant).TandemboxMengvorm())) {
+		If (InterneBreedte < 275) {
+			Set IsSmalleLade = $$$True
+		}
+	} ElseIf (IngegevenKenmerken.GeefVariant() = ##class(DOM.PM.enu.Variant).Merivobox()) {
+		If (InterneBreedte < 251) {
+			Set IsSmalleLade = $$$True
+		}
+	} ElseIf (IngegevenKenmerken.GeefVariant() = ##class(DOM.PM.enu.Variant).LegraboxPure()) {
+		If (InterneBreedte < 237) {
+			Set IsSmalleLade = $$$True
+		}
+	} Else {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Variant '"_ IngegevenKenmerken.GeefVariant()_"' is nog niet geïmplementeerd voor de smalleladebepaler voor MES."))	
+	}
+	
+	Quit IsSmalleLade
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AlgemeneInfoOptiesGenerator/GenereerAlgemeneOptiesVoorBatch/Test.cls.xml
===================================================================
diff -u -r74356 -r74644
--- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AlgemeneInfoOptiesGenerator/GenereerAlgemeneOptiesVoorBatch/Test.cls.xml	(.../Test.cls.xml)	(revision 74356)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AlgemeneInfoOptiesGenerator/GenereerAlgemeneOptiesVoorBatch/Test.cls.xml	(.../Test.cls.xml)	(revision 74644)
@@ -17,12 +17,12 @@
 	Do BatchMock.VerwachtMethodCall("GeefCategorie").DanReturn(##class(APPS.Halux.common.enu.Categorie).Tandembox())
 	
 	#dim LbxLegeKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	Set LbxLegeKenmerken.InterneBreedte = 500
 	#dim ProductMock As vhTest.Mock.DOM.PM.LBXProduct.LBXLade = ..GeefProductMock(LbxLegeKenmerken)
 	
 	Set IngegevenKenmerkenTypeAPIMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI).%New()
 	Do IngegevenKenmerkenTypeAPIMock.VerwachtMethodCall("IsSpoelbaklade", LbxLegeKenmerken).DanReturn($$$False)
 	Do IngegevenKenmerkenTypeAPIMock.VerwachtMethodCall("IsSifonlade", LbxLegeKenmerken).DanReturn($$$False)
-	Do IngegevenKenmerkenTypeAPIMock.VerwachtMethodCall("IsSmalleLade", LbxLegeKenmerken).DanReturn($$$False)
 	Do IngegevenKenmerkenTypeAPIMock.VerwachtMethodCall("IsProductieWijzeVolledig", LbxLegeKenmerken).DanReturn($$$True)
 	
 	Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
@@ -64,14 +64,14 @@
 	Do BatchMock.VerwachtMethodCall("GeefCategorie").DanReturn(##class(APPS.Halux.common.enu.Categorie).Tandembox())
 		
 	#dim LbxLegeKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	Set LbxLegeKenmerken.InterneBreedte = 500
 	#dim ProductMock1 As vhTest.Mock.DOM.PM.LBXProduct.LBXLade = ..GeefProductMock(LbxLegeKenmerken)
 	#dim ProductMock2 As vhTest.Mock.DOM.PM.LBXProduct.LBXLade = ..GeefProductMock(LbxLegeKenmerken)
 	#dim ProductMock3 As vhTest.Mock.DOM.PM.LBXProduct.LBXLade = ..GeefProductMock(LbxLegeKenmerken)
 	
 	Set IngegevenKenmerkenTypeAPIMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI).%New()
 	Do IngegevenKenmerkenTypeAPIMock.VerwachtMethodCall("IsSpoelbaklade", LbxLegeKenmerken).DanReturn($$$False)
 	Do IngegevenKenmerkenTypeAPIMock.VerwachtMethodCall("IsSifonlade", LbxLegeKenmerken).DanReturn($$$True)
-	Do IngegevenKenmerkenTypeAPIMock.VerwachtMethodCall("IsSmalleLade", LbxLegeKenmerken).DanReturn($$$False)
 	Do IngegevenKenmerkenTypeAPIMock.VerwachtMethodCall("IsProductieWijzeVolledig", LbxLegeKenmerken).DanReturn($$$True)
 	
 	Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
@@ -167,7 +167,6 @@
 	Set IngegevenKenmerkenTypeAPIMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI).%New()
 	Do IngegevenKenmerkenTypeAPIMock.VerwachtMethodCall("IsSpoelbaklade", LbxLegeKenmerken).DanReturn($$$False)
 	Do IngegevenKenmerkenTypeAPIMock.VerwachtMethodCall("IsSifonlade", LbxLegeKenmerken).DanReturn($$$False)
-	Do IngegevenKenmerkenTypeAPIMock.VerwachtMethodCall("IsSmalleLade", LbxLegeKenmerken).DanReturn($$$False)
 	Do IngegevenKenmerkenTypeAPIMock.VerwachtMethodCall("IsProductieWijzeVolledig", LbxLegeKenmerken).DanReturn($$$True)
 	
 	Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()