Index: EWPAL.mac.rou
===================================================================
diff -u -r48948 -r51729
--- EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 48948)
+++ EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 51729)
@@ -50,13 +50,21 @@
 	
  
 RCPPAL(PRNr,PalId,ORDNr,OLUNr,Qty) 
+ Do ReceptiePalletEventRaisen(PRNr,PalId,ORDNr,OLUNr,Qty)
  If $G(PRNr) Quit:$$OPSLMAN^PRODUKT2(PRNr)
  Set ORDNr=$G(ORDNr)
  Set OLUNr=$G(OLUNr)\10*10 ; Basis OLUNr = zonder backorder info
  Do ADDPAL(PRNr,PalId,Qty)
  If $L(PalId),ORDNr,OLUNr Set ^EWPAL("D",PRNr,PalId,ORDNr,OLUNr)=""
  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
+ ;
 SELPAL(PRNr,ORDNr,OLUNr,Qty) ; Opsporen van de PalId waartoe het order behoort.
  New R,PalId,PalIds,PalQty,TotQty,OrdQty
  If $G(PRNr) Quit:$$OPSLMAN^PRODUKT2(PRNr) ""