Index: APPS/Halux/Planning/impl/EventCatcher.cls.xml
===================================================================
diff -u -r58781 -r68995
--- APPS/Halux/Planning/impl/EventCatcher.cls.xml	(.../EventCatcher.cls.xml)	(revision 58781)
+++ APPS/Halux/Planning/impl/EventCatcher.cls.xml	(.../EventCatcher.cls.xml)	(revision 68995)
@@ -10,7 +10,7 @@
 <FormalSpec>Event:DOM.AKP.event.ProductToelevLijnGemaakt</FormalSpec>
 <Implementation><![CDATA[
 	#dim EventData As DOM.AKP.event.ProductToelevLijnEventData = Event.Data
-	If (EventData.GeefLeverancierID() = ##class(DOM.AKP.enu.Leverancier).Halux())
+	If (..IsGeldigeLeverancier(EventData))
 	{
 		#dim ProductLijn As DOM.AKP.ProductToeleveringLijn = EventData.GeefProductToeleveringLijn()
 		Set Calculator = ##class(APPS.Halux.Planning.impl.ResourceGebruikCalculator).%New(ProductLijn.GeefToelevering())
@@ -24,7 +24,7 @@
 <FormalSpec>Event:DOM.AKP.event.ProductToelevLijnGewijzigd</FormalSpec>
 <Implementation><![CDATA[
 	#dim EventData As DOM.AKP.event.ProductToelevLijnWijzigEventData = Event.Data
-	If (EventData.GeefLeverancierID() = ##class(DOM.AKP.enu.Leverancier).Halux())
+	If (..IsGeldigeLeverancier(EventData))
 	{
 		#dim ProductLijn As DOM.AKP.ProductToeleveringLijn = EventData.GeefProductToeleveringLijn()
 		#dim Toelevering As DOM.AKP.Toelevering = ProductLijn.GeefToelevering()
@@ -55,7 +55,7 @@
 <FormalSpec>EventData:DOM.AKP.event.ProductToelevLijnEventData</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	If (EventData.GeefLeverancierID() = ##class(DOM.AKP.enu.Leverancier).Halux())
+	If (..IsGeldigeLeverancier(EventData))
 	{
 		Do ##class(APPS.Halux.Planning.impl.ResourceGebruikCalculator).VerwijderProductToeleveringLijn(EventData.GeefToeleveringID(),EventData.GeefToeleveringLijnCode())
 	}
@@ -67,7 +67,7 @@
 <FormalSpec>InvoerUitvoerLinkAangemaaktEvent:DOM.ProdRes.event.InvoerUitvoerLinkAangemaaktEvent</FormalSpec>
 <Implementation><![CDATA[
 	#dim EventData As DOM.ProdRes.event.InvoerUitvoerLinkEventData = InvoerUitvoerLinkAangemaaktEvent.Data	
-	If (EventData.GeefLeverancierID() = ##class(DOM.AKP.enu.Leverancier).Halux())
+	If (..IsGeldigeLeverancier(EventData))
 	{
 		Do ..UpdateOrderGegevens(EventData.GeefToeleveringID())
 	}
@@ -79,7 +79,7 @@
 <FormalSpec>InvoerUitvoerLinkVerbrokenEvent:DOM.ProdRes.event.InvoerUitvoerLinkVerbrokenEvent</FormalSpec>
 <Implementation><![CDATA[
 	#dim EventData As DOM.ProdRes.event.InvoerUitvoerLinkEventData = InvoerUitvoerLinkVerbrokenEvent.Data
-	If (EventData.GeefLeverancierID() = ##class(DOM.AKP.enu.Leverancier).Halux())
+	If (..IsGeldigeLeverancier(EventData))
 	{
 		Do ..UpdateOrderGegevens(EventData.GeefToeleveringID())
 	}
@@ -98,6 +98,17 @@
 	Do ToeleveringInfo.Save()
 ]]></Implementation>
 </Method>
+
+<Method name="IsGeldigeLeverancier">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>EventData:DOM.ProdRes.event.InvoerUitvoerLinkEventData</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set ToeleveringsService = ##class(DOM.AKP.impl.ToeleveringService).%New()
+	Quit ((EventData.GeefLeverancierID() = ##class(DOM.AKP.enu.Leverancier).Halux()) || (EventData.GeefLeverancierID() = ##class(DOM.AKP.enu.Leverancier).VanHoecke() && ToeleveringsService.BevatToeleveringRevegoProducten(EventData.GeefToeleveringID())))
+]]></Implementation>
+</Method>
 </Class>