Index: AAPClient/UI/PalletScherm.pas
===================================================================
diff -u -r242 -r244
--- AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 242)
+++ AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 244)
@@ -47,6 +47,7 @@
 var
   fValideerPalletCodeResponse: ValideerPalletCodeResponse;
   fZoekViaPalletCodeResponse: ZoekViaPalletCodeResponse;
+  fZoekViaToeleveringResponse: ZoekViaToeleveringResponse;
   fPalletGevalideerd: boolean;
 begin
   fPalletGevalideerd := false;
@@ -74,7 +75,10 @@
         UiContext.Toelevering := fZoekViaPalletCodeResponse.DnaCodes[0].Toelevering;
         Self.ModalResult := mrBestaandePallet;
       end else begin
-        UiContext.Toelevering := '';
+        //enkel leegmaken indien de huidige toelevering al compleet is
+        fZoekViaToeleveringResponse := TAgent.Create(UiContext).ZoekViaToelevering(UiContext.Toelevering);
+        if fZoekViaToeleveringResponse.AantalInToelevering = fZoekViaToeleveringResponse.AantalReedsGescand then
+          UiContext.Toelevering := '';
         Self.ModalResult := mrDnaCode;
       end;
     finally