Index: ProScan/UI/OnderdelenScherm.pas
===================================================================
diff -u -r679 -r681
--- ProScan/UI/OnderdelenScherm.pas	(.../OnderdelenScherm.pas)	(revision 679)
+++ ProScan/UI/OnderdelenScherm.pas	(.../OnderdelenScherm.pas)	(revision 681)
@@ -15,6 +15,7 @@
     procedure FormShow(Sender: TObject);
     procedure actHomeExecute(Sender: TObject);
     procedure actVolgendeExecute(Sender: TObject);
+    procedure actTerugExecute(Sender: TObject);
     procedure GenereerTbpCodeVoorOnderdelen;
     procedure edtToeleveringKeyUp(Sender: TObject; var Key: Word;
       Shift: TShiftState);
@@ -46,7 +47,7 @@
   fAgent: TAgent;
   fZoekViaToeleveringResponse: ZoekViaToeleveringResponse;
 begin
-  Self.ModalResult := mrDnaCode;
+  Self.ModalResult := mrDnaCodeVoorOnderdelen;
 
   fAgent := TAgent.Create(UiContext);
   fZoekViaToeleveringResponse := fAgent.ZoekViaToelevering(edtToelevering.Text);
@@ -67,6 +68,13 @@
   (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult);
 end;
 
+procedure TfmOnderdelenScherm.actTerugExecute(Sender: TObject);
+begin
+  inherited;
+  PostMessage(Self.Handle,WM_Close,0,0);
+  (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrPallet);
+end;
+
 procedure TfmOnderdelenScherm.GenereerTbpCodeVoorOnderdelen;
 var
   fGeefVolgendeTbpCodeResponse: GeefVolgendeTbpCodeResponse;
@@ -108,7 +116,7 @@
 
 procedure TfmOnderdelenScherm.FormShow(Sender: TObject);
 begin
-  btnLinksOnder.Action := nil;
+  btnLinksOnder.Action := actTerug;
   btnCentraalOnder.Action := actHome;
   btnRechtsOnder.Action := actVolgende;
   edtToelevering.Text := '';