Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r414 -r415
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 414)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 415)
@@ -267,6 +267,9 @@
   List: TStrings;
   Locatie: string;
 begin
+  if edtDnaCode.Text = '' then
+    exit;
+
   UiContext.LaatsteDnaCode := edtDnaCode.Text;
   lblLaatstGescandData.Caption := edtDnaCode.Text;
 
@@ -475,6 +478,9 @@
   cdsRondAfKaderdeurDag: TClientDataset;
   antwoordlijnTeller: integer;
 begin
+  if (UiContext.LaatsteDnaCode = '' then
+    exit;
+
   Response := TAgent.Create(UiContext).RondAfKaderdeurDag(UiContext.LaatsteDnaCode);
   cdsRondAfKaderdeurDag := TClientDataset.Create(self);
   cdsRondAfKaderdeurDag.FieldDefs.Add('Toelevering',ftString,20);