Index: PlanScan/PlanScan.dproj
===================================================================
diff -u -r364 -r367
--- PlanScan/PlanScan.dproj	(.../PlanScan.dproj)	(revision 364)
+++ PlanScan/PlanScan.dproj	(.../PlanScan.dproj)	(revision 367)
@@ -105,12 +105,12 @@
 				<FormType>dfm</FormType>
 				<DesignClass>TFrame</DesignClass>
 			</DCCReference>
-			<DCCReference Include="WS\DnaCodeService.pas"/>
 			<DCCReference Include="UI\frameKlantinstellingen.pas">
 				<Form>frmKlantinstellingen</Form>
 				<FormType>dfm</FormType>
 				<DesignClass>TFrame</DesignClass>
 			</DCCReference>
+			<DCCReference Include="WS\DnaCodeService.pas"/>
 			<None Include="WS\__history"/>
 			<BuildConfiguration Include="Release">
 				<Key>Cfg_2</Key>
Index: PlanScan/PlanScan.dproj.local
===================================================================
diff -u -r364 -r367
--- PlanScan/PlanScan.dproj.local	(.../PlanScan.dproj.local)	(revision 364)
+++ PlanScan/PlanScan.dproj.local	(.../PlanScan.dproj.local)	(revision 367)
@@ -5,10 +5,10 @@
     <Transaction>2020/02/17 10:06:02.000.921,C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.dfm=E:\svn\Delphi\PlanScan\Main.dfm</Transaction>
     <Transaction>2020/02/17 10:06:02.000.921,C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.pas=E:\svn\Delphi\PlanScan\Main.pas</Transaction>
     <Transaction>2020/02/17 10:06:12.000.996,C:\Users\TomV\Documents\RAD Studio\Projects\Project2.dproj=E:\svn\Delphi\PlanScan\PlanScan.dproj</Transaction>
+    <Transaction>2020/02/17 11:09:31.000.815,=E:\svn\Delphi\PlanScan\WS\__history</Transaction>
     <Transaction>2020/02/17 11:09:31.000.812,=E:\svn\Delphi\PlanScan\WS\GebruikerService.pas</Transaction>
-    <Transaction>2020/02/17 11:09:31.000.808,=E:\svn\Delphi\PlanScan\WS\Agent.pas</Transaction>
     <Transaction>2020/02/17 11:09:31.000.810,=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas</Transaction>
-    <Transaction>2020/02/17 11:09:31.000.815,=E:\svn\Delphi\PlanScan\WS\__history</Transaction>
+    <Transaction>2020/02/17 11:09:31.000.808,=E:\svn\Delphi\PlanScan\WS\Agent.pas</Transaction>
     <Transaction>2020/02/17 11:12:28.000.857,=E:\svn\Delphi\AAPClient\UI\UiContext.pas</Transaction>
     <Transaction>2020/02/17 11:13:01.000.260,E:\svn\Delphi\AAPClient\UI\UiContext.pas=</Transaction>
     <Transaction>2020/02/17 11:14:30.000.384,=E:\svn\Delphi\PlanScan\UI\UiContext.pas</Transaction>
@@ -26,13 +26,13 @@
     <Transaction>2020/03/02 09:30:46.000.906,E:\svn\Delphi\PlanScan\WS\GebruikerService.pas=</Transaction>
     <Transaction>2020/03/02 09:31:23.000.040,E:\svn\Delphi\PlanScan\WS.pas=E:\svn\Delphi\PlanScan\WS\GebruikerService.pas</Transaction>
     <Transaction>2020/03/04 11:43:31.000.229,=E:\svn\Delphi\PlanScan\Unit1.pas</Transaction>
-    <Transaction>2020/03/04 11:49:17.000.078,E:\svn\Delphi\PlanScan\Unit1.pas=E:\svn\Delphi\PlanScan\UI\LoginScherm.pas</Transaction>
     <Transaction>2020/03/04 11:49:17.000.078,E:\svn\Delphi\PlanScan\Unit1.dfm=E:\svn\Delphi\PlanScan\UI\LoginScherm.dfm</Transaction>
+    <Transaction>2020/03/04 11:49:17.000.078,E:\svn\Delphi\PlanScan\Unit1.pas=E:\svn\Delphi\PlanScan\UI\LoginScherm.pas</Transaction>
     <Transaction>2020/04/20 08:48:05.000.552,=E:\svn\Delphi\PlanScan\Unit1.pas</Transaction>
