Index: BL/MB/UGLYPicking/Opslag.cls.xml
===================================================================
diff -u -r72830 -r72864
--- BL/MB/UGLYPicking/Opslag.cls.xml	(.../Opslag.cls.xml)	(revision 72830)
+++ BL/MB/UGLYPicking/Opslag.cls.xml	(.../Opslag.cls.xml)	(revision 72864)
@@ -921,7 +921,7 @@
 <SoapBindingStyle>document</SoapBindingStyle>
 <SoapBodyUse>literal</SoapBodyUse>
 <Implementation><![CDATA[
- New BronStr,DoelStr
+ New BronStr,DoelStr,PalletVerplaatstBericht
  Set BronStr=##class(BL.MB.UGLYPicking.General).GetTransLocStrViaLocation(BronLocation)   ; GetScannedLocStrViaLocation(..) 
  Set DoelStr=##class(BL.MB.UGLYPicking.General).GetTransLocStrViaLocation(DoelLocation)   ; GetScannedLocStrViaLocation(..) 
  
@@ -1034,7 +1034,7 @@
  Set Event = ##class(DOM.MAG.event.PalletVerplaatstEvent).%New(EventData)
  Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(Event)
  
- #dim PalletVerplaatstBericht = "Pallet '" _ PalletID _ "' succesvol verplaatst van " _ BronStr _ " naar " _ DoelStr _ "."
+ Set PalletVerplaatstBericht = "Pallet '" _ PalletID _ "' succesvol verplaatst van " _ BronStr _ " naar " _ DoelStr _ "."
  If IsABPallet {
  	Set DnaCodeIterator = ##class(DOM.Halux.AAP.DnaCodeRepository).%New().ZoekViaPalletCodeEnRecent(PalletID _ "B")
  	If DnaCodeIterator.HasNext() {
@@ -1044,6 +1044,8 @@
  	}
  }
  
+ Kill IsABPallet
+ 
  Quit $listbuild(1,PalletVerplaatstBericht)
 ]]></Implementation>
 </Method>