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;
Index: AAPClient/UI/PalletScherm.pas
===================================================================
diff -u -r376 -r378
--- AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 376)
+++ AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 378)
@@ -73,7 +73,7 @@
       end;
     finally
       fZoekViaPalletCodeResponse.Free;
-    end
+    end;
     //popups resetten
     UiContext.IsDirecteLeveringPopupGetoond := false;
     UiContext.IsWegwerpPalletPopupGetoond := false;