Index: APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml
===================================================================
diff -u -r59171 -r59215
--- APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml	(.../ProductieGroepBepalerTBX.cls.xml)	(revision 59171)
+++ APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml	(.../ProductieGroepBepalerTBX.cls.xml)	(revision 59215)
@@ -46,7 +46,11 @@
 	#dim TBXLade As DOM.PM.TBXProduct.TBXLade = ..ProductTypeApi.GeefTandemboxProduct(ProductId)
 	#dim Verpakking As DOM.PM.enu.TBXVerpakking = TBXLade.GeefVerpakking()
 	#dim ODSP As %String = TBXLade.GeefOnderdelenSpeciaal()
-
+	
+	#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 (..ProductieOpstartfaseBepaler.IsInOpstartfase(TBXLade, ProductId)) {
 		Set ProductieGroep = ..ProductieGroep.Opstartfase
 	} ElseIf (ODSP '= "") {
@@ -56,15 +60,15 @@
 	} ElseIf (..IsBijzonderGroteLade(TBXLade)) || (..IsBijzonderSmalleLade(TBXLade)) {
 		Set ProductieGroep = ..ProductieGroep.Specials
 	} ElseIf (TBXLade.HeeftProductSpecificatie() && (..IsSifonlade(TBXLade) && ..IsAfsplitsenNodigVoorTbxManueleBewerking())) {
-			Set ProductieGroep = ..ProductieGroep.TBXSifon
-	} ElseIf ((Verpakking = ##class(DOM.PM.enu.TBXVerpakking).KastMetOnderdelen()) || (Verpakking = ##class(DOM.PM.enu.TBXVerpakking).KastZonderOnderdelen())) {
+		Set ProductieGroep = ..ProductieGroep.TBXSifon
+	} ElseIf (IsVhoss) {
 		set ProductieGroep = ..ProductieGroep.Pallet
 		If (..IsKastKlant(KlantId)) {
 			Set ProductieGroep = ..ProductieGroep.Kast
 		}
-	} ElseIf ((Verpakking = ##class(DOM.PM.enu.TBXVerpakking).Pallet()) || (Verpakking = ##class(DOM.PM.enu.TBXVerpakking).CommissieMetOnderdelen()) || (Verpakking = ##class(DOM.PM.enu.TBXVerpakking).CommissieZonderOnderdelen())) {
+	} ElseIf (IsPallet) {
 		Set ProductieGroep = ..ProductieGroep.Pallet
-	} ElseIf ((Verpakking = ##class(DOM.PM.enu.TBXVerpakking).ProboxMetOnderdelen()) || (Verpakking = ##class(DOM.PM.enu.TBXVerpakking).ProboxZonderOnderdelen())) {
+	} ElseIf (IsProbox) {
 		Set ProductieGroep = ..ProductieGroep.Probox
 	}