Index: ProScan/UI/DnaCodeReedsGescandScherm.pas
===================================================================
diff -u -r409 -r410
--- ProScan/UI/DnaCodeReedsGescandScherm.pas	(.../DnaCodeReedsGescandScherm.pas)	(revision 409)
+++ ProScan/UI/DnaCodeReedsGescandScherm.pas	(.../DnaCodeReedsGescandScherm.pas)	(revision 410)
@@ -107,7 +107,7 @@
     if Response.Header.Status <> '200' then begin
       ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw','')
     end else begin
-      ToonPopupScherm(Response.Header.Omschrijving, 'OK','');
+      ToonPopupScherm(Response.Header.Omschrijving, 'OK','',-1,-1,clGreen);
       Self.ModalResult := mrDnaCode;
     end;
   finally