Index: APPS/Halux/Planning/impl/EventCatcher.cls.xml
===================================================================
diff -u -r56390 -r56419
--- APPS/Halux/Planning/impl/EventCatcher.cls.xml	(.../EventCatcher.cls.xml)	(revision 56390)
+++ APPS/Halux/Planning/impl/EventCatcher.cls.xml	(.../EventCatcher.cls.xml)	(revision 56419)
@@ -40,7 +40,9 @@
 <Method name="BijProductToeleveringLijnAnnulatie">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Event:DOM.AKP.event.ProductToelevLijnAnnulatie</FormalSpec>
-<Implementation><![CDATA[	Do ..VerwerkVerwijderdEventData(Event.Data)
+<Implementation><![CDATA[
+	Do ..VerwijderDnaCodesVoorToeleveringLijn(Event.Data)
+	Do ..VerwerkVerwijderdEventData(Event.Data)
 ]]></Implementation>
 </Method>
 
@@ -51,6 +53,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderDnaCodesVoorToeleveringLijn">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>EventData:DOM.AKP.event.ProductToelevLijnEventData</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If (EventData.GeefLeverancierID() = ##class(DOM.AKP.enu.Leverancier).Halux())
+	{
+		#dim ProductLijn As DOM.AKP.ProductToeleveringLijn = EventData.GeefProductToeleveringLijn()
+		Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New()
+		Do DnaCodeService.VerwijderDnaCodesVoorToeleveringLijn(ProductLijn)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkVerwijderdEventData">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>EventData:DOM.AKP.event.ProductToelevLijnEventData</FormalSpec>