Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r447 -r449
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 447)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 449)
@@ -183,11 +183,10 @@
       try
         fOnvolledigeToeleveringScherm.UiContext := UiContext;
         fWaarschuwingModalResult := fOnvolledigeToeleveringScherm.ShowModal;
-        if fWaarschuwingModalResult = mrYes then begin
-          Self.ModalResult := mrDnaCode;
-        end else begin
-          Self.ModalResult := mrPallet;
+        if fWaarschuwingModalResult = mrNo then begin
+          UiContext.Toelevering := '';
         end;
+        Self.ModalResult := mrDnaCode;
       finally
         fOnvolledigeToeleveringScherm.Free;
       end;