Index: ProScan/WS/Agent.pas
===================================================================
diff -u -r669 -r693
--- ProScan/WS/Agent.pas	(.../Agent.pas)	(revision 669)
+++ ProScan/WS/Agent.pas	(.../Agent.pas)	(revision 693)
@@ -35,7 +35,7 @@
     function RondAfKaderdeurDag(DnaCode: String): RondAfKaderdeurDagResponse;
     function ZoekAlleVhossLadesBijDnaCode(DnaCode: String): ZoekAlleVhossLadesBijDnaCodeResponse;
     function ZoekAlleDnaCodesDieOpVhossMoeten(FrameId: String): ZoekAlleDnaCodesDieOpVhossMoetenResponse;
-    function BewerkKlantinstellingen(Actie: string; KlantId: string; IsExport: boolean; IsBlumXs: boolean; WegwerpPallet: boolean; MeerdereToeleveringen: boolean): BewerkKlantinstellingenResponse;
+    function BewerkKlantinstellingen(Actie: string; KlantId: string; IsExport: boolean; IsBlumXs: boolean; WegwerpPallet: boolean; HalvePallet: boolean; KartonnenPallet: boolean; MeerdereToeleveringen: boolean): BewerkKlantinstellingenResponse;
     function RondAfVhossBatch(BatchId: String): RondAfVhossBatchResponse;
     function GeefKenmerken(KlantNummer: string; ProductNummer: string): QRcodeNaarKenmerkenResponse;
   end;
@@ -425,7 +425,7 @@
 end;
 
 function TAgent.BewerkKlantinstellingen(Actie, KlantId:string;
-  IsExport: boolean; IsBlumXs: boolean; WegwerpPallet: boolean; MeerdereToeleveringen: boolean): BewerkKlantinstellingenResponse;
+  IsExport: boolean; IsBlumXs: boolean; WegwerpPallet: boolean; HalvePallet: boolean; KartonnenPallet:boolean; MeerdereToeleveringen: boolean): BewerkKlantinstellingenResponse;
 var
   Header: DnaCodeService.RequestHeader;
   fBewerkKlantinstellingenRequest: BewerkKlantinstellingenRequest;
@@ -441,6 +441,8 @@
     fBewerkKlantinstellingenRequest.IsExport := IsExport;
     fBewerkKlantinstellingenRequest.IsBlumXs := IsBlumXs;
     fBewerkKlantinstellingenRequest.WegwerpPallet := WegwerpPallet;
+    fBewerkKlantinstellingenRequest.HalvePallet := HalvePallet;
+    fBewerkKlantinstellingenRequest.KartonnenPallet := KartonnenPallet;
     fBewerkKlantinstellingenRequest.MeerdereToeleveringen := MeerdereToeleveringen;
 
     result := fDnaCodeServiceSoap.BewerkKlantinstellingen(fBewerkKlantinstellingenRequest);