Index: ProScan/UI/InfoLogScherm.pas
===================================================================
diff -u -r532 -r572
--- ProScan/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 532)
+++ ProScan/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 572)
@@ -140,6 +140,7 @@
   lblToelevering.Caption := UiContext.Toelevering;
   if UiContext.Modus = modusVHOSS then begin
     lblToelevering.Caption := '';
+    sgToeleveringData.Cols[1].Text := 'Toelevering';
     VulGridMetDnaCodeData(VhossDataOphalen().DnaCodes);
   end else
     VulGridMetDnaCodeData(ToeleveringDataOphalen().DnaCodes);
@@ -221,7 +222,13 @@
     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][1] := (DnaCodes[DnaCodeTeller].PalletCode);
+
+      if UiContext.Modus = modusVHOSS then begin
+        sgToeleveringData.Rows[sgToeleveringData.RowCount-1][1] := (DnaCodes[DnaCodeTeller].Toelevering);
+      end else begin
+        sgToeleveringData.Rows[sgToeleveringData.RowCount-1][1] := (DnaCodes[DnaCodeTeller].PalletCode);
+      end;
+
       sgToeleveringData.Rows[sgToeleveringData.RowCount-1][2] := (DnaCodes[DnaCodeTeller].DnaCode);
       sgToeleveringData.RowCount := sgToeleveringData.RowCount + 1;
     end;