Index: APPS/Halux/PPS/Activiteit/impl/common/SequentieGebaseerdeUitvoeringInfoDefaultAanvuller.cls.xml
===================================================================
diff -u -r31988 -r31991
--- APPS/Halux/PPS/Activiteit/impl/common/SequentieGebaseerdeUitvoeringInfoDefaultAanvuller.cls.xml	(.../SequentieGebaseerdeUitvoeringInfoDefaultAanvuller.cls.xml)	(revision 31988)
+++ APPS/Halux/PPS/Activiteit/impl/common/SequentieGebaseerdeUitvoeringInfoDefaultAanvuller.cls.xml	(.../SequentieGebaseerdeUitvoeringInfoDefaultAanvuller.cls.xml)	(revision 31991)
@@ -26,8 +26,9 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..ProductTypeAPI = $$$Implementation(ProductTypeAPI,##class(DOM.DomeinContext).Instance().GeefProductTypeAPI())
-	set ..ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
-	set ..BatchService = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService()
+	Set ..ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
+	Set ..BatchService = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -36,25 +37,22 @@
 <FormalSpec><![CDATA[&UitvoeringInfo:APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo,WerklijstItemMakerInput:APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput]]></FormalSpec>
 <Implementation><![CDATA[
 	#dim ProductieSequentieItem As APPS.Halux.common.ProductieSequentieItem = WerklijstItemMakerInput.ProductieSequentieItem
-	set UitvoeringInfo.BatchID = ProductieSequentieItem.BatchID
-	set UitvoeringInfo.DeelAantal = ProductieSequentieItem.DeelAantal
-	set UitvoeringInfo.PartijID = ProductieSequentieItem.PartijID
-	set UitvoeringInfo.SequentieNummer = ProductieSequentieItem.SequentieNummer
-	set UitvoeringInfo.ToeleveringID = ProductieSequentieItem.ToeleveringID
-	set UitvoeringInfo.ToeleveringLijnID = ProductieSequentieItem.ToeleveringLijnID
-	set UitvoeringInfo.TotaalAantal = ProductieSequentieItem.TotaalAantal
-	set UitvoeringInfo.ProductID = ProductieSequentieItem.ProductID
-	set UitvoeringInfo.ToeleveringSequentieNummer = ProductieSequentieItem.ToeleveringSequentieNummer
-	
-	#dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = ..ToeleveringAPI.GeefToeleveringLijn(ProductieSequentieItem.ToeleveringID,ProductieSequentieItem.ToeleveringLijnID)
-	
-	set UitvoeringInfo.DueOut = ToeleveringLijn.GeefLeverdag()
-	
+	#dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = ..ToeleveringAPI.GeefToeleveringLijn(ProductieSequentieItem.ToeleveringID, ProductieSequentieItem.ToeleveringLijnID)
 	#dim Batch As APPS.Halux.common.Batch = ..BatchService.GeefBatch(ProductieSequentieItem.BatchID)
-	Set UitvoeringInfo.DueOutTijdstip = Batch.GeefVroegsteDueOut()
-	
 	#dim Product As DOM.PM.MaatwerkProduct = ..ProductTypeAPI.GeefMaatwerkProduct(ProductieSequentieItem.ProductID)
-	set UitvoeringInfo.DossierCode = Product.GeefDossierCode()
+	
+	Set UitvoeringInfo.BatchID = ProductieSequentieItem.BatchID
+	Set UitvoeringInfo.DeelAantal = ProductieSequentieItem.DeelAantal
+	Set UitvoeringInfo.PartijID = ProductieSequentieItem.PartijID
+	Set UitvoeringInfo.SequentieNummer = ProductieSequentieItem.SequentieNummer
+	Set UitvoeringInfo.ToeleveringID = ProductieSequentieItem.ToeleveringID
+	Set UitvoeringInfo.ToeleveringLijnID = ProductieSequentieItem.ToeleveringLijnID
+	Set UitvoeringInfo.TotaalAantal = ProductieSequentieItem.TotaalAantal
+	Set UitvoeringInfo.ProductID = ProductieSequentieItem.ProductID
+	Set UitvoeringInfo.ToeleveringSequentieNummer = ProductieSequentieItem.ToeleveringSequentieNummer
+	Set UitvoeringInfo.DueOut = ToeleveringLijn.GeefLeverdag()	
+	Set UitvoeringInfo.DueOutTijdstip = Batch.GeefVroegsteDueOut()
+	Set UitvoeringInfo.DossierCode = Product.GeefDossierCode()
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/common/impl/ProductieSequentieRepository.cls.xml
===================================================================
diff -u -r29059 -r31991
--- APPS/Halux/common/impl/ProductieSequentieRepository.cls.xml	(.../ProductieSequentieRepository.cls.xml)	(revision 29059)
+++ APPS/Halux/common/impl/ProductieSequentieRepository.cls.xml	(.../ProductieSequentieRepository.cls.xml)	(revision 31991)
@@ -8,39 +8,43 @@
 <ReturnType>TECH.ResultSet</ReturnType>
 <Implementation><![CDATA[
 	#dim QueryUitvoerder As TECH.Query.QueryUitvoerder = ##class(TECH.Context).Instance().GeefQueryAPI().GeefQueryUitvoerder()
-	#dim ResultSet As TECH.ResultSet = QueryUitvoerder.VoerUit("SELECT * FROM PPS.TBX_Queue WHERE BatchID = ? ORDER BY Sequence",$listbuild(BatchID))
-	quit ResultSet
+	#dim ResultSet As TECH.ResultSet = QueryUitvoerder.VoerUit("SELECT * FROM PPS.TBX_Queue WHERE BatchID = ? ORDER BY Sequence", $ListBuild(BatchID))
+	
+	Quit ResultSet
 ]]></Implementation>
 </Method>
 
 <Method name="GeefSequentieItemIDsMetDossierCode">
 <FormalSpec>BatchID:%String,DossierCode:%String,AantalStuks:%String</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	#dim ResultSet As TECH.ResultSet = ..GeefSequentieDataMetDossierCode(BatchID,DossierCode,AantalStuks)
+	#dim ResultSet As TECH.ResultSet = ..GeefSequentieDataMetDossierCode(BatchID, DossierCode, AantalStuks)
 	#dim SequentieItemIDs As %ListOfDataTypes = ResultSet.GeefLijstVanIDs()
+	
 	Do ResultSet.Close()
+	
 	Quit SequentieItemIDs
 ]]></Implementation>
 </Method>
 
+<Method name="GeefSequentieItem">
+<FormalSpec>ItemID:TECH.String</FormalSpec>
+<ReturnType>DS.PPS.TBX.Queue</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DS.PPS.TBX.Queue).OpenId(ItemID)
+]]></Implementation>
+</Method>
+
 <Method name="GeefSequentieDataMetDossierCode">
 <FormalSpec>BatchID:%String,DossierCode:%String,AantalStuks:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>TECH.ResultSet</ReturnType>
 <Implementation><![CDATA[
 	#dim Query As %String = "SELECT PSI.ID  FROM APPS_Halux_common.ProductieSequentieItem As PSI  JOIN Prod.Product As P  ON PSI.ProductID=P.ID  WHERE (PSI.BatchID=?) AND (P.DossierCode = ?) AND (PSI.DeelAantal <= ?)"
-	#dim ResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetDynamicResultSet(Query,$LB(BatchID,DossierCode,AantalStuks))
-	quit ResultSet
+	#dim ResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetDynamicResultSet(Query, $ListBuild(BatchID, DossierCode, AantalStuks))
+	
+	Quit ResultSet
 ]]></Implementation>
 </Method>
