Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r538 -r540
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 538)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 540)
@@ -378,7 +378,6 @@
                VerwerkMogelijkePopups(Response.DnaCodes, UiContext.Toelevering, Response.isSST);
                Self.ModalResult := mrDnaCode;
                UiContext.LaatsteDnaCodeGoedAfgemeld := true;
-               UiContext.LaatstAfgemeldeDnaCodesStringList.Add(edtDnaCode.Text);
              end;
        1005: begin //reeds gescand
                ZetInfoIcoontjeZichtbaar;
@@ -789,13 +788,9 @@
         Self.ModalResult := mrDnaCode;
         ToonPopupScherm(fProboxAfdrukkenResponse.Header.Omschrijving, 'Bel planning')
       end else begin
-        UiContext.AfTeDrukkenDnaCodesStringList.Clear;
-        ii:= 0;
-        while ii < UiContext.LaatstAfgemeldeDnaCodesStringList.Count do begin
-          UiContext.AfTeDrukkenDnaCodesStringList.Add(UiContext.LaatstAfgemeldeDnaCodesStringList[ii]);
-          ii := ii + 1;
-        end;
-        UiContext.LaatstAfgemeldeDnaCodesStringList.Clear;
+        UiContext.LaatstAfgedrukteDnaCodes.Clear;
+        UiContext.LaatstAfgedrukteDnaCodes := DnaCodesStringList;
+
         Self.ModalResult := mrPallet;
       end;
     finally