Index: AAPClient/UI/InfoLogScherm.pas
===================================================================
diff -u -r195 -r201
--- AAPClient/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 195)
+++ AAPClient/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 201)
@@ -47,7 +47,7 @@
 implementation
 
 uses
-  Agent;
+  Agent, CommonFunctions;
 
 {$R *.dfm}
 
@@ -172,7 +172,7 @@
   for DnaCodeTeller := 0 to length(DnaCodes)-1  do begin
     if (ToonGescand and (DnaCodes[DnaCodeTeller].InitialenScanner <> '')) or
        ((not ToonGescand) and (DnaCodes[DnaCodeTeller].InitialenScanner = '')) then begin
-      sgToeleveringData.Rows[sgToeleveringData.RowCount-1].Add(DnaCodes[DnaCodeTeller].DnaCode);
+      sgToeleveringData.Rows[sgToeleveringData.RowCount-1].Add(TCommonFunctions.VerkorteDnaCode(DnaCodes[DnaCodeTeller].DnaCode));
       sgToeleveringData.Rows[sgToeleveringData.RowCount-1].Append(DnaCodes[DnaCodeTeller].PalletCode);
       sgToeleveringData.RowCount := sgToeleveringData.RowCount + 1;
     end;