Index: PlanScan/UI/frameKlantinstellingen.pas
===================================================================
diff -u -r375 -r419
--- PlanScan/UI/frameKlantinstellingen.pas	(.../frameKlantinstellingen.pas)	(revision 375)
+++ PlanScan/UI/frameKlantinstellingen.pas	(.../frameKlantinstellingen.pas)	(revision 419)
@@ -44,7 +44,7 @@
 var
   fBewerkKlantinstellingenResponse: BewerkKlantinstellingenResponse;
 begin
-  fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('List','',false);
+  fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('List','',false, false, false);
   try
     if fBewerkKlantinstellingenResponse.Header.Status = '200' then begin
       VulKlantinstellingenGridMetData(fBewerkKlantinstellingenResponse.Klantinstellingen);
@@ -66,7 +66,7 @@
   fKlantinstellingenDetailScherm.KlantId := '';
   fKlantinstellingenDetailScherm.IsExport := false;
   fKlantinstellingenDetailScherm.ShowModal;
-  fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('Upsert',fKlantinstellingenDetailScherm.KlantId,fKlantinstellingenDetailScherm.IsExport);
+  fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('Upsert',fKlantinstellingenDetailScherm.KlantId,fKlantinstellingenDetailScherm.IsExport, fKlantinstellingenDetailScherm.Wegwerppallet, fKlantinstellingenDetailScherm.MeerdereToeleveringen);
   if fBewerkKlantinstellingenResponse.Header.Status = '200' then begin
     VulKlantinstellingenGridMetData(fBewerkKlantinstellingenResponse.Klantinstellingen);
   end else begin
@@ -84,7 +84,7 @@
       dbgKlantinstellingen.DataSource.DataSet.GotoBookmark(Pointer(dbgKlantinstellingen.SelectedRows.Items[0]));
       fGeselecteerdeKlantId := dbgKlantinstellingen.DataSource.DataSet.FieldByName('cdsKlantinstellingenKlantId').AsString;
   end;
-  fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('Delete',fGeselecteerdeKlantId,false);
+  fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('Delete',fGeselecteerdeKlantId,false,false,false);
   if fBewerkKlantinstellingenResponse.Header.Status = '200' then begin
     VulKlantinstellingenGridMetData(fBewerkKlantinstellingenResponse.Klantinstellingen);
   end else begin
@@ -103,8 +103,10 @@
     fKlantinstellingenDetailScherm := TfmKlantinstellingenDetail.Create(self);
     fKlantinstellingenDetailScherm.KlantId := dbgKlantinstellingen.DataSource.DataSet.FieldByName('cdsKlantinstellingenKlantId').AsString;
     fKlantinstellingenDetailScherm.IsExport := dbgKlantinstellingen.DataSource.DataSet.FieldByName('cdsKlantinstellingenIsExport').AsBoolean;
+    fKlantinstellingenDetailScherm.WegwerpPallet := dbgKlantinstellingen.DataSource.DataSet.FieldByName('cdsKlantinstellingenWegwerppallet').AsBoolean;
+    fKlantinstellingenDetailScherm.MeerdereToeleveringen := dbgKlantinstellingen.DataSource.DataSet.FieldByName('cdsKlantinstellingenMeerdereToeleveringen').AsBoolean;
     fKlantinstellingenDetailScherm.ShowModal;
-    fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('Upsert',fKlantinstellingenDetailScherm.KlantId,fKlantinstellingenDetailScherm.IsExport);
+    fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('Upsert',fKlantinstellingenDetailScherm.KlantId,fKlantinstellingenDetailScherm.IsExport,fKlantinstellingenDetailScherm.Wegwerppallet,fKlantinstellingenDetailScherm.MeerdereToeleveringen);
     if fBewerkKlantinstellingenResponse.Header.Status = '200' then begin
       VulKlantinstellingenGridMetData(fBewerkKlantinstellingenResponse.Klantinstellingen);
     end else begin
@@ -160,7 +162,9 @@
   while ii <= length(Klantinstellingen)-1 do begin
     cdsKlantinstellingen.InsertRecord([Klantinstellingen[ii].KlantId,
                                        Klantinstellingen[ii].Klantnaam,
-                                       Klantinstellingen[ii].IsExport]);
+                                       Klantinstellingen[ii].IsExport,
+                                       Klantinstellingen[ii].WegwerpPallet,
+                                       Klantinstellingen[ii].MeerdereToeleveringen]);
     ii := ii + 1;
   end;
 end;