Index: BL/MB/UGLYPicking/Opslag.cls.xml
===================================================================
diff -u -r66227 -r72830
--- BL/MB/UGLYPicking/Opslag.cls.xml	(.../Opslag.cls.xml)	(revision 66227)
+++ BL/MB/UGLYPicking/Opslag.cls.xml	(.../Opslag.cls.xml)	(revision 72830)
@@ -924,7 +924,13 @@
  New BronStr,DoelStr
  Set BronStr=##class(BL.MB.UGLYPicking.General).GetTransLocStrViaLocation(BronLocation)   ; GetScannedLocStrViaLocation(..) 
  Set DoelStr=##class(BL.MB.UGLYPicking.General).GetTransLocStrViaLocation(DoelLocation)   ; GetScannedLocStrViaLocation(..) 
-
+ 
+ #dim IsABPallet = $$$False
+ If ..IsABPalletCode(PalletID) {
+	 Set IsABPallet = $$$True
+	 Set PalletID = $Extract(PalletID, 1, 8)
+ }
+ 
  $$$WriteToLog("*** VERPLAATS PALLET ***")
  $$$WriteToLog("BronLocation: "_BronStr_" -> DoelLocation"_DoelStr)
  $$$WriteToLog("PalletID: "_PalletID)
@@ -1027,8 +1033,18 @@
  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)
-
- Quit $listbuild(1,"Pallet '"_PalletID_"' succesvol verplaatst van "_BronStr_" naar "_DoelStr_".")
+ 
+ #dim 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() {
+	 	Set PalletVerplaatstBericht = "Palletten '" _ PalletID _ "A' en '" _ PalletID _ "B' succesvol verplaatst van " _ BronStr _ " naar " _ DoelStr _ "."
+ 	} Else {
+	 	Set PalletVerplaatstBericht = "Pallet '" _ PalletID _ "A' succesvol verplaatst van " _ BronStr _ " naar " _ DoelStr _ "."
+ 	}
+ }
+ 
+ Quit $listbuild(1,PalletVerplaatstBericht)
 ]]></Implementation>
 </Method>
 
@@ -1278,6 +1294,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsABPalletCode">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>PalletCode:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ($Length(PalletCode) = 9) && ##class(TECH.StringUtils).Equals($Extract(PalletCode, 9), "A", "B")
+]]></Implementation>
+</Method>
+
 <Query name="GetPalletStock">
 <Type>%SQLQuery</Type>
 <FormalSpec>paLocID:%String</FormalSpec>