Index: PlanScan/UI/KlantinstellingenDetailScherm.pas
===================================================================
diff -u -r658 -r690
--- PlanScan/UI/KlantinstellingenDetailScherm.pas	(.../KlantinstellingenDetailScherm.pas)	(revision 658)
+++ PlanScan/UI/KlantinstellingenDetailScherm.pas	(.../KlantinstellingenDetailScherm.pas)	(revision 690)
@@ -21,6 +21,8 @@
     cbIsBlumXs: TCheckBox;
     lblHalvePallet: TLabel;
     cbHalvePallet: TCheckBox;
+    lblKartonnenPallet: TLabel;
+    cbKartonnenPallet: TCheckBox;
   private
     function getIsExport: boolean;
     function getIsBlumXs: boolean;
@@ -34,13 +36,16 @@
     procedure setMeerdereToeleveringen(const Value: boolean);
     function getHalvePallet: boolean;
     procedure setHalvePallet(const Value: boolean);
+    function getKartonnenPallet: boolean;
+    procedure setKartonnenPallet(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 KartonnenPallet: boolean read getKartonnenPallet write setKartonnenPallet;
     property MeerdereToeleveringen: boolean read getMeerdereToeleveringen write setMeerdereToeleveringen;
   end;
 
@@ -86,6 +91,11 @@
   result := cbHalvePallet.Checked;
 end;
 
+function TfmKlantinstellingenDetail.getKartonnenPallet: boolean;
+begin
+  result := cbKartonnenPallet.Checked;
+end;
+
 procedure TfmKlantinstellingenDetail.setIsExport(const Value: boolean);
 begin
   cbIsExport.Checked := Value;
@@ -117,4 +127,9 @@
   cbHalvePallet.Checked := Value;
 end;
 
+procedure TfmKlantinstellingenDetail.setKartonnenPallet(const Value: boolean);
+begin
+  cbKartonnenPallet.Checked := Value;
+end;
+
 end.