Index: APPS/Halux/PPS/Activiteit/impl/MVX/DataVoorFreesMachine.cls.xml
===================================================================
diff -u -r73936 -r73962
--- APPS/Halux/PPS/Activiteit/impl/MVX/DataVoorFreesMachine.cls.xml	(.../DataVoorFreesMachine.cls.xml)	(revision 73936)
+++ APPS/Halux/PPS/Activiteit/impl/MVX/DataVoorFreesMachine.cls.xml	(.../DataVoorFreesMachine.cls.xml)	(revision 73962)
@@ -113,7 +113,6 @@
 		Set DiepteZ1 = LadeUitsparingHelper.GeefDiepteUitsparingZ1(IngegevenKenmerken.UitsparingData) - 24
 		Set BreedteX = LadeUitsparingHelper.GeefBreedteRugX(IngegevenKenmerken.UitsparingData)
 		
-		;Set Variabelen("d") = 16
 		Set Variabelen("SifonX") = BreedteX - FreesPositieCorrectie
 		Set Variabelen("SDiep") = DiepteZ1
 		Set Variabelen("SBreed") = BreedteZ1 + 37
Index: APPS/Halux/PPS/Document/impl/LBX/DataVoorFreesMachine.cls.xml
===================================================================
diff -u -r73939 -r73962
--- APPS/Halux/PPS/Document/impl/LBX/DataVoorFreesMachine.cls.xml	(.../DataVoorFreesMachine.cls.xml)	(revision 73939)
+++ APPS/Halux/PPS/Document/impl/LBX/DataVoorFreesMachine.cls.xml	(.../DataVoorFreesMachine.cls.xml)	(revision 73962)
@@ -3,34 +3,9 @@
 <Class name="APPS.Halux.PPS.Document.impl.LBX.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.LBX.DataVoorFreesMachine = ##class(APPS.Halux.PPS.Activiteit.impl.LBX.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
+<Method name="GeefActiviteit">
+<ReturnType>APPS.Halux.PPS.Activiteit.ProductieSequentieAwareActiviteit</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.PPS.Activiteit.impl.LBX.DataVoorFreesMachine).%New()
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/PPS/Document/impl/common/DataVoorFreesMachine.cls.xml
===================================================================
diff -u -r73936 -r73962
--- APPS/Halux/PPS/Document/impl/common/DataVoorFreesMachine.cls.xml	(.../DataVoorFreesMachine.cls.xml)	(revision 73936)
+++ APPS/Halux/PPS/Document/impl/common/DataVoorFreesMachine.cls.xml	(.../DataVoorFreesMachine.cls.xml)	(revision 73962)
@@ -13,6 +13,43 @@
 <Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
 </Method>
+
+<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.ProductieSequentieAwareActiviteit = ..GeefActiviteit()
+	#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>
+
+<Method name="GeefActiviteit">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Activiteit.ProductieSequentieAwareActiviteit</ReturnType>
+</Method>
 </Class>
 
 
Index: APPS/Halux/PPS/Document/impl/MVX/DataVoorFreesMachine.cls.xml
===================================================================
diff -u -r73936 -r73962
--- APPS/Halux/PPS/Document/impl/MVX/DataVoorFreesMachine.cls.xml	(.../DataVoorFreesMachine.cls.xml)	(revision 73936)
+++ APPS/Halux/PPS/Document/impl/MVX/DataVoorFreesMachine.cls.xml	(.../DataVoorFreesMachine.cls.xml)	(revision 73962)
@@ -3,34 +3,9 @@
 <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
+<Method name="GeefActiviteit">
+<ReturnType>APPS.Halux.PPS.Activiteit.ProductieSequentieAwareActiviteit</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.PPS.Activiteit.impl.MVX.DataVoorFreesMachine).%New()
 ]]></Implementation>
 </Method>
 </Class>