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;
Index: ProScan/UI/DnaCodeScherm.dfm
===================================================================
diff -u -r396 -r435
--- ProScan/UI/DnaCodeScherm.dfm	(.../DnaCodeScherm.dfm)	(revision 396)
+++ ProScan/UI/DnaCodeScherm.dfm	(.../DnaCodeScherm.dfm)	(revision 435)
@@ -115,7 +115,7 @@
     ParentFont = False
   end
   object imgWegwerpPallet: TImage [9]
-    Left = 381
+    Left = 365
     Top = 219
     Width = 32
     Height = 32
@@ -139,7 +139,14 @@
     Width = 64
     Height = 64
   end
-  object edtDnaCode: TEdit [15]
+  object imgExport: TImage [13]
+    Left = 403
+    Top = 219
+    Width = 32
+    Height = 32
+    Visible = False
+  end
+  object edtDnaCode: TEdit [16]
     Left = 68
     Top = 341
     Width = 345
@@ -156,7 +163,7 @@
     TabOrder = 2
     OnKeyPress = edtDnaCodeKeyPress
   end
-  object btnInfo: TButton [16]
+  object btnInfo: TButton [17]
     Left = 68
     Top = 408
     Width = 345