Index: ProScan/UI/UiContext.pas
===================================================================
diff -u -r484 -r497
--- ProScan/UI/UiContext.pas	(.../UiContext.pas)	(revision 484)
+++ ProScan/UI/UiContext.pas	(.../UiContext.pas)	(revision 497)
@@ -38,6 +38,7 @@
     fBatchId: String;
     fFormBreedte: integer;
     fFormHoogte: integer;
+    fLaatsteDnaCodeGoedAfgemeld: boolean;
   public
     Property Initialen: String Read fInitialen Write fInitialen;
     Property LoginCode: String Read fLoginCode Write fLoginCode;
@@ -56,6 +57,7 @@
     Property BatchId: string Read fBatchId Write fBatchId;
     Property FormBreedte: integer Read fFormBreedte Write fFormBreedte;
     Property FormHoogte: integer Read fFormHoogte Write fFormHoogte;
+    Property LaatsteDnaCodeGoedAfgemeld: boolean Read fLaatsteDnaCodeGoedAfgemeld Write fLaatsteDnaCodeGoedAfgemeld;
   end;
 
 implementation
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;