Index: ProScan/WS/DnaCodeService.pas
===================================================================
diff -u -r528 -r643
--- ProScan/WS/DnaCodeService.pas	(.../DnaCodeService.pas)	(revision 528)
+++ ProScan/WS/DnaCodeService.pas	(.../DnaCodeService.pas)	(revision 643)
@@ -270,6 +270,7 @@
     FActie: string;
     FKlantId: string;
     FIsExport: Boolean;
+    FIsBlumXs: Boolean;
     FWegwerpPallet: Boolean;
     FMeerdereToeleveringen: Boolean;
   public
@@ -279,6 +280,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;
@@ -649,6 +651,8 @@
     FKlantnaam_Specified: boolean;
     FIsExport: Boolean;
     FIsExport_Specified: boolean;
+    FIsBlumXs: Boolean;
+    FIsBlumXs_Specified: boolean;
     FWegwerpPallet: Boolean;
     FWegwerpPallet_Specified: boolean;
     FMeerdereToeleveringen: Boolean;
@@ -659,6 +663,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);
@@ -667,6 +673,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;
@@ -1752,6 +1759,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;