Index: APPS/Halux/Planning/impl/BatchStarter.cls.xml
===================================================================
diff -u -r59094 -r59483
--- APPS/Halux/Planning/impl/BatchStarter.cls.xml	(.../BatchStarter.cls.xml)	(revision 59094)
+++ APPS/Halux/Planning/impl/BatchStarter.cls.xml	(.../BatchStarter.cls.xml)	(revision 59483)
@@ -39,7 +39,8 @@
 	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())
+	Set ..DnaCodeService =  $$$Inject(DnaCodeService,##class(APPS.Halux.PPS.Activiteit.impl.TBX.KlantEtiketIoCContainer).Instance().Resolve("DnaCodeService"))
+
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -64,6 +65,7 @@
 		Do ..Logger.Info("StartBatch", "Starten van batch ("_Batch.GeefID()_") is begonnen.")
 		Do Batch.ZetStatus(##class(APPS.Halux.common.enu.BatchStatus).BezigMetStarten())
 		Do ..BatchBewaarder.BewaarBatch(Batch)
+		Do ##class(Tools.Wlip).%New(127).String(..DnaCodeService.%ClassName(1))
 		Do ..DnaCodeService.BewaarDnaCodes(..DnaCodeService.MaakDnaCodesVoorBatch(Batch))
 		Do ..BatchSequentieService.GenereerSequentie(Batch)
 		Do Batch.ZetStatus(##class(APPS.Halux.common.enu.BatchStatus).Gestart())