Index: APPS/Halux/common/ProductieSequentie.cls.xml
===================================================================
diff -u -r60931 -r62201
--- APPS/Halux/common/ProductieSequentie.cls.xml	(.../ProductieSequentie.cls.xml)	(revision 60931)
+++ APPS/Halux/common/ProductieSequentie.cls.xml	(.../ProductieSequentie.cls.xml)	(revision 62201)
@@ -39,7 +39,7 @@
 <Transient>1</Transient>
 </Property>
 
-<Property name="SequentieService">
+<Property name="DnaCodeService">
 <Type>APPS.Halux.AAP.DnaCodeService</Type>
 <Private>1</Private>
 </Property>
@@ -58,7 +58,7 @@
 	Set ..BatchID = Batch.GeefID()
 	Set ..SequentieItems = ##class(%ListOfObjects).%New()
 	Set ..Categorie = Batch.GeefCategorie()
-	Set ..SequentieService = ##class(APPS.Halux.AAP.DnaCodeService).%New()
+	Set ..DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -273,7 +273,7 @@
 		
 		Do ..SequentieItems.Insert(Item)
 		
-		Do ..SequentieService.VulInSequentieId(Item.SequentieNummer,Item.BatchID,Item.ToeleveringID,Item.ToeleveringLijnID)
+		Do ..DnaCodeService.VulInSequentieId(Item.SequentieNummer,Item.BatchID,Item.ToeleveringID,Item.ToeleveringLijnID)
 		Do blOptiVHoss.NextLoop(.lbIndex)
 	}
 	
@@ -382,6 +382,9 @@
 <Value name="5">
 <Value>SequentieService</Value>
 </Value>
+<Value name="6">
+<Value>DnaCodeService</Value>
+</Value>
 </Data>
 </Storage>
 </Class>