Index: APPS/Halux/common/impl/SequentieService.cls.xml
===================================================================
diff -u -r63749 -r74585
--- APPS/Halux/common/impl/SequentieService.cls.xml	(.../SequentieService.cls.xml)	(revision 63749)
+++ APPS/Halux/common/impl/SequentieService.cls.xml	(.../SequentieService.cls.xml)	(revision 74585)
@@ -134,7 +134,7 @@
 <Implementation><![CDATA[
 	#dim ProductieSequentie As APPS.Halux.common.ProductieSequentie = ..GeefNieuweProductieSequentie(Batch)
 	
-	If ((Batch.GeefProductieGroep() = ..ProductieGroep.Kast) || (Batch.GeefProductieGroep() = ..ProductieGroep.Plus) || (Batch.GeefProductieGroep() = ..ProductieGroep.LBXSpoelbakVHoss)) {		
+	If ((Batch.GeefProductieGroep() = ..ProductieGroep.Kast) || (Batch.GeefProductieGroep() = ..ProductieGroep.Plus) || (Batch.GeefProductieGroep() = ..ProductieGroep.LBXSpoelbakVHoss) || (Batch.GeefProductieGroep() = ..ProductieGroep.MVXSpoelbakVHoss)) {
 		Do ProductieSequentie.MaakVHossSequentie()
 	} Else {
 		Do ProductieSequentie.MaakStandaardSequentie()
@@ -230,7 +230,7 @@
 <FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ##class(TECH.StringUtils).Equals(Batch.GeefCategorie(), ..Categorie.Legrabox, ..Categorie.TAORbox, ..Categorie.Merivobox)
+<Implementation><![CDATA[	Quit ##class(TECH.StringUtils).Equals(Batch.GeefCategorie(), ..Categorie.Legrabox, ..Categorie.TAORbox, ..Categorie.Merivobox, ..Categorie.Tandembox, ..Categorie.Revego, ..Categorie.Tabletlade)
 ]]></Implementation>
 </Method>
 
@@ -240,13 +240,19 @@
 <ReturnType>APPS.Halux.common.ProductieSequentie</ReturnType>
 <Implementation><![CDATA[
 	#dim ProductieSequentie As APPS.Halux.common.ProductieSequentie = ""
-	
+		
 	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.Tandembox) {
+		Set ProductieSequentie = ##class(APPS.Halux.common.impl.ProductieSequentie.Tandembox).%New(Batch)
 	} ElseIf (Batch.GeefCategorie() = ..Categorie.TAORbox) {
 		Set ProductieSequentie = ##class(APPS.Halux.common.impl.ProductieSequentie.Taor).%New(Batch)
+	} ElseIf (Batch.GeefCategorie() = ..Categorie.Revego) {
+		Set ProductieSequentie = ##class(APPS.Halux.common.impl.ProductieSequentie.Revego).%New(Batch)
+	} ElseIf (Batch.GeefCategorie() = ..Categorie.Tabletlade) {
+		Set ProductieSequentie = ##class(APPS.Halux.common.impl.ProductieSequentie.Tabletlade).%New(Batch)
 	} Else {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Kan geen ProductieSequentie-klasse maken voor categorie " _ Batch.GeefCategorie() _ " (Batch " _ Batch.GeefID() _ ")"))
 	}
@@ -362,8 +368,12 @@
 <ReturnType>DS.PPS.TBX.sub.emWPLosOnderdeel</ReturnType>
 <Implementation><![CDATA[
 	#dim WPLosOnderdeel As DS.PPS.TBX.sub.emWPLosOnderdeel = "" 
+	#dim HeeftProductVerpakking As %Boolean = ##class(BL.PPS.WPLosOnderdeel).GeefWPOptiboxInstantie(ProductID).HeeftProductVerpakking()
+	#dim HeeftLODoos As %Boolean = ##class(BL.PPS.WPLosOnderdeel).GeefWPOptiboxInstantie(ProductID).HeeftDoos()
+	#dim HeeftStandaardHuls As %Boolean = ##class(BL.PPS.WPLosOnderdeel).GeefWPOptiboxInstantie(ProductID).HeeftStandaardDoos()
+	#dim HeeftAansturingLODoosNodig As %Boolean = (HeeftProductVerpakking && HeeftLODoos && $$$Not(HeeftStandaardHuls))
 	
-	If (##class(BL.PPS.WPLosOnderdeel).GeefWPOptiboxInstantie(ProductID).HeeftProductVerpakking()) {
+	If (HeeftAansturingLODoosNodig) {
 		Set WPLosOnderdeel = ##class(DS.PPS.TBX.sub.emWPLosOnderdeel).%New()
 		Set WPLosOnderdeel.WPStatus = "W"
 		Set WPLosOnderdeel.SnijStatus = "W"