Index: ProScan/UI/DnaCodeReedsGescandScherm.pas
===================================================================
diff -u -r512 -r669
--- ProScan/UI/DnaCodeReedsGescandScherm.pas	(.../DnaCodeReedsGescandScherm.pas)	(revision 512)
+++ ProScan/UI/DnaCodeReedsGescandScherm.pas	(.../DnaCodeReedsGescandScherm.pas)	(revision 669)
@@ -102,6 +102,11 @@
   Response: HernoemPalletResponse;
   fAgent: TAgent;
 begin
+  if TCommonFunctions.IsFrameId(edtPallet.Text) then begin
+    ToonPopupScherm('Je kan hier geen Vhoss inscannen', 'Probeer opnieuw','');
+    exit;
+  end;
+
   if not TCommonFunctions.IsKaderdeurLocatie(edtPallet.Text) then
     edtPallet.Text := UpperCase(edtPallet.Text);
 
@@ -112,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