Index: AAPClient/UI/PalletScherm.pas
===================================================================
diff -u -r44 -r57
--- AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 44)
+++ AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 57)
@@ -86,9 +86,13 @@
       fZoekViaPalletCodeResponse := Service.ZoekViaPalletCode(fZoekViaPalletCodeRequest);
       try
         if fZoekViaPalletCodeResponse.Header.Status = '200' then begin
-          Self.ModalResult := mrNo;
+          if Length(fZoekViaPalletCodeResponse.DnaCodes) > 0 then begin
+            Self.ModalResult := mrNo;
+          end else begin
+            Self.ModalResult := mrOk;
+          end;
         end else begin
-          Self.ModalResult := mrOk;
+          Self.ModalResult := mrRetry;
         end;
       finally
         fZoekViaPalletCodeResponse.Free;