Index: BL/MB/UGLYPicking/Receptie.cls.xml
===================================================================
diff -u -r5260 -r5262
--- BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 5260)
+++ BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 5262)
@@ -1413,7 +1413,7 @@
 <FormalSpec>RGID:%String,VolgNr:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Set Lock = "^UPRCP(""B"","""_RGID_""","_VolgNr_")"
+	Set Lock = "^UPRCP(""B"","""_RGID_""","_VolgNr_")"   ; [RV-JBL Freeze WV]  beter : $Name(^UPRCP("B",RGID,VolgNr))
 	Set ID  = ##class(TECH.Lock.LockUtils).GeefProcessID(Lock)
 	Quit ID
 ]]></Implementation>
Index: UI/MB/UGLYPicking/UserInteractionUtils.cls.xml
===================================================================
diff -u -r5236 -r5262
--- UI/MB/UGLYPicking/UserInteractionUtils.cls.xml	(.../UserInteractionUtils.cls.xml)	(revision 5236)
+++ UI/MB/UGLYPicking/UserInteractionUtils.cls.xml	(.../UserInteractionUtils.cls.xml)	(revision 5262)
@@ -34,6 +34,11 @@
 	}	
 	If GaVerder {
 		Do $$$cmReceptie.LockBuffer(RGID,VolgNr)
+		// [RV-JBL Freeze WV]  Toch best het resultaat van de LockBuffer() uitlezen + indien nodig feedback geven.  Zo ben je ten allen tijde zeker dat er geen buffer-visjes door de mazen van het net glippen  :-)  
+		;If '$$$cmReceptie.LockBuffer(..RGID,..VolgNr) {
+		;	Set GaVerder = 0
+		;	Do pdaMsgBox^vhVisual(..Form.Caption,"Buffer '"_RGID_"' met VolgNr '"_VolgNr_"' is reeds in gebruik. Probeer later opnieuw.",$$$MBICONINFORMATION)
+		;}		
 	}
 	Quit GaVerder
 ]]></Implementation>