Index: ProScan/ProScan.identcache
===================================================================
diff -u -r512 -r522
Binary files differ
Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r521 -r522
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 521)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 522)
@@ -461,7 +461,7 @@
   fAantalGescand: integer;
   fAgent: TAgent;
 begin
-  if (UiContext.LaatsteDnaCode = '') or (not UiContext.LaatsteDnaCodeGoedAfgemeld) or (UiContext.Toelevering) 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;