Index: BL/MB/UGLYPicking/Opslag.cls.xml
===================================================================
diff -u -r2588 -r7569
--- BL/MB/UGLYPicking/Opslag.cls.xml	(.../Opslag.cls.xml)	(revision 2588)
+++ BL/MB/UGLYPicking/Opslag.cls.xml	(.../Opslag.cls.xml)	(revision 7569)
@@ -863,6 +863,10 @@
 	Quit:(tmpStatus'="") $LB(-3,tmpStatus)
  
 	$$$WriteToLog("Verplaats pallet from RCP success.")
+	
+	Set EventData = ##class(DOM.MAG.event.PalletVerplaatstEventData).%New(ToRecvPalID,$LI(DoelLocatie,1),$LI(DoelLocatie,2),$LI(DoelLocatie,3),$LI(DoelLocatie,4))
+	Set Event = ##class(DOM.MAG.event.PalletVerplaatstEvent).%New(EventData)
+	Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(Event)
 
 	New DoelLocatieStr
 	Set DoelLocatieStr=##class(BL.MB.UGLYPicking.General).GetTransLocStrViaLocation(DoelLocatie)   ; GetScannedLocStrViaLocation(..) 
@@ -981,6 +985,10 @@
  . Set Status=$LB(-8,tmpStatus)
 
  $$$WriteToLog("Verplaats pallet success.")
+ 
+ Set EventData = ##class(DOM.MAG.event.PalletVerplaatstEventData).%New(PalletID,$LI(DoelLocation,1),$LI(DoelLocation,2),$LI(DoelLocation,3),$LI(DoelLocation,4))
+ Set Event = ##class(DOM.MAG.event.PalletVerplaatstEvent).%New(EventData)
+ Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(Event)
 
  Quit $LB(1,"Pallet '"_PalletID_"' succesvol verplaatst van "_BronStr_" naar "_DoelStr_".")
 ]]></Implementation>