Index: ProScan/UI/HernoemPalletScherm.pas
===================================================================
diff -u -r421 -r467
--- ProScan/UI/HernoemPalletScherm.pas	(.../HernoemPalletScherm.pas)	(revision 421)
+++ ProScan/UI/HernoemPalletScherm.pas	(.../HernoemPalletScherm.pas)	(revision 467)
@@ -83,6 +83,7 @@
       if StartsText('K',edtOudeCode.Text) then begin
         fEnkelDezeDnaCode := edtOudeCode.Text;
         lblNieuweCode.Caption := 'Scan nieuwe kaderdeurlocatie';
+        edtNieuweCode.CharCase := TEditCharCase(ecLowerCase);
       end;
       if fEnkelDezeDnaCode = '' then begin
         HernoemPallet(edtOudeCode.Text,'');