Index: vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerTBX/GeefProductieGroep/Test.cls.xml
===================================================================
diff -u -r38568 -r41109
--- vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerTBX/GeefProductieGroep/Test.cls.xml	(.../Test.cls.xml)	(revision 38568)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerTBX/GeefProductieGroep/Test.cls.xml	(.../Test.cls.xml)	(revision 41109)
@@ -25,10 +25,17 @@
 <Method name="TestBijzonderGroteLade">
 <Implementation><![CDATA[
 	#dim VerwachteProductieGroep As APPS.Halux.common.enu.ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Specials()
-	Do ..AssertProductieGroep(..GeefTBXLade(,,1250), VerwachteProductieGroep)
+	Do ..AssertProductieGroep(..GeefTBXLade(,,1250+75), VerwachteProductieGroep)
 ]]></Implementation>
 </Method>
 
+<Method name="TestBijzonderSmalleLade">
+<Implementation><![CDATA[
+	#dim VerwachteProductieGroep As APPS.Halux.common.enu.ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Stuk()
+	Do ..AssertProductieGroep(..GeefTBXLade(,,210), VerwachteProductieGroep)
+]]></Implementation>
+</Method>
+
 <Method name="TestTBXLadeProbox">
 <Implementation><![CDATA[
 	#dim Verpakking As DOM.PM.enu.TBXVerpakking = ##class(DOM.PM.enu.TBXVerpakking).ProboxMetOnderdelen()
@@ -91,15 +98,18 @@
 </Method>
 
 <Method name="GeefTBXLade">
-<FormalSpec>Verpakking:DOM.PM.enu.TBXVerpakking=##class(DOM.PM.enu.TBXVerpakking).StukMetOnderdelen(),OnderdelenSpeciaal:%String="",BodemBreedte:%Decimal=1249,GeleiderTechnologie:DOM.PM.enu.TBXBlumotion=##class(DOM.PM.enu.TBXBlumotion).Geintegreerd()</FormalSpec>
+<FormalSpec>Verpakking:DOM.PM.enu.TBXVerpakking=##class(DOM.PM.enu.TBXVerpakking).StukMetOnderdelen(),OnderdelenSpeciaal:%String="",InbouwBreedte:%Decimal=1324,GeleiderTechnologie:DOM.PM.enu.TBXBlumotion=##class(DOM.PM.enu.TBXBlumotion).Geintegreerd()</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.PM.TBXProduct.TBXLade</ReturnType>
 <Implementation><![CDATA[
+	#dim BodemBreedte As %Decimal = InbouwBreedte - 75
+	
 	Set TBXLadeStub = ##class(vhTest.Mock.DOM.PM.TBXProduct.TBXLade).%New(..#ProductID)
 	Do TBXLadeStub.IndienMethodCall("GeefPRNr").DanReturn(..#ProductID)
 	Do TBXLadeStub.IndienMethodCall("GeefVerpakking").DanReturn(Verpakking)
 	Do TBXLadeStub.IndienMethodCall("GeefOnderdelenSpeciaal").DanReturn(OnderdelenSpeciaal)
 	Do TBXLadeStub.IndienMethodCall("GeefBodemBreedte").DanReturn(BodemBreedte)
+	Do TBXLadeStub.IndienMethodCall("GeefInbouwBreedte").DanReturn(InbouwBreedte)
 	Do TBXLadeStub.IndienMethodCall("GeefBlumotion").DanReturn(GeleiderTechnologie)
 	Do TBXLadeStub.IndienMethodCall("GeefAantalHangmappen").DanReturn("")