Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r377 -r378
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 377)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 378)
@@ -164,7 +164,7 @@
       end else begin
         fWaarschuwingModalResult := ToonPopupScherm('Nieuwe toelevering starten?','Ja','Nee',14,6,7);
         if fWaarschuwingModalResult = mrYes then begin
-          ZetToeleveringStatus(DnaCodeStatus.OnHold);
+          ZetToeleveringStatus(DnaCodeStatus.OnHold,BepaalDirecteLevering);
           Self.ModalResult := mrPallet;
         end;
       end;