Index: APPS/Halux/common/ProductieSequentie.cls.xml
===================================================================
diff -u -r29059 -r29939
--- APPS/Halux/common/ProductieSequentie.cls.xml	(.../ProductieSequentie.cls.xml)	(revision 29059)
+++ APPS/Halux/common/ProductieSequentie.cls.xml	(.../ProductieSequentie.cls.xml)	(revision 29939)
@@ -272,21 +272,30 @@
 		#dim i As %Integer
 		For i=1:1:ProductLijn.GeefAantal()
 		{
-			Set Item = ##class(APPS.Halux.common.ProductieSequentieItem).%New()
-			Set Item.ProductID = ProductID
-			Set Item.ToeleveringID = Toelevering.GeefID()
-			Set Item.ToeleveringLijnID = ProductLijn.GeefID()
-			Set Item.DeelAantal = i
-			Set Item.TotaalAantal = ProductLijn.GeefAantal()
-			Set Item.BatchID = ..BatchID
-			Set Item.PartijID = Toelevering.GeefKlantID()
-			Do ProductieSequentieItems.Insert(Item)
+			Do ProductieSequentieItems.Insert(..MaakProductieSequentieItems(ProductID, Toelevering, ProductLijn, i))
 		}
 	}
 	Quit ProductieSequentieItems
 ]]></Implementation>
 </Method>
 
+<Method name="MaakProductieSequentieItem">
+<FormalSpec>ProductID:DOM.common.ProductID,Toelevering:DOM.AKP.Toelevering,ProductLijn:DOM.AKP.ProductToeleveringLijn,DeelAantal:TECH.Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.common.ProductieSequentieItem</ReturnType>
+<Implementation><![CDATA[
+	Set Item = ##class(APPS.Halux.common.ProductieSequentieItem).%New()
+	Set Item.ProductID = ProductID
+	Set Item.ToeleveringID = Toelevering.GeefID()
+	Set Item.ToeleveringLijnID = ProductLijn.GeefID()
+	Set Item.DeelAantal = DeelAantal
+	Set Item.TotaalAantal = ProductLijn.GeefAantal()
+	Set Item.BatchID = ..BatchID
+	Set Item.PartijID = Toelevering.GeefKlantID()
+	Quit Item
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderToelevering">
 <Description>
 </Description>