Index: PlanScan/UI/frameKlantinstellingen.dfm
===================================================================
diff -u -r419 -r641
--- PlanScan/UI/frameKlantinstellingen.dfm	(.../frameKlantinstellingen.dfm)	(revision 419)
+++ PlanScan/UI/frameKlantinstellingen.dfm	(.../frameKlantinstellingen.dfm)	(revision 641)
@@ -52,6 +52,12 @@
         FieldName = 'cdsKlantinstellingenMeerdereToeleveringen'
         Title.Caption = '>1 TL'
         Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'cdsKlantinstellingenIsBlumXs'
+        Title.Caption = 'Blum XS'
+        Visible = True
       end>
   end
   object Panel1: TPanel
@@ -115,6 +121,10 @@
       item
         Name = 'cdsKlantinstellingenMeerdereToeleveringen'
         DataType = ftBoolean
+      end
+      item
+        Name = 'cdsKlantinstellingenIsBlumXs'
+        DataType = ftBoolean
       end>
     IndexDefs = <>
     Params = <>
Index: PlanScan/UI/frameKlantinstellingen.pas
===================================================================
diff -u -r639 -r641
--- PlanScan/UI/frameKlantinstellingen.pas	(.../frameKlantinstellingen.pas)	(revision 639)
+++ PlanScan/UI/frameKlantinstellingen.pas	(.../frameKlantinstellingen.pas)	(revision 641)
@@ -166,7 +166,8 @@
                                        Klantinstellingen[ii].Klantnaam,
                                        Klantinstellingen[ii].IsExport,
                                        Klantinstellingen[ii].WegwerpPallet,
-                                       Klantinstellingen[ii].MeerdereToeleveringen]);
+                                       Klantinstellingen[ii].MeerdereToeleveringen,
+                                       Klantinstellingen[ii].IsBlumXs]);
     ii := ii + 1;
   end;
 end;
Index: PlanScan/WS/DnaCodeService.pas
===================================================================
diff -u -r639 -r641
--- PlanScan/WS/DnaCodeService.pas	(.../DnaCodeService.pas)	(revision 639)
+++ PlanScan/WS/DnaCodeService.pas	(.../DnaCodeService.pas)	(revision 641)
@@ -603,6 +603,8 @@
     FKlantnaam_Specified: boolean;
     FIsExport: Boolean;
     FIsExport_Specified: boolean;
+    FIsBlumXs: Boolean;
+    FIsBlumXs_Specified: boolean;
     FWegwerpPallet: Boolean;
     FWegwerpPallet_Specified: boolean;
     FMeerdereToeleveringen: Boolean;
@@ -613,6 +615,8 @@
     function  Klantnaam_Specified(Index: Integer): boolean;
     procedure SetIsExport(Index: Integer; const ABoolean: Boolean);
     function  IsExport_Specified(Index: Integer): boolean;
+    procedure SetIsBlumXs(Index: Integer; const ABoolean: Boolean);
+    function  IsBlumXs_Specified(Index: Integer): boolean;
     procedure SetWegwerpPallet(Index: Integer; const ABoolean: Boolean);
     function  WegwerpPallet_Specified(Index: Integer): boolean;
     procedure SetMeerdereToeleveringen(Index: Integer; const ABoolean: Boolean);
@@ -621,6 +625,7 @@
     property KlantId:               string   Index (IS_OPTN) read FKlantId write SetKlantId stored KlantId_Specified;
     property Klantnaam:             string   Index (IS_OPTN) read FKlantnaam write SetKlantnaam stored Klantnaam_Specified;
     property IsExport:              Boolean  Index (IS_OPTN) read FIsExport write SetIsExport stored IsExport_Specified;
+    property IsBlumXs:              Boolean  Index (IS_OPTN) read FIsBlumXs write SetIsBlumXs stored IsBlumXs_Specified;
     property WegwerpPallet:         Boolean  Index (IS_OPTN) read FWegwerpPallet write SetWegwerpPallet stored WegwerpPallet_Specified;
     property MeerdereToeleveringen: Boolean  Index (IS_OPTN) read FMeerdereToeleveringen write SetMeerdereToeleveringen stored MeerdereToeleveringen_Specified;
   end;
@@ -1626,6 +1631,17 @@
   Result := FIsExport_Specified;
 end;
 
+procedure Klantinstellingen.SetIsBlumXs(Index: Integer; const ABoolean: Boolean);
+begin
+  FIsBlumXs := ABoolean;
+  FIsBlumXs_Specified := True;
+end;
+
+function Klantinstellingen.IsBlumXs_Specified(Index: Integer): boolean;
+begin
+  Result := FIsBlumXs_Specified;
+end;
+
 procedure Klantinstellingen.SetWegwerpPallet(Index: Integer; const ABoolean: Boolean);
 begin
   FWegwerpPallet := ABoolean;