Index: AAPClient/UI/HernoemPalletScherm.pas
===================================================================
diff -u -r337 -r338
--- AAPClient/UI/HernoemPalletScherm.pas	(.../HernoemPalletScherm.pas)	(revision 337)
+++ AAPClient/UI/HernoemPalletScherm.pas	(.../HernoemPalletScherm.pas)	(revision 338)
@@ -80,6 +80,9 @@
            fEnkelDezeDnaCode := edtOudeCode.Text
         end;
       end;
+      if StartsText('K',edtOudeCode.Text) then
+        fEnkelDezeDnaCode := edtOudeCode.Text;
+
       HernoemPallet(edtOudeCode.Text,'');
       if fEnkelDezeDnaCode = '' then
         pcHernoemPallet.ActivePageIndex := 1