Index: UI/MB/UGLYPicking/dlgReceptie.cls.xml
===================================================================
diff -u -r5137 -r5222
--- UI/MB/UGLYPicking/dlgReceptie.cls.xml	(.../dlgReceptie.cls.xml)	(revision 5137)
+++ UI/MB/UGLYPicking/dlgReceptie.cls.xml	(.../dlgReceptie.cls.xml)	(revision 5222)
@@ -928,9 +928,10 @@
  Set ..UserID=UserID
 
  ;Buffer locken - single use
- If '$$$cmReceptie.LockBuffer(..RGID,..VolgNr) Do  Quit 0
- . Do pdaMsgBox^vhVisual(..Form.Caption,"De zonet gecreëerde buffer '"_..RGID_"' met VolgNr '"_..VolgNr_"' is reeds in gebruik. Probeer later opnieuw.",$$$MBICONWARNING)
-
+ If '(..GaVerderMetBuffer(..RGID,..VolgNr)){
+	 Quit 0
+ }
+ 
  ;Interface settings voor buffer (default)
  New DefaultLocatie,DefaultPallet,LocatieVast,PalletVast
  If ..LocatieVast {
@@ -972,9 +973,10 @@
  Set ..UserID=UserID
 
  ;Buffer locken - single use
- If '$$$cmReceptie.LockBuffer(..RGID,..VolgNr) Do  Quit 0
- . Do pdaMsgBox^vhVisual(..Form.Caption,"Buffer '"_RGID_"' met VolgNr '"_VolgNr_"' is reeds in gebruik. Probeer later opnieuw.",$$$MBICONINFORMATION)
-
+ If '(..GaVerderMetBuffer(..RGID,..VolgNr)){
+	 Quit 0
+ }
+ 
  ;Interface settings voor buffer (default)
  New DefaultLocatie,DefaultPallet,LocatieVast,PalletVast
  If ..LocatieVast {
@@ -1697,6 +1699,30 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GaVerderMetBuffer">
+<FormalSpec>RGID:%String,VolgNr:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set GaVerder = 1
+	
+	Set ProcessID = $$$cmReceptie.GeefProcessIDVanBuffer(RGID,VolgNr)
+	If (ProcessID '= $J) && (ProcessID '= "") {
+		Set UserID = $$$cmReceptie.GeefUserIDVanBuffer(RGID,VolgNr)
+		Set Bericht = "De receptiebuffer is geblokkeerd door '"_UserID_"' met proces '"_ProcessID_"'."_$C(13,10)
+		Set Bericht = Bericht_"Wilt u het andere proces beëindigen ? "_$C(13,10)
+		Set Bericht = Bericht_"'Cancel' om een andere buffer te kiezen."
+		Set GaVerder = ($$pdaMsgBox^vhVisual(..Form.Caption,Bericht,$$$MBICONQUESTION,1)=$$$mrOk)
+		If GaVerder {
+			Do $$$cmReceptie.GeefVrijBuffer(RGID,VolgNr)	
+		}
+	}	
+	If GaVerder {
+		Do $$$cmReceptie.LockBuffer(RGID,VolgNr)
+	}
+	Quit GaVerder
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <Data name="TMFormClassState">
Index: BL/MB/UGLYPicking/Receptie.cls.xml
===================================================================
diff -u -r5144 -r5222
--- BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 5144)
+++ BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 5222)
@@ -1408,6 +1408,41 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProcessIDVanBuffer">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>RGID:%String,VolgNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Lock = "^UPRCP(""B"","""_RGID_""","_VolgNr_")"
+	Set ID  = ##class(TECH.Lock.LockUtils).GeefProcessID(Lock)
+	Quit ID
+]]></Implementation>
+</Method>
+
+<Method name="GeefUserIDVanBuffer">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>RGID:%String,VolgNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set UserID = "Onbekend"
+	If $Data(^UPRCP("B",RGID,VolgNr)){
+		Set UserID = $P(^UPRCP("B",RGID,VolgNr),"\",3)
+	}
+	Quit UserID
+]]></Implementation>
+</Method>
+
+<Method name="GeefVrijBuffer">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>RGID:%String,VolgNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ProcessID = ..GeefProcessIDVanBuffer(RGID,VolgNr)
+	Do ##class(TECH.Process).KillProcess(ProcessID)
+	/// Even tijd nodig om zeker te zijn dat alle locks goed opgekuist zijn.
+	Hang 0.5
+]]></Implementation>
+</Method>
+
 <Method name="LockBuffer">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>bfrRGID:%Library.String,bfrVolgNr:%Library.String</FormalSpec>