Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r493 -r494
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 493)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 494)
@@ -129,11 +129,21 @@
       UiContext.Pallet := '';
       Self.ModalResult := mrPallet;
     end else if (UiContext.Modus = modusVHOSS) then begin
+      if lblAantalGescand.Caption = lblTotaalAantal.Caption then begin
+        PalletBijwerken(DnaCodeStatus.InBuffer,false);
+        UiContext.Pallet := '';
+        Self.ModalResult := mrPallet;
+      end else begin
+        if (ToonPopupScherm('Vhoss nog niet volledig.'+#13#10+'Toch verwerken?','Ja','Annuleren',14,6,7) = mrYes) then begin
+          PalletBijwerken(DnaCodeStatus.InBuffer,false);
+          UiContext.Pallet := '';
+          Self.ModalResult := mrPallet;
+        end else begin
+          Self.ModalResult := mrDnaCode;
+        end;
+      end;
       //TODO : popup tonen indien vhoss nog niet volledig (gescand <> te scannen) Vhoss nog niet volledig. Toch verwerken (vraagteken)
       //Ja/annuleren  Ja -> palletscherm (zoals nu), nee doet niets en gaat terug naar dnacodescherm
-      PalletBijwerken(DnaCodeStatus.InBuffer,false);
-      UiContext.Pallet := '';
-      Self.ModalResult := mrPallet;
     end else if ((UiContext.Modus = modusDefault) and (ToonPopupScherm(lblHuidigePalletData.Caption+' verwerken?'+#13#10+inttostr(fAantalLadesOpHuidigePallet)+' lade(s)','Ja','Annuleren',14,6,7) = mrYes)) then begin
       fIsDirecteLevering := (UiContext.Modus = modusDefault) and BepaalDirecteLevering;
       if fIsDirecteLevering then begin