Index: PlanScan/UI/frameKlantinstellingen.pas
===================================================================
diff -u -r419 -r639
--- PlanScan/UI/frameKlantinstellingen.pas	(.../frameKlantinstellingen.pas)	(revision 419)
+++ PlanScan/UI/frameKlantinstellingen.pas	(.../frameKlantinstellingen.pas)	(revision 639)
@@ -44,7 +44,7 @@
 var
   fBewerkKlantinstellingenResponse: BewerkKlantinstellingenResponse;
 begin
-  fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('List','',false, false, false);
+  fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('List','',false, false, false, false);
   try
     if fBewerkKlantinstellingenResponse.Header.Status = '200' then begin
       VulKlantinstellingenGridMetData(fBewerkKlantinstellingenResponse.Klantinstellingen);
@@ -65,8 +65,9 @@
   fKlantinstellingenDetailScherm := TfmKlantinstellingenDetail.Create(self);
   fKlantinstellingenDetailScherm.KlantId := '';
   fKlantinstellingenDetailScherm.IsExport := false;
+  fKlantinstellingenDetailScherm.IsBlumXs := false;
   fKlantinstellingenDetailScherm.ShowModal;
-  fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('Upsert',fKlantinstellingenDetailScherm.KlantId,fKlantinstellingenDetailScherm.IsExport, fKlantinstellingenDetailScherm.Wegwerppallet, fKlantinstellingenDetailScherm.MeerdereToeleveringen);
+  fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('Upsert',fKlantinstellingenDetailScherm.KlantId,fKlantinstellingenDetailScherm.IsExport, fKlantinstellingenDetailScherm.IsBlumXs, fKlantinstellingenDetailScherm.Wegwerppallet, fKlantinstellingenDetailScherm.MeerdereToeleveringen);
   if fBewerkKlantinstellingenResponse.Header.Status = '200' then begin
     VulKlantinstellingenGridMetData(fBewerkKlantinstellingenResponse.Klantinstellingen);
   end else begin
@@ -84,7 +85,7 @@
       dbgKlantinstellingen.DataSource.DataSet.GotoBookmark(Pointer(dbgKlantinstellingen.SelectedRows.Items[0]));
       fGeselecteerdeKlantId := dbgKlantinstellingen.DataSource.DataSet.FieldByName('cdsKlantinstellingenKlantId').AsString;
   end;
-  fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('Delete',fGeselecteerdeKlantId,false,false,false);
+  fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('Delete',fGeselecteerdeKlantId,false,false,false,false);
   if fBewerkKlantinstellingenResponse.Header.Status = '200' then begin
     VulKlantinstellingenGridMetData(fBewerkKlantinstellingenResponse.Klantinstellingen);
   end else begin
@@ -103,10 +104,11 @@
     fKlantinstellingenDetailScherm := TfmKlantinstellingenDetail.Create(self);
     fKlantinstellingenDetailScherm.KlantId := dbgKlantinstellingen.DataSource.DataSet.FieldByName('cdsKlantinstellingenKlantId').AsString;
     fKlantinstellingenDetailScherm.IsExport := dbgKlantinstellingen.DataSource.DataSet.FieldByName('cdsKlantinstellingenIsExport').AsBoolean;
+    fKlantinstellingenDetailScherm.IsBlumXs := dbgKlantinstellingen.DataSource.DataSet.FieldByName('cdsKlantinstellingenIsBlumXs').AsBoolean;
     fKlantinstellingenDetailScherm.WegwerpPallet := dbgKlantinstellingen.DataSource.DataSet.FieldByName('cdsKlantinstellingenWegwerppallet').AsBoolean;
     fKlantinstellingenDetailScherm.MeerdereToeleveringen := dbgKlantinstellingen.DataSource.DataSet.FieldByName('cdsKlantinstellingenMeerdereToeleveringen').AsBoolean;
     fKlantinstellingenDetailScherm.ShowModal;
-    fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('Upsert',fKlantinstellingenDetailScherm.KlantId,fKlantinstellingenDetailScherm.IsExport,fKlantinstellingenDetailScherm.Wegwerppallet,fKlantinstellingenDetailScherm.MeerdereToeleveringen);
+    fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('Upsert',fKlantinstellingenDetailScherm.KlantId,fKlantinstellingenDetailScherm.IsExport,fKlantinstellingenDetailScherm.IsBlumXs,fKlantinstellingenDetailScherm.Wegwerppallet,fKlantinstellingenDetailScherm.MeerdereToeleveringen);
     if fBewerkKlantinstellingenResponse.Header.Status = '200' then begin
       VulKlantinstellingenGridMetData(fBewerkKlantinstellingenResponse.Klantinstellingen);
     end else begin
Index: PlanScan/UI/KlantinstellingenDetailScherm.pas
===================================================================
diff -u -r418 -r639
--- PlanScan/UI/KlantinstellingenDetailScherm.pas	(.../KlantinstellingenDetailScherm.pas)	(revision 418)
+++ PlanScan/UI/KlantinstellingenDetailScherm.pas	(.../KlantinstellingenDetailScherm.pas)	(revision 639)
@@ -17,10 +17,14 @@
     cbMeerdereToeleveringen: TCheckBox;
     lblWegwerpPallet: TLabel;
     lblMeerdereToeleveringen: TLabel;
+    lblBlumXs: TLabel;
+    cbIsBlumXs: TCheckBox;
   private
     function getIsExport: boolean;
+    function getIsBlumXs: boolean;
     function getKlantId: string;
     procedure setIsExport(const Value: boolean);
