Index: vhUnitTest/APPS/Halux/Planning/impl/BatchStarter/StartBatch/Test.cls.xml
===================================================================
diff -u -r50955 -r57876
--- vhUnitTest/APPS/Halux/Planning/impl/BatchStarter/StartBatch/Test.cls.xml	(.../Test.cls.xml)	(revision 50955)
+++ vhUnitTest/APPS/Halux/Planning/impl/BatchStarter/StartBatch/Test.cls.xml	(.../Test.cls.xml)	(revision 57876)
@@ -33,6 +33,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DnaCodeServiceMock">
+<Type>APPS.Halux.AAP.DnaCodeService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -42,6 +47,7 @@
 	Set ..BatchSequentieVerwijderaar = ##class(vhTest.Fake.APPS.Halux.Planning.impl.BatchSequentieVerwijderaar).%New()
 	Set ..SequentieService = ##class(vhTest.Fake.APPS.Halux.common.impl.SequentieService).%New()
 	Set ..Logger = ##class(vhTest.Mock.vhLib.Logger).%New()
+	Set ..DnaCodeServiceMock = ##class(vhTest.Mock.APPS.Halux.AAP.DnaCodeService).%New()
 	Do ..Logger.IndienMethodCall("Error","StartBatch",$$$ElkeWaarde).DanDoeNiks()
 	Do ..Logger.IndienMethodCall("Info","StartBatch",$$$ElkeWaarde).DanDoeNiks()
 ]]></Implementation>
@@ -64,11 +70,14 @@
 	Do SequentieServiceMock.VerwachtMethodCall("GenereerSequentie", BatchStub)
 	Set ..SequentieService = SequentieServiceMock
 	
+	Do ..DnaCodeServiceMock.VerwachtMethodCall("MaakDnaCodesVoorBatch", BatchStub).DanDoeNiks()
+	
 	Do ..InitImplementation()
 	Do ..BatchStarterImpl.StartBatch(BatchStub)
 	
 	Do $$$AssertEquals(BatchBewaarderSpy.BewaarBatchAantalKeerOpgeroepen,2)
 	Do SequentieServiceMock.Verifieer()
+	Do ..DnaCodeServiceMock.Verifieer()
 	Do $$$AssertEquals(EventRaiserSpy.IsEventGeraised("BatchGeslotenEvent"),"")
 ]]></Implementation>
 </Method>
@@ -108,14 +117,16 @@
 	Do BatchSequentieVerwijderaarStub.IndienMethodCall("VerwijderBatchSequentie",BatchStub)
 	Set ..BatchSequentieVerwijderaar = BatchSequentieVerwijderaarStub
 	
+	Do ..DnaCodeServiceMock.IndienMethodCall("VerwijderDnaCodesVoorBatch", BatchStub).DanDoeNiks()
+	
 	Do ..InitImplementation()
 	Do ..BatchStarterImpl.StartBatch(BatchStub)
 ]]></Implementation>
 </Method>
 
 <Method name="InitImplementation">
 <Private>1</Private>
-<Implementation><![CDATA[	Set ..BatchStarterImpl = ##class(APPS.Halux.Planning.impl.BatchStarter).%New(..BatchBewaarder,..SequentieService,..BatchSequentieVerwijderaar, ..Logger)
+<Implementation><![CDATA[	Set ..BatchStarterImpl = ##class(APPS.Halux.Planning.impl.BatchStarter).%New(..BatchBewaarder,..SequentieService,..BatchSequentieVerwijderaar, ..Logger, ..DnaCodeServiceMock)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/Planning/impl/BatchStarter.cls.xml
===================================================================
diff -u -r50955 -r57876
--- APPS/Halux/Planning/impl/BatchStarter.cls.xml	(.../BatchStarter.cls.xml)	(revision 50955)
+++ APPS/Halux/Planning/impl/BatchStarter.cls.xml	(.../BatchStarter.cls.xml)	(revision 57876)
@@ -23,17 +23,23 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DnaCodeService">
+<Type>APPS.Halux.AAP.DnaCodeService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>BatchBewaarder:APPS.Halux.Planning.BatchBewaarder,BatchSequentieService:APPS.Halux.common.impl.SequentieService,BatchSequentieVerwijderaar:APPS.Halux.Planning.impl.BatchSequentieVerwijderaar,Logger:vhLib.Logger</FormalSpec>
+<FormalSpec>BatchBewaarder:APPS.Halux.Planning.BatchBewaarder,BatchSequentieService:APPS.Halux.common.impl.SequentieService,BatchSequentieVerwijderaar:APPS.Halux.Planning.impl.BatchSequentieVerwijderaar,Logger:vhLib.Logger,DnaCodeService:APPS.Halux.AAP.DnaCodeService</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..BatchBewaarder = $$$Implementation(BatchBewaarder,##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchBewaarder())
-	Set ..BatchSequentieService = $$$Implementation(BatchSequentieService,##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchSequentieService())
-	Set ..BatchSequentieVerwijderaar = $$$Implementation(BatchSequentieVerwijderaar,##class(APPS.Halux.Planning.impl.BatchSequentieVerwijderaar).%New()) 
+	Set ..BatchBewaarder = $$$Inject(BatchBewaarder,##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchBewaarder())
+	Set ..BatchSequentieService = $$$Inject(BatchSequentieService,##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchSequentieService())
+	Set ..BatchSequentieVerwijderaar = $$$Inject(BatchSequentieVerwijderaar,##class(APPS.Halux.Planning.impl.BatchSequentieVerwijderaar).%New()) 
 	Set ..Logger = $$$Inject(Logger, ##class(vhLib.Logger).%New())
+	Set ..DnaCodeService = $$$Inject(DnaCodeService,##class(APPS.Halux.AAP.DnaCodeService).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -59,6 +65,7 @@
 		Do Batch.ZetStatus(##class(APPS.Halux.common.enu.BatchStatus).BezigMetStarten())
 		Do ..BatchBewaarder.BewaarBatch(Batch)
 		Do ..BatchSequentieService.GenereerSequentie(Batch)
+		Do ..DnaCodeService.MaakDnaCodesVoorBatch(Batch)
 		Do Batch.ZetStatus(##class(APPS.Halux.common.enu.BatchStatus).Gestart())
 		Do ..BatchBewaarder.BewaarBatch(Batch)
 		Do ##class(APPS.Halux.common.event.BatchEventRaiser).RaiseBatchGeslotenEvent(Batch.GeefID())
@@ -67,7 +74,8 @@
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Do Batch.ZetStatus(##class(APPS.Halux.common.enu.BatchStatus).StartenGefaald())
 		Do ..BatchBewaarder.BewaarBatch(Batch)
-		Do ..BatchSequentieVerwijderaar.VerwijderBatchSequentie(Batch)	
+		Do ..BatchSequentieVerwijderaar.VerwijderBatchSequentie(Batch)
+		Do ..DnaCodeService.VerwijderDnaCodesVoorBatch(Batch)
 		Do ..Logger.Error("StartBatch", "Starten van batch ("_Batch.GeefID()_") is mislukt."_$$$CRLF_$$$CRLF_"Exception:"_$$$CRLF_Exception.ToString())
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}