Index: AAPClient/UI/HernoemPalletScherm.pas
===================================================================
diff -u -r153 -r154
--- AAPClient/UI/HernoemPalletScherm.pas	(.../HernoemPalletScherm.pas)	(revision 153)
+++ AAPClient/UI/HernoemPalletScherm.pas	(.../HernoemPalletScherm.pas)	(revision 154)
@@ -33,6 +33,10 @@
     procedure btnVorigeClick(Sender: TObject);
     procedure btnVolgendeClick(Sender: TObject);
     procedure btnLaatstClick(Sender: TObject);
+    procedure edtOudeCodeKeyUp(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
+    procedure edtNieuweCodeKeyUp(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
   private
     procedure VulGridMetToeleveringData(DnaCodes: array of DnaCode);
     procedure GridLeegmaken;
@@ -95,6 +99,26 @@
     sgToeleveringData.Row := sgToeleveringData.Row - 1;
 end;
 
+procedure TfmHernoemPalletScherm.edtNieuweCodeKeyUp(Sender: TObject;
+  var Key: Word; Shift: TShiftState);
+begin
+  inherited;
+  if Key = VK_RETURN then begin
+    actVolgende.Execute;
+    Key := 0;
+  end;
+end;
+
+procedure TfmHernoemPalletScherm.edtOudeCodeKeyUp(Sender: TObject;
+  var Key: Word; Shift: TShiftState);
+begin
+  inherited;
+  if Key = VK_RETURN then begin
+    actVolgende.Execute;
+    Key := 0;
+  end;
+end;
+
 function TfmHernoemPalletScherm.HernoemPallet(OudeCode, NieuweCode: string): HernoemPalletResponse;
 var
   Service: DnaCodeServiceSoap;
@@ -111,7 +135,7 @@
     Header.ComputerNaam := FullName();
     Request.Header := Header;
     Request.OudeCode := OudeCode;
-    Request.OudeCode := NieuweCode;
+    Request.NieuweCode := NieuweCode;
 
     Response := Service.HernoemPallet(Request);
     try
@@ -138,9 +162,9 @@
 
 procedure TfmHernoemPalletScherm.FormShow(Sender: TObject);
 begin
-  inherited;
   btnCentraalOnder.Action := actHome;
   btnRechtsOnder.Action := actVolgende;
+  inherited;
 end;
 
 procedure TfmHernoemPalletScherm.VulGridMetToeleveringData(DnaCodes: array of DnaCode);