Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r513 -r517
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 513)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 517)
@@ -232,6 +232,9 @@
   fAgent: TAgent;
 begin
   result := 0;
+  if UiContext.LaatsteDnaCode = '' then
+    exit;
+
   if StartsText('O1',UiContext.Pallet) then begin
     fAgent := TAgent.Create(UiContext);
     fZoekAlleVhossLadesBijDnaCodeResponse := fAgent.ZoekAlleVhossLadesBijDnaCode(UiContext.LaatsteDnaCode);