Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r240 -r241
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 240)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 241)
@@ -58,7 +58,7 @@
 procedure TfmDnaCodeScherm.actHomeExecute(Sender: TObject);
 begin
   inherited;
-  (Self.Parent.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrHome);
+  (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrHome);
 end;
 
 procedure TfmDnaCodeScherm.actPalletExecute(Sender: TObject);
@@ -82,7 +82,7 @@
       Self.ModalResult := mrDnaCode;
     end;
   end;
-  (Self.Parent.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult);
+  (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult);
 end;
 
 function TfmDnaCodeScherm.BepaalAantalLadesOpHuidigePallet: integer;
@@ -131,7 +131,7 @@
     UiContext.InfoLogSchermToonGescand := true;
     Self.ModalResult := mrInfoLog;
   end;
-  (Self.Parent.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult);
+  (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult);
 end;
 
 procedure TfmDnaCodeScherm.actAfrondenExecute(Sender: TObject);
@@ -156,7 +156,7 @@
     end;
 
   end;
-  (Self.Parent.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult);
+  (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult);
 end;
 
 procedure TfmDnaCodeScherm.edtDnaCodeKeyPress(Sender: TObject; var Key: Char);
@@ -238,7 +238,7 @@
   finally
     Response.Free;
   end;
-  (Self.Parent.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult);
+  (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult);
 end;
 
 procedure TfmDnaCodeScherm.PalletBijwerken(Status: DnaCodeStatus;
@@ -258,7 +258,7 @@
   finally
     Response.Free;
   end;
-  (Self.Parent.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult);
+  (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult);
 end;
 
 procedure TfmDnaCodeScherm.ToeleveringDataOphalen;
@@ -281,7 +281,6 @@
   finally
     Response.Free;
   end;
-  (Self.Parent.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult);
 end;
 
 procedure TfmDnaCodeScherm.VerwerkMogelijkePopups(EersteDnaCode: DnaCode);
@@ -346,7 +345,7 @@
   finally
     Response.Free;
   end;
-  (Self.Parent.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult);
+  (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult);
 end;
 
 end.