Index: ProScan/UI/HernoemPalletScherm.dfm
===================================================================
diff -u -r421 -r467
--- ProScan/UI/HernoemPalletScherm.dfm	(.../HernoemPalletScherm.dfm)	(revision 421)
+++ ProScan/UI/HernoemPalletScherm.dfm	(.../HernoemPalletScherm.dfm)	(revision 467)
@@ -602,6 +602,10 @@
       Caption = 'tsResultaat'
       ImageIndex = 1
       TabVisible = False
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       object sgToeleveringData: TStringGrid
         Left = 4
         Top = 18
@@ -1208,7 +1212,7 @@
         Width = 345
         Height = 47
         Alignment = taCenter
-        CharCase = ecLowerCase
+        CharCase = ecUpperCase
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
         Font.Height = -32
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,'');