Index: ProScan/UI/InfoLogScherm.pas
===================================================================
diff -u -r572 -r629
--- ProScan/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 572)
+++ ProScan/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 629)
@@ -221,7 +221,7 @@
   for DnaCodeTeller := 0 to length(DnaCodes)-1  do begin
     if (UiContext.InfoLogSchermToonGescand and (DnaCodes[DnaCodeTeller].InitialenScanner <> '')) or
        ((not UiContext.InfoLogSchermToonGescand) and (DnaCodes[DnaCodeTeller].InitialenScanner = '')) then begin
-      sgToeleveringData.Rows[sgToeleveringData.RowCount-1].Add(TCommonFunctions.VerkorteDnaCode(DnaCodes[DnaCodeTeller].DnaCode));
+      sgToeleveringData.Rows[sgToeleveringData.RowCount-1].Add(Copy(DnaCodes[DnaCodeTeller].DnaCode,5,3));
 
       if UiContext.Modus = modusVHOSS then begin
         sgToeleveringData.Rows[sgToeleveringData.RowCount-1][1] := (DnaCodes[DnaCodeTeller].Toelevering);