Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r434 -r435
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 434)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 435)
@@ -24,6 +24,7 @@
     imgToelevering: TImage;
     imgPallet: TImage;
     imgLaatstGescand: TImage;
+    imgExport: TImage;
     procedure FormShow(Sender: TObject);
     procedure actPalletExecute(Sender: TObject);
     procedure actHomeExecute(Sender: TObject);
@@ -87,6 +88,7 @@
   fImagesScherm.ilAlgemeen64.GetIcon(10, imgLaatstGescand.Picture.Icon);
   fImagesScherm.ilAlgemeen32.GetIcon(4, imgWegwerpPallet.Picture.Icon);
   fImagesScherm.ilAlgemeen32.GetIcon(3, imgDirecteLevering.Picture.Icon);
+  fImagesScherm.ilAlgemeen32.GetIcon(5, imgExport.Picture.Icon);
 
   if UiContext.Modus = modusVHOSS then begin
      VhossDataOphalen();
@@ -96,6 +98,7 @@
     else begin
       imgDirecteLevering.Visible := false;
       imgWegwerpPallet.Visible := false;
+      imgExport.Visible := false;
     end;
   end;
   ZetIcoontjesBovenaan;
@@ -457,6 +460,7 @@
            if fBewerkKlantinstellingenResponse.Klantinstellingen[ii].IsExport then begin
               ToonPopupScherm('Export', 'OK','',21,-1,-1,clRed);
               UiContext.IsExportPopupGetoond := true;
+              imgExport.Visible := true;
            end;
         end;
         ii := ii + 1;