Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r500 -r504
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 500)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 504)
@@ -366,7 +366,7 @@
        else begin
               Self.ModalResult := mrDnaCode;
               ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw');
-               UiContext.LaatsteDnaCodeGoedAfgemeld := false;
+              UiContext.LaatsteDnaCodeGoedAfgemeld := false;
             end;
     end;
   finally
@@ -576,8 +576,10 @@
 
 procedure TfmDnaCodeScherm.ZetInfoIcoontjeZichtbaar;
 begin
-  if (not (UiContext.Modus = modusKAD)) and (UiContext.LaatsteDnaCode <> '') then
+  if (UiContext.Modus = modusVHOSS) and (UiContext.Pallet <> '') then
     btnInfo.Visible := true;
+  if (UiContext.Modus = modusDefault) and (UiContext.Toelevering <> '') then
+    btnInfo.Visible := true;
 end;
 
 procedure TfmDnaCodeScherm.RondAfKaderdeurDag;