Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r225 -r226
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 225)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 226)
@@ -50,7 +50,7 @@
 implementation
 
 uses
-  UiContext, Agent;
+  UiContext, Agent, CommonFunctions;
 
 {$R *.dfm}
 
@@ -315,7 +315,7 @@
      lblLaatstGescandData.Caption := '';
      imgLaatstGescand.Visible := false;
   end else begin
-     lblLaatstGescandData.Caption := UiContext.LaatsteDnaCode;
+     lblLaatstGescandData.Caption := TCommonFunctions.VerkorteDnaCode(UiContext.LaatsteDnaCode);
      imgLaatstGescand.Visible := true;
   end;