Index: UI/MB/UGLYPicking/UserInteractionUtils.cls.xml =================================================================== diff -u -r5223 -r5236 --- UI/MB/UGLYPicking/UserInteractionUtils.cls.xml (.../UserInteractionUtils.cls.xml) (revision 5223) +++ UI/MB/UGLYPicking/UserInteractionUtils.cls.xml (.../UserInteractionUtils.cls.xml) (revision 5236) @@ -21,7 +21,15 @@ 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) + Do $$$cmReceptie.GeefVrijBuffer(RGID,VolgNr) + + Set ProcessID = $$$cmReceptie.GeefProcessIDVanBuffer(RGID,VolgNr) + If ProcessID = "" { + Do pdaMsgBox^vhVisual(Form.Caption,"Proces is beƫindigd, u kan nu de receptiebuffer gebruiken.",$$$MBICONINFORMATION,1) + }Else{ + Set GaVerder = 0 + Do pdaMsgBox^vhVisual(Form.Caption,"Proces kon niet beƫindigd worden, u kan de receptiebuffer niet gebruiken.",$$$MBICONEXCLAMATION,1) + } } } If GaVerder {