Index: APPS/Halux/PPS/Document/impl/common/DataVoorFreesMachine.cls.xml
===================================================================
diff -u -r73896 -r73936
--- APPS/Halux/PPS/Document/impl/common/DataVoorFreesMachine.cls.xml	(.../DataVoorFreesMachine.cls.xml)	(revision 73896)
+++ APPS/Halux/PPS/Document/impl/common/DataVoorFreesMachine.cls.xml	(.../DataVoorFreesMachine.cls.xml)	(revision 73936)
@@ -13,32 +13,6 @@
 <Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
 </Method>
-
-<UDLText name="T">
-<Content><![CDATA[
-/*
-Method VerwerkUitvoeringInfoLijst(Lijst As APPS.Halux.PPS.dto.UitvoeringInfoLijst, ActiviteitParameters As APPS.Halux.PPS.Activiteit.ActiviteitParameters, ActieParameters As %ListOfDataTypes = "", IsTriggerResetBatch As %Boolean = 0) As APPS.Halux.PPS.dto.UitvoeringResultaat
-{
-	#dim UitvoeringStatus As APPS.Halux.PPS.enu.UitvoeringStatus = ##class(APPS.Halux.PPS.enu.UitvoeringStatus).InUitvoering()
-	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo = Lijst.GetAt(1)
-	#dim MaximumAantalLadesProductieOrder As %Integer = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MaximumAantalLadesProductieOrder")
-	#dim AantalLadesInLijst As %Integer = Lijst.Size
-	
-	
-	
-	If $$$Not(UitvoeringStatus = ##class(APPS.Halux.PPS.enu.UitvoeringStatus).Fout()) {
-		#dim SuffixId As %String = ""
-		#dim BatchData As %ListOfObjects = ..GenereerBatchDataVoorUitvoeringInfoLijst(Lijst, SuffixId, 1, FilterToeleveringId)
-		Do ..ExporteerDataNaarXmlDocument(BatchData)
-		
-		Set UitvoeringStatus = ##class(APPS.Halux.PPS.enu.UitvoeringStatus).Succes()
-	}
-	
-	Quit UitvoeringStatus
-}
-*/
-]]></Content>
-</UDLText>
 </Class>
 
 
Index: APPS/Halux/PPS/Activiteit/impl/MVX/DataVoorFreesMachine.cls.xml
===================================================================
diff -u -r73935 -r73936
--- APPS/Halux/PPS/Activiteit/impl/MVX/DataVoorFreesMachine.cls.xml	(.../DataVoorFreesMachine.cls.xml)	(revision 73935)
+++ APPS/Halux/PPS/Activiteit/impl/MVX/DataVoorFreesMachine.cls.xml	(.../DataVoorFreesMachine.cls.xml)	(revision 73936)
@@ -40,7 +40,7 @@
 </Method>
 
 <Method name="VerwerkGroepSequentieItem">
-<FormalSpec>Item:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
+<FormalSpec>Item:APPS.Halux.common.ProductieSequentieItem,GroepVerwerkingID:%String,Heropvraging:%Boolean=0</FormalSpec>
 <Implementation><![CDATA[
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken = Item.GeefIngegevenKenmerken()
 	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Item.GeefHalffabItemsBoom()
@@ -55,6 +55,10 @@
 	#dim IsLadeMetUitsparing As %Boolean = (IngegevenKenmerkenTypeAPI.IsSpoelbaklade(IngegevenKenmerken) || IngegevenKenmerkenTypeAPI.IsSifonlade(IngegevenKenmerken))
 	
 	If (IsLadeMetUitsparing && BevatBodem) {
+		If $$$Not(Heropvraging) {
+			#dim WerklijstItem As APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem = ..MaakDefaultWerklijstItemVoorSequentieItem(Item, ..#InformatieID)
+			Do WerklijstItem.Save()
+		}
 		#dim BodemItem As DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Bodem())	
 		Do ..GenerateFile(Item.BatchID, ProductId, SequenceNr, DossierCode, IngegevenKenmerken, BodemItem)
 	}
Index: APPS/Halux/PPS/Document/impl/MVX/DataVoorFreesMachine.cls.xml
===================================================================
diff -u -r73896 -r73936
--- APPS/Halux/PPS/Document/impl/MVX/DataVoorFreesMachine.cls.xml	(.../DataVoorFreesMachine.cls.xml)	(revision 73896)
+++ APPS/Halux/PPS/Document/impl/MVX/DataVoorFreesMachine.cls.xml	(.../DataVoorFreesMachine.cls.xml)	(revision 73936)
@@ -2,6 +2,37 @@
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.Document.impl.MVX.DataVoorFreesMachine">
 <Super>APPS.Halux.PPS.Document.impl.common.DataVoorFreesMachine</Super>
+
+<Method name="VerwerkUitvoeringInfoLijst">
+<FormalSpec>Lijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst,ActiviteitParameters:APPS.Halux.PPS.Activiteit.ActiviteitParameters,ActieParameters:%ListOfDataTypes="",IsTriggerResetBatch:%Boolean=0</FormalSpec>
+<ReturnType>APPS.Halux.PPS.dto.UitvoeringResultaat</ReturnType>
+<Implementation><![CDATA[
+	#dim Actie As APPS.Halux.PPS.Activiteit.impl.MVX.DataVoorFreesMachine = ##class(APPS.Halux.PPS.Activiteit.impl.MVX.DataVoorFreesMachine).%New()
+	#dim ProductieSequentieRepo As APPS.Halux.common.impl.ProductieSequentieRepository = ##class(APPS.Halux.common.impl.ProductieSequentieRepository).%New()	
+	#dim Iterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(Lijst)
+	
+	while Iterator.HasNext()
+	{
+		#dim Item As APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo = Iterator.Next()
+		#dim ProductieSequentieItemList As %ListOfDataTypes = ProductieSequentieRepo.GeefSequentieItemIDsMetDossierCode(Item.BatchID, Item.DossierCode, Item.DeelAantal)
+		#dim ProductieSequentieItemIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(ProductieSequentieItemList)
+		#dim ProductieSequentieItem As APPS.Halux.common.ProductieSequentieItem
+		while ProductieSequentieItemIterator.HasNext()
+		{
+			Set ProductieSequentieItem = ##class(APPS.Halux.common.ProductieSequentieItem).%OpenId(ProductieSequentieItemIterator.Next())
+			#dim Product As  DOM.PM.impl.MaatwerkProductImpl = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI().GeefMaatwerkProduct(ProductieSequentieItem.ProductID)
+			Do ProductieSequentieItem.ZetIngegevenKenmerken(Product.GeefIngegevenKenmerken())
+			Do ProductieSequentieItem.ZetHalffabItemsBoom(Product.GeefHalffabItemsBoom())
+		}
+		
+		Do Actie.VerwerkGroepSequentieItem(ProductieSequentieItem,,$$$True)
+	}
+	
+	#dim UitvoeringStatus As %String = ##class(APPS.Halux.PPS.enu.UitvoeringStatus).Succes()
+	
+	Quit UitvoeringStatus
+]]></Implementation>
+</Method>
 </Class>