Index: APPS/Halux/common/impl/SequentieService.cls.xml
===================================================================
diff -u -r60945 -r63749
--- APPS/Halux/common/impl/SequentieService.cls.xml	(.../SequentieService.cls.xml)	(revision 60945)
+++ APPS/Halux/common/impl/SequentieService.cls.xml	(.../SequentieService.cls.xml)	(revision 63749)
@@ -169,7 +169,7 @@
 		
 		Do blSequencer.Init(Batch.GeefID(), Batch.GeefProductieGroep())
 		
-		If (Batch.GeefProductieGroep() = ..ProductieGroep.Kast) || (Batch.GeefProductieGroep() = ..ProductieGroep.Plus) {
+		If ##class(TECH.StringUtils).Equals(Batch.GeefProductieGroep(), ..ProductieGroep.Kast, ..ProductieGroep.Plus, ..ProductieGroep.TBXOrionGrijsVhoss) {
 			Do blSequencer.BldVHossSequence(.QtyLade, .QtyEmpty, .QtyVHoss, .SkippedTekst)
 			
 			If ($Length($Get(SkippedTekst))) {
@@ -230,7 +230,7 @@
 <FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ((Batch.GeefCategorie() = ..Categorie.Legrabox) || (Batch.GeefCategorie() = ..Categorie.TAORbox))
+<Implementation><![CDATA[	Quit ##class(TECH.StringUtils).Equals(Batch.GeefCategorie(), ..Categorie.Legrabox, ..Categorie.TAORbox, ..Categorie.Merivobox)
 ]]></Implementation>
 </Method>
 
@@ -243,6 +243,8 @@
 	
 	If (Batch.GeefCategorie() = ..Categorie.Legrabox) {
 		Set ProductieSequentie = ##class(APPS.Halux.common.impl.ProductieSequentie.Legrabox).%New(Batch)
+	} ElseIf (Batch.GeefCategorie() = ..Categorie.Merivobox) {
+		Set ProductieSequentie = ##class(APPS.Halux.common.impl.ProductieSequentie.Merivobox).%New(Batch)
 	} ElseIf (Batch.GeefCategorie() = ..Categorie.TAORbox) {
 		Set ProductieSequentie = ##class(APPS.Halux.common.impl.ProductieSequentie.Taor).%New(Batch)
 	} Else {