Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r542 -r543
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 542)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 543)
@@ -772,6 +772,7 @@
     if fZoekViaPalletCodeResponse.Header.Status = '200' then begin
       DnaCodes := fZoekViaPalletCodeResponse.DnaCodes;
     end else begin
+      Self.ModalResult := mrHome;
       ToonPopupScherm(fZoekViaPalletCodeResponse.Header.Omschrijving, 'Bel planning');
     end;
 
@@ -787,7 +788,7 @@
     fAgent.Free;
     try
       if fProboxAfdrukkenResponse.Header.Status <> '200' then begin
-        Self.ModalResult := mrDnaCode;
+        Self.ModalResult := mrHome;
         ToonPopupScherm(fProboxAfdrukkenResponse.Header.Omschrijving, 'Bel planning')
       end else begin
         UiContext.LaatstAfgedrukteDnaCodes.Clear;