Index: AAPClient/UI/PalletScherm.pas
===================================================================
diff -u -r37 -r38
--- AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 37)
+++ AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 38)
@@ -62,7 +62,8 @@
     try
       if fValideerPalletCodeResponse.Header.Status <> '200' then begin
         Self.ModalResult := mrRetry;
-        ToonPopupScherm(fValideerPalletCodeResponse.Header.Omschrijving, 'Scan opnieuw')
+        ToonPopupScherm(fValideerPalletCodeResponse.Header.Omschrijving, 'Scan opnieuw');
+        edtPallet.Text := '';
       end else begin
         Self.ModalResult := mrOk;
       end;
@@ -99,8 +100,6 @@
 
   end;
 
-
-  edtPallet.Text := '';
 end;
 
 procedure TfmPalletScherm.edtPalletKeyPress(Sender: TObject; var Key: Char);
@@ -114,6 +113,8 @@
   btnLinksOnder.Action := nil;
   btnCentraalOnder.Action := actHome;
   btnRechtsOnder.Action := actVolgende;
+  edtPallet.Text := '';
+  ActiveControl := edtPallet;
   inherited;
 
 end;