Index: ProScan/UI/OnderdelenScherm.pas
===================================================================
diff -u -r678 -r679
--- ProScan/UI/OnderdelenScherm.pas	(.../OnderdelenScherm.pas)	(revision 678)
+++ ProScan/UI/OnderdelenScherm.pas	(.../OnderdelenScherm.pas)	(revision 679)
@@ -55,6 +55,9 @@
     if fZoekViaToeleveringResponse.Header.Status = '200' then begin
       UiContext.Toelevering := edtToelevering.Text;
       GenereerTbpCodeVoorOnderdelen;
+    end else begin
+      ToonPopupScherm(fZoekViaToeleveringResponse.Header.Omschrijving, 'Probeer opnieuw');
+      Self.ModalResult := mrOnderdelen;
     end;
   finally;
     fZoekViaToeleveringResponse.Free;