Index: APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml
===================================================================
diff -u -r59664 -r75036
--- APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml	(.../ProductieGroepBepalerTBX.cls.xml)	(revision 59664)
+++ APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml	(.../ProductieGroepBepalerTBX.cls.xml)	(revision 75036)
@@ -50,21 +50,36 @@
 	#dim IsProbox As %Boolean = ##class(TECH.StringUtils).Equals(Verpakking , ##class(DOM.PM.enu.TBXVerpakking).ProboxMetOnderdelen(), ##class(DOM.PM.enu.TBXVerpakking).ProboxZonderOnderdelen())
 	#dim IsPallet As %Boolean = ##class(TECH.StringUtils).Equals(Verpakking , ##class(DOM.PM.enu.TBXVerpakking).Pallet(), ##class(DOM.PM.enu.TBXVerpakking).CommissieMetOnderdelen(), ##class(DOM.PM.enu.TBXVerpakking).CommissieZonderOnderdelen())
 	#dim IsVhoss As %Boolean = ##class(TECH.StringUtils).Equals(Verpakking , ##class(DOM.PM.enu.TBXVerpakking).KastMetOnderdelen(), ##class(DOM.PM.enu.TBXVerpakking).KastZonderOnderdelen())
-	
-	If (..IsKlantDeDecker(KlantId) && ..IsKleurOrionGrijs(TBXLade)) {
-		Set ProductieGroep = ..ProductieGroep.TBXOrionGrijs
-	} ElseIf (..IsSpecialsKlant(KlantId, Verpakking)){
-		Set ProductieGroep = ..ProductieGroep.SpecialsKlant	
-	} ElseIf (..ProductieOpstartfaseBepaler.IsInOpstartfase(TBXLade, ProductId)) {
+		
+	If (..ProductieOpstartfaseBepaler.IsInOpstartfase(TBXLade, ProductId)) {
 		Set ProductieGroep = ..ProductieGroep.Opstartfase
+	} ElseIf (..IsKlantDeDecker(KlantId) && ..IsKleurOrionGrijs(TBXLade)) {
+		If IsVhoss {
+			Set ProductieGroep = ..ProductieGroep.TBXOrionGrijsVhoss
+		} Else {
+			Set ProductieGroep = ..ProductieGroep.TBXOrionGrijs
+		}
+	} ElseIf (..IsSpecialsKlant(KlantId, Verpakking, TBXLade.GeefVariant())){
+		Set ProductieGroep = ..ProductieGroep.SpecialsKlant	
 	} ElseIf (ODSP '= "") {
 		Set ProductieGroep = ..ProductieGroep.Specials
 	} ElseIf (..IsBuroOfHangmappenLade(TBXLade)) {
 		Set ProductieGroep = ..ProductieGroep.Specials
-	} ElseIf (..IsBijzonderGroteLade(TBXLade)) || (..IsBijzonderSmalleLade(TBXLade)) {
-		Set ProductieGroep = ..ProductieGroep.Specials
-	} ElseIf $$$Not(IsVhoss) && $$$Not(IsPallet) && (TBXLade.HeeftProductSpecificatie() && (..IsSifonlade(TBXLade) && ..IsAfsplitsenNodigVoorTbxManueleBewerking())) {
+	} ElseIf ((..IsBijzonderSmalleLade(TBXLade)) && (..IsAfsplitsenNodigVoorTbxManueleBewerking() || (..GeefAantalVerschillendeProductieGroepen() = 1))) {
 		Set ProductieGroep = ..ProductieGroep.TBXSifon
+		If ($$$Not(IsProbox) && $$$Not(IsPallet) && $$$Not(IsVhoss) && (..GeefAantalVerschillendeProductieGroepen() = 1)) {
+			Set ProductieGroep = ..ProductieGroep.Stuk
+		}
+	} ElseIf $$$Not(IsVhoss) && (TBXLade.HeeftProductSpecificatie() && (..IsSifonlade(TBXLade) && (..IsAfsplitsenNodigVoorTbxManueleBewerking() || (..GeefAantalVerschillendeProductieGroepen() = 1)))) {
+		Set ProductieGroep = ..ProductieGroep.TBXSifon
+		If ($$$Not(IsProbox) && $$$Not(IsPallet) && $$$Not(IsVhoss) && (..GeefAantalVerschillendeProductieGroepen() = 1)) {
+			Set ProductieGroep = ..ProductieGroep.Stuk
+		}
+	} ElseIf $$$Not(IsVhoss) && (TBXLade.HeeftProductSpecificatie() && (..IsSpoelbaklade(TBXLade) && (..IsAfsplitsenNodigVoorTbxManueleBewerking() || (..GeefAantalVerschillendeProductieGroepen() = 1)))) {
+		Set ProductieGroep = ..ProductieGroep.TBXSifon
+		If ($$$Not(IsProbox) && $$$Not(IsPallet) && $$$Not(IsVhoss) && (..GeefAantalVerschillendeProductieGroepen() = 1)) {
+			Set ProductieGroep = ..ProductieGroep.Stuk
+		}
 	} ElseIf (IsVhoss) {
 		set ProductieGroep = ..ProductieGroep.Pallet
 		If (..IsKastKlant(KlantId)) {
@@ -107,19 +122,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="IsBijzonderGroteLade">
-<FormalSpec>TBXLade:DOM.PM.TBXProduct.TBXLade</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit (TBXLade.GeefBodemBreedte() '< 1250)
-]]></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><![CDATA[	Quit (TBXLade.GeefInbouwBreedte() < 285)
 ]]></Implementation>
 </Method>
 
@@ -161,6 +168,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsSpoelbaklade">
+<FormalSpec>HuidigeTbxLade:DOM.PM.TBXProduct.TBXLade</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim TbxLadeIngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = HuidigeTbxLade.GeefIngegevenKenmerken()
+	Quit (..IngegevenKenmerkenTypeAPI.IsSpoelbaklade(TbxLadeIngegevenKenmerken))
+]]></Implementation>
+</Method>
+
 <Method name="IsKlantDeDecker">
 <FormalSpec>KlantId:DOM.VKP.VanHoeckeKlantID</FormalSpec>
 <Private>1</Private>
@@ -178,6 +195,15 @@
 <Implementation><![CDATA[	Quit HuidigeTbxLade.GeefZijkantKleur() = ##class(DOM.PM.enu.TBXLadeKleur).OG()
 ]]></Implementation>
 </Method>
+
+<Method name="GeefAantalVerschillendeProductieGroepen">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit:($IsObject(..ToeleveringSplitser)) ..ToeleveringSplitser.GeefAantalVerschillendeGroepen()
+	Quit 1
+]]></Implementation>
+</Method>
 </Class>