Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r497 -r498
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 497)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 498)
@@ -179,8 +179,8 @@
     RondAfVhossBatch();
     UiContext.Pallet := '';
   end else begin
+    fIsDirecteLevering := (UiContext.Modus = modusDefault) and BepaalDirecteLevering;
     if lblAantalGescand.Caption = lblTotaalAantal.Caption then begin
-      fIsDirecteLevering := (UiContext.Modus = modusDefault) and BepaalDirecteLevering;
       if fIsDirecteLevering then begin
         ToonPopupScherm('Directe levering', 'OK','',15,-1,-1,clBlue);
         imgDirecteLevering.Visible := true;