Index: AAPClient/UI/BestaandePalletScherm.pas
===================================================================
diff -u -r77 -r86
--- AAPClient/UI/BestaandePalletScherm.pas	(.../BestaandePalletScherm.pas)	(revision 77)
+++ AAPClient/UI/BestaandePalletScherm.pas	(.../BestaandePalletScherm.pas)	(revision 86)
@@ -54,7 +54,7 @@
 procedure TfmBestaandePalletScherm.btnReworkClick(Sender: TObject);
 begin
   inherited;
-  //
+  Self.ModalResult := mrDnaCode;
 end;
 
 procedure TfmBestaandePalletScherm.FormShow(Sender: TObject);