Index: PlanScan/UI/frameDnaCodes.pas
===================================================================
diff -u -r666 -r667
--- PlanScan/UI/frameDnaCodes.pas	(.../frameDnaCodes.pas)	(revision 666)
+++ PlanScan/UI/frameDnaCodes.pas	(.../frameDnaCodes.pas)	(revision 667)
@@ -89,6 +89,7 @@
     Add('Initialen',ftString, 3);
     Add('LadeCode',ftString, 10);
     Add('ParentDnaCode', ftString, 10);
+    Add('LpnCode', ftString, 10);
   end;
   cdsDnaCodes.CreateDataSet;
   dsDnaCodes.DataSet := cdsDnaCodes;
@@ -394,7 +395,8 @@
                                 ScanTijdstipAsString,
                                 DnaCodes[ii].InitialenScanner,
                                 DnaCodes[ii].LadeCode,
-                                DnaCodes[ii].ParentDnaCode]);
+                                DnaCodes[ii].ParentDnaCode,
+                                DnaCodes[ii].LpnCode]);
     ii := ii + 1;
   end;
 end;
Index: PlanScan/UI/frameDnaCodes.dfm
===================================================================
diff -u -r666 -r667
--- PlanScan/UI/frameDnaCodes.dfm	(.../frameDnaCodes.dfm)	(revision 666)
+++ PlanScan/UI/frameDnaCodes.dfm	(.../frameDnaCodes.dfm)	(revision 667)
@@ -72,6 +72,12 @@
         FieldName = 'cdsDnaCodesParentDnaCode'
         Title.Caption = 'ParentCode'
         Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'cdsDnaCodesLpnCode'
+        Title.Caption = 'LPN code'
+        Visible = True
       end>
   end
   object pnlActies: TPanel
Index: PlanScan/Main.dfm
===================================================================
diff -u -r662 -r667
--- PlanScan/Main.dfm	(.../Main.dfm)	(revision 662)
+++ PlanScan/Main.dfm	(.../Main.dfm)	(revision 667)
@@ -198,6 +198,12 @@
                 Expanded = False
                 FieldName = 'ParentDnaCode'
                 Visible = True
+              end
+              item
+                Expanded = False
+                FieldName = 'LpnCode'
+                Title.Caption = 'LPN code'
+                Visible = True
               end>
           end
           inherited pnlActies: TPanel