Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r241 -r242
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 241)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 242)
@@ -58,6 +58,7 @@
 procedure TfmDnaCodeScherm.actHomeExecute(Sender: TObject);
 begin
   inherited;
+  PostMessage(Self.Handle,WM_Close,0,0);
   (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrHome);
 end;
 
@@ -82,6 +83,7 @@
       Self.ModalResult := mrDnaCode;
     end;
   end;
+  PostMessage(Self.Handle,WM_Close,0,0);
   (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult);
 end;
 
@@ -131,6 +133,7 @@
     UiContext.InfoLogSchermToonGescand := true;
     Self.ModalResult := mrInfoLog;
   end;
+  PostMessage(Self.Handle,WM_Close,0,0);
   (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult);
 end;
 
@@ -156,6 +159,7 @@
     end;
 
   end;
+  PostMessage(Self.Handle,WM_Close,0,0);
   (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult);
 end;
 
@@ -238,6 +242,7 @@
   finally
     Response.Free;
   end;
+  PostMessage(Self.Handle,WM_Close,0,0);
   (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult);
 end;
 
@@ -258,6 +263,7 @@
   finally
     Response.Free;
   end;
+  PostMessage(Self.Handle,WM_Close,0,0);
   (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult);
 end;
 
@@ -345,6 +351,7 @@
   finally
     Response.Free;
   end;
+  PostMessage(Self.Handle,WM_Close,0,0);
   (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult);
 end;