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();
Index: PlanScan/UI/frameDnaCodes.dfm
===================================================================
diff -u -r459 -r461
--- PlanScan/UI/frameDnaCodes.dfm	(.../frameDnaCodes.dfm)	(revision 459)
+++ PlanScan/UI/frameDnaCodes.dfm	(.../frameDnaCodes.dfm)	(revision 461)
@@ -395,6 +395,7 @@
       Height = 21
       TabOrder = 1
       OnEnter = edtToeleveringEnter
+      OnKeyUp = edtDnaCodeKeyUp
     end
     object edtPallet: TEdit
       Left = 103
@@ -403,6 +404,7 @@
       Height = 21
       TabOrder = 2
       OnEnter = edtToeleveringEnter
+      OnKeyUp = edtDnaCodeKeyUp
     end
     object edtToelevering: TEdit
       Left = 198
@@ -411,6 +413,7 @@
       Height = 21
       TabOrder = 3
       OnEnter = edtToeleveringEnter
+      OnKeyUp = edtDnaCodeKeyUp
     end
     object edtKlantNummer: TEdit
       Left = 293
@@ -419,6 +422,7 @@
       Height = 21
       TabOrder = 4
       OnEnter = edtToeleveringEnter
+      OnKeyUp = edtDnaCodeKeyUp
     end
     object edtOrderNummer: TEdit
       Left = 388
@@ -427,6 +431,7 @@
       Height = 21
       TabOrder = 5
       OnEnter = edtToeleveringEnter
+      OnKeyUp = edtDnaCodeKeyUp
     end
     object edtLadeCode: TEdit
       Left = 483
@@ -435,6 +440,7 @@
       Height = 21
       TabOrder = 6
       OnEnter = edtToeleveringEnter
+      OnKeyUp = edtDnaCodeKeyUp
     end
     object edtBatch: TEdit
       Left = 578
@@ -443,6 +449,7 @@
       Height = 21
       TabOrder = 7
       OnEnter = edtToeleveringEnter
+      OnKeyUp = edtDnaCodeKeyUp
     end
   end
   object dsDnaCodes: TDataSource