-
-<Method name="GeefSequentieItem">
-<FormalSpec>ItemID:TECH.String</FormalSpec>
-<ReturnType>DS.PPS.TBX.Queue</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DS.PPS.TBX.Queue).OpenId(ItemID)
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: APPS/Halux/common/ProductieSequentieItem.cls.xml
===================================================================
diff -u -r31988 -r31991
--- APPS/Halux/common/ProductieSequentieItem.cls.xml	(.../ProductieSequentieItem.cls.xml)	(revision 31988)
+++ APPS/Halux/common/ProductieSequentieItem.cls.xml	(.../ProductieSequentieItem.cls.xml)	(revision 31991)
@@ -153,6 +153,7 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..TijdstipVanCreatie = ##class(TECH.DateTime).CurrentTimeStamp()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -174,10 +175,11 @@
 uitgerekende halffabitemsboom.</Description>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</ReturnType>
 <Implementation><![CDATA[
-	If '$IsObject(..HalffabItemsBoom) {
+	If $$$Not($IsObject(..HalffabItemsBoom)) {
 		; ProductieSequentieItemService wordt hier genewed omdat r%ProductieSequentieItemService niet kan gebruikt worden een property in de %OnNew of %OnOpen lukt ook niet
-		set ..HalffabItemsBoom = ##class(APPS.Halux.common.impl.ProductieSequentieItemService).%New().GeefHalffabItemsBoom($this)
+		Set ..HalffabItemsBoom = ##class(APPS.Halux.common.impl.ProductieSequentieItemService).%New().GeefHalffabItemsBoom($this)
 	}
+	
 	Quit ..HalffabItemsBoom
 ]]></Implementation>
 </Method>
@@ -191,10 +193,11 @@
 <Method name="GeefIngegevenKenmerken">
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
 <Implementation><![CDATA[
-	if '$IsObject(..IngegevenKenmerken) {
+	if $$$Not($IsObject(..IngegevenKenmerken)) {
 		; ProductieSequentieItemService wordt hier genewed omdat r%ProductieSequentieItemService niet kan gebruikt worden een property in de %OnNew of %OnOpen lukt ook niet
-		set ..IngegevenKenmerken = ##class(APPS.Halux.common.impl.ProductieSequentieItemService).%New().GeefIngegevenKenmerken($this)
+		Set ..IngegevenKenmerken = ##class(APPS.Halux.common.impl.ProductieSequentieItemService).%New().GeefIngegevenKenmerken($this)
 	}
+	
 	Quit ..IngegevenKenmerken
 ]]></Implementation>
 </Method>
@@ -208,21 +211,24 @@
 <Method name="GeefBerekeningSpecificatie">
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie</ReturnType>
 <Implementation><![CDATA[
-	If '$IsObject(..BerekeningSpecificatie) {
-		Set ..BerekeningSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(..TotaalAantal,..PartijID,##class(DOM.common.VanHoeckePersonality).Instance())
+	If $$$Not($IsObject(..BerekeningSpecificatie)) {
+		Set ..BerekeningSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(..TotaalAantal, ..PartijID, ##class(DOM.common.VanHoeckePersonality).Instance())
 	}
+	
 	Quit ..BerekeningSpecificatie
 ]]></Implementation>
 </Method>
 
 <Method name="GeefHalffabContext">
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabContext</ReturnType>
 <Implementation><![CDATA[
-	If '$IsObject(..HalffabContext) {
+	If $$$Not($IsObject(..HalffabContext)) {
 		#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..GeefIngegevenKenmerken()
 		#dim BerekeningSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ..GeefBerekeningSpecificatie()
+		
 		Set ..HalffabContext = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(IngegevenKenmerken.GeefFamilie(), IngegevenKenmerken.GeefVariant(), BerekeningSpecificatie)
 	}
+	
 	Quit ..HalffabContext
 ]]></Implementation>
 </Method>
@@ -231,6 +237,7 @@
 <ReturnType>APPS.Halux.common.enu.ProductieLijn</ReturnType>
 <Implementation><![CDATA[
 	#dim Batch As APPS.Halux.common.Batch = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(..BatchID)
+	
 	Quit Batch.GeefLijn()
 ]]></Implementation>
 </Method>
Index: APPS/Halux/common/ProductieSequentie.cls.xml
===================================================================
diff -u -r31989 -r31991
--- APPS/Halux/common/ProductieSequentie.cls.xml	(.../ProductieSequentie.cls.xml)	(revision 31989)
+++ APPS/Halux/common/ProductieSequentie.cls.xml	(.../ProductieSequentie.cls.xml)	(revision 31991)
@@ -52,6 +52,7 @@
 	Set ..BatchID = Batch.GeefID()
 	Set ..SequentieItems = ##class(%ListOfObjects).%New()
 	Set ..Categorie = Batch.GeefCategorie()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -64,6 +65,91 @@
 ]]></Implementation>
 </Method>
 
