Index: EWTOE.mac.rou
===================================================================
diff -u -r49740 -r51993
--- EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 49740)
+++ EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 51993)
@@ -291,6 +291,18 @@
  Else  Do  ; DO-product
  .Do ONE^BLHIST(PRNr,RCPODate,AantWMS,(CifPPL*AantWMS),("T;"_TOENr))
  Quit
+ 
+Cache05Geproduceerd(LeverancierNummer, ToeleveringID, ToeleveringLijnCode, ProductID, ReceptieTijdstip, Aantal, AxConfigId, AxInventTransId, AxMaatwerkGenerischItemId)
+ New Cache05GeproduceerdEventData,Cache05GeproduceerdEvent
+ If ProductID{	 
+	 Set LeverancierID = "L||"_LeverancierNummer
+	 Set Cache05GeproduceerdEventData = ##class(DOM.AKP.event.Cache05GeproduceerdEventData).%New(ToeleveringID, ToeleveringLijnCode, ProductID, LeverancierID, ReceptieTijdstip, Aantal, AxConfigId, AxInventTransId, AxMaatwerkGenerischItemId)
+	 Set Cache05GeproduceerdEvent = ##class(DOM.AKP.event.Cache05GeproduceerdEvent).%New(Cache05GeproduceerdEventData)
+	 Set ^TVE(+$H,$I(^TVE(+$H)))="VerwijderdEvent\"_ProductID_"\"_Aantal
+	 Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(Cache05GeproduceerdEvent)
+ }
+ Quit
+ 
  ;
  ; Copieren naar ^KTO5
 COPY(TOENr,TLNr,Rec,Aantal)