Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r77 -r78
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 77)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 78)
@@ -101,7 +101,10 @@
 procedure TfmDnaCodeScherm.btnInfoClick(Sender: TObject);
 begin
   inherited;
-  Self.ModalResult := mrInfoLog;
+  if UiContext.Toelevering = '' then
+    Self.ModalResult := mrDnaCode
+  else
+    Self.ModalResult := mrInfoLog;
 end;
 
 procedure TfmDnaCodeScherm.FormShow(Sender: TObject);