Index: PlanScan/UI/KlantinstellingenDetailScherm.pas
===================================================================
diff -u -r639 -r658
--- PlanScan/UI/KlantinstellingenDetailScherm.pas	(.../KlantinstellingenDetailScherm.pas)	(revision 639)
+++ PlanScan/UI/KlantinstellingenDetailScherm.pas	(.../KlantinstellingenDetailScherm.pas)	(revision 658)
@@ -19,6 +19,8 @@
     lblMeerdereToeleveringen: TLabel;
     lblBlumXs: TLabel;
     cbIsBlumXs: TCheckBox;
+    lblHalvePallet: TLabel;
+    cbHalvePallet: TCheckBox;
   private
     function getIsExport: boolean;
     function getIsBlumXs: boolean;
@@ -30,12 +32,15 @@
     procedure setWegwerppallet(const Value: boolean);
     function getMeerdereToeleveringen: boolean;
     procedure setMeerdereToeleveringen(const Value: boolean);
+    function getHalvePallet: boolean;
+    procedure setHalvePallet(const Value: boolean);
     { Private declarations }
   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 HalvePallet: boolean read getHalvePallet write setHalvePallet;
     property MeerdereToeleveringen: boolean read getMeerdereToeleveringen write setMeerdereToeleveringen;
   end;
 
@@ -76,6 +81,11 @@
   result := cbWegwerppallet.Checked;
 end;
 
+function TfmKlantinstellingenDetail.getHalvePallet: boolean;
+begin
+  result := cbHalvePallet.Checked;
+end;
+
 procedure TfmKlantinstellingenDetail.setIsExport(const Value: boolean);
 begin
   cbIsExport.Checked := Value;
@@ -102,4 +112,9 @@
   cbWegwerppallet.Checked := Value;
 end;
 
+procedure TfmKlantinstellingenDetail.setHalvePallet(const Value: boolean);
+begin
+  cbHalvePallet.Checked := Value;
+end;
+
 end.