Index: BL/MB/UGLYPicking/Opslag.cls.xml
===================================================================
diff -u -r43056 -r43059
--- BL/MB/UGLYPicking/Opslag.cls.xml	(.../Opslag.cls.xml)	(revision 43056)
+++ BL/MB/UGLYPicking/Opslag.cls.xml	(.../Opslag.cls.xml)	(revision 43059)
@@ -942,15 +942,15 @@
  // 1: All around succes
 
  ;WANNEER DOEL<>TRANSIT->Doel moet reeds bestaan, zoniet afsluiten
- New Status
+ New Status,Result
  Set Status=$listbuild(0)  ;Neutrale, tussentijdse status
  Set Result=##class(BL.MB.UGLYPicking.General).CompleteLocationViaEmptyLoc(.DoelLocation,PalletID)
  Set:(Result'="") Status=$listbuild(-3,"Doellocatie: "_Result)
 
  Quit:($list(Status)<0) Status
 
  ;Locationsstate opvragen, indien blocked, dan negatief sluiten
- New LocIsBlocked
+ New LocIsBlocked,ErrStr
  Set LocIsBlocked=##class(EWMS.Locations).LocationIsBlocked(DoelLocation,.ErrStr)
  Quit:(ErrStr'="") $listbuild(-6,"Fout tijdens achterhalen blocked-state location: "_ErrStr)
  Quit:(LocIsBlocked) $listbuild(-7,"De opgegeven doellocatie '"_DoelStr_"' is momenteel geblokkeerd.")
@@ -1022,6 +1022,7 @@
 
  $$$WriteToLog("Verplaats pallet success.")
  
+ New EventData,Event
  Set EventData = ##class(DOM.MAG.event.PalletVerplaatstEventData).%New(PalletID,$list(DoelLocation,1),$list(DoelLocation,2),$list(DoelLocation,3),$list(DoelLocation,4),$list(BronLocation,1),$list(BronLocation,2),$list(BronLocation,3),$list(BronLocation,4))
  Set Event = ##class(DOM.MAG.event.PalletVerplaatstEvent).%New(EventData)
  Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(Event)