Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r307 -r308
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 307)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 308)
@@ -104,16 +104,14 @@
 
 procedure TfmDnaCodeScherm.actPalletExecute(Sender: TObject);
 var
-  fWaarschuwingModalResult: TModalResult;
   fAantalLadesOpHuidigePallet: integer;
   fIsDirecteLevering: boolean;
 begin
   inherited;
   fAantalLadesOpHuidigePallet := BepaalAantalLadesOpHuidigePallet;
   if fAantalLadesOpHuidigePallet > 0 then begin
-    fWaarschuwingModalResult := ToonPopupScherm(lblHuidigePalletData.Caption+' volledig?'+#13#10+inttostr(fAantalLadesOpHuidigePallet)+' lades','Ja','Annuleren',14,6,7);
-    if fWaarschuwingModalResult = mrYes then begin
-      fIsDirecteLevering := BepaalDirecteLevering;
+     if (UiContext.Modus = modusDefault) and (ToonPopupScherm(lblHuidigePalletData.Caption+' volledig?'+#13#10+inttostr(fAantalLadesOpHuidigePallet)+' lades','Ja','Annuleren',14,6,7) = mrYes) then begin
+      fIsDirecteLevering := (UiContext.Modus = modusDefault) and BepaalDirecteLevering;
       if fIsDirecteLevering then begin
         ToonPopupScherm('Directe levering', 'OK','',15,-1,-1,clBlue);
         imgDirecteLevering.Visible := true;