Index: PlanScan/UI/frameKlantinstellingen.pas
===================================================================
diff -u -r660 -r690
--- PlanScan/UI/frameKlantinstellingen.pas	(.../frameKlantinstellingen.pas)	(revision 660)
+++ PlanScan/UI/frameKlantinstellingen.pas	(.../frameKlantinstellingen.pas)	(revision 690)
@@ -44,7 +44,7 @@
 var
   fBewerkKlantinstellingenResponse: BewerkKlantinstellingenResponse;
 begin
-  fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('List','',false, false, false, false, false);
+  fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('List','',false, false, false, false, false, false);
   try
     if fBewerkKlantinstellingenResponse.Header.Status = '200' then begin
       VulKlantinstellingenGridMetData(fBewerkKlantinstellingenResponse.Klantinstellingen);
@@ -67,7 +67,7 @@
   fKlantinstellingenDetailScherm.IsExport := false;
   fKlantinstellingenDetailScherm.IsBlumXs := false;
   fKlantinstellingenDetailScherm.ShowModal;
-  fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('Upsert',fKlantinstellingenDetailScherm.KlantId,fKlantinstellingenDetailScherm.IsExport, fKlantinstellingenDetailScherm.IsBlumXs, fKlantinstellingenDetailScherm.Wegwerppallet, fKlantinstellingenDetailScherm.HalvePallet, fKlantinstellingenDetailScherm.MeerdereToeleveringen);
+  fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('Upsert',fKlantinstellingenDetailScherm.KlantId,fKlantinstellingenDetailScherm.IsExport, fKlantinstellingenDetailScherm.IsBlumXs, fKlantinstellingenDetailScherm.Wegwerppallet, fKlantinstellingenDetailScherm.HalvePallet, fKlantinstellingenDetailScherm.KartonnenPallet, fKlantinstellingenDetailScherm.MeerdereToeleveringen);
   if fBewerkKlantinstellingenResponse.Header.Status = '200' then begin
     VulKlantinstellingenGridMetData(fBewerkKlantinstellingenResponse.Klantinstellingen);
   end else begin
@@ -85,7 +85,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,false,false,false,false);
+  fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('Delete',fGeselecteerdeKlantId,false,false,false,false,false,false);
   if fBewerkKlantinstellingenResponse.Header.Status = '200' then begin
     VulKlantinstellingenGridMetData(fBewerkKlantinstellingenResponse.Klantinstellingen);
   end else begin
@@ -107,9 +107,10 @@
     fKlantinstellingenDetailScherm.IsBlumXs := dbgKlantinstellingen.DataSource.DataSet.FieldByName('cdsKlantinstellingenIsBlumXs').AsBoolean;
     fKlantinstellingenDetailScherm.WegwerpPallet := dbgKlantinstellingen.DataSource.DataSet.FieldByName('cdsKlantinstellingenWegwerppallet').AsBoolean;
     fKlantinstellingenDetailScherm.HalvePallet := dbgKlantinstellingen.DataSource.DataSet.FieldByName('cdsKlantinstellingenHalvePallet').AsBoolean;
+    fKlantinstellingenDetailScherm.KartonnenPallet := dbgKlantinstellingen.DataSource.DataSet.FieldByName('cdsKlantinstellingenKartonnenPallet').AsBoolean;
     fKlantinstellingenDetailScherm.MeerdereToeleveringen := dbgKlantinstellingen.DataSource.DataSet.FieldByName('cdsKlantinstellingenMeerdereToeleveringen').AsBoolean;
     fKlantinstellingenDetailScherm.ShowModal;
-    fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('Upsert',fKlantinstellingenDetailScherm.KlantId,fKlantinstellingenDetailScherm.IsExport,fKlantinstellingenDetailScherm.IsBlumXs,fKlantinstellingenDetailScherm.Wegwerppallet,fKlantinstellingenDetailScherm.HalvePallet,fKlantinstellingenDetailScherm.MeerdereToeleveringen);
+    fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('Upsert',fKlantinstellingenDetailScherm.KlantId,fKlantinstellingenDetailScherm.IsExport,fKlantinstellingenDetailScherm.IsBlumXs,fKlantinstellingenDetailScherm.Wegwerppallet,fKlantinstellingenDetailScherm.HalvePallet,fKlantinstellingenDetailScherm.KartonnenPallet,fKlantinstellingenDetailScherm.MeerdereToeleveringen);
     if fBewerkKlantinstellingenResponse.Header.Status = '200' then begin
       VulKlantinstellingenGridMetData(fBewerkKlantinstellingenResponse.Klantinstellingen);
     end else begin
@@ -169,7 +170,8 @@
                                        Klantinstellingen[ii].WegwerpPallet,
                                        Klantinstellingen[ii].MeerdereToeleveringen,
                                        Klantinstellingen[ii].IsBlumXs,
-                                       Klantinstellingen[ii].HalvePallet]);
+                                       Klantinstellingen[ii].HalvePallet,
+                                       Klantinstellingen[ii].KartonnenPallet]);
     ii := ii + 1;
   end;
 end;