Index: AAPClient/UI/HernoemPalletScherm.pas
===================================================================
diff -u -r335 -r336
--- AAPClient/UI/HernoemPalletScherm.pas	(.../HernoemPalletScherm.pas)	(revision 335)
+++ AAPClient/UI/HernoemPalletScherm.pas	(.../HernoemPalletScherm.pas)	(revision 336)
@@ -72,17 +72,20 @@
   if pcHernoemPallet.ActivePageIndex = 0 then begin
     fEnkelDezeDnaCode := '';
     if TCommonFunctions.IsKaderdeurLocatie(edtOudeCode.Text) then begin
-      ToonPopupScherm('Kaderdeurlocaties kunnen niet ingescand worden.','Probeer opnieuw','')
-    end else if ((length(edtOudeCode.Text)=7) and CheckBestaandeDnaCode(edtOudeCode.Text)) then begin
-      if ToonPopupScherm('Enkel code ''' + TCommonFunctions.VerkorteDnaCode(edtOudeCode.Text) + ''' verwerken?','Ja','Nee',14,6,7) = mrYes then begin
-         fEnkelDezeDnaCode := edtOudeCode.Text
+      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 ToonPopupScherm('Enkel code ''' + TCommonFunctions.VerkorteDnaCode(edtOudeCode.Text) + ''' verwerken?','Ja','Nee',14,6,7) = mrYes then begin
+           fEnkelDezeDnaCode := edtOudeCode.Text
+        end;
       end;
+      HernoemPallet(edtOudeCode.Text,'');
+      if fEnkelDezeDnaCode = '' then
+        pcHernoemPallet.ActivePageIndex := 1
+      else
+        pcHernoemPallet.ActivePageIndex := 2;
     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