Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r396 -r405
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 396)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 405)
@@ -43,6 +43,7 @@
     function BepaalDirecteLevering: boolean;
     procedure PalletBijwerken(Status: DnaCodeStatus; IsDirecteLevering: boolean);
     procedure ZetIcoontjesBovenaan;
+    procedure ZetInfoIcoontjeZichtbaar;
     procedure DrukProboxEtiketAfIndienNodig;
     procedure RondAfKaderdeurDag();
   public
@@ -284,15 +285,13 @@
                UiContext.InternVhossId := Response.InterneVhossKastId;
                lblAantalGescand.Caption := IntToStr(Response.AantalReedsGescand);
                lblTotaalAantal.Caption := IntToStr(Response.AantalInToelevering);
-               if not (UiContext.Modus = modusKAD) then
-                 btnInfo.Visible := true;
+               ZetInfoIcoontjeZichtbaar;
                ZetIcoontjesBovenaan;
                VerwerkMogelijkePopups(Response.DnaCodes[0]);
                Self.ModalResult := mrDnaCode;
              end;
        1005: begin //reeds gescand
-               if not (UiContext.Modus = modusKAD) then
-                 btnInfo.Visible := true;
+               ZetInfoIcoontjeZichtbaar;
                Self.ModalResult := mrDnaCodeReedsGescand;
              end;
        else begin
@@ -341,8 +340,7 @@
       UiContext.Toelevering := Response.DnaCodes[0].Toelevering;
       lblAantalGescand.Caption := IntToStr(Response.AantalReedsGescand);
       lblTotaalAantal.Caption := IntToStr(Response.AantalInToelevering);
-      if not (UiContext.Modus = modusKAD) then
-         btnInfo.Visible := true;
+      ZetInfoIcoontjeZichtbaar;
       ZetIcoontjesBovenaan;
       VerwerkMogelijkePopups(Response.DnaCodes[0]);
       Self.ModalResult := mrDnaCode;
@@ -379,7 +377,7 @@
 
         lblAantalGescand.Caption := IntToStr(fAantalGescand);
         lblTotaalAantal.Caption := IntToStr(length(fZoekAlleDnaCodesDieOpVhossMoetenResponse.DnaCodes));
-        btnInfo.Visible := true;
+        ZetInfoIcoontjeZichtbaar;
         ZetIcoontjesBovenaan;
         Self.ModalResult := mrDnaCode;
       end;
@@ -406,7 +404,7 @@
 
         lblAantalGescand.Caption := IntToStr(fAantalGescand);
         lblTotaalAantal.Caption := IntToStr(length(fZoekAlleVhossLadesBijDnaCodeResponse.DnaCodes));
-        btnInfo.Visible := true;
+        ZetInfoIcoontjeZichtbaar;
         ZetIcoontjesBovenaan;
         Self.ModalResult := mrDnaCode;
       end;
@@ -463,6 +461,12 @@
   end;
 end;
 
+procedure TfmDnaCodeScherm.ZetInfoIcoontjeZichtbaar;
+begin
+  if (not (UiContext.Modus = modusKAD)) and (UiContext.LaatsteDnaCode <> '') then
+    btnInfo.Visible := true;
+end;
+
 procedure TfmDnaCodeScherm.RondAfKaderdeurDag;
 var
   Response: RondAfKaderdeurDagResponse;