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;
Index: PlanScan/UI/frameDnaCodes.dfm
===================================================================
diff -u -r481 -r544
--- PlanScan/UI/frameDnaCodes.dfm	(.../frameDnaCodes.dfm)	(revision 481)
+++ PlanScan/UI/frameDnaCodes.dfm	(.../frameDnaCodes.dfm)	(revision 544)
@@ -66,6 +66,12 @@
         FieldName = 'cdsDnaCodesLadecode'
         Title.Caption = 'Ladecode'
         Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'cdsDnaCodesParentDnaCode'
+        Title.Caption = 'ParentCode'
+        Visible = True
       end>
   end
   object pnlActies: TPanel
Index: PlanScan/Main.dfm
===================================================================
diff -u -r454 -r544
--- PlanScan/Main.dfm	(.../Main.dfm)	(revision 454)
+++ PlanScan/Main.dfm	(.../Main.dfm)	(revision 544)
@@ -193,6 +193,11 @@
                 Expanded = False
                 FieldName = 'Ladecode'
                 Visible = True
+              end
+              item
+                Expanded = False
+                FieldName = 'ParentDnaCode'
+                Visible = True
               end>
           end
           inherited pnlActies: TPanel