Index: ProScan/UI/DnaCodeSchermVoorOnderdelen.pas
===================================================================
diff -u -r680 -r681
--- ProScan/UI/DnaCodeSchermVoorOnderdelen.pas	(.../DnaCodeSchermVoorOnderdelen.pas)	(revision 680)
+++ ProScan/UI/DnaCodeSchermVoorOnderdelen.pas	(.../DnaCodeSchermVoorOnderdelen.pas)	(revision 681)
@@ -27,10 +27,10 @@
     imgBlumXs: TImage;
     lblAantalOpPallet: TLabel;
     procedure FormShow(Sender: TObject);
+    procedure actTerugExecute(Sender: TObject);
     procedure actPalletExecute(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure btnInfoClick(Sender: TObject);
-    procedure FormActivate(Sender: TObject);
   private
     fImagesScherm: TImagesScherm;
     procedure ToeleveringDataOphalen();
@@ -53,12 +53,6 @@
 
 {$R *.dfm}
 
-procedure TfmDnaCodeSchermVoorOnderdelen.FormActivate(Sender: TObject);
-begin
-  inherited;
-  ActiveControl := edtDnaCode;
-end;
-
 procedure TfmDnaCodeSchermVoorOnderdelen.FormCreate(Sender: TObject);
 begin
   inherited;
@@ -68,8 +62,8 @@
 procedure TfmDnaCodeSchermVoorOnderdelen.FormShow(Sender: TObject);
 begin
   btnLinksOnder.Action := actPallet;
+  btnCentraalOnder.Action := actTerug;
   btnRechtsOnder.Action := actAfronden;
-  edtDnaCode.Text := '';
   lblHuidigePalletData.Caption := UiContext.Pallet;
   lblToeleveringData.Caption := UiContext.Toelevering;
   lblAantalGescand.Caption := '';
@@ -93,10 +87,16 @@
     imgBlumXs.Visible := false;
   end;
   ZetIcoontjesBovenaan;
-  edtDnaCode.SetFocus;
   inherited;
 end;
 
+procedure TfmDnaCodeSchermVoorOnderdelen.actTerugExecute(Sender: TObject);
+begin
+  inherited;
+  PostMessage(Self.Handle,WM_Close,0,0);
+  (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrOnderdelen);
+end;
+
 procedure TfmDnaCodeSchermVoorOnderdelen.actPalletExecute(Sender: TObject);
 var
   fAantalLadesOpHuidigePallet: integer;
@@ -155,6 +155,8 @@
 procedure TfmDnaCodeSchermVoorOnderdelen.btnInfoClick(Sender: TObject);
 begin
   inherited;
+  UiContext.VanuitOnderdelen := true;
+
   if UiContext.Modus = modusVHOSS then begin
     UiContext.InfoLogSchermToonGescand := true;
     Self.ModalResult := mrInfoLog;