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>
Index: UI/MB/UGLYPicking/dlgOpslagPalSel.cls.xml
===================================================================
diff -u -r7518 -r7569
--- UI/MB/UGLYPicking/dlgOpslagPalSel.cls.xml	(.../dlgOpslagPalSel.cls.xml)	(revision 7518)
+++ UI/MB/UGLYPicking/dlgOpslagPalSel.cls.xml	(.../dlgOpslagPalSel.cls.xml)	(revision 7569)
@@ -879,7 +879,7 @@
  . Do pdaMsgBox^vhVisual(..Form.Caption,"Er is geen geldige doellocatie ingescand!",$$$MBICONINFORMATION)
 
  New Status   ;Volgende functie levert een $LB(ErrNr,ErrMsg) terug, indien ErrNr<0 toon ErrStr
- Set Status=$$$cmOpslag.VerplaatsPalletOrProdFromRCP(..txtBronPalletID.Text,DoelLocation,..txtBronPalletID.Text,,"Stockage ToRecv Pallet")
+ Set Status=$$$cmOpslag.VerplaatsPalletOrProdFromRCP(BronPalletID,DoelLocation,BronPalletID,,"Stockage ToRecv Pallet")
  If $LI(Status)<0 Do
  . Do pdaMsgBox^vhVisual(..Form.Caption,$LI(Status,2),$$$MBICONERROR)
  . Set ..Form.ModalResult=$$$mrAbort   ;=failed
Index: DOM/MAG/event/PalletVerplaatstEventData.cls.xml
===================================================================
diff -u
--- DOM/MAG/event/PalletVerplaatstEventData.cls.xml	(revision 0)
+++ DOM/MAG/event/PalletVerplaatstEventData.cls.xml	(revision 7569)
@@ -0,0 +1,68 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.MAG.event.PalletVerplaatstEventData">
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.PubSub.EventData</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="PalletID">
+<Type>%String</Type>
+</Property>
+
+<Property name="LocM">
+<Type>%String</Type>
+</Property>
+
+<Property name="LocG">
+<Type>%String</Type>
+</Property>
+
+<Property name="LocX">
+<Type>%String</Type>
+</Property>
+
+<Property name="LocY">
+<Type>%String</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>PalletID:%String,LocM:%String,LocG:%String,LocX:%String,LocY:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..PalletID = PalletID
+	Set ..LocM = LocM
+	Set ..LocG = LocG
+	Set ..LocX = LocX
+	Set ..LocY = LocY
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>PalletVerplaatstEventDataState</State>
+<Data name="PalletVerplaatstEventDataState">
+<Structure>listnode</Structure>
+<Subscript>"DOM.MAG.event.PalletVerplaatstEventData"</Subscript>
+<Value name="1">
+<Value>LocG</Value>
+</Value>
+<Value name="2">
+<Value>LocM</Value>
+</Value>
+<Value name="3">
+<Value>LocX</Value>
+</Value>
+<Value name="4">
+<Value>LocY</Value>
+</Value>
+<Value name="5">
+<Value>PalletID</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: DOM/MAG/event/PalletVerplaatstEvent.cls.xml
===================================================================
diff -u
--- DOM/MAG/event/PalletVerplaatstEvent.cls.xml	(revision 0)
+++ DOM/MAG/event/PalletVerplaatstEvent.cls.xml	(revision 7569)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.MAG.event.PalletVerplaatstEvent">
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.PubSub.Event</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="%OnNew">
+<FormalSpec>Data:DOM.MAG.event.PalletVerplaatstEventData</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Type = "PalletVerplaatstEvent"
+ 	Quit ##super(Data)
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+</Storage>
+</Class>
+</Export>