Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r624 -r635
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 624)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 635)
@@ -28,7 +28,6 @@
     lblAantalOpPallet: TLabel;
     procedure FormShow(Sender: TObject);
     procedure actPalletExecute(Sender: TObject);
-    procedure actHomeExecute(Sender: TObject);
     procedure actAfrondenExecute(Sender: TObject);
     procedure edtDnaCodeKeyPress(Sender: TObject; var Key: Char);
     procedure FormCreate(Sender: TObject);
@@ -82,7 +81,6 @@
 procedure TfmDnaCodeScherm.FormShow(Sender: TObject);
 begin
   btnLinksOnder.Action := actPallet;
-  btnCentraalOnder.Action := actHome;
   btnRechtsOnder.Action := actAfronden;
   edtDnaCode.Text := '';
   lblHuidigePalletData.Caption := UiContext.Pallet;
@@ -114,18 +112,6 @@
   inherited;
 end;
 
-procedure TfmDnaCodeScherm.actHomeExecute(Sender: TObject);
-begin
-  inherited;
-  if UiContext.Modus = modusVhoss then begin
-    UiContext.Pallet := '';
-    UiContext.Toelevering := '';
-    UiContext.BatchId := '';
-  end;
-  PostMessage(Self.Handle,WM_Close,0,0);
-  (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrHome);
-end;
-
 procedure TfmDnaCodeScherm.actPalletExecute(Sender: TObject);
 var
   fAantalLadesOpHuidigePallet: integer;
@@ -599,7 +585,6 @@
     pnlLinksOnder.Color := $001717CD;
     actPallet.OnExecute := actPalletExecute;
     pnlCentraalOnder.Color := $001717CD;
-    actHome.OnExecute := actHomeExecute;
     pnlRechtsOnder.Color := $001717CD;
     actAfronden.OnExecute := actAfrondenExecute;
   end else begin
@@ -608,7 +593,6 @@
     pnlRechtsOnder.Color := clGray;
     actAfronden.OnExecute := nil;
     actPallet.OnExecute := nil;
-    actHome.OnExecute := nil;
   end;
   Repaint;
 end;