Index: AAPClient/UI/DnaCodeReedsGescandScherm.pas
===================================================================
diff -u -r240 -r241
--- AAPClient/UI/DnaCodeReedsGescandScherm.pas	(.../DnaCodeReedsGescandScherm.pas)	(revision 240)
+++ AAPClient/UI/DnaCodeReedsGescandScherm.pas	(.../DnaCodeReedsGescandScherm.pas)	(revision 241)
@@ -42,7 +42,7 @@
 procedure TfmDnaCodeReedsGescandScherm.btnTerugClick(Sender: TObject);
 begin
   inherited;
-  (Self.Parent.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrDnaCode);
+  (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrDnaCode);
 end;
 
 procedure TfmDnaCodeReedsGescandScherm.btnVerplaatsenClick(Sender: TObject);
@@ -103,7 +103,7 @@
     Response.Free;
   end;
   if Self.ModalResult = mrDnaCode then
-    (Self.Parent.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrDnaCode);
+    (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrDnaCode);
 end;
 
 procedure TfmDnaCodeReedsGescandScherm.Wegnemen;
@@ -118,7 +118,7 @@
   finally
     Response.Free;
   end;
-  (Self.Parent.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrDnaCode);
+  (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrDnaCode);
 end;
 
 end.