Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r317 -r318
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 317)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 318)
@@ -249,7 +249,8 @@
                UiContext.Toelevering := Response.DnaCodes[0].Toelevering;
                lblAantalGescand.Caption := IntToStr(Response.AantalReedsGescand);
                lblTotaalAantal.Caption := IntToStr(Response.AantalInToelevering);
-               btnInfo.Visible := true;
+               if not UiContext.Modus = modusKAD then
+                 btnInfo.Visible := true;
                ZetIcoontjesBovenaan;
                VerwerkMogelijkePopups(Response.DnaCodes[0]);
                Self.ModalResult := mrDnaCode;
@@ -302,7 +303,8 @@
       UiContext.Toelevering := Response.DnaCodes[0].Toelevering;
       lblAantalGescand.Caption := IntToStr(Response.AantalReedsGescand);
       lblTotaalAantal.Caption := IntToStr(Response.AantalInToelevering);
-      btnInfo.Visible := true;
+      if not UiContext.Modus = modusKAD then
+         btnInfo.Visible := true;
       ZetIcoontjesBovenaan;
       VerwerkMogelijkePopups(Response.DnaCodes[0]);
       Self.ModalResult := mrDnaCode;