Index: AAPClient/UI/BestaandePalletScherm.pas
===================================================================
diff -u -r240 -r241
--- AAPClient/UI/BestaandePalletScherm.pas	(.../BestaandePalletScherm.pas)	(revision 240)
+++ AAPClient/UI/BestaandePalletScherm.pas	(.../BestaandePalletScherm.pas)	(revision 241)
@@ -39,13 +39,13 @@
 begin
   inherited;
   UiContext.Toelevering := '';
-  (Self.Parent.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrDnaCode);
+  (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrDnaCode);
 end;
 
 procedure TfmBestaandePalletScherm.btnHuidigeToeleveringClick(Sender: TObject);
 begin
   inherited;
-  (Self.Parent.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrDnaCode);
+  (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrDnaCode);
 end;
 
 procedure TfmBestaandePalletScherm.btnReworkClick(Sender: TObject);
@@ -57,13 +57,13 @@
     UiContext.Toelevering := '';
   end;
 
-  (Self.Parent.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrDnaCode);
+  (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrDnaCode);
 end;
 
 procedure TfmBestaandePalletScherm.btnTerugClick(Sender: TObject);
 begin
   inherited;
-  (Self.Parent.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrPallet);
+  (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrPallet);
 end;
 
 procedure TfmBestaandePalletScherm.FormShow(Sender: TObject);