Index: AAPClient/UI/DnaCodeReedsGescandScherm.dfm
===================================================================
diff -u -r239 -r394
--- AAPClient/UI/DnaCodeReedsGescandScherm.dfm	(.../DnaCodeReedsGescandScherm.dfm)	(revision 239)
+++ AAPClient/UI/DnaCodeReedsGescandScherm.dfm	(.../DnaCodeReedsGescandScherm.dfm)	(revision 394)
@@ -47,7 +47,6 @@
     Height = 47
     Alignment = taCenter
     AutoSize = False
-    CharCase = ecUpperCase
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clWindowText
     Font.Height = -27
Index: AAPClient/UI/DnaCodeReedsGescandScherm.pas
===================================================================
diff -u -r315 -r394
--- AAPClient/UI/DnaCodeReedsGescandScherm.pas	(.../DnaCodeReedsGescandScherm.pas)	(revision 315)
+++ AAPClient/UI/DnaCodeReedsGescandScherm.pas	(.../DnaCodeReedsGescandScherm.pas)	(revision 394)
@@ -79,6 +79,11 @@
   edtPallet.Visible := False;
   lblScanPallet.Visible := False;
   lblBestaandeDnaCode.Caption := 'Bestaande DNA-Code: '+TCommonFunctions.VerkorteDnaCode(UiContext.LaatsteDnaCode);
+  if UiContext.Modus = modusKAD then begin
+      btnWegnemen.Caption := StringReplace(btnWegnemen.Caption,'pallet','locatie',[rfReplaceAll]);
+      btnVerplaatsen.Caption := StringReplace(btnWegnemen.Caption,'pallet','locatie',[rfReplaceAll]);
+      lblScanPallet.Caption := StringReplace(btnWegnemen.Caption,'pallet','locatie',[rfReplaceAll]);
+  end;
 end;
 
 procedure TfmDnaCodeReedsGescandScherm.SetPalletControlsVisibility(
@@ -95,6 +100,8 @@
 var
   Response: HernoemPalletResponse;
 begin
+  if not TCommonFunctions.IsKaderdeurLocatie(edtPallet.Text) then
+    edtPallet.Text := UpperCase(edtPallet.Text);
   Response := TAgent.Create(UiContext).HernoemPallet(UiContext.Pallet, edtPallet.Text, UiContext.LaatsteDnaCode);
   try
     if Response.Header.Status <> '200' then begin