Index: AAPClient/UI/HernoemPalletScherm.pas
===================================================================
diff -u -r336 -r337
--- AAPClient/UI/HernoemPalletScherm.pas	(.../HernoemPalletScherm.pas)	(revision 336)
+++ AAPClient/UI/HernoemPalletScherm.pas	(.../HernoemPalletScherm.pas)	(revision 337)
@@ -55,7 +55,7 @@
 implementation
 
 uses
-  UiContext, Agent, CommonFunctions, ProScanMain;
+  UiContext, Agent, CommonFunctions, ProScanMain, StrUtils;
 
 {$R *.dfm}
 
@@ -75,7 +75,7 @@
       ToonPopupScherm('Kaderdeurlocaties kunnen niet ingescand worden.','Probeer opnieuw','');
       edtOudeCode.Text := '';
     end else begin
-      if ((length(edtOudeCode.Text)=7) and CheckBestaandeDnaCode(edtOudeCode.Text)) then begin
+      if ((length(edtOudeCode.Text)=7) and CheckBestaandeDnaCode(edtOudeCode.Text) and not(StartsText('K',edtOudeCode.Text))) then begin
         if ToonPopupScherm('Enkel code ''' + TCommonFunctions.VerkorteDnaCode(edtOudeCode.Text) + ''' verwerken?','Ja','Nee',14,6,7) = mrYes then begin
            fEnkelDezeDnaCode := edtOudeCode.Text
         end;