Index: UI/MB/UGLYPicking/dlgReceptie.cls.xml
===================================================================
diff -u -r5135 -r5137
--- UI/MB/UGLYPicking/dlgReceptie.cls.xml	(.../dlgReceptie.cls.xml)	(revision 5135)
+++ UI/MB/UGLYPicking/dlgReceptie.cls.xml	(.../dlgReceptie.cls.xml)	(revision 5137)
@@ -1120,7 +1120,6 @@
 
  $$$UIMakovaBtnClickToLog
  Set ..Form.ModalResult=$$$mrOk
- Do ##class(BL.MB.UGLYPicking.Receptie).ToeleveringIngescand(..RGID,..VolgNr)
 
  ;End of user code
  s Args=$lb(Sender)
Index: BL/MB/UGLYPicking/Receptie.cls.xml
===================================================================
diff -u -r5114 -r5137
--- BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 5114)
+++ BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 5137)
@@ -532,6 +532,10 @@
 	Else  Do
 	. Set Result=..CloseAndMailBuffer(bfrRGID,bfrVolgNr,HandleOnly)
 	
+	If ($LI(Result) = 1)
+	{
+		Do ##class(BL.MB.UGLYPicking.Receptie).ToeleveringIngescand(bfrRGID,bfrVolgNr)	
+	}
 	Quit Result
 ]]></Implementation>
 </Method>