Index: EWTOE.mac.rou
===================================================================
diff -u -r55134 -r56603
--- EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 55134)
+++ EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 56603)
@@ -162,6 +162,7 @@
  Set LevTW=$TR($$EXTDATE^vhDTyp(RCPDate,"DW4"),"/","")
  Set R=^($O(^KPR(PRNr,"J")))
  Set CifPPL=$$CifPPL(PRNr)
+ Do ReceptiePalletEventRaisen(PRNr,$P($G(WMS(1)),"\"),ORDNr,OLNr,AantWMS)
  Do HIST(LEVNr,TOENr,TLUNr,PRNr,AantWMS,RCPODate,HistRef,.WMS,,,OverKind)
  Do KWNODE^FLOWTOE(LEVNr,TOENr,TLNr)
  Do ProductToeleveringLijnIngeboekt^EWRCPS2(LEVNr,TOENr,TLNr)
@@ -241,6 +242,15 @@
  Do REMOVE^vhLock("^KTO(LEVNr,TOENr)")
  Quit
  
+ ;
+ReceptiePalletEventRaisen(PRNr,PalId,ORDNr,OLUNr,Qty)
+ New ReceptiePalletEventData,ReceptiePalletEvent
+ Set ReceptiePalletEventData = ##class(APPS.MAG.Receptie.event.ReceptiePalletEventData).%New(PRNr, PalId, ORDNr, OLUNr, Qty)
+ Set ReceptiePalletEvent = ##class(APPS.MAG.Receptie.event.ReceptiePalletEvent).%New(ReceptiePalletEventData)
+ Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(ReceptiePalletEvent)
+ Quit
+ ;
+ 
  ; Om KOM-links op niveau van een kind van het product uit het order-lijn te ondersteunen...
 WijzigAantalIndienKind(AantalInToelevering,PRNrUitToelevering,PRNrUitOrder)
 	&SQL(SELECT KindBSKey INTO :Sleutel