Index: PlanScan/UI/KlantinstellingenDetailScherm.pas
===================================================================
diff -u -r417 -r418
--- PlanScan/UI/KlantinstellingenDetailScherm.pas	(.../KlantinstellingenDetailScherm.pas)	(revision 417)
+++ PlanScan/UI/KlantinstellingenDetailScherm.pas	(.../KlantinstellingenDetailScherm.pas)	(revision 418)
@@ -22,10 +22,16 @@
     function getKlantId: string;
     procedure setIsExport(const Value: boolean);
     procedure setKlantId(const Value: string);
+    function getWegwerppallet: boolean;
+    procedure setWegwerppallet(const Value: boolean);
+    function getMeerdereToeleveringen: boolean;
+    procedure setMeerdereToeleveringen(const Value: boolean);
     { Private declarations }
   public
     property KlantId: string read getKlantId write setKlantId;
     property IsExport: boolean read getIsExport write setIsExport;
+    property Wegwerppallet: boolean read getWegwerppallet write setWegwerppallet;
+    property MeerdereToeleveringen: boolean read getMeerdereToeleveringen write setMeerdereToeleveringen;
   end;
 
 var
@@ -50,6 +56,16 @@
     result := edtKlantId.Text;
 end;
 
+function TfmKlantinstellingenDetail.getMeerdereToeleveringen: boolean;
+begin
+  result := cbMeerdereToeleveringen.Checked;
+end;
+
+function TfmKlantinstellingenDetail.getWegwerppallet: boolean;
+begin
+  result := cbWegwerppallet.Checked;
+end;
+
 procedure TfmKlantinstellingenDetail.setIsExport(const Value: boolean);
 begin
   cbIsExport.Checked := Value;
@@ -60,4 +76,15 @@
   edtKlantId.Text := Value;
 end;
 
+procedure TfmKlantinstellingenDetail.setMeerdereToeleveringen(
+  const Value: boolean);
+begin
+  cbMeerdereToeleveringen.Checked := Value;
+end;
+
+procedure TfmKlantinstellingenDetail.setWegwerppallet(const Value: boolean);
+begin
+  cbWegwerppallet.Checked := Value;
+end;
+
 end.