Index: vhUnitTest/APPS/Halux/Planning/impl/BatchStarter/StartBatch/Test.cls.xml
===================================================================
diff -u -r57876 -r57886
--- vhUnitTest/APPS/Halux/Planning/impl/BatchStarter/StartBatch/Test.cls.xml	(.../Test.cls.xml)	(revision 57876)
+++ vhUnitTest/APPS/Halux/Planning/impl/BatchStarter/StartBatch/Test.cls.xml	(.../Test.cls.xml)	(revision 57886)
@@ -70,7 +70,9 @@
 	Do SequentieServiceMock.VerwachtMethodCall("GenereerSequentie", BatchStub)
 	Set ..SequentieService = SequentieServiceMock
 	
-	Do ..DnaCodeServiceMock.VerwachtMethodCall("MaakDnaCodesVoorBatch", BatchStub).DanDoeNiks()
+	#dim DnaCodes As %ListOfDataTypes = ""
+	Do ..DnaCodeServiceMock.VerwachtMethodCall("MaakDnaCodesVoorBatch", BatchStub).DanReturn(DnaCodes)
+	Do ..DnaCodeServiceMock.VerwachtMethodCall("BewaarDnaCodes", DnaCodes).DanDoeNiks()
 	
 	Do ..InitImplementation()
 	Do ..BatchStarterImpl.StartBatch(BatchStub)
Index: APPS/Halux/Planning/impl/BatchStarter.cls.xml
===================================================================
diff -u -r57876 -r57886
--- APPS/Halux/Planning/impl/BatchStarter.cls.xml	(.../BatchStarter.cls.xml)	(revision 57876)
+++ APPS/Halux/Planning/impl/BatchStarter.cls.xml	(.../BatchStarter.cls.xml)	(revision 57886)
@@ -65,7 +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 ..DnaCodeService.BewaarDnaCodes(..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())