Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r208 -r213
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 208)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 213)
@@ -187,8 +187,10 @@
   inherited;
   if UiContext.Toelevering = '' then
     Self.ModalResult := mrDnaCode
-  else
+  else begin
+    UiContext.InfoLogSchermToonGescand := true;
     Self.ModalResult := mrInfoLog;
+  end;
 end;
 
 procedure TfmDnaCodeScherm.MeldDnaCodeAf;