Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r635 -r645
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 635)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 645)
@@ -25,6 +25,7 @@
     imgPallet: TImage;
     imgLaatstGescand: TImage;
     imgExport: TImage;
+    imgBlumXs: TImage;
     lblAantalOpPallet: TLabel;
     procedure FormShow(Sender: TObject);
     procedure actPalletExecute(Sender: TObject);
@@ -95,6 +96,7 @@
   fImagesScherm.ilAlgemeen32.GetIcon(5, imgWegwerpPallet.Picture.Icon);
   fImagesScherm.ilAlgemeen32.GetIcon(3, imgDirecteLevering.Picture.Icon);
   fImagesScherm.ilAlgemeen32.GetIcon(4, imgExport.Picture.Icon);
+  fImagesScherm.ilAlgemeen32.GetIcon(6, imgBlumXs.Picture.Icon);
 
   if UiContext.Modus = modusVHOSS then begin
      VhossDataOphalen();
@@ -105,6 +107,7 @@
       imgDirecteLevering.Visible := false;
       imgWegwerpPallet.Visible := false;
       imgExport.Visible := false;
+      imgBlumXs.Visible := false;
     end;
   end;
   ZetIcoontjesBovenaan;
@@ -574,6 +577,28 @@
       imgExport.Visible := true;
     end;
 
+    ii := 0;
+    if not UiContext.IsBlumXsPopupGetoond then begin
+      try
+        fAgent := TAgent.Create(UiContext);
+        fBewerkKlantinstellingenResponse := fAgent.BewerkKlantinstellingen('List','',false, false, false);
+        fAgent.Free;
+        while ii <= length(fBewerkKlantinstellingenResponse.Klantinstellingen)-1 do begin
+          if fBewerkKlantinstellingenResponse.Klantinstellingen[ii].KlantId = DnaCodes[fIndexEersteRelevanteDnaCode].KlantNummer then begin
+             if fBewerkKlantinstellingenResponse.Klantinstellingen[ii].IsBlumXs then begin
+                ToonPopupScherm('Export', 'OK','',22,-1,-1,clWebDarkOrange);
+                UiContext.IsBlumXsPopupGetoond := true;
+                imgBlumXs.Visible := true;
+             end;
+          end;
+          ii := ii + 1;
+        end;
+      finally
+        fBewerkKlantinstellingenResponse.Free;
+      end;
+    end else begin
+      imgBlumXs.Visible := true;
+    end;
 
     Repaint;
   end;