Index: AAPClient/UI/DnaCodeReedsGescandScherm.pas
===================================================================
diff -u -r241 -r242
--- AAPClient/UI/DnaCodeReedsGescandScherm.pas	(.../DnaCodeReedsGescandScherm.pas)	(revision 241)
+++ AAPClient/UI/DnaCodeReedsGescandScherm.pas	(.../DnaCodeReedsGescandScherm.pas)	(revision 242)
@@ -42,6 +42,7 @@
 procedure TfmDnaCodeReedsGescandScherm.btnTerugClick(Sender: TObject);
 begin
   inherited;
+  PostMessage(Self.Handle,WM_Close,0,0);
   (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrDnaCode);
 end;
 
@@ -102,8 +103,10 @@
   finally
     Response.Free;
   end;
-  if Self.ModalResult = mrDnaCode then
+  if Self.ModalResult = mrDnaCode then begin
+    PostMessage(Self.Handle,WM_Close,0,0);
     (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrDnaCode);
+  end;
 end;
 
 procedure TfmDnaCodeReedsGescandScherm.Wegnemen;
@@ -118,6 +121,7 @@
   finally
     Response.Free;
   end;
+  PostMessage(Self.Handle,WM_Close,0,0);
   (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrDnaCode);
 end;