+<Method name="WisVoorBatchID">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BatchID:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim Query As %String = "DELETE FROM APPS_Halux_common.ProductieSequentie WHERE BatchID = ?"
+	Do ExecDynQuery^vhLib.Query(Query, $ListBuild(BatchID))
+	
+ 	// TODOPA items deleten via cascading delete
+ 	Set Query = "DELETE FROM APPS_Halux_common.ProductieSequentieItem WHERE BatchID = ?"
+ 	Do ExecDynQuery^vhLib.Query(Query, $ListBuild(BatchID))
+ 	
+ 	Do ##class(APPS.Halux.common.event.BatchEventRaiser).RaiseBatchSequentieVerwijderdEvent(BatchID)
+]]></Implementation>
+</Method>
+
+<Method name="GeefVHossVolgendSlotID">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Item:APPS.Halux.common.VHOSSProductieSequentieItem</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefVHossSlotID(Item, ">")
+]]></Implementation>
+</Method>
+
+<Method name="GeefVHossVorigSlotID">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Item:APPS.Halux.common.VHOSSProductieSequentieItem</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefVHossSlotID(Item, "<")
+]]></Implementation>
+</Method>
+
+<Method name="GeefVHossSlotID">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Item:APPS.Halux.common.VHOSSProductieSequentieItem,Comparator:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim SortOrder As %String = "ASC"	
+	Set:(Comparator = "<") SortOrder = "DESC"
+	#dim VolgendeSlotID As %String = ""
+	#dim Query As %Strin = ""
+	
+	Set Query = "SELECT TOP 1 KlantSequentieNummer, SlotID FROM APPS_Halux_common.VHOSSProductieSequentieItem "_
+				"WHERE BatchID = ? AND VHOSSID = ? AND ZijVlakID = ? "_
+				"AND KlantSequentieNummer "_Comparator_" ? "_
+				"ORDER BY KlantSequentieNummer "_SortOrder
+				
+	#dim ResultSet As TECH.ResultSet = $$ExecDynQuery^vhLib.Query(Query, $ListBuild(Item.BatchID, Item.VHOSSID, Item.ZijVlakID, Item.KlantSequentieNummer))
+	
+	If (ResultSet.Next()) {
+		Set VolgendeSlotID = ResultSet.Data("SlotID")
+	}
+	
+	Quit VolgendeSlotID
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderToelevering">
+<Description>
+</Description>
+<FormalSpec>ToeleveringID:%String</FormalSpec>
+<ReturnType/>
+<Implementation><![CDATA[	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Nog niet geïmplementeerd."))
+]]></Implementation>
+</Method>
+
+<Method name="Save">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	#dim ItemIterator As TECH.Iterator = ..GeefItemIterator()
+	
+	While (ItemIterator.HasNext()) {
+		#dim Item As APPS.Halux.common.ProductieSequentieItem = ItemIterator.Next()
+		Do ##class(BL.Legacy.HaluxProductieOpvolging).MARKPR(##class(BL.Legacy.HaluxProductieOpvolging).FABKEYT(Item.ToeleveringID, Item.ToeleveringLijnID), "B", Item.TotaalAantal, Item.TotaalAantal, Item.TijdstipVanCreatie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefBatch">
+<ReturnType>APPS.Halux.common.Batch</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(..BatchID)
+]]></Implementation>
+</Method>
+
 <Method name="GeefItemIterator">
 <Description>
 </Description>
@@ -75,7 +161,7 @@
 
 <Method name="GeefProductieSequentieItems">
 <ReturnType>APPS.Halux.common.ProductieSequentieItemList</ReturnType>
