Index: AAPClient/UI/HernoemPalletScherm.pas
===================================================================
diff -u -r338 -r339
--- AAPClient/UI/HernoemPalletScherm.pas	(.../HernoemPalletScherm.pas)	(revision 338)
+++ AAPClient/UI/HernoemPalletScherm.pas	(.../HernoemPalletScherm.pas)	(revision 339)
@@ -83,16 +83,15 @@
       if StartsText('K',edtOudeCode.Text) then
         fEnkelDezeDnaCode := edtOudeCode.Text;
 
-      HernoemPallet(edtOudeCode.Text,'');
-      if fEnkelDezeDnaCode = '' then
-        pcHernoemPallet.ActivePageIndex := 1
-      else
+      if fEnkelDezeDnaCode = '' then begin
+        HernoemPallet(edtOudeCode.Text,'');
+        pcHernoemPallet.ActivePageIndex := 1;
+      end else
         pcHernoemPallet.ActivePageIndex := 2;
     end;
   end else if pcHernoemPallet.ActivePageIndex = 1 then begin
     pcHernoemPallet.ActivePageIndex := 2;
   end else if pcHernoemPallet.ActivePageIndex = 2 then begin
-
     HernoemPallet(edtOudeCode.Text, edtNieuweCode.Text);
   end;
 end;