Index: EWTOE.mac.rou
===================================================================
diff -u -r53593 -r53601
--- EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 53593)
+++ EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 53601)
@@ -515,6 +515,7 @@
 UPRCP(C) 
 	 New R,LEVNr,TOENr,TLUNr,TLUSNr,TLNr,SplitNr,PRNr,TPRNr,Aantal,TAantal
 	 New BackOrd,BOAantal,WMS,KLNr,ORDNr,OLNr,OLUNr,Text,Link,MailId,BelDat
+	 New EventRaiser, EventQueue
 	 Set $zt="UPTrapCatch^EWTOE"	
 	 Do ##class(vhLib.Logger).%New("EWMS").Debug("UPRCP^EWTOE","C(TLUNR)="_C("TLUNR"))
 	 Do ##class(vhLib.Logger).%New("EWMS").Debug("UPRCP^EWTOE","C(SPLITSNR)="_C("SPLITSNR"))
@@ -534,6 +535,10 @@
 				 If TPRNr=PRNr {
 					 Set Aantal=C("DELTAIN"),BackOrd='C("COMPLEET")
 					 If TAantal'<Aantal {
+						 
+ 						 Set EventRaiser = ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser()
+						 Set EventQueue = ##class(TECH.PubSub.impl.EventQueue).%New(EventRaiser)
+
 						 Set BOAantal=0 Set:BackOrd BOAantal=$P(R,D,3)-Aantal
 						 Set R=""
 						 Set $P(R,D)=$G(C("PALETID")),$P(R,D,2)=$G(C("DELTAIN"))
@@ -550,6 +555,9 @@
 						 	Do ##class(BL.Legacy.EWTOE).ZetOpManueelDoorsturenIndienNietHaalbaar(ORDNr)
 						 	Do ##class(BL.Legacy.EWTOE).StuurOrderKlaarNaarOrderVerwerking(ORDNr)
 						 }
+						 
+						 Do EventQueue.ExecuteEventsAsync()
+						 
 					 } Else { 
 					 	Do ERROR^EWLOG($T(UPAANTNOK)) Xecute "Set C(""ERROR"")="_$P($T(UPAANTNOK),";",2,99)
 					 }
@@ -583,7 +591,7 @@
 	{
 		Set LadeGerecepteerdEventData = ##class(TECH.Events.LadeGerecepteerdEventData).%New(TOENr,TLUNr,PRNr,BatchID,"-1",ORDNr,OLUNr)
 		Set LadeGerecepteerdEvent = ##class(TECH.Events.LadeGerecepteerdEvent).%New(LadeGerecepteerdEventData)
-		Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(LadeGerecepteerdEvent)
+		Do EventQueue.AddEvent(LadeGerecepteerdEvent)
 	}
 	Quit