Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r449 -r450
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 449)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 450)
@@ -184,9 +184,12 @@
         fOnvolledigeToeleveringScherm.UiContext := UiContext;
         fWaarschuwingModalResult := fOnvolledigeToeleveringScherm.ShowModal;
         if fWaarschuwingModalResult = mrNo then begin
+          ZetToeleveringStatus(DnaCodeStatus.InBuffer, fIsDirecteLevering);
           UiContext.Toelevering := '';
+          Self.ModalResult := mrPallet;
+        end else begin
+          Self.ModalResult := mrDnaCode;
         end;
-        Self.ModalResult := mrDnaCode;
       finally
         fOnvolledigeToeleveringScherm.Free;
       end;