Index: AAPClient/UI/PalletScherm.pas
===================================================================
diff -u -r314 -r327
--- AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 314)
+++ AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 327)
@@ -163,7 +163,10 @@
 
 procedure TfmPalletScherm.SetContext;
 begin
-  UiContext.Pallet := edtPallet.Text;
+  if IsKaderdeurLocatie(edtPallet.Text) then
+    UiContext.Pallet := edtPallet.Text
+  else
+    UiContext.Pallet := UpperCase(edtPallet.Text);
 end;
 
 procedure TfmPalletScherm.SetModus(GescandeInput: string);
@@ -179,7 +182,7 @@
 function TfmPalletScherm.IsKaderdeurLocatie(GescandeInput: string): boolean;
 begin
   result := false;
-  if TRegEx.IsMatch(UpperCase(GescandeInput),'10K..T0.') then
+  if TRegEx.IsMatch(UpperCase(GescandeInput),'10[kK]..[tT]0.') then
     result := true;
 end;