Index: UI/MB/ReceptieProductie/dlgChooseBuffers.cls.xml
===================================================================
diff -u -r1074 -r5223
--- UI/MB/ReceptieProductie/dlgChooseBuffers.cls.xml	(.../dlgChooseBuffers.cls.xml)	(revision 1074)
+++ UI/MB/ReceptieProductie/dlgChooseBuffers.cls.xml	(.../dlgChooseBuffers.cls.xml)	(revision 5223)
@@ -5,6 +5,7 @@
 <IncludeCode>UglyPickingCNTs,KeyCodesCNTs</IncludeCode>
 <StorageStrategy>Default</StorageStrategy>
 <Super>%Library.TMFormClass</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="BufferSEP">
 <Type>%Library.String</Type>
@@ -588,8 +589,10 @@
  ...   Set tmpItem.ImageIndex=..#IICannotLockBuffer
  ...   Set tmpItem.Checked="False"
  ...   New Msg
- ...   Set Msg="De buffer van het type '"_RGID_"' met als VolgNr '"_VolgNr_"' is"_$C(13,10)
- ...   Set Msg=Msg_"momenteel in gebruik. Probeer later eens opnieuw."
+ ...   Set ProcessID = $$$cmReceptie.GeefProcessIDVanBuffer(RGID,VolgNr)
+ ...   Set UserID = $$$cmReceptie.GeefUserIDVanBuffer(RGID,VolgNr)
+ ...   Set Msg = "De receptiebuffer is geblokkeerd door '"_UserID_"' met proces '"_ProcessID_"'."_$C(13,10)
+ ...   Set Msg=Msg_"Probeer later eens opnieuw."
  ...   Set MApplication.ScreenCursor=$$$crDefault
  ...   Do MApplication.MessageBox(Msg,..Form.Caption,$$$MBICONINFORMATION)
  ...   Set MApplication.ScreenCursor=$$$crHourGlass
Index: UI/MB/UGLYPicking/dlgReceptieTBH.cls.xml
===================================================================
diff -u -r1074 -r5223
--- UI/MB/UGLYPicking/dlgReceptieTBH.cls.xml	(.../dlgReceptieTBH.cls.xml)	(revision 1074)
+++ UI/MB/UGLYPicking/dlgReceptieTBH.cls.xml	(.../dlgReceptieTBH.cls.xml)	(revision 5223)
@@ -653,9 +653,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 '(##class(UI.MB.UGLYPicking.UserInteractionUtils).GaVerderMetBuffer(..Form,..RGID,..VolgNr)){
+	 Quit 0
+ }
+ 
  ;Interface settings voor buffer (default)
  Do $$$cmReceptie.SetBufferInterface(..RGID,..VolgNr,..KarCode,"",1,0,..AutoPopupAantal)
 
@@ -686,9 +687,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 '(##class(UI.MB.UGLYPicking.UserInteractionUtils).GaVerderMetBuffer(..Form,..RGID,..VolgNr)){
+	 Quit 0
+ }
+ 
  ;Interface settings voor buffer (default)
  Do $$$cmReceptie.SetBufferInterface(..RGID,..VolgNr,..KarCode,"",1,0,..AutoPopupAantal)
 
Index: UI/MB/UGLYPicking/dlgReceptie.cls.xml
===================================================================
diff -u -r5222 -r5223
--- UI/MB/UGLYPicking/dlgReceptie.cls.xml	(.../dlgReceptie.cls.xml)	(revision 5222)
+++ UI/MB/UGLYPicking/dlgReceptie.cls.xml	(.../dlgReceptie.cls.xml)	(revision 5223)
@@ -928,7 +928,7 @@
  Set ..UserID=UserID
 
  ;Buffer locken - single use
- If '(..GaVerderMetBuffer(..RGID,..VolgNr)){
+ If '(##class(UI.MB.UGLYPicking.UserInteractionUtils).GaVerderMetBuffer(..Form,..RGID,..VolgNr)){
 	 Quit 0
  }
  
@@ -973,7 +973,7 @@
  Set ..UserID=UserID
 
  ;Buffer locken - single use
- If '(..GaVerderMetBuffer(..RGID,..VolgNr)){
+ If '(##class(UI.MB.UGLYPicking.UserInteractionUtils).GaVerderMetBuffer(..Form,..RGID,..VolgNr)){
 	 Quit 0
  }
  
@@ -1699,30 +1699,6 @@
 ]]></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: UI/MB/UGLYPicking/UserInteractionUtils.cls.xml
===================================================================
diff -u
--- UI/MB/UGLYPicking/UserInteractionUtils.cls.xml	(revision 0)
+++ UI/MB/UGLYPicking/UserInteractionUtils.cls.xml	(revision 5223)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="UI.MB.UGLYPicking.UserInteractionUtils">
+<IncludeCode>UglyPickingCNTs,KeyCodesCNTs</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GaVerderMetBuffer">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Form,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>
+</Class>
+</Export>