Index: AAPClient/UI/HernoemPalletScherm.pas
===================================================================
diff -u -r250 -r251
--- AAPClient/UI/HernoemPalletScherm.pas	(.../HernoemPalletScherm.pas)	(revision 250)
+++ AAPClient/UI/HernoemPalletScherm.pas	(.../HernoemPalletScherm.pas)	(revision 251)
@@ -77,6 +77,10 @@
       end;
     end;
     HernoemPallet(edtOudeCode.Text,'');
+    if fEnkelDezeDnaCode = '' then
+      pcHernoemPallet.ActivePageIndex := 1
+    else
+      pcHernoemPallet.ActivePageIndex := 2;
   end else if pcHernoemPallet.ActivePageIndex = 1 then begin
     pcHernoemPallet.ActivePageIndex := 2;
   end else if pcHernoemPallet.ActivePageIndex = 2 then begin