Index: ProScan/UI/HernoemPalletScherm.pas
===================================================================
diff -u -r396 -r421
--- ProScan/UI/HernoemPalletScherm.pas	(.../HernoemPalletScherm.pas)	(revision 396)
+++ ProScan/UI/HernoemPalletScherm.pas	(.../HernoemPalletScherm.pas)	(revision 421)
@@ -80,9 +80,10 @@
            fEnkelDezeDnaCode := edtOudeCode.Text
         end;
       end;
-      if StartsText('K',edtOudeCode.Text) then
+      if StartsText('K',edtOudeCode.Text) then begin
         fEnkelDezeDnaCode := edtOudeCode.Text;
         lblNieuweCode.Caption := 'Scan nieuwe kaderdeurlocatie';
+      end;
       if fEnkelDezeDnaCode = '' then begin
         HernoemPallet(edtOudeCode.Text,'');
         pcHernoemPallet.ActivePageIndex := 1;
Index: ProScan/UI/HernoemPalletScherm.dfm
===================================================================
diff -u -r396 -r421
--- ProScan/UI/HernoemPalletScherm.dfm	(.../HernoemPalletScherm.dfm)	(revision 396)
+++ ProScan/UI/HernoemPalletScherm.dfm	(.../HernoemPalletScherm.dfm)	(revision 421)
@@ -16,9 +16,9 @@
   end
   object pnlHoofd: TPanel [1]
     Left = 0
-    Top = 57
+    Top = 65
     Width = 480
-    Height = 451
+    Height = 443
     Align = alClient
     BevelOuter = bvNone
     TabOrder = 3
@@ -39,10 +39,10 @@
   end
   object pcHernoemPallet: TPageControl [3]
     Left = 0
-    Top = 57
+    Top = 65
     Width = 480
-    Height = 451
-    ActivePage = tsOudeCode
+    Height = 443
+    ActivePage = tsNieuweCode
     Align = alClient
     Style = tsFlatButtons
     TabOrder = 2