Index: AAPClient/UI/PalletScherm.pas
===================================================================
diff -u -r76 -r87
--- AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 76)
+++ AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 87)
@@ -90,9 +90,10 @@
 
       fZoekViaPalletCodeResponse := Service.ZoekViaPalletCode(fZoekViaPalletCodeRequest);
       try
-        if fZoekViaPalletCodeResponse.Header.Status = '200' then
-          Self.ModalResult := mrBestaandePallet
-        else
+        if fZoekViaPalletCodeResponse.Header.Status = '200' then begin
+          UiContext.Toelevering := fZoekViaPalletCodeResponse.DnaCodes[0].Toelevering;
+          Self.ModalResult := mrBestaandePallet;
+        end else
           Self.ModalResult := mrDnaCode;
       finally
         fZoekViaPalletCodeResponse.Free;