Index: ProScan/WS/Agent.pas
===================================================================
diff -u -r512 -r646
--- ProScan/WS/Agent.pas	(.../Agent.pas)	(revision 512)
+++ ProScan/WS/Agent.pas	(.../Agent.pas)	(revision 646)
@@ -34,7 +34,7 @@
     function RondAfKaderdeurDag(DnaCode: String): RondAfKaderdeurDagResponse;
     function ZoekAlleVhossLadesBijDnaCode(DnaCode: String): ZoekAlleVhossLadesBijDnaCodeResponse;
     function ZoekAlleDnaCodesDieOpVhossMoeten(FrameId: String): ZoekAlleDnaCodesDieOpVhossMoetenResponse;
-    function BewerkKlantinstellingen(Actie: string; KlantId: string; IsExport: boolean; WegwerpPallet: boolean; MeerdereToeleveringen: boolean): BewerkKlantinstellingenResponse;
+    function BewerkKlantinstellingen(Actie: string; KlantId: string; IsExport: boolean; IsBlumXs: boolean; WegwerpPallet: boolean; MeerdereToeleveringen: boolean): BewerkKlantinstellingenResponse;
     function RondAfVhossBatch(BatchId: String): RondAfVhossBatchResponse;
   end;
 
@@ -421,7 +421,7 @@
 end;
 
 function TAgent.BewerkKlantinstellingen(Actie, KlantId:string;
-  IsExport: boolean; WegwerpPallet: boolean; MeerdereToeleveringen: boolean): BewerkKlantinstellingenResponse;
+  IsExport: boolean; IsBlumXs: boolean; WegwerpPallet: boolean; MeerdereToeleveringen: boolean): BewerkKlantinstellingenResponse;
 var
   Header: DnaCodeService.RequestHeader;
   fBewerkKlantinstellingenRequest: BewerkKlantinstellingenRequest;
@@ -435,6 +435,7 @@
     fBewerkKlantinstellingenRequest.Actie := Actie;
     fBewerkKlantinstellingenRequest.KlantId := KlantId;
     fBewerkKlantinstellingenRequest.IsExport := IsExport;
+    fBewerkKlantinstellingenRequest.IsBlumXs := IsBlumXs;
     fBewerkKlantinstellingenRequest.WegwerpPallet := WegwerpPallet;
     fBewerkKlantinstellingenRequest.MeerdereToeleveringen := MeerdereToeleveringen;
 
Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r645 -r646
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 645)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 646)
@@ -558,7 +558,7 @@
     if not UiContext.IsExportPopupGetoond then begin
       try
         fAgent := TAgent.Create(UiContext);
-        fBewerkKlantinstellingenResponse := fAgent.BewerkKlantinstellingen('List','',false, false, false);
+        fBewerkKlantinstellingenResponse := fAgent.BewerkKlantinstellingen('List','',false, false, false, false);
         fAgent.Free;
         while ii <= length(fBewerkKlantinstellingenResponse.Klantinstellingen)-1 do begin
           if fBewerkKlantinstellingenResponse.Klantinstellingen[ii].KlantId = DnaCodes[fIndexEersteRelevanteDnaCode].KlantNummer then begin
@@ -581,7 +581,7 @@
     if not UiContext.IsBlumXsPopupGetoond then begin
       try
         fAgent := TAgent.Create(UiContext);
-        fBewerkKlantinstellingenResponse := fAgent.BewerkKlantinstellingen('List','',false, false, false);
+        fBewerkKlantinstellingenResponse := fAgent.BewerkKlantinstellingen('List','',false, false, false, false);
         fAgent.Free;
         while ii <= length(fBewerkKlantinstellingenResponse.Klantinstellingen)-1 do begin
           if fBewerkKlantinstellingenResponse.Klantinstellingen[ii].KlantId = DnaCodes[fIndexEersteRelevanteDnaCode].KlantNummer then begin