Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r215 -r216
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 215)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 216)
@@ -75,10 +75,12 @@
         imgDirecteLevering.Visible := true;
       end;
       PalletBijwerken(DnaCodeStatus.InBuffer,BepaalDirecteLevering);
+      Self.ModalResult := mrPallet;
+    end else begin
+      Self.ModalResult := mrDnaCode;
     end;
   end;
 
-  Self.ModalResult := mrPallet;
 end;
 
 function TfmDnaCodeScherm.BepaalAantalLadesOpHuidigePallet: integer;