Index: vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerTBX/GeefProductieGroep/Test.cls.xml
===================================================================
diff -u -r41109 -r41110
--- vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerTBX/GeefProductieGroep/Test.cls.xml	(.../Test.cls.xml)	(revision 41109)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerTBX/GeefProductieGroep/Test.cls.xml	(.../Test.cls.xml)	(revision 41110)
@@ -31,7 +31,7 @@
 
 <Method name="TestBijzonderSmalleLade">
 <Implementation><![CDATA[
-	#dim VerwachteProductieGroep As APPS.Halux.common.enu.ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Stuk()
+	#dim VerwachteProductieGroep As APPS.Halux.common.enu.ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Specials()
 	Do ..AssertProductieGroep(..GeefTBXLade(,,210), VerwachteProductieGroep)
 ]]></Implementation>
 </Method>
Index: APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml
===================================================================
diff -u -r38568 -r41110
--- APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml	(.../ProductieGroepBepalerTBX.cls.xml)	(revision 38568)
+++ APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml	(.../ProductieGroepBepalerTBX.cls.xml)	(revision 41110)
@@ -17,7 +17,7 @@
 		Set ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Specials()
 	} ElseIf (..IsBuroOfHangmappenLade(TBXLade)) {
 		Set ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Specials()
-	} ElseIf (..IsBijzonderGroteLade(TBXLade)) {
+	} ElseIf (..IsBijzonderGroteLade(TBXLade)) || (..IsBijzonderSmalleLade(TBXLade)) {
 		Set ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Specials()
 	} ElseIf ((Verpakking = ##class(DOM.PM.enu.TBXVerpakking).KastMetOnderdelen()) || (Verpakking = ##class(DOM.PM.enu.TBXVerpakking).KastZonderOnderdelen())) {
 		set ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Pallet()
@@ -71,6 +71,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsBijzonderSmalleLade">
+<FormalSpec>TBXLade:DOM.PM.TBXProduct.TBXLade</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (TBXLade.GeefInbouwBreedte() '> 210)
+]]></Implementation>
+</Method>
+
 <Method name="IsKastKlant">
 <FormalSpec>KlantID:%String</FormalSpec>
 <Private>1</Private>