-<Implementation><![CDATA[	quit ..SequentieItems
+<Implementation><![CDATA[	Quit ..SequentieItems
 ]]></Implementation>
 </Method>
 
@@ -106,31 +192,37 @@
 	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
 	#dim Sort As MultiDimensional
 	#dim SequenceNr As %Integer = 0
-	
 	#dim Batch As APPS.Halux.common.Batch = ..GeefBatch()
 	#dim ToeleveringIterator As TECH.Iterator = Batch.GeefToeleveringIterator()
-	While (ToeleveringIterator.HasNext())
-	{
+	
+	While (ToeleveringIterator.HasNext()) {
 		#dim Toelevering As DOM.AKP.Toelevering = ToeleveringIterator.Next()
+		
 		Kill Sort
+		
 		#dim ProductLijnIterator As TECH.Iterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product())
-		While (ProductLijnIterator.HasNext())
-		{
+		
+		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())
-			Set ProductieSequentieItemIt = ##class(TECH.ListIterator).%New(..MaakProductieSequentieItems(Toelevering,ProductLijn))
-			While ProductieSequentieItemIt.HasNext(){
-				#dim Item As APPS.Halux.common.ProductieSequentieItem = ProductieSequentieItemIt.Next()
+			#dim ProductieSequentieItemIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..MaakProductieSequentieItems(Toelevering, ProductLijn))
+			
+			While (ProductieSequentieItemIterator.HasNext()) {
+				#dim Item As APPS.Halux.common.ProductieSequentieItem = ProductieSequentieItemIterator.Next()
 				#dim SortKey As %String = ..GeefSorteerSleutel(MaatwerkProduct, Item)
+				
 				Set Sort(SortKey) = Item
 			}
 		}
+		
 		#dim ItemIterator As TECH.Iterator = ##class(TECH.ArrayMultiDimIterator).%New(.Sort)
+		
 		While (ItemIterator.HasNext()) {
 			Set Item = ItemIterator.Next()
 			Set Item.SequentieNummer = $I(SequenceNr)
 			Set Item.GroepSequentieNummer = Item.SequentieNummer
+			
 			Do ..SequentieItems.Insert(Item)
 		}
 	}
@@ -142,13 +234,11 @@
 	Do ..Init()
 	
 	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
-	
-	Set ToeleveringIDs = ##class(%ListOfDataTypes).%New()
-	
+	#dim ToeleveringIDs As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
 	#dim Batch As APPS.Halux.common.Batch = ..GeefBatch()
 	#dim ToeleveringIterator As TECH.Iterator = Batch.GeefToeleveringIterator()
-	While (ToeleveringIterator.HasNext())
-	{
+	
+	While (ToeleveringIterator.HasNext()) {
 		Do ToeleveringIDs.Insert(ToeleveringIterator.Next().GeefID())
 	}
 	
@@ -158,44 +248,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefVHossVolgendSlotID">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>Item:APPS.Halux.common.VHOSSProductieSequentieItem</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..GeefVHossSlotID(Item,">")
-]]></Implementation>
-</Method>
-
-<Method name="GeefVHossVorigSlotID">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>Item:APPS.Halux.common.VHOSSProductieSequentieItem</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..GeefVHossSlotID(Item,"<")
-]]></Implementation>
-</Method>
-
-<Method name="GeefVHossSlotID">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>Item:APPS.Halux.common.VHOSSProductieSequentieItem,Comparator:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim SortOrder As %String = "ASC"	
-	Set:(Comparator="<") SortOrder = "DESC"
-	#dim VolgendeSlotID As %String = ""
-	#dim Query As %Strin = ""
-	Set Query = "SELECT TOP 1 KlantSequentieNummer, SlotID FROM APPS_Halux_common.VHOSSProductieSequentieItem "_
-				"WHERE BatchID = ? AND VHOSSID = ? AND ZijVlakID = ? "_
-				"AND KlantSequentieNummer "_Comparator_" ? "_
-				"ORDER BY KlantSequentieNummer "_SortOrder
-	#dim ResultSet As TECH.ResultSet = $$ExecDynQuery^vhLib.Query(Query,$LB(Item.BatchID,Item.VHOSSID,Item.ZijVlakID,Item.KlantSequentieNummer))
-	If ResultSet.Next(){
-		Set VolgendeSlotID = ResultSet.Data("SlotID")
-	}
-	Quit VolgendeSlotID
-]]></Implementation>
-</Method>
-
 <Method name="Init">
 <Private>1</Private>
 <Implementation><![CDATA[
@@ -215,42 +267,48 @@
 	#dim lbTOENrs As %List = ##class(TECH.ListUtils).ListToListbuild(ToeleveringIDs)
 	#dim arFabKeys As %String
 	#dim lbIndex As %List
+	
 	Kill arFabKeys
+	
 	#dim VHOSSOrder As %Integer = -1 /// reverse order voor de kasten dit om het laden van de vrachtwagen in de juiste sequentie te brengen
-	#dim blOptiVHoss As BL.PPS.TBX.OptiVHoss =##class(BL.PPS.TBX.OptiVHoss).Instantiate()		
-	#dim IsViaIngegevenKenmerken As %Boolean = 1
+	#dim blOptiVHoss As BL.PPS.TBX.OptiVHoss = ##class(BL.PPS.TBX.OptiVHoss).Instantiate()		
+	#dim IsViaIngegevenKenmerken As %Boolean = $$$True
+	
 	Do blOptiVHoss.Init(lbTOENrs,,IsViaIngegevenKenmerken)
 	Do blOptiVHoss.OptimizeStorage() 	
 	Do blOptiVHoss.SubOptimizeProduction(VHOSSOrder)
 	Do blOptiVHoss.InitLoop(.lbIndex)
 	Do blOptiVHoss.NextLoop(.lbIndex)
-	While $LG(lbIndex,1) {
-		#dim PRNr,FabKey,VHossNr,Zijkant,SlotLabel,KlantSort,ProductieSort As %String = ""
-		#dim DeelAantal,TotaalAantal As %Integer
+	
+	While ($ListGet(lbIndex, 1)) {
+		#dim PRNr, FabKey, VHossNr, Zijkant, SlotLabel, KlantSort, ProductieSort As %String = ""
+		#dim DeelAantal, TotaalAantal As %Integer
+		
 		Do blOptiVHoss.GetLoop(lbIndex, .PRNr, .FabKey, .VHossNr, .Zijkant, .SlotLabel, .KlantSort, .ProductieSort)
-		Set Item = ##class(APPS.Halux.common.VHOSSProductieSequentieItem).%New()
+		
+		#dim Item As APPS.Halux.common.VHOSSProductieSequentieItem= ##class(APPS.Halux.common.VHOSSProductieSequentieItem).%New()
 		Set Item.ProductID = PRNr
-		Set Item.ToeleveringID = $P(FabKey,";",1)
-		Set Item.ToeleveringLijnID = $P(FabKey,";",2)
+		Set Item.ToeleveringID = $Piece(FabKey, ";", 1)
+		Set Item.ToeleveringLijnID = $Piece(FabKey, ";", 2)
 		Set Item.BatchID = ..BatchID
 		
 		#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(Item.ToeleveringID)
 		Set Item.PartijID = Toelevering.GeefKlantID()
-		Do ..GeefAantalInToelevering(FabKey,.TotaalAantal,.DeelAantal,.arFabKeys)
+		Do ..GeefAantalInToelevering(FabKey, .TotaalAantal, .DeelAantal, .arFabKeys)
 		Set Item.DeelAantal = DeelAantal
 		Set Item.TotaalAantal = TotaalAantal
-		
 		Set Item.SequentieNummer = ProductieSort
 		Set Item.GroepSequentieNummer = Item.SequentieNummer		
 		Set Item.KlantSequentieNummer = KlantSort
-		
 		Set Item.SlotID = SlotLabel
 		Set Item.VHOSSID = VHossNr
 		Set Item.ZijVlakID = Zijkant
+		
 		Do ..SequentieItems.Insert(Item)
 		
 		Do blOptiVHoss.NextLoop(.lbIndex)
 	}
+	
 	Quit
 ]]></Implementation>
 </Method>
@@ -259,19 +317,20 @@
 <FormalSpec><![CDATA[FabKey:%String,&TotaalAantal:%Integer,&DeelAantal:%Integer,&arFabKeys:%String]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	If $D(arFabKeys(FabKey)) { Do ; volgende
-	 	Set TotaalAantal = $LI(arFabKeys(FabKey))
-	 	Set DeelAantal = $LI(arFabKeys(FabKey),2)+1
-	}Else{
-		#dim ToeleveringID As %String =$P(FabKey,";",1)
-		#dim ToeleveringLijnID As %String =$P(FabKey,";",2)
-	
+	If $Data(arFabKeys(FabKey)) { Do ; volgende
+	 	Set TotaalAantal = $List(arFabKeys(FabKey))
+	 	Set DeelAantal = $List(arFabKeys(FabKey), 2) + 1
+	} Else {
+		#dim ToeleveringID As %String =$P(FabKey, ";", 1)
+		#dim ToeleveringLijnID As %String =$P(FabKey, ";", 2)
 		#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(ToeleveringID)
 		#dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = Toelevering.GeefToeleveringLijn(ToeleveringLijnID)
+		
 		Set TotaalAantal = ToeleveringLijn.GeefAantal()
 		Set DeelAantal = 1
 	}
-	Set arFabKeys(FabKey)=$LB(TotaalAantal,DeelAantal)
+	
+	Set arFabKeys(FabKey) = $ListBuild(TotaalAantal, DeelAantal)
 ]]></Implementation>
 </Method>
 
@@ -281,16 +340,16 @@
 <ReturnType>%ListOfObjects</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="APPS.Halux.common.ProductieSequentieItem"</ReturnTypeParams>
 <Implementation><![CDATA[
-	Set ProductieSequentieItems = ##class(%ListOfObjects).%New()
+	#dim ProductieSequentieItems As %ListOfObjects = ##class(%ListOfObjects).%New()
 	#dim ProductID As DOM.common.ProductID = ProductLijn.GeefProductID()
-	If (..IsOpTeNemenInSequentie(ProductID))
-	{
+	
+	If (..IsOpTeNemenInSequentie(ProductID)) {
 		#dim i As %Integer
-		For i=1:1:ProductLijn.GeefAantal()
-		{
+		For i=1:1:ProductLijn.GeefAantal() {
 			Do ProductieSequentieItems.Insert(..MaakProductieSequentieItem(ProductID, Toelevering, ProductLijn, i))
 		}
 	}
+	
 	Quit ProductieSequentieItems
 ]]></Implementation>
 </Method>
@@ -302,7 +361,8 @@
 <Implementation><![CDATA[
 	Do ..FrequentieTabel.Verhoog(Toelevering.GeefID())
 	
-	Set Item = ##class(APPS.Halux.common.ProductieSequentieItem).%New()	
+	#dim Item As APPS.Halux.common.ProductieSequentieItem = ##class(APPS.Halux.common.ProductieSequentieItem).%New()
+		
 	Set Item.ProductID = ProductID
 	Set Item.ToeleveringID = Toelevering.GeefID()
 	Set Item.ToeleveringLijnID = ProductLijn.GeefID()
@@ -311,51 +371,11 @@
 	Set Item.TotaalAantal = ProductLijn.GeefAantal()
 	Set Item.BatchID = ..BatchID
 	Set Item.PartijID = Toelevering.GeefKlantID()
+	
 	Quit Item
 ]]></Implementation>
 </Method>
 
-<Method name="VerwijderToelevering">
-<Description>
-</Description>
-<FormalSpec>ToeleveringID:%String</FormalSpec>
-<ReturnType/>
-<Implementation><![CDATA[	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Nog niet geïmplementeerd."))
-]]></Implementation>
-</Method>
-
-<Method name="WisVoorBatchID">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>BatchID:%String</FormalSpec>
-<Implementation><![CDATA[
-	#dim Query As %String = "DELETE FROM APPS_Halux_common.ProductieSequentie WHERE BatchID = ?"
-	DO ExecDynQuery^vhLib.Query(Query,$LB(BatchID))
-	
- 	// TODOPA items deleten via cascading delete
- 	Set Query = "DELETE FROM APPS_Halux_common.ProductieSequentieItem WHERE BatchID = ?"
- 	DO ExecDynQuery^vhLib.Query(Query,$LB(BatchID))
- 	
- 	do ##class(APPS.Halux.common.event.BatchEventRaiser).RaiseBatchSequentieVerwijderdEvent(BatchID)
-]]></Implementation>
-</Method>
-
-<Method name="Save">
-<Implementation><![CDATA[
-	Do ##super()
-	#dim ItemIterator As TECH.Iterator = ..GeefItemIterator()
-	While (ItemIterator.HasNext()) {
-		#dim Item As APPS.Halux.common.ProductieSequentieItem = ItemIterator.Next()
-		Do ##class(BL.Legacy.HaluxProductieOpvolging).MARKPR(##class(BL.Legacy.HaluxProductieOpvolging).FABKEYT(Item.ToeleveringID,Item.ToeleveringLijnID),"B",Item.TotaalAantal,Item.TotaalAantal,Item.TijdstipVanCreatie)
-	}
-]]></Implementation>
-</Method>
-
-<Method name="GeefBatch">
-<ReturnType>APPS.Halux.common.Batch</ReturnType>
-<Implementation><![CDATA[	Quit ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(..BatchID)
-]]></Implementation>
-</Method>
-
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^APPS.Halux8081.ProductieSeqFA5D</DataLocation>
Index: APPS/Halux/common/impl/ProductieSequentieGroepeerder.cls.xml
===================================================================
diff -u -r31988 -r31991
--- APPS/Halux/common/impl/ProductieSequentieGroepeerder.cls.xml	(.../ProductieSequentieGroepeerder.cls.xml)	(revision 31988)
+++ APPS/Halux/common/impl/ProductieSequentieGroepeerder.cls.xml	(.../ProductieSequentieGroepeerder.cls.xml)	(revision 31991)
@@ -8,179 +8,215 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProductieSequentieRepository">
+<Type>APPS.Halux.common.ProductieSequentieRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProductieSequentieRepository = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefProductieSequentieRepository()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeenGroepering">
 <FormalSpec>BatchID:%String</FormalSpec>
 <ReturnType>APPS.Halux.common.impl.ProductieSequentieGroepering</ReturnType>
 <Implementation><![CDATA[
-	set ..Groepering = ##class(APPS.Halux.common.impl.ProductieSequentieGroepering).%New()
-	#dim ProductieSequentieRepository As APPS.Halux.common.ProductieSequentieRepository = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefProductieSequentieRepository()
-	#dim ResultSet As TECH.ResultSet = ProductieSequentieRepository.GeefSequentieDataVolgensSequenceVoorBatch(BatchID)
-		
+	Set ..Groepering = ##class(APPS.Halux.common.impl.ProductieSequentieGroepering).%New()
+	
+	#dim ResultSet As TECH.ResultSet = ..ProductieSequentieRepository.GeefSequentieDataVolgensSequenceVoorBatch(BatchID)	
 	#dim GroeperingID As %String = 1 
-	while ResultSet.Next() {
+	
+	While (ResultSet.Next()) {
 		#dim SequentieInfo AS APPS.Halux.common.dto.ProductieSequentie = ..GeefSequentieInfo(ResultSet)
-		do ..Groepering.VoegToe(GroeperingID ,SequentieInfo)
+		Do ..Groepering.VoegToe(GroeperingID, SequentieInfo)
 	}
-	quit ..Groepering
+	
+	Quit ..Groepering
 ]]></Implementation>
 </Method>
 
 <Method name="GeenGroeperingProductenSamentrekken">
 <FormalSpec>BatchID:%String</FormalSpec>
 <ReturnType>APPS.Halux.common.impl.ProductieSequentieGroepering</ReturnType>
 <Implementation><![CDATA[
-	set ..Groepering = ##class(APPS.Halux.common.impl.ProductieSequentieGroepering).%New()
-	#dim ProductieSequentieRepository As APPS.Halux.common.ProductieSequentieRepository = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefProductieSequentieRepository()
-	#dim ResultSet As TECH.ResultSet = ProductieSequentieRepository.GeefSequentieDataVolgensSequenceVoorBatch(BatchID)
-	
-	#dim SequentieInfo AS APPS.Halux.common.dto.ProductieSequentie = ""
-	#dim ProductID As %String = ""
+	Set ..Groepering = ##class(APPS.Halux.common.impl.ProductieSequentieGroepering).%New()
+
 	#dim TotaalSequentieInfo As APPS.Halux.common.dto.ProductieSequentie = ""
-	while ResultSet.Next() {
+	#dim ResultSet As TECH.ResultSet = ..ProductieSequentieRepository.GeefSequentieDataVolgensSequenceVoorBatch(BatchID)
+
+	While (ResultSet.Next()) {
 		#dim DeelAantal As %Integer = ResultSet.GetDataByName("DeelAantal")
-		continue:(DeelAantal'=1)
-		Set SequentieInfo = ..GeefSequentieInfo(ResultSet)
-		set SequentieInfo.DeelAantal = ""
-		if ProductID '= SequentieInfo.ProductID {
-			Do:(ProductID'="") ..Groepering.VoegToe(1,TotaalSequentieInfo)
+		
+		Continue:$$$Not(DeelAantal = 1)
+		
+		#dim ProductID As %String = ""
+		#dim SequentieInfo AS APPS.Halux.common.dto.ProductieSequentie = ..GeefSequentieInfo(ResultSet)
+		Set SequentieInfo.DeelAantal = ""
+		
+		If $$$Not(ProductID = SequentieInfo.ProductID) {
+			Do:$$$Not(ProductID = "") ..Groepering.VoegToe(1, TotaalSequentieInfo)
 			Set ProductID = SequentieInfo.ProductID
 			Set TotaalSequentieInfo = SequentieInfo
 		} Else {
 			Set TotaalSequentieInfo.TotaalAantal = TotaalSequentieInfo.TotaalAantal + SequentieInfo.TotaalAantal
 		}
 	}
-	Do ..Groepering.VoegToe(1,TotaalSequentieInfo)
-	quit ..Groepering
+	
+	Do ..Groepering.VoegToe(1, TotaalSequentieInfo)
+	
+	Quit ..Groepering
 ]]></Implementation>
 </Method>
 
 <Method name="GroepeerPerToelevering">
 <FormalSpec>BatchID:%String</FormalSpec>
 <ReturnType>APPS.Halux.common.impl.ProductieSequentieGroepering</ReturnType>
 <Implementation><![CDATA[
-	set ..Groepering = ##class(APPS.Halux.common.impl.ProductieSequentieGroepering).%New()
-	#dim ProductieSequentieRepository As APPS.Halux.common.ProductieSequentieRepository = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefProductieSequentieRepository()
-	#dim ResultSet As TECH.ResultSet = ProductieSequentieRepository.GeefSequentieDataVolgensSequenceVoorBatch(BatchID)
+	Set ..Groepering = ##class(APPS.Halux.common.impl.ProductieSequentieGroepering).%New()
 	
-	Set FrequentieTabel = ##class(TECH.FrequentieTabel).%New()
+	#dim FrequentieTabel As TECH.FrequentieTabel = ##class(TECH.FrequentieTabel).%New()
 	#dim ToeleveringAPI As DOM.AKP.ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
+	#dim ResultSet As TECH.ResultSet = ..ProductieSequentieRepository.GeefSequentieDataVolgensSequenceVoorBatch(BatchID)
 	
-	while ResultSet.Next() {
-		#dim ToeleveringID As %String = ResultSet.GetDataByName("TOENr")				
-		If ToeleveringAPI.BestaatToelevering(ToeleveringID) {
+	While (ResultSet.Next()) {
+		#dim ToeleveringID As %String = ResultSet.GetDataByName("TOENr")
+						
+		If (ToeleveringAPI.BestaatToelevering(ToeleveringID)) {
 			#dim Toelevering As DOM.AKP.Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringID)
 			#dim ToeleveringLijnID As %String = ResultSet.GetDataByName("TLUNr")
 			Set ToeleveringLijnID = ..GeefCorrecteToeleveringLijnID(ToeleveringID, ToeleveringLijnID)
-			#dim FrequentieItemID As %String = ToeleveringID_";"_ToeleveringLijnID
-			If (ToeleveringLijnID '= ""){
+			
+			#dim FrequentieItemID As %String = ToeleveringID _ ";" _ ToeleveringLijnID
+			
+			If $$$Not(ToeleveringLijnID = ""){
 				#dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = Toelevering.GeefToeleveringLijn(ToeleveringLijnID)
-				If ( FrequentieTabel.GeefFrequentieVanItem(FrequentieItemID) <= ToeleveringLijn.GeefAantal()) {					
+				
+				If (FrequentieTabel.GeefFrequentieVanItem(FrequentieItemID) <= ToeleveringLijn.GeefAantal()) {					
 					Do FrequentieTabel.Verhoog(FrequentieItemID)
 					#dim SequentieInfo AS APPS.Halux.common.dto.ProductieSequentie = ..GeefSequentieInfo(ResultSet)
-					Do ..Groepering.VoegToe(ToeleveringID,SequentieInfo)
+					Do ..Groepering.VoegToe(ToeleveringID, SequentieInfo)
 				}
 			} Else {
-				do ##class(vhLib.Logger).%New("APPS.Halux.AansturingService").Warning("VoerUitAansturingActieVoorBatch_Resultaat","Batch '" _ BatchID _ "' bevat een niet ingevulde toeleveringlijnID!")
+				Do ##class(vhLib.Logger).%New("APPS.Halux.AansturingService").Warning("VoerUitAansturingActieVoorBatch_Resultaat", "Batch '" _ BatchID _ "' bevat een niet ingevulde toeleveringlijnID!")
 			}
 		} Else {
-			do ##class(vhLib.Logger).%New("APPS.Halux.AansturingService").Warning("VoerUitAansturingActieVoorBatch_Resultaat","Batch '" _ BatchID _ "' verwijst naar een onbestaande toelevering '" _ ToeleveringID _ "'!")
+			Do ##class(vhLib.Logger).%New("APPS.Halux.AansturingService").Warning("VoerUitAansturingActieVoorBatch_Resultaat", "Batch '" _ BatchID _ "' verwijst naar een onbestaande toelevering '" _ ToeleveringID _ "'!")
 		}		
 	}
-	quit ..Groepering
+	
+	Quit ..Groepering
 ]]></Implementation>
 </Method>
 
 <Method name="GroepeerPerToeleveringPerProduct">
 <FormalSpec>BatchID:%String</FormalSpec>
 <ReturnType>APPS.Halux.common.impl.ProductieSequentieGroepering</ReturnType>
 <Implementation><![CDATA[
-	set ..Groepering = ##class(APPS.Halux.common.impl.ProductieSequentieGroepering).%New()
-	#dim ProductieSequentieRepository As APPS.Halux.common.ProductieSequentieRepository = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefProductieSequentieRepository()
-	#dim ResultSet As TECH.ResultSet = ProductieSequentieRepository.GeefSequentieDataVolgensSequenceVoorBatch(BatchID)
+	Set ..Groepering = ##class(APPS.Halux.common.impl.ProductieSequentieGroepering).%New()
+	
+	#dim ResultSet As TECH.ResultSet = ..ProductieSequentieRepository.GeefSequentieDataVolgensSequenceVoorBatch(BatchID)
 
-	set Groepering = ##class(APPS.Halux.common.impl.ProductieSequentieGroepering).%New()
-
-	while ResultSet.Next() {
+	While (ResultSet.Next()) {
 		#dim ToeleveringID As %String = ResultSet.GetDataByName("TOENr")
 		#dim DeelAantal As %Integer = ResultSet.GetDataByName("DeelAantal")
-		continue:(DeelAantal'=1)
+		
+		Continue:$$$Not(DeelAantal = 1)
+		
 		#dim SequentieInfo AS APPS.Halux.common.dto.ProductieSequentie = ..GeefSequentieInfo(ResultSet)
-		set SequentieInfo.DeelAantal = ""
+		Set SequentieInfo.DeelAantal = ""
 		Do ..Groepering.VoegToe(ToeleveringID,SequentieInfo)
 	}
-	quit ..Groepering
+	
+	Quit ..Groepering
 ]]></Implementation>
 </Method>
 
 <Method name="GroepeerPerToeleveringPerProductPerKlant">
 <FormalSpec>BatchID:%String</FormalSpec>
 <ReturnType>APPS.Halux.common.impl.ProductieSequentieGroepering</ReturnType>
 <Implementation><![CDATA[
-	set ..Groepering = ##class(APPS.Halux.common.impl.ProductieSequentieGroepering).%New()
-	#dim ProductieSequentieRepository As APPS.Halux.common.ProductieSequentieRepository = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefProductieSequentieRepository()
-	#dim ResultSet As TECH.ResultSet = ProductieSequentieRepository.GeefSequentieDataVolgensSequenceVoorBatch(BatchID)
+	Set ..Groepering = ##class(APPS.Halux.common.impl.ProductieSequentieGroepering).%New()
 	
-	set Groepering = ##class(APPS.Halux.common.impl.ProductieSequentieGroepering).%New()
-	
+	#dim ResultSet As TECH.ResultSet = ..ProductieSequentieRepository.GeefSequentieDataVolgensSequenceVoorBatch(BatchID)
 	#dim GroeperingID As %Integer = 0
 	#dim ToeleveringID As %String = ""
 	#dim ProductID As %String = ""
 	#dim SequentieInfo AS APPS.Halux.common.dto.ProductieSequentie = ""
 	#dim TotaalSequentieInfo AS APPS.Halux.common.dto.ProductieSequentie = ""
-	while ResultSet.Next() {
+	
+	While (ResultSet.Next()) {
 		#dim DeelAantal As %Integer = ResultSet.GetDataByName("DeelAantal")
-		continue:(DeelAantal'=1)
+		
+		Continue:$$$Not(DeelAantal = 1)
+		
 		Set SequentieInfo = ..GeefSequentieInfo(ResultSet)
-		set SequentieInfo.DeelAantal = ""
-		If ( ToeleveringID = SequentieInfo.ToeleveringID ) && ( ProductID = SequentieInfo.ProductID) {
+		Set SequentieInfo.DeelAantal = ""
+		
+		If ((ToeleveringID = SequentieInfo.ToeleveringID ) && ( ProductID = SequentieInfo.ProductID)) {
 			Set TotaalSequentieInfo.TotaalAantal = TotaalSequentieInfo.TotaalAantal + SequentieInfo.TotaalAantal
-		} Else  {
-			Do:ToeleveringID'="" ..Groepering.VoegToe(GroeperingID,TotaalSequentieInfo)
+		} Else {
+			Do:$$$Not(ToeleveringID = "") ..Groepering.VoegToe(GroeperingID,TotaalSequentieInfo)
 			Set TotaalSequentieInfo = SequentieInfo
-			Set:(ToeleveringID'=SequentieInfo.ToeleveringID) GroeperingID = GroeperingID + 1
+			Set:$$$Not(ToeleveringID = SequentieInfo.ToeleveringID) GroeperingID = GroeperingID + 1
 			Set ProductID = SequentieInfo.ProductID
 			Set ToeleveringID = SequentieInfo.ToeleveringID
 		}
 	}
-	Do ..Groepering.VoegToe(GroeperingID,TotaalSequentieInfo)
-	quit ..Groepering
+	
+	Do ..Groepering.VoegToe(GroeperingID, TotaalSequentieInfo)
+	
+	Quit ..Groepering
 ]]></Implementation>
 </Method>
 
 <Method name="GroepeerPerProduct">
 <FormalSpec>BatchID:%String</FormalSpec>
 <ReturnType>APPS.Halux.common.impl.ProductieSequentieGroepering</ReturnType>
 <Implementation><![CDATA[
-	set ..Groepering = ##class(APPS.Halux.common.impl.ProductieSequentieGroepering).%New()
-	#dim ProductieSequentieRepository As APPS.Halux.common.ProductieSequentieRepository = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefProductieSequentieRepository()
-	#dim ResultSet As TECH.ResultSet = ProductieSequentieRepository.GeefSequentieDataVolgensSequenceVoorBatch(BatchID)
+	Set ..Groepering = ##class(APPS.Halux.common.impl.ProductieSequentieGroepering).%New()
 	
+	#dim ResultSet As TECH.ResultSet = ..ProductieSequentieRepository.GeefSequentieDataVolgensSequenceVoorBatch(BatchID)
 	#dim SequentieInfoArray As Array of APPS.Halux.common.dto.ProductieSequentie = ##class(%ArrayOfObjects).%New()
 	#dim ProductVolgorde As List of %String = ##class(%ListOfDataTypes).%New()
 	
 	#dim SequentieInfo AS APPS.Halux.common.dto.ProductieSequentie = ""
 	#dim ProductID As %String = ""
-	while ResultSet.Next() {
+	
+	While (ResultSet.Next()) {
 		#dim DeelAantal As %Integer = ResultSet.GetDataByName("DeelAantal")
-		continue:(DeelAantal'=1)
+		
+		Continue:$$$Not(DeelAantal = 1)
+		
 		Set SequentieInfo = ..GeefSequentieInfo(ResultSet)
-		set SequentieInfo.DeelAantal = ""
+		Set SequentieInfo.DeelAantal = ""
 		Set ProductID = SequentieInfo.ProductID
-		if 'SequentieInfoArray.IsDefined(ProductID) {
+		
+		If $$$Not(SequentieInfoArray.IsDefined(ProductID)) {
 			Do SequentieInfoArray.SetAt(SequentieInfo,ProductID)
 			Do ProductVolgorde.Insert(ProductID)
 		} Else {
 			#dim TotaalSequentieInfo As APPS.Halux.common.dto.ProductieSequentie =  SequentieInfoArray.GetAt(ProductID)
 			Set TotaalSequentieInfo.TotaalAantal = TotaalSequentieInfo.TotaalAantal + SequentieInfo.TotaalAantal
 		}
 	}
-	Set ProductVolgordeIt = ##class(TECH.ListIterator).%New(ProductVolgorde)
-	While ProductVolgordeIt.HasNext() {
-		Set ProductID = ProductVolgordeIt.Next()
+	
+	#dim ProductVolgordeIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(ProductVolgorde)
+	
+	While (ProductVolgordeIterator.HasNext()) {
+		Set ProductID = ProductVolgordeIterator.Next()
 		Set SequentieInfo = SequentieInfoArray.GetAt(ProductID)
-		Do ..Groepering.VoegToe(1,SequentieInfo)
+		Do ..Groepering.VoegToe(1, SequentieInfo)
 	}
-	quit ..Groepering
+	
+	Quit ..Groepering
 ]]></Implementation>
 </Method>
 
@@ -190,7 +226,8 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim ToeleveringID As %String = SequentieInfo.ToeleveringID
-	quit SequentieInfo.ProductID_"#"_ToeleveringID
+	
+	Quit SequentieInfo.ProductID _ "#" _ ToeleveringID
 ]]></Implementation>
 </Method>
 
@@ -199,16 +236,18 @@
 <Private>1</Private>
 <ReturnType>APPS.Halux.common.dto.ProductieSequentie</ReturnType>
 <Implementation><![CDATA[
-	set SequentieInfo = ##class(APPS.Halux.common.dto.ProductieSequentie).%New()
-	set SequentieInfo.TotaalAantal = ResultSet.GetDataByName("TotaalAantal")
-	set SequentieInfo.ProductID = ResultSet.GetDataByName("Product")
-	set SequentieInfo.DeelAantal = ResultSet.GetDataByName("DeelAantal")
-	set SequentieInfo.SequenceNr = ResultSet.GetDataByName("Sequence")
-	set SequentieInfo.QueueID = ResultSet.GetDataByName("ID")
-	set SequentieInfo.ToeleveringID = ResultSet.GetDataByName("TOENr")
-	set SequentieInfo.ToeleveringLijnID = ResultSet.GetDataByName("TLUNr")
-	set SequentieInfo.ToeleveringSequentieNummer = ResultSet.GetDataByName("ToeleveringSequentieNummer")
-	quit SequentieInfo
+	#dim SequentieInfo As APPS.Halux.common.dto.ProductieSequentie = ##class(APPS.Halux.common.dto.ProductieSequentie).%New()
+	
+	Set SequentieInfo.TotaalAantal = ResultSet.GetDataByName("TotaalAantal")
+	Set SequentieInfo.ProductID = ResultSet.GetDataByName("Product")
+	Set SequentieInfo.DeelAantal = ResultSet.GetDataByName("DeelAantal")
+	Set SequentieInfo.SequenceNr = ResultSet.GetDataByName("Sequence")
+	Set SequentieInfo.QueueID = ResultSet.GetDataByName("ID")
+	Set SequentieInfo.ToeleveringID = ResultSet.GetDataByName("TOENr")
+	Set SequentieInfo.ToeleveringLijnID = ResultSet.GetDataByName("TLUNr")
+	Set SequentieInfo.ToeleveringSequentieNummer = ResultSet.GetDataByName("ToeleveringSequentieNummer")
+	
+	Quit SequentieInfo
 ]]></Implementation>
 </Method>
 
@@ -218,16 +257,19 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim CorrecteToeleveringLijnID As %String = ""
+	
 	If $Data(^TO("IU",ToeleveringID,ToeleveringLijnID)) {
 		Set CorrecteToeleveringLijnID = ToeleveringLijnID	
 	} Else {
 		#dim MogelijksCorrecteToeleveringLijnID As %String = $O(^TO("IU",ToeleveringID,ToeleveringLijnID))
 		#dim OrinigeleEersteDeel As %String = $E(ToeleveringLijnID,1,($Length(ToeleveringLijnID)-2))
 		#dim MogelijksCorrecteEersteDeel As %String = $E(MogelijksCorrecteToeleveringLijnID,1,($Length(MogelijksCorrecteToeleveringLijnID)-2))
-		If OrinigeleEersteDeel = MogelijksCorrecteEersteDeel {
+		
+		If (OrinigeleEersteDeel = MogelijksCorrecteEersteDeel) {
 			Set CorrecteToeleveringLijnID = MogelijksCorrecteToeleveringLijnID	
 		}
 	}
+	
 	Quit CorrecteToeleveringLijnID
 ]]></Implementation>
 </Method>
Index: APPS/Halux/PPS/Activiteit/ProductieSequentieAwareActiviteit.cls.xml
===================================================================
diff -u -r30538 -r31991
--- APPS/Halux/PPS/Activiteit/ProductieSequentieAwareActiviteit.cls.xml	(.../ProductieSequentieAwareActiviteit.cls.xml)	(revision 30538)
+++ APPS/Halux/PPS/Activiteit/ProductieSequentieAwareActiviteit.cls.xml	(.../ProductieSequentieAwareActiviteit.cls.xml)	(revision 31991)
@@ -348,6 +348,7 @@
 <Implementation><![CDATA[
 	set Input = ##class(APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput).%New($this,ProductieSequentieItem,GroepVerwerkingID)
 	set Input.IsRework = ..IsRework
+
 	#dim WerklijstItems As APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItemList = ..WerklijstItemsMaker.MaakWerklijstItems(Input)
 	quit WerklijstItems
 ]]></Implementation>