Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r520 -r521
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 520)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 521)
@@ -461,7 +461,7 @@
   fAantalGescand: integer;
   fAgent: TAgent;
 begin
-  if (UiContext.LaatsteDnaCode = '') or (not UiContext.LaatsteDnaCodeGoedAfgemeld) then begin
+  if (UiContext.LaatsteDnaCode = '') or (not UiContext.LaatsteDnaCodeGoedAfgemeld) or (UiContext.Toelevering) then begin
     fAgent := TAgent.Create(UiContext);
     fZoekAlleDnaCodesDieOpVhossMoetenResponse := fAgent.ZoekAlleDnaCodesDieOpVhossMoeten(UiContext.Pallet);
     fAgent.Free;