Index: AAPClient/UI/HernoemPalletScherm.dfm
===================================================================
diff -u -r336 -r340
--- AAPClient/UI/HernoemPalletScherm.dfm	(.../HernoemPalletScherm.dfm)	(revision 336)
+++ AAPClient/UI/HernoemPalletScherm.dfm	(.../HernoemPalletScherm.dfm)	(revision 340)
@@ -1208,7 +1208,7 @@
         Width = 345
         Height = 47
         Alignment = taCenter
-        CharCase = ecUpperCase
+        CharCase = ecLowerCase
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
         Font.Height = -32
Index: AAPClient/UI/HernoemPalletScherm.pas
===================================================================
diff -u -r339 -r340
--- AAPClient/UI/HernoemPalletScherm.pas	(.../HernoemPalletScherm.pas)	(revision 339)
+++ AAPClient/UI/HernoemPalletScherm.pas	(.../HernoemPalletScherm.pas)	(revision 340)
@@ -92,7 +92,14 @@
   end else if pcHernoemPallet.ActivePageIndex = 1 then begin
     pcHernoemPallet.ActivePageIndex := 2;
   end else if pcHernoemPallet.ActivePageIndex = 2 then begin
-    HernoemPallet(edtOudeCode.Text, edtNieuweCode.Text);
+    if StartsText('K',edtOudeCode.Text) and not (TCommonFunctions.IsKaderdeurLocatie(edtNieuweCode.Text)) then begin
+      ToonPopupScherm('Hier moet een kaderdeurlocatie ingescand worden.','Probeer opnieuw','');
+      edtNieuweCode.Text := '';
+    end else begin
+      HernoemPallet(edtOudeCode.Text, edtNieuweCode.Text);
+      edtOudeCode.Text := '';
+      edtNieuweCode.Text := '';
+    end;
   end;
 end;
 
@@ -166,6 +173,9 @@
 var
   Response: HernoemPalletResponse;
 begin
+  if not TCommonFunctions.IsKaderdeurLocatie(NieuweCode) then
+    NieuweCode := upperCase(NieuweCode);
+
   Response := TAgent.Create(UiContext).HernoemPallet(OudeCode, NieuweCode, fEnkelDezeDnaCode);
   try
     if Response.Header.Status <> '200' then begin