Index: PlanScan/WS/Agent.pas
===================================================================
diff -u -r370 -r419
--- PlanScan/WS/Agent.pas	(.../Agent.pas)	(revision 370)
+++ PlanScan/WS/Agent.pas	(.../Agent.pas)	(revision 419)
@@ -34,7 +34,7 @@
     function ZoekViaKlantnummer(Klantnummer: string): ZoekViaKlantnummerResponse;
     function ZoekViaLadecode(Ladecode: string): ZoekViaLadecodeResponse;
     function ZoekViaOrdernummer(Ordernummer: string): ZoekViaOrdernummerResponse;
-    function BewerkKlantinstellingen(Actie: string; KlantId: string; IsExport: boolean): BewerkKlantinstellingenResponse;
+    function BewerkKlantinstellingen(Actie: string; KlantId: string; IsExport: boolean; WegwerpPallet: boolean; MeerdereToeleveringen: boolean): BewerkKlantinstellingenResponse;
   end;
 
 implementation
@@ -419,7 +419,7 @@
 end;
 
 function TAgent.BewerkKlantinstellingen(Actie, KlantId:string;
-  IsExport: boolean): BewerkKlantinstellingenResponse;
+  IsExport: boolean; WegwerpPallet: boolean; MeerdereToeleveringen: boolean): BewerkKlantinstellingenResponse;
 var
   Header: DnaCodeService.RequestHeader;
   fBewerkKlantinstellingenRequest: BewerkKlantinstellingenRequest;
@@ -433,6 +433,8 @@
     fBewerkKlantinstellingenRequest.Actie := Actie;
     fBewerkKlantinstellingenRequest.KlantId := KlantId;
     fBewerkKlantinstellingenRequest.IsExport := IsExport;
+    fBewerkKlantinstellingenRequest.WegwerpPallet := WegwerpPallet;
+    fBewerkKlantinstellingenRequest.MeerdereToeleveringen := MeerdereToeleveringen;
 
     result := fDnaCodeServiceSoap.BewerkKlantinstellingen(fBewerkKlantinstellingenRequest);
   finally