+    procedure setIsBlumXs (const Value: boolean);
     procedure setKlantId(const Value: string);
     function getWegwerppallet: boolean;
     procedure setWegwerppallet(const Value: boolean);
@@ -30,6 +34,7 @@
   public
     property KlantId: string read getKlantId write setKlantId;
     property IsExport: boolean read getIsExport write setIsExport;
+    property IsBlumXs: boolean read getIsBlumXs write setIsBlumXs;
     property Wegwerppallet: boolean read getWegwerppallet write setWegwerppallet;
     property MeerdereToeleveringen: boolean read getMeerdereToeleveringen write setMeerdereToeleveringen;
   end;
@@ -48,6 +53,11 @@
   result := cbIsExport.Checked;
 end;
 
+function TfmKlantinstellingenDetail.getIsBlumXs: boolean;
+begin
+  result := cbIsBlumXs.Checked;
+end;
+
 function TfmKlantinstellingenDetail.getKlantId: string;
 begin
   if not (System.StrUtils.LeftStr(edtKlantId.Text,3) = 'K||') then
@@ -71,6 +81,11 @@
   cbIsExport.Checked := Value;
 end;
 
+procedure TfmKlantinstellingenDetail.setIsBlumXs(const Value: boolean);
+begin
+  cbIsBlumXs.Checked := Value;
+end;
+
 procedure TfmKlantinstellingenDetail.setKlantId(const Value: string);
 begin
   edtKlantId.Text := Value;
Index: PlanScan/UI/KlantinstellingenDetailScherm.dfm
===================================================================
diff -u -r417 -r639
--- PlanScan/UI/KlantinstellingenDetailScherm.dfm	(.../KlantinstellingenDetailScherm.dfm)	(revision 417)
+++ PlanScan/UI/KlantinstellingenDetailScherm.dfm	(.../KlantinstellingenDetailScherm.dfm)	(revision 639)
@@ -3,7 +3,7 @@
   Top = 0
   ActiveControl = btnOk
   Caption = 'KlantinstellingenDetail'
-  ClientHeight = 260
+  ClientHeight = 300
   ClientWidth = 377
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
@@ -71,6 +71,20 @@
     Font.Style = []
     ParentFont = False
   end
+  object lblBlumXs: TLabel
+    Left = 68
+    Top = 208
+    Width = 113
+    Height = 19
+    AutoSize = False
+    Caption = 'Blum XS'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
   object edtklantId: TEdit
     Left = 187
     Top = 45
@@ -99,7 +113,7 @@
   end
   object btnOk: TButton
     Left = 133
-    Top = 208
+    Top = 248
     Width = 112
     Height = 33
     Caption = 'Ok'
@@ -139,4 +153,17 @@
     ParentFont = False
     TabOrder = 4
   end
+  object cbIsBlumXs: TCheckBox
+    Left = 187
+    Top = 210
+    Width = 97
+    Height = 17
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 5
+  end
 end
Index: PlanScan/WS/Agent.pas
===================================================================
diff -u -r625 -r639
--- PlanScan/WS/Agent.pas	(.../Agent.pas)	(revision 625)
+++ PlanScan/WS/Agent.pas	(.../Agent.pas)	(revision 639)
@@ -36,7 +36,7 @@
     function ZoekViaLadecode(Ladecode: string): ZoekViaLadecodeResponse;
     function ZoekViaOrdernummer(Ordernummer: string): ZoekViaOrdernummerResponse;
     function ZoekViaBatchId(BatchId: string): ZoekViaBatchResponse;
-    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 ProboxEtiketAfdrukken(DnaCodesStringList: TStringList; LijnWaaropGeprintMoetWorden: string): AfdrukService.ProboxEtiketAfdrukkenResponse;
     function KlantEtiketAfdrukken(DnaCodesStringList: TStringList): KlantEtiketAfdrukkenResponse;
     function ProductEtiketAfdrukken(DnaCodesStringList: TStringList): ProductEtiketAfdrukkenResponse;
@@ -509,7 +509,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;
@@ -523,6 +523,7 @@
     fBewerkKlantinstellingenRequest.Actie := Actie;
     fBewerkKlantinstellingenRequest.KlantId := KlantId;
     fBewerkKlantinstellingenRequest.IsExport := IsExport;
+    fBewerkKlantinstellingenRequest.IsBlumXs := IsBlumXs;
     fBewerkKlantinstellingenRequest.WegwerpPallet := WegwerpPallet;
     fBewerkKlantinstellingenRequest.MeerdereToeleveringen := MeerdereToeleveringen;
 
Index: PlanScan/WS/DnaCodeService.pas
===================================================================
diff -u -r468 -r639
--- PlanScan/WS/DnaCodeService.pas	(.../DnaCodeService.pas)	(revision 468)
+++ PlanScan/WS/DnaCodeService.pas	(.../DnaCodeService.pas)	(revision 639)
@@ -245,6 +245,7 @@
     FActie: string;
     FKlantId: string;
     FIsExport: Boolean;
+    FIsBlumXs: Boolean;
     FWegwerpPallet: Boolean;
     FMeerdereToeleveringen: Boolean;
   public
@@ -254,6 +255,7 @@
     property Actie:                 string         read FActie write FActie;
     property KlantId:               string         read FKlantId write FKlantId;
     property IsExport:              Boolean        read FIsExport write FIsExport;
+    property IsBlumXs:              Boolean        read FIsBlumXs write FIsBlumXs;
     property WegwerpPallet:         Boolean        read FWegwerpPallet write FWegwerpPallet;
     property MeerdereToeleveringen: Boolean        read FMeerdereToeleveringen write FMeerdereToeleveringen;
   end;