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;