Index: AAPClient/UI/InfoLogScherm.pas
===================================================================
diff -u -r201 -r202
--- AAPClient/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 201)
+++ AAPClient/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 202)
@@ -73,7 +73,7 @@
   fWaarschuwingModalResult: TModalResult;
 begin
   Self.ModalResult := mrInfoLog;
-  fWaarschuwingModalResult := ToonPopupScherm('Scan ongedaan maken?'+#13#10+sgToeleveringData.Rows[sgToeleveringData.Row][0],'Ja','Nee',14,6,7);
+  fWaarschuwingModalResult := ToonPopupScherm('Scan ongedaan maken?'+#13#10+TCommonFunctions.VerkorteDnaCode(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);