Index: ProScan/UI/DnaCodeReedsGescandScherm.pas
===================================================================
diff -u -r515 -r516
--- ProScan/UI/DnaCodeReedsGescandScherm.pas	(.../DnaCodeReedsGescandScherm.pas)	(revision 515)
+++ ProScan/UI/DnaCodeReedsGescandScherm.pas	(.../DnaCodeReedsGescandScherm.pas)	(revision 516)
@@ -117,7 +117,7 @@
     if Response.Header.Status <> '200' then begin
       ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw','')
     end else begin
-      ToonPopupScherm(Response.Header.Omschrijving, 'OK','',-1,-1,clGreen);
+      ToonPopupScherm(Response.Header.Omschrijving, 'OK','',19,-1,-1,clGreen);
       Self.ModalResult := mrDnaCode;
     end;
   finally