Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r531 -r538
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 531)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 538)
@@ -378,6 +378,7 @@
                VerwerkMogelijkePopups(Response.DnaCodes, UiContext.Toelevering, Response.isSST);
                Self.ModalResult := mrDnaCode;
                UiContext.LaatsteDnaCodeGoedAfgemeld := true;
+               UiContext.LaatstAfgemeldeDnaCodesStringList.Add(edtDnaCode.Text);
              end;
        1005: begin //reeds gescand
                ZetInfoIcoontjeZichtbaar;
@@ -788,6 +789,13 @@
         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;
         Self.ModalResult := mrPallet;
       end;
     finally