Index: AAPClient/ProScan.identcache
===================================================================
diff -u -r195 -r239
Binary files differ
Index: AAPClient/UI/DnaCodeReedsGescandScherm.dfm
===================================================================
diff -u -r233 -r239
--- AAPClient/UI/DnaCodeReedsGescandScherm.dfm	(.../DnaCodeReedsGescandScherm.dfm)	(revision 233)
+++ AAPClient/UI/DnaCodeReedsGescandScherm.dfm	(.../DnaCodeReedsGescandScherm.dfm)	(revision 239)
@@ -72,7 +72,6 @@
     ImageIndex = 14
     ImageMargins.Left = 10
     Images = ImagesScherm.ilAlgemeen48
-    ModalResult = 7
     ParentFont = False
     TabOrder = 3
     WordWrap = True
@@ -92,7 +91,6 @@
     ImageIndex = 15
     ImageMargins.Left = 10
     Images = ImagesScherm.ilAlgemeen48
-    ModalResult = 6
     ParentFont = False
     TabOrder = 4
     WordWrap = True
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(