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;