Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r422 -r433
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 422)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 433)
@@ -428,6 +428,9 @@
 end;
 
 procedure TfmDnaCodeScherm.VerwerkMogelijkePopups(EersteDnaCode: DnaCode);
+var
+  fBewerkKlantinstellingenResponse: BewerkKlantinstellingenResponse;
+  ii: integer;
 begin
   if UiContext.Modus = modusDefault then begin
     if EersteDnaCode.IsDirecteLevering then begin
@@ -445,6 +448,21 @@
       end;
     end;
     imgWegwerpPallet.Visible := EersteDnaCode.IsWegwerpPallet;
+
+    ii := 0;
+    if not UiContext.IsExportPopupGetoond then begin
+      fBewerkKlantinstellingenResponse := TAgent.Create(UiContext).BewerkKlantinstellingen('List','',false, false, false);
+      while ii <= length(fBewerkKlantinstellingenResponse.Klantinstellingen)-1 do begin
+        if fBewerkKlantinstellingenResponse.Klantinstellingen[ii].KlantId = EersteDnaCode.KlantNummer then begin
+           if fBewerkKlantinstellingenResponse.Klantinstellingen[ii].IsExport then begin
+              ToonPopupScherm('Export', 'OK','',21,-1,-1,clRed);
+              UiContext.IsExportPopupGetoond := true;
+           end;
+        end;
+      end;
+    end;
+
+
     Repaint;
   end;
 end;