Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r495 -r497
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 495)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 497)
@@ -355,14 +355,17 @@
                ZetIcoontjesBovenaan;
                VerwerkMogelijkePopups(Response.DnaCodes, UiContext.Toelevering);
                Self.ModalResult := mrDnaCode;
+               UiContext.LaatsteDnaCodeGoedAfgemeld := true;
              end;
        1005: begin //reeds gescand
                ZetInfoIcoontjeZichtbaar;
                Self.ModalResult := mrDnaCodeReedsGescand;
+               UiContext.LaatsteDnaCodeGoedAfgemeld := false;
              end;
        else begin
               Self.ModalResult := mrDnaCode;
-              ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw')
+              ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw');
+               UiContext.LaatsteDnaCodeGoedAfgemeld := false;
             end;
     end;
   finally
@@ -430,7 +433,7 @@
   fAantalGescand: integer;
   fAgent: TAgent;
 begin
-  if UiContext.LaatsteDnaCode = '' then begin
+  if (UiContext.LaatsteDnaCode = '') or (not UiContext.LaatsteDnaCodeGoedAfgemeld) then begin
     fAgent := TAgent.Create(UiContext);
     fZoekAlleDnaCodesDieOpVhossMoetenResponse := fAgent.ZoekAlleDnaCodesDieOpVhossMoeten(UiContext.Pallet);
     fAgent.Free;