Index: APPS/Halux/Planning/impl/EventCatcher.cls.xml
===================================================================
diff -u -r29059 -r56390
--- APPS/Halux/Planning/impl/EventCatcher.cls.xml	(.../EventCatcher.cls.xml)	(revision 29059)
+++ APPS/Halux/Planning/impl/EventCatcher.cls.xml	(.../EventCatcher.cls.xml)	(revision 56390)
@@ -15,6 +15,8 @@
 		#dim ProductLijn As DOM.AKP.ProductToeleveringLijn = EventData.GeefProductToeleveringLijn()
 		Set Calculator = ##class(APPS.Halux.Planning.impl.ResourceGebruikCalculator).%New(ProductLijn.GeefToelevering())
 		Do Calculator.VoegToeProductToeleveringLijn(ProductLijn)
+		Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New()
+		Do DnaCodeService.BewaarDnaCodes(DnaCodeService.MaakDnaCodesVoorToeleveringLijn(ProductLijn))
 	}
 ]]></Implementation>
 </Method>