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