Index: APPS/Halux/common/impl/ProductieSequentie/Revego.cls.xml
===================================================================
diff -u
--- APPS/Halux/common/impl/ProductieSequentie/Revego.cls.xml	(revision 0)
+++ APPS/Halux/common/impl/ProductieSequentie/Revego.cls.xml	(revision 68831)
@@ -0,0 +1,81 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.common.impl.ProductieSequentie.Revego">
+<Super>APPS.Halux.common.impl.ProductieSequentie.Basis</Super>
+
+<Method name="MaakStandaardSequentie">
+<Implementation><![CDATA[
+	Do ..Init()
+
+	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
+	#dim Sortering As TECH.MultiDim = ""
+	#dim Batch As APPS.Halux.common.Batch = ..GeefBatch()
+	#dim ToeleveringIterator As TECH.Iterator = Batch.GeefToeleveringIterator()
+	#dim SequentieNummer As %Integer = 0
+
+	While (ToeleveringIterator.HasNext()) {
+		#dim Toelevering As DOM.AKP.Toelevering = ToeleveringIterator.Next()
+
+		Kill Sortering
+		
+		#dim ProductLijnIterator As TECH.Iterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product())
+		
+		While (ProductLijnIterator.HasNext()) {
+			#dim ProductLijn As DOM.AKP.ProductToeleveringLijn = ProductLijnIterator.Next()
+
+			// TODOPA vertaling van ProductID As %String naar DOM.common.ProductID
+			#dim MaatwerkProduct As DOM.PM.MaatwerkProduct = ProductTypeAPI.GeefMaatwerkProduct(ProductLijn.GeefProductID())
+			#dim ProductieSequentieItems As %ListOfObjects = ..MaakProductieSequentieItems(Toelevering, ProductLijn)
+			
+			Do ..VulAanSorteringVoorProductieSequentieItems(.Sortering, ProductieSequentieItems, MaatwerkProduct)
+		}
+
+		Do ##class(TECH.ListUtils).AppendList(..SequentieItems, ..GeefGesorteerdeProductieSequentieItems(.Sortering, .SequentieNummer))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefGesorteerdeProductieSequentieItems">
+<FormalSpec><![CDATA[&Sortering:TECH.MultiDim,&SequentieNummer:%Integer]]></FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<ReturnTypeParams>ELEMENTTYPE="APPS.Halux.common.ProductieSequentieItem"</ReturnTypeParams>
+<Implementation><![CDATA[
+	#dim GesorteerdeProductieSequentieItems As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim Iterator As TECH.Iterator = ##class(TECH.ArrayMultiDimIterator).%New(.Sortering)
+		
+	While (Iterator.HasNext()) {
+		#dim Item As APPS.Halux.common.ProductieSequentieItem = Iterator.Next()
+
+		Set Item.SequentieNummer = $Increment(SequentieNummer)
+		Set Item.GroepSequentieNummer = Item.SequentieNummer
+		Set Item.ToeleveringSequentieNummer = ..FrequentieTabel.Verhoog(Item.ToeleveringID)
+			
+		Do GesorteerdeProductieSequentieItems.Insert(Item)
+	}
+	
+	Quit GesorteerdeProductieSequentieItems
+]]></Implementation>
+</Method>
+
+<Method name="GeefSorteerSleutel">
+<FormalSpec>MaatwerkProduct:DOM.PM.MaatwerkProduct,Item:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken = MaatwerkProduct.GeefProductSpecificatie().GeefIngegevenKenmerken()
+	#dim SorteerSleutel As %String = MaatwerkProduct.GeefID()
+	Set SorteerSleutel = SorteerSleutel_"-"_Item.ToeleveringID
+	Set SorteerSleutel = SorteerSleutel_"-"_Item.ToeleveringLijnID
+	Set SorteerSleutel = SorteerSleutel_"-"_##class(TECH.StringUtils).AlignRight(Item.DeelAantal, "0", 4)
+	
+	Quit SorteerSleutel
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/Halux/common/impl/SequentieService.cls.xml
===================================================================
diff -u -r66584 -r68831
--- APPS/Halux/common/impl/SequentieService.cls.xml	(.../SequentieService.cls.xml)	(revision 66584)
+++ APPS/Halux/common/impl/SequentieService.cls.xml	(.../SequentieService.cls.xml)	(revision 68831)
@@ -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, ..Categorie.Tandembox)
+<Implementation><![CDATA[	Quit ##class(TECH.StringUtils).Equals(Batch.GeefCategorie(), ..Categorie.Legrabox, ..Categorie.TAORbox, ..Categorie.Merivobox, ..Categorie.Tandembox, ..Categorie.Revego)
 ]]></Implementation>
 </Method>
 
@@ -240,7 +240,7 @@
 <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) {
@@ -249,6 +249,8 @@
 		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)
 	} Else {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Kan geen ProductieSequentie-klasse maken voor categorie " _ Batch.GeefCategorie() _ " (Batch " _ Batch.GeefID() _ ")"))
 	}