Index: ProScan/UI/PalletScherm.pas
===================================================================
diff -u -r404 -r426
--- ProScan/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 404)
+++ ProScan/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 426)
@@ -63,7 +63,10 @@
     try
       if fZoekViaPalletCodeResponse.Header.Status = '200' then begin
         UiContext.Toelevering := fZoekViaPalletCodeResponse.DnaCodes[0].Toelevering;
-        Self.ModalResult := mrBestaandePallet;
+        if fZoekViaPalletCodeResponse.MeerdereToeleveringenToegestaan then
+          Self.ModalResult := mrBestaandePallet
+        else
+          Self.ModalResult := mrDnaCode;
       end else begin
         //enkel leegmaken indien de huidige toelevering al compleet is
         fZoekViaToeleveringResponse := TAgent.Create(UiContext).ZoekViaToelevering(UiContext.Toelevering);