Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r60898 -r60928
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60898)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60928)
@@ -30,8 +30,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="SequentieService">
+<Type>APPS.Halux.common.SequentieService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",ProductTypeAPI:DOM.PM.impl.ProductTypeAPIimpl="",DnaCodeGenerator:APPS.Halux.AAP.DnaCodeGenerator="",ProjectSettingsApi:DOM.common.ProjectSettingsAPI="",ProductApi:DOM.PM.ProductAPI=""</FormalSpec>
+<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",ProductTypeAPI:DOM.PM.impl.ProductTypeAPIimpl="",DnaCodeGenerator:APPS.Halux.AAP.DnaCodeGenerator="",ProjectSettingsApi:DOM.common.ProjectSettingsAPI="",ProductApi:DOM.PM.ProductAPI="",SequentieService:APPS.Halux.common.SequentieService=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -43,6 +48,7 @@
 	Set ..ProjectSettingsApi = $$$Inject(ProjectSettingsApi, ##class(DOM.common.impl.ProjectSettingsAPI).%New())
 	Set ..DateTimeApi = ##class(TECH.Context).Instance().GeefDateTimeAPI()
 	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.PM.impl.ProductAPI).%New())
+	Set ..SequentieService = $$$Inject(SequentieService, ##class(APPS.Halux.common.impl.SequentieService).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -228,6 +234,20 @@
 	Quit Result
 ]]></Implementation>
 </Method>
+
+<Method name="VulInSequentieId">
+<FormalSpec>SequentieId:%String,BatchId:%String,ToeleveringId:%String,ToeleveringlijnId:%String</FormalSpec>
+<Implementation><![CDATA[
+	If ..SequentieService.HeeftSequentie(BatchId) {
+		#dim DnaCodeIterator = ..DnaCodeRepository.ZoekVolgendeMetLeegSequentieItem(BatchId, ToeleveringId, ToeleveringlijnId)
+		If DnaCodeIterator.HasNext() {
+			#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
+			Set DnaCode.SequentieNummer = SequentieId
+			Do ..DnaCodeRepository.Bewaar(DnaCode)
+		}
+	}
+]]></Implementation>
+</Method>
 </Class>