Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r144 -r146
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 144)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 146)
@@ -69,11 +69,11 @@
     ZetToeleveringStatus(DnaCodeStatus.InBuffer);
   end else begin
     fWaarschuwingModalResult := ToonPopupScherm('Onvolledige toelevering','Scan'+#13#10+'DNA-codes','Nieuwe'+#13#10+'toelevering');
-    if fWaarschuwingModalResult = mrOk then begin
+    if fWaarschuwingModalResult = mrYes then begin
       Self.ModalResult := mrDnaCode;
     end else begin
       fWaarschuwingModalResult := ToonPopupScherm('Nieuwe toelevering starten?','Ja','Nee',true,6,7);
-      if fWaarschuwingModalResult = mrOk then begin
+      if fWaarschuwingModalResult = mrYes then begin
         ZetToeleveringStatus(DnaCodeStatus.OnHold);
         Self.ModalResult := mrPallet;
       end;