Index: ProScan/ProScanMain.pas
===================================================================
diff -u -r537 -r540
--- ProScan/ProScanMain.pas	(.../ProScanMain.pas)	(revision 537)
+++ ProScan/ProScanMain.pas	(.../ProScanMain.pas)	(revision 540)
@@ -51,8 +51,7 @@
   fUiContext := TUiContext.Create();
   fUiContext.ImagesScherm := TImagesScherm.Create(self);
   fUiContext.Modus := modusDefault;
-  fUiContext.LaatstAfgemeldeDnaCodesStringList := TStringList.Create();
-  fUiContext.AfTeDrukkenDnaCodesStringList := TStringList.Create();
+  fUiContext.LaatstAfgedrukteDnaCodes := TStringList.Create();
 
   VerwerkParamStrings;
 end;
Index: ProScan/UI/HomeScherm.pas
===================================================================
diff -u -r539 -r540
--- ProScan/UI/HomeScherm.pas	(.../HomeScherm.pas)	(revision 539)
+++ ProScan/UI/HomeScherm.pas	(.../HomeScherm.pas)	(revision 540)
@@ -54,8 +54,8 @@
   DnaCode: String;
 begin
   inherited;
-  if UiContext.AfTeDrukkenDnaCodesStringList.Count > 0 then begin
-    PrintLaatsteProboxInhoudEtiket(UIContext.AfTeDrukkenDnaCodesStringList);
+  if UiContext.LaatstAfgedrukteDnaCodes.Count > 0 then begin
+    PrintLaatsteProboxInhoudEtiket(UIContext.LaatstAfgedrukteDnaCodes);
   end else begin
     ToonPopupScherm('Laatste DNA-codes niet beschikbaar', 'OK','');
   end;
Index: ProScan/UI/UiContext.pas
===================================================================
diff -u -r537 -r540
--- ProScan/UI/UiContext.pas	(.../UiContext.pas)	(revision 537)
+++ ProScan/UI/UiContext.pas	(.../UiContext.pas)	(revision 540)
@@ -40,8 +40,7 @@
     fFormBreedte: integer;
     fFormHoogte: integer;
     fLaatsteDnaCodeGoedAfgemeld: boolean;
-    fLaatstAfgemeldeDnaCodesStringList: TStringList;
-    fAfTeDrukkenDnaCodesStringList: TStringList;
+    fLaatstAfgedrukteDnaCodes: TStringList;
   public
     Property Initialen: String Read fInitialen Write fInitialen;
     Property LoginCode: String Read fLoginCode Write fLoginCode;
@@ -62,8 +61,7 @@
     Property FormBreedte: integer Read fFormBreedte Write fFormBreedte;
     Property FormHoogte: integer Read fFormHoogte Write fFormHoogte;
     Property LaatsteDnaCodeGoedAfgemeld: boolean Read fLaatsteDnaCodeGoedAfgemeld Write fLaatsteDnaCodeGoedAfgemeld;
-    Property LaatstAfgemeldeDnaCodesStringList: TStringList Read fLaatstAfgemeldeDnaCodesStringList Write fLaatstAfgemeldeDnaCodesStringList;
-    Property AfTeDrukkenDnaCodesStringList: TStringList Read fAfTeDrukkenDnaCodesStringList Write fAfTeDrukkenDnaCodesStringList;
+    Property LaatstAfgedrukteDnaCodes: TStringList Read fLaatstAfgedrukteDnaCodes Write fLaatstAfgedrukteDnaCodes;
   end;
 
 implementation
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