Index: AAPClient/UI/DnaCodeReedsGescandScherm.pas
===================================================================
diff -u -r172 -r173
--- AAPClient/UI/DnaCodeReedsGescandScherm.pas	(.../DnaCodeReedsGescandScherm.pas)	(revision 172)
+++ AAPClient/UI/DnaCodeReedsGescandScherm.pas	(.../DnaCodeReedsGescandScherm.pas)	(revision 173)
@@ -108,6 +108,8 @@
 begin
   lblScanPallet.Visible := IsVisible;
   edtPallet.Visible := IsVisible;
+  if IsVisible then
+    edtPallet.SetFocus;
 end;
 
 procedure TfmDnaCodeReedsGescandScherm.Verplaatsen;var