Index: AAPClient/UI/HernoemPalletScherm.pas
===================================================================
diff -u -r242 -r250
--- AAPClient/UI/HernoemPalletScherm.pas	(.../HernoemPalletScherm.pas)	(revision 242)
+++ AAPClient/UI/HernoemPalletScherm.pas	(.../HernoemPalletScherm.pas)	(revision 250)
@@ -72,7 +72,7 @@
   if pcHernoemPallet.ActivePageIndex = 0 then begin
     fEnkelDezeDnaCode := '';
     if ((length(edtOudeCode.Text)=7) and CheckBestaandeDnaCode(edtOudeCode.Text)) then begin
-      if ToonPopupScherm('Enkel code ''' + edtOudeCode.Text + ''' verwerken?','Ja','Nee',14,6,7) = mrYes then begin
+      if ToonPopupScherm('Enkel code ''' + TCommonFunctions.VerkorteDnaCode(edtOudeCode.Text) + ''' verwerken?','Ja','Nee',14,6,7) = mrYes then begin
          fEnkelDezeDnaCode := edtOudeCode.Text
       end;
     end;