-    <Transaction>2020/04/20 08:48:21.000.787,E:\svn\Delphi\PlanScan\Unit1.dfm=E:\svn\Delphi\PlanScan\UI\frmDnaCodes.dfm</Transaction>
     <Transaction>2020/04/20 08:48:21.000.787,E:\svn\Delphi\PlanScan\Unit1.pas=E:\svn\Delphi\PlanScan\UI\frmDnaCodes.pas</Transaction>
-    <Transaction>2020/04/20 09:19:59.000.705,E:\svn\Delphi\PlanScan\UI\frmDnaCodes.pas=E:\svn\Delphi\PlanScan\UI\frameDnaCodes.pas</Transaction>
+    <Transaction>2020/04/20 08:48:21.000.787,E:\svn\Delphi\PlanScan\Unit1.dfm=E:\svn\Delphi\PlanScan\UI\frmDnaCodes.dfm</Transaction>
     <Transaction>2020/04/20 09:19:59.000.705,E:\svn\Delphi\PlanScan\UI\frmDnaCodes.dfm=E:\svn\Delphi\PlanScan\UI\frameDnaCodes.dfm</Transaction>
+    <Transaction>2020/04/20 09:19:59.000.705,E:\svn\Delphi\PlanScan\UI\frmDnaCodes.pas=E:\svn\Delphi\PlanScan\UI\frameDnaCodes.pas</Transaction>
     <Transaction>2020/04/20 09:21:17.000.241,=E:\svn\Delphi\PlanScan\Unit1.pas</Transaction>
     <Transaction>2020/04/20 10:46:18.000.858,=E:\svn\Delphi\PlanScan\Unit1.pas</Transaction>
     <Transaction>2020/04/20 10:49:21.000.229,E:\svn\Delphi\PlanScan\Unit1.dfm=E:\svn\Delphi\PlanScan\UI\frameGebruikers.dfm</Transaction>
@@ -46,6 +46,9 @@
     <Transaction>2020/05/06 15:48:04.623,=E:\svn\Delphi\PlanScan\Unit1.pas</Transaction>
     <Transaction>2020/05/06 15:48:51.604,E:\svn\Delphi\PlanScan\UI\frameKlantinstellingen.pas=E:\svn\Delphi\PlanScan\Unit1.pas</Transaction>
     <Transaction>2020/05/06 15:48:51.604,E:\svn\Delphi\PlanScan\UI\frameKlantinstellingen.dfm=E:\svn\Delphi\PlanScan\Unit1.dfm</Transaction>
+    <Transaction>2020/05/07 08:09:33.580,=E:\svn\Delphi\PlanScan\WS.pas</Transaction>
+    <Transaction>2020/05/07 08:09:44.951,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=</Transaction>
+    <Transaction>2020/05/07 08:10:20.303,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas</Transaction>
   </Transactions>
 	<ProjectSortOrder AutoSort="0" SortType="0">
     <File Path="UI"/>
Index: PlanScan/WS/Agent.pas
===================================================================
diff -u -r363 -r367
--- PlanScan/WS/Agent.pas	(.../Agent.pas)	(revision 363)
+++ PlanScan/WS/Agent.pas	(.../Agent.pas)	(revision 367)
@@ -34,6 +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;
   end;
 
 implementation
@@ -417,6 +418,28 @@
   end;
 end;
 
+function TAgent.BewerkKlantinstellingen(Actie, KlantId:string;
+  IsExport: 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;
+
+    result := fDnaCodeServiceSoap.BewerkKlantinstellingen(fBewerkKlantinstellingenRequest);
+  finally
+    fBewerkKlantinstellingenRequest.Free;
+  end;
+end;
+
 function TAgent.ComputerName: String;
 var
   buffer: array[0..255] of char;
Index: PlanScan/PlanScan.dpr
===================================================================
diff -u -r364 -r367
--- PlanScan/PlanScan.dpr	(.../PlanScan.dpr)	(revision 364)
+++ PlanScan/PlanScan.dpr	(.../PlanScan.dpr)	(revision 367)
@@ -15,8 +15,8 @@
   MidasLib,
   frameDnaCodes in 'UI\frameDnaCodes.pas' {frmDnaCodes: TFrame},
   frameGebruikers in 'UI\frameGebruikers.pas' {frmGebruikers: TFrame},
-  DnaCodeService in 'WS\DnaCodeService.pas',
-  frameKlantinstellingen in 'UI\frameKlantinstellingen.pas' {frmKlantinstellingen: TFrame};
+  frameKlantinstellingen in 'UI\frameKlantinstellingen.pas' {frmKlantinstellingen: TFrame},
+  DnaCodeService in 'WS\DnaCodeService.pas';
 
 {$R *.res}