Index: ProScan/UI/PalletScherm.pas
===================================================================
diff -u -r426 -r427
--- ProScan/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 426)
+++ ProScan/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 427)
@@ -58,7 +58,7 @@
     fPalletGevalideerd := ValideerPalletCode(edtPallet.Text);
 
   //checken of pallet in gebruik is indien het vorige geslaagd is
-  if fPalletGevalideerd and not(UiContext.Modus = modusKAD )then begin
+  if fPalletGevalideerd and not(UiContext.Modus = modusKAD) and not(UiContext.Modus = modusVHOSS ) then begin
     fZoekViaPalletCodeResponse := TAgent.Create(UiContext).ZoekViaPalletCode(edtPallet.Text);
     try
       if fZoekViaPalletCodeResponse.Header.Status = '200' then begin
@@ -83,6 +83,8 @@
     UiContext.InternVhossId := '';
   end else if (UiContext.Modus = modusKAD) then begin
     Self.ModalResult := mrDnaCode;
+  end else if (UiContext.Modus = modusVHOSS) then begin
+    Self.ModalResult := mrDnaCode;
   end else begin
     Self.ModalResult := mrPallet;
   end;