Index: PlanScan/UI/frameKlantinstellingen.pas
===================================================================
diff -u -r659 -r660
--- PlanScan/UI/frameKlantinstellingen.pas	(.../frameKlantinstellingen.pas)	(revision 659)
+++ PlanScan/UI/frameKlantinstellingen.pas	(.../frameKlantinstellingen.pas)	(revision 660)
@@ -44,7 +44,7 @@
 var
   fBewerkKlantinstellingenResponse: BewerkKlantinstellingenResponse;
 begin
-  fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('List','',false, false, false, false);
+  fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('List','',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.MeerdereToeleveringen);
+  fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('Upsert',fKlantinstellingenDetailScherm.KlantId,fKlantinstellingenDetailScherm.IsExport, fKlantinstellingenDetailScherm.IsBlumXs, fKlantinstellingenDetailScherm.Wegwerppallet, fKlantinstellingenDetailScherm.HalvePallet, 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);
+  fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('Delete',fGeselecteerdeKlantId,false,false,false,false,false);
   if fBewerkKlantinstellingenResponse.Header.Status = '200' then begin
     VulKlantinstellingenGridMetData(fBewerkKlantinstellingenResponse.Klantinstellingen);
   end else begin
@@ -106,9 +106,10 @@
     fKlantinstellingenDetailScherm.IsExport := dbgKlantinstellingen.DataSource.DataSet.FieldByName('cdsKlantinstellingenIsExport').AsBoolean;
     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.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.MeerdereToeleveringen);
+    fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('Upsert',fKlantinstellingenDetailScherm.KlantId,fKlantinstellingenDetailScherm.IsExport,fKlantinstellingenDetailScherm.IsBlumXs,fKlantinstellingenDetailScherm.Wegwerppallet,fKlantinstellingenDetailScherm.HalvePallet,fKlantinstellingenDetailScherm.MeerdereToeleveringen);
     if fBewerkKlantinstellingenResponse.Header.Status = '200' then begin
       VulKlantinstellingenGridMetData(fBewerkKlantinstellingenResponse.Klantinstellingen);
     end else begin