Index: ProScan/WS/Agent.pas
===================================================================
diff -u -r404 -r431
--- ProScan/WS/Agent.pas	(.../Agent.pas)	(revision 404)
+++ ProScan/WS/Agent.pas	(.../Agent.pas)	(revision 431)
@@ -33,6 +33,7 @@
     function RondAfKaderdeurDag(DnaCode: String): RondAfKaderdeurDagResponse;
     function ZoekAlleVhossLadesBijDnaCode(DnaCode: String): ZoekAlleVhossLadesBijDnaCodeResponse;
     function ZoekAlleDnaCodesDieOpVhossMoeten(FrameId: String): ZoekAlleDnaCodesDieOpVhossMoetenResponse;
+    function BewerkKlantinstellingen(Actie: string; KlantId: string; IsExport: boolean; WegwerpPallet: boolean; MeerdereToeleveringen: boolean): BewerkKlantinstellingenResponse;
   end;
 
 implementation
@@ -394,6 +395,30 @@
   end;
 end;
 
+function TAgent.BewerkKlantinstellingen(Actie, KlantId:string;
+  IsExport: boolean; WegwerpPallet: boolean; MeerdereToeleveringen: boolean): BewerkKlantinstellingenResponse;
+var
+  Header: DnaCodeService.RequestHeader;
+  fBewerkKlantinstellingenRequest: BewerkKlantinstellingenRequest;
+begin
+  fBewerkKlantinstellingenRequest := BewerkKlantinstellingenRequest.Create;
+  Header := DnaCodeService.RequestHeader.Create;
+  try
+    Header.Initialen := fUiContext.Initialen;
+    Header.ComputerNaam := FullName();
+    fBewerkKlantinstellingenRequest.Header := Header;
+    fBewerkKlantinstellingenRequest.Actie := Actie;
+    fBewerkKlantinstellingenRequest.KlantId := KlantId;
+    fBewerkKlantinstellingenRequest.IsExport := IsExport;
+    fBewerkKlantinstellingenRequest.WegwerpPallet := WegwerpPallet;
+    fBewerkKlantinstellingenRequest.MeerdereToeleveringen := MeerdereToeleveringen;
+
+    result := fDnaCodeServiceSoap.BewerkKlantinstellingen(fBewerkKlantinstellingenRequest);
+  finally
+    fBewerkKlantinstellingenRequest.Free;
+  end;
+end;
+
 function TAgent.ComputerName: String;
 var
   buffer: array[0..255] of char;