Index: AAPClient/UI/DnaCodeReedsGescandScherm.pas
===================================================================
diff -u -r234 -r239
--- AAPClient/UI/DnaCodeReedsGescandScherm.pas	(.../DnaCodeReedsGescandScherm.pas)	(revision 234)
+++ AAPClient/UI/DnaCodeReedsGescandScherm.pas	(.../DnaCodeReedsGescandScherm.pas)	(revision 239)
@@ -35,7 +35,7 @@
 implementation
 
 uses
-  UiContext, DnaCodeService, Agent;
+  UiContext, DnaCodeService, Agent, CommonFunctions;
 
 {$R *.dfm}
 
@@ -74,6 +74,7 @@
   edtPallet.Enabled := False;
   edtPallet.Visible := False;
   lblScanPallet.Visible := False;
+  lblBestaandeDnaCode.Caption := 'Bestaande DNA-Code: '+TCommonFunctions.VerkorteDnaCode(UiContext.LaatsteDnaCode);
 end;
 
 procedure TfmDnaCodeReedsGescandScherm.SetPalletControlsVisibility(