Index: PlanScan/UI/frameDnaCodes.pas
===================================================================
diff -u -r460 -r461
--- PlanScan/UI/frameDnaCodes.pas	(.../frameDnaCodes.pas)	(revision 460)
+++ PlanScan/UI/frameDnaCodes.pas	(.../frameDnaCodes.pas)	(revision 461)
@@ -45,6 +45,8 @@
     procedure btnKlantEtiketClick(Sender: TObject);
     procedure btnProboxetiketClick(Sender: TObject);
     procedure edtToeleveringEnter(Sender: TObject);
+    procedure edtDnaCodeKeyUp(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
   private
     fcdsDnaCodes: TClientDataset;
     procedure VulDnaCodeGridMetData(DnaCodes: ArrayOfDnaCodeDnaCode);
@@ -271,6 +273,15 @@
   if edtBatch.Text <> '' then ZoekViaBatch();
 end;
 
+procedure TfrmDnaCodes.edtDnaCodeKeyUp(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  if Key = VK_RETURN then begin
+    DnaCodesZoeken();
+    Key := 0;
+  end;
+end;
+
 procedure TfrmDnaCodes.edtToeleveringEnter(Sender: TObject);
 begin
   ZoekveldenLeegmaken();