Index: PlanScan/UI/frameDnaCodes.pas
===================================================================
diff -u -r483 -r544
--- PlanScan/UI/frameDnaCodes.pas	(.../frameDnaCodes.pas)	(revision 483)
+++ PlanScan/UI/frameDnaCodes.pas	(.../frameDnaCodes.pas)	(revision 544)
@@ -82,6 +82,7 @@
     Add('Scantijdstip',ftString, 20);
     Add('Initialen',ftString, 3);
     Add('LadeCode',ftString, 10);
+    Add('ParentDnaCode', ftString, 10);
   end;
   cdsDnaCodes.CreateDataSet;
   dsDnaCodes.DataSet := cdsDnaCodes;
@@ -325,7 +326,8 @@
                                 DnaCodes[ii].BatchId,
                                 ScanTijdstipAsString,
                                 DnaCodes[ii].InitialenScanner,
-                                DnaCodes[ii].LadeCode]);
+                                DnaCodes[ii].LadeCode,
+                                DnaCodes[ii].ParentDnaCode]);
     ii := ii + 1;
   end;
 end;