Index: AAPClient/UI/InfoLogScherm.pas
===================================================================
diff -u -r202 -r203
--- AAPClient/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 202)
+++ AAPClient/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 203)
@@ -73,7 +73,7 @@
   fWaarschuwingModalResult: TModalResult;
 begin
   Self.ModalResult := mrInfoLog;
-  fWaarschuwingModalResult := ToonPopupScherm('Scan ongedaan maken?'+#13#10+TCommonFunctions.VerkorteDnaCode(sgToeleveringData.Rows[sgToeleveringData.Row][0]),'Ja','Nee',14,6,7);
+  fWaarschuwingModalResult := ToonPopupScherm('Scan ongedaan maken?'+#13#10+sgToeleveringData.Rows[sgToeleveringData.Row][0],'Ja','Nee',14,6,7);
 
   if fWaarschuwingModalResult = mrYes then begin
     Response := TAgent.Create(UiContext).DnaCodeAfmelden(sgToeleveringData.Rows[sgToeleveringData.Row][0], UiContext.Toelevering, sgToeleveringData.Rows[sgToeleveringData.Row][1], -1);
@@ -174,6 +174,7 @@
        ((not ToonGescand) and (DnaCodes[DnaCodeTeller].InitialenScanner = '')) then begin
       sgToeleveringData.Rows[sgToeleveringData.RowCount-1].Add(TCommonFunctions.VerkorteDnaCode(DnaCodes[DnaCodeTeller].DnaCode));
       sgToeleveringData.Rows[sgToeleveringData.RowCount-1].Append(DnaCodes[DnaCodeTeller].PalletCode);
+      sgToeleveringData.Rows[sgToeleveringData.RowCount-1].Append(DnaCodes[DnaCodeTeller].DnaCode);
       sgToeleveringData.RowCount := sgToeleveringData.RowCount + 1;
     end